>TYPE   	D
>NAME   	741.d
>CODE   	741.cod
>BY     	@(#)$Author: Gustaf $
>DATE   	@(#)$Date: 09-09-21 13:46 $
>VERSION	@(#)$Revision: 5 $
>ID     	7083

>FILES ROWS 0
#type id  name        dbtype mode autoload r0 r1 r2 r3 r4 r5 comment

>TEXTINFO ROWS 32 SIZE 779
#id    value    flags    text
IDL_100  100  -  Fel intervall
IDL_101  101  -  Blankt = Första
IDL_102  102  -  Ordernummer
IDL_103  103  -  Prislistan saknas
IDL_104  104  -  Kunde inte hitta projekttyp: %1. Felkod %2
IDL_105  105  -  Samma projekttyp i både "Aktuell" och "Ny" fälten
IDL_106  106  -  Kundkod
IDL_107  107  -  Aktuell fältet saknar värde
IDL_108  108  -  Ny fältet saknar värde
IDL_109  109  -  Minst ett av urvalen måste väljas
IDL_110  110  -  Minst en kategori måste väljas
IDL_111  111  -  Inga poster i intervallet
IDL_112  112  -  Inga poster matchar urvalet
IDL_113  113  -  Från fältet saknar värde
IDL_114  114  -  Till fältet saknar värde
IDL_115  115  -  Blankt = Sista
IDL_116  116  -  Blankt = Projekt utan prislista
IDL_117  117  -  Blankt = Alla statuskoder
IDL_118  118  -  Blankt = Alla typer
IDL_119  119  -  Blankt = Alla prislistor
IDL_120  120  -  Minst en prisändring måste väljas
IDL_121  121  -  Samma prislista i både "Aktuell" och "Ny" fälten
IDL_122  122  -  Art.kod
IDL_123  123  -  Normalpris före
IDL_124  124  -  Normalpris efter
IDL_125  125  -  Radnr
IDL_126  126  -  Ny typ
IDL_127  127  -  Förbereder justering
IDL_128  128  -  Justerar...
IDL_129  129  -  Endast order med momskod %1
IDL_130  130  -  Endast rader med momskod %1
IDL_131  131  -  Ny momskod blank, ange urval endast order med momskod


>STACK ROWS 600 SIZE 5000

>FONT ROWS 9
#id Hgt Wth Esc Ori Wgt Ita  Ul Sth Chs Opr Clp Qua Pch Name
1    -9   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
2   -11   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
3   -11   0   0   0 400   1  0   0   0   0   0   0   0 "Arial"
4   -11   0   0   0 700   0  0   0   0   0   0   0   0 "Arial"
5   -13   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
6   -13   0   0   0 400   1  0   0   0   0   0   0   0 "Arial"
7   -13   0   0   0 700   0  0   0   0   0   0   0   0 "Arial"
8   -16   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
9   -19   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"


>COLOR ROWS 16
#id color	comment
1   0x0        	""
2   0x808080   	""
3   0x80       	""
4   0x8080     	""
5   0x8000     	""
6   0x808000   	""
7   0x800000   	""
8   0x800080   	""
9   0xffffff   	""
A   0xc0c0c0   	""
B   0xff       	""
C   0xffff     	""
D   0xff00     	""
E   0xffff00   	""
F   0xff0000   	""
G   0xff00ff   	""


>BRUSH ROWS 5 SIZE 100
#id type	text
1   0	0xff0000
2   1	pattern
3   2	tegel.bmp
5   4	0xff
6   5	0x0


>APPEVENTS ROWS 3
#id Eventname	ParamList
1030	SelectPriceAdjust	()
1081	SelectProjectRow	()
1082	SelectTrans	()


>WINDOW ROWS 1
#id       x     y    cy    cx sp1	sp2	Bitmap	font	size	caption
5511     10    10   316   380 SB	-	-	"-"	  0	"741 Justera projekt"

>FORM MAIN ROWS 8 SIZE 76 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4076   22    2   18  314 -	P	-	win7	-	""
WW   123    4    4   16  372 -	pZ	-	win6	-	""
GR    11   44    4   72  312 -	pfWZ	-	lcTable	-	""
GR  4130   44    4   72  312 -	pfWZ	-	lcTableCustomer	-	""
TB  4192  120    4  168  314 -	PZ	-	tab1	-	" Prisjustera projekt "
B3  4139   44  324   15   50 -	TPz	-	pbDoIt	-	"ok.bmp,&Verkställ"
B3  4140   62  324   15   50 -	TPz	-	pbCleanUp	-	"cancel.bmp,T&öm"
B3     2  272  324   15   50 -	TPwz	-	-	-	"exit.bmp,St&äng"

>FORM tab1 ROWS 4 SIZE 4 "tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW    67   16    6  148  300 -	P	-	win4	-	""
WW    13   16    6  148  300 -	P	-	win1	-	""
WW    66   16    6  148  300 -	P	-	win3	-	""
WW    53   16    6  148  300 -	P	-	win2	-	""

>FORM win1 ROWS 32 SIZE 334 "Justera priser"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CB  4166    0   64  100   84 -	P	-	cbSortPrice	-	""
D   4158   14   64   13   64 -	PU	-	edStartPrice	-	""
D   4159   28   64   13   64 -	PU	-	edEndPrice	-	""
D   4094   42   64   13   64 A12	PU	-	edProjectStat	#8828	""
D     28   56   64   13   44 A3	PU	-	edProjectType	#851	""
D     34   70   64   13   64 A12	PU	-	edItemType	#853	""
CE  4098   84   64  100   84 -	Pc	-	cbCalcType	#852	""
CE  4099   98   64  100   84 -	Pc	-	cbPriceList	#854	""
XB    43   14  178   10  110 -	P	-	xbCategoryAll	-	"Alla"
XB    39   28  178   10  110 -	P	-	xbCategory1	-	"Lagerförda artiklar"
XB    40   38  178   10  110 -	P	-	xbCategory2	-	"Ej lagerförda artiklar"
XB    42   48  178   10  110 -	P	-	xbCategory3	-	"Tider"
XB    41   58  178   10  110 -	P	-	xbCategory4	-	"Övriga kostnader"
GB    38    2  164   72  132 -	p	-	-	-	"Kategorier"
XB    48   88  178   10  110 -	P	-	xbPriceChangeAdj4	-	"Ändra enbart normalpriser"
XB    45   98  178   10  110 -	P	-	xbPriceChangeAdj1	-	"Ändra rapporterat debiterbart"
XB    46  108  178   10  110 -	P	-	xbPriceChangeAdj2	-	"Ändra kalkylpriser"
XB    47  118  178   10  110 -	P	-	xbPriceChangeAdj3	-	"Ändra rapporterad kostnad"
GB    44   76  164   68  132 -	p	-	-	-	"Prisändringar"
T     27   58    4   11   58 -	p	-	-	-	"Projekttyp:"
B3    29   56  112   13   15 -	xTpfF	-	pbProjectType	-	"seek.bmp"
T     36   86    4   11   58 -	p	-	-	-	"Kalkyltyp:"
T   4154    2    4   11   58 -	p	-	-	-	"Sortering:"
T   4155   16    4   11   58 -	p	-	-	-	"Från:"
T   4156   30    4   11   58 -	p	-	-	-	"Till:"
T     33   72    4   11   58 -	p	-	-	-	"Artikeltyp:"
B3  4096   42  132   13   15 -	xTpfF	-	pbProjectStat	-	"seek.bmp"
T   4095   44    4   11   58 -	p	-	-	-	"Projektstatus:"
T     30  100    4   11   58 -	p	-	-	-	"Prislista:"
B3    35   70  132   13   15 -	xTpfF	-	pbItemType	-	"seek.bmp"
B3  4169   14  132   13   15 -	SxTpfF	-	pbStartPrice	-	"seek.bmp"
B3  4170   28  132   13   15 -	SxTpfF	-	pbEndPrice	-	"seek.bmp"

>FORM win2 ROWS 24 SIZE 245 "Byt projekttyp"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CB  4141    0   64  100   84 -	P	-	cbSortProject	-	""
D   4145   14   64   13   64 -	PU	-	edStartProject	-	""
D   4146   28   64   13   64 -	PU	-	edEndProject	-	""
D   4100   42   64   13   64 A12	PU	-	edChPTypePStat	#8828	""
CE    54   56   64  100   84 A25	Pc	-	cbStartProjectType	#841	""
CE    56   70   64  100   84 A25	Pc	-	cbEndProjectType	#849	""
XB   116   18  170   10   56 -	P	-	xbChangeName	-	"Byt namn"
D    118   16  232   13   62 -	pO$	-	edInfoTypeName	-	""
XB   117   30  170   10   56 -	P	-	xbChangeSet	-	"Byt blank.set"
D    119   30  232   13   62 -	pO	-	edInfoSet	-	""
GB   115    2  164   50  134 -	p	-	-	-	"Projektändringar"
XB    60   68  178   10  110 -	P	-	xbPriceChangePType3	-	"Ändra enbart normalpriser"
XB    64   78  178   10  110 -	P	-	xbPriceChangePType1	-	"Ändra rapporterat debiterbart"
XB    65   88  178   10  110 -	P	-	xbPriceChangePType2	-	"Hämta aktuella grundpriser"
B3  4173   14  132   13   15 -	SxTpfF	-	pbStartProject	-	"seek.bmp"
B3  4174   28  132   13   15 -	SxTpfF	-	pbEndProject	-	"seek.bmp"
GB    59   56  164   50  132 -	p	-	gbPriceChange	-	"Prisändringar"
T   4142    2    4   11   56 -	p	-	-	-	"Sortering:"
T   4143   16    4   11   56 -	p	-	-	-	"Från:"
T   4144   30    4   11   56 -	p	-	-	-	"Till:"
T     57   58    4   11   56 -	p	-	-	-	"Aktuell projekttyp:"
B3  4106   42  132   13   15 -	xTpfF	-	pbChPTypePStat	-	"seek.bmp"
T   4105   44    4   11   56 -	p	-	-	-	"Projektstatus:"
T     58   72    4   11   56 -	p	-	-	-	"Ny projekttyp:"

>FORM win3 ROWS 22 SIZE 223 "Byt prislista"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CB  4151    0   64  100   84 -	P	-	cbSortList	-	""
D   4152   14   64   13   64 -	PU	-	edStartList	-	""
D   4153   28   64   13   64 -	PU	-	edEndList	-	""
D   4101   42   64   13   64 A12	PU	-	edChPLPStat	#8828	""
D     78   56   64   13   64 A10	PU	-	edProjectTypePList	#851	""
CE    71   70   64  100   84 A25	Pc	-	cbStartPriceList	#842	""
CE    72   84   64  100   84 A25	Pc	-	cbEndPriceList	#848	""
XB   121   14  178   10  110 -	P	-	xbPriceChPList3	-	"Ändra enbart normalpriser"
XB  4093   24  178   10  110 -	P	-	xbPriceChPList1	-	"Ändra rapporterat debiterbart"
XB    75   34  178   10  110 -	P	-	xbPriceChPList2	-	"Hämta aktuella grundpriser"
B3  4171   28  132   13   15 -	SxTpfF	-	pbEndList	-	"seek.bmp"
B3  4172   14  132   13   15 -	SxTpfF	-	pbStartList	-	"seek.bmp"
GB    73    2  164   50  132 -	p	-	-	-	"Prisändringar"
B3    79   56  132   13   15 -	xTpfF	-	pbProjectTypePList	-	"seek.bmp"
T     69   86    4   11   58 -	p	-	-	-	"Ny prislista:"
T   4147    2    4   11   58 -	p	-	-	-	"Sortering:"
T   4148   16    4   11   58 -	p	-	-	-	"Från:"
T   4150   30    4   11   58 -	p	-	-	-	"Till:"
T   4104   44    4   11   58 -	p	-	-	-	"Projektstatus:"
B3  4102   42  132   13   15 -	xTpfF	-	pbChPLPStat	-	"seek.bmp"
T     77   58    4   11   58 -	p	-	-	-	"Projekttyp:"
T     68   72    4   11   58 -	p	-	-	-	"Aktuell prislista:"

>FORM win4 ROWS 24 SIZE 191 "Byt momskod"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CB  4165    0   64  100   84 -	P	-	cbSortVAT	-	""
D   4163   14   64   13   64 -	PU	-	edStartVAT	-	""
D   4164   28   64   13   64 -	PU	-	edEndVAT	-	""
D   4109   42   64   13   64 A12	PU	-	edChVATPStat	#8828	""
D     81   56   64   13   64 A10	PU	-	edProjectTypeVAT	#851	""
CE  4097   70   64  100   84 -	Pc	-	cbPriceListVAT	#854	""
CE    83   84   64  100   84 A25	Pc	-	cbStartVAT	#843	""
CE    86   98   64  100   84 A25	Pc	-	cbEndVAT	#847	""
XB    92   16  178   10  110 -	P	-	xbSelectionVAT1	-	"Endast order med momskod"
XB    93   26  178   10  110 -	P	-	xbSelectionVAT2	-	"Endast rader med momskod"
B3  4167   14  132   13   15 -	SxTpfF	-	pbStartVAT	-	"seek.bmp"
B3  4168   28  132   13   15 -	SxTpfF	-	pbEndVAT	-	"seek.bmp"
GB    90    2  164   42  132 -	p	-	-	-	"Urval"
T     84   86    4   11   60 -	p	-	-	-	"Aktuell momskod:"
T     85  100    4   11   60 -	p	-	-	-	"Ny momskod:"
FR    94   30   12    0  222 -	p	-	-	-	""
B3    82   56  132   13   15 -	xTpfF	-	pbProjectTypeVAT	-	"seek.bmp"
T   4160    2    4   11   60 -	p	-	-	-	"Sortering:"
T   4161   16    4   11   60 -	p	-	-	-	"Från:"
T   4162   30    4   11   60 -	p	-	-	-	"Till:"
T   4108   44    4   11   60 -	p	-	-	-	"Projektstatus:"
T     80   58    4   11   60 -	p	-	-	-	"Projekttyp:"
B3  4107   42  132   13   15 -	xTpfF	-	pbChVATPStat	-	"seek.bmp"
T     89   72    4   11   60 -	p	-	-	-	"Prislista:"

>FORM win6 ROWS 23 SIZE 23 "Tools"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
FR  1990    0    0   13    1 -	Hp	-	-	-	""
FR  1991    0    0   13    1 -	Hp	-	-	-	""
FR  1992    0    0   13    1 -	Hp	-	-	-	""
FR  1993    0    0   13    1 -	Hp	-	-	-	""
FR  1994    0    0   13    1 -	Hp	-	-	-	""
FR  1995    0    0   13    1 -	Hp	-	-	-	""
FR  1996    0    0   13    1 -	Hp	-	-	-	""
B3  2000    0    8   13   15 -	STHpfF	-	pbTool	-	""
B3  2001    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2002    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2003    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2004    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2005    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2006    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2007    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2008    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2009    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2010    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2011    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2012    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2013    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2014    0    0   13   15 -	STHpfF	-	pbTool	-	""
FU  4071    0    0   15  370 -	pZ	-	-	-	""

>FORM win7 ROWS 4 SIZE 108 "Kommando"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3  4077    2    2   15   70 -	TPM	-	pbAdjustPrices	-	"nothing.bmp,&Justera priser"
B3  4078    2   76   15   70 -	TPM	-	pbChangeProjectType	-	"nothing.bmp,B&yt projekttyp"
B3  4079    2  150   15   70 -	TPM	-	pbChangePriceList	-	"nothing.bmp,Byt pri&slista"
B3  4080    2  224   15   70 -	TPM	-	pbChangeVAT	-	"nothing.bmp,Byt m&omskod"

>FORM lcTable ROWS 6 SIZE 65 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   4186    2    1   11   32 -	Hp	-	-	#3402	"Ordernr"
T   4187    2   33   11   26 -	Hp	-	lcRowNrOrder	#3403	"Radnr"
T   4188    2   59   11   44 -	Hp	-	lcArtCodeOrder	#3401	"Art.kod"
T   4189    2  103   11   78 -	Hp	-	-	#3421	"Benämning"
T   4190    2  181   11   60 -	RHp	-	lcNorm1Order	#8851	"Normalpris före"
T   4191    0  248   11   60 -	RHp	-	lcNorm2Order	#3551	"Normalpris efter"

>FORMFILES lcTable ROWS 1
#Id	sp
34	r
>FORM lcTableCustomer ROWS 7 SIZE 72 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   4131    0    0   11   34 -	Hp	-	-	#3001	"Kundkod"
T   4132    0   36   11   26 -	Hp	-	-	#3402	"Ordernr"
T   4133    0   62   11   26 -	Hp	-	lcRowNrCustomer	#3403	"Radnr"
T   4134    0   90   11   40 -	Hp	-	lcArtCodeCustomer	#3401	"Artkod"
T   4135    0  130   11   66 -	Hp	-	-	#3421	"Benämning"
T   4136    0  200   11   52 -	RHph	-	lcNorm1Customer	#8851	"Normalpris före"
T   4137    0  254   14   56 -	RHp	-	lcNorm2Customer	#3551	"Normalpris efter"

>FORMFILES lcTableCustomer ROWS 1
#Id	sp
34	r
>SOURCE
