>TYPE   	D
>NAME   	3592.d
>CODE   	3592.cod
>BY     	@(#)$Author: Mickea $
>DATE   	@(#)$Date: 05-09-23 15:41 $
>VERSION	@(#)$Revision: 3 $
>ID     	325

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

>TEXTINFO ROWS 8 SIZE 185
#id    value    flags    text
IDL_101  101  -  Från-datum måste anges
IDL_102  102  -  Till-datum måste anges
IDL_103  103  -  Felaktigt intervall
IDL_104  104  -  Inga fel påträffade
IDL_105  105  -  Bearbetning klar!
IDL_106  106  -  Bearbetning avbruten
IDL_107  107  -  Från-vecka måste anges
IDL_108  108  -  Till-datum måste vara tidigare än %1


>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 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   240   320 SB	-	-	"-"	  0	"3592 Diagnos "

>FORM MAIN ROWS 3 SIZE 39 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW   621    0    4   16  314 -	PhmZ	-	win1	-	""
TB  4072   18    4  179  314 -	PWZ	-	tab1	-	"&Kriterier,Rä&ttelser"
B3     2  199  266   15   50 -	TPwz	-	-	-	"exit.bmp,St&äng"

>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 -	SRTHpfF	-	pbTool	-	""
B3  2001    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2002    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2003    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2004    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2005    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2006    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2007    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2008    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2009    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2010    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2011    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2012    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2013    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2014    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
FU  4071    0    0   15  314 -	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  4073   13    1  165  310 -	PWZ	-	win2	-	""
WW  4074   12    2  165  310 -	PWZ	-	win3	-	""

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win3 ROWS 4 SIZE 67 "Rättelser"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
PB 24132  149    4   13   60 -	pw	-	pbUnmarkAll	-	"A&vmarkera alla"
PB 24133  149   70   13   60 -	pw	-	pbMarkAll	-	"&Markera alla"
GR 24135    2    2  143  304 -	PWZ	-	lcError	-	""
B3 24139  147  247   15   60 -	TPwz	-	pbCorrect	-	"ok.bmp,&Verkställ"

>FORMFILES win3 ROWS 0
#Id	sp
>FORM win2 ROWS 23 SIZE 216 "Kriterier"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
DP    47   10   52   13   46 D8	P	-	dpFromDate	#844	""
DP    50   24   52   13   46 D8	P	-	dpToDate	#846	""
D     52   38   52   13   30 A4	PU	-	edFromSign	#841	""
D  24137   52   52   13   30 A4	PU	-	edToSign	#849	""
D     76   66   52   13   30 A4	PU	-	edDep	#856	""
D     55   80   52   12   30 A3	PU	-	edType	#851	""
XB 24156   10  138   10  116 -	RP	-	xbOnlyWork	#861	"Enbart sign med arbetsschema"
GB 24173    0  130   24  136 -	p	-	-	-	"Urval"
WW 24141   26  128   46  140 -	P	-	win6	-	""
WW 24150   74  128   46  140 -	P	-	win7	-	""
WW 24174  123  128   20  140 -	P	-	win8	-	""
B3 24140  147  130   15   60 -	TPw	-	pbCheck	-	"ok.bmp,K&ontrollera"
B3 24159  147  196   15   70 -	QPw	-	pbBalances	-	"nothing.bmp,Ko&ntrollera saldon"
B3    53   38   84   13   15 -	STpfF	-	pbFromSign	-	"seek.bmp"
B3 24138   52   84   13   15 -	STpfF	-	pbToSign	-	"seek.bmp"
B3    77   66   84   13   15 -	STpfF	-	pbDep	-	"seek.bmp"
B3    54   80   84   13   15 -	STpfF	-	pbType	-	"seek.bmp"
T     48   12    6   11   42 -	p	-	txFromDate	-	"Från datum:"
T     49   26    6   11   42 -	p	-	txToDate	-	"Till datum:"
T     51   40    6   11   46 -	p	-	-	-	"Från signatur:"
T  24136   54    6   11   42 -	p	-	-	-	"Till signatur:"
T     78   68    6   11   40 -	p	-	-	-	"Avdelning:"
T     56   82    6   11   42 -	p	-	-	-	"Personaltyp:"

>FORMFILES win2 ROWS 0
#Id	sp
>FORM lcError ROWS 14 SIZE 50 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
XB   149    1    1   10   12 -	HPh	-	-	#861	""
T  24157    1   13   11   26 -	Hph	-	-	#2601	"Sign."
T  24158    1   39   11   28 -	Hph	-	-	#26503	"Datum"
T  24160    1   67   11   15 -	CHpL	-	-	#17701	"Ny"
T  24163    1   82   11   22 -	Hp	-	-	#26504	"In"
T  24168    1  104   11   12 -	CHpL	-	-	#17702	""
T  24164    1  116   11   22 -	Hp	-	-	#26505	"Ut"
T  24169    1  138   11   12 -	CHpL	-	-	#17703	""
T  24165    1  150   11   30 -	RHp	-	-	#26506	"Antal"
T  24170    1  180   11   12 -	CHpL	-	-	#17704	""
T  24166    1  192   11   40 -	CHp	-	-	#26507	"Dagschema"
T  24171    1  232   11   12 -	CHpL	-	-	#17705	""
T  24167    1  244   11   30 -	RHp	-	-	#26508	"Normal"
T  24172    1  274   11   12 -	CHpL	-	-	#17706	""

>FORMFILES lcError ROWS 2
#Id	sp
26	r
30610	r
>FORM win6 ROWS 4 SIZE 75 "win6"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
XB 24142   10   10   10  104 -	RP	-	xbCreateDays	-	"Skapa saknade dagposter"
RB 24145   20   16   10   80 -	RP	-	rbWorkDays	-	"Enbart arbetsdagar"
RB 24146   30   16   10   86 -	RP	-	rbAllDays	-	"Även arbetsfria dagar"
GB 24149    0    2   44  136 -	p	-	-	-	"Dagposter"

>FORMFILES win6 ROWS 0
#Id	sp
>FORM win7 ROWS 4 SIZE 95 "win7"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
XB 24154   10   10   10  104 -	RP	-	xbCheckSched	-	"Kontrollera schematid"
RB 24152   20   16   10  108 -	RP	-	rbCheckNormal	-	"Kontrollera normaltid i dagpost"
RB 24151   30   16   10  108 -	RP	-	rbGetSched	-	"Hämta aktuellt arbetsschema"
GB 24155    0    2   44  136 -	p	-	-	-	"Arbetsschema"

>FORMFILES win7 ROWS 0
#Id	sp
>FORM win8 ROWS 2 SIZE 81 "win8"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
XB 24182   10    8   10  104 -	RP	-	xbCheckOtype	-	"Kontrollera/Rätta Ordertyp"
GB 24175    0    2   20  136 -	p	-	-	-	"Ordertyp"

>FORMFILES win8 ROWS 0
#Id	sp
>SOURCE
