>TYPE   	D
>NAME   	521.d
>CODE   	521.cod
>BY     	@(#)$Author: Sture $
>DATE   	
>VERSION	@(#)$Revision: 41 $
>ID     	5055

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

>TEXTINFO ROWS 48 SIZE 1068
#id    value    flags    text
IDL_100  100  -  Uttag kunde inte genomföras
IDL_101  101  -  Totaluttag gjort för tillv.ordern %1
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.ordern 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
IDL_120  120  -  F6: Auto
IDL_121  121  -  F4: Utleverans lagerplatser
IDL_122  122  -  Lager inte angivet
IDL_123  123  -  Inga restrader
IDL_124  124  -  Antal får inte vara 0
IDL_125  125  -  Antal måste anges
IDL_126  126  -  Samma antal måste anges i serienummer och lagerplatser
IDL_127  127  -  Tillv.nr måste anges
IDL_129  129  -  521 Totaluttag TO
IDL_130  130  -  521 Materialuttag
IDL_131  131  -  521 Tidrapportering
IDL_132  132  -  521 Flera TO
IDL_133  133  -  521 Makulera rest
IDL_134  134  -  521 Ändra status
IDL_135  135  -  Lagerförda
IDL_136  136  -  Ej lagerförda
IDL_137  137  -  Tider
IDL_138  138  -  Övriga kostnader
IDL_139  139  -  Anteckningar
IDL_140  140  -  Lagerplats måste anges
IDL_141  141  -  Serienr måste anges
IDL_142  142  -  Serienummer och lagerplats måste anges
IDL_143  143  -  Enligt tillverkningstyp ska uttag göras i rutin 530. Avbryt uttag
IDL_144  144  -  Kassation registrerad
IDL_145  145  -  Resursgrupp saknas
IDL_146  146  -  Maskinkod saknas
IDL_147  147  -  Verktyg saknas
IDL_150  150  -  Summa kassation kan inte vara under noll. Sätter kassation till noll


>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	"521 Rapportering"

>FORM MAIN ROWS 17 SIZE 107 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4277   17    3   20  513 -	P	-	win10	-	""
GR  4243   70    4   83  512 -	pWZ	-	lcTable	-	""
TB  4122  155    3  162  450 -	PZ	-	tab1	-	"Ra&pportering"
B3  4105  167  457   15   58 -	QDPwz	-	pbExecute	-	"ok.bmp,&Verkställ"
B3     2  301  457   15   58 -	xQPwz	-	pbExit	-	"exit.bmp,St&äng"
D   4305   39  224   13  150 -	pfO	-	edTillvinfo	#7525	""
D   4307   39  440   13   12 -	pfO	-	edStatus	#7515	""
T   4308   40  414   11   22 -	p	-	txStatus	-	"Status:"
D   4302   39   47   13  150 -	pfO	-	edOrdernamn	#7581	""
T   4303   40    4   11   37 -	p	-	txOrdernamn	-	"Ordernamn:"
WW   621    0    4   16  513 -	pZ	-	win1	-	""
D   4309   53   47   13  110 -	pfO	-	edProduktkod	#7505	""
T   4310   54    4   11   39 -	p	-	txProdukt	-	"Produkt:"
D   4311   53  224   13  150 -	pfO	-	edProduktnamn	#7517	""
B3  4439  185  457   15   58 -	QHDPwz	-	pbActivity	-	"new.bmp,Ny aktivitet"
D   4313   39  454   13   60 -	pfO	-	edStatusText	#7255	""
WW  4506   37    0  117  516 -	HPWZ	-	win15	-	""

>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 2 SIZE 2 "tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4123   14    4  145  443 -	HP	-	win5	-	""
WW  4209   14    4  145  443 -	P	-	win4	-	""

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win5 ROWS 24 SIZE 174 "win5"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3  4149    3  106   13   15 -	STpfF	-	pbStart	-	"seek.bmp"
B3  4150   17  106   13   15 -	STpfF	-	pbEnd	-	"seek.bmp"
B3  4151   31  106   13   15 -	STpfF	-	pbType	-	"seek.bmp"
B3  4152   45  106   13   15 -	STpfF	-	pbGroup	-	"seek.bmp"
B3  4208   74  106   13   15 -	STpfF	-	pbStat	-	"seek.bmp"
D   4126    3   44   13   60 A8	PU	-	edStart	#841	""
D   4127   17   44   13   60 A8	PU	-	edEnd	#849	""
D   4139   31   44   13   60 A3	PU	-	edType	#851	""
D   4141   45   44   13   60 A8	PU	-	edGroup	#854	""
D   4143   59   44   13   60 A8	PU	-	EdArea	#853	""
D   4207   73   44   13   60 -	PU	-	edStat	#852	""
DP  4132   87   44   13   44 W5	Pa	-	dpFran	#844	""
DP  4134   87   93   13   44 W5	Pa	-	dpTill	#846	""
PB  4322  106    2   15   50 -	DP	-	pbSelect	-	"Hämta &urval"
PB  4323  106   56   15   50 -	DP	-	pbRemove	-	"&Töm urval"
PB  4324  106  110   15   50 -	DP	-	pbDelete	-	"Ra&dera rad"
T   4131   18    2   11   38 -	p	-	-	-	"Till tillv.nr:"
T   4138   32    2   11   38 -	p	-	-	-	"Tillv.typ:"
T   4206   74    2   14   40 -	p	-	txProduktstatus	-	"Tillv.status:"
T   4142   46    2   11   38 -	p	-	-	-	"Grupp:"
T   4135   88    2   11   38 -	p	-	-	-	"Startveckor:"
T   4130    4    2   11   38 -	p	-	-	-	"Från tillv.nr:"
T   4144   60    2   11   38 -	p	-	-	-	"Område:"
T   4146   88   89   11    4 -	p	-	-	-	"-"

>FORMFILES win5 ROWS 0
#Id	sp
>FORM win4 ROWS 25 SIZE 204 "win4"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
TB  4332    3  193  140  249 -	DPB	-	tab2	-	"&1.Antal,&2.Radegn.,&3.Blanketter,&4.Kassation"
CE  4289    3   44   50   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  4276   45   95   50   59 -	Hpc	-	cbStock	#8830	""
D   4223   59   44   13  110 -	PU	-	edArtCode	#7905	""
D   4225   73   44   13  145 A25	p$	-	edName	#3621	""
D   4227   87   44   13   40 f8.4	PU	-	edRepQuantity	#7939	""
T   4224   60    2   11   42 -	p	-	-	-	"Artikelkod:"
T   4228   88    2   11   42 -	p	-	-	-	"Rapp antal:"
T   4220   46    2   11   42 -	p	-	-	-	"Tillv.rad:"
T   4230  102    2   11   42 -	p	-	-	-	"Rest:"
T   4274   46   73   11   21 -	Hp	-	txStock	-	"Lager:"
T   4226   74    2   11   42 -	p	-	-	-	"Benämning:"
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"
B3  4321   59  175   13   15 -	xTpfF	-	pbArtCode	-	"seek.bmp"
B3  4320   59  165   13    9 -	xTpfF	-	pbArtCodeNext	-	"arrowr.bmp"
B3  4319   59  155   13    9 -	xTpfF	-	pbArtCodePrev	-	"arrowl.bmp"
D   4435  101   44   13   40 f8.4	pU	-	edRest	-	""

>FORMFILES win4 ROWS 0
#Id	sp
>FORM lcTable ROWS 10 SIZE 83 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   4419    1    1   11   25 -	Hp	-	-	#7903	"Rad"
T   4420    1   26   11   50 -	Hp	-	-	#7905	"Artikelkod"
T   4421    1   76   11   70 -	Hp	-	-	#7921	"Benämning"
T   4422    1  146   11   60 -	Hp	-	-	#8831	"Kategori"
T   4424    1  206   11   32 -	RHp	-	-	#7931	"Budget"
T   4425    1  238   11   32 -	RHp	-	-	#7933	"Rapp."
T   4426    1  270   11   32 -	RHp	-	-	#7935	"Rest"
T   4467    1  302   11   27 -	Hp	-	-	#861	"Uttag"
T   4466    1  329   11   27 -	Hp	-	-	#7914	"Extern op"
T   4495    1  357   11   40 -	RHp	-	-	#7938	"Kasserat antal"

>FORMFILES lcTable ROWS 4
#Id	sp
79	r
10	r
73	r
77	r
>FORM lcTable2 ROWS 5 SIZE 56 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   4427    1    1   11   40 -	Hp	-	-	#7501	"Tillv.nr"
T   4428    1   41   11  118 -	Hp	-	-	#7581	"Ordernamn"
T   4429    1  159   11   48 -	Hp	-	-	#7505	"Produktkod"
T   4430    1  207   11   46 -	RHp	-	-	#7531	"Order antal"
T   4431    1  253   11   46 -	RHp	-	-	#7535	"Uttaget antal"

>FORMFILES lcTable2 ROWS 4
#Id	sp
75	r
10	r
73	r
77	r
>FORM win10 ROWS 6 SIZE 159 "Command"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3  4278    2    0   15   78 -	QPM	-	pbTotaluttagTO	-	"allrow.bmp,&Totaluttag TO"
B3  4280    2   82   15   78 -	QPM	-	pbMaterialuttag	-	"partrow.bmp,&Materialuttag"
B3  4279    2  164   15   78 -	QPM	-	pbTidrapportering	-	"timerep.bmp, T&idrapportering"
B3  4281    2  246   15   78 -	QPM	-	pbFleraTO	-	"allrow.bmp, &Uttag flera TO"
B3  4286    2  328   15   78 -	QPM	-	pbMakulera	-	"Del.bmp, Ma&kulera rest"
B3  4287    2  410   15   78 -	QPM	-	pbChangeStat	-	"edit.bmp, Ä&ndra status"

>FORMFILES win10 ROWS 0
#Id	sp
>FORM tab2 ROWS 4 SIZE 4 "tab2"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4333   14    3  125  245 -	P	-	win11	-	""
WW  4348   14    3  125  245 -	P	-	win12	-	""
WW  4441   14    2  125  245 -	HP	-	win13	-	""
WW  4475   14    3  125  245 -	HP	-	win14	-	""

>FORMFILES tab2 ROWS 0
#Id	sp
>FORM win11 ROWS 10 SIZE 95 "Antal"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   4342   58   51   13   50 f8.4	DP	-	edQuantity	-	""
XB  4381   84    1   11   58 -	P	-	xbMakuleraRest	-	"Makulera rest"
D   4338   35   51   13   50 -	pfO	-	-	#7537	""
T   4339    8    3   11   43 -	p	-	-	-	"Order antal:"
T   4340   22    3   11   43 -	p	-	-	-	"Uttaget antal:"
T   4341   36    3   11   43 -	p	-	-	-	"Återrapp.:"
D   4337   21   51   13   50 -	pfO	-	-	#7535	""
T   4344   59    3   11   43 -	p	-	-	-	"Antal:"
D   4335    7   51   13   50 -	pfO	-	-	#7531	""
T   4383   72    2   11   90 -	p	-	-	-	"Blankt antal = allt resterande"

>FORMFILES win11 ROWS 0
#Id	sp
>FORM win12 ROWS 17 SIZE 79 "Radegn"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   4354   55   36   13   40 -	pO	-	-	#7931	""
D   4355   69   36   13   40 -	HpO	-	edSaldo	#1132	""
D   4356   83   36   13   40 -	HpO	-	edDisp	#8331	""
D   4358   55  113   13   40 -	pO	-	-	#7933	""
D   4362   69  113   13   40 -	HpO	-	edRes	#1134	""
D   4361   83  113   13   40 -	HpO	-	edInk	#1136	""
T   4359   56   87   11   25 -	p	-	-	-	"Rapp.:"
T   4360   70    4   11   31 -	Hp	-	txSaldo	-	"Saldo:"
T   4352   32    4   11   31 -	p	-	-	-	"Enhet:"
T   4357   56    4   11   31 -	p	-	-	-	"Budget:"
T   4363   70   87   11   25 -	Hp	-	txRes	-	"Res.:"
T   4365   84   87   11   25 -	Hp	-	txInk	-	"Inköp:"
T   4366   84    4   11   31 -	Hp	-	txDisp	-	"Disp:"
T   4350   18    4   11   31 -	p	-	txLoneArt	-	"Löneart:"
CE  4432   17   35  200   80 -	Pc	-	cbLoneArt	#3641	""
CE  4433   31   35   50   80 -	pfc	-	cbUnit	#7913	""
XB  4474    4    2   11   60 -	p	-	xbMakuleraRest2	-	"Makulera rest"

>FORMFILES win12 ROWS 0
#Id	sp
>FORM win13 ROWS 26 SIZE 135 "Blanketter"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   4443    3    1   11   36 -	p	-	-	-	"Blanketter"
T   4444    4   83   11   24 -	p	-	-	-	"Format"
T   4445    4  117   11   26 -	p	-	-	-	"Skrivas"
T   4446    4  147    9   28 -	p	-	-	-	"Skrivare"
T   4447   15    1   10   70 -	Hp	-	txForm1	-	"Text"
XB  4448   15   83   10   52 -	HP	-	xbFormat1	#865	"Check"
CE  4449   13  151  200   25 -	Pc	-	cbPrinter1	#10471	""
T   4450   29    1   10   70 -	Hp	-	txForm2	-	"Text"
XB  4451   29   83   10   52 -	HP	-	xbFormat2	#866	"Check"
CE  4452   28  151  200   25 -	Pc	-	cbPrinter2	#10472	""
T   4456   43    1   10   70 -	Hp	-	txForm3	-	"Text"
XB  4457   44   83   10   52 -	HP	-	xbFormat3	#867	"Check"
CE  4458   42  151  200   25 -	Pc	-	cbPrinter3	#10473	""
T   4459   57    1   10   70 -	Hp	-	txForm4	-	"Text"
XB  4460   58   83   10   52 -	HP	-	xbFormat4	#868	"Check"
CE  4461   55  151  200   25 -	Pc	-	cbPrinter4	#10474	""
T   4462   71    1   10   70 -	Hp	-	txForm5	-	"Text"
XB  4463   71   83   10   52 -	HP	-	xbFormat5	#869	"Check"
CE  4464   69  151  200   25 -	Pc	-	cbPrinter5	#10475	""
XB  4465  112   58   10   78 -	P	-	xbDirectPrint	#864	"Direkt utskrift"
T   4497   85    0   10   70 -	Hp	-	txForm6	-	"Text"
T   4498   98    0   10   70 -	Hp	-	txForm7	-	"Text"
XB  4499   85   83   10   52 -	HP	-	xbFormat6	#870	"Check"
XB  4500   98   83   10   52 -	HP	-	xbFormat7	#871	"Check"
CE  4501   83  151  200   25 -	Pc	-	cbPrinter6	#10476	""
CE  4502   97  151  200   25 -	Pc	-	cbPrinter7	#10477	""

>FORMFILES win13 ROWS 0
#Id	sp
>FORM win14 ROWS 14 SIZE 77 "Kassation"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CE  4479    4   50  205   90 -	Pc	-	cbScrapCode	#16605	""
D   4476   20   50   13   60 -	P	-	edQuantScrap	#16631	""
D   4503   34   50   12   60 -	pU	-	-	#16663	""
D   4485   20  166   13   60 -	pU	-	edMachineScrap	#16607	""
D   4489   34  166   12   60 -	pU	-	edToolScrap	#16667	""
EM  4496   50   50   67  191 -	Pä	-	edTextScrap	-	""
B3  4487   18  226   13   15 -	xTpfF	-	pbSeekMachineScrap	-	"seek.bmp"
B3  4488   34  226   13   15 -	xTpfF	-	pbSeekToolScrap	-	"seek.bmp"
T   4477   20    4   11   42 -	p	-	-	-	"Antal:"
T   4490   36  120   11   42 -	p	-	-	-	"Verktyg:"
T   4492   50    4   11   42 -	p	-	-	-	"Text:"
T   4481    4    4   11   42 -	p	-	txScrapCode	-	"Orsak:"
T   4486   21  120   11   42 -	p	-	-	-	"Maskinkod:"
T   4504   34    4   11   42 -	p	-	-	-	"Resursgrupp:"

>FORMFILES win14 ROWS 0
#Id	sp
>FORM win15 ROWS 1 SIZE 1 "win15"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
GR  4250    2    4  114  512 -	pWZ	-	lcTable2	-	""

>FORMFILES win15 ROWS 0
#Id	sp
>SOURCE
