>TYPE   	D
>NAME   	COMPARE.d
>CODE   	COMPARE.cod
>BY     	@(#)$Author: Johan $
>DATE   	@(#)$Date: 07-03-26 14:08 $
>VERSION	@(#)$Revision: 2 $
>ID     	48

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

>TEXTINFO ROWS 35 SIZE 1100
#id    value    flags    text
IDL_100  100  -  Pyramidens datakatalog saknar %1
IDL_101  101  -  Kan inte hitta lu i %1
IDL_102  102  -  &Register,Rad&er,&Inställningar
IDL_103  103  -  Kan inte ladda lu %1
IDL_104  104  -  INDEX innehåller Å,Ä eller Ö eller är tomt
IDL_105  105  -  %1 poster i ctrlreg och %2 i refreg.
IDL_106  106  -  %1 rader i ctrltab och %2 i reftab.
IDL_107  107  -  Ingen match i kontrollregister
IDL_108  108  -  Ingen match i referensregister
IDL_109  109  -  Ingen match i kontrolltabell
IDL_110  110  -  Ingen match i referenstabell
IDL_111  111  -  Laddar om systemtabeller
IDL_112  112  -  Laddar om comboboxar vilket tar lång tid
IDL_113  113  -  Inga lu i gruppen
IDL_114  114  -  Initierar...
IDL_115  115  -  Kan inte ladda lu 158 för Pyramiden som skall kontrolleras.
IDL_116  116  -  Är sökvägen till datakatalogen riktig?
IDL_117  117  -  Kan inte ladda lu -700 för Pyramiden som skall kontrolleras.
IDL_118  118  -  Compare Profil: %1
IDL_119  119  -  Välj lu-nummer att jämföra
IDL_120  120  -  Fyll i sökväg för referensregister
IDL_121  121  -  Fyll i sökväg för register att kontrollera
IDL_122  122  -  Referensregister oladdade. Kontrollera sökväg till datakatalog.
IDL_123  123  -  Kontrollregister oladdade. Kontrollera sökväg till datakatalog.
IDL_124  124  -  Kontrollerar...
IDL_125  125  -  Lu kan inte hittas i referensdatabasen
IDL_126  126  -  Kan inte positionera index
IDL_127  127  -  Lu finns redan i listan
IDL_128  128  -  Sätter profilvärden
IDL_129  129  -  Laddar om systemfiler
IDL_130  130  -  Spara profil %1 som %2
IDL_131  131  -  Spara ändringar i %1
IDL_132  132  -  Spara profilvärden
IDL_133  133  -  Kan inte hitta datanr i dds
IDL_134  134  -  Sökväg


>STACK ROWS 600 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 8
#id color	comment
1   0xff0000   	""
2   0xff       	""
3   0xff00ff   	""
4   0xffffff   	""
5   0xc0c0c0   	""
6   0x80       	""
7   0x808080   	""
8   0x0        	""


>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   386   540 SB	-	-	"-"	  0	"Compare"

>FORM MAIN ROWS 16 SIZE 324 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
GR    32   18    6   98  446 -	p	-	lcIndex	-	""
GR    11  135    6   60  232 -	p	-	lcDNr	-	""
GR   308  135  244   60  208 -	p	-	lcInfo	-	""
TB   510  201    8  168  444 -	P	-	tab1	-	"Tab&1,Tab&2,Tab&3,Tab&4"
B3   503   18  458   25   75 -	STP	-	pbFileCopy	-	"read.bmp,Kopiera"
B3   305   48  458   15   75 -	TP	-	pbDoIt	-	"recycle.bmp,Jämför"
B3  1093  136  458   22   75 -	TP	-	pbStartCtrl	-	"pyramid.bmp,Starta C&trl"
B3  1094  160  458   22   75 -	STP	-	pbStartRef	-	"pyramid.bmp,Starta Re&f"
B3  1148  184  458   22   75 -	QP	-	pbStartOrg	-	"pyramid.bmp,Starta Org"
B3  1098  226  458   22   75 -	STP	-	pbHelp	-	"help.bmp,Hjälp"
T    301  124   10   11   60 -	p	-	-	-	"Kontroll av datanr"
T    302    6   10   11   74 -	p	-	-	-	"Kontroll av värden"
T    303  124  248   11   60 -	p	-	-	-	"Övrig info"
BM   314   70  486   20   26 -	Tp	-	bmBildArg	-	"sduser.bmp"
B3     2  350  458   15   75 -	TP	-	pbExit	-	"exit.bmp,St&äng"
BM   312   70  486   20   26 -	Tp	-	bmBildGlad	-	"dsuser.bmp"

>FORM lcDNr ROWS 6 SIZE 48 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   1066    0    2   11   24 -	Hp	-	-	#8847	"Lu"
T   1067    0   28   11   46 -	Hp	-	-	#8611	"Beteckning"
T   1068    0   76   11   26 -	Hp	-	-	#8828	"Datanr"
T   1069    0  104   11   68 -	Hp	-	-	#8833	"Ledtext"
T   1070    0  176   11   28 -	Hp	-	-	#862	"I ctrlreg"
T   1071    0  206   11   24 -	Hp	-	-	#861	"I refreg"

>FORMFILES lcDNr ROWS 0
#Id	sp
>FORM lcIndex ROWS 7 SIZE 71 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   1059    0    2   11   24 -	Hp	-	-	#8847	"Lu"
T   1060    0   28   11   46 -	Hp	-	-	#8611	"Beteckning"
T   1061    0   76   11   48 -	Hp	-	-	#8834	"Nyckel/Rad"
T   1062    1  125   11   26 -	Hp	-	-	#8712	"Datanr"
T   1063    0  154   11  112 -	Hp	-	-	#8833	"Ledtext"
T   1064    0  270   11   88 -	Hp	-	-	#8831	"Värde i ctrlreg"
T   1065    0  360   11   82 -	Hp	-	-	#8832	"Värde i refreg"

>FORMFILES lcIndex ROWS 0
#Id	sp
>FORM lcInfo ROWS 3 SIZE 19 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   1031    0    0   11   24 -	Hp	-	-	#8847	"Lu"
T   1032    0   26   11   46 -	Hp	-	-	#8611	"Beteckning"
T   1033    0   76   11  128 -	Hp	-	-	#8125	"Info"

>FORMFILES lcInfo ROWS 0
#Id	sp
>FORM tab1 ROWS 3 SIZE 3 "tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW   511   12    2  116  312 -	P	-	win3	-	""
WW   555   13    2  138  440 -	P	-	win4	-	""
WW   565   13    2  154  438 -	P	-	win5	-	""

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win3 ROWS 28 SIZE 138 "Rad"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
XB   534    5   94   10   10 -	P	-	xbEnligtIndex	-	""
D   1010   27  172   13   60 -	P	-	edCtrlIndex1	-	""
D   1020   27  240   13   60 -	P	-	edRefIndex1	-	""
D   1011   41  172   13   60 -	P	-	edCtrlIndex2	-	""
D   1021   41  240   13   60 -	P	-	edRefIndex2	-	""
D   1012   55  172   13   60 -	P	-	edCtrlIndex3	-	""
D   1022   55  240   13   60 -	P	-	edRefIndex3	-	""
D   1013   69  172   13   60 -	P	-	edCtrlIndex4	-	""
D   1023   69  240   13   60 -	P	-	edRefIndex4	-	""
D   1014   83  172   13   60 -	P	-	edCtrlIndex5	-	""
D   1024   83  240   13   60 -	P	-	edRefIndex5	-	""
D   1015   97  172   13   60 -	P	-	edCtrlIndex6	-	""
D   1025   97  240   13   60 -	P	-	edRefIndex6	-	""
T    536   13  240   11   60 -	p	-	txRefReg	-	"Referensregister"
T   1005   98   32   11   44 -	p	-	txIndex6	-	"Dnr"
T   1004   84   32   11   44 -	p	-	txIndex5	-	"Dnr"
T   1003   70   32   11   44 -	p	-	txIndex4	-	"Dnr"
T   1002   56   32   11   44 -	p	-	txIndex3	-	"Dnr"
T   1001   42   32   11   44 -	p	-	txIndex2	-	"Dnr"
T   1000   28   32   11   44 -	p	-	txIndex1	-	"Dnr"
T    535   13  172   11   60 -	p	-	txKontrollReg	-	"Kontrollregister"
T   1110   29   84   11   78 -	p	-	txBen1	-	"Text"
T   1111   42   84   11   78 -	p	-	txBen2	-	"Text"
T   1112   57   84   11   78 -	p	-	txBen3	-	"Text"
T   1113   71   84   11   78 -	p	-	txBen4	-	"Text"
T   1114   85   84   11   78 -	p	-	txBen5	-	"Text"
T   1115   97   84   11   78 -	p	-	txBen6	-	"Text"
GB   533    6    8  108  300 -	p	-	gbRow	-	"Jämför enstaka post/rad             "

>FORM win4 ROWS 18 SIZE 217 "Inställningar"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D    563    8   90   13  130 -	P	-	edPathCheck	-	""
D    560   22   90   13  130 -	P	-	edPathRef	-	""
XB   557   62   14   10   62 -	RP	-	xbNFormat	-	"%N-formatering"
XB   556   76   14   10   70 -	RP	-	xbSTFormat	-	"%S%T-formatering"
XB  1055   60  114   10   68 -	RP	-	xbShowNumber	-	"Visa antal poster"
RB  1056   72  114   10   50 -	RP	-	rbAllRegs	-	"Alla"
RB  1057   82  114   10   50 -	RP	-	rbNotEmpty	-	"Ej tomma"
RB  1058   92  114   10   68 -	RP	-	rbOnlyDiff	-	"Endast skillnader"
B3   561   22  222   13   15 -	Tp	-	pbPathRef	-	"seekfold.bmp"
B3   562    8  222   13   15 -	Tp	-	pbPathCheck	-	"seekfold.bmp"
T    559   22    8   11   80 -	p	-	-	-	"Sökväg till referensreg:"
T    564    8    8   11   80 -	p	-	-	-	"Sökväg till kontrollreg:"
CE  1079   58  310   50  106 -	P	-	cbProfile	-	""
B3  1080   74  336   15   50 -	TP	-	pbSaveProfile	-	"save.bmp,&Spara"
XB  1147   60  216   10   50 -	RP	-	xbNoDate	-	"Inga datum"
GB   558   46    6   46   82 -	p	-	gbFormatering	-	"Formatering"
GB  1054   46  106   64   84 -	p	-	-	-	"Övrig Info"
GB  1146   46  204   64   84 -	p	-	-	-	"Grupp"

>FORMFILES win4 ROWS 0
#Id	sp
>FORM win5 ROWS 35 SIZE 237 "Register"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
RB  1087   15   10   10   50 -	RP	-	rbSingle	-	"E&nstaka Lu"
RB  1088   27   10   10   50 -	RP	-	rbAll	-	"&Alla Lu"
RB  1089   39   10   10   50 -	RP	-	rbGroup	-	"Lu-gru&pp"
T   1091   95   10   11   20 -	p	-	txLu	-	"Lu:"
CE   566   93   38  200   80 -	Pc	-	cbLu	#8713	""
T   1092  109   10   11   20 -	p	-	txIndex	-	"Index:"
CE   567  107   38   50   80 -	P	-	cbIndex	#8829	""
T   1102  123   10   11   24 -	p	-	-	-	"Ctrlreg:"
D   1099  121   38   13   64 -	P	-	edCtrlRegName	-	""
T   1101  137   10   11   24 -	p	-	-	-	"Refreg:"
D   1100  135   38   13   64 -	P	-	edRefRegName	-	""
GR  1133   29  294   42  134 -	p	-	lcDnrExc	-	""
CE  1138   20  116   50   56 -	Pc	-	cbLuIndexLu	#8714	""
CB  1139   35  116   50   56 -	P	-	cbLuIndexIndex	#8830	""
B3  1140   51  118   15   50 -	QP	-	pbLuIndex	-	"append.bmp,Lägg till"
T   1141   20   90   11   22 -	p	-	txLuIndexLu	-	"Lu:"
T   1142   36   90   11   22 -	p	-	txLuIndexIndex	-	"Index:"
GR  1143   14  178   58   96 -	p	-	lcLuIndex	-	""
GB  1090   81    4   70  120 -	p	-	-	-	"Enstaka"
CE  1083  107  294  200   80 -	Pc	-	cbLuGroup	#8711	""
B3  1084  123  308   15   50 -	TP	-	pbAddToLuGroup	-	"append.bmp,Lägg till"
GR  1085   89  384   52   42 -	P	-	lcLuGroup	-	""
GB  1122   81  286   70  146 -	p	-	-	-	"Grupp"
XB  1073   97  142   10   50 -	RP	-	xbExcept	-	"&Undantag"
CE  1074  113  140  200   80 -	Pc	-	cbExceptLu	#8711	""
B3  1077  129  154   15   50 -	TP	-	pbAddExcept	-	"append.bmp,L&ägg till"
GR  1075   89  230   58   42 -	P	-	lcExcept	-	""
GB  1072   81  132   70  146 -	p	-	-	-	"Alla"
T   1130   15  296   11   34 -	p	-	-	-	"Exkludera:"
D   1131   13  334   13   34 -	P	-	edDnrExc	-	""
B3  1132   13  370   13   15 -	QP	-	pbDnrExc	-	"append.bmp"
GB  1123    4  288   72  146 -	p	-	-	-	"Fält"
B3  1118  135  104   13   15 -	SxQpfF	-	pbOpenRefReg	-	"seekfold.bmp"
B3  1116  121  104   13   15 -	SxQpfF	-	pbOpenCtrlReg	-	"seekfold.bmp"
GB  1137    4   80   74  198 -	p	-	-	-	"Index"

>FORMFILES win5 ROWS 0
#Id	sp
>FORM lcExcept ROWS 1 SIZE 3 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   1076   26    0   11   24 -	Hp	-	-	#8847	"Lu"

>FORMFILES lcExcept ROWS 0
#Id	sp
>FORM lcLuGroup ROWS 1 SIZE 3 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   1086    1    1   11   24 -	Hp	-	-	#8847	"Lu"

>FORMFILES lcLuGroup ROWS 0
#Id	sp
>FORM lcDnrExc ROWS 2 SIZE 14 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   1134    0    0   11   32 -	Hp	-	-	#8847	"Dnr"
T   1135    0   34   11   96 -	Hp	-	-	#8833	"Benämning"

>FORMFILES lcDnrExc ROWS 0
#Id	sp
>FORM lcLuIndex ROWS 2 SIZE 9 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   1144    0    0   11   26 -	Hp	-	-	#8847	"Lu"
T   1145    0   34   11   60 -	Hp	-	-	#8125	"Index"

>FORMFILES lcLuIndex ROWS 0
#Id	sp
>SOURCE
