>TYPE   	D
>NAME   	8512.d
>CODE   	8512.cod
>BY     	@(#)$Author: Gustaf $
>DATE   	@(#)$Date: 09-04-22 10:56 $
>VERSION	@(#)$Revision: 4 $
>ID     	22509

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

>TEXTINFO ROWS 16 SIZE 472
#id    value    flags    text
IDL_100  100  -  Antal måste anges
IDL_101  101  -  Utlämnade bokningar saknas
IDL_102  102  -  Kan inte hitta orderrad
IDL_103  103  -  F6:Aktuell tid
IDL_104  104  -  Felaktigt intervall
IDL_105  105  -  Återlämningsdatum tidigare än utlämningsdatum på rad %1
IDL_106  106  -  Kunde inte hitta individen %1
IDL_107  107  -  Mätartställning måste anges på rad %1. Återlämna raden separat
IDL_108  108  -  F3: Placering
IDL_109  109  -  Kan inte återlämna tidigare än utlämning skett
IDL_110  110  -  Antal överstiger utlämnat antal
IDL_111  111  -  F3:Bokningsstudio
IDL_112  112  -  Preliminärbokning
IDL_113  113  -  F6: Aktuellt datum och aktuell tid
IDL_114  114  -  Tid måste anges
IDL_115  115  -  Kan inte hitta %1 i register %2. Ec=%3


>STACK ROWS 100 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   310   520 SBL	-	-	"-"	  0	"8512 Återlämna"

>FORM MAIN ROWS 7 SIZE 50 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW   621    4    4   16  510 -	PZ	-	win1	-	""
WW  2307   24    0   22  433 -	PZ	-	win4	-	""
GR  2316   50    4   92  436 -	PWZ	-	lcTable	-	""
TB  2317  144    6  116  436 -	PZw	-	tab1	-	"Återlämna"
B3  2354  264    8   15   62 -	TPw	-	pbSaveRow	-	"save.bmp,S&para rad"
B3     2  264  448   15   70 -	xQPwz	-	pbExit	-	"exit.bmp,St&äng"
WW  2357   50  443  130   74 -	Pz	-	win10	-	""

>FORMFILES MAIN ROWS 0
#Id	sp
>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  510 -	pZ	-	-	-	""

>FORM win4 ROWS 6 SIZE 42 "Huvud"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   2312    4   44   12   50 A8	PU	-	edOrder	-	""
B3  2384    4   94   13    9 -	SxTpfF	-	pbPrevOrder	-	"arrowl.bmp"
B3  2385    4  102   13    9 -	SxTpfF	-	pbNextOrder	-	"arrowr.bmp"
B3  2386    4  110   13   15 -	SxTpfF	-	pbOrderSearch	-	"seek.bmp"
T   2313    6    4   11   32 -	p	-	-	-	"Ordernr:"
FR  3060    2    2   17  428 -	pZ	-	-	-	""

>FORMFILES win4 ROWS 0
#Id	sp
>FORM tab1 ROWS 1 SIZE 1 "tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  3102   12    2  102  432 -	P	-	win13	-	""

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win10 ROWS 2 SIZE 50 "Operation"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3  2358    0    2   15   70 -	TP	-	pbReturn	-	"nothing.bmp,&Återlämna alla"
B3  3214   18    2   15   70 -	QP	-	pbDebit	-	"nothing.bmp,&Debitera"

>FORMFILES win10 ROWS 0
#Id	sp
>FORM lcTable ROWS 6 SIZE 51 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   3170    1    1   11   17 -	Hph	-	-	#3403	"Rad"
T   3171    2   20   11   68 -	Hp	-	-	#3401	"Artikelkod"
T   3172    2   88   11  154 -	Hp	-	-	#3421	"Benämning"
T   3173    2  242   11   92 -	Hp	-	-	#8831	"Bokad"
T   3213    2  334   11   38 -	Hp	-	-	#24651	"Utlämnad"
T   3212    2  372   11   50 -	Hp	-	-	#24661	"Återlämnad"

>FORMFILES lcTable ROWS 2
#Id	sp
34	r
246	r
>FORM win13 ROWS 13 SIZE 87 "Hyra"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
TB  3122    2  226   88  196 -	PB	-	tab3	-	"&1.Info,&2.Individer"
D   3103    2   46   13  110 -	pUO	-	edRentArt	#3401	""
D   3108   16   46   12  162 -	pO	-	edName	#3421	""
DP  3203   30   46   13   50 D8	pO	-	dpDeliveryDate	#24651	""
D   3205   30   96   13   30 -	pO	-	edDeliveryTime	#24652	""
DP  3209   44   46   13   50 D8	P	-	dpDate	#24661	""
D   3210   45   96   13   30 F5.2	P	-	edTime	#24662	""
D   3207   58   46   13  162 -	P	-	edRemark	#24665	""
T   3204   32    2   11   40 -	p	-	-	-	"Utlämnad:"
T   3104    4    2   11   40 -	p	-	-	-	"Hyresartikel:"
T   3109   18    2   11   40 -	p	-	-	-	"Benämning:"
T   3208   60    2   11   40 -	p	-	-	-	"Anmärkning:"
T   3211   46    2   11   40 -	p	-	-	-	"Återlämnad:"

>FORMFILES win13 ROWS 0
#Id	sp
>FORM tab2 ROWS 0 SIZE 0 "tab2"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label

>FORM tab3 ROWS 2 SIZE 2 "tab3"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  3142   14    2   70  192 -	P	-	win15	-	""
WW  3215   14    2   70  192 -	P	-	win16	-	""

>FORMFILES tab3 ROWS 0
#Id	sp
>FORM win15 ROWS 8 SIZE 38 "win15"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   3143    2   42   13   60 -	P	-	-	#24641	""
D   3144   16   42   13   60 -	P	-	-	#24642	""
D   3145   30   42   13   60 -	P	-	edQuantity	-	""
DP  3152   44   42   13   44 D8	P	-	-	#24673	""
T   3149   32    2   11   36 -	p	-	-	-	"Antal:"
T   3150   46    2   11   36 -	p	-	-	-	"Transport:"
T   3147    4    2   11   36 -	p	-	-	-	"Info 1:"
T   3148   18    2   11   36 -	p	-	-	-	"Info 2:"

>FORMFILES win15 ROWS 0
#Id	sp
>FORM win16 ROWS 1 SIZE 1 "win16"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
GR  3216    4    4   66  182 -	P	-	lcIndividuals	-	""

>FORMFILES win16 ROWS 0
#Id	sp
>FORM lcIndividuals ROWS 3 SIZE 28 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   3217    1    1   11   45 -	Hp	-	-	#1610	"Löpnummer"
T   3218    1   46   11   35 -	Hp	-	-	#1615	"Serienr"
T   3219    0   80   11   94 -	Hp	-	-	#1621	"Benämning"

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