>TYPE   	D
>NAME   	469.d
>CODE   	469.cod
>BY     	@(#)$Author: Helene $
>DATE   	@(#)$Date: 06-12-29 13:58 $
>VERSION	@(#)$Revision: 2 $
>ID     	13006

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

>TEXTINFO ROWS 3 SIZE 83
#id    value    flags    text
IDL_100  100  -  Kan ej behandlas i denna rutin
IDL_101  101  -  Till lager måste anges
IDL_102  102  -  Blankt = byter på alla rader


>STACK ROWS 200 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	leget.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   204 SB	-	-	"-"	  0	"469 Byt lager på order/inköp"

>FORM MAIN ROWS 6 SIZE 31 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4091   18    0   16  200 -	P	-	win10	-	""
WW  4094   36    2   92  198 -	P	-	win11	-	""
WW  4072   36    2   92  198 -	P	-	win9	-	""
PB  4076  134   90   15   50 -	Pwz	-	pbChangeStock	-	"&Byt lager"
B3     2  134  148   15   50 -	xTPwz	-	-	-	"exit.bmp,St&äng"
WW   621    0    4   16  196 -	PZz	-	win8	-	""

>FORM win8 ROWS 23 SIZE 23 "Tool"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
FR  1990    0    8   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    6   13   15 -	STHpfF	-	pbTool	-	""
B3  2002    0    8   13   15 -	STHpfF	-	pbTool	-	""
B3  2003    0    6   13   15 -	STHpfF	-	pbTool	-	""
B3  2004    0    4   13   15 -	STHpfF	-	pbTool	-	""
B3  2005    0    4   13   15 -	STHpfF	-	pbTool	-	""
B3  2006    0    4   13   15 -	STHpfF	-	pbTool	-	""
B3  2007    0    4   13   15 -	STHpfF	-	pbTool	-	""
B3  2008    0    4   13   15 -	STHpfF	-	pbTool	-	""
B3  2009    0    4   13   15 -	STHpfF	-	pbTool	-	""
B3  2010    0    4   13   15 -	STHpfF	-	pbTool	-	""
B3  2011    0    4   13   15 -	STHpfF	-	pbTool	-	""
B3  2012    0    4   13   15 -	STHpfF	-	pbTool	-	""
B3  2013    0    4   13   15 -	STHpfF	-	pbTool	-	""
B3  2014    0    4   13   15 -	STHpfF	-	pbTool	-	""
FU  4071    0    0   15  194 -	pZ	-	-	-	""

>FORMFILES win8 ROWS 5
#Id	sp
2	r
10	r
34	r
80	r
199	r
>FORM win9 ROWS 14 SIZE 136 "Order"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   4074    4   72   13   56 A8	PU	-	edOrder	-	""
D   4075   18   72   13   72 A25	pO	-	-	#3001	""
D   4082   32   72   13  122 -	pO	-	-	#3081	""
CE  4084   46   72  184   90 -	Pc	-	cbFromStock	#841	""
CE  4086   60   72  184   90 -	Pc	-	cbToStock	#849	""
XB  4090   74    2   13  160 -	P	-	xbHead	-	"Byt även på orderhuvudet"
T   4083   34    2   11   68 -	p	-	-	-	"Projektnamn:"
T   4081   20    2   11   68 -	p	-	-	-	"Kundkod:"
T   4085   48    2   11   68 -	p	-	-	-	"Från lager:"
B3  4079    4  148   13   15 -	SxTpfF	-	pbSearchOrder	-	"seek.bmp"
T   4087   62    2   11   68 -	p	-	-	-	"Till lager:"
B3  4088    4  138   13    9 -	SxTpfF	-	pbNextOrder	-	"arrowr.bmp"
B3  4089    4  130   13    9 -	SxTpfF	-	pbPrevOrder	-	"arrowl.bmp"
T   4080    6    2   11   68 -	p	-	-	-	"Ordernr:"

>FORMFILES win9 ROWS 5
#Id	sp
34	r
10	r
199	r
2	r
80	r
>FORM win10 ROWS 2 SIZE 38 "Command"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3  4092    0    2   15   50 -	TPM	-	pbOrder	-	"nothing.bmp,&Order"
B3  4093    0   58   15   50 -	TPM	-	pbPurchase	-	"nothing.bmp,&Inköp"

>FORMFILES win10 ROWS 0
#Id	sp
>FORM win11 ROWS 14 SIZE 145 "Purchase"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   4096    4   72   13   56 A8	PU	-	edPurchase	-	""
D   4101   18   72   13   72 A25	pO	-	-	#5201	""
D   4103   32   72   13  122 -	pO	-	-	#5241	""
CE  4105   46   72  184   90 -	Pc	-	cbFromStockPurchase	#841	""
CE  4107   60   72  184   90 -	Pc	-	cbToStockPurchase	#849	""
XB  4108   74    2   13  160 -	P	-	xbHeadPurchase	-	"Byt även på inköpshuvudet"
T   4095    6    2   11   68 -	p	-	-	-	"Inköpsnr:"
T   4102   34    2   11   68 -	p	-	-	-	"Inköpsnamn:"
B3  4097    4  130   13    9 -	SxTpfF	-	pbPrevPurchase	-	"arrowl.bmp"
T   4104   48    2   11   68 -	p	-	-	-	"Från lager:"
B3  4098    4  138   13    9 -	SxTpfF	-	pbNextPurchase	-	"arrowr.bmp"
T   4106   62    2   11   68 -	p	-	-	-	"Till lager:"
B3  4099    4  148   13   15 -	SxTpfF	-	pbSearchPurchase	-	"seek.bmp"
T   4100   20    2   11   68 -	p	-	-	-	"Leverantörskod:"

>FORMFILES win11 ROWS 0
#Id	sp
>SOURCE
