>TYPE   	D
>NAME   	470purs.d
>CODE   	470purs.cod
>BY     	@(#)$Author: Sture $
>DATE   	@(#)$Date: 05-05-12 13:56 $
>VERSION	@(#)$Revision: 2 $
>ID     	4097

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

>TEXTINFO ROWS 2 SIZE 40
#id    value    flags    text
IDL_102  102  -  Inköpstyp måste anges
IDL_103  103  -  Lager måste anges


>STACK ROWS 100 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   200   350 S	-	-	"-"	  8	"Skapa inköp"

>FORM MAIN ROWS 11 SIZE 98 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CE    16  110   60   84   90 -	Pc	-	cbPurchaseType	#851	""
CE    24  124   60   84   90 -	Pc	-	cbSignature	#852	""
CE    52  138   60   84   90 -	Pc	-	cbStock	#855	""
XB    34  152    8   13   60 -	P	-	xbPrint	#863	"Direktutskrift:"
B3    53   10  285   15   54 -	TP	-	pbTransfer	-	"ok.bmp,&Verkställ"
B3     2  165  290   15   54 -	TP	-	pbCancel	-	"exit.bmp,&Stäng"
T     33  140   10   11   48 -	p	-	txStock	-	"Lager:"
T     23  126   10   11   48 -	p	-	-	-	"Vår referens:"
GR    49   10   10   95  265 -	PWZ	-	lcPurchase	-	""
T     17  112   10   11   48 -	p	-	-	-	"Inköpstyp:"
PB    54   30  285   13   55 -	P	-	pbPurchase	-	"Ändra inköp"

>FORMFILES MAIN ROWS 0
#Id	sp
>FORM lcPurchase ROWS 4 SIZE 35 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T     50    0    1   11   40 -	Hph	-	-	#5203	"Inköpsnr"
T     51    0   41   11   35 -	Hp	-	-	#5201	"Lev.kod"
T     55    0   76   11  100 -	Hp	-	-	#2021	"Leverantör"
T     56    0  176   11   60 -	RHp	-	-	#5321	"Belopp"

>FORMFILES lcPurchase ROWS 2
#Id	sp
52	r
20	r
>SOURCE
