>TYPE   	D
>NAME   	reg25370.d
>CODE   	reg25370.cod
>BY     	@(#)$Author: Sandor $
>DATE   	@(#)$Date: 09-02-27 16:32 $
>VERSION	@(#)$Revision:
>ID     	7181

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

>TEXTINFO ROWS 5 SIZE 178
#id    value    flags    text
IDL_101  101  -  Felaktigt datumintervall
IDL_102  102  -  Lika med måste anges
IDL_103  103  -  Ändra avtalspriser med samma ursprungsdatum
IDL_104  104  -  &Valutaklausul
IDL_105  105  -  Uppdatera poster i kundavtal med samma ursprungsvärde för valutaklausul.


>STACK ROWS 600 SIZE 6000

>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	0xc0c0c0
2   1	pattern
3   2	tegel.bmp
5   4	0xff
6   5	0x0


>APPEVENTS ROWS 0
#id Eventname	ParamList


>WINDOW ROWS 1
#id       x     y    cy    cx sp1	sp2	Bitmap	font	size	caption
5511     20    90   248   286 SBL	-	-	"-"	  0	"714 Kundavtal"

>FORM MAIN ROWS 7 SIZE 73 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW   621    0    4   16  278 -	PhmZ	-	win4	-	""
GR   101   16    4   68  278 -	pWZ	-	lcTable	-	""
TB   124   86    4  118  278 -	PZ	-	tab1	-	"Prisavtal"
B3    12  206    4   15   50 -	TP	-	pbSave	-	"save.bmp,&Spara"
B3  2210  206   58   15   50 -	xTPh	-	pbNew	-	"new.bmp,&Ny"
B3   137  206  112   15   50 -	xTPh	-	pbDelete	-	"del.bmp,&Ta bort"
B3     2  206  232   15   50 -	xTPhz	-	pbCancel	-	"exit.bmp,St&äng"

>FORMFILES MAIN ROWS 1
#Id	sp
109	-
>FORM tab1 ROWS 4 SIZE 4 "623 - tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW   627   12    2   18  272 -	Ph	-	win5	-	""
WW  2269   34    2   80  274 -	HP	-	win3	-	""
FR   630   32    4    1  270 -	pZ	-	-	-	""
WW  4114   34    2   80  274 -	HP	-	win8	-	""

>FORMFILES tab1 ROWS 1
#Id	sp
109	-
>FORM win4 ROWS 23 SIZE 23 "Tool"
#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 -	SRTHpfF	-	pbTool	-	""
B3  2001    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2002    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2003    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2004    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2005    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2006    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2007    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2008    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2009    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2010    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2011    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2012    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2013    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2014    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
FU  4071    0    0   15  280 -	pZ	-	-	-	""

>FORMFILES win4 ROWS 0
#Id	sp
>FORM win5 ROWS 4 SIZE 25 "head"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D    103    4   46   13   54 -	PU	-	edCode	#25371	""
D    108    4  154   13  114 -	P	-	edName	#25372	""
T    110    6    4   11   40 -	p	-	-	-	"Avtalskod:"
T    111    6  110   11   44 -	p	-	-	-	"Beteckning:"

>FORMFILES win5 ROWS 0
#Id	sp
>FORM lcTable ROWS 4 SIZE 43 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   4072    1    1   11   40 -	Hph	-	-	#25371	"Avtalskod"
T   4073    1   41   11   70 -	Hp	-	-	#25372	"Beteckning"
T   4074    2  112   11   44 -	Hp	-	-	#25374	"Från datum"
T   4075    2  158   11   44 -	Hp	-	-	#25375	"Till datum"

>FORMFILES lcTable ROWS 1
#Id	sp
25370	r
>FORM lcUtlbet ROWS 2 SIZE 20 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   2215    1    1   11   34 -	Hp	-	-	#15153	"Språkkod"
T   2216    0   32   11  184 -	Hp	-	-	#15155	"Beteckning"

>FORMFILES lcUtlbet ROWS 1
#Id	sp
109	-
>FORM win3 ROWS 6 SIZE 28 "win3"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
DP  4079    6   46   13   50 D8	P	-	dpFromDate	#25374	""
DP  4080   20   46   13   50 D8	P	-	dpToDate	#25375	""
WW  4089   42    4   34   98 -	P	-	win6	-	""
WW  4095   34  108   42  168 -	P	-	win7	-	""
T   4083    8    4   11   40 -	p	-	-	-	"Från datum:"
T   4084   22    4   11   40 -	p	-	-	-	"Till datum:"

>FORMFILES win3 ROWS 0
#Id	sp
>FORM win6 ROWS 3 SIZE 62 "win6"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
XB  4092   10    6   10   80 -	RP	-	xbListPrice	-	"Pris enligt prislista"
XB  4093   20    6   10   50 -	RP	-	xbDrivePrice	-	"Kampanjpris"
GB  4112    0    0   34   94 -	p	-	-	-	"Avtalspris ersätts av lägre"

>FORMFILES win6 ROWS 0
#Id	sp
>FORM win7 ROWS 5 SIZE 54 "win7"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CE  4113   10   46  150   92 -	Pc	-	cbDnr	#841	""
D   4101   24   46   13  108 -	P	-	edSelection	#25378	""
T   4100   26    8   11   38 -	p	-	txSelection	-	"Lika med:"
T   4097   12    8   11   38 -	p	-	-	-	"Fält:"
GB  4096    0    2   42  160 -	p	-	-	-	"Gäller endast för order/projekt med"

>FORMFILES win7 ROWS 0
#Id	sp
>FORM win8 ROWS 9 SIZE 105 "win8"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   4115    4    4   11   50 -	p	-	-	-	"Basvaluta:"
T   4116   32    4   11   50 -	p	-	-	-	"Kursdiff %:"
T   4117   18    4   11   50 -	p	-	-	-	"Baskurs:"
T   4118   44    4   11   50 -	p	-	-	-	"Justering %:"
CE  4119    2   56   72   90 -	Pc	-	cbCurrencyclause	#25380	""
D   4121   16   56   13   60 -	P	-	edBaseRate	#25381	""
D   4122   30   56   13   60 -	P	-	edRateDiff	#25382	""
D   4123   44   56   13   60 -	P	-	edAdjust	#25383	""
XB  4124   62    6   10  180 -	RP	-	xbShowPallet	-	"Visa valutaklausul automatiskt i rutin 712 Avtalspriser"

>FORMFILES win8 ROWS 0
#Id	sp
>SOURCE
