>TYPE   	D
>NAME   	412.d
>CODE   	412.cod
>BY     	@(#)$Author: Jessica $
>DATE   	@(#)$Date: 08-01-23 13:46 $
>VERSION	@(#)$Revision: 10 $
>ID     	4063

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

>TEXTINFO ROWS 18 SIZE 378
#id    value    flags    text
IDL_100  100  -  Felaktigt intervall
IDL_101  101  -  DEL:Ta bort order från urvalet
IDL_102  102  -  Prioritetsordning vid utleverans
IDL_103  103  -  DEL:Ta bort orderrad från urvalet
IDL_104  104  -  Fakturera direkt
IDL_105  105  -  Urval för fakturering
IDL_106  106  -  Ej till faktureringsurval
IDL_107  107  -  BLANKT = Enligt orderhuvud
IDL_108  108  -  F3: Urval ordernummer
IDL_109  109  -  Skrivare klar
IDL_110  110  -  Rapport %1 saknas
IDL_111  111  -  A&nge Intervall
IDL_112  112  -  Ä&ndra Intervall
IDL_113  113  -  Inga poster i önskat intervall
IDL_114  114  -  Ordernr
IDL_115  115  -  Blankt = enligt order
IDL_116  116  -  Lev.vecka
IDL_117  117  -  Levererar


>STACK ROWS 700 SIZE 7000

>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 22
#id Eventname	ParamList
1009	UpdateTransBefore	()
1010	UpdateTransAfter	()
1011	UpdateRowBefore	()
1012	UpdateRowAfter	()
1013	RecordOrderBefore	()
1014	UpdateHeadBefore	()
1015	UpdateHeadAfter	()
1016	InvoiceUpdateOrderBefore	()
1017	WriteInvoiceLedgerBefore	()
1018	WriteInvoiceLedgerAfter	()
1019	InvoiceUpdateStatBefore	()
1020	InvoiceUpdateCustomerBefore	()
1021	InvoiceUpdateCustomerAfter	()
1022	UpdateJournalBefore	()
1023	UpdateJournalAfter	()
1028	PrintDeliveryformAfter	()
1039	SetInvoiceSecondSortLevel	()
1118	TotalDeliverySetKey	()
1119	TotalDeliveryRejectOrder	()
1122	BeforePrintForm	(iCount)
1123	BeforePrintFormInit	(str sForm, bool bPreview, int iPrinter, int iCopies)
1126	TotalDeliverySetBlaKey	()


>WINDOW ROWS 1
#id       x     y    cy    cx sp1	sp2	Bitmap	font	size	caption
5511     20    90   354   520 SB	-	-	"-"	  0	"412 Totalleverans"

>FORM MAIN ROWS 7 SIZE 62 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
TB 24516  186    4  124  452 -	PZw	-	tab1	-	"Ur&val,&Leverans"
B3 24837  312    6   15   50 -	QP	-	pbGetChoice	-	"nothing.bmp,Hämta &urval"
WW   621    0    4   16  509 -	PhmZ	-	win4	-	""
WW 24842   20    4  162  452 -	PWZ	-	win28	-	""
WW 24484   18  464   38   50 -	Pz	-	win24	-	""
B3     2  310  465   14   50 -	xTPwz	-	pbExit	-	"exit.bmp,St&äng"
WW 24843   20    4  162  452 -	PWZ	-	win29	-	""

>FORMFILES MAIN ROWS 0
#Id	sp
>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  507 -	pZ	-	-	-	""

>FORMFILES win4 ROWS 0
#Id	sp
>FORM win24 ROWS 2 SIZE 38 "win24"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3 24821    2    0   15   50 -	TP	-	pbOk	-	"ok.bmp,Verk&ställ"
B3 24887   20    0   15   50 -	QP	-	pbPrint	-	"print.bmp,S&kriv ut"

>FORMFILES win24 ROWS 0
#Id	sp
>FORM tab1 ROWS 2 SIZE 2 "tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW 24634   14    2  108  445 -	PZ	-	win26	-	""
WW 24519   14    2  108  444 -	PZ	-	win25	-	""

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win25 ROWS 40 SIZE 381 "win25"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
RB 24879    8   10   10   36 -	RP	-	rbOrder	-	"Order"
RB 24882    8   60   10   50 -	RP	-	rbWeek	-	"Lev.vecka"
GB 24881    0    4   20  112 -	p	-	-	-	"Prioritet"
D  24876   22   44   13   64 -	PU	-	edFromOrder	#842	""
D  24875   36   44   13   64 -	PU	-	edToOrder	#848	""
D  24522   50   44   13   64 A16	PU	-	edFromArt	#841	""
D  24525   64   44   13   64 A16	PU	-	edToArt	#849	""
D  24570   78   44   13   28 A3	PU	-	edProjectType	#851	""
D  24573   92   44   13   28 A3	PU	-	edArticleType	#857	""
D  24533    8  206   13   64 A10	PU	-	edCustomerCode	#858	""
D  24544   22  206   13   64 A10	PU	-	edStatus	#856	""
CE 24547   36  206   86   65 -	HPc	-	cbStock	#855	""
DP 24734   50  206   13   36 W5	Pa	-	dpFrom	#844	""
DP 24733   50  250   13   36 W5	Pa	-	dpTo	#846	""
XB 24889   14  306   10  128 -	RP	-	xbOnlyDeliverable	-	"Endast order med något att leverera"
XB 24833   24  306   10  128 -	RP	-	xbCompleteRows	-	"Endast kompletta rader"
XB 24834   34  306   10  128 -	RP	-	xbCompleteOrder	-	"Endast kompletta order"
XB 24888   44  306   10  128 -	RP	-	xbOnlyConfirmed	-	"Endast bekräftade"
GB 24836    4  294   54  144 -	p	-	-	-	"Urval"
XB 24832   64  306   10  104 -	RP	-	xbDisregardBalance	-	"Utan hänsyn till saldo"
XB 24835   74  306   10  104 -	RP	-	xbShowDeliverableRows	-	"Visa enbart levererbara rader"
B3 24884   36  110   13   15 -	STpfF	-	pbToOrder	-	"seek.bmp"
B3 24883   22  110   13   15 -	STpfF	-	pbFromOrder	-	"seek.bmp"
T  24548   38  166   11   40 -	Hp	-	txStock	-	"Lager:"
T  24560   52  166   11   40 -	p	-	-	-	"Lev.vecka:"
B3 24567   50  110   13   15 -	STpfF	-	pbFromArt	-	"seek.bmp"
B3 24568   64  110   13   15 -	STpfF	-	pbToArt	-	"seek.bmp"
T  24557   52  244   11    4 -	p	-	-	-	"-"
T  24524   52    4   11   40 -	p	-	-	-	"Från artikel:"
T  24526   66    4   11   40 -	p	-	-	-	"Till artikel:"
T  24528   80    4   11   40 -	p	-	-	-	"Projekttyp:"
B3 24575   22  272   13   15 -	STpfF	-	pbStatus	-	"seek.bmp"
T  24535   10  166   11   40 -	p	-	-	-	"Kundkod:"
T  24877   24    4   11   40 -	p	-	-	-	"Från order:"
T  24878   38    4   11   40 -	p	-	-	-	"Till order:"
T  24572   94    4   11   42 -	p	-	-	-	"Artikeltyp:"
B3 24571   78   74   13   15 -	xTpfF	-	pbProjectType	-	"seek.bmp"
B3 24569    8  272   13   15 -	STpfF	-	pbCustomerCode	-	"seek.bmp"
T  24545   24  166   11   40 -	p	-	tStock	-	"Status:"
B3 24574   92   74   13   15 -	xTpfF	-	pbArticleType	-	"seek.bmp"

>FORMFILES win25 ROWS 0
#Id	sp
>FORM win26 ROWS 41 SIZE 298 "win26"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D  24643    2   50   13   28 A4	pU	-	-	#8825	""
DP 24644   16   50   13   46 D8	p	-	dpDeliveryDate	#8712	""
CB 24649   30   50   50   80 -	P	-	cbFakturering	-	""
DP 24645   44   50   13   46 D8	P	-	dpDateOfInvoice	#8711	""
D  24646   58   50   13   45 F10	PU	-	edFreightCharge	#8571	""
D  24647   72   50   13   45 F10	PU	-	edServiceCharge	#8572	""
CE 24654    2  188  108   80 -	Pc	-	cbBlankettset	#8841	""
XB 24655    2  304   13   56 -	P	-	xbDirektUtskrift	#864	"Direkt utskrift"
XB 24662   34  208   13   54 -	HP	-	xbFormat1	#865	"ARBO"
XB 24663   48  208   13   54 -	HP	-	xbFormat2	#866	"PLOK"
XB 24664   62  208   13   54 -	HP	-	xbFormat3	#867	"PACK"
XB 24665   76  208   13   54 -	HP	-	xbFormat4	#868	"FRAS"
XB 24666   90  208   13   54 -	HP	-	xbFormat5	#869	"FRET"
T  24641    4  140   11   46 -	p	-	-	-	"Blankettset:"
T  24636    4    2   11   46 -	p	-	-	-	"Signatur:"
T  24667   20  140   11   42 -	p	-	-	-	"Blanketter"
T  24668   20  208   11   30 -	p	-	-	-	"Format"
T  24674   20  250   11   32 -	p	-	-	-	"Skrivas"
T  24669   36  140   11   62 -	Hp	-	txForm1	-	"Arbetsorder"
T  24672   50  140   11   62 -	Hp	-	txForm2	-	"Plocklista"
T  24670   64  140   11   62 -	Hp	-	txForm3	-	"Packsedel"
T  24673   78  140   11   62 -	Hp	-	txForm4	-	"Fraktsedel"
T  24671   92  140   11   62 -	Hp	-	txForm5	-	"Fraktetikett"
T  24637   18    2   11   46 -	p	-	-	-	"Lev.datum:"
T  24642   32    2   11   46 -	p	-	-	-	"Fakturering:"
T  24638   46    2   11   46 -	p	-	txDateOfInvoice	-	"Fakturadatum:"
T  24639   60    2   11   46 -	p	-	-	-	"Fraktavgift:"
T  24640   74    2   11   46 -	p	-	-	-	"Exp.avgift:"
T  24847   20  302   11   42 -	p	-	-	-	"Blanketter"
T  24848   20  370   11   30 -	p	-	-	-	"Format"
T  24849   20  412   11   32 -	p	-	-	-	"Skrivas"
T  24850   35  304   11   60 -	Hp	-	txForm6	-	"Text"
T  24851   49  304   11   60 -	Hp	-	txForm7	-	"Text"
T  24852   63  304   11   60 -	Hp	-	txForm8	-	"Text"
T  24853   77  304   11   60 -	Hp	-	txForm9	-	"Text"
T  24854   92  304   11   60 -	Hp	-	txForm10	-	"Text"
XB 24856   33  370   13   54 -	HP	-	xbFormat6	#870	"Check"
XB 24857   48  370   13   54 -	HP	-	xbFormat7	#871	"Check"
XB 24858   62  370   13   54 -	HP	-	xbFormat8	#872	"Check"
XB 24859   76  370   13   54 -	HP	-	xbFormat9	#873	"Check"
XB 24860   90  370   13   54 -	HP	-	xbFormat10	#874	"Check"

>FORMFILES win26 ROWS 0
#Id	sp
>FORM win28 ROWS 3 SIZE 3 "Order"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
GR 24579    2    2  160  214 -	pW	-	lcOrder	-	""
GR 24838    2  222  160  228 -	PWZ	-	lcRow	-	""
SP 24874    2  218  162    2 -	pfOFWZ	-	spSplit	-	""

>FORMFILES win28 ROWS 0
#Id	sp
>FORM lcOrder ROWS 5 SIZE 42 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T  24803    1    1   11   40 -	Hph	-	-	#3003	"Ordernr"
T  24804    1   41   11   50 -	Hp	-	-	#3001	"Kundkod"
T  24861    2   92   11   68 -	Hp	-	-	#2021	"Kundnamn"
T  24872    2  164   11   20 -	HpL	-	-	#861	"Anm"
T  24873    2  184   11   15 -	Hp	-	-	#8835	"Spärr/sigill"

>FORMFILES lcOrder ROWS 2
#Id	sp
30	r
20	r
>FORM lcRow ROWS 7 SIZE 70 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T  24839    1    1   11   25 -	Hph	-	-	#3403	"Radnr"
T  24840    1   26   11   50 -	Hp	-	-	#3401	"Artikelkod"
T  24841    1   76   11   45 -	Hp	-	-	#3421	"Benämning"
T  24863    1  121   11   16 -	HpL	-	-	#26523	"Lev"
T  24885    0  138   11   42 -	RHp	-	-	#3545	"Önskat antal"
T  24864    2  182   11   36 -	RHp	-	-	#26524	"Levererbart"
T  24862   13    1   11  110 -	Hp	-	-	#26522	"Felmeddelande"

>FORMFILES lcRow ROWS 2
#Id	sp
34	r
10	r
>FORM win29 ROWS 1 SIZE 1 "Artikel"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
GR 24844    2    2  160  448 -	P	-	lcArt	-	""

>FORMFILES win29 ROWS 0
#Id	sp
>FORM lcArt ROWS 9 SIZE 83 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T  24871    1    1   11   35 -	Hph	-	-	#3003	"Ordernr"
T  24846    1   36   11   55 -	Hp	-	-	#3001	"Kundkod"
T  24865    1   91   11   25 -	Hph	-	-	#3403	"Radnr"
T  24866    1  117   11   50 -	Hp	-	-	#3401	"Artikelkod"
T  24867    1  167   11   45 -	Hp	-	-	#3421	"Benämning"
T  24868    1  212   11   30 -	HpL	-	-	#26523	"Lev"
T  24886    1  242   11   70 -	RHp	-	-	#3545	"Önskat antal"
T  24869    1  312   11   30 -	RHp	-	-	#26524	"Lev.bart"
T  24870    1  342   11   60 -	Hp	-	-	#26522	"Felmeddelande"

>FORMFILES lcArt ROWS 4
#Id	sp
30	r
34	r
20	r
10	r
>SOURCE
