>TYPE   	D
>NAME   	inlev.d
>CODE   	inlev.cod
>BY     	@(#)$Author: Helene $
>DATE   	@(#)$Date: 05-08-15 14:55 $
>VERSION	@(#)$Revision: 5 $
>ID     	4005

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

>TEXTINFO ROWS 38 SIZE 720
#id    value    flags    text
IDL_100  100  -  Re&gister
IDL_101  101  -  Växla
IDL_102  102  -  &Visa
IDL_103  103  -  Info
IDL_104  104  -  = Inköpsenhet
IDL_105  105  -  Kurs
IDL_106  106  -  Datum
IDL_107  107  -  Artikeln saknas i inköpet
IDL_108  108  -  Artikeln är under inventering
IDL_109  109  -  F4: Inleverans lagerplatser
IDL_110  110  -  Datum är ej angivet
IDL_112  112  -  Inget att leverera
IDL_113  113  -  %1 saknas. Nyregistrera
IDL_114  114  -  Lager ej angivet
IDL_116  116  -  Ändra statistikkod för artikeln
IDL_117  117  -  %1 saknas
IDL_118  118  -  Ändra nettovikt för artikeln
IDL_119  119  -  Ändra annan kvantitet för artikeln
IDL_120  120  -  F6:Auto F3:Välj inköpsrad
IDL_121  121  -  1 Kostnadspris
IDL_122  122  -  Godkänt
IDL_123  123  -  Levererat antal ej angivet
IDL_124  124  -  Ska statistikkod anges
IDL_125  125  -  Pristyp måste anges
IDL_126  126  -  Nettovikt måste anges
IDL_127  127  -  Annan kvantitet måste anges
IDL_128  128  -  Landskod måste anges
IDL_129  129  -  Transportkod måste anges
IDL_130  130  -  Slut på inköpsrader
IDL_131  131  -  Inköpsnummer måste anges
IDL_132  132  -  2 Inköpspris
IDL_133  133  -  3 Baspris
IDL_134  134  -  4 Lagerpris
IDL_135  135  -  5 Kalkylpris
IDL_136  136  -  Textrad
IDL_137  137  -  Artikeln är utgående
IDL_138  138  -  Artikel är spärrad, inleverera ändå?
IDL_139  139  -  Är antalet <%1> korrekt


>STACK ROWS 1000 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	0xc0c0c0
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     20    90   354   400 SB	-	-	"-"	  0	"431 Inleverans"

>FORM MAIN ROWS 9 SIZE 87 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4081   18    6   15  334 -	P	-	win8	-	""
WW  2296   36    6   56  334 -	P	-	win7	-	""
TB   124  176    4  150  338 -	PZ	-	tab1	-	"&Inköp"
B3  4085   94  344   15   56 -	TP	-	pbExecute	-	"ok.bmp,Verk&ställ"
B3  4141  112  344   15   56 -	QP	-	pbPrint	-	"print.bmp,Et&iketter"
B3  4138  130  344   15   56 -	QHP	-	pbActivity	-	"new.bmp,Ny aktivitet"
B3     2  310  344   15   56 -	xTPhz	-	-	-	"exit.bmp,St&äng"
WW   621    0    4   16  390 -	PhmZ	-	win4	-	""
GR   101   94    4   78  336 -	pWZ	-	lcTable	-	""

>FORMFILES MAIN ROWS 2
#Id	sp
54	r
52	r
>FORM tab1 ROWS 1 SIZE 1 "623 - tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW   680   14    2  134  328 -	P	-	win1	-	""

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win1 ROWS 12 SIZE 98 "win1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4128    4    0   14  152 -	P	-	win12	-	""
D   4137   20   46   13  100 -	pO	-	-	#5421	""
CE  2344   34   46  120   47 -	pc	-	cbLager	#8830	""
D   2253   48   46   13   72 -	p	-	edLEVART	#5411	""
D   2255   62   46   13   72 f8.2	P	-	edAntal	-	""
D   2257   76   46   13   72 -	P	-	edRest	-	""
TB  4086    4  158  126  164 -	PB	-	tab2	-	"&1.Pris,&2.Omkost.,&3.Intrastat,&4.Påföring"
T   2345   36    4   11   40 -	p	-	txLager	-	"Lager:"
T   2258   78    4   11   40 -	p	-	-	-	"Rest:"
T   2254   64    4   11   40 -	p	-	-	-	"Lev antal:"
T   4136   23    4   11   40 -	p	-	-	-	"Benämning:"
T   2252   50    4   11   40 -	p	-	-	-	"Lev art.kod:"

>FORM win4 ROWS 23 SIZE 23 "Tool"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
FR  1990    0    0   13    1 -	Hp	-	-	-	""
FR  1991    0    0   13    1 -	Hp	-	-	-	""
FR  1992    0    0   13    1 -	Hp	-	-	-	""
FR  1993    0    0   13    1 -	Hp	-	-	-	""
FR  1994    0    0   13    1 -	Hp	-	-	-	""
FR  1995    0    0   13    1 -	Hp	-	-	-	""
FR  1996    0    0   13    1 -	Hp	-	-	-	""
B3  2000    0    8   13   15 -	STHpfF	-	pbTool	-	""
B3  2001    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2002    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2003    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2004    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2005    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2006    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2007    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2008    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2009    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2010    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2011    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2012    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2013    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2014    0    0   13   15 -	STHpfF	-	pbTool	-	""
FU  4071    0    0   15  390 -	pZ	-	-	-	""

>FORM lcTable ROWS 7 SIZE 54 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   2359    1    1   11   25 -	Hp	-	-	#5402	"Radnr"
T   2360    3   24   11   54 -	Hp	-	-	#5410	"Artikelkod"
T   2361    1   84   11   60 -	Hp	-	-	#5411	"Lev art.kod"
T   2362    1  144   11   56 -	Hp	-	-	#5421	"Benämning"
T   2363    1  200   11   36 -	RHp	-	-	#5531	"Inköp"
T   2364    1  236   11   36 -	RHp	-	-	#5533	"Lev"
T   2365    1  272   11   36 -	RHp	-	-	#5545	"Rest"

>FORMFILES lcTable ROWS 4
#Id	sp
54	r
10	r
30	r
34	r
>FORM win7 ROWS 21 SIZE 156 "win7"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   2300    0   40   13   62 -	PU	-	edINR	-	""
D   2298    0  190   13  120 -	pO	-	edNamn	#5241	""
D   2302   14   40   13   62 -	PU	-	edSupplier	#2001	""
D   2349   14  190   13  120 -	pO	-	edFORETAG	#2021	""
D   2351   28   40   13   32 -	PU	-	edSign	-	""
DP  4074   42   40   13   46 D8	P	-	dpDate	#8711	""
CE  4139   28  190  278   90 -	pc	-	cbFormSet	#5251	""
XB  4148   42  138   13   62 -	p	-	xbPrint	-	"Skriv etikett"
T   2350   16  140   11   48 -	p	-	-	-	"Leverantör:"
B3  2303    0  122   13   15 -	SxTpfF	-	pbINR	-	"seek.bmp"
T   2352   30    4   11   34 -	p	-	-	-	"Signatur:"
T   2346    2    4   11   34 -	p	-	-	-	"Inköpsnr:"
T   2354   44    4   11   34 -	p	-	-	-	"Datum:"
T   2347    2  140   11   48 -	p	-	-	-	"Inköpsnamn:"
B3  4075    0  104   13    9 -	SxTpfF	-	pbPurchasePrev	-	"arrowl.bmp"
B3  4076    0  112   13    9 -	SxTpfF	-	pbPurchaseNext	-	"arrowr.bmp"
B3  4077   14  104   13    9 -	SxTpfF	-	pbSupplierPrev	-	"arrowl.bmp"
B3  4078   14  112   13    9 -	SxTpfF	-	pbSupplierNext	-	"arrowr.bmp"
T   2348   16    4   11   34 -	p	-	-	-	"Lev.kod:"
T   4140   30  140   11   48 -	p	-	-	-	"Blankettset:"
B3  2304   14  122   13   15 -	SxTpfF	-	pbSupplier	-	"seek.bmp"

>FORMFILES win7 ROWS 1
#Id	sp
52	r
>FORM win8 ROWS 3 SIZE 83 "Commands"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3  4082    0    2   15   70 -	TPM	-	pbTotalDelivery	-	"allrow.bmp,&Totalleverans"
B3  4083    0   74   15   70 -	TPM	-	pbPartDelivery	-	"partrow.bmp,&Enstaka artiklar"
B3  4084    0  146   15   70 -	TPM	-	pbClose	-	"nothing.bmp,Avsluta ink&öp"

>FORMFILES win8 ROWS 0
#Id	sp
>FORM tab2 ROWS 4 SIZE 4 "tab2"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4087   14    2  110  158 -	P	-	win9	-	""
WW  4102   14    2  110  160 -	P	-	win10	-	""
WW  4111   14    2  110  160 -	P	-	win11	-	""
WW  4142   14    2  110  160 -	P	-	win13	-	""

>FORMFILES tab2 ROWS 0
#Id	sp
>FORM win9 ROWS 14 SIZE 101 "Pris"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CB  4098    4   50  143   74 -	P	-	cbEnhet	-	""
D   4089   18   50   13   52 -	P	-	edVALPRIS	#5581	""
D   4090   18  108   13   24 -	pO	-	edVALKOD	#5383	""
CE  4092   32   50  132   52 -	Pc	-	cbExchangeRate	#8551	""
D   4094   46   50   13   52 f12.2	P	-	edPRIS	-	""
D   4095   60   50   13   52 -	P	-	edRABATT	#5553	""
XB  4099   84   26   10   82 -	RP	-	xbArtReg	-	"Artikelregistret"
XB  4100   94   26   10   90 -	RP	-	xbInkReg	-	"Leverantörsprisregistret"
GB  4101   76   18   30  102 -	p	-	-	-	"Inköpspriser"
T   4097    6    2   11   44 -	p	-	-	-	"Enhet"
T   4088   20    2   11   44 -	p	-	-	-	"Valutapris:"
T   4091   34    2   11   44 -	p	-	-	-	"Kurs:"
T   4093   48    2   11   44 -	p	-	-	-	"A-pris:"
T   4096   62    2   11   44 -	p	-	-	-	"Rabatt:"

>FORMFILES win9 ROWS 0
#Id	sp
>FORM win10 ROWS 8 SIZE 44 "Omkost"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   4103    6    2   11   46 -	p	-	-	-	"Trans.text:"
D   4104    4   50   13   96 -	P	-	edBen	#3621	""
T   4105   20    2   11   46 -	p	-	-	-	"Frakt:"
D   4106   18   50   13   56 -	P	-	edHEMT	#3655	""
T   4107   34    2   11   46 -	p	-	-	-	"Tull:"
D   4108   32   50   13   56 -	P	-	edTULL	#3656	""
T   4109   48    2   11   46 -	p	-	-	-	"Lagerhållning:"
D   4110   46   50   13   56 -	P	-	edLHALL	#3657	""

>FORM win11 ROWS 16 SIZE 119 "Intrastat"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   4112    6    2   11   60 -	p	-	-	-	"Transaktionskod:"
T   4113   20    2   11   60 -	p	-	-	-	"Landskod:"
T   4114   34    2   11   60 -	p	-	-	-	"Transportkod:"
T   4115   48    2   11   60 -	p	-	-	-	"Statistikkod:"
T   4116   62    2   11   60 -	p	-	-	-	"Pristyp:"
CE  4117    4   68  120   86 -	Pc	-	cbISTTYP	#5466	""
CE  4118   18   68  150   86 -	Pc	-	cbLANDKOD	#5586	""
CE  4119   32   68  112   86 -	Pc	-	cbTPKOD	#5587	""
CE  4120   46   68   90   86 -	Pc	-	cbISTATNR	#5465	""
CB  4121   60   68   80   86 -	P	-	cbPriceType	-	""
T   4122   76    2   11   60 -	p	-	-	-	"Nettovikt:"
D   4123   74   68   13   46 -	P	-	edNetWeight	#5468	""
T   4124   76  118   11   34 -	p	-	-	-	"per enhet"
T   4125   90    2   11   60 -	p	-	-	-	"Annan kvantitet:"
D   4126   88   68   13   46 -	P	-	edOtherQuantity	#5469	""
T   4127   90  118   11   36 -	p	-	-	-	"per enhet"

>FORM win12 ROWS 5 SIZE 44 "win12"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   4129    2    4   11   36 -	p	-	txCode	-	"Artikelkod:"
D   4130    0   46   13   72 A20	PU	-	edCode	#5410	""
B3  4131    0  120   13    9 -	SxTpfF	-	pbCodePrev	-	"arrowl.bmp"
B3  4132    0  128   13    9 -	SxTpfF	-	pbCodeNext	-	"arrowr.bmp"
B3  4133    0  138   13   18 -	STpfF	-	pbCode	-	"seek.bmp"

>FORM win13 ROWS 5 SIZE 30 "win13"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
XB  4143    3    0   13   58 -	P	-	xbOrder	-	"Orderpåföring"
D   4144   18   50   13   70 -	pO	-	edOrder	-	""
T   4145   20    2   11   44 -	p	-	-	-	"Ordernr:"
D   4146   32   50   13   28 -	pO	-	-	#5417	""
T   4147   33    2   11   44 -	p	-	-	-	"Rad:"

>SOURCE
