>TYPE   	D
>NAME   	522.d
>CODE   	522.cod
>BY     	@(#)$Author: Sture $
>DATE   	
>VERSION	@(#)$Revision: 42 $
>ID     	5501

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

>TEXTINFO ROWS 48 SIZE 1113
#id    value    flags    text
IDL_102  102  -  Spärrad
IDL_103  103  -  Tillv.ordern upptagen av %1 i rutin %2
IDL_104  104  -  TO saknas
IDL_105  105  -  BLANKT = Första startveckan
IDL_106  106  -  BLANKT = Sista startveckan
IDL_107  107  -  Rad måste markeras
IDL_108  108  -  Felaktigt intervall
IDL_109  109  -  Tillv.order saknas
IDL_110  110  -  Löneart saknas
IDL_111  111  -  Tillv.ordern är avslutad
IDL_112  112  -  Lager saknas på TO
IDL_113  113  -  Rapportering spärrad, fortsätt ändå
IDL_114  114  -  Rapportering spärrad
IDL_115  115  -  Artikel saknas
IDL_116  116  -  Makulera rest
IDL_117  117  -  Radnumret saknas
IDL_118  118  -  Produkt
IDL_119  119  -  Artikelkoden saknas i tillv.ordern
IDL_120  120  -  F6: Auto
IDL_121  121  -  F4: Utleverans lagerplatser
IDL_122  122  -  Lager inte angivet
IDL_123  123  -  Slut på restrader
IDL_124  124  -  Tillv.ordern har inga fler icke påbörjade operationer
IDL_125  125  -  Tillv.ordern saknar påbörjade operationer
IDL_126  126  -  Ej operation
IDL_127  127  -  Operationen avslutad, fortsätt
IDL_128  128  -  Materialuttag kan inte ske, rapportering spärrad
IDL_129  129  -  Kan ej vara negativt totalt
IDL_130  130  -  Fel vid uppdatering
IDL_131  131  -  Avsluta operationen
IDL_132  132  -  Godkänt
IDL_133  133  -  Tillv.ordern saknar operationer
IDL_134  134  -  Radnr 0 ej tillåtet
IDL_135  135  -  Sista operationen. Återrapportera TO
IDL_136  136  -  Tillverkningstyp saknas
IDL_137  137  -  522 Starta operation
IDL_138  138  -  522 Återrapp. operation
IDL_139  139  -  522 Ändra status
IDL_140  140  -  Anteckningar
IDL_141  141  -  Påbörjad
IDL_142  142  -  Avslutad
IDL_143  143  -  Resursgrupp saknas
IDL_144  144  -  Maskin saknas
IDL_145  145  -  Verktyg saknas
IDL_146  146  -  Kassation registrerad
IDL_150  150  -  Summa kassation kan inte vara under noll. Sätter kassation till noll
IDL_151  151  -  Kassationskod måste anges
IDL_152  152  -  Antal kasserade måste anges


>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 0
#id Eventname	ParamList


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

>FORM MAIN ROWS 16 SIZE 113 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4277   17    3   19  513 -	P	-	win10	-	""
GR  4243   70    4   83  511 -	pWZ	-	lcTable	-	""
TB  4122  154    2  166  445 -	PZ	-	tab1	-	"&Operationshantering"
B3  4105  168  454   15   58 -	QDPwz	-	pbExecute	-	"ok.bmp,&Verkställ"
B3     2  306  453   15   58 -	xQPwz	-	pbExit	-	"exit.bmp,St&äng"
D   4305   39  224   13  150 -	pfO	-	edTillvinfo	#7525	""
D   4307   38  438   13   12 -	pfO	-	edStatus	#7515	""
T   4308   40  414   11   24 -	p	-	txStatus	-	"Status:"
D   4302   39   45   13  150 -	pfO	-	edOrdernamn	#7581	""
T   4303   40    4   11   41 -	p	-	txOrdernamn	-	"Ordernamn:"
WW   621    0    4   16  512 -	pZ	-	win1	-	""
D   4309   53   45   13  110 -	pfO	-	edProduktkod	#7505	""
T   4310   54    4   11   41 -	p	-	txProdukt	-	"Produkt:"
D   4311   53  224   13  150 -	pfO	-	edProduktnamn	#7517	""
B3  4502  185  454   15   58 -	QHDPwz	-	pbActivity	-	"new.bmp,Ny aktivitet"
D   4313   38  452   13   60 -	pfO	-	edAntal	#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  511 -	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  149  438 -	P	-	win4	-	""

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win4 ROWS 24 SIZE 171 "win4"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
TB  4332    4  186  144  249 -	DPB	-	tab2	-	"&1Radegn,&2.Blanketter,&3.Kassation"
CE  4289    3   43   80   90 -	Pc	-	cbSign	#8825	""
DP  4291   17   44   13   46 D8	P	-	dpDate	#8711	""
D   4214   31   44   13   60 A8	PU	-	edManufact	-	""
D   4218   45   44   13   25 -	PU	-	edManufactRow	#7903	""
CE  4445   45   90  100   68 -	Dpc	-	cbFormSet	#7571	""
D   4443   59   44   13  112 -	pfUO	-	edArtCode	#7905	""
D   4444   73   44   13  112 A25$	pfO	-	edName	#7921	""
D   4454   87   44   13   40 -	PO	-	edProd	#8861	""
D   4229  101   44   13   40 f8.4	PU	-	edRapp	#7939	""
D   4448  101  116   13   40 f8.4	pU	-	edRest	#7935	""
T   4288    4    2   11   42 -	p	-	txSign	-	"Signatur:"
T   4213   32    2   11   42 -	p	-	-	-	"Tillv.nr:"
T   4290   18    2   11   42 -	p	-	txDate	-	"Datum:"
B3  4367   31  106   13    9 -	xTpfF	-	pbPrevManufact	-	"arrowl.bmp"
B3  4368   31  116   13    9 -	xTpfF	-	pbNextManufact	-	"arrowr.bmp"
B3  4369   31  126   13   15 -	xTpfF	-	pbManufact	-	"seek.bmp"
T   4220   46    2   11   42 -	p	-	-	-	"Tillv.rad:"
T   4224   60    2   11   42 -	p	-	-	-	"Artikelkod:"
T   4228   88    2   11   42 -	p	-	-	-	"Prod antal:"
T   4446   46   74   11   16 -	p	-	-	-	"Bla:"
T   4447  102   93   11   22 -	p	-	-	-	"Rest:"
T   4226   74    2   11   42 -	p	-	-	-	"Benämning:"
T   4230  102    2   11   42 -	p	-	-	-	"Rapp tid:"

>FORMFILES win4 ROWS 1
#Id	sp
79	r
>FORM lcTable ROWS 7 SIZE 55 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   4437    1    1   11   25 -	Hp	-	-	#7903	"Rad"
T   4438    1   26   11   50 -	Hp	-	-	#7905	"Artikelkod"
T   4439    1   76   11  100 -	Hp	-	-	#7921	"Benämning"
T   4440    1  176   11   40 -	RHp	-	-	#7956	"Påbörjade"
T   4441    1  216   11   40 -	RHp	-	-	#7957	"Färdiga"
T   4442    1  256   11   12 -	Hp	-	-	#7955	"O"
T   4600    1  268   11   70 -	Hp	-	-	#7938	"Kasserade"

>FORMFILES lcTable ROWS 4
#Id	sp
79	r
73	r
77	r
10	r
>FORM win10 ROWS 3 SIZE 86 "Command"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3  4278    2    0   15   74 -	QPM	-	pbStartOperation	-	"nothing.bmp,S&tarta operation"
B3  4280    2   78   15   74 -	QPM	-	pbRereportOperation	-	"nothing.bmp,&Återrapp operation"
B3  4287    2  156   15   74 -	QPM	-	pbChangeStat	-	"edit.bmp, Ä&ndra status"

>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   14    2  128  245 -	P	-	win11	-	""
WW  4475   14    1  128  245 -	P	-	win13	-	""
WW  4503   14    1  128  245 -	P	-	win14	-	""

>FORMFILES tab2 ROWS 0
#Id	sp
>FORM win11 ROWS 22 SIZE 134 "Radegn"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
XB  4381   12    4   11   62 -	P	-	xbMakuleraRest	-	"Makulera rest"
D   4338   82   56   13   50 -	pfO	-	-	#7956	""
T   4339   70  140   11   47 -	p	-	-	-	"Order antal:"
T   4340   70    6   11   47 -	p	-	-	-	"Status:"
T   4341   84    6   11   47 -	p	-	-	-	"Påbörjade:"
D   4335   68  189   12   50 -	pfO	-	-	#7531	""
D   4342   96   56   12   50 -	DpO	-	edQuantity	#7957	""
T   4344   98    6   11   47 -	p	-	-	-	"Färdiga:"
D   4452   68   56   13   10 -	pUO	-	-	#7955	""
D   4453   68   68   13   44 -	pO	-	-	#8828	""
T   4578   12  140   11   47 -	p	-	-	-	"Budget:"
D   4579   10  188   12   50 -	pO	-	-	#7931	""
T   4580   26  140   11   47 -	p	-	-	-	"Rapp.:"
D   4581   24  188   13   50 -	pO	-	-	#7933	""
T   4590   28    6   11   47 -	p	-	txLoneArt	-	"Löneart:"
T   4591   42    6   11   47 -	p	-	-	-	"Enhet:"
CE  4592   26   56  200   80 -	Pc	-	cbLoneArt	#3641	""
CE  4593   40   56   50   80 -	pc	-	cbUnit	#7913	""
D   4597  110   56   13   50 -	pO	-	-	#7938	""
T   4599  112    6   11   47 -	p	-	-	-	"Kasserade:"
GB  4594   59    2   68  242 -	p	-	-	-	"Prod antal"
GB  4595    3    2   56  242 -	p	-	-	-	"Tidrapportering"

>FORMFILES win11 ROWS 0
#Id	sp
>FORM win13 ROWS 26 SIZE 135 "Blanketter"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
XB  4480   14   62   10   52 -	HP	-	xbFormat1	#865	"Check"
XB  4482   28   62   10   52 -	HP	-	xbFormat2	#866	"Check"
XB  4484   42   62   10   52 -	HP	-	xbFormat3	#867	"Check"
XB  4486   56   62   10   52 -	HP	-	xbFormat4	#868	"Check"
XB  4488   70   62   10   52 -	HP	-	xbFormat5	#869	"Check"
XB  4489  116   41   10   74 -	P	-	xbDirectPrint	#864	"Direkt utskrift"
T   4477    1   63   10   32 -	p	-	-	-	"Format"
T   4483   42    2   10   60 -	Hp	-	txForm3	-	"Text"
T   4478    1   97   10   28 -	p	-	-	-	"Skrivas"
T   4485   56    2   10   60 -	Hp	-	txForm4	-	"Text"
T   4479   14    2   10   60 -	Hp	-	txForm1	-	"Text"
T   4487   70    2   10   60 -	Hp	-	txForm5	-	"Text"
T   4476    2    2   10   60 -	p	-	-	-	"Blanketter"
T   4481   28    2   10   60 -	Hp	-	txForm2	-	"Text"
T   4495    1  127   10   28 -	p	-	-	-	"Skrivare"
CE  4497   11  129  200   25 -	Pc	-	cbPrinter1	#10471	""
CE  4498   25  129  200   25 -	Pc	-	cbPrinter2	#10472	""
CE  4499   39  129  200   25 -	Pc	-	cbPrinter3	#10473	""
CE  4500   53  129  200   25 -	Pc	-	cbPrinter4	#10473	""
CE  4501   67  129  200   25 -	Pc	-	cbPrinter5	#10475	""
T   4542   84    2   10   60 -	Hp	-	txForm6	-	"Text"
T   4543   98    2   10   60 -	Hp	-	txForm7	-	"Text"
XB  4544   84   63   10   52 -	HP	-	xbFormat6	#870	"Check"
XB  4545   98   63   10   52 -	HP	-	xbFormat7	#871	"Check"
CE  4546   81  129  200   25 -	Pc	-	cbPrinter6	#10476	""
CE  4547   94  129  200   25 -	Pc	-	cbPrinter7	#10477	""

>FORMFILES win13 ROWS 0
#Id	sp
>FORM win14 ROWS 15 SIZE 93 "Kassation"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CE  4528    3   49  100   90 -	Pc	-	cbScrapCode	#16605	""
D   4516   17   49   13   60 -	P	-	edQuantScrap	#16631	""
D   4522   31   49   13   60 -	pU	-	edWCScrap	#16663	""
D   4530   17  170   13   60 -	pU	-	edMachineScrap	#16607	""
D   4524   31  170   13   60 -	pU	-	edToolScrap	#16667	""
EM  4541   46   49   78  192 -	Pä	-	edTextScrap	-	""
T   4514   19    6   11   42 -	p	-	-	-	"Antal:"
T   4529    5    5   11   42 -	p	-	txScrapCode	-	"Orsak:"
T   4523   32    6   11   42 -	p	-	-	-	"Resursgrupp:"
T   4531   19  126   11   42 -	p	-	-	-	"Maskinkod:"
B3  4532   17  229   13   15 -	xTpfF	-	pbSeekMachineScrap	-	"seek.bmp"
T   4525   32  126   11   42 -	p	-	-	-	"Verktyg:"
T   4534   47    5   11   42 -	p	-	-	-	"Text:"
B3  4527   30  229   13   15 -	xTpfF	-	pbSeekToolScrap	-	"seek.bmp"
XB  4601    7  160   10   70 -	p	-	xbOuttakeScrap	-	"Uttag kassation"

>FORMFILES win14 ROWS 0
#Id	sp
>SOURCE
