>TYPE   	D
>NAME   	8511.d
>CODE   	8511.cod
>BY     	@(#)$Author: Annab $
>DATE   	@(#)$Date: 06-07-20 9:00 $
>VERSION	@(#)$Revision: 2 $
>ID     	22503

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

>TEXTINFO ROWS 15 SIZE 331
#id    value    flags    text
IDL_100  100  -  Radera %1
IDL_101  101  -  Bokningsnummer finns inte
IDL_102  102  -  Bokningsnummer redan använd
IDL_103  103  -  Artikel saknas
IDL_104  104  -  Ej hyresartikel
IDL_105  105  -  Kunde inte hitta bokning %1
IDL_106  106  -  F6:Aktuell tid
IDL_107  107  -  Felaktigt intervall
IDL_108  108  -  Inte tillräckligt många objekt lediga under perioden. Antal lediga objekt: %1
IDL_109  109  -  Kundkod saknas
IDL_110  110  -  Artikel måste anges
IDL_111  111  -  Från datum måste anges
IDL_112  112  -  Bokningsnummer: %1
IDL_113  113  -  Spara %1 %2
IDL_114  114  -  Spara


>STACK ROWS 1000 SIZE 5000

>FONT ROWS 9
#id Hgt Wth Esc Ori Wgt Ita  Ul Sth Chs Opr Clp Qua Pch Name
1    -9   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
2   -11   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
3   -11   0   0   0 400   1  0   0   0   0   0   0   0 "Arial"
4   -11   0   0   0 700   0  0   0   0   0   0   0   0 "Arial"
5   -13   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
6   -13   0   0   0 400   1  0   0   0   0   0   0   0 "Arial"
7   -13   0   0   0 700   0  0   0   0   0   0   0   0 "Arial"
8   -16   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
9   -19   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"


>COLOR ROWS 16
#id color	comment
1   0x0        	""
2   0x808080   	""
3   0x80       	""
4   0x8080     	""
5   0x8000     	""
6   0x808000   	""
7   0x800000   	""
8   0x800080   	""
9   0xffffff   	""
A   0xc0c0c0   	""
B   0xff       	""
C   0xffff     	""
D   0xff00     	""
E   0xffff00   	""
F   0xff0000   	""
G   0xff00ff   	""


>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   268   425 SBL	-	-	"-"	  0	"8511 Preliminärbokning"

>FORM MAIN ROWS 7 SIZE 63 "Head"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW 24269   18    6   20  194 -	P	-	win12	-	""
TB   622   38    6  202  365 -	PWZ	-	tab1	-	"Bokning"
WW   621    0    4   16  366 -	PZ	-	win1	-	""
B3   135   50  374   15   50 -	xTPh	-	pbSave	-	"save.bmp,&Spara"
B3   137   68  374   15   50 -	xTPh	-	pbDelete	-	"delete.bmp,&Ta bort"
B3     2  218  374   15   50 -	xTPhwz	-	pbCancel	-	"exit.bmp,St&äng"
FU 24273   90   20    1  342 -	p	-	-	-	""

>FORMFILES MAIN ROWS 1
#Id	sp
20	-
>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    8   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  2020    0    0   15  365 -	pZ	-	-	-	""

>FORM tab1 ROWS 3 SIZE 3 "tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW   102   14    4   22  358 -	Ph	-	win2	-	""
WW  4256   40    4  158  358 -	HPWZ	-	win5	-	""
FR 24274   36   10    2  348 -	p	-	-	-	""

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win2 ROWS 4 SIZE 23 "Head"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D  24257    4   80   13   94 -	PU	-	edBookNo	-	""
FR 24254   42    4    1  348 -	p	-	-	-	""
T  24258    6    6   11   70 -	p	-	-	-	"Bokningsnr:"
B3 24262    4  176   13   15 -	SxTpfF	-	pbBookNo	-	"seek.bmp"

>FORMFILES win2 ROWS 0
#Id	sp
>FORM win5 ROWS 27 SIZE 177 "Artikel"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D  24241    4   80   13  112 -	PU	-	edArt	#24605	""
D  24060   18   80   13  162 -	pO	-	edName	#1021	""
XB 24164   32    4   13   84 -	p	-	xbIntern	-	"Intern"
WW 24275   46    0   14  248 -	P	-	win13	-	""
DP 24285   60   80   13   44 D8	P	-	-	#24650	""
D  24047   74   80   13   94 -	P	-	edIdentity	#24620	""
D  24165   88   80   13   94 -	PU	-	edCustomer	#24621	""
D  24290  102   80   13  162 -	pO	-	-	#2021	""
D  24157  116   80   13   94 -	P	-	edQuantity	#24627	""
D  24159  130   80   13   94 -	P	-	-	#24641	""
D  24161  144   80   13   94 -	P	-	-	#24642	""
T  24160  146    6   11   70 -	p	-	-	-	"Info 2:"
T  24156  118    6   11   70 -	p	-	-	-	"Antal:"
T  24166   90    6   12   70 -	p	-	-	-	"Kundkod:"
T  24048   76    6   11   70 -	p	-	-	-	"Identitet:"
T  24061   20    6   11   70 -	p	-	-	-	"Benämning:"
B3 24283    4  212   13   15 -	SxTpfF	-	pbArt	-	"seek.bmp"
B3 24284   88  176   13   15 -	SxTpfF	-	pbCustomer	-	"seek.bmp"
T  24158  132    6   11   70 -	p	-	-	-	"Info 1:"
T  24286   62    6   11   70 -	p	-	-	-	"Giltig till:"
B3 24288    4  194   13    9 -	SxTpfF	-	pbPrevArt	-	"arrowl.bmp"
B3 24289    4  202   13    9 -	SxTpfF	-	pbNextArt	-	"arrowr.bmp"
T  24151    6    6   11   70 -	p	-	-	-	"Hyresartikel:"
T  24291  104    6   11   70 -	p	-	-	-	"Kund:"
B3 24292    4  228   13   15 -	SxTpfF	-	pbGraphRow	-	"gant.bmp"
D  24293  116  290   13   60 -	pO	-	edAvailableQuant	-	""
T  24294  118  210   11   72 -	p	-	txAvailableQuant	-	"Beräknat antal lediga:"

>FORMFILES win5 ROWS 0
#Id	sp
>FORM win12 ROWS 3 SIZE 47 "Command"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3  4072    2    4   15   50 -	TPMh	-	pbNew	-	"new.bmp,&Ny"
B3 24268    2   56   15   50 -	TPMh	-	pbOpen	-	"Edit.bmp,Än&dra"
B3 24287    2  108   15   50 -	QP	-	pbGraph	-	"gant.bmp,&Översikt"

>FORMFILES win12 ROWS 0
#Id	sp
>FORM win13 ROWS 6 SIZE 11 "win13"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T  24276    2    6   11   70 -	p	-	-	-	"Tid:"
DP 24277    0   80   13   44 D8	P	-	dpFromDate	#24611	""
D  24278    0  126   13   30 F5.2	P	-	edFromTime	#24612	""
T  24279    2  158   11    4 -	p	-	-	-	"-"
DP 24280    0  164   13   44 D8	P	-	dpToDate	#24615	""
D  24281    0  212   13   30 F5.2	P	-	edToTime	#24616	""

>FORMFILES win13 ROWS 0
#Id	sp
>SOURCE
