>TYPE   	D
>NAME   	serinlev.d
>CODE   	serinlev.cod
>BY     	@(#)$Author: Mickea $
>DATE   	@(#)$Date: 05-10-25 13:16 $
>VERSION	@(#)$Revision: 5 $
>ID     	21037

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

>TEXTINFO ROWS 8 SIZE 311
#id    value    flags    text
IDL_100  100  -  F6:Auto: Antal individer = %1 (utan serienummer)
IDL_101  101  -  Den totala längden överstiger 25 tecken
IDL_102  102  -  Det finns serienr inom detta intervall
IDL_103  103  -  Godkänt !OBS Antal individer %1
IDL_104  104  -  Serienummer finns
IDL_105  105  -  Måste ange %1 löpnummer till
IDL_106  106  -  Serienummer måste anges
IDL_107  107  -  Vill ni avbryta seriereg? Antal inlev. och antal reg. serienr kommer misstämma!


>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   275   340 SB	-	-	"-"	  0	"Serienummer"

>FORM MAIN ROWS 4 SIZE 48 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
GR    11    2    4   64  334 -	P	-	lcTable	-	""
TB    13   68    4  174  334 -	P	-	tab1	-	"Serienummer"
PB    53  246    4   15   68 -	P	-	pbCreate	-	"&Skapa serienummer"
B3     2  246  288   15   50 -	TP	-	pbExit	-	"exit.bmp,St&äng"

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

>FORM win1 ROWS 26 SIZE 147 "win1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
TB    37   26  180   96  140 -	PB	-	tab2	-	"Egenskaper"
D     16    2   46   13  114 -	P	-	edName	#1621	""
D     18   16   46   13   60 -	P	-	-	#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   58  116   10   40 -	RP	-	xbEtiquette	-	"Etikett"
D     27   72   46   13   60 -	P	-	-	#1646	""
D     29   86   46   12  114 -	P	-	-	#1625	""
D     30  100   46   12  114 -	P	-	-	#1627	""
D     33  114   46   12  114 -	P	-	-	#1628	""
D     35  128   46   12   52 -	P	-	-	#1643	""
D     48  142   46   13  114 -	PU	-	edSerialNumber	#1615	""
T     28   74    2   11   40 -	p	-	-	-	"Batchnr:"
T     17    4    2   11   40 -	p	-	-	-	"Benämning:"
T     22   32    2   11   40 -	p	-	-	-	"Typ:"
T     31   88    2   11   40 -	p	-	-	-	"Info 1:"
T     32  102    2   11   40 -	p	-	-	-	"Info 2:"
T     23   46    2   11   40 -	p	-	txSupplierArtCode	-	"Lev. art.kod:"
T     34  116    2   11   40 -	p	-	-	-	"Info 3:"
T     19   18    2   11   40 -	p	-	-	-	"Inköpspris:"
T     36  130    2   11   40 -	p	-	-	-	"Lagerplats:"
T     25   60    2   11   40 -	p	-	txWarranty	-	"Lev.garanti:"
T     49  144    2   11   40 -	p	-	-	-	"Serienr:"
D     51  142  210   13   32 -	pfO	-	edNumber	-	""
T     52  143  178   11   28 -	p	-	-	-	"Antal:"

>FORM tab2 ROWS 1 SIZE 1 "tab2"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW    38   15    2   78  136 -	P	-	win2	-	""

>FORM win2 ROWS 9 SIZE 60 "win2"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D     39    2   44   13   38 H4	P	-	edNumberOfEx	-	""
T     40    4    2   11   38 -	p	-	-	-	"Antal:"
D     41   16   44   13   38 H6	P	-	edStartValue	-	""
T     42   18    2   11   38 -	p	-	-	-	"Startvärde:"
D     43   31   44   12   60 A25	PU	-	edInitial	-	""
D     44   44   44   12   60 A25	PU	-	edConclude	-	""
T     45   32    2   11   38 -	p	-	-	-	"Inledande:"
T     46   46    2   11   38 -	p	-	-	-	"Avslutande:"
XB    47   58    0   13   52 -	P	-	xbZeroFilling	-	"Nollutfyllnad"

>FORM lcTable ROWS 4 SIZE 39 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T     54    1    1    8   41 -	Hph	-	-	#1610	"Löpnummer"
T     55    2   44    8   68 -	Hph	-	-	#1615	"Serienr"
T     56    2  126    8  118 -	Hp	-	-	#1621	"Benämning"
T     57    2  262    8   36 -	Hp	-	-	#1651	"Inköpspris"

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