>TYPE   	D
>NAME   	110-r.d
>CODE   	110-r.cod
>BY     	@(#)$Author: Helene $
>DATE   	@(#)$Date: 08-02-08 13:08 $
>VERSION	@(#)$Revision: 24 $
>ID     	1050

>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 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   255   432 S	-	-	"-"	  0	""

>FORM MAIN ROWS 5 SIZE 80 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
GR  3000    0    0   80  414 -	PWZ	-	lcTableR	-	""
TB  3001   82    2  154  414 -	PZw	-	tab1R	-	"Ar&tikelrad,Te&xtrad"
B3  3080  238    4   15   62 -	TPw	-	pbSaveRowR	-	"save.bmp,S&para rad"
B3  3081  238   68   15   62 -	TPw	-	pbNewRowR	-	"new.bmp,N&y rad"
B3  3082  238  132   15   62 -	TPw	-	pbDeleteRowR	-	"del.bmp,&Makulera rad"

>FORM tab1R ROWS 2 SIZE 2 "tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  3002   12    2  138  410 -	PWZ	-	win1R	-	""
WW  3083   12    2  138  410 -	P	-	win5R	-	""

>FORM win1R ROWS 24 SIZE 176 "Artikel"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  3246    4   38   12  162 -	P	-	win12R	-	""
TB  3022    2  206  136  202 -	Pu	-	tab2R	-	"&1.Setart,&2.Radegn,&3.Inköpsanmodan,&4.Beräkna"
D   3003   18   44   13   82 A20	PU	-	edArtR	#3401	""
D   3007   32   44   13  142 -	p$	-	edArtNameR	#3421	""
D   3164   46   44   13   56 -	p	-	edCalcPriceR	#3554	""
D   3008   60   44   13   56 -	p	-	edNormPriceR	#3551	""
D   3010   74   44   13   56 -	P	-	edNumberR	#3541	""
CE  3014   74  126   75   60 -	pc	-	cbUnitR	#3431	""
D   3013   88   44   13   56 f8.4	p	-	edDiscountR	#3553	""
D   3018  102   44   13   56 -	p	-	edAmountR	#3552	""
D   3020  102  126   13   58 1	pO	-	edAmountInclR	-	""
T   3021  104  106   11   17 -	p	-	txAmountInclR	-	"Inkl:"
T   3015   76  106   11   17 -	p	-	txUnitR	-	"Enh:"
T   3202   48  106   11   18 -	Hp	-	txSEK	-	"SEK"
T   3019  104    4   11   38 -	p	-	txAmountR	-	"Belopp:"
T   3012   90    4   11   38 -	p	-	-	-	"Rabatt %:"
T   3011   76    4   11   38 -	p	-	-	-	"Antal:"
T   3009   62    4   11   38 -	p	-	txNormPriceR	-	"Normalpris:"
T   3165   48    4   11   38 -	p	-	-	-	"Kalkylpris:"
T   3006   33    4   11   38 -	p	-	-	-	"Benämning:"
T   3004   20    4   11   38 -	p	-	-	-	"Artikelkod:"
B3  3157   17  128   13    9 -	SxTpfF	-	pbPrevArtR	-	"arrowl.bmp"
B3  3158   17  136   13    9 -	SxTpfF	-	pbNextArtR	-	"arrowr.bmp"
B3  3005   17  144   13   15 -	SxTpfF	-	pbArtR	-	"seek.bmp"

>FORM tab2R ROWS 7 SIZE 7 "tab2"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  3030   28    2  104  198 -	HP	-	win2R	-	""
WW  3038   28    2  104  198 -	HP	-	win3R	-	""
WW  3067   28    2  104  198 -	HP	-	win4R	-	""
WW  3107   28    2  104  198 -	HP	-	win8R	-	""
WW  3114   28    2  104  198 -	HP	-	win9R	-	""
WW  3126   28    2  106  198 -	HP	-	win10R	-	""
WW  3143   28    2  106  198 -	HP	-	win11R	-	""

>FORM lcTableR ROWS 7 SIZE 57 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   3238    1    1   11   30 -	Hp	-	-	#3403	"Rad"
T   3239    1   31   11   44 -	Hp	-	-	#3401	"Artikelkod"
T   3240    1   75   11  150 -	Hp	-	-	#3421	"Benämning"
T   3241    1  225   11   40 -	RHp	-	-	#3531	"Order"
T   3242    1  265   11   44 -	RHp	-	-	#3533	"Levererat"
T   3243    1  309   11   44 -	RHp	-	-	#3553	"Rabatt %"
T   3244    1  353   11   48 -	RHp	-	-	#8591	"Belopp"

>FORMFILES lcTableR ROWS 2
#Id	sp
34	r
10	r
>FORM win2R ROWS 8 SIZE 61 "Setart"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   3032    4   58   13   64 -	PU	-	edSetArtR	#1201	""
D   3035   18   58   13   64 -	P	-	edSetNumberR	#8332	""
DP  3142   32   58   13   66 W5	Pa	-	dpDeliveryWeekR	#8713	""
B3  3254   50   58   15   50 -	TP	-	pbGetSetArt	-	"nothing.bmp,Hämta "
T   3036   34    4   11   52 -	p	-	txLevVecka	-	"Lev.vecka:"
B3  3033    4  124   13   15 -	xTpfF	-	pbSetArtR	-	"seek.bmp"
T   3034   20    4   11   53 -	p	-	-	-	"Antal:"
T   3031    6    4   11   55 -	p	-	-	-	"Setartikel:"

>FORM win3R ROWS 29 SIZE 160 "Radegn"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   3040    4   38   13   28 -	P	-	edRowNrR	#3403	""
CE  3042   18   38   75   55 -	Pc	-	cbCategoryR	#3451	""
CE  3044   32   38   75   55 -	Pc	-	cbKalkyltypR	#3455	""
CE  3046   46   38  108   55 -	Pc	-	cbVatCodeR	#3595	""
CE  3054   60   38   75   56 -	Pc	-	cbAckR	#3591	""
D   3104    4  136   13   42 -	PU	-	edAccountR	#3596	""
D   3105   18  136   13   42 -	PU	-	edObjectR	#3599	""
D   3106   32  136   13   42 -	PU	-	edDepR	#3598	""
DP  3168   46  136   13   44 W5	Pa	-	dpDelWeekR	#3511	""
XB  3062   60   96   13   50 -	P	-	xbDebCheckR	#3481	"Deb.bart:"
XB  3170   74   96   13   50 -	P	-	xbReadyToInvR	#3485	"Klar att fakt:"
D   3058   74   38   13   54 -	pO	-	edSaldoR	-	""
D   3063   88   38   13   54 -	pO	-	edDispR	-	""
T   3059   76    4   11   34 -	p	-	-	-	"Saldo:"
T   3053   63    4   11   34 -	p	-	-	-	"Ack.rad:"
T   3039    6    4   11   34 -	p	-	txRowNr	-	"Radnr:"
T   3045   48    4   11   34 -	p	-	-	-	"Momskod:"
T   3064   90    4   11   34 -	p	-	-	-	"Disp.:"
T   3043   34    4   11   34 -	p	-	-	-	"Kalkyltyp:"
T   3049   20   98   11   37 -	p	-	txObjectR	-	"Objekt:"
T   3047    6   98   11   36 -	p	-	-	-	"Konto:"
T   3051   34   98   11   36 -	p	-	txDepR	-	"Avd.:"
B3  3159    4  180   13   15 -	SxTpfF	-	pbAccountR	-	"seek.bmp"
B3  3160   18  180   13   15 -	SxTpfF	-	pbObjectR	-	"seek.bmp"
B3  3161   32  180   13   15 -	SxTpfF	-	pbDepR	-	"seek.bmp"
T   3169   48   98   11   36 -	p	-	-	-	"Lev.vecka:"
T   3041   20    4   11   34 -	p	-	txCategoryR	-	"Kategori:"
D   3199   88  137   13   52 -	pO	-	edTBr	-	""
T   3200   90   98   11   37 -	p	-	-	-	"TG:"

>FORM win4R ROWS 12 SIZE 109 "Anmodan"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
XB  3068    4    2   13   84 -	P	-	xbPurchaseRequestR	#862	"Inköpsanmodan:"
D   3069   18   78   13   60 -	PU	-	edSupplierR	#5001	""
D   3072   32   78   13   60 -	P	-	edPurchaseRequestNoR	#5141	""
XB  3257   46    2   13   84 -	P	-	xbDirectRow	-	"Direktlev"
XB  3259   60    2   13   84 -	P	-	xbLabelFromOrder	#5019	"Benämning från order"
D   3074   74   78   13   60 -	pO	-	-	#3571	""
XB  3076   88   78   13    8 -	p	-	xbTransferedR	-	""
T   3075   76    4   11   54 -	p	-	-	-	"Tidigare anmod.:"
T   3070   20    4   11   52 -	p	-	txSupplierR	-	"Leverantörskod:"
T   3201   90    4   11   52 -	p	-	-	-	"Överförd:"
T   3073   34    4   11   52 -	p	-	txPurchaseRequestNoR	-	"Antal:"
B3  3071   18  140   13   15 -	SxTpfF	-	pbSupplierR	-	"seek.bmp"

>FORM win5R ROWS 16 SIZE 158 "Text"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
RB  3092   22   10   10   86 -	RP	-	rbAllFormsR	-	"Alla"
RB  3094   32   10   10   86 -	RP	-	rbMarkedFormsR	-	"Markerade blanketter"
XB  3095   12  116   10   70 -	Rp	-	xbFormR1	-	"Faktura"
XB  3096   22  116   10   70 -	Rp	-	xbFormR2	-	"Ordererkännande"
XB  3097   32  116   10   70 -	Rp	-	xbFormR3	-	"Arbetsorder"
XB  3098   42  116   10   70 -	Rp	-	xbFormR4	-	"Offert"
XB  3099   12  202   10   70 -	Rp	-	xbFormR5	-	"Fraktsedel"
XB  3100   22  202   10   70 -	Rp	-	xbFormR6	-	"Plocklista"
XB  3101   32  202   10   70 -	Rp	-	xbFormR7	-	"Pack-/Följesedel"
GB  3093    2    4   58  296 -	p	-	-	-	"Blanketter"
D   3089   86   46   13   36 -	P	-	edTextRowNumR	#3403	""
XB  3090   86  116   13   45 -	P	-	xbFixedText	#3437	"Fast text:"
D   3255  100   46   13  234 SA70	P$	-	edTextR	#3434	""
T   3085  102    4   10   41 -	p	-	-	-	"Fri text:"
T   3088   88    4   11   41 -	p	-	-	-	"Radnr:"
B3  3256  100  282   13   15 -	SxTpfF	-	pbTextR	-	"seek.bmp"

>FORM win8R ROWS 7 SIZE 54 "Beräkna"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   3109    5   59   13   64 f8.6	P	-	edQuantR	#3527	""
D   3111   19   59   13   64 f8.6	P	-	edLengthR	#3528	""
D   3113   33   59   13   64 f8.6	P	-	edWidthR	#3529	""
T   3108    6    4   11   54 -	p	-	-	-	"Kvantitet:"
T   3112   34    4   11   53 -	p	-	-	-	"Bredd:"
T   3110   20    4   11   54 -	p	-	-	-	"Längd:"
B3  3258   48   59   15   65 -	xQP	-	pbCalcNumber	-	"nothing.bmp,Beräkna antal"

>FORM win9R ROWS 14 SIZE 81 "Valutaklausul"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
XB  3115    4    2   13   65 -	P	-	xbClauseR	#3580	"Valutaklausul:"
T   3116   20    4   11   50 -	p	-	txCurrencyR	-	"Basvaluta:"
CE  3117   18   58  116   62 A20	Pc	-	cbCurrencyR	#3576	""
T   3118   34    4   11   50 -	p	-	txRateR	-	"Baskurs:"
CE  3119   32   58  120   62 -	Pc	-	cbRateR	#3577	""
T   3120   47    4   11   50 -	p	-	txDiffPercentR	-	"Diff %:"
D   3121   46   58   13   60 -	P	-	edDiffPercentR	#3578	""
T   3122   60    4   11   50 -	p	-	txAdjustPercentR	-	"Justering %:"
D   3123   60   58   13   60 -	P	-	edAdjustPercentR	#3579	""
D   3249   18  128   13   60 -	pfO	-	edStandardCurrencyR	-	""
D   3250   32  128   13   60 -	pfO	-	edStandardRateR	-	""
D   3251   46  128   13   60 -	pfO	-	edStandardDiffPercentR	-	""
D   3252   60  128   13   60 -	pfO	-	edStandardAdjustPercentR	-	""
T   3253    4  130   11   60 -	p	-	-	-	"Standard klausul"

>FORM win10R ROWS 14 SIZE 100 "Orderrabatt"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   3128    4   58   13   64 -	pO	-	edTotAmountR	-	""
D   3130   18   58   13   64 -	pO	-	edTBkrR	-	""
D   3132   18  154   13   31 -	pO	-	edTBPercentR	-	""
D   3134   32   58   13   31 f5.2	P	-	edDiscR	#3157	""
D   3136   46   58   13   64 f12.2	p	-	edDiscAmountR	-	""
D   3138   60   58   13   64 -	pO	-	edAmountExclDiscR	-	""
B3  3163   80   58   15   50 -	TP	-	pbSaveDiscR	-	"save.bmp,Spara"
B3  3162   80  114   15   50 -	TP	-	pbCancelDiscR	-	"del.bmp,Avbryt"
T   3135   48    4   11   48 -	p	-	-	-	"Rabattbelopp:"
T   3131   20  128   10   24 -	p	-	-	-	"TG:"
T   3137   62    4   11   48 -	p	-	-	-	"Bel. efter rab:"
T   3129   20    4   11   48 -	p	-	txTBSEK	-	"TB kr:"
T   3127    6    4   11   48 -	p	-	-	-	"Totalbelopp:"
T   3133   34    4   11   48 -	p	-	-	-	"Rabatt %:"

>FORM win11R ROWS 12 SIZE 89 "Intrastat"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CE  3144    4   62  208  126 -	Pc	-	cbTransactioncodeR	#3466	""
CE  3146   18   62  178   90 -	Pc	-	cbStatisticsCodeR	#3465	""
CB  3148   32   62  160   90 -	P	-	cbPricetypeR	-	""
D   3150   46   62   13   60 -	P	-	edNetWeightR	#3468	""
D   3151   60   62   13   60 -	P	-	edOtherQuantityR	#3469	""
T   3156   62  126   11   30 -	p	-	txOtherQPerUnitR	-	"per enh"
T   3155   48  126   11   30 -	p	-	txNetWeightPerUnitR	-	"per enh"
T   3154   61    4   11   56 -	p	-	txOtherQuantityR	-	"Annan kvantitet:"
T   3153   48    4   11   56 -	p	-	txNetWeightR	-	"Nettovikt:"
T   3149   34    4   11   56 -	p	-	txPricetypeR	-	"Pristyp:"
T   3147   20    4   11   56 -	p	-	txStatisticsCodeR	-	"Statistikkod:"
T   3145    6    4   11   56 -	p	-	txTransactioncodeR	-	"Transaktionskod:"

>FORM win12R ROWS 2 SIZE 26 "Radio"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
RB  3247    2    6   10   50 -	RP	-	rbArticleR	-	"Artikelrad"
RB  3248    2   68   10   72 -	RP	-	rbBudgetR	-	"Budget kostnad"

>SOURCE
