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 |
|
|
728 |
PanelValg2.Font.Color := clInactiveCaption; |
PanelValg2.Font.Color := clInactiveCaption; |
729 |
PanelValg3.Enabled := false; |
PanelValg3.Enabled := false; |
730 |
PanelValg3.Font.Color := clInactiveCaption; |
PanelValg3.Font.Color := clInactiveCaption; |
731 |
PanelValg6.Enabled := false; |
//PanelValg6.Enabled := false; |
732 |
PanelValg6.Font.Color := clInactiveCaption; |
//PanelValg6.Font.Color := clInactiveCaption; |
733 |
|
|
734 |
// her skal vi også disable de menupunkter BK ikke kan bruge |
// her skal vi også disable de menupunkter BK ikke kan bruge |
735 |
ReturpakkerfraDAO1.Enabled := false; |
ReturpakkerfraDAO1.Enabled := false; |
736 |
Returpakkerfraboghandler1.Enabled := false; |
Returpakkerfraboghandler1.Enabled := false; |
737 |
Returpakkerfrapakkeshop1.Enabled := false; |
|
738 |
|
//Returpakkerfrapakkeshop1.Enabled := false; |
739 |
|
|
740 |
if SpecialVersionScanningtype = 'A' then |
if SpecialVersionScanningtype = 'A' then |
741 |
begin |
begin |
742 |
Scanningtype := '1'; |
Scanningtype := '1'; |
1379 |
Pakkescanningtype := Scanningtype; |
Pakkescanningtype := Scanningtype; |
1380 |
end; |
end; |
1381 |
|
|
1382 |
if ( (Pakkescanningtype = '1') and (PanelValg1.Enabled = false) |
if ( ( (Pakkescanningtype = '1') and (PanelValg1.Enabled = false) ) |
1383 |
or (Pakkescanningtype = '2') and (PanelValg2.Enabled = false) |
or ( (Pakkescanningtype = '2') and (PanelValg2.Enabled = false) ) |
1384 |
or (Pakkescanningtype = '3') and (PanelValg3.Enabled = false) |
or ( (Pakkescanningtype = '3') and (PanelValg3.Enabled = false) ) |
1385 |
or (Pakkescanningtype = '4') and (PanelValg4.Enabled = false) |
or ( (Pakkescanningtype = '4') and (PanelValg4.Enabled = false) ) |
1386 |
or (Pakkescanningtype = '5') and (PanelValg5.Enabled = false) |
or ( (Pakkescanningtype = '5') and (PanelValg5.Enabled = false) ) |
1387 |
or (Pakkescanningtype = '6') and (PanelValg6.Enabled = false) ) then |
or ( (Pakkescanningtype = '6') and (PanelValg6.Enabled = false) ) ) then |
1388 |
begin // Her skal komme en alarm og rød skærm |
begin // Her skal komme en alarm og rød skærm |
1389 |
VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); |
VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); |
1390 |
|
|
1391 |
exit; |
exit; |
1392 |
end; |
end; |
1393 |
|
|
1394 |
if Automatiskvalg1.Checked and (Length(Stregkode) > 8) then |
if (Automatiskvalg1.Checked and (Length(Stregkode) > 8) ) then |
1395 |
begin |
begin |
1396 |
GemStregkode := Stregkode; |
GemStregkode := Stregkode; |
1397 |
if Pakketype = 'NatXpress' then |
if Pakketype = 'NatXpress' then |
1425 |
else |
else |
1426 |
begin |
begin |
1427 |
// Her skal komme en alarm og rød skærm |
// Her skal komme en alarm og rød skærm |
1428 |
VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); |
//VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' ); |
1429 |
|
VisAlarmSkaerm( Stregkode + ' kan ikke bruges med automatisk valg' ); |
1430 |
|
|
1431 |
exit; |
exit; |
1432 |
end; |
end; |
3088 |
BtnEKLoverforsel.Enabled := true; |
BtnEKLoverforsel.Enabled := true; |
3089 |
InitLillePakke(); |
InitLillePakke(); |
3090 |
ListBox1.Items.Clear; |
ListBox1.Items.Clear; |
3091 |
|
|
3092 |
|
chkForstorTilDirekte.Checked := false; |
3093 |
|
chkForstorTilDirekte.Enabled := false; |
3094 |
|
|
3095 |
if BladhusSted = 0 then |
if BladhusSted = 0 then |
3096 |
begin |
begin |
3097 |
IndlesScanningLogFil(); |
IndlesScanningLogFil(); |
3123 |
ListBox1.Items.Clear; |
ListBox1.Items.Clear; |
3124 |
ListBox2.Items.Clear; |
ListBox2.Items.Clear; |
3125 |
BtnEKLoverforsel.Enabled := false; |
BtnEKLoverforsel.Enabled := false; |
3126 |
|
|
3127 |
|
chkForstorTilDirekte.Checked := false; |
3128 |
|
chkForstorTilDirekte.Enabled := false; |
3129 |
|
|
3130 |
InitLillePakke(); |
InitLillePakke(); |
3131 |
end; |
end; |
3132 |
|
|
3153 |
ListBox1.Items.Clear; |
ListBox1.Items.Clear; |
3154 |
ListBox2.Items.Clear; |
ListBox2.Items.Clear; |
3155 |
BtnEKLoverforsel.Enabled := false; |
BtnEKLoverforsel.Enabled := false; |
3156 |
|
|
3157 |
|
chkForstorTilDirekte.Checked := false; |
3158 |
|
chkForstorTilDirekte.Enabled := false; |
3159 |
|
|
3160 |
InitLillePakke(); |
InitLillePakke(); |
3161 |
end; |
end; |
3162 |
|
|
3188 |
BtnEKLoverforsel.Enabled := false; |
BtnEKLoverforsel.Enabled := false; |
3189 |
IdFTP1.Passive := true; |
IdFTP1.Passive := true; |
3190 |
IdFTP1.PassiveUseControlHost := true; |
IdFTP1.PassiveUseControlHost := true; |
3191 |
|
|
3192 |
|
chkForstorTilDirekte.Checked := false; |
3193 |
|
chkForstorTilDirekte.Enabled := true; |
3194 |
|
|
3195 |
if (BladhusSted = 0) or (BladhusSted = 2) or (BladhusSted = 3) then |
if (BladhusSted = 0) or (BladhusSted = 2) or (BladhusSted = 3) then |
3196 |
begin |
begin |
3197 |
IndlesScanningLogFil(); |
IndlesScanningLogFil(); |
3227 |
|
|
3228 |
BtnEKLoverforsel.Enabled := true; |
BtnEKLoverforsel.Enabled := true; |
3229 |
|
|
3230 |
|
chkForstorTilDirekte.Checked := false; |
3231 |
|
chkForstorTilDirekte.Enabled := true; |
3232 |
|
|
3233 |
InitLillePakke(); |
InitLillePakke(); |
3234 |
IndlesScanningLogFil(); |
IndlesScanningLogFil(); |
3235 |
if BladhusSted = 0 then |
if BladhusSted = 0 then |
3265 |
BtnDownloadKontrolfil.Enabled := false; |
BtnDownloadKontrolfil.Enabled := false; |
3266 |
BtnOpdaterListen.Enabled := true; |
BtnOpdaterListen.Enabled := true; |
3267 |
BtnEKLoverforsel.Enabled := false; |
BtnEKLoverforsel.Enabled := false; |
3268 |
|
|
3269 |
|
chkForstorTilDirekte.Checked := false; |
3270 |
|
chkForstorTilDirekte.Enabled := false; |
3271 |
|
|
3272 |
|
|
3273 |
InitLillePakke(); |
InitLillePakke(); |
3274 |
IndlesScanningLogFil(); |
IndlesScanningLogFil(); |
3275 |
if BladhusSted = 0 then |
if BladhusSted = 0 then |
3317 |
BtnDownloadKontrolfil.Enabled := false; |
BtnDownloadKontrolfil.Enabled := false; |
3318 |
BtnOpdaterListen.Enabled := true; |
BtnOpdaterListen.Enabled := true; |
3319 |
BtnEKLoverforsel.Enabled := false; |
BtnEKLoverforsel.Enabled := false; |
3320 |
|
|
3321 |
|
chkForstorTilDirekte.Checked := false; |
3322 |
|
chkForstorTilDirekte.Enabled := false; |
3323 |
|
|
3324 |
|
|
3325 |
InitLillePakke(); |
InitLillePakke(); |
3326 |
IndlesScanningLogFil(); |
IndlesScanningLogFil(); |
3327 |
if BladhusSted = 0 then |
if BladhusSted = 0 then |
4065 |
stregkode, modtagernavn, modtageradresse, kommentar : string; |
stregkode, modtagernavn, modtageradresse, kommentar : string; |
4066 |
pakketype, tjekkodestatus : String; |
pakketype, tjekkodestatus : String; |
4067 |
pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer; |
pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer; |
4068 |
pakketyper : TStrings; |
//pakketyper : TStrings; |
4069 |
|
pakketyper : TDictionary<String, Integer>; |
4070 |
|
tmpAntal : Integer; |
4071 |
|
|
4072 |
|
|
4073 |
|
|
4074 |
antlin : Integer; |
antlin : Integer; |
4075 |
|
|
4076 |
antlinIdag, antlinSenere : Integer; |
antlinIdag, antlinSenere : Integer; |
4077 |
|
|
4078 |
XmlFelter : TStrings; |
//XmlFelter : TStrings; |
4079 |
|
XmlFelter : TDictionary<String, Integer>; |
4080 |
|
|
4081 |
begin |
begin |
4082 |
XmlFelter := TStringList.Create; |
|
4083 |
pakketyper := TStringList.Create; |
|
4084 |
|
XmlFelter := TDictionary<String, Integer>.Create; |
4085 |
|
pakketyper := TDictionary<String, Integer>.Create; |
4086 |
|
|
4087 |
linienr := 0; |
linienr := 0; |
4088 |
ListBox2.Clear; |
ListBox2.Clear; |
4089 |
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'); |
4098 |
StedKode := Sted; |
StedKode := Sted; |
4099 |
end; |
end; |
4100 |
|
|
4101 |
|
Application.Processmessages; //Ugly Hack to improve User Experience when switching modes |
4102 |
|
|
4103 |
|
|
4104 |
|
|
4105 |
if (Scanningtype = '7') then |
if (Scanningtype = '7') then |
4159 |
if Node.NodeType = ntElement then begin |
if Node.NodeType = ntElement then begin |
4160 |
if Node.NodeName = 'Stregkode' then |
if Node.NodeName = 'Stregkode' then |
4161 |
begin |
begin |
4162 |
antlin := antlin + 1; |
Inc(antlin); |
4163 |
// 20150306: start |
// 20150306: start |
4164 |
if not VarIsNull(Node.NodeValue) then |
if not VarIsNull(Node.NodeValue) then |
4165 |
begin |
begin |
4166 |
if (pos('(', Node.NodeValue) = 0) then |
if (pos('(', Node.NodeValue) = 0) then |
4167 |
begin |
begin |
4168 |
antlinIdag := antlinIdag + 1; |
Inc(antlinIdag); |
4169 |
end |
end |
4170 |
else |
else |
4171 |
begin |
begin |
4172 |
antlinSenere := antlinSenere + 1; |
Inc(antlinSenere); |
4173 |
end; |
end; |
4174 |
end; |
end; |
4175 |
// 20150306: slut |
// 20150306: slut |
4176 |
end; |
end; |
4177 |
end; |
end; |
4178 |
if (XmlFelter.values[Node.NodeName] <> '') then |
if ( XmlFelter.ContainsKey(Node.NodeName) ) then |
4179 |
XmlFelter.values[Node.NodeName] := IntToStr(StrToInt(XmlFelter.values[Node.NodeName]) + 1) |
begin |
4180 |
|
XmlFelter.TryGetValue(Node.NodeName, tmpAntal); |
4181 |
|
XmlFelter.AddOrSetValue(Node.NodeName, tmpAntal + 1); |
4182 |
|
end |
4183 |
else |
else |
4184 |
XmlFelter.values[Node.NodeName] := '1'; |
begin |
4185 |
|
XmlFelter.Add(Node.NodeName, 1); |
4186 |
|
end; |
4187 |
|
|
4188 |
end; |
end; |
4189 |
antalLiniefelter := XmlFelter.Count; |
antalLiniefelter := XmlFelter.Count; |
4191 |
SetLength(stregkoderMedTjekkodeArray, 0); // reset fra tidligere brug |
SetLength(stregkoderMedTjekkodeArray, 0); // reset fra tidligere brug |
4192 |
SetLength(stregkoderMedTjekkodeArray, antlin); // sæt antal elementer i array |
SetLength(stregkoderMedTjekkodeArray, antlin); // sæt antal elementer i array |
4193 |
|
|
4194 |
|
|
4195 |
|
Application.Processmessages; //Ugly Hack to improve User Experience when switching modes |
4196 |
|
|
4197 |
logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget'; |
logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget'; |
4198 |
if (antlinSenere > 0) then |
if (antlinSenere > 0) then |
4199 |
begin |
begin |
4229 |
if not VarIsNull(Node.NodeValue) then |
if not VarIsNull(Node.NodeValue) then |
4230 |
pakketype := Node.NodeValue; |
pakketype := Node.NodeValue; |
4231 |
antalFelterFundet := antalFelterFundet + 1; |
antalFelterFundet := antalFelterFundet + 1; |
4232 |
if (pakketyper.values[pakketype] <> '') then |
if ( pakketyper.ContainsKey(pakketype) ) then |
4233 |
pakketyper.values[pakketype] := IntToStr(StrToInt(pakketyper.values[pakketype]) + 1) |
begin |
4234 |
|
pakketyper.TryGetValue(pakketype, tmpAntal); |
4235 |
|
pakketyper.AddOrSetValue(pakketype, tmpAntal + 1); |
4236 |
|
end |
4237 |
else |
else |
4238 |
pakketyper.values[pakketype] := '1'; |
pakketyper.Add(pakketype, 1); |
4239 |
end; |
end; |
4240 |
if Node.NodeName = 'TjekkodeStatus' then begin |
if Node.NodeName = 'TjekkodeStatus' then begin |
4241 |
if not VarIsNull(Node.NodeValue) then |
if not VarIsNull(Node.NodeValue) then |
4270 |
end; |
end; |
4271 |
end; |
end; |
4272 |
end; |
end; |
|
for pakketypeix := 0 to pakketyper.Count-1 do |
|
|
begin |
|
|
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + ' '+pakketyper[pakketypeix]+' pakke(r) ikke modtaget'); |
|
|
end; |
|
4273 |
|
|
4274 |
// Free up the list object |
Application.Processmessages; //Ugly Hack to improve User Experience when switching modes |
4275 |
|
|
4276 |
|
|
4277 |
|
for pakketype in pakketyper.Keys do |
4278 |
|
begin |
4279 |
|
pakketyper.TryGetValue(pakketype, tmpAntal); |
4280 |
|
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + pakketype + ' ' + IntToStr(tmpAntal) + ' pakke(r) ikke modtaget'); |
4281 |
|
end; |
4282 |
|
|
4283 |
|
// Free up the dictionary object |
4284 |
pakketyper.Free; |
pakketyper.Free; |
4285 |
|
|
4286 |
|
|
4287 |
|
|
4288 |
// 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.'); |
4289 |
logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget'; |
logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget'; |
4290 |
if (antlinSenere > 0) then |
if (antlinSenere > 0) then |