>TYPE   	D
>NAME   	530.d
>CODE   	530.cod
>BY     	@(#)$Author: Mats $
>DATE   	@(#)$Date: 06-10-18 8:17 $
>VERSION	@(#)$Revision: 8 $
>ID     	5007

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

>TEXTINFO ROWS 30 SIZE 800
#id    value    flags    text
IDL_100  100  -  Uttag ej utförda, återrapportera ändå
IDL_101  101  -  Tillv.ordern saknas
IDL_102  102  -  Samma antal måste anges i serienummer och lagerplatser
IDL_103  103  -  Inga fler TO i gruppen
IDL_104  104  -  Skriv om
IDL_105  105  -  Förhandsgranska
IDL_106  106  -  Produktionsdokument
IDL_111  111  -  Tillv.ordern %1 är avslutad
IDL_112  112  -  Lager saknas på TO %1
IDL_113  113  -  Återrapportering spärrad, fortsätt ändå
IDL_114  114  -  Återrapportering spärrad
IDL_115  115  -  Rapportering spärrad, fortsätt ändå
IDL_116  116  -  Rapportering spärrad
IDL_122  122  -  Upptagen av %1 i rutin %2
IDL_124  124  -  Inga TO i gruppen
IDL_125  125  -  Utför uttag för återrapporterade %1 st
IDL_126  126  -  Avsluta tillv.ordern
IDL_129  129  -  Tillv.ordern %1 är upptagen av %2 i rutin %3
IDL_130  130  -  F4: Inleverans lagerplatser
IDL_131  131  -  Uttag kunde inte genomföras
IDL_134  134  -  Godkänd utskrift
IDL_136  136  -  Inga rapporteringar har gjorts för TO %1, fortsätt ändå
IDL_137  137  -  Funktionen är spärrad
IDL_138  138  -  Tidigare uttaget för %1 st
IDL_144  144  -  Anteckningar
IDL_145  145  -  Artikeln är under inventering
IDL_146  146  -  Resursgrupp saknas
IDL_147  147  -  Maskinkod saknas
IDL_148  148  -  Verktygskod saknas
IDL_149  149  -  Kassation registrerad


>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 8
#id color	comment
1   0xff0000   	""
2   0xff       	""
3   0xff00ff   	""
4   0xffffff   	""
5   0xc0c0c0   	""
6   0x80       	""
7   0x808080   	""
8   0x0        	""


>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 2
#id Eventname	ParamList
1096	TempSerialIndeliveryCreate	()
1097	TempSerialIndeliveryWriteSer	()


>WINDOW ROWS 1
#id       x     y    cy    cx sp1	sp2	Bitmap	font	size	caption
5511     10    10   354   520 SB	-	-	"-"	  0	"530 Återrapportering"

>FORM MAIN ROWS 15 SIZE 121 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4277   18    5   20  511 -	P	-	win10	-	""
GR  4243   58    4   96  511 -	pWZ	-	lcTable	-	""
TB  4122  157    4  135  449 -	PZ	-	tab1	-	"&Återrapportering"
B3  4105  168  456   15   58 -	QPwz	-	pbExecute	-	"ok.bmp,&Verkställ"
B3  4531  185  456   15   58 -	xQHDPwz	-	pbActivity	-	"new.bmp,Ny aktivitet"
B3  4532  202  456   15   58 -	QPwz	-	pbPrint	-	"print.bmp,Et&iketter"
B3     2  308  456   15   58 -	xQPwz	-	pbExit	-	"exit.bmp,St&äng"
WW  4528  295    4   32  451 -	P	-	win17	-	""
WW   621    0    4   16  512 -	pZ	-	win1	-	""
D   4305   40  207   13  150 -	pfO	-	edTillvinfo	#7525	""
T   4308   42  414   11   26 -	p	-	txStatus	-	"Status:"
D   4307   40  440   13   12 -	pfO	-	edStatus	#7515	""
D   4302   40   46   13  150 -	pfO	-	edOrdernamn	#7581	""
T   4303   41    4   11   42 -	p	-	txOrdernamn	-	"Ordernamn:"
D   4577   40  454   13   60 -	pO	-	-	#7255	""

>FORM win1 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    9   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  510 -	pZ	-	-	-	""

>FORMFILES win1 ROWS 0
#Id	sp
>FORM tab1 ROWS 1 SIZE 1 "tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4209   14    4  117  441 -	P	-	win4	-	""

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win4 ROWS 23 SIZE 172 "win4"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
TB  4332    2  200  114  239 -	pB	-	tab2	-	"&1.Antal,&2.Blanketter,&3.Kassation"
CE  4289    3   52  100  100 -	pc	-	cbSign	#8825	""
DP  4291   17   52   13   46 D8	p	-	dpDate	#8711	""
D   4214   31   52   13   60 A8	pU	-	edManufact	-	""
D   4440   45   52   13   60 A8	pU	-	edGroup	#16901	""
D   4223   59   52   13  110 A8	pfUO	-	edArtCode	#7505	""
D   4225   73   52   13  130 -	pfO	-	edName	#7517	""
CE  4276   87   52  130   61 -	Hpc	-	cbStock	#8830	""
D   4227  101   52   13   40 f8.2	PU	-	edRepQuantity	#7539	""
D   4229  101  142   13   40 -	PU	-	edRest	#8862	""
T   4230  102  118   11   23 -	p	-	-	-	"Rest:"
T   4226   74    2   11   49 -	p	-	-	-	"Benämning:"
T   4288    4    2   11   49 -	p	-	txSign	-	"Signatur:"
T   4213   32    2   11   49 -	p	-	-	-	"Tillv.nr:"
T   4290   18    2   11   49 -	p	-	txDate	-	"Datum:"
B3  4367   31  114   13    9 -	xTpfF	-	pbPrevManufact	-	"arrowl.bmp"
B3  4368   31  124   13    9 -	xTpfF	-	pbNextManufact	-	"arrowr.bmp"
B3  4369   31  134   13   15 -	xTpfF	-	pbManufact	-	"seek.bmp"
T   4228  102    2   11   49 -	p	-	-	-	"Återrapp. antal:"
T   4274   88    2   11   49 -	Hp	-	txStock	-	"Lager:"
T   4439   46    2   11   49 -	p	-	-	-	"Grupp:"
T   4224   60    2   11   49 -	p	-	-	-	"Produktkod:"
B3  4477   45  114   13   15 -	xTpfF	-	pbGroup	-	"seek.bmp"

>FORMFILES win4 ROWS 0
#Id	sp
>FORM lcTable ROWS 10 SIZE 96 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   4508    1    1   11   40 -	Hp	-	-	#7501	"Tillv.nr"
T   4509    1   41   11   48 -	Hp	-	-	#7505	"Produktkod"
T   4510    1   89   11   72 -	Hp	-	-	#7517	"Produktbenämning"
T   4511    1  161   11   44 -	Hp	-	-	#7547	"Färdigvecka"
T   4512    1  205   11   24 -	Hp	-	-	#842	"Status"
T   4513    1  229   11   24 -	CHpL	-	-	#7527	"Avsl."
T   4514    1  253   11   30 -	RHp	-	-	#7531	"Budget"
T   4515    1  283   11   30 -	RHp	-	-	#7535	"Uttaget"
T   4516    1  313   11   32 -	RHp	-	-	#7538	"Kasserat"
T   4517   13    1   11   33 -	RHp	-	-	#7537	"Återrapp."

>FORMFILES lcTable ROWS 2
#Id	sp
75	r
10	r
>FORM win10 ROWS 4 SIZE 103 "Command"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3  4278    2    0   15   78 -	QPM	-	pbReportTO	-	"allrow.bmp,Återrapp. &TO"
B3  4280    1   82   15   78 -	QPM	-	pbReportGroup	-	"allrow.bmp,Återrapp. &grupp"
B3  4287    1  164   15   78 -	QPM	-	pbChangeStat	-	"edit.bmp, Ä&ndra status"
B3  4478    1  246   15   78 -	QPM	-	pbPrintJournal	-	"print.bmp, &Skriv journal"

>FORMFILES win10 ROWS 0
#Id	sp
>FORM tab2 ROWS 3 SIZE 3 "tab2"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4333   17    4   98  236 -	p	-	win11	-	""
WW  4547   16    4   98  236 -	HP	-	win14	-	""
WW  4560   14    2   98  236 -	HP	-	win18	-	""

>FORMFILES tab2 ROWS 0
#Id	sp
>FORM win11 ROWS 11 SIZE 108 "Antal"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   4338   28   72   13   52 -	pfO	-	-	#7537	""
T   4339    1    4   11   68 -	p	-	-	-	"Order antal:"
T   4340   15    4   11   68 -	p	-	-	-	"Uttaget antal:"
T   4341   29    4   11   68 -	p	-	-	-	"Tidigare återrapp.:"
D   4337   14   72   13   52 -	pfO	-	-	#7535	""
D   4335    0   72   13   52 -	pfO	-	-	#7531	""
T   4441   43    4   11   68 -	p	-	-	-	"Tidigare kasserade:"
D   4442   42   72   13   52 -	pfO	-	-	#7538	""
T   4443   57    4   11   68 -	p	-	-	-	"Enhet:"
XB  4479   85    2   10  101 -	P	-	xb1	-	"Återför överskjutande mtrl."
CE  4559   56   72  150   53 -	pfc	-	cbUnit	#7519	""

>FORMFILES win11 ROWS 0
#Id	sp
>FORM win17 ROWS 2 SIZE 10 "win17"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CE  4530   10    5  150  100 -	Pc	-	cbPrinter	#815	""
GB  4529    0    0   28  447 -	pZ	-	-	-	"Skrivare"

>FORMFILES win17 ROWS 0
#Id	sp
>FORM win14 ROWS 18 SIZE 97 "Blanketter"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CE  4549    2   42  100   68 -	Dpc	-	cbFormSet	#7571	""
T   4550    5    2   11   40 -	p	-	-	-	"Blankettset:"
T   4551   20    2   11   58 -	p	-	-	-	"Blanketter"
T   4552   20   62   11   33 -	p	-	-	-	"Format"
T   4553   20   96   11   29 -	p	-	-	-	"Skrivas"
T   4554   20  126    9   28 -	p	-	-	-	"Skrivare"
T   4555   32    2   10   58 -	Hp	-	txForm1	-	"Text"
XB  4556   32   60   10   52 -	HP	-	xbFormat1	#865	"Check"
CE  4557   30  128  200   25 -	Pc	-	cbPrinter1	#10471	""
T   4578   45    2   10   58 -	Hp	-	txForm2	-	"Text"
XB  4579   45   60   10   52 -	HP	-	xbFormat2	#866	"Check"
CE  4580   44  128  200   25 -	Pc	-	cbPrinter2	#10472	""
T   4581   60    2   10   58 -	Hp	-	txForm3	-	"Text"
XB  4582   60   60   10   52 -	HP	-	xbFormat3	#867	"Check"
CE  4583   58  128  200   25 -	Pc	-	cbPrinter3	#10473	""
T   4584   74    2   10   58 -	Hp	-	txForm4	-	"Text"
XB  4585   74   60   10   52 -	HP	-	xbFormat4	#868	"Check"
CE  4586   72  128  200   25 -	Pc	-	cbPrinter4	#10474	""

>FORMFILES win14 ROWS 0
#Id	sp
>FORM win18 ROWS 15 SIZE 86 "Kassation"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CE  4563    5   47  100   90 -	Pc	-	cbScrapCode	#16605	""
D   4561   20   48   13   50 -	P	-	edQuantScrap	#16631	""
D   4565   34   48   13   50 -	PU	-	edWCScrap	#16663	""
D   4567   20  166   13   50 -	pU	-	edMachineScrap	#16607	""
D   4569   34  166   13   50 -	pU	-	edToolScrap	#16667	""
EM  4576   50   48   46  186 -	Pä	-	edTextScrap	-	""
T   4562   20    4   11   42 -	p	-	-	-	"Antal:"
T   4568   20  122   11   42 -	p	-	-	-	"Maskinkod:"
T   4566   34    4   11   42 -	p	-	-	-	"Resursgrupp:"
T   4570   34  122   11   42 -	p	-	-	-	"Verktyg:"
T   4572   50    4   11   42 -	p	-	-	-	"Text:"
B3  4573   34  100   13   15 -	xTpfF	-	pbSeekWCScrap	-	"seek.bmp"
B3  4574   20  220   13   15 -	xTpfF	-	pbSeekMachineScrap	-	"seek.bmp"
B3  4575   34  220   13   15 -	xTpfF	-	pbSeekToolScrap	-	"seek.bmp"
T   4564    5    4   11   42 -	p	-	-	-	"Orsak:"

>FORMFILES win18 ROWS 0
#Id	sp
>SOURCE
