>TYPE   	D
>NAME   	reg109.d
>CODE   	reg109.cod
>BY     	@(#)$Author: Sandor $
>DATE   	@(#)$Date: 09-01-02 9:05 $
>VERSION	@(#)$Revision:
>ID     	7030

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

>TEXTINFO ROWS 2 SIZE 89
#id    value    flags    text
IDL_100  100  -  &Valutaklausul
IDL_101  101  -  Uppdatera poster i prislistan 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   240   256 SBL	-	-	"-"	  0	"713 Prislistor"

>FORM MAIN ROWS 7 SIZE 73 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW   621    0    4   16  252 -	PhmZ	-	win4	-	""
GR   101   16    4   62  250 -	pWZ	-	lcTable	-	""
TB   124   82    4  114  250 -	PZ	-	tab1	-	"Prislista"
B3    12  198    2   15   50 -	TP	-	pbSave	-	"save.bmp,&Spara"
B3  2210  198   58   15   50 -	xTPh	-	pbNew	-	"new.bmp,&Ny"
B3   137  198  112   15   50 -	xTPh	-	pbDelete	-	"del.bmp,&Ta bort"
B3     2  198  204   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    4   17  234 -	Ph	-	win5	-	""
FR   630   32    6    2  238 -	pZ	-	-	-	""
WW  4072   36    2   76  246 -	P	-	win2	-	""
WW  4081   36    2   76  246 -	HP	-	win6	-	""

>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  250 -	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   32   13   20 -	PU	-	edCode	#10901	""
D    108    4  112   13  114 -	P	-	edName	#10905	""
T    110    6    4   11   30 -	p	-	-	-	"Prislista:"
T    111    6   68   11   42 -	p	-	-	-	"Beteckning:"

>FORMFILES win5 ROWS 0
#Id	sp
>FORM lcTable ROWS 2 SIZE 21 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   3649    1    1   11   29 -	Hph	-	-	#10901	"Prislista"
T   3650    2   30   11  194 -	Hp	-	-	#10905	"Beteckning"

>FORMFILES lcTable ROWS 1
#Id	sp
109	-
>FORM win2 ROWS 2 SIZE 38 "Prislista"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
XB  4080   14   10   10   50 -	RP	-	xbDrivePrice	-	"Kampanjpris"
GB  4077    4    4   24   88 -	p	-	-	-	"Listpris ersätts av lägre"

>FORMFILES win2 ROWS 0
#Id	sp
>FORM win6 ROWS 9 SIZE 105 "Valutaklausul"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CE  4083    2   58   72   90 -	Pc	-	cbCurrencyclause	#10925	""
T   4084    2    6   11   50 -	p	-	-	-	"Basvaluta:"
T   4085   16    6   11   50 -	p	-	-	-	"Baskurs:"
T   4086   30    6   11   50 -	p	-	-	-	"Kursdiff %:"
T   4087   44    6   11   50 -	p	-	-	-	"Justering %:"
D   4088   16   58   13   60 -	P	-	edBaseRate	#10926	""
D   4089   30   58   13   60 -	P	-	edRateDiff	#10927	""
D   4090   44   58   13   60 -	P	-	edAdjust	#10928	""
XB  4091   58    6   10  180 -	RP	-	xbShowPallet	-	"Visa valutaklausul automatiskt i rutin 712 Avtalspriser"

>FORMFILES win6 ROWS 0
#Id	sp
>SOURCE
