>TYPE   	D
>NAME   	430-R.d
>CODE   	430-R.cod
>BY     	@(#)$Author: Helene $
>DATE   	@(#)$Date: 08-03-11 16:18 $
>VERSION	@(#)$Revision: 11 $
>ID     	4053

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

>TEXTINFO ROWS 0 SIZE 0
#id    value    flags    text


>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 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   230   425 S	-	-	"-"	  0	"Untitled.d"

>FORM MAIN ROWS 1 SIZE 1 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  3000    2    6  238  414 -	PWZ	-	win1R	-	""

>FORMFILES MAIN ROWS 1
#Id	sp
54	r
>FORM win1R ROWS 3 SIZE 32 "win1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
GR  3001    0    4   60  402 -	pWZ	-	lcTableR	-	""
TB  3002   62    4  148  400 -	PZ	-	tab1R	-	"Ar&tikelrad,Te&xtrad,Anm&odan"
WW  3094  212    4   17  398 -	P	-	win10R	-	""

>FORMFILES win1R ROWS 0
#Id	sp
>FORM tab1R ROWS 3 SIZE 3 "tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  3003   12    6  134  390 -	PZ	-	win2R	-	""
WW  3004   13    4  134  390 -	PZ	-	win3R	-	""
WW  3005   16    8  124  384 -	PZ	-	win4R	-	""

>FORMFILES tab1R ROWS 0
#Id	sp
>FORM win2R ROWS 22 SIZE 175 "Artrad"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   3006    2   44   13   60 A20	PU$	-	edArtR	#5410	""
B3  3135    2  108   13    9 -	xTpfF	-	pbArtPrevR	-	"arrowl.bmp"
B3  3136    2  116   13    9 -	xTpfF	-	pbArtNextR	-	"arrowr.bmp"
B3  3010    2  126   13   15 -	xTpfF	-	pbArtR	-	"seek.bmp"
D   3011   16   44   13  144 -	P$	-	edNameR	#5421	""
D   3012   30   44   13   60 -	P$	-	edSuppArtR	#5411	""
D   3013   44   44   13   60 F	P	-	edAPriceR	-	""
D   3015   58   44   13   60 -	P	-	edQuantR	#5541	""
CE  3156   58  130  100   60 -	pc	-	cbUnitR	#5431	""
D   3014   72   44   13   60 -	P	-	edDiscountR	#5553	""
D   3031   86   44   13   60 -	P	-	edPriceR	#8572	""
DP  3027  100   44   50   60 W5	Pa	-	dpDelivWeekR	#5511	""
T   3179    4    2   11   42 -	p	-	txArtR	-	"Artikelkod:"
T   3017   18    2   11   42 -	p	-	txNameR	-	"Benämning:"
T   3018   32    2   11   42 -	p	-	txSuppArtR	-	"Lev art.kod:"
T   3019   46    2   11   42 -	p	-	txAPriceR	-	"A-pris:"
T   3021   60    2   11   42 -	p	-	txQuantR	-	"Antal:"
T   3180   74    2   11   42 -	p	-	txDiscountR	-	"Rabatt:"
T   3032   88    2   11   42 -	p	-	txPriceR	-	"Pris:"
T   3028  102    2   11   42 -	p	-	txDelivWeekR	-	"Lev vecka:"
T   3155   61  109   11   19 -	p	-	txUnitR	-	"Enh:"
TB  3029    2  194  130  192 -	PZu	-	tab2R	-	"&1.Setart,&2.Radegn,&3.Beräkna,&4.Valuta,&4.Intrastat"

>FORMFILES win2R ROWS 0
#Id	sp
>FORM win3R ROWS 5 SIZE 28 "Textrad"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   3090    4   54   13   42 -	p	-	edTextRownrR	#5402	""
D   3137   18   54   13  296 S	P$	-	edTextR	#5434	""
T   3092    5    6   11   46 -	p	-	txTextRownrR	-	"Radnr:"
T   3186   20    6   11   46 -	p	-	txTextR	-	"Fri text:"
B3  3259   18  354   13   15 -	xTpfF	-	pbTextR	-	"seek.bmp"

>FORMFILES win3R ROWS 0
#Id	sp
>FORM win4R ROWS 11 SIZE 76 "Anmodan"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   3138   10   48   13   60 -	PU	-	edReqFromOrderR	#841	""
D   3139   24   48   13   60 -	PU	-	edReqToOrderR	#849	""
DP  3140   38   48   13   46 W5	Pa	-	dpReqFromWeekR	#844	""
DP  3141   38  100   13   46 W5	Pa	-	dpReqToWeekR	#846	""
PB  3148   66   70   13   76 -	P	-	pbReqOKR	-	"Verkstä&ll"
T   3143   26    4   11   42 -	p	-	txReqToOrderR	-	"Till ordernr:"
T   3144   40    4   11   42 -	p	-	txReqWeekR	-	"Lev veckor:"
T   3145   40   92   11    6 -	p	-	-	-	" -"
B3  3146   10  112   13   15 -	xTPfF	-	pbReqFromOrderR	-	"seek.bmp"
B3  3147   24  112   13   15 -	xTPfF	-	pbReqToOrderR	-	"seek.bmp"
T   3185   12    4   11   42 -	p	-	txReqFromOrderR	-	"Från ordernr:"

>FORM lcTableR ROWS 7 SIZE 61 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   3247    1    1   11   23 -	Hph	-	-	#5402	"Radnr"
T   3248    1   24   11   44 -	Hp	-	-	#5410	"Artikelkod"
T   3249    1   68   11  136 -	Hp	-	-	#5421	"Benämning"
T   3250    1  204   11   38 -	RHp	-	-	#5531	"Antal"
T   3251    1  242   11   44 -	RHp	-	-	#5533	"Lev.antal"
T   3252    1  286   11   52 -	RHp	-	-	#8574	"Belopp "
T   3253    1  338   11   38 -	Hp	-	-	#5511	"Lev.vecka"

>FORMFILES lcTableR ROWS 4
#Id	sp
54	r
10	r
30	r
34	r
>FORM win10R ROWS 4 SIZE 84 "win10"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3  3254    2    6   15   62 -	TP	-	pbSaveR	-	"save.bmp,S&para rad"
B3  3255    2   72   15   62 -	TP	-	pbNewR	-	"new.bmp,N&y rad"
B3  3256    2  138   15   62 -	TP	-	pbMakR	-	"del.bmp,&Makulera rad"
B3  3257    2  204   15   62 -	TP	-	pbAutoR	-	"nothing.bmp,Automat&inköp"

>FORMFILES win10R ROWS 0
#Id	sp
>FORM tab2R ROWS 5 SIZE 5 "tab3"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  3159   28    2  100  188 -	P	-	win11R	-	""
WW  3066   28    2  100  188 -	P	-	win9R	-	""
WW  3030   28    4  100  188 -	P	-	win6R	-	""
WW  3033   28    2  100  188 -	P	-	win7R	-	""
WW  3263   28    2  100  188 -	P	-	win12R	-	""

>FORMFILES tab2R ROWS 0
#Id	sp
>FORM win6R ROWS 8 SIZE 61 "Setartiklar"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   3103    6   48   13   78 -	PU$	-	edSetArtR	#1201	""
D   3104   20   48   13   78 f6.2	P	-	edSetQuantR	#8341	""
DP  3105   34   48   13   78 W4	Pn	-	dpSetSupWeekR	#8713	""
B3  3258   54   48   15   50 -	TP	-	pbGetSetArt	-	"nothing.bmp,Hämta"
T   3107   36    2   11   44 -	p	-	txSetSuppWeekR	-	"Lev. vecka:"
T   3108    8    2   11   44 -	p	-	txSetArtR	-	"Setartikel:"
B3  3184    7  129   13   15 -	xTpfF	-	pbSetArtR	-	"seek.bmp"
T   3106   22    2   11   44 -	p	-	txSetQuantR	-	"Antal:"

>FORMFILES win6R ROWS 0
#Id	sp
>FORM win7R ROWS 25 SIZE 139 "Radegn"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   3110    2   44   13   24 -	P	-	edRowR	#5402	""
D   3111   16   44   13   22 -	pO	-	edCatR	#5451	""
CB  3115   30   44  100   70 -	P	-	cbDelivUnitR	#5432	""
D   3116   44   44   13   60 -	P	-	edDelivUnitQuantR	#5542	""
CB  3260   58   44   50   88 -	P	-	cbOriginR	-	""
D   3117   72   44   13   60 -	PU	-	edOrderNrR	-	""
D   3118   86   44   13   60 -	P	-	edOrderRowR	#5417	""
D   3112    2  140   13   32 -	P	-	edAcountR	#5596	""
D   3113   16  140   13   32 -	PU	-	edObjR	#5599	""
D   3114   30  140   13   32 -	PU	-	edDepR	#5598	""
T   3125   88    2   11   39 -	p	-	txOrderRowR	-	"Orderrad:"
B3  3126   72  106   13   15 -	xTpfF	-	pbOrderNrR	-	"seek.bmp"
T   3127    4  116   11   22 -	p	-	txAcountR	-	"Konto:"
T   3128   18  116   11   22 -	p	-	txObjR	-	"Obj:"
T   3134   32  116   11   22 -	p	-	txDepR	-	"Avd:"
T   3119   18    2   11   38 -	p	-	txCatR	-	"Kategori:"
T   3123   46    2   11   39 -	p	-	txDelivUnitQuantR	-	"Antal:"
T   3120    4    2   11   39 -	p	-	txRowR	-	"Radnr:"
T   3122   32    2   11   39 -	p	-	txDelivUnitR	-	"Inlev. enhet:"
B3  3154    2  172   13   15 -	xTpfF	-	pbAcountR	-	"seek.bmp"
B3  3157   16  172   13   15 -	xTpfF	-	pbObjR	-	"seek.bmp"
B3  3183   30  172   13   15 -	xTpfF	-	pbDepR	-	"seek.bmp"
T   3124   74    2   11   39 -	p	-	txOrderNrR	-	"Ordernr:"
T   3261   60    2   11   39 -	p	-	txOriginR	-	"Ursprung:"
B3  3262   86  106   13   15 -	xTpfF	-	pbOrderRowR	-	"seek.bmp"

>FORMFILES win7R ROWS 0
#Id	sp
>FORM win9R ROWS 4 SIZE 19 "Valuta"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CE  3129    2   48  100   60 -	Pc	-	cbExchangeRateR	#5585	""
D   3130   16   48   13   60 -	P	-	edAPriceSEKR	#5551	""
T   3131    4    2   11   44 -	p	-	txRateR	-	"Kurs:"
T   3182   18    2   11   44 -	p	-	txSEKPriceR	-	"A-pris SEK"

>FORMFILES win9R ROWS 0
#Id	sp
>FORM win11R ROWS 16 SIZE 115 "Intrastat"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CE  3161    2   70  208   90 -	Pc	-	cbTransactioncodeR	#5466	""
CE  3174   16   70  100   90 -	Pc	-	cbCountryR	#5586	""
CE  3176   30   70  100   90 -	Pc	-	cbTranspCodeR	#5587	""
CE  3163   44   70  178   90 -	Pc	-	cbStatisticsCodeR	#5465	""
CB  3165   58   70  100   90 -	P	-	cbPricetypeR	#5467	""
D   3167   72   70   13   60 -	P	-	edNetWeightR	#5468	""
D   3170   86   70   13   60 -	P	-	edOtherQuantityR	#5469	""
T   3164   60    2   11   66 -	p	-	txPricetypeR	-	"Pristyp:"
T   3168   74  136   11   30 -	p	-	txNetWeightPerUnitR	-	"per enh"
T   3169   88    2   11   66 -	p	-	txOtherQuantityR	-	"Annan kvantitet:"
T   3166   74    2   11   66 -	p	-	txNetWeightR	-	"Nettovikt:"
T   3171   88  136   11   30 -	p	-	txOtherQuantityPerUnitR	-	"per enh"
T   3160    4    2   11   66 -	p	-	txTransactioncodeR	-	"Transaktionskod:"
T   3162   46    2   11   66 -	p	-	txStatisticsCodeR	-	"Statistikkod:"
T   3177   18    2   11   66 -	p	-	txCountryR	-	"Landskod:"
T   3181   32    2   11   66 -	p	-	txTranspCodeR	-	"Transportkod:"

>FORMFILES win11R ROWS 0
#Id	sp
>FORM win12R ROWS 7 SIZE 54 "Beräkna"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   3264    4    2   11   40 -	p	-	-	-	"Kvantitet:"
D   3265    2   44   13   64 f8.6	P	-	edCalcQuant	#5527	""
T   3266   18    2   11   40 -	p	-	-	-	"Längd:"
D   3267   16   44   13   64 f8.6	P	-	edLengthR	#5528	""
T   3268   32    2   11   40 -	p	-	-	-	"Bredd:"
D   3269   30   44   13   64 f8.6	P	-	edWidthR	#5529	""
B3  3270   46   45   15   65 -	QP	-	pbCalcNumber	-	"nothing.bmp,Beräkna antal"

>FORMFILES win12R ROWS 0
#Id	sp
>SOURCE
