>TYPE   	D
>NAME   	520.d
>CODE   	520.cod
>BY     	@(#)$Author: Peter $
>DATE   	
>VERSION	@(#)$Revision: 6 $
>ID     	5006

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

>TEXTINFO ROWS 8 SIZE 129
#id    value    flags    text
IDL_100  100  -  Reserverad
IDL_101  101  -  Avreserverad
IDL_102  102  -  Spärrad
IDL_103  103  -  Ingen åtgärd
IDL_104  104  -  TO saknas
IDL_105  105  -  BLANKT = Första startveckan
IDL_106  106  -  BLANKT = Sista startveckan
IDL_107  107  -  Rad måste markeras


>STACK ROWS 100 SIZE 5000

>FONT ROWS 12
#id Hgt Wth Esc Ori Wgt Ita  Ul Sth Chs Opr Clp Qua Pch Name
1   -21   0   0   0 400   0  0   0   0   0   0   0   0 "MS Sans Serif"
2   -17   0   0   0 400   1  1   0   0   0   0   0   0 "Times Rmn"
3   -21   0   0   0 400   0  0   0   0   0   0   0   0 "President"
4    -9   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
5   -11   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
6   -11   0   0   0 400   1  0   0   0   0   0   0   0 "Arial"
7   -11   0   0   0 700   0  0   0   0   0   0   0   0 "Arial"
8   -13   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
9   -13   0   0   0 400   1  0   0   0   0   0   0   0 "Arial"
A   -13   0   0   0 700   0  0   0   0   0   0   0   0 "Arial"
B   -16   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
C   -19   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"


>COLOR ROWS 8
#id color	comment
1   0xff0000   	""
2   0xff       	""
3   0xff00ff   	""
4   0xffffff   	""
5   0xc0c0c0   	""
6   0x80       	""
7   0x808080   	""
8   0x0        	""


>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   308   398 SB	-	-	"-"	  0	"520 Reservering"

>FORM MAIN ROWS 6 SIZE 119 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4179   18    2   18  392 -	P	-	win6	-	""
GR  4072   38    4  104  336 -	PWZ	-	lcTable	-	""
TB  4122  145    4  133  336 -	PZw	-	tab1	-	"Urvals&kriterier"
B3  4105  156  344   15   50 -	TDPw	-	pbExecute	-	"ok.bmp,&Verkställ"
B3     2  263  344   15   50 -	TPw	-	pbExit	-	"exit.bmp,St&äng"
WW    11    0    4   16  391 -	PZ	-	win1	-	""

>FORM win1 ROWS 23 SIZE 23 "menu"
#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    9   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  390 -	pZ	-	-	-	""

>FORM tab1 ROWS 1 SIZE 1 "tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4123   14    4  115  320 -	P	-	win5	-	""

>FORM win5 ROWS 24 SIZE 173 "win5"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   4126    3   43   13   60 A8	PU	-	edStart	#841	""
D   4127   17   43   13   60 A8	PU	-	edEnd	#849	""
D   4139   31   43   13   60 A3	PU	-	edType	#851	""
D   4141   45   43   13   60 A8	PU	-	edGroup	#854	""
D   4143   59   43   13   60 A8	PU	-	EdArea	#853	""
DP  4132   73   43   13   44 W5	Pa	-	dpFran	#844	""
DP  4134   74   93   13   44 W5	Pa	-	dpTill	#846	""
D   4176    5  184   13   60 -	P	-	edStatus	-	""
PB  4164   97    2   15   52 -	P	-	pbSelect	-	"Hämta &urval"
PB  4165   97   58   15   52 -	P	-	pbRemove	-	"&Töm urval"
PB  4166   97  114   15   52 -	P	-	pbDelete	-	"Ra&dera rad"
T   4130    5    2   11   41 -	p	-	-	-	"Från tillv.nr:"
T   4144   61    2   11   41 -	p	-	-	-	"Område:"
T   4146   75   89   11    4 -	p	-	-	-	"-"
B3  4149    2  105   13   15 -	STPfF	-	pbStart	-	"seek.bmp"
B3  4150   16  105   13   15 -	STPfF	-	pbEnd	-	"seek.bmp"
B3  4151   30  105   13   15 -	STPfF	-	pbType	-	"seek.bmp"
B3  4152   43  105   14   15 -	STPfF	-	pbGroup	-	"seek.bmp"
T   4135   75    2   11   41 -	p	-	-	-	"Startveckor:"
T   4131   19    2   11   41 -	p	-	-	-	"Till tillv.nr:"
T   4138   33    2   11   41 -	p	-	-	-	"Till typ:"
T   4142   47    2   11   41 -	p	-	-	-	"Grupp:"
T   4177    7  142   11   41 -	p	-	-	-	"Tillv.status:"
B3  4178    5  244   13   15 -	STPfF	-	pbStatus	-	"seek.bmp"

>FORM lcTable ROWS 4 SIZE 41 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   4172    1    1   11   40 -	Hp	-	-	#7501	"Tillv.nr"
T   4173    1   41   11  118 -	Hp	-	-	#7581	"Ordernamn"
T   4174    1  159   11   41 -	Hp	-	-	#7505	"Produktkod"
T   4175    1  201   11   43 -	Hp	-	-	#8833	"Meddelande"

>FORMFILES lcTable ROWS 1
#Id	sp
75	r
>FORM win6 ROWS 3 SIZE 68 "win6"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3  4073    2    2   15   75 -	TPM	-	pbReserv	-	"edit.bmp,R&eservera"
B3  4075    2   79   15   75 -	TPM	-	pbUnreserv	-	"edit.bmp,Avre&servera"
B3  4076    2  156   15   75 -	TPM	-	pbChange	-	"edit.bmp,Ä&ndra status"

>FORMFILES win6 ROWS 0
#Id	sp
>SOURCE
