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 |
367 |
begin StedNavn := 'Ålborg: '; end |
begin StedNavn := 'Ålborg: '; end |
368 |
else if (Sted = '2') then |
else if (Sted = '2') 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; |
772 |
PanelValg5.Font.Color := clInactiveCaption; |
PanelValg5.Font.Color := clInactiveCaption; |
773 |
PanelValg6.Enabled := false; |
PanelValg6.Enabled := false; |
774 |
PanelValg6.Font.Color := clInactiveCaption; |
PanelValg6.Font.Color := clInactiveCaption; |
775 |
PanelValg7.Enabled := false; |
|
|
PanelValg7.Font.Color := clInactiveCaption; |
|
776 |
|
|
777 |
// her skal vi også disable de menupunkter DBK ikke kan bruge |
// her skal vi også disable de menupunkter DBK ikke kan bruge |
778 |
ReturpakkerfraDAO1.Enabled := false; |
ReturpakkerfraDAO1.Enabled := false; |
1129 |
or (NumberString = 'Retur fra kunde') |
or (NumberString = 'Retur fra kunde') |
1130 |
or (NumberString = 'DAO DIREKTE') |
or (NumberString = 'DAO DIREKTE') |
1131 |
or (NumberString = 'DAO PAKKESHOP') |
or (NumberString = 'DAO PAKKESHOP') |
1132 |
|
or (NumberString = 'DAO PAKKESHOP') |
1133 |
|
or (LowerCase(NumberString) = 'for stor hjemmelevering' ) |
1134 |
|
or (LowerCase(NumberString) = 'for stor daodirekte' ) |
1135 |
or (NumberString = 'Retur fra pakkeshop') then |
or (NumberString = 'Retur fra pakkeshop') then |
1136 |
|
|
1137 |
begin |
begin |
1142 |
begin |
begin |
1143 |
ShowMessage('Indsæt et gyldigt pakkenummer - uden linieskift'); |
ShowMessage('Indsæt et gyldigt pakkenummer - uden linieskift'); |
1144 |
end; |
end; |
1145 |
end; |
end; // Slut ctrl-v |
1146 |
|
|
1147 |
if Key = #13 then // Enter |
if Key = #13 then // Enter |
1148 |
begin |
begin |
1196 |
exit; |
exit; |
1197 |
end; |
end; |
1198 |
|
|
1199 |
|
if (LowerCase(StregKode) = 'for stor hjemmelevering') OR (LowerCase(StregKode) = 'for stor daodirekte') then |
1200 |
|
begin |
1201 |
|
if chkForstorTilDirekte.Enabled then |
1202 |
|
begin |
1203 |
|
chkForstorTilDirekte.Checked := true; |
1204 |
|
end |
1205 |
|
else |
1206 |
|
begin |
1207 |
|
VisAlarmSkaerm( Stregkode + ' kan ikke vælges på denne scannings tilstand' ); |
1208 |
|
end; |
1209 |
|
Stregkode := ''; |
1210 |
|
StregkodeST.Caption := StregKode; |
1211 |
|
exit; |
1212 |
|
end; |
1213 |
|
|
1214 |
|
|
1215 |
if StregKode = 'Indtast kundenummer' then |
if StregKode = 'Indtast kundenummer' then |
1216 |
begin |
begin |
1217 |
if chkSporgEfterKunde.Enabled = true then |
if chkSporgEfterKunde.Enabled = true then |
1692 |
|
|
1693 |
Key := #0; |
Key := #0; |
1694 |
|
|
1695 |
|
|
1696 |
|
|
1697 |
|
|
1698 |
|
|
1699 |
|
|
1700 |
end; //End of OnKeyPress |
end; //End of OnKeyPress |
1701 |
|
|
1702 |
|
|
1703 |
|
|
1704 |
procedure TMainForm.SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String); |
procedure TMainForm.SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String); |
1705 |
const |
const |
1706 |
crlf = Chr(13) + Chr(10) ; // Carriage return & Linefeed |
crlf = Chr(13) + Chr(10) ; // Carriage return & Linefeed |
2030 |
begin |
begin |
2031 |
exit; |
exit; |
2032 |
end; |
end; |
2033 |
|
|
2034 |
|
if chkForstorTilDirekte.Checked then // Denne skal være efter if/else kæden da den overrider de øvrige URL'er |
2035 |
|
begin |
2036 |
|
URLStr := Format(URLOmdirigerTilPakkeshop,[Sted, PakkeNr]); |
2037 |
|
end; |
2038 |
|
|
2039 |
try |
try |
2040 |
//raise EIdConnClosedGracefully.Create('test'); // KUN TIL TEST |
//raise EIdConnClosedGracefully.Create('test'); // KUN TIL TEST |
2041 |
WebSvar := IdHTTP1.Get(URLStr); |
WebSvar := IdHTTP1.Get(URLStr); |
2057 |
end; |
end; |
2058 |
end; |
end; |
2059 |
end; |
end; |
2060 |
|
|
2061 |
XMLDocument1.LoadFromXML(WebSvar); |
XMLDocument1.LoadFromXML(WebSvar); |
2062 |
try |
try |
2063 |
if Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked then |
if Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked then |
2081 |
end; |
end; |
2082 |
end; |
end; |
2083 |
end |
end |
2084 |
else if menuIndlevering.Checked then |
else if menuIndlevering.Checked or chkForstorTilDirekte.Checked then |
2085 |
begin |
begin |
2086 |
|
|
2087 |
|
|
2096 |
Stregkode := PakkeshopLabel.Stregkode; |
Stregkode := PakkeshopLabel.Stregkode; |
2097 |
|
|
2098 |
LabelPrint.PrintPakkeshopLabel( PakkeshopLabel ); |
LabelPrint.PrintPakkeshopLabel( PakkeshopLabel ); |
2099 |
|
chkForstorTilDirekte.Checked := false; |
2100 |
|
|
2101 |
end; |
end; |
2102 |
|
|
4247 |
logTekst := logTekst + '.'; |
logTekst := logTekst + '.'; |
4248 |
|
|
4249 |
SkrivScanningLogFil(logTekst); |
SkrivScanningLogFil(logTekst); |
4250 |
|
|
4251 |
|
|
4252 |
for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin |
for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin |
4253 |
Node:= XMLDocument1.DocumentElement.ChildNodes[I]; |
Node:= XMLDocument1.DocumentElement.ChildNodes[I]; |
4254 |
if Node.NodeType = ntElement then begin |
if Node.NodeType = ntElement then begin |
4256 |
if not VarIsNull(Node.NodeValue) then |
if not VarIsNull(Node.NodeValue) then |
4257 |
stregkode := Node.NodeValue; |
stregkode := Node.NodeValue; |
4258 |
antalFelterFundet := antalFelterFundet + 1; |
antalFelterFundet := antalFelterFundet + 1; |
4259 |
end; |
end |
4260 |
if Node.NodeName = 'ModtagerNavn' then begin |
else if Node.NodeName = 'ModtagerNavn' then begin |
4261 |
if not VarIsNull(Node.NodeValue) then |
if not VarIsNull(Node.NodeValue) then |
4262 |
modtagernavn := Node.NodeValue; |
modtagernavn := Node.NodeValue; |
4263 |
antalFelterFundet := antalFelterFundet + 1; |
antalFelterFundet := antalFelterFundet + 1; |
4264 |
end; |
end |
4265 |
if Node.NodeName = 'ModtagerAdresse' then begin |
else if Node.NodeName = 'ModtagerAdresse' then begin |
4266 |
if not VarIsNull(Node.NodeValue) then |
if not VarIsNull(Node.NodeValue) then |
4267 |
modtageradresse := Node.NodeValue; |
modtageradresse := Node.NodeValue; |
4268 |
antalFelterFundet := antalFelterFundet + 1; |
antalFelterFundet := antalFelterFundet + 1; |
4269 |
end; |
end |
4270 |
if Node.NodeName = 'Kommentar' then begin |
else if Node.NodeName = 'Kommentar' then begin |
4271 |
if not VarIsNull(Node.NodeValue) then |
if not VarIsNull(Node.NodeValue) then |
4272 |
kommentar := Node.NodeValue; |
kommentar := Node.NodeValue; |
4273 |
antalFelterFundet := antalFelterFundet + 1; |
antalFelterFundet := antalFelterFundet + 1; |
4274 |
end; |
end |
4275 |
if Node.NodeName = 'PakkeType' then begin |
else if Node.NodeName = 'PakkeType' then begin |
4276 |
if not VarIsNull(Node.NodeValue) then |
if not VarIsNull(Node.NodeValue) then |
4277 |
pakketype := Node.NodeValue; |
pakketype := Node.NodeValue; |
4278 |
antalFelterFundet := antalFelterFundet + 1; |
antalFelterFundet := antalFelterFundet + 1; |
4283 |
end |
end |
4284 |
else |
else |
4285 |
pakketyper.Add(pakketype, 1); |
pakketyper.Add(pakketype, 1); |
4286 |
end; |
end |
4287 |
if Node.NodeName = 'TjekkodeStatus' then begin |
else if Node.NodeName = 'TjekkodeStatus' then begin |
4288 |
if not VarIsNull(Node.NodeValue) then |
if not VarIsNull(Node.NodeValue) then |
4289 |
tjekkodestatus := Node.NodeValue; |
tjekkodestatus := Node.NodeValue; |
4290 |
antalFelterFundet := antalFelterFundet + 1; |
antalFelterFundet := antalFelterFundet + 1; |
4302 |
linienr := linienr + 1; |
linienr := linienr + 1; |
4303 |
end; |
end; |
4304 |
end; |
end; |
4305 |
|
|
4306 |
|
|
4307 |
if antalFelterFundet = antalLiniefelter then |
if antalFelterFundet = antalLiniefelter then |
4308 |
begin |
begin |
4309 |
if (ScanningType = '1') then |
if (ScanningType = '1') then |
4320 |
end; |
end; |
4321 |
end; |
end; |
4322 |
|
|
4323 |
|
|
4324 |
Application.Processmessages; //Ugly Hack to improve User Experience when switching modes |
Application.Processmessages; //Ugly Hack to improve User Experience when switching modes |
4325 |
|
|
4326 |
|
|