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 |
|
|
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 |
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 |
|
|
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; |
4278 |
end |
end |
4279 |
else |
else |
4280 |
pakketyper.Add(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 |
4315 |
end; |
end; |
4316 |
end; |
end; |
4317 |
|
|
4318 |
|
|
4319 |
Application.Processmessages; //Ugly Hack to improve User Experience when switching modes |
Application.Processmessages; //Ugly Hack to improve User Experience when switching modes |
4320 |
|
|
4321 |
|
|