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; |
570 |
|
|
571 |
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'); |
572 |
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'); |
573 |
|
URLOmdirigerTilPakkeshop := ReadString('Settings', 'URLOmdirigerTilPakkeshop','http://omdeling.info/webservices/pakkeshop/PakkeKontrolOmdirigerTilPakkeshop.php?sted=%s&stregkode=%s'); |
574 |
|
|
575 |
|
|
576 |
|
|
577 |
|
|
735 |
PanelValg2.Font.Color := clInactiveCaption; |
PanelValg2.Font.Color := clInactiveCaption; |
736 |
PanelValg3.Enabled := false; |
PanelValg3.Enabled := false; |
737 |
PanelValg3.Font.Color := clInactiveCaption; |
PanelValg3.Font.Color := clInactiveCaption; |
738 |
PanelValg6.Enabled := false; |
//PanelValg6.Enabled := false; |
739 |
PanelValg6.Font.Color := clInactiveCaption; |
//PanelValg6.Font.Color := clInactiveCaption; |
740 |
|
|
741 |
// her skal vi også disable de menupunkter BK ikke kan bruge |
// her skal vi også disable de menupunkter BK ikke kan bruge |
742 |
ReturpakkerfraDAO1.Enabled := false; |
ReturpakkerfraDAO1.Enabled := false; |
743 |
Returpakkerfraboghandler1.Enabled := false; |
Returpakkerfraboghandler1.Enabled := false; |
744 |
Returpakkerfrapakkeshop1.Enabled := false; |
|
745 |
|
//Returpakkerfrapakkeshop1.Enabled := false; |
746 |
|
|
747 |
if SpecialVersionScanningtype = 'A' then |
if SpecialVersionScanningtype = 'A' then |
748 |
begin |
begin |
749 |
Scanningtype := '1'; |
Scanningtype := '1'; |
1125 |
or (NumberString = 'Retur fra kunde') |
or (NumberString = 'Retur fra kunde') |
1126 |
or (NumberString = 'DAO DIREKTE') |
or (NumberString = 'DAO DIREKTE') |
1127 |
or (NumberString = 'DAO PAKKESHOP') |
or (NumberString = 'DAO PAKKESHOP') |
1128 |
|
or (NumberString = 'DAO PAKKESHOP') |
1129 |
|
or (LowerCase(NumberString) = 'for stor hjemmelevering' ) |
1130 |
or (NumberString = 'Retur fra pakkeshop') then |
or (NumberString = 'Retur fra pakkeshop') then |
1131 |
|
|
1132 |
begin |
begin |
1137 |
begin |
begin |
1138 |
ShowMessage('Indsæt et gyldigt pakkenummer - uden linieskift'); |
ShowMessage('Indsæt et gyldigt pakkenummer - uden linieskift'); |
1139 |
end; |
end; |
1140 |
end; |
end; // Slut ctrl-v |
1141 |
|
|
1142 |
if Key = #13 then // Enter |
if Key = #13 then // Enter |
1143 |
begin |
begin |
1191 |
exit; |
exit; |
1192 |
end; |
end; |
1193 |
|
|
1194 |
|
if LowerCase(StregKode) = 'for stor hjemmelevering' then |
1195 |
|
begin |
1196 |
|
if chkForstorTilDirekte.Enabled then |
1197 |
|
begin |
1198 |
|
chkForstorTilDirekte.Checked := true; |
1199 |
|
end |
1200 |
|
else |
1201 |
|
begin |
1202 |
|
VisAlarmSkaerm( Stregkode + ' kan ikke vælges på denne scannings tilstand' ); |
1203 |
|
end; |
1204 |
|
Stregkode := ''; |
1205 |
|
StregkodeST.Caption := StregKode; |
1206 |
|
exit; |
1207 |
|
end; |
1208 |
|
|
1209 |
|
|
1210 |
if StregKode = 'Indtast kundenummer' then |
if StregKode = 'Indtast kundenummer' then |
1211 |
begin |
begin |
1212 |
if chkSporgEfterKunde.Enabled = true then |
if chkSporgEfterKunde.Enabled = true then |
1404 |
Pakkescanningtype := Scanningtype; |
Pakkescanningtype := Scanningtype; |
1405 |
end; |
end; |
1406 |
|
|
1407 |
if ( (Pakkescanningtype = '1') and (PanelValg1.Enabled = false) |
if ( ( (Pakkescanningtype = '1') and (PanelValg1.Enabled = false) ) |
1408 |
or (Pakkescanningtype = '2') and (PanelValg2.Enabled = false) |
or ( (Pakkescanningtype = '2') and (PanelValg2.Enabled = false) ) |
1409 |
or (Pakkescanningtype = '3') and (PanelValg3.Enabled = false) |
or ( (Pakkescanningtype = '3') and (PanelValg3.Enabled = false) ) |
1410 |
or (Pakkescanningtype = '4') and (PanelValg4.Enabled = false) |
or ( (Pakkescanningtype = '4') and (PanelValg4.Enabled = false) ) |
1411 |
or (Pakkescanningtype = '5') and (PanelValg5.Enabled = false) |
or ( (Pakkescanningtype = '5') and (PanelValg5.Enabled = false) ) |
1412 |
or (Pakkescanningtype = '6') and (PanelValg6.Enabled = false) ) then |
or ( (Pakkescanningtype = '6') and (PanelValg6.Enabled = false) ) ) then |
1413 |
begin // Her skal komme en alarm og rød skærm |
begin // Her skal komme en alarm og rød skærm |
1414 |
VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); |
VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); |
1415 |
|
|
1416 |
exit; |
exit; |
1417 |
end; |
end; |
1418 |
|
|
1419 |
if Automatiskvalg1.Checked and (Length(Stregkode) > 8) then |
if (Automatiskvalg1.Checked and (Length(Stregkode) > 8) ) then |
1420 |
begin |
begin |
1421 |
GemStregkode := Stregkode; |
GemStregkode := Stregkode; |
1422 |
if Pakketype = 'NatXpress' then |
if Pakketype = 'NatXpress' then |
1450 |
else |
else |
1451 |
begin |
begin |
1452 |
// Her skal komme en alarm og rød skærm |
// Her skal komme en alarm og rød skærm |
1453 |
VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); |
//VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); |
1454 |
|
VisAlarmSkaerm( Stregkode + ' kan ikke bruges med automatisk valg' ); |
1455 |
|
|
1456 |
exit; |
exit; |
1457 |
end; |
end; |
1687 |
|
|
1688 |
Key := #0; |
Key := #0; |
1689 |
|
|
1690 |
|
|
1691 |
|
|
1692 |
|
|
1693 |
|
|
1694 |
|
|
1695 |
end; //End of OnKeyPress |
end; //End of OnKeyPress |
1696 |
|
|
1697 |
|
|
1698 |
|
|
1699 |
procedure TMainForm.SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String); |
procedure TMainForm.SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String); |
1700 |
const |
const |
1701 |
crlf = Chr(13) + Chr(10) ; // Carriage return & Linefeed |
crlf = Chr(13) + Chr(10) ; // Carriage return & Linefeed |
2025 |
begin |
begin |
2026 |
exit; |
exit; |
2027 |
end; |
end; |
2028 |
|
|
2029 |
|
if chkForstorTilDirekte.Checked then // Denne skal være efter if/else kæden da den overrider de øvrige URL'er |
2030 |
|
begin |
2031 |
|
URLStr := Format(URLOmdirigerTilPakkeshop,[Sted, PakkeNr]); |
2032 |
|
end; |
2033 |
|
|
2034 |
try |
try |
2035 |
//raise EIdConnClosedGracefully.Create('test'); // KUN TIL TEST |
//raise EIdConnClosedGracefully.Create('test'); // KUN TIL TEST |
2036 |
WebSvar := IdHTTP1.Get(URLStr); |
WebSvar := IdHTTP1.Get(URLStr); |
2052 |
end; |
end; |
2053 |
end; |
end; |
2054 |
end; |
end; |
2055 |
|
|
2056 |
XMLDocument1.LoadFromXML(WebSvar); |
XMLDocument1.LoadFromXML(WebSvar); |
2057 |
try |
try |
2058 |
if Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked then |
if Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked then |
2076 |
end; |
end; |
2077 |
end; |
end; |
2078 |
end |
end |
2079 |
else if menuIndlevering.Checked then |
else if menuIndlevering.Checked or chkForstorTilDirekte.Checked then |
2080 |
begin |
begin |
2081 |
|
|
2082 |
|
|
2091 |
Stregkode := PakkeshopLabel.Stregkode; |
Stregkode := PakkeshopLabel.Stregkode; |
2092 |
|
|
2093 |
LabelPrint.PrintPakkeshopLabel( PakkeshopLabel ); |
LabelPrint.PrintPakkeshopLabel( PakkeshopLabel ); |
2094 |
|
chkForstorTilDirekte.Checked := false; |
2095 |
|
|
2096 |
end; |
end; |
2097 |
|
|
3128 |
BtnEKLoverforsel.Enabled := true; |
BtnEKLoverforsel.Enabled := true; |
3129 |
InitLillePakke(); |
InitLillePakke(); |
3130 |
ListBox1.Items.Clear; |
ListBox1.Items.Clear; |
3131 |
|
|
3132 |
|
chkForstorTilDirekte.Checked := false; |
3133 |
|
chkForstorTilDirekte.Enabled := false; |
3134 |
|
|
3135 |
if BladhusSted = 0 then |
if BladhusSted = 0 then |
3136 |
begin |
begin |
3137 |
IndlesScanningLogFil(); |
IndlesScanningLogFil(); |
3163 |
ListBox1.Items.Clear; |
ListBox1.Items.Clear; |
3164 |
ListBox2.Items.Clear; |
ListBox2.Items.Clear; |
3165 |
BtnEKLoverforsel.Enabled := false; |
BtnEKLoverforsel.Enabled := false; |
3166 |
|
|
3167 |
|
chkForstorTilDirekte.Checked := false; |
3168 |
|
chkForstorTilDirekte.Enabled := false; |
3169 |
|
|
3170 |
InitLillePakke(); |
InitLillePakke(); |
3171 |
end; |
end; |
3172 |
|
|
3193 |
ListBox1.Items.Clear; |
ListBox1.Items.Clear; |
3194 |
ListBox2.Items.Clear; |
ListBox2.Items.Clear; |
3195 |
BtnEKLoverforsel.Enabled := false; |
BtnEKLoverforsel.Enabled := false; |
3196 |
|
|
3197 |
|
chkForstorTilDirekte.Checked := false; |
3198 |
|
chkForstorTilDirekte.Enabled := false; |
3199 |
|
|
3200 |
InitLillePakke(); |
InitLillePakke(); |
3201 |
end; |
end; |
3202 |
|
|
3228 |
BtnEKLoverforsel.Enabled := false; |
BtnEKLoverforsel.Enabled := false; |
3229 |
IdFTP1.Passive := true; |
IdFTP1.Passive := true; |
3230 |
IdFTP1.PassiveUseControlHost := true; |
IdFTP1.PassiveUseControlHost := true; |
3231 |
|
|
3232 |
|
chkForstorTilDirekte.Checked := false; |
3233 |
|
chkForstorTilDirekte.Enabled := true; |
3234 |
|
|
3235 |
if (BladhusSted = 0) or (BladhusSted = 2) or (BladhusSted = 3) then |
if (BladhusSted = 0) or (BladhusSted = 2) or (BladhusSted = 3) then |
3236 |
begin |
begin |
3237 |
IndlesScanningLogFil(); |
IndlesScanningLogFil(); |
3267 |
|
|
3268 |
BtnEKLoverforsel.Enabled := true; |
BtnEKLoverforsel.Enabled := true; |
3269 |
|
|
3270 |
|
chkForstorTilDirekte.Checked := false; |
3271 |
|
chkForstorTilDirekte.Enabled := true; |
3272 |
|
|
3273 |
InitLillePakke(); |
InitLillePakke(); |
3274 |
IndlesScanningLogFil(); |
IndlesScanningLogFil(); |
3275 |
if BladhusSted = 0 then |
if BladhusSted = 0 then |
3305 |
BtnDownloadKontrolfil.Enabled := false; |
BtnDownloadKontrolfil.Enabled := false; |
3306 |
BtnOpdaterListen.Enabled := true; |
BtnOpdaterListen.Enabled := true; |
3307 |
BtnEKLoverforsel.Enabled := false; |
BtnEKLoverforsel.Enabled := false; |
3308 |
|
|
3309 |
|
chkForstorTilDirekte.Checked := false; |
3310 |
|
chkForstorTilDirekte.Enabled := false; |
3311 |
|
|
3312 |
|
|
3313 |
InitLillePakke(); |
InitLillePakke(); |
3314 |
IndlesScanningLogFil(); |
IndlesScanningLogFil(); |
3315 |
if BladhusSted = 0 then |
if BladhusSted = 0 then |
3357 |
BtnDownloadKontrolfil.Enabled := false; |
BtnDownloadKontrolfil.Enabled := false; |
3358 |
BtnOpdaterListen.Enabled := true; |
BtnOpdaterListen.Enabled := true; |
3359 |
BtnEKLoverforsel.Enabled := false; |
BtnEKLoverforsel.Enabled := false; |
3360 |
|
|
3361 |
|
chkForstorTilDirekte.Checked := false; |
3362 |
|
chkForstorTilDirekte.Enabled := false; |
3363 |
|
|
3364 |
|
|
3365 |
InitLillePakke(); |
InitLillePakke(); |
3366 |
IndlesScanningLogFil(); |
IndlesScanningLogFil(); |
3367 |
if BladhusSted = 0 then |
if BladhusSted = 0 then |
4105 |
stregkode, modtagernavn, modtageradresse, kommentar : string; |
stregkode, modtagernavn, modtageradresse, kommentar : string; |
4106 |
pakketype, tjekkodestatus : String; |
pakketype, tjekkodestatus : String; |
4107 |
pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer; |
pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer; |
4108 |
pakketyper : TStrings; |
//pakketyper : TStrings; |
4109 |
|
pakketyper : TDictionary<String, Integer>; |
4110 |
|
tmpAntal : Integer; |
4111 |
|
|
4112 |
|
|
4113 |
|
|
4114 |
antlin : Integer; |
antlin : Integer; |
4115 |
|
|
4116 |
antlinIdag, antlinSenere : Integer; |
antlinIdag, antlinSenere : Integer; |
4117 |
|
|
4118 |
XmlFelter : TStrings; |
//XmlFelter : TStrings; |
4119 |
|
XmlFelter : TDictionary<String, Integer>; |
4120 |
|
|
4121 |
begin |
begin |
4122 |
XmlFelter := TStringList.Create; |
|
4123 |
pakketyper := TStringList.Create; |
|
4124 |
|
XmlFelter := TDictionary<String, Integer>.Create; |
4125 |
|
pakketyper := TDictionary<String, Integer>.Create; |
4126 |
|
|
4127 |
linienr := 0; |
linienr := 0; |
4128 |
ListBox2.Clear; |
ListBox2.Clear; |
4129 |
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'); |
4138 |
StedKode := Sted; |
StedKode := Sted; |
4139 |
end; |
end; |
4140 |
|
|
4141 |
|
Application.Processmessages; //Ugly Hack to improve User Experience when switching modes |
4142 |
|
|
4143 |
|
|
4144 |
|
|
4145 |
if (Scanningtype = '7') then |
if (Scanningtype = '7') then |
4199 |
if Node.NodeType = ntElement then begin |
if Node.NodeType = ntElement then begin |
4200 |
if Node.NodeName = 'Stregkode' then |
if Node.NodeName = 'Stregkode' then |
4201 |
begin |
begin |
4202 |
antlin := antlin + 1; |
Inc(antlin); |
4203 |
// 20150306: start |
// 20150306: start |
4204 |
if not VarIsNull(Node.NodeValue) then |
if not VarIsNull(Node.NodeValue) then |
4205 |
begin |
begin |
4206 |
if (pos('(', Node.NodeValue) = 0) then |
if (pos('(', Node.NodeValue) = 0) then |
4207 |
begin |
begin |
4208 |
antlinIdag := antlinIdag + 1; |
Inc(antlinIdag); |
4209 |
end |
end |
4210 |
else |
else |
4211 |
begin |
begin |
4212 |
antlinSenere := antlinSenere + 1; |
Inc(antlinSenere); |
4213 |
end; |
end; |
4214 |
end; |
end; |
4215 |
// 20150306: slut |
// 20150306: slut |
4216 |
end; |
end; |
4217 |
end; |
end; |
4218 |
if (XmlFelter.values[Node.NodeName] <> '') then |
if ( XmlFelter.ContainsKey(Node.NodeName) ) then |
4219 |
XmlFelter.values[Node.NodeName] := IntToStr(StrToInt(XmlFelter.values[Node.NodeName]) + 1) |
begin |
4220 |
|
XmlFelter.TryGetValue(Node.NodeName, tmpAntal); |
4221 |
|
XmlFelter.AddOrSetValue(Node.NodeName, tmpAntal + 1); |
4222 |
|
end |
4223 |
else |
else |
4224 |
XmlFelter.values[Node.NodeName] := '1'; |
begin |
4225 |
|
XmlFelter.Add(Node.NodeName, 1); |
4226 |
|
end; |
4227 |
|
|
4228 |
end; |
end; |
4229 |
antalLiniefelter := XmlFelter.Count; |
antalLiniefelter := XmlFelter.Count; |
4231 |
SetLength(stregkoderMedTjekkodeArray, 0); // reset fra tidligere brug |
SetLength(stregkoderMedTjekkodeArray, 0); // reset fra tidligere brug |
4232 |
SetLength(stregkoderMedTjekkodeArray, antlin); // sæt antal elementer i array |
SetLength(stregkoderMedTjekkodeArray, antlin); // sæt antal elementer i array |
4233 |
|
|
4234 |
|
|
4235 |
|
Application.Processmessages; //Ugly Hack to improve User Experience when switching modes |
4236 |
|
|
4237 |
logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget'; |
logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget'; |
4238 |
if (antlinSenere > 0) then |
if (antlinSenere > 0) then |
4239 |
begin |
begin |
4242 |
logTekst := logTekst + '.'; |
logTekst := logTekst + '.'; |
4243 |
|
|
4244 |
SkrivScanningLogFil(logTekst); |
SkrivScanningLogFil(logTekst); |
4245 |
|
|
4246 |
|
|
4247 |
for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin |
for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin |
4248 |
Node:= XMLDocument1.DocumentElement.ChildNodes[I]; |
Node:= XMLDocument1.DocumentElement.ChildNodes[I]; |
4249 |
if Node.NodeType = ntElement then begin |
if Node.NodeType = ntElement then begin |
4251 |
if not VarIsNull(Node.NodeValue) then |
if not VarIsNull(Node.NodeValue) then |
4252 |
stregkode := Node.NodeValue; |
stregkode := Node.NodeValue; |
4253 |
antalFelterFundet := antalFelterFundet + 1; |
antalFelterFundet := antalFelterFundet + 1; |
4254 |
end; |
end |
4255 |
if Node.NodeName = 'ModtagerNavn' then begin |
else if Node.NodeName = 'ModtagerNavn' then begin |
4256 |
if not VarIsNull(Node.NodeValue) then |
if not VarIsNull(Node.NodeValue) then |
4257 |
modtagernavn := Node.NodeValue; |
modtagernavn := Node.NodeValue; |
4258 |
antalFelterFundet := antalFelterFundet + 1; |
antalFelterFundet := antalFelterFundet + 1; |
4259 |
end; |
end |
4260 |
if Node.NodeName = 'ModtagerAdresse' then begin |
else if Node.NodeName = 'ModtagerAdresse' then begin |
4261 |
if not VarIsNull(Node.NodeValue) then |
if not VarIsNull(Node.NodeValue) then |
4262 |
modtageradresse := Node.NodeValue; |
modtageradresse := Node.NodeValue; |
4263 |
antalFelterFundet := antalFelterFundet + 1; |
antalFelterFundet := antalFelterFundet + 1; |
4264 |
end; |
end |
4265 |
if Node.NodeName = 'Kommentar' then begin |
else if Node.NodeName = 'Kommentar' then begin |
4266 |
if not VarIsNull(Node.NodeValue) then |
if not VarIsNull(Node.NodeValue) then |
4267 |
kommentar := Node.NodeValue; |
kommentar := Node.NodeValue; |
4268 |
antalFelterFundet := antalFelterFundet + 1; |
antalFelterFundet := antalFelterFundet + 1; |
4269 |
end; |
end |
4270 |
if Node.NodeName = 'PakkeType' then begin |
else if Node.NodeName = 'PakkeType' then begin |
4271 |
if not VarIsNull(Node.NodeValue) then |
if not VarIsNull(Node.NodeValue) then |
4272 |
pakketype := Node.NodeValue; |
pakketype := Node.NodeValue; |
4273 |
antalFelterFundet := antalFelterFundet + 1; |
antalFelterFundet := antalFelterFundet + 1; |
4274 |
if (pakketyper.values[pakketype] <> '') then |
if ( pakketyper.ContainsKey(pakketype) ) then |
4275 |
pakketyper.values[pakketype] := IntToStr(StrToInt(pakketyper.values[pakketype]) + 1) |
begin |
4276 |
|
pakketyper.TryGetValue(pakketype, tmpAntal); |
4277 |
|
pakketyper.AddOrSetValue(pakketype, tmpAntal + 1); |
4278 |
|
end |
4279 |
else |
else |
4280 |
pakketyper.values[pakketype] := '1'; |
pakketyper.Add(pakketype, 1); |
4281 |
end; |
end |
4282 |
if Node.NodeName = 'TjekkodeStatus' then begin |
else if Node.NodeName = 'TjekkodeStatus' then begin |
4283 |
if not VarIsNull(Node.NodeValue) then |
if not VarIsNull(Node.NodeValue) then |
4284 |
tjekkodestatus := Node.NodeValue; |
tjekkodestatus := Node.NodeValue; |
4285 |
antalFelterFundet := antalFelterFundet + 1; |
antalFelterFundet := antalFelterFundet + 1; |
4297 |
linienr := linienr + 1; |
linienr := linienr + 1; |
4298 |
end; |
end; |
4299 |
end; |
end; |
4300 |
|
|
4301 |
|
|
4302 |
if antalFelterFundet = antalLiniefelter then |
if antalFelterFundet = antalLiniefelter then |
4303 |
begin |
begin |
4304 |
if (ScanningType = '1') then |
if (ScanningType = '1') then |
4314 |
end; |
end; |
4315 |
end; |
end; |
4316 |
end; |
end; |
|
for pakketypeix := 0 to pakketyper.Count-1 do |
|
|
begin |
|
|
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + ' '+pakketyper[pakketypeix]+' pakke(r) ikke modtaget'); |
|
|
end; |
|
4317 |
|
|
4318 |
// Free up the list object |
|
4319 |
|
Application.Processmessages; //Ugly Hack to improve User Experience when switching modes |
4320 |
|
|
4321 |
|
|
4322 |
|
for pakketype in pakketyper.Keys do |
4323 |
|
begin |
4324 |
|
pakketyper.TryGetValue(pakketype, tmpAntal); |
4325 |
|
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + pakketype + ' ' + IntToStr(tmpAntal) + ' pakke(r) ikke modtaget'); |
4326 |
|
end; |
4327 |
|
|
4328 |
|
// Free up the dictionary object |
4329 |
pakketyper.Free; |
pakketyper.Free; |
4330 |
|
|
4331 |
|
|
4332 |
|
|
4333 |
// 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.'); |
4334 |
logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget'; |
logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget'; |
4335 |
if (antlinSenere > 0) then |
if (antlinSenere > 0) then |