>TYPE   	D
>NAME   	730.d
>CODE   	730.cod
>BY     	@(#)$Author: Annab $
>DATE   	@(#)$Date: 06-01-24 11:42 $
>VERSION	@(#)$Revision: 4 $
>ID     	7086

>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  -  Journal saknas
IDL_101  101  -  Journal %1 ej utskriven
IDL_102  102  -  Rutin %1 är spärrad av signatur %2
IDL_103  103  -  Program kan ej finna journalkod i listkontrollen.
IDL_104  104  -  Journalnr separeras med komma. BLANKT = Alla
IDL_105  105  -  Det finns gammal journal utskriven som ej har godkänts.
IDL_106  106  -  Ingen journal vald
IDL_107  107  -  Signaturen saknas
IDL_108  108  -  BLANKT = Alla
IDL_109  109  -  Journal %1 är märkt med signatur %2, ska den vara med i urvalet
IDL_110  110  -  Journal %1 är märkt med signatur %2, byt signatur för att behandla den
IDL_111  111  -  Journaler
IDL_112  112  -  Funktionen är spärrad
IDL_113  113  -  &Skriv ut
IDL_114  114  -  God&känn
IDL_115  115  -  Ma&kulera


>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 1
#id Eventname	ParamList
1102	JournalBeforeDeleteJournal	()


>WINDOW ROWS 1
#id       x     y    cy    cx sp1	sp2	Bitmap	font	size	caption
5511     10    10   306   382 SB	-	-	"-"	  0	"730 Journaler"

>FORM MAIN ROWS 14 SIZE 40 "Command"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4072   20    2   16  346 -	P	-	win2	-	""
DP  4104   48   54   13   44 D8	P	-	dpDate	#8711	""
WW  4251   46  114   17  176 -	P	-	win8	-	""
GR  4077   73    4  132  294 -	DPWZ	-	lcTable	-	""
WW  4096  212    8   20  272 -	P	-	win4	-	""
WW  4094  212    8   20  101 -	P	-	win3	-	""
GB  4100  205    4   32  294 -	pZw	-	-	-	""
WW  4107  240    2   36  296 -	PZw	-	win7	-	""
WW  4101   74  302  164   72 -	P	-	win5	-	""
B3     2  258  304   15   70 -	xTPwz	-	-	-	"exit.bmp,St&äng"
WW   621    2    4   16  352 -	PZ	-	win1	-	""
T   4105   50    8   11   46 -	p	-	txDate	-	"Till datum:"
WW  4106  213    8   20  272 -	P	-	win6	-	""
GB  4257   37    3   32  296 -	pZ	-	-	-	""

>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  4071    0    0   15  352 -	pZ	-	-	-	""

>FORMFILES win1 ROWS 0
#Id	sp
>FORM win2 ROWS 4 SIZE 108 "Operations"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3  4073    0    2   15   66 -	TPM	-	pbPrint	-	"print.bmp,Skri&v journaler"
B3  4074    0   70   15   74 -	TPM	-	pbApprove	-	"ok.bmp,&Godkänn journal"
B3  4075    0  146   15   77 -	TPM	-	pbReprint	-	"print.bmp,Skriv &om journaler"
B3  4076    0  226   15   70 -	TPM	-	pbRemove	-	"delete.bmp,&Mak. journaler"

>FORMFILES win2 ROWS 0
#Id	sp
>FORM lcTable ROWS 6 SIZE 63 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
XB  4245    1    1   10   18 -	HP	-	-	#861	"Vald"
T   4246    1   19   11   22 -	CHpL	-	-	#17601	"Finns"
T   4247    1   41   11   86 -	Hp	-	-	#10721	"Journalnamn"
T   4248    1  127   11   74 -	Hp	-	-	#10711	"Senaste journaldatum"
T   4249    1  201    0    0 -	Hp	-	-	#17603	""
T   4250    1  205   11   68 -	Hp	-	-	#8831	"Senaste löpnummer"

>FORMFILES lcTable ROWS 0
#Id	sp
>FORM win3 ROWS 1 SIZE 20 "MultiJournal"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
XB  4095    4   12   10   84 -	RP	-	xbMultiJournal	-	"Journaler per datum"

>FORMFILES win3 ROWS 0
#Id	sp
>FORM win4 ROWS 3 SIZE 17 "Choice"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   4097    4   40   13   44 A40	P	-	edJournal	#12861	""
T   4098    4    2   11   36 -	p	-	-	-	"Urval:"
B3  4099    4   86   13   15 -	xTpfF	-	pbJournal	-	"seek.bmp"

>FORMFILES win4 ROWS 0
#Id	sp
>FORM win5 ROWS 1 SIZE 11 "Command"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
PB  4102    0    2   15   70 -	P	-	pbExecute	-	"Ver&kställ"

>FORMFILES win5 ROWS 0
#Id	sp
>FORM win6 ROWS 0 SIZE 0 "Empty"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label

>FORMFILES win6 ROWS 0
#Id	sp
>FORM win7 ROWS 3 SIZE 21 "Printer"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CE  4109   12   10  150  116 -	Pc	-	cbPrinter	#815	""
PB  4110   12  132   13   46 -	HP	-	pbPrinter	-	"Egenskaper"
GB  4108    0    2   34  294 -	pZ	-	-	-	"Skrivare"

>FORMFILES win7 ROWS 0
#Id	sp
>FORM win8 ROWS 4 SIZE 21 "Signature"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   4252    2   42   13   34 -	PU	-	edSign	#8825	""
T   4253    4    2   11   38 -	p	-	-	-	"Signatur:"
D   4254    2   80   13   70 -	pfO	-	edSignName	-	""
B3  4255    2  152   13   15 -	xTpfF	-	pbSign	-	"seek.bmp"

>FORMFILES win8 ROWS 0
#Id	sp
>SOURCE
