>TYPE   	D
>NAME   	serinlev.d
>CODE   	serinlev.cod
>BY     	@(#)$Author: Sture $
>DATE   	@(#)$Date: 09-05-19 13:42 $
>VERSION	@(#)$Revision: 11 $
>ID     	21037

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

>TEXTINFO ROWS 6 SIZE 241
#id    value    flags    text
IDL_100  100  -  F6:Auto: Antal individer = %1 (utan serienummer)
IDL_101  101  -  Skapa serienummer för %1  %2
IDL_102  102  -  Inköpspris från rapporterad kostnad, beräknas vid Verkställ
IDL_103  103  -  Antal individer som skapas: %1 st. Godkänt?
IDL_104  104  -  Serienummer finns
IDL_106  106  -  Serienummer måste anges för hyresartikel


>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 1
#id Eventname	ParamList
1098	TempSerialIndeliveryUpdateTemp	()


>WINDOW ROWS 1
#id       x     y    cy    cx sp1	sp2	Bitmap	font	size	caption
5511     10    10   275   410 SBL	-	-	"-"	  0	""

>FORM MAIN ROWS 9 SIZE 116 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
TB    13  138    4  104  334 -	PZw	-	tab1	-	"Serienummer"
B3    58  246    6   15   62 -	QPw	-	pbSave	-	"save.bmp,&Spara rad"
B3    59  246   72   15   62 -	QPw	-	pbNew	-	"new.bmp,&Ny rad"
B3    60  246  138   15   62 -	QPw	-	pbDelete	-	"delete.bmp,&Ta bort rad"
B3    53  150  340   15   68 -	TPwz	-	pbCreate	-	"new.bmp,&Intervall"
B3     2  246  340   15   68 -	TPwz	-	pbExit	-	"exit.bmp,St&äng"
GR    61   22    4  110  334 -	PWZ	-	lcSerie	-	""
T     52    8  236   11   42 -	pz	-	-	-	"Antal:"
D     51    6  280   13   56 -	pfOz	-	edNumber	-	""

>FORM tab1 ROWS 1 SIZE 1 "tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW    15   12    2   90  328 -	PZ	-	win1	-	""

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win1 ROWS 23 SIZE 128 "win1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D     16    2   46   13  114 -	P	-	edName	#1621	""
D     18   16   46   13   60 -	P	-	edCost	#1651	""
CE    21   30   46   50   90 -	Pc	-	cbType	#1623	""
D     20   44   46   13   60 -	P	-	edSupplierArtCode	#1642	""
DP    24   58   46   13   44 D8	P	-	dpWarranty	#1662	""
XB    26   72    2   13   54 -	P	-	xbEtiquette	#861	"Etikett"
D     27    2  210   13   60 -	P	-	edBatch	#1646	""
D     29   16  210   12  114 -	P	-	-	#1625	""
D     30   30  210   12  114 -	P	-	-	#1627	""
D     33   44  210   12  114 -	P	-	-	#1628	""
D     35   58  210   12   52 -	P	-	-	#1643	""
D     48   72  210   13  114 -	PU	-	edSerialNumber	#1615	""
T     28    4  166   11   40 -	p	-	-	-	"Batchnr:"
T     17    4    2   11   40 -	p	-	-	-	"Benämning:"
T     22   32    2   11   40 -	p	-	-	-	"Typ:"
T     31   18  166   11   40 -	p	-	-	-	"Info 1:"
T     32   32  166   11   40 -	p	-	-	-	"Info 2:"
T     23   46    2   11   40 -	p	-	txSupplierArtCode	-	"Lev. art.kod:"
T     34   46  166   11   40 -	p	-	-	-	"Info 3:"
T     19   18    2   11   40 -	p	-	txCost	-	"Inköpspris:"
T     36   60  166   11   40 -	p	-	-	-	"Lagerplats:"
T     25   60    2   11   40 -	p	-	txWarranty	-	"Lev.garanti:"
T     49   74  166   11   40 -	p	-	-	-	"Serienr:"

>FORMFILES win1 ROWS 0
#Id	sp
>FORM lcSerie ROWS 3 SIZE 29 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T     62    4    4   11   50 -	Hp	-	-	#1615	"Serienr"
T     63    4   60   11  112 -	Hp	-	-	#1621	"Benämning"
T     64    6  182   11   50 -	RHp	-	-	#1651	"Inköpspris"

>FORMFILES lcSerie ROWS 1
#Id	sp
16	r
>SOURCE
