>TYPE   	D
>NAME   	REG56.d
>CODE   	REG56.cod
>BY     	@(#)$Author: Jorgenl $
>DATE   	@(#)$Date: 08-04-03 8:28 $
>VERSION	@(#)$Revision:
>ID     	19502

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

>TEXTINFO ROWS 12 SIZE 220
#id    value    flags    text
IDL_100  100  -  Rabattbrev %1 kunde inte hittas
IDL_101  101  -  Radera %1
IDL_102  102  -  Påslag %%1
IDL_103  103  -  TG %%1
IDL_104  104  -  Företagskod saknas
IDL_105  105  -  Rabattbrevskod saknas
IDL_106  106  -  Spara %1
IDL_107  107  -  Företaget finns inte
IDL_108  108  -  Företaget är inte leverantör
IDL_109  109  -  Företagskod måste fyllas i
IDL_110  110  -  Rabattbrevskod måste anges
IDL_111  111  -  Växla


>STACK ROWS 200 SIZE 3000

>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   220   315 SBL	-	-	"-"	  0	"735 Rabattbrev"

>FORM MAIN ROWS 7 SIZE 74 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW   621    0    4   16  308 -	PhmZ	-	win4	-	""
TB   124   87    5   84  308 -	PZ	-	tab1	-	"Rabattbrev"
B3    12  173    4   15   50 -	TP	-	pbSave	-	"save.bmp,&Spara"
B3  2210  173   58   15   50 -	TPh	-	pbNew	-	"new.bmp,&Ny"
B3   137  173  111   15   50 -	TPh	-	pbDelete	-	"del.bmp,&Ta bort"
B3     2  173  262   15   50 -	xTPhz	-	pbCancel	-	"exit.bmp,St&äng"
GR   101   21    4   62  308 -	PWZ	-	lcTable	-	""

>FORMFILES MAIN ROWS 1
#Id	sp
13	r
>FORM tab1 ROWS 3 SIZE 3 "623 - tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW   627   12    2   17  276 -	Ph	-	win5	-	""
WW   680   32    2   47  302 -	HP	-	win1	-	""
FR   630   30    6    1  296 -	pZ	-	-	-	""

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win1 ROWS 6 SIZE 35 "Artikeltyp"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CE 24082    2   54  100   62 -	Pc	-	cbArttyp	#5611	""
D   2512   17   54   13   60 -	P	-	-	#5621	""
D  24059   32   54   13   60 -	P	-	-	#5623	""
T  24074   19    6   11   31 -	p	-	-	-	"Rabatt %:"
T  24075   33    6   11   31 -	p	-	txCalcPrice	-	"Påslag %:"
T  24073    5    6   11   31 -	p	-	-	-	"Artikeltyp:"

>FORMFILES win1 ROWS 0
#Id	sp
>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 -	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  308 -	pZ	-	-	-	""

>FORM win5 ROWS 5 SIZE 40 "head"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D    108    3   54   12   60 -	PU	-	edCode	#5600	""
T    111    5    6   11   46 -	p	-	-	-	"Företagskod:"
D  24071    3  214   13   60 -	PU	-	edName	#5601	""
T  24072    5  156   11   53 -	p	-	-	-	"Rabattbrevskod:"
B3 24081    2  117   13   15 -	xTpfF	-	pbSeekCompany	-	"seek.bmp"

>FORM lcTable ROWS 5 SIZE 56 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T  24076    1    1   11   55 -	Hp	-	-	#5600	"Företagskod"
T  24077    1   57   11   70 -	Hp	-	-	#5601	"Rabattbrevskod"
T  24078    1  127   11   50 -	Hp	-	-	#5611	"Artikeltyp"
T  24083    1  177   11   40 -	RHp	-	-	#5621	"Rabatt %"
T  24086    1  217   11   40 -	RHp	-	-	#5623	"Påslag %"

>FORMFILES lcTable ROWS 1
#Id	sp
56	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"

>SOURCE
