>TYPE   	D
>NAME   	dsuregs.d
>CODE   	dsuregs.cod
>BY     	@(#)$Author: Ralf $
>DATE   	@(#)$Date: 06-03-20 9:27 $
>VERSION	@(#)$Revision: 2 $
>ID     	28530

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

>TEXTINFO ROWS 16 SIZE 483
#id    value    flags    text
IDL_101  101  -  Namnet får ej innehålla något av följande tecken: \/:*?"<>|
IDL_102  102  -  Datanumret ingår i ett index och får ej tas bort
IDL_103  103  -  Registret saknar index för första Dnr.
IDL_104  104  -  Konsultstudio krävs för denna dialog
IDL_105  105  -  LU måste ligga i intervallet %1 eller %2
IDL_106  106  -  Registernamnet används redan
IDL_107  107  -  Tabellnamnet måste börja med bokstäverna "UR"
IDL_108  108  -  LU måste anges
IDL_109  109  -  Registernamn måste anges
IDL_110  110  -  Registret saknar index
IDL_111  111  -  Registret är skapat
IDL_112  112  -  Registret är konverterat
IDL_113  113  -  Radera datanummer %1
IDL_114  114  -  Datanumret saknas %1
IDL_115  115  -  Radera index %1
IDL_116  116  -  Index saknas %1


>STACK ROWS 100 SIZE 3000

>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	0xc0c0c0
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     20    90   270   350 SBL	-	-	"-"	  0	"5513 Skapa egna register"

>FORM MAIN ROWS 9 SIZE 115 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW   621    0    4   16  282 -	PhmZ	-	win4	-	""
GR   101   16    4   62  280 -	pWZ	-	lcTable	-	""
TB   124   80    4  140  280 -	PZ	-	tab1	-	"Register,Datanummer,Index"
B3    12  222    4   15   50 -	TPh	-	pbSave	-	"save.bmp,&Spara"
B3  2210  222   58   15   50 -	TPh	-	pbNew	-	"new.bmp,&Ny"
B3   137  222  112   15   50 -	TPh	-	pbDelete	-	"del.bmp,&Ta bort"
B3     2  222  292   15   50 -	xTPhz	-	pbCancel	-	"exit.bmp,St&äng"
PB 24072   92  286   15   60 -	P	-	pbCreate	-	"Konvertera"
PB 24106  114  286   15   60 -	P	-	pbUdia	-	"Underdialog..."

>FORM tab1 ROWS 5 SIZE 5 "623 - tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW   627   15    4   17  272 -	Ph	-	win5	-	""
WW   680   36    4  100  270 -	P	-	win1	-	""
GB   630   31    4    3  272 -	pZ	-	-	-	""
WW 24034   34    2  104  276 -	P	-	win7	-	""
WW 24035   34    2  104  276 -	P	-	win8	-	""

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win1 ROWS 14 SIZE 131 "win1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D  24043    6   46   13  102 -	P	-	-	#-33	""
XB 24097   44   20   10   78 -	RP	-	xbD	-	"Registervårdsrutin"
D  24099   42  164   13   24 H2	P	-	edRutReg	-	""
XB 24098   66   20   10   50 -	RP	-	xbS	-	"Sökrutin"
D  24100   64  164   13   24 H2	P	-	edRutSearch	-	""
PB 24094   78  210   13   49 -	p	-	pbDeskCreate	-	"Ska&pa"
XB 24093   16  160   10  102 -	RHP	-	xbSS	-	"Genväg sökrutin"
XB 24092    4  160   10  102 -	RHP	-	xbDS	-	"Genväg registervårdsrutin"
T  24041    8    2   10   40 -	p	-	-	-	"Namn:"
T  24101   44   98   11   46 -	p	-	-	-	"Rutinnummer:"
T  24103   66   98   11   46 -	p	-	-	-	"Rutinnummer:"
T  24104   46  150   11   10 -	p	-	-	-	"56"
T  24105   66  150   11   10 -	p	-	-	-	"56"
GB 24073   26    4   70  260 -	p	-	-	-	"Registervård"

>FORMFILES win1 ROWS 0
#Id	sp
>FORM win4 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  280 -	pZ	-	-	-	""

>FORM win5 ROWS 4 SIZE 16 "head"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D    103    1   44   13   48 A8	PU	-	edCode	#-31	""
D    108    1  170   13   78 -	PU	-	edName	#-32	""
T    110    2  132   11   40 -	p	-	-	-	"Register:"
T  24024    3   10   11   30 -	p	-	-	-	"LU:"

>FORM lcTable ROWS 3 SIZE 22 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T  24087    1    1   11   20 -	Hp	-	-	#-31	"Lu"
T  24088    1   21   11   98 -	Hp	-	-	#-32	"Register"
T  24089    1  119   11  132 -	Hp	-	-	#-33	"Benämning"

>FORMFILES lcTable ROWS 0
#Id	sp
>FORM win7 ROWS 4 SIZE 52 "win7"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
GR 24055    4    4   82  268 -	p	-	lcDnr	-	""
PB 24057   88    6   13   62 -	P	-	pbNewDnr	-	"Nytt datanummer"
PB 24058   88   72   13   70 -	P	-	pbChangeDnr	-	"Ändra datanummer"
PB 24059   88  146   13   70 -	P	-	pbDelDnr	-	"Radera datanummer"

>FORMFILES win7 ROWS 0
#Id	sp
>FORM win8 ROWS 4 SIZE 37 "win8"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
GR 24036    4    6   82  268 -	P	-	lcIndex	-	""
PB 24056   88    6   13   70 -	P	-	pbNewIndex	-	"Nytt index"
PB 24074   88   84   13   70 -	P	-	pbChangeIndex	-	"Ändra index"
PB 24075   88  162   13   70 -	P	-	pbDelIndex	-	"Radera index"

>FORM lcDnr ROWS 4 SIZE 31 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T  24076    1    1   11   35 -	Hp	-	-	#-652	"Datanummer"
T  24077    0   36   11   48 -	Hp	-	-	#-653	"Benämning"
T  24078    2   84   11   30 -	Hp	-	-	#-655	"Typ"
T  24079    0  124   11   30 -	Hp	-	-	#-656	"Längd"

>FORMFILES lcDnr ROWS 0
#Id	sp
>FORM lcIndex ROWS 4 SIZE 33 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T  24068    1    1   11   50 -	Hp	-	-	#-682	"Index"
T  24069    0   54   11   66 -	Hp	-	-	#-683	"Benämning"
T  24070    2  122   11   86 -	Hp	-	-	#-684	"Datanummer"
T  24071    0  232   11   30 -	HpL	-	-	#-685	"Unikt"

>FORMFILES lcIndex ROWS 0
#Id	sp
>SOURCE
