25 |
ParentForm, |
ParentForm, |
26 |
LabelPrint, |
LabelPrint, |
27 |
Configuration, |
Configuration, |
28 |
Vcl.Imaging.pngimage |
Vcl.Imaging.pngimage, |
29 |
|
Generics.Collections |
30 |
|
|
31 |
; |
; |
32 |
|
|
105 |
PanelManglendePakker5: TPanel; |
PanelManglendePakker5: TPanel; |
106 |
PanelManglendePakker6: TPanel; |
PanelManglendePakker6: TPanel; |
107 |
menuIndlevering: TMenuItem; |
menuIndlevering: TMenuItem; |
108 |
|
chkForstorTilDirekte: TCheckBox; |
109 |
|
|
110 |
|
|
111 |
|
|
194 |
|
|
195 |
|
|
196 |
|
|
|
|
|
197 |
//Nedarvet fra IParentForm |
//Nedarvet fra IParentForm |
198 |
procedure LogMessage( msg : string); |
procedure LogMessage( msg : string); |
199 |
procedure SetPrinterstatusText( txt: string; alert: boolean); |
procedure SetPrinterstatusText( txt: string; alert: boolean); |
206 |
SkrivLog : String; |
SkrivLog : String; |
207 |
Sted : String; |
Sted : String; |
208 |
StedNavn : String; |
StedNavn : String; |
209 |
Url, UrlNormal, UrlReturDAO, UrlReturBoghandler, UrlBudlevering, UrlManglendeScanninger, UrlPakkeshoplevering, UrlReturPakkeshop, UrlPakkeshopManglendeScanninger, UrlPakkeshopManglendeReturScanninger,UrlIndleveringsPakke,UrlIndleveringsPakkeManglendeScanninger,UrlEKLoverforsel : String; |
Url, UrlNormal, UrlReturDAO, UrlReturBoghandler, UrlBudlevering, UrlManglendeScanninger, UrlPakkeshoplevering, |
210 |
|
UrlReturPakkeshop, UrlPakkeshopManglendeScanninger, UrlPakkeshopManglendeReturScanninger,UrlIndleveringsPakke, |
211 |
|
UrlIndleveringsPakkeManglendeScanninger,UrlEKLoverforsel, URLOmdirigerTilPakkeshop : String; |
212 |
|
|
213 |
UrlEKLoverforselPakkeshop : String; |
UrlEKLoverforselPakkeshop : String; |
214 |
|
|
216 |
Scanningtype, TestFunktionen, Pakketype, SporgEfterBoghandler : String; |
Scanningtype, TestFunktionen, Pakketype, SporgEfterBoghandler : String; |
217 |
ScanTjekkode : String; |
ScanTjekkode : String; |
218 |
ScanTjekkodeAutomatik : string; |
ScanTjekkodeAutomatik : string; |
219 |
Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop, FarveIndlevering : String; |
|
220 |
Titel, TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop, TitelIndlevering : String; |
Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop, |
221 |
|
FarveIndlevering : String; |
222 |
|
|
223 |
|
Titel, TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop, |
224 |
|
TitelIndlevering : String; |
225 |
|
|
226 |
AlarmLyd : String; |
AlarmLyd : String; |
227 |
ScannetOkLyd : String; |
ScannetOkLyd : String; |
358 |
else if (Sted = 'BR') then |
else if (Sted = 'BR') then |
359 |
begin StedNavn := 'Brøndby: '; end |
begin StedNavn := 'Brøndby: '; end |
360 |
else if (Sted = 'BK') then |
else if (Sted = 'BK') then |
361 |
begin StedNavn := 'Bladkompagniet: '; end |
begin StedNavn := 'Bladkompagniet/ISV: '; end |
362 |
|
else if (Sted = 'TK') then |
363 |
|
begin StedNavn := 'BK/Trykkompagniet: '; end |
364 |
else if (Sted = 'DBK') then |
else if (Sted = 'DBK') then |
365 |
begin StedNavn := 'DBK Køge: '; end |
begin StedNavn := 'DBK Køge: '; end |
366 |
else if (Sted = '1') then |
else if (Sted = '1') then |
572 |
|
|
573 |
UrlIndleveringsPakke := ReadString('Settings','UrlIndleveringsPakke','http://omdeling.info/webservices/pakkeshop/PakkekontrolIndleveringskode.php?sted=%s&pakkekode=%s'); |
UrlIndleveringsPakke := ReadString('Settings','UrlIndleveringsPakke','http://omdeling.info/webservices/pakkeshop/PakkekontrolIndleveringskode.php?sted=%s&pakkekode=%s'); |
574 |
UrlIndleveringsPakkeManglendeScanninger := ReadString('Settings', 'UrlIndleveringsPakkeManglendeScanninger','http://omdeling.info/webservices/pakkeshop/IndleveringsPakkeManglendeScanninger.php?sted=%s'); |
UrlIndleveringsPakkeManglendeScanninger := ReadString('Settings', 'UrlIndleveringsPakkeManglendeScanninger','http://omdeling.info/webservices/pakkeshop/IndleveringsPakkeManglendeScanninger.php?sted=%s'); |
575 |
|
URLOmdirigerTilPakkeshop := ReadString('Settings', 'URLOmdirigerTilPakkeshop','http://omdeling.info/webservices/pakkeshop/PakkeKontrolOmdirigerTilPakkeshop.php?sted=%s&stregkode=%s'); |
576 |
|
|
577 |
|
|
578 |
|
|
579 |
|
|
691 |
{$IfDef STED_BK} |
{$IfDef STED_BK} |
692 |
SpecialVersionSted := 'BK'; |
SpecialVersionSted := 'BK'; |
693 |
{$EndIf} |
{$EndIf} |
694 |
|
{$IfDef STED_TK} |
695 |
|
SpecialVersionSted := 'TK';// BK-Trykkompagniet |
696 |
|
{$EndIf} |
697 |
{$IfDef STED_DBK} |
{$IfDef STED_DBK} |
698 |
SpecialVersionSted := 'DBK'; |
SpecialVersionSted := 'DBK'; |
699 |
{$EndIf} |
{$EndIf} |
731 |
SpecialVersionScanningtype := '4'; |
SpecialVersionScanningtype := '4'; |
732 |
end; |
end; |
733 |
|
|
734 |
if SpecialVersionSted = 'BK' then |
if (SpecialVersionSted = 'BK') OR (SpecialVersionSted = 'TK') then |
735 |
begin |
begin |
736 |
//FarveNormal := 'A9F5A9'; // her kan vi evt. overrule ini fil |
//FarveNormal := 'A9F5A9'; // her kan vi evt. overrule ini fil |
737 |
Sted := SpecialVersionSted; |
Sted := SpecialVersionSted; |
1130 |
or (NumberString = 'Retur fra kunde') |
or (NumberString = 'Retur fra kunde') |
1131 |
or (NumberString = 'DAO DIREKTE') |
or (NumberString = 'DAO DIREKTE') |
1132 |
or (NumberString = 'DAO PAKKESHOP') |
or (NumberString = 'DAO PAKKESHOP') |
1133 |
|
or (NumberString = 'DAO PAKKESHOP') |
1134 |
|
or (LowerCase(NumberString) = 'for stor hjemmelevering' ) |
1135 |
|
or (LowerCase(NumberString) = 'for stor daodirekte' ) |
1136 |
or (NumberString = 'Retur fra pakkeshop') then |
or (NumberString = 'Retur fra pakkeshop') then |
1137 |
|
|
1138 |
begin |
begin |
1143 |
begin |
begin |
1144 |
ShowMessage('Indsæt et gyldigt pakkenummer - uden linieskift'); |
ShowMessage('Indsæt et gyldigt pakkenummer - uden linieskift'); |
1145 |
end; |
end; |
1146 |
end; |
end; // Slut ctrl-v |
1147 |
|
|
1148 |
if Key = #13 then // Enter |
if Key = #13 then // Enter |
1149 |
begin |
begin |
1197 |
exit; |
exit; |
1198 |
end; |
end; |
1199 |
|
|
1200 |
|
if (LowerCase(StregKode) = 'for stor hjemmelevering') OR (LowerCase(StregKode) = 'for stor daodirekte') then |
1201 |
|
begin |
1202 |
|
if chkForstorTilDirekte.Enabled then |
1203 |
|
begin |
1204 |
|
chkForstorTilDirekte.Checked := true; |
1205 |
|
end |
1206 |
|
else |
1207 |
|
begin |
1208 |
|
VisAlarmSkaerm( Stregkode + ' kan ikke vælges på denne scannings tilstand' ); |
1209 |
|
end; |
1210 |
|
Stregkode := ''; |
1211 |
|
StregkodeST.Caption := StregKode; |
1212 |
|
exit; |
1213 |
|
end; |
1214 |
|
|
1215 |
|
|
1216 |
if StregKode = 'Indtast kundenummer' then |
if StregKode = 'Indtast kundenummer' then |
1217 |
begin |
begin |
1218 |
if chkSporgEfterKunde.Enabled = true then |
if chkSporgEfterKunde.Enabled = true then |
1693 |
|
|
1694 |
Key := #0; |
Key := #0; |
1695 |
|
|
1696 |
|
|
1697 |
|
|
1698 |
|
|
1699 |
|
|
1700 |
|
|
1701 |
end; //End of OnKeyPress |
end; //End of OnKeyPress |
1702 |
|
|
1703 |
|
|
1704 |
|
|
1705 |
procedure TMainForm.SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String); |
procedure TMainForm.SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String); |
1706 |
const |
const |
1707 |
crlf = Chr(13) + Chr(10) ; // Carriage return & Linefeed |
crlf = Chr(13) + Chr(10) ; // Carriage return & Linefeed |
2031 |
begin |
begin |
2032 |
exit; |
exit; |
2033 |
end; |
end; |
2034 |
|
|
2035 |
|
if chkForstorTilDirekte.Checked then // Denne skal være efter if/else kæden da den overrider de øvrige URL'er |
2036 |
|
begin |
2037 |
|
URLStr := Format(URLOmdirigerTilPakkeshop,[Sted, PakkeNr]); |
2038 |
|
end; |
2039 |
|
|
2040 |
try |
try |
2041 |
//raise EIdConnClosedGracefully.Create('test'); // KUN TIL TEST |
//raise EIdConnClosedGracefully.Create('test'); // KUN TIL TEST |
2042 |
WebSvar := IdHTTP1.Get(URLStr); |
WebSvar := IdHTTP1.Get(URLStr); |
2058 |
end; |
end; |
2059 |
end; |
end; |
2060 |
end; |
end; |
2061 |
|
|
2062 |
XMLDocument1.LoadFromXML(WebSvar); |
XMLDocument1.LoadFromXML(WebSvar); |
2063 |
try |
try |
2064 |
if Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked then |
if Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked then |
2082 |
end; |
end; |
2083 |
end; |
end; |
2084 |
end |
end |
2085 |
else if menuIndlevering.Checked then |
else if menuIndlevering.Checked or chkForstorTilDirekte.Checked then |
2086 |
begin |
begin |
2087 |
|
|
2088 |
|
|
2097 |
Stregkode := PakkeshopLabel.Stregkode; |
Stregkode := PakkeshopLabel.Stregkode; |
2098 |
|
|
2099 |
LabelPrint.PrintPakkeshopLabel( PakkeshopLabel ); |
LabelPrint.PrintPakkeshopLabel( PakkeshopLabel ); |
2100 |
|
chkForstorTilDirekte.Checked := false; |
2101 |
|
|
2102 |
end; |
end; |
2103 |
|
|
3134 |
BtnEKLoverforsel.Enabled := true; |
BtnEKLoverforsel.Enabled := true; |
3135 |
InitLillePakke(); |
InitLillePakke(); |
3136 |
ListBox1.Items.Clear; |
ListBox1.Items.Clear; |
3137 |
|
|
3138 |
|
chkForstorTilDirekte.Checked := false; |
3139 |
|
chkForstorTilDirekte.Enabled := false; |
3140 |
|
|
3141 |
if BladhusSted = 0 then |
if BladhusSted = 0 then |
3142 |
begin |
begin |
3143 |
IndlesScanningLogFil(); |
IndlesScanningLogFil(); |
3169 |
ListBox1.Items.Clear; |
ListBox1.Items.Clear; |
3170 |
ListBox2.Items.Clear; |
ListBox2.Items.Clear; |
3171 |
BtnEKLoverforsel.Enabled := false; |
BtnEKLoverforsel.Enabled := false; |
3172 |
|
|
3173 |
|
chkForstorTilDirekte.Checked := false; |
3174 |
|
chkForstorTilDirekte.Enabled := false; |
3175 |
|
|
3176 |
InitLillePakke(); |
InitLillePakke(); |
3177 |
end; |
end; |
3178 |
|
|
3199 |
ListBox1.Items.Clear; |
ListBox1.Items.Clear; |
3200 |
ListBox2.Items.Clear; |
ListBox2.Items.Clear; |
3201 |
BtnEKLoverforsel.Enabled := false; |
BtnEKLoverforsel.Enabled := false; |
3202 |
|
|
3203 |
|
chkForstorTilDirekte.Checked := false; |
3204 |
|
chkForstorTilDirekte.Enabled := false; |
3205 |
|
|
3206 |
InitLillePakke(); |
InitLillePakke(); |
3207 |
end; |
end; |
3208 |
|
|
3234 |
BtnEKLoverforsel.Enabled := false; |
BtnEKLoverforsel.Enabled := false; |
3235 |
IdFTP1.Passive := true; |
IdFTP1.Passive := true; |
3236 |
IdFTP1.PassiveUseControlHost := true; |
IdFTP1.PassiveUseControlHost := true; |
3237 |
|
|
3238 |
|
chkForstorTilDirekte.Checked := false; |
3239 |
|
chkForstorTilDirekte.Enabled := true; |
3240 |
|
|
3241 |
if (BladhusSted = 0) or (BladhusSted = 2) or (BladhusSted = 3) then |
if (BladhusSted = 0) or (BladhusSted = 2) or (BladhusSted = 3) then |
3242 |
begin |
begin |
3243 |
IndlesScanningLogFil(); |
IndlesScanningLogFil(); |
3273 |
|
|
3274 |
BtnEKLoverforsel.Enabled := true; |
BtnEKLoverforsel.Enabled := true; |
3275 |
|
|
3276 |
|
chkForstorTilDirekte.Checked := false; |
3277 |
|
chkForstorTilDirekte.Enabled := true; |
3278 |
|
|
3279 |
InitLillePakke(); |
InitLillePakke(); |
3280 |
IndlesScanningLogFil(); |
IndlesScanningLogFil(); |
3281 |
if BladhusSted = 0 then |
if BladhusSted = 0 then |
3311 |
BtnDownloadKontrolfil.Enabled := false; |
BtnDownloadKontrolfil.Enabled := false; |
3312 |
BtnOpdaterListen.Enabled := true; |
BtnOpdaterListen.Enabled := true; |
3313 |
BtnEKLoverforsel.Enabled := false; |
BtnEKLoverforsel.Enabled := false; |
3314 |
|
|
3315 |
|
chkForstorTilDirekte.Checked := false; |
3316 |
|
chkForstorTilDirekte.Enabled := false; |
3317 |
|
|
3318 |
|
|
3319 |
InitLillePakke(); |
InitLillePakke(); |
3320 |
IndlesScanningLogFil(); |
IndlesScanningLogFil(); |
3321 |
if BladhusSted = 0 then |
if BladhusSted = 0 then |
3363 |
BtnDownloadKontrolfil.Enabled := false; |
BtnDownloadKontrolfil.Enabled := false; |
3364 |
BtnOpdaterListen.Enabled := true; |
BtnOpdaterListen.Enabled := true; |
3365 |
BtnEKLoverforsel.Enabled := false; |
BtnEKLoverforsel.Enabled := false; |
3366 |
|
|
3367 |
|
chkForstorTilDirekte.Checked := false; |
3368 |
|
chkForstorTilDirekte.Enabled := false; |
3369 |
|
|
3370 |
|
|
3371 |
InitLillePakke(); |
InitLillePakke(); |
3372 |
IndlesScanningLogFil(); |
IndlesScanningLogFil(); |
3373 |
if BladhusSted = 0 then |
if BladhusSted = 0 then |
4111 |
stregkode, modtagernavn, modtageradresse, kommentar : string; |
stregkode, modtagernavn, modtageradresse, kommentar : string; |
4112 |
pakketype, tjekkodestatus : String; |
pakketype, tjekkodestatus : String; |
4113 |
pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer; |
pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer; |
4114 |
pakketyper : TStrings; |
//pakketyper : TStrings; |
4115 |
|
pakketyper : TDictionary<String, Integer>; |
4116 |
|
tmpAntal : Integer; |
4117 |
|
|
4118 |
|
|
4119 |
|
|
4120 |
antlin : Integer; |
antlin : Integer; |
4121 |
|
|
4122 |
antlinIdag, antlinSenere : Integer; |
antlinIdag, antlinSenere : Integer; |
4123 |
|
|
4124 |
XmlFelter : TStrings; |
//XmlFelter : TStrings; |
4125 |
|
XmlFelter : TDictionary<String, Integer>; |
4126 |
|
|
4127 |
begin |
begin |
4128 |
XmlFelter := TStringList.Create; |
|
4129 |
pakketyper := TStringList.Create; |
|
4130 |
|
XmlFelter := TDictionary<String, Integer>.Create; |
4131 |
|
pakketyper := TDictionary<String, Integer>.Create; |
4132 |
|
|
4133 |
linienr := 0; |
linienr := 0; |
4134 |
ListBox2.Clear; |
ListBox2.Clear; |
4135 |
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Henter oversigt over pakker der endnu ikke er modtaget'); |
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Henter oversigt over pakker der endnu ikke er modtaget'); |
4144 |
StedKode := Sted; |
StedKode := Sted; |
4145 |
end; |
end; |
4146 |
|
|
4147 |
|
Application.Processmessages; //Ugly Hack to improve User Experience when switching modes |
4148 |
|
|
4149 |
|
|
4150 |
|
|
4151 |
if (Scanningtype = '7') then |
if (Scanningtype = '7') then |
4205 |
if Node.NodeType = ntElement then begin |
if Node.NodeType = ntElement then begin |
4206 |
if Node.NodeName = 'Stregkode' then |
if Node.NodeName = 'Stregkode' then |
4207 |
begin |
begin |
4208 |
antlin := antlin + 1; |
Inc(antlin); |
4209 |
// 20150306: start |
// 20150306: start |
4210 |
if not VarIsNull(Node.NodeValue) then |
if not VarIsNull(Node.NodeValue) then |
4211 |
begin |
begin |
4212 |
if (pos('(', Node.NodeValue) = 0) then |
if (pos('(', Node.NodeValue) = 0) then |
4213 |
begin |
begin |
4214 |
antlinIdag := antlinIdag + 1; |
Inc(antlinIdag); |
4215 |
end |
end |
4216 |
else |
else |
4217 |
begin |
begin |
4218 |
antlinSenere := antlinSenere + 1; |
Inc(antlinSenere); |
4219 |
end; |
end; |
4220 |
end; |
end; |
4221 |
// 20150306: slut |
// 20150306: slut |
4222 |
end; |
end; |
4223 |
end; |
end; |
4224 |
if (XmlFelter.values[Node.NodeName] <> '') then |
if ( XmlFelter.ContainsKey(Node.NodeName) ) then |
4225 |
XmlFelter.values[Node.NodeName] := IntToStr(StrToInt(XmlFelter.values[Node.NodeName]) + 1) |
begin |
4226 |
|
XmlFelter.TryGetValue(Node.NodeName, tmpAntal); |
4227 |
|
XmlFelter.AddOrSetValue(Node.NodeName, tmpAntal + 1); |
4228 |
|
end |
4229 |
else |
else |
4230 |
XmlFelter.values[Node.NodeName] := '1'; |
begin |
4231 |
|
XmlFelter.Add(Node.NodeName, 1); |
4232 |
|
end; |
4233 |
|
|
4234 |
end; |
end; |
4235 |
antalLiniefelter := XmlFelter.Count; |
antalLiniefelter := XmlFelter.Count; |
4237 |
SetLength(stregkoderMedTjekkodeArray, 0); // reset fra tidligere brug |
SetLength(stregkoderMedTjekkodeArray, 0); // reset fra tidligere brug |
4238 |
SetLength(stregkoderMedTjekkodeArray, antlin); // sæt antal elementer i array |
SetLength(stregkoderMedTjekkodeArray, antlin); // sæt antal elementer i array |
4239 |
|
|
4240 |
|
|
4241 |
|
Application.Processmessages; //Ugly Hack to improve User Experience when switching modes |
4242 |
|
|
4243 |
logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget'; |
logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget'; |
4244 |
if (antlinSenere > 0) then |
if (antlinSenere > 0) then |
4245 |
begin |
begin |
4248 |
logTekst := logTekst + '.'; |
logTekst := logTekst + '.'; |
4249 |
|
|
4250 |
SkrivScanningLogFil(logTekst); |
SkrivScanningLogFil(logTekst); |
4251 |
|
|
4252 |
|
|
4253 |
for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin |
for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin |
4254 |
Node:= XMLDocument1.DocumentElement.ChildNodes[I]; |
Node:= XMLDocument1.DocumentElement.ChildNodes[I]; |
4255 |
if Node.NodeType = ntElement then begin |
if Node.NodeType = ntElement then begin |
4257 |
if not VarIsNull(Node.NodeValue) then |
if not VarIsNull(Node.NodeValue) then |
4258 |
stregkode := Node.NodeValue; |
stregkode := Node.NodeValue; |
4259 |
antalFelterFundet := antalFelterFundet + 1; |
antalFelterFundet := antalFelterFundet + 1; |
4260 |
end; |
end |
4261 |
if Node.NodeName = 'ModtagerNavn' then begin |
else if Node.NodeName = 'ModtagerNavn' then begin |
4262 |
if not VarIsNull(Node.NodeValue) then |
if not VarIsNull(Node.NodeValue) then |
4263 |
modtagernavn := Node.NodeValue; |
modtagernavn := Node.NodeValue; |
4264 |
antalFelterFundet := antalFelterFundet + 1; |
antalFelterFundet := antalFelterFundet + 1; |
4265 |
end; |
end |
4266 |
if Node.NodeName = 'ModtagerAdresse' then begin |
else if Node.NodeName = 'ModtagerAdresse' then begin |
4267 |
if not VarIsNull(Node.NodeValue) then |
if not VarIsNull(Node.NodeValue) then |
4268 |
modtageradresse := Node.NodeValue; |
modtageradresse := Node.NodeValue; |
4269 |
antalFelterFundet := antalFelterFundet + 1; |
antalFelterFundet := antalFelterFundet + 1; |
4270 |
end; |
end |
4271 |
if Node.NodeName = 'Kommentar' then begin |
else if Node.NodeName = 'Kommentar' then begin |
4272 |
if not VarIsNull(Node.NodeValue) then |
if not VarIsNull(Node.NodeValue) then |
4273 |
kommentar := Node.NodeValue; |
kommentar := Node.NodeValue; |
4274 |
antalFelterFundet := antalFelterFundet + 1; |
antalFelterFundet := antalFelterFundet + 1; |
4275 |
end; |
end |
4276 |
if Node.NodeName = 'PakkeType' then begin |
else if Node.NodeName = 'PakkeType' then begin |
4277 |
if not VarIsNull(Node.NodeValue) then |
if not VarIsNull(Node.NodeValue) then |
4278 |
pakketype := Node.NodeValue; |
pakketype := Node.NodeValue; |
4279 |
antalFelterFundet := antalFelterFundet + 1; |
antalFelterFundet := antalFelterFundet + 1; |
4280 |
if (pakketyper.values[pakketype] <> '') then |
if ( pakketyper.ContainsKey(pakketype) ) then |
4281 |
pakketyper.values[pakketype] := IntToStr(StrToInt(pakketyper.values[pakketype]) + 1) |
begin |
4282 |
|
pakketyper.TryGetValue(pakketype, tmpAntal); |
4283 |
|
pakketyper.AddOrSetValue(pakketype, tmpAntal + 1); |
4284 |
|
end |
4285 |
else |
else |
4286 |
pakketyper.values[pakketype] := '1'; |
pakketyper.Add(pakketype, 1); |
4287 |
end; |
end |
4288 |
if Node.NodeName = 'TjekkodeStatus' then begin |
else if Node.NodeName = 'TjekkodeStatus' then begin |
4289 |
if not VarIsNull(Node.NodeValue) then |
if not VarIsNull(Node.NodeValue) then |
4290 |
tjekkodestatus := Node.NodeValue; |
tjekkodestatus := Node.NodeValue; |
4291 |
antalFelterFundet := antalFelterFundet + 1; |
antalFelterFundet := antalFelterFundet + 1; |
4303 |
linienr := linienr + 1; |
linienr := linienr + 1; |
4304 |
end; |
end; |
4305 |
end; |
end; |
4306 |
|
|
4307 |
|
|
4308 |
if antalFelterFundet = antalLiniefelter then |
if antalFelterFundet = antalLiniefelter then |
4309 |
begin |
begin |
4310 |
if (ScanningType = '1') then |
if (ScanningType = '1') then |
4320 |
end; |
end; |
4321 |
end; |
end; |
4322 |
end; |
end; |
|
for pakketypeix := 0 to pakketyper.Count-1 do |
|
|
begin |
|
|
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + ' '+pakketyper[pakketypeix]+' pakke(r) ikke modtaget'); |
|
|
end; |
|
4323 |
|
|
4324 |
// Free up the list object |
|
4325 |
|
Application.Processmessages; //Ugly Hack to improve User Experience when switching modes |
4326 |
|
|
4327 |
|
|
4328 |
|
for pakketype in pakketyper.Keys do |
4329 |
|
begin |
4330 |
|
pakketyper.TryGetValue(pakketype, tmpAntal); |
4331 |
|
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + pakketype + ' ' + IntToStr(tmpAntal) + ' pakke(r) ikke modtaget'); |
4332 |
|
end; |
4333 |
|
|
4334 |
|
// Free up the dictionary object |
4335 |
pakketyper.Free; |
pakketyper.Free; |
4336 |
|
|
4337 |
|
|
4338 |
|
|
4339 |
// ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Der er '+IntToStr(antlin)+' pakker, der endnu ikke er modtaget.'); |
// ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Der er '+IntToStr(antlin)+' pakker, der endnu ikke er modtaget.'); |
4340 |
logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget'; |
logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget'; |
4341 |
if (antlinSenere > 0) then |
if (antlinSenere > 0) then |