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

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

>TEXTINFO ROWS 43 SIZE 941
#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 i tillv.ordern
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


>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   347   403 SB	-	-	"-"	  0	"521 Rapportering"

>FORM MAIN ROWS 18 SIZE 114 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4277   17    3   35  377 -	P	-	win10	-	""
GR  4243   90    4   83  333 -	pWZ	-	lcTable	-	""
GR  4250   57    4  116  333 -	HpWZ	-	lcTable2	-	""
TB  4122  176    3  141  334 -	PZ	-	tab1	-	"Ra&pportering"
B3  4105  187  341   15   58 -	QDPwz	-	pbExecute	-	"ok.bmp,&Verkställ"
B3     2  302  341   15   58 -	xQPwz	-	pbExit	-	"exit.bmp,St&äng"
D   4305   57  133   13   86 -	pfO	-	edTillvinfo	#7525	""
D   4307   57  284   13   12 -	pfO	-	edStatus	#7515	""
T   4308   58  259   11   22 -	p	-	txStatus	-	"Status:"
D   4302   57   47   13   80 -	pfO	-	edOrdernamn	#7581	""
T   4303   58    4   11   37 -	p	-	txOrdernamn	-	"Ordernamn:"
WW   621    0    4   16  396 -	pZ	-	win1	-	""
D   4309   71   47   13   80 -	pfO	-	edProduktkod	#7505	""
T   4310   72    4   11   39 -	p	-	txProdukt	-	"Produkt:"
D   4311   71  133   13   86 -	pfO	-	edProduktnamn	#7517	""
D   4313   71  284   13   53 -	pfO	-	edAntal	#7531	""
T   4314   72  259   11   22 -	p	-	txAntal	-	"Antal:"
B3  4439  205  341   15   58 -	QHDPwz	-	pbActivity	-	"new.bmp,Ny aktivitet"

>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  395 -	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  125  325 -	HP	-	win5	-	""
WW  4209   14    4  125  325 -	P	-	win4	-	""

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

>FORM win4 ROWS 25 SIZE 191 "win4"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
TB  4332    3  162  117  161 -	DPB	-	tab2	-	"&1.Antal,&2.Radegn.,&3.Blanketter"
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   22 -	PU	-	edManufactRow	#7903	""
CE  4276   45   95   50   59 -	Hpc	-	cbStock	#8830	""
D   4223   59   44   13   73 -	PU	-	edArtCode	#7905	""
D   4225   73   44   13  108 A25	p$	-	edName	#3621	""
D   4227   87   44   13   40 f8.2	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  138   13   15 -	xTpfF	-	pbArtCode	-	"seek.bmp"
B3  4320   59  128   13    9 -	xTpfF	-	pbArtCodeNext	-	"arrowr.bmp"
B3  4319   59  118   13    9 -	xTpfF	-	pbArtCodePrev	-	"arrowl.bmp"
D   4435  101   44   13   40 f8.2	pU	-	edRest	-	""

>FORM lcTable ROWS 10 SIZE 70 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   4419    1    1   11   20 -	Hp	-	-	#7903	"Rad"
T   4420    1   21   11   50 -	Hp	-	-	#7905	"Artikelkod"
T   4421    1   71   11   70 -	Hp	-	-	#7921	"Benämning"
T   4422    1  141   11   60 -	Hp	-	-	#8831	"Kategori"
T   4423    1  201   11   12 -	HpL	-	-	#7917	"F"
T   4424    1  213   11   32 -	RHp	-	-	#7931	"Budget"
T   4425    1  245   11   32 -	RHp	-	-	#7933	"Rapp."
T   4426    1  277   11   32 -	RHp	-	-	#7935	"Rest"
T   4467    1  309   11   27 -	Hp	-	-	#861	"Uttag"
T   4466   13    1   11   27 -	Hp	-	-	#7914	"Extern op"

>FORMFILES lcTable ROWS 2
#Id	sp
79	r
10	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 2
#Id	sp
75	r
10	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   19    0   15   78 -	QPM	-	pbMakulera	-	"Del.bmp, Ma&kulera rest"
B3  4287   19   82   15   78 -	QPM	-	pbChangeStat	-	"edit.bmp, Ä&ndra status"

>FORM tab2 ROWS 3 SIZE 3 "tab2"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4333   14    3  100  154 -	P	-	win11	-	""
WW  4348   14    3   99  156 -	P	-	win12	-	""
WW  4441   14    2  101  157 -	HP	-	win13	-	""

>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.2	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 20 SIZE 111 "Blanketter"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   4443    3    1   11   36 -	p	-	-	-	"Blanketter"
T   4444    3   63   11   24 -	p	-	-	-	"Format"
T   4445    3   97   11   26 -	p	-	-	-	"Skrivas"
T   4446    3  127    9   28 -	p	-	-	-	"Skrivare"
T   4447   15    1   10   62 -	Hp	-	txForm1	-	"Text"
XB  4448   15   63   10   52 -	HP	-	xbFormat1	#865	"Check"
CE  4449   13  131  200   25 -	Pc	-	cbPrinter1	#10471	""
T   4450   29    1   10   62 -	Hp	-	txForm2	-	"Text"
XB  4451   29   63   10   52 -	HP	-	xbFormat2	#866	"Check"
CE  4452   27  131  200   25 -	Pc	-	cbPrinter2	#10472	""
T   4456   43    1   10   62 -	Hp	-	txForm3	-	"Text"
XB  4457   43   63   10   52 -	HP	-	xbFormat3	#867	"Check"
CE  4458   41  131  200   25 -	Pc	-	cbPrinter3	#10473	""
T   4459   57    1   10   62 -	Hp	-	txForm4	-	"Text"
XB  4460   57   63   10   52 -	HP	-	xbFormat4	#868	"Check"
CE  4461   55  131  200   25 -	Pc	-	cbPrinter4	#10474	""
T   4462   71    1   10   62 -	Hp	-	txForm5	-	"Text"
XB  4463   71   63   10   52 -	HP	-	xbFormat5	#869	"Check"
CE  4464   69  131  200   25 -	Pc	-	cbPrinter5	#10475	""
XB  4465   83   37   10   78 -	P	-	xbDirectPrint	#864	"Direkt utskrift"

>FORMFILES win13 ROWS 0
#Id	sp
>SOURCE
