>TYPE   	D
>NAME   	reg25560.d
>CODE   	reg25560.cod
>BY     	@(#)$Author: Hg $
>DATE   	@(#)$Date: 06-12-29 15:42 $
>VERSION	@(#)$Revision: 2 $
>ID     	10546

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

>TEXTINFO ROWS 7 SIZE 130
#id    value    flags    text
IDL_100  100  -  Nummer måste anges
IDL_101  101  -  Radera presentkortsnummer %1
IDL_102  102  -  1=Registrerad
IDL_103  103  -  3=Såld
IDL_104  104  -  5=Använd
IDL_105  105  -  7=Makulerad
IDL_107  107  -  Status kan endast ändras till makulerad


>STACK ROWS 1000 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 0
#id Eventname	ParamList


>WINDOW ROWS 1
#id       x     y    cy    cx sp1	sp2	Bitmap	font	size	caption
5511     10    10   180   314 SBL	-	-	"-"	  0	"3150 Presentkort"

>FORM MAIN ROWS 7 SIZE 104 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW   621    0    4   16  306 -	PZ	-	win1	-	""
TB   622   16    4  110  306 -	PWZ	-	tab1	-	"Presentkort"
B3   135  130    6   15   50 -	TPh	-	pbSave	-	"save.bmp,&Spara"
B3  4072  130   58   15   50 -	xTPh	-	pbNew	-	"new.bmp,&Ny"
B3   137  130  110   15   50 -	xTPh	-	pbDelete	-	"delete.bmp,&Ta bort"
B3 24061  130  163   15   50 -	QP	-	pbInterval	-	"nothing.bmp,&Reg intervall"
B3     2  130  262   15   50 -	xTPhz	-	pbCancel	-	"exit.bmp,St&äng"

>FORMFILES MAIN ROWS 1
#Id	sp
20	-
>FORM win1 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  306 -	pZ	-	-	-	""

>FORM tab1 ROWS 3 SIZE 3 "tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW   102   12    5   18  297 -	Ph	-	win2	-	""
WW   101   35    5   74  300 -	PWZ	-	win3	-	""
FR   100   31    4    1  296 -	pZ	-	-	-	""

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win3 ROWS 16 SIZE 106 "Personal"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
DP 24060    2   48   13   90 D8	P	-	dpValidTo	#25563	""
DP 24059   16   48   13   90 D8	P	-	dpRegDate	#25564	""
CE 24054   30   48  214   90 -	Pc	-	cbRegSeller	#25565	""
D   4193   44   48   13   76 -	P	-	edAmount	#25566	""
CB 24062   58   48  136   90 -	P	-	cbStatus	-	""
DP 24057    2  207   13   90 D8	P	-	dpUsedDate	#25567	""
CE 24055   16  207  192   90 -	Pc	-	cbUsedSeller	#25568	""
D  24044   30  207   13   76 -	P	-	edUsedReference	#25569	""
T  24045   58    5   11   41 -	p	-	-	-	"Status:"
T   2518    2    4   11   41 -	p	-	-	-	"Giltigt till:"
T   4192   16  151   11   54 -	p	-	-	-	"Använd säljare:"
T   4190   30    5   11   41 -	p	-	-	-	"Regsäljare:"
T   4191   44    6   11   41 -	p	-	-	-	"Värde:"
T   4082   16    5   11   41 -	p	-	-	-	"Regdatum:"
T  24041    2  150   11   54 -	p	-	-	-	"Använd datum:"
T  24043   30  151   11   54 -	p	-	-	-	"Använd referens:"

>FORMFILES win3 ROWS 0
#Id	sp
>FORM win2 ROWS 3 SIZE 18 "Head"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   3009    2   48   13   48 -	PU	-	edNumber	#25562	""
B3  3010    2   99   13   15 -	SxTpfF	-	pbNumber	-	"seek.bmp"
T  24053    5    5   11   36 -	p	-	-	-	"Nummer:"

>FORMFILES win2 ROWS 0
#Id	sp
>SOURCE
