>TYPE   	D
>NAME   	celf-p.d
>CODE   	celf-p.cod
>BY     	@(#)$Author: Annhe $
>DATE   	@(#)$Date: 06-04-20 13:31 $
>VERSION	@(#)$Revision: 11 $
>ID     	3035

>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 12
#id Hgt Wth Esc Ori Wgt Ita  Ul Sth Chs Opr Clp Qua Pch Name
1   -21   0   0   0 400   0  0   0   0   0   0   0   0 "MS Sans Serif"
2   -17   0   0   0 400   1  1   0   0   0   0   0   0 "Times Rmn"
3   -21   0   0   0 400   0  0   0   0   0   0   0   0 "President"
4    -9   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
5   -11   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
6   -11   0   0   0 400   1  0   0   0   0   0   0   0 "Arial"
7   -11   0   0   0 700   0  0   0   0   0   0   0   0 "Arial"
8   -13   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
9   -13   0   0   0 400   1  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 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   240   435 S	-	-	"-"	  0	""

>FORM MAIN ROWS 1 SIZE 1 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  5000    4    4  240  426 -	PWZ	-	win1I	-	""

>FORMFILES MAIN ROWS 0
#Id	sp
>FORM win1I ROWS 2 SIZE 16 "mainI"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
TB  5002   84    0  156  420 -	PZw	-	tab1I	-	"Inköpspåföring"
GR  5001    0    0   80  420 -	PWZ	-	lcTableI	-	""

>FORM tab1I ROWS 1 SIZE 1 "tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  5003   12    2  140  416 -	PZ	-	win2I	-	""

>FORMFILES tab1I ROWS 0
#Id	sp
>FORM win2I ROWS 27 SIZE 268 "CodeI"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
RB  5215    8    2   10   80 -	RP	-	rbDeliverI	-	"Registrera/Inleverera"
RB  5123    8   86   10   86 -	RP	-	rbBalanceI	-	"Registrera/Avstäm pris"
RB  5340    8  174   10   52 -	RP	-	rbChargesI	-	"Hemtagning"
D   5004   20   42   13   60 -	PU	-	edPurchaseI	-	""
D   5210   34   42   13   96 -	PU	-	edArtCodeI	#5410	""
D   5343   48   42   13   60 -	pO	-	edSuppCodeI	#5411	""
CE  5347   48  138  176   86 A12	HPc	-	cbStockI	#8830	""
D   5344   62   42   13  181 -	pO$	-	edNameI	#5421	""
D   5345   76   42   13   54 -	P	-	edNumberI	#12821	""
WW  5199   90    0   32  224 -	P	-	win7I	-	""
PB  5017  123    2   14   54 -	P	-	pbSaveRowI	-	"S&para rad"
PB  5018  123   58   14   54 -	P	-	pbNewRowI	-	"N&y rad"
PB  5019  123  114   14   54 -	xP	-	pbDeleteRowI	-	"Maku&lera rad"
TB  5030    5  230  132  182 -	PB	-	tab2I	-	"&1.Rad,&2.Hemtagning,&3.Intrastat"
T   5272   79    2   11   38 -	p	-	txNumberI	-	"Antal:"
T   5271   65    2   11   38 -	p	-	-	-	"Benämning:"
T   5270   50    2   11   38 -	p	-	-	-	"Lev art.kod:"
T   5211   35    2   11   38 -	p	-	-	-	"Artikelkod:"
T   5024   21    2   11   38 -	p	-	-	-	"Inköpsnr:"
B3  5022   21  121   13   15 -	SxTpfF	-	pbPurchaseI	-	"seek.bmp"
B3  5209   34  158   13   15 -	SxTpfF	-	pbArtCodeI	-	"seek.bmp"
T   5346   50  108   11   26 -	Hp	-	txStockI	-	"Lager:"
PB  5422  123  170   14   56 -	P	-	pbShowRowsI	-	"Visa ursp.rader"
B3  5455   21  104   13    9 -	SxTpfF	-	pbPrevPurchaseI	-	"arrowl.bmp"
B3  5456   21  112   13    9 -	SxTpfF	-	pbNextPurchaseI	-	"arrowr.bmp"
B3  5457   34  141   13    9 -	SxTpfF	-	pbPrevArtI	-	"arrowl.bmp"
B3  5458   34  149   13    9 -	SxTpfF	-	pbNextArtI	-	"arrowr.bmp"

>FORMFILES win2I ROWS 0
#Id	sp
>FORM lcTableI ROWS 10 SIZE 78 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   5443    1    1   11   20 -	Hp	-	-	#12007	"Rad"
T   5444    1   21   11   30 -	Hp	-	-	#12010	"Konto"
T   5445    1   51   11   40 -	Hp	-	-	#12021	"Objekt"
T   5446    1   91   11   35 -	Hp	-	-	#12022	"Avdelning"
T   5447    1  126   11   70 -	RHp	-	-	#8851	"Debet"
T   5448    1  196   11   70 -	RHp	-	-	#8852	"Kredit"
T   5449    1  266   11   40 -	RHp	-	-	#12061	"Inköpsnr"
T   5450    1  306   11   40 -	RHp	-	-	#12063	"Rad"
T   5451    1  346   11   50 -	RHp	-	-	#8110	"Artikelkod"
T   5459    1  396   11    0 -	RHp	-	-	#8832	"Pubokposition"

>FORMFILES lcTableI ROWS 2
#Id	sp
120	r
54	r
>FORM tab2I ROWS 4 SIZE 4 "tab2"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  5041   14    2  116  178 -	HP	-	win4I	-	""
WW  5168   14    2  116  178 -	HP	-	win5I	-	""
WW  5217   14    2  116  178 -	HP	-	win8I	-	""
WW  5415   14    2  116  178 -	P	-	win12I	-	""

>FORMFILES tab2I ROWS 0
#Id	sp
>FORM win4I ROWS 9 SIZE 39 "RowI"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
XB  5146    2    0   13   60 -	HP	-	xbOrderI	#865	"Orderpåföring:"
CB  5151   16   62   50  114 -	P	-	cbPurchaseUnitI	-	""
WW  5325   30    0   86  176 -	P	-	win11I	-	""
WW  5309   30    0   86  176 -	P	-	win10I	-	""
T   5152   19    2   11   57 -	p	-	txPurchaseUnitI	-	"Enhet:"
T   5149    3   66   11   22 -	Hp	-	txOrderI	-	"Order:"
D   5147    2   88   13   38 -	HpO	-	edOrderI	#5415	""
T   5150    3  130   11   18 -	Hp	-	txOrderRowI	-	"Rad:"
D   5148    2  150   13   24 -	HpO	-	edOrderRowI	#5417	""

>FORM win5I ROWS 6 SIZE 31 "Freight"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   5169    2   62   13   60 -	P	-	-	#3655	""
D   5171   16   62   13   60 -	P	-	-	#3656	""
D   5170   30   62   13   60 -	P	-	-	#3657	""
T   5172    5    4   11   57 -	p	-	-	-	"Frakt:"
T   5173   19    4   11   57 -	p	-	-	-	"Tull:"
T   5174   33    4   11   57 -	p	-	-	-	"Lagerhållning:"

>FORM win7I ROWS 9 SIZE 46 "AccountI"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   5204    2   42   13   30 -	PU	-	edAccountI	#12010	""
D   5206    2   92   13   58 -	PU	-	edObjectI	#12021	""
D   5208    2  168   13   24 -	PU	-	edDepartmentI	#12022	""
D   5200   16   42   13   54 f12.2	P	-	edAmountI	#12051	""
T   5341    3    2   11   38 -	p	-	-	-	"Konto:"
T   5342   17    2   11   38 -	p	-	-	-	"Belopp:"
B3  5412    2   74   13   15 -	SxTpfF	-	pbAccountI	-	"seek.bmp"
B3  5413    2  152   13   15 -	SxTpfF	-	pbObjectI	-	"seek.bmp"
B3  5414    2  194   13   15 -	SxTpfF	-	pbDepartmentI	-	"seek.bmp"

>FORMFILES win7I ROWS 0
#Id	sp
>FORM win8I ROWS 7 SIZE 45 "IntrastatI"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CE  5218    2   62  134   90 -	Pc	-	cbTransactioncodeI	#5466	""
CE  5220   16   62  152   90 -	Pc	-	cbCountrycodeI	#5586	""
CE  5222   30   62  150   90 -	Pc	-	cbTransportcodeI	#5587	""
WW  5234   44    0   60  174 -	P	-	win9I	-	""
T   5221   18    4   11   56 -	p	-	-	-	"Landskod:"
T   5219    4    4   11   56 -	p	-	-	-	"Transaktionskod:"
T   5223   32    4   11   56 -	p	-	-	-	"Transportkod:"

>FORM win9I ROWS 10 SIZE 75 "ExtraIntraI"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CE  5239    0   62   82   90 -	Pc	-	cbStatisticscodeI	#5465	""
CB  5242   14   62   76   90 -	P	-	cbPricetypeI	-	""
D   5241   28   62   13   60 -	P	-	edNetWeightI	#5468	""
D   5240   42   62   13   60 -	P	-	edOtherQuantityI	#5469	""
T   5235   43    4   11   56 -	p	-	-	-	"Annan kvantitet:"
T   5236   28    4   11   56 -	p	-	-	-	"Nettovikt:"
T   5237   16    4   11   56 -	p	-	-	-	"Pristyp:"
T   5238    2    4   11   56 -	p	-	-	-	"Statistikkod:"
T   5243   28  126   11   32 -	p	-	-	-	"per enhet"
T   5244   43  126   11   32 -	p	-	-	-	"per enhet"

>FORM win10I ROWS 14 SIZE 101 "CurrencyI"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   5311    0   62   13   60 -	P	-	edCurrencyPriceI	#5581	""
CE  5314   14   62  108   88 -	Pc	-	cbExchangeRateI	#8551	""
D   5320   29   62   13   60 -	P	-	edPriceSekI	#8572	""
D   5321   42   62   13   60 -	P	-	edDiscountCurrencyI	#5553	""
D   5322   56   62   13  112 -	P	-	-	#3621	""
XB  5323   70   62   13   50 -	RP	-	xbArticleFileI	-	"Artikelreg."
XB  5324   70  114   13   60 -	RP	-	xbPurchPriceFileI	-	"Lev.prisreg."
T   5318   71    2   11   60 -	p	-	-	-	"Uppdat. ink priser:"
T   5313   17    2   11   59 -	p	-	txExchangeRateI	-	"Kurs:"
D   5312    0  124   13   24 -	pO	-	edCurrencyI	#5383	""
T   5310    3    2   11   56 -	p	-	txCurrencyPriceI	-	"Valutapris:"
T   5315   30    2   11   57 -	p	-	txPriceI	-	"A-pris SEK:"
T   5316   44    2   11   58 -	p	-	-	-	"Rabatt:"
T   5317   57    2   11   59 -	p	-	-	-	"Trans.text:"

>FORM win11I ROWS 9 SIZE 76 "NotCurrency"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   5329    0   62   13   60 -	P	-	edPriceSekI2	#5551	""
D   5331   14   62   13   60 -	P	-	edDiscountI	#5553	""
D   5333   28   62   13  112 -	P	-	-	#3621	""
XB  5336   42   62   13   50 -	RP	-	xbArticleFile2I	-	"Artikelreg."
XB  5337   42  114   13   60 -	RP	-	xbPurchPriceFile2I	-	"Lev.prisreg."
T   5334   31    2   11   57 -	p	-	-	-	"Trans.text:"
T   5335   44    2   11   60 -	p	-	-	-	"Uppdat. ink priser:"
T   5332   17    2   11   57 -	p	-	-	-	"Rabatt:"
T   5330    3    2   11   58 -	p	-	-	-	"A-pris:"

>FORM win12I ROWS 6 SIZE 29 "Konto"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   5416    4    2   11   36 -	p	-	-	-	"Konto:"
T   5417    4   42   11   96 -	p	-	txAccountI	-	""
T   5418   18    2   11   36 -	p	-	-	-	"Objekt:"
T   5419   32    2   11   36 -	p	-	-	-	"Avdelning:"
T   5420   18   42   11   96 -	p	-	txObjI	-	""
T   5421   32   42   11   96 -	p	-	txDepI	-	""

>FORMFILES win12I ROWS 0
#Id	sp
>SOURCE
