/[projects]/dao/DelphiScanner/Main.pas
ViewVC logotype

Diff of /dao/DelphiScanner/Main.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3086 by torben, Thu Jul 28 21:25:58 2016 UTC revision 3087 by torben, Mon Aug 15 14:14:14 2016 UTC
# Line 211  type Line 211  type
211      SkrivLog : String;      SkrivLog : String;
212      Sted : String;      Sted : String;
213      StedNavn : String;      StedNavn : String;
     Url, UrlNormal, UrlReturDAO, UrlReturBoghandler, UrlBudlevering, UrlManglendeScanninger, UrlPakkeshoplevering,  
             UrlReturPakkeshop, UrlPakkeshopManglendeScanninger, UrlPakkeshopManglendeReturScanninger,UrlIndleveringsPakke,  
             UrlIndleveringsPakkeManglendeScanninger,UrlEKLoverforsel, URLOmdirigerTilPakkeshop : String;  
214    
     UrlEKLoverforselPakkeshop : String;  
   
     UrlFindPakketype, UrlSendPrograminfo: String;  
215      Scanningtype, TestFunktionen, Pakketype, SporgEfterBoghandler : String;      Scanningtype, TestFunktionen, Pakketype, SporgEfterBoghandler : String;
216      ScanTjekkode : String;      ScanTjekkode : String;
217      ScanTjekkodeAutomatik : string;      ScanTjekkodeAutomatik : string;
218    
219        Url : String;
220    
221      Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop,      Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop,
222            FarveIndlevering : String;            FarveIndlevering : String;
223    
# Line 265  type Line 261  type
261      procedure SkrivScanningLogFil(var tekst : string);      procedure SkrivScanningLogFil(var tekst : string);
262      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;
263      procedure VisAlarmSkaerm(strMessage: string);      procedure VisAlarmSkaerm(strMessage: string);
264      function InjectURL(Url : String) : String;  
265    
266    public    public
267      { Public declarations }      { Public declarations }
# Line 515  begin Line 511  begin
511       PanelValgA.Font.Color := clWhite;       PanelValgA.Font.Color := clWhite;
512  end;  end;
513    
 function TMainForm.InjectURL(Url : String) : String;  
 begin  
   
   Url := Url + '&ver=' + TUtils.URLEncode( TUtils.Sto_GetFmtFileVersion(''));  
   Url := Url + '&host=' + TUtils.URLEncode( TUtils.GetComputerNameHelper());  
   Url := Url + '&user=' + TUtils.URLEncode( TUtils.GetCurrentUserName());  
514    
   Result := Url;  
 end;  
515    
516  //InitForm kaldes før FormCreate  //InitForm kaldes før FormCreate
517  procedure TMainForm.FormCreate(Sender: TObject);  procedure TMainForm.FormCreate(Sender: TObject);
# Line 575  begin Line 563  begin
563      Sted := ReadString('Settings','Sted','');      Sted := ReadString('Settings','Sted','');
564      StedNavn := ReadString('Settings','Stednavn','');      StedNavn := ReadString('Settings','Stednavn','');
565    
     UrlFindPakketype := ReadString('Settings','UrlFindPakketype','http://omdeling.info/webservices/bogpakkekontrol/FindPakketype.php?stregkode=%s');  
     UrlFindPakketype := InjectURL(UrlFindPakketype);  
   
     UrlSendPrograminfo := ReadString('Settings','UrlSendPrograminfo','http://omdeling.info/webservices/bogpakkekontrol/SendPrograminfo.php?programnavn=%s&sted=%s&scanningtype=%s&infotype=%s&info=%s');  
     UrlSendPrograminfo := InjectURL(UrlSendPrograminfo);  
   
     UrlNormal := ReadString('Settings','UrlNormal','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&tjekkode=%s');  
     UrlNormal := InjectURL(UrlNormal);  
   
     UrlReturDAO := ReadString('Settings','UrlReturDAO','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&returpakketype=%s&pakkestorrelse=%s');  
     UrlReturDAO := InjectURL(UrlReturDAO);  
   
     UrlReturBoghandler := ReadString('Settings','UrlReturBoghandler','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&returpakketype=%s&pakkestorrelse=%s');  
     UrlReturBoghandler := InjectURL(UrlReturBoghandler);  
   
     UrlBudlevering := ReadString('Settings','UrlBudlevering','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&leveringstype=%s&pakkestorrelse=%s');  
     UrlBudlevering := InjectURL(UrlBudlevering);  
   
     UrlManglendeScanninger := ReadString('Settings','UrlManglendeScanninger','http://omdeling.info/webservices/bogpakkekontrol/bogpakkemanglendescanninger.php?sted=%s&type=%s');  
     UrlManglendeScanninger := InjectURL(UrlManglendeScanninger);  
   
     UrlEKLoverforsel := ReadString('Settings','UrlEKLoverforsel','http://omdeling.info/webservices/bogpakkekontrol/bogpakkertilekl.php?sted=%s');  
     UrlEKLoverforsel := InjectURL(UrlEKLoverforsel);  
   
     UrlEKLoverforselPakkeshop := ReadString('Settings','UrlEKLoverforselPakkeshop','http://omdeling.info/webservices/pakkeshop/pakkertilekl.php?sted=%s');  
     UrlEKLoverforselPakkeshop := InjectURL(UrlEKLoverforselPakkeshop);  
   
     UrlPakkeshoplevering := ReadString('Settings','UrlPakkeshoplevering','http://omdeling.info/webservices/pakkeshop/pakkekontrol.php?sted=%s&stregkode=%s&tjekkode=%s');  
     UrlPakkeshoplevering := InjectURL(UrlPakkeshoplevering);  
   
     UrlReturPakkeshop := ReadString('Settings','UrlReturPakkeshop','http://omdeling.info/webservices/pakkeshop/returpakkekontrol.php?sted=%s&stregkode=%s');  
     UrlReturPakkeshop := InjectURL(UrlReturPakkeshop);  
   
     UrlPakkeshopManglendeScanninger := ReadString('Settings','UrlPakkeshopManglendeScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendescanninger.php?sted=%s');  
     UrlPakkeshopManglendeScanninger := InjectURL(UrlPakkeshopManglendeScanninger);  
   
     UrlPakkeshopManglendeReturScanninger := ReadString('Settings','UrlPakkeshopManglendeReturScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendereturscanninger.php?sted=%s');  
     UrlPakkeshopManglendeReturScanninger := InjectURL(UrlPakkeshopManglendeReturScanninger);  
   
     UrlIndleveringsPakke := ReadString('Settings','UrlIndleveringsPakke','http://omdeling.info/webservices/pakkeshop/PakkekontrolIndleveringskode.php?sted=%s&pakkekode=%s');  
     UrlIndleveringsPakke := InjectURL(UrlIndleveringsPakke);  
   
     UrlIndleveringsPakkeManglendeScanninger := ReadString('Settings', 'UrlIndleveringsPakkeManglendeScanninger','http://omdeling.info/webservices/pakkeshop/IndleveringsPakkeManglendeScanninger.php?sted=%s');  
     UrlIndleveringsPakkeManglendeScanninger := InjectURL(UrlIndleveringsPakkeManglendeScanninger);  
   
     URLOmdirigerTilPakkeshop := ReadString('Settings', 'URLOmdirigerTilPakkeshop','http://omdeling.info/webservices/pakkeshop/PakkeKontrolOmdirigerTilPakkeshop.php?sted=%s&stregkode=%s');  
     URLOmdirigerTilPakkeshop := InjectURL(URLOmdirigerTilPakkeshop);  
566    
567    
568    
# Line 1425  begin Line 1366  begin
1366      if (Length(Stregkode) > 8) then      if (Length(Stregkode) > 8) then
1367      begin      begin
1368        // Her skal vi så forespørge pakketype på serveren udfra stregkode feltet        // Her skal vi så forespørge pakketype på serveren udfra stregkode feltet
1369        URLStr := Format(UrlFindPakketype,[Stregkode]);        URLStr := Format(Config.UrlFindPakketype,[Stregkode]);
1370        try        try
1371          //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST          //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST
1372          WebSvar := IdHTTP1.Get(URLStr);          WebSvar := IdHTTP1.Get(URLStr);
# Line 1776  var Line 1717  var
1717    WebSvar : String;    WebSvar : String;
1718    URLStr : String;    URLStr : String;
1719  begin  begin
1720    if UrlSendPrograminfo <> '' then    if Config.UrlSendPrograminfo <> '' then
1721    begin    begin
1722      URLStr := Format(UrlSendPrograminfo,[ExtractFileName(ParamStr(0)), Sted, Scanningtype, Infotype, Info]);      URLStr := Format(Config.UrlSendPrograminfo,[ExtractFileName(ParamStr(0)), Sted, Scanningtype, Infotype, Info]);
1723      try      try
1724        //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST        //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST
1725        WebSvar := IdHTTP1.Get(URLStr);        WebSvar := IdHTTP1.Get(URLStr);
# Line 1791  begin Line 1732  begin
1732        ShowMessage(logTekst);        ShowMessage(logTekst);
1733        SkrivScanningLogFil(logTekst);        SkrivScanningLogFil(logTekst);
1734        // Vi nulstiller lige url feltet så rutinen ikke kaldes igen i forbindelse med lukning af programmet        // Vi nulstiller lige url feltet så rutinen ikke kaldes igen i forbindelse med lukning af programmet
1735        UrlSendPrograminfo := '';        Config.UrlSendPrograminfo := '';
1736        Application.Terminate;        Application.Terminate;
1737      end;      end;
1738      end;      end;
# Line 2069  begin Line 2010  begin
2010       begin       begin
2011         BoghandlerTjekkode := '-1';         BoghandlerTjekkode := '-1';
2012       end;       end;
2013       URLStr := Format(UrlNormal,[Sted, PakkeNr, BoghandlerNummer, BoghandlerTjekkode]);       URLStr := Format(Config.UrlNormal,[Sted, PakkeNr, BoghandlerNummer, BoghandlerTjekkode]);
2014    end    end
2015    else if menuNatxpressReturDAO1.Checked then    else if menuNatxpressReturDAO1.Checked then
2016    begin    begin
2017       URLStr := Format(UrlReturDAO,[Sted, PakkeNr, BoghandlerNummer, 'DAO', pakkestorrelse]);       URLStr := Format(Config.UrlReturDAO,[Sted, PakkeNr, BoghandlerNummer, 'DAO', pakkestorrelse]);
2018    end    end
2019    else if menuNatxpressReturfraKunde1.Checked then    else if menuNatxpressReturfraKunde1.Checked then
2020    begin    begin
2021       URLStr := Format(UrlReturBoghandler,[Sted, PakkeNr, BoghandlerNummer, 'Boghandler', pakkestorrelse]);       URLStr := Format(Config.UrlReturBoghandler,[Sted, PakkeNr, BoghandlerNummer, 'Boghandler', pakkestorrelse]);
2022    end    end
2023    else if menuDaoDirekte1.Checked then    else if menuDaoDirekte1.Checked then
2024    begin    begin
2025       URLStr := Format(UrlBudlevering,[Sted, PakkeNr, 'bud', pakkestorrelse]);       URLStr := Format(Config.UrlBudlevering,[Sted, PakkeNr, 'bud', pakkestorrelse]);
2026    end    end
2027    else if menuPakkeshop1.Checked then    else if menuPakkeshop1.Checked then
2028    begin    begin
2029       URLStr := Format(UrlPakkeshoplevering,[Sted, PakkeNr, PakkeshopTjekkode]);       URLStr := Format(Config.UrlPakkeshoplevering,[Sted, PakkeNr, PakkeshopTjekkode]);
2030    end    end
2031    else if menuPakkeshopRetur1.Checked then    else if menuPakkeshopRetur1.Checked then
2032    begin    begin
2033       URLStr := Format(UrlReturPakkeshop,[Sted, PakkeNr]);       URLStr := Format(Config.UrlReturPakkeshop,[Sted, PakkeNr]);
2034    end    end
2035    else if menuIndlevering.Checked then    else if menuIndlevering.Checked then
2036    begin    begin
2037      URLStr := Format(UrlIndleveringsPakke,[Sted, PakkeNr]);      URLStr := Format(Config.UrlIndleveringsPakke,[Sted, PakkeNr]);
2038    end    end
2039    else    else
2040    begin    begin
# Line 2102  begin Line 2043  begin
2043    
2044    if chkForstorTilDirekte.Checked then  // Denne skal være efter if/else kæden da den overrider de øvrige URL'er    if chkForstorTilDirekte.Checked then  // Denne skal være efter if/else kæden da den overrider de øvrige URL'er
2045    begin    begin
2046      URLStr := Format(URLOmdirigerTilPakkeshop,[Sted, PakkeNr]);      URLStr := Format(Config.URLOmdirigerTilPakkeshop,[Sted, PakkeNr]);
2047    end;    end;
2048    
2049    try    try
# Line 2615  begin Line 2556  begin
2556      // Tjekker UrlNormal      // Tjekker UrlNormal
2557      if PanelValg1.Enabled = true then      if PanelValg1.Enabled = true then
2558      begin      begin
2559        TjekkerEnkeltUrl('UrlNormal', UrlNormal, urlFejl);        TjekkerEnkeltUrl('UrlNormal', Config.UrlNormal, urlFejl);
2560      end;      end;
2561    
2562      // Tjekker UrlReturDAO      // Tjekker UrlReturDAO
2563      if PanelValg2.Enabled = true then      if PanelValg2.Enabled = true then
2564      begin      begin
2565        TjekkerEnkeltUrl('UrlReturDAO', UrlReturDAO, urlFejl);        TjekkerEnkeltUrl('UrlReturDAO', Config.UrlReturDAO, urlFejl);
2566      end;      end;
2567    
2568      // Tjekker UrlReturBoghandler      // Tjekker UrlReturBoghandler
2569      if PanelValg3.Enabled = true then      if PanelValg3.Enabled = true then
2570      begin      begin
2571        TjekkerEnkeltUrl('UrlReturBoghandler', UrlReturBoghandler, urlFejl);        TjekkerEnkeltUrl('UrlReturBoghandler', Config.UrlReturBoghandler, urlFejl);
2572      end;      end;
2573    
2574      // Tjekker UrlBudlevering      // Tjekker UrlBudlevering
2575      if PanelValg4.Enabled = true then      if PanelValg4.Enabled = true then
2576      begin      begin
2577        TjekkerEnkeltUrl('UrlBudlevering', UrlBudlevering, urlFejl);        TjekkerEnkeltUrl('UrlBudlevering', Config.UrlBudlevering, urlFejl);
2578      end;      end;
2579    
2580      // Tjekker UrlPakkeshoplevering      // Tjekker UrlPakkeshoplevering
2581      if PanelValg5.Enabled = true then      if PanelValg5.Enabled = true then
2582      begin      begin
2583        TjekkerEnkeltUrl('UrlPakkeshoplevering', UrlPakkeshoplevering, urlFejl);        TjekkerEnkeltUrl('UrlPakkeshoplevering', Config.UrlPakkeshoplevering, urlFejl);
2584      end;      end;
2585    
2586      // Tjekker UrlReturPakkeshop      // Tjekker UrlReturPakkeshop
2587      if PanelValg6.Enabled = true then      if PanelValg6.Enabled = true then
2588      begin      begin
2589        TjekkerEnkeltUrl('UrlReturPakkeshop', UrlReturPakkeshop, urlFejl);        TjekkerEnkeltUrl('UrlReturPakkeshop', Config.UrlReturPakkeshop, urlFejl);
2590      end;      end;
2591    
2592      // Tjekker UrlManglendeScanninger      // Tjekker UrlManglendeScanninger
2593      if (PanelValg1.Enabled = true) or (PanelValg4.Enabled = true) then      if (PanelValg1.Enabled = true) or (PanelValg4.Enabled = true) then
2594      begin      begin
2595        TjekkerEnkeltUrl('UrlManglendeScanninger', UrlManglendeScanninger, urlFejl);        TjekkerEnkeltUrl('UrlManglendeScanninger', Config.UrlManglendeScanninger, urlFejl);
2596      end;      end;
2597    
2598      // Tjekker UrlPakkeshopManglendeScanninger      // Tjekker UrlPakkeshopManglendeScanninger
2599      if PanelValg5.Enabled = true then      if PanelValg5.Enabled = true then
2600      begin      begin
2601        TjekkerEnkeltUrl('UrlPakkeshopManglendeScanninger', UrlPakkeshopManglendeScanninger, urlFejl);        TjekkerEnkeltUrl('UrlPakkeshopManglendeScanninger', Config.UrlPakkeshopManglendeScanninger, urlFejl);
2602      end;      end;
2603    
2604      // Tjekker UrlPakkeshopManglendeReturScanninger      // Tjekker UrlPakkeshopManglendeReturScanninger
2605      if PanelValg6.Enabled = true then      if PanelValg6.Enabled = true then
2606      begin      begin
2607        TjekkerEnkeltUrl('UrlPakkeshopManglendeReturScanninger', UrlPakkeshopManglendeReturScanninger, urlFejl);        TjekkerEnkeltUrl('UrlPakkeshopManglendeReturScanninger', Config.UrlPakkeshopManglendeReturScanninger, urlFejl);
2608      end;      end;
2609    
2610     // Tjekker UrlIndleveringsPakke og UrlIndleveringsPakkeManglendeScanninger     // Tjekker UrlIndleveringsPakke og UrlIndleveringsPakkeManglendeScanninger
2611      if PanelValg7.Enabled = true then      if PanelValg7.Enabled = true then
2612      begin      begin
2613        TjekkerEnkeltUrl('UrlIndleveringsPakke', UrlIndleveringsPakke, urlFejl);        TjekkerEnkeltUrl('UrlIndleveringsPakke', Config.UrlIndleveringsPakke, urlFejl);
2614        TjekkerEnkeltUrl('UrlIndleveringsPakkeManglendeScanninger', UrlIndleveringsPakkeManglendeScanninger, urlFejl);        TjekkerEnkeltUrl('UrlIndleveringsPakkeManglendeScanninger', Config.UrlIndleveringsPakkeManglendeScanninger, urlFejl);
2615      end;      end;
2616    
2617      // Tjekker UrlEKLoverforsel      // Tjekker UrlEKLoverforsel
2618      if PanelValg1.Enabled = true then      if PanelValg1.Enabled = true then
2619      begin      begin
2620        TjekkerEnkeltUrl('UrlEKLoverforsel', UrlEKLoverforsel, urlFejl);        TjekkerEnkeltUrl('UrlEKLoverforsel', Config.UrlEKLoverforsel, urlFejl);
2621      end;      end;
2622    
2623    
2624      // Tjekker UrlEKLoverforselPakkeshop      // Tjekker UrlEKLoverforselPakkeshop
2625      if PanelValg5.Enabled = true then      if PanelValg5.Enabled = true then
2626      begin      begin
2627        TjekkerEnkeltUrl('UrlEKLoverforselPakkeshop', UrlEKLoverforselPakkeshop, urlFejl);        TjekkerEnkeltUrl('UrlEKLoverforselPakkeshop', Config.UrlEKLoverforselPakkeshop, urlFejl);
2628      end;      end;
2629    
2630    
2631      // Tjekker UrlFindPakketype      // Tjekker UrlFindPakketype
2632      TjekkerEnkeltUrl('UrlFindPakketype', UrlFindPakketype, urlFejl);      TjekkerEnkeltUrl('UrlFindPakketype', Config.UrlFindPakketype, urlFejl);
2633    
2634      // Tjekker UrlSendPrograminfo      // Tjekker UrlSendPrograminfo
2635      TjekkerEnkeltUrl('UrlSendPrograminfo', UrlSendPrograminfo, urlFejl);      TjekkerEnkeltUrl('UrlSendPrograminfo', Config.UrlSendPrograminfo, urlFejl);
2636    
2637    
2638    
# Line 2730  begin Line 2671  begin
2671      if TjekUrls = '1' then      if TjekUrls = '1' then
2672      begin      begin
2673        ShowMessage(logTekst);        ShowMessage(logTekst);
2674        UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut        Config.UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
2675        Application.Terminate;        Application.Terminate;
2676    
2677        raise Exception.Create('UrlFejl');        raise Exception.Create('UrlFejl');
# Line 2811  begin Line 2752  begin
2752    if BoghandlerNavnST.Caption = 'Fejl i forbindelse til server' then    if BoghandlerNavnST.Caption = 'Fejl i forbindelse til server' then
2753    begin    begin
2754       ShowMessage('Programmet afbrydes...');       ShowMessage('Programmet afbrydes...');
2755       UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut       Config.UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
2756       Application.Terminate;       Application.Terminate;
2757       exit;       exit;
2758    end;    end;
# Line 3042  begin Line 2983  begin
2983      tekst := tekst+crlf+crlf;      tekst := tekst+crlf+crlf;
2984      tekst := tekst+crlf+crlf+'          **********  DETTE ER KUN EN TEST VERSION  **********';      tekst := tekst+crlf+crlf+'          **********  DETTE ER KUN EN TEST VERSION  **********';
2985      tekst := tekst+crlf+crlf;      tekst := tekst+crlf+crlf;
2986      tekst := tekst+crlf+crlf+'Url: '+url;      tekst := tekst+crlf+crlf+'Url: ' + Url;
2987    end;    end;
2988    
2989    MessageBox(Handle, PWideChar(tekst), 'Information', MB_OK);    MessageBox(Handle, PWideChar(tekst), 'Information', MB_OK);
# Line 3183  begin Line 3124  begin
3124        menuAutomatiskTjekkodeStyring.Enabled := true;        menuAutomatiskTjekkodeStyring.Enabled := true;
3125        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3126        menuNatXpress1.Checked := true;        menuNatXpress1.Checked := true;
3127        InitForm(FarveNormal,TitelNormal,UrlNormal);        InitForm(FarveNormal,TitelNormal,Config.UrlNormal);
3128        PanelValg1.Color := clGreen;        PanelValg1.Color := clGreen;
3129        PanelValg1.Font.Color := clWhite;        PanelValg1.Font.Color := clWhite;
3130    
# Line 3219  begin Line 3160  begin
3160        menuAutomatiskTjekkodeStyring.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3161        menuNatxpressReturDAO1.Checked := true;        menuNatxpressReturDAO1.Checked := true;
3162        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3163        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);        InitForm(FarveReturDAO,TitelReturDAO, Config.UrlReturDAO);
3164        PanelValg2.Color := clGreen;        PanelValg2.Color := clGreen;
3165        PanelValg2.Font.Color := clWhite;        PanelValg2.Font.Color := clWhite;
3166    
# Line 3250  begin Line 3191  begin
3191        menuAutomatiskTjekkodeStyring.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3192        menuNatxpressReturfraKunde1.Checked := true;        menuNatxpressReturfraKunde1.Checked := true;
3193        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3194        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);        InitForm(FarveReturBoghandler,TitelReturBoghandler, Config.UrlReturBoghandler);
3195        PanelValg3.Color := clGreen;        PanelValg3.Color := clGreen;
3196        PanelValg3.Font.Color := clWhite;        PanelValg3.Font.Color := clWhite;
3197    
# Line 3280  begin Line 3221  begin
3221        menuAutomatiskTjekkodeStyring.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3222        menuDaoDirekte1.Checked := true;        menuDaoDirekte1.Checked := true;
3223        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3224        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);        InitForm(FarveBudlevering,TitelBudlevering, Config.UrlBudlevering);
3225        PanelValg4.Color := clGreen;        PanelValg4.Color := clGreen;
3226        PanelValg4.Font.Color := clWhite;        PanelValg4.Font.Color := clWhite;
3227    
# Line 3320  begin Line 3261  begin
3261        menuAutomatiskTjekkodeStyring.Enabled := true;        menuAutomatiskTjekkodeStyring.Enabled := true;
3262        menuPakkeshop1.Checked := true;        menuPakkeshop1.Checked := true;
3263        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3264        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering, Config.UrlPakkeshoplevering);
3265        PanelValg5.Color := clGreen;        PanelValg5.Color := clGreen;
3266        PanelValg5.Font.Color := clWhite;        PanelValg5.Font.Color := clWhite;
3267    
# Line 3360  begin Line 3301  begin
3301        menuAutomatiskTjekkodeStyring.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3302        menuPakkeshopRetur1.Checked := true;        menuPakkeshopRetur1.Checked := true;
3303        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3304        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);        InitForm(FarveReturPakkeshop,TitelReturPakkeshop, Config.UrlReturPakkeshop);
3305        PanelValg6.Color := clGreen;        PanelValg6.Color := clGreen;
3306        PanelValg6.Font.Color := clWhite;        PanelValg6.Font.Color := clWhite;
3307    
# Line 3408  begin Line 3349  begin
3349        menuAutomatiskTjekkodeStyring.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3350    
3351        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3352        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);        InitForm(FarveIndlevering, TitelIndlevering, Config.UrlReturPakkeshop);
3353        PanelValg7.Color := clGreen;        PanelValg7.Color := clGreen;
3354        PanelValg7.Font.Color := clWhite;        PanelValg7.Font.Color := clWhite;
3355    
# Line 3561  begin Line 3502  begin
3502      logTekst := 'Overfører de scannede pakker til EKL';      logTekst := 'Overfører de scannede pakker til EKL';
3503      SkrivScanningLogFil(logTekst);      SkrivScanningLogFil(logTekst);
3504      StedKode := Sted;      StedKode := Sted;
3505      URLStr := Format(UrlEKLoverforsel,[StedKode,Sted]);      URLStr := Format(Config.UrlEKLoverforsel,[StedKode,Sted]);
3506    
3507      if PanelValg5.Color = clGreen then      if PanelValg5.Color = clGreen then
3508      begin      begin
3509        URLStr := Format(UrlEKLoverforselPakkeshop,[StedKode,Sted]);        URLStr := Format(Config.UrlEKLoverforselPakkeshop,[StedKode,Sted]);
3510      end;      end;
3511    
3512    
# Line 4220  var Line 4161  var
4161    
4162      if (Scanningtype = '7') then      if (Scanningtype = '7') then
4163       begin       begin
4164        URLStr := Format(UrlIndleveringsPakkeManglendeScanninger, [StedKode]);        URLStr := Format(Config.UrlIndleveringsPakkeManglendeScanninger, [StedKode]);
4165       end       end
4166      else if (Scanningtype = '6') then      else if (Scanningtype = '6') then
4167       begin       begin
4168        URLStr := Format(UrlPakkeshopManglendeReturScanninger, [StedKode]);        URLStr := Format(Config.UrlPakkeshopManglendeReturScanninger, [StedKode]);
4169       end       end
4170      else if (Scanningtype = '5') then      else if (Scanningtype = '5') then
4171       begin       begin
4172        URLStr := Format(UrlPakkeshopManglendeScanninger, [StedKode]);        URLStr := Format(Config.UrlPakkeshopManglendeScanninger, [StedKode]);
4173       end       end
4174      else if (Scanningtype = '1') then      else if (Scanningtype = '1') then
4175       begin       begin
4176        URLStr := Format(UrlManglendeScanninger,[StedKode,'B2']);        URLStr := Format(Config.UrlManglendeScanninger,[StedKode,'B2']);
4177       end       end
4178      else if (Scanningtype = '4') then      else if (Scanningtype = '4') then
4179       begin       begin
4180        URLStr := Format(UrlManglendeScanninger,[StedKode,'A2']);    // Budleveringer        URLStr := Format(Config.UrlManglendeScanninger,[StedKode,'A2']);    // Budleveringer
4181       end       end
4182      else      else
4183       begin       begin
Legend:
Removed from v.3086  
changed lines
  Added in v.3087
  ViewVC Help
Powered by ViewVC 1.1.20