>TYPE   	D
>NAME   	varink.d
>CODE   	varink.cod
>BY     	@(#)$Author: Jessica $
>DATE   	@(#)$Date: 08-11-24 11:27 $
>VERSION	@(#)$Revision: 2 $
>ID     	24003

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

>TEXTINFO ROWS 3 SIZE 70
#id    value    flags    text
IDL_100  100  -  A-pris i %1
IDL_101  101  -  Kan inte hitta %1 i register %2. Ec=%3
IDL_102  102  -  Variantartikel: %1


>STACK ROWS 100 SIZE 5000

>FONT ROWS 12
#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"
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   262   316 SB	-	-	"-"	  0	"Variantartikel"

>FORM MAIN ROWS 6 SIZE 63 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
GR    11    6    4   90  304 -	PWZ	-	lcGrid	-	""
TB    25  146    6  100  250 -	PZw	-	tab1	-	"Raddata"
B3    24  212  260   15   50 -	TPwz	-	pbOK	-	"ok.bmp,&OK"
B3     2  230  260   15   50 -	TPwz	-	pbAbort	-	"cancel.bmp,Av&bryt"
WW    13  100    4   42  252 -	PZw	-	win1	-	""
B3    52  104  260   15   50 -	QP	-	pbSaldo	-	"nothing.bmp,&Saldoinfo"

>FORM win1 ROWS 9 SIZE 50 "win1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D     15    8   48   13   60 -	PO	-	edSaldo	#1132	""
D     16    8  170   13   60 -	PO	-	edOrdered	-	""
D     17   22   48   13   60 -	PO	-	edDisp	-	""
T     18   10    8   11   40 -	p	-	-	-	"Saldo:"
T     19   10  132   11   38 -	p	-	-	-	"Beställt:"
T     20   24    8   11   40 -	p	-	-	-	"Disponibelt:"
D     48   22  170   13   60 -	pO	-	edPurchasePrice	-	""
T     49   24  132   11   38 -	p	-	-	-	"A-pris:"
GB    14    0    2   39  246 -	pZ	-	gbFrame	-	"Artikel"

>FORMFILES win1 ROWS 0
#Id	sp
>FORM tab1 ROWS 1 SIZE 1 "tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW    27   14    2   84  244 -	P	-	win2	-	""

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win2 ROWS 16 SIZE 117 "win2"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D     28    2   58   13   60 F12.2	P	-	edPrice	-	""
D     29   16   58   13   60 f	P	-	edDisc	-	""
DP    41   30   58   13   44 W5	Pa	-	dpDeliveryWeek	-	""
CE    55   44   58   50   82 -	HPc	-	cbStock	#8829	""
XB    60   45  158   10   76 -	RP	-	xbRecalc	#861	"Räkna om pris"
XB    58   55  158   10   76 -	RP	-	xbChangeWeek	#864	"Lev.vecka"
XB    59   65  158   10   72 -	RHP	-	xbChangeStock	#863	"Lager"
T     47    4  124   11   58 -	p	-	txRate	-	"Kurs:"
T     42   32    2   11   52 -	p	-	-	-	"Lev.vecka:"
T     51   18  124   11   58 -	p	-	txPriceSEK	-	"A-pris i kr:"
T     32   18    2   11   52 -	p	-	-	-	"Rabatt %:"
T     56   46    2   11   52 -	Hp	-	txStock	-	"Lager:"
D     50   16  182   13   60 F12.2	p	-	edPriceSEK	-	""
T     30    4    2   11   52 -	p	-	-	-	"A-pris:"
D     46    2  182   13   60 F	p	-	edRate	-	""
GB    57   35  151   44   90 -	p	-	-	-	"Ändra på befintliga rader"

>FORMFILES win2 ROWS 0
#Id	sp
>FORM lcGrid ROWS 1 SIZE 1 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D     40    2    4   13   34 f8.4	HP	-	edQuant	-	""

>FORMFILES lcGrid ROWS 0
#Id	sp
>SOURCE
