>TYPE   	D
>NAME   	120_o.d
>CODE   	120_o.cod
>BY     	@(#)$Author: Peter $
>DATE   	@(#)$Date: 07-05-14 11:59 $
>VERSION	@(#)$Revision: 11 $
>ID     	1054

>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 600 SIZE 6000

>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     20    90   350   534 SBL	-	-	"-"	  0	"120 Rapportering"

>FORM MAIN ROWS 1 SIZE 1 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  3472    2    4  300  420 -	pWZ	-	win1O	-	""

>FORMFILES MAIN ROWS 0
#Id	sp
>FORM win1O ROWS 6 SIZE 52 "win1O"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  3583    0    0   32  416 -	P	-	win5O	-	""
WW  3517    0    0   32  412 -	p	-	win4O	-	""
GR  3492   34    0   92  412 -	pfWZ	-	lcTableO	-	""
TB  3542  130    0  142  416 -	pZw	-	tab1O	-	"Rapportering"
B3  3617  276    2   15   62 -	TPw	-	pbSaveRowO	-	"save.bmp,S&para rad"
B3  3616  276   68   15   62 -	TPw	-	pbNewRowO	-	"new.bmp,N&y rad"

>FORMFILES win1O ROWS 0
#Id	sp
>FORM win4O ROWS 8 SIZE 40 "TopInfo"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   3401   16   34   13  130 -	pfO	-	-	#3081	""
D   3402    2  226   13   50 -	pfO	-	-	#3211	""
D   3403    2  344   13   50 -	pfO	-	-	#3221	""
T   3405   18    2   11   30 -	p	-	-	-	"Projekt:"
T   3406    3  176   11   48 -	p	-	-	-	"Budget:"
T   3407    3  284   11   50 -	p	-	-	-	"Rapporterat:"
D   3637    2   34   13  130 -	PO	-	-	#2021	""
T   3638    4    2   11   30 -	p	-	-	-	"Kund:"

>FORMFILES win4O ROWS 0
#Id	sp
>FORM lcTableO ROWS 7 SIZE 60 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   3628    1    1   11   41 -	Hp	-	-	#3003	"Ordernr"
T   3629    1   42   11   29 -	Hp	-	-	#3403	"Radnr"
T   3630    1   71   11   36 -	Hp	-	-	#3401	"Artikelkod"
T   3631    1  107   11  130 -	Hp	-	-	#3621	"Benämning"
T   3632    1  237   11   60 -	RHp	-	-	#3531	"Budget"
T   3633    1  297   11   60 -	RHp	-	-	#3533	"Rapporterat"
T   3634    1  357   11   44 -	RHp	-	-	#3611	"Datum"

>FORMFILES lcTableO ROWS 2
#Id	sp
34	r
36	r
>FORM tab1O ROWS 1 SIZE 1 "tab2"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  3415   12    2  126  410 -	p	-	win2O	-	""

>FORMFILES tab1O ROWS 0
#Id	sp
>FORM win2O ROWS 31 SIZE 201 "rows"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
TB  3440    5  228  110  180 -	PB	-	tab2O	-	"&1 Radegn,&2.Beräkning"
D   3625    2   44   13   34 -	PU	-	edSignO	#3661	""
DP  3417   16   44   13   64 D8	P	-	dpDateO	#3611	""
D   3418   30   44   13   62 A8U	PU	-	edOrderO	-	""
D   3419   44   44   13   62 A20	PU	-	edArtCodeO	#3401	""
CE  3635   44  164   50   62 -	Hpc	-	cbStockO	#8830	""
D   3420   58   44   13  108 -	p$	-	edNameO	#3621	""
D   3421   72   44   13   60 -	P	-	edQuantityO	#3631	""
CE  3546   72  132   86   60 -	Pc	-	cbUnitO	#3431	""
D   3422   86   44   13   60 f12.2	P	-	edCostO	#3651	""
D   3423  100   44   13   60 f12.2	P	-	edDebitO	#3653	""
T   3613   88  108   11   18 -	Hp	-	txSEK	-	"SEK"
T   3547   74  114   11   17 -	p	-	txUnitR	-	"Enh:"
B3  3436   44  108   13    9 -	SxTpfF	-	pbArtPrevO	-	"arrowl.bmp"
B3  3437   44  116   13    9 -	SxTpfF	-	pbArtNextO	-	"arrowr.bmp"
B3  3426   44  124   13   15 -	SxTpfF	-	pbArtCodeO	-	"seek.bmp"
B3  3431   30  124   13   15 -	SxTpfF	-	pbOrderO	-	"seek.bmp"
B3  3430   30  116   13    9 -	SxTpfF	-	pbOrderNextO	-	"arrowr.bmp"
B3  3429   30  108   13    9 -	SxTpfF	-	pbOrderPrevO	-	"arrowl.bmp"
T   3439  102    4   11   37 -	p	-	-	-	"Debiteras:"
T   3438   88    4   11   37 -	p	-	-	-	"Kostnad:"
T   3428   74    4   11   37 -	p	-	-	-	"Antal:"
T   3433   60    4   11   37 -	p	-	-	-	"Benämning:"
T   3435   46    4   11   37 -	p	-	-	-	"Artikelkod:"
T   3427   32    4   11   37 -	p	-	-	-	"Ordernr:"
T   3432   18    4   11   37 -	p	-	-	-	"Datum:"
T   3434    4    4   11   37 -	p	-	-	-	"Signatur:"
T   3614  102  108   11   18 -	Hp	-	txVAL	-	"VAL"
B3  3627    2  152   13   15 -	SxTpfF	-	pbSignO	-	"seek.bmp"
D   3626    2   80   13   70 -	pO	-	edSignOInfo	-	""
T   3636   46  140   11   22 -	Hp	-	txStockO	-	"Lager:"

>FORMFILES win2O ROWS 0
#Id	sp
>FORM tab2O ROWS 3 SIZE 3 "tab2"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  3441   14    4   94  172 -	P	-	win3O	-	""
WW  3599   14    2   94  170 -	HP	-	win6O	-	""
WW  3641   14    2   94  176 -	P	-	win7O	-	""

>FORMFILES tab2O ROWS 0
#Id	sp
>FORM win3O ROWS 17 SIZE 118 "Radegn"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   3442    2   43   13   28 -	P	-	edRowO	#3403	""
XB  3444   16    0   13   51 -	P	-	xbDebitO	#3671	"Debiterbart:"
XB  3445   30    0   13   51 -	P	-	xbInvoiceO	#3485	"Klar att fakt:"
D   3446   45   43   13   40 -	PU	-	edAccountO	#3596	""
D   3447   58   43   13   40 -	pU	-	edObjectO	#3599	""
D   3448   72   43   13   40 -	pU	-	edDepartmentO	#3598	""
D   3449    2  120   13   50 -	P	-	edCalcPriceO	#3554	""
D   3450   16  120   13   50 -	P	-	edNormPriceO	#3551	""
T   3451   16   81   11   36 -	p	-	txNormPriceO	-	"Normalpris:"
T   3452   46    2   11   34 -	p	-	txAccountO	-	"Konto:"
T   3453   59    2   11   34 -	p	-	txObjectO	-	"Objekt:"
T   3454   74    2   11   34 -	p	-	txDepartmentO	-	"Avdelning:"
T   3455    2   81   11   36 -	p	-	txCalcPriceO	-	"Kalkylpris:"
B3  3543   43   84   13   15 -	SxTpfF	-	pbAccountO	-	"seek.bmp"
B3  3544   58   84   13   15 -	SxTpfF	-	pbObjectO	-	"seek.bmp"
B3  3545   72   84   13   15 -	SxTpfF	-	pbDepartmentO	-	"seek.bmp"
T   3443    2    2   13   21 -	p	-	txRowO	-	"Radnr:"

>FORMFILES win3O ROWS 0
#Id	sp
>FORM win5O ROWS 12 SIZE 79 "TopInfoCurr"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   3585   16   34   13  130 -	pfO	-	-	#3081	""
D   3586   16  226   13   50 -	pfO	-	-	#3213	""
D   3587   16  344   13   50 -	pfO	-	-	#3223	""
D   3588    2  226   13   50 -	pfO	-	-	#3211	""
D   3589    2  344   13   50 -	pfO	-	-	#3221	""
T   3592   18  176   11   48 -	p	-	txBudgetCurr	-	"Budget VAL:"
T   3593   18  284   11   58 -	p	-	txRappCurr	-	"Rapporterat VAL:"
T   3594    4  176   11   48 -	p	-	txBudgetSEK	-	"Budget SEK:"
T   3596    4  284   11   58 -	p	-	txRepSEK	-	"Rapporterat SEK:"
T   3598   18    2   11   30 -	p	-	-	-	"Projekt:"
D   3639    2   34   13  130 -	PO	-	-	#2021	""
T   3640    4    2   11   30 -	p	-	-	-	"Kund:"

>FORMFILES win5O ROWS 0
#Id	sp
>FORM win6O ROWS 12 SIZE 89 "Intrastat"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CE  3600    6   60  208   90 -	Pc	-	cbTransactioncodeO	#3466	""
CE  3601   20   60  178   90 -	Pc	-	cbStatisticsCodeO	#3465	""
CB  3467   34   60  160   90 -	P	-	cbPricetypeO	-	""
D   3603   48   60   13   60 -	P	-	edNetWeightO	#3468	""
D   3604   62   60   13   60 -	P	-	edOtherQuantityO	#3469	""
T   3605    8    4   11   56 -	p	-	txTransactioncodeO	-	"Transaktionskod:"
T   3606   22    4   11   54 -	p	-	txStatisticsCodeO	-	"Statistikkod:"
T   3607   36    4   11   54 -	p	-	txPricetypeO	-	"Pristyp:"
T   3608   50    4   11   54 -	p	-	txNetWeightO	-	"Nettovikt:"
T   3609   64    4   11   54 -	p	-	txOtherQuantityO	-	"Annan kvantitet:"
T   3610   50  124   11   30 -	p	-	txNetWeightPerUnitO	-	"per enh"
T   3611   64  124   11   30 -	p	-	txOtherQPerUnitO	-	"per enh"

>FORMFILES win6O ROWS 0
#Id	sp
>FORM win7O ROWS 4 SIZE 36 "Beräkning"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   3642   10    6   11   60 -	p	-	-	-	"Kostnad/enhet:"
T   3643   24    6   11   60 -	p	-	-	-	"Debiterbart/enhet:"
D   3644    8   70   13   60 f12.2	P	-	edCostPerArtO	-	""
D   3645   22   70   13   60 f12.2	P	-	edDebitPerArtO	-	""

>FORMFILES win7O ROWS 0
#Id	sp
>SOURCE
