193 |
SkrivLog : String; |
SkrivLog : String; |
194 |
Sted : String; |
Sted : String; |
195 |
StedNavn : String; |
StedNavn : String; |
196 |
Url, UrlNormal, UrlReturDAO, UrlReturBoghandler, UrlBudlevering, UrlManglendeScanninger, UrlPakkeshoplevering, UrlReturPakkeshop, UrlPakkeshopManglendeScanninger, UrlPakkeshopManglendeReturScanninger,UrlIndleveringsPakke,UrlEKLoverforsel : String; |
Url, UrlNormal, UrlReturDAO, UrlReturBoghandler, UrlBudlevering, UrlManglendeScanninger, UrlPakkeshoplevering, UrlReturPakkeshop, UrlPakkeshopManglendeScanninger, UrlPakkeshopManglendeReturScanninger,UrlIndleveringsPakke,UrlIndleveringsPakkeManglendeScanninger,UrlEKLoverforsel : String; |
197 |
// 29150330: start |
// 29150330: start |
198 |
UrlEKLoverforselPakkeshop : String; |
UrlEKLoverforselPakkeshop : String; |
199 |
// 20150330: slut |
// 20150330: slut |
562 |
UrlPakkeshopManglendeScanninger := ReadString('Settings','UrlPakkeshopManglendeScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendescanninger.php?sted=%s'); |
UrlPakkeshopManglendeScanninger := ReadString('Settings','UrlPakkeshopManglendeScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendescanninger.php?sted=%s'); |
563 |
UrlPakkeshopManglendeReturScanninger := ReadString('Settings','UrlPakkeshopManglendeReturScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendereturscanninger.php?sted=%s'); |
UrlPakkeshopManglendeReturScanninger := ReadString('Settings','UrlPakkeshopManglendeReturScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendereturscanninger.php?sted=%s'); |
564 |
|
|
565 |
|
|
566 |
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'); |
567 |
|
UrlIndleveringsPakkeManglendeScanninger := ReadString('Settings', 'UrlIndleveringsPakkeManglendeScanninger','http://omdeling.info/webservices/pakkeshop/IndleveringsPakkeManglendeScanninger.php?sted=%s'); |
568 |
|
|
569 |
|
|
570 |
|
|
571 |
LabelType := ReadInteger('Settings','LabelType',1); |
LabelType := ReadInteger('Settings','LabelType',1); |
2909 |
end; |
end; |
2910 |
end; |
end; |
2911 |
|
|
2912 |
|
// Tjekker UrlIndleveringsPakke og UrlIndleveringsPakkeManglendeScanninger |
2913 |
|
if PanelValg7.Enabled = true then |
2914 |
|
begin |
2915 |
|
if CheckUrl(UrlIndleveringsPakke) then |
2916 |
|
begin |
2917 |
|
logTekst := 'UrlIndleveringsPakke accepteret: ' + UrlIndleveringsPakke; |
2918 |
|
SkrivScanningLogFil(logTekst); |
2919 |
|
end |
2920 |
|
else |
2921 |
|
begin |
2922 |
|
inc(urlFejl); // Optæller antal fejl |
2923 |
|
logTekst := 'UrlIndleveringsPakke svarer ikke: ' + UrlIndleveringsPakke; |
2924 |
|
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst); |
2925 |
|
if TjekUrls = '1' then |
2926 |
|
begin |
2927 |
|
logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... '; |
2928 |
|
end; |
2929 |
|
SkrivScanningLogFil(logTekst); |
2930 |
|
if TjekUrls = '1' then |
2931 |
|
begin |
2932 |
|
ShowMessage(logTekst); |
2933 |
|
UrlSendPrograminfo := ''; // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut |
2934 |
|
Application.Terminate; |
2935 |
|
exit; |
2936 |
|
end; |
2937 |
|
end; |
2938 |
|
|
2939 |
|
if CheckUrl(UrlIndleveringsPakkeManglendeScanninger) then |
2940 |
|
begin |
2941 |
|
logTekst := 'UrlIndleveringsPakkeManglendeScanninger accepteret: ' + UrlIndleveringsPakkeManglendeScanninger; |
2942 |
|
SkrivScanningLogFil(logTekst); |
2943 |
|
end |
2944 |
|
else |
2945 |
|
begin |
2946 |
|
inc(urlFejl); // Optæller antal fejl |
2947 |
|
logTekst := 'UrlIndleveringsPakkeManglendeScanninger svarer ikke: ' + UrlIndleveringsPakkeManglendeScanninger; |
2948 |
|
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst); |
2949 |
|
if TjekUrls = '1' then |
2950 |
|
begin |
2951 |
|
logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... '; |
2952 |
|
end; |
2953 |
|
SkrivScanningLogFil(logTekst); |
2954 |
|
if TjekUrls = '1' then |
2955 |
|
begin |
2956 |
|
ShowMessage(logTekst); |
2957 |
|
UrlSendPrograminfo := ''; // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut |
2958 |
|
Application.Terminate; |
2959 |
|
exit; |
2960 |
|
end; |
2961 |
|
end; |
2962 |
|
end; |
2963 |
|
|
2964 |
// Tjekker UrlEKLoverforsel |
// Tjekker UrlEKLoverforsel |
2965 |
if PanelValg1.Enabled = true then |
if PanelValg1.Enabled = true then |
2966 |
begin |
begin |
4723 |
end; |
end; |
4724 |
|
|
4725 |
|
|
4726 |
if (Scanningtype = '6') then |
|
4727 |
|
if (Scanningtype = '7') then |
4728 |
|
begin |
4729 |
|
URLStr := Format(UrlIndleveringsPakkeManglendeScanninger, [StedKode]); |
4730 |
|
end |
4731 |
|
else if (Scanningtype = '6') then |
4732 |
begin |
begin |
4733 |
URLStr := Format(UrlPakkeshopManglendeReturScanninger,[StedKode]); |
URLStr := Format(UrlPakkeshopManglendeReturScanninger, [StedKode]); |
4734 |
end |
end |
4735 |
else if (Scanningtype = '5') then |
else if (Scanningtype = '5') then |
4736 |
begin |
begin |
4737 |
URLStr := Format(UrlPakkeshopManglendeScanninger,[StedKode]); |
URLStr := Format(UrlPakkeshopManglendeScanninger, [StedKode]); |
4738 |
end |
end |
4739 |
else if (Scanningtype = '1') then |
else if (Scanningtype = '1') then |
4740 |
begin |
begin |