/[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 3054 by torben, Mon Jun 27 11:53:04 2016 UTC revision 3090 by torben, Mon Aug 15 19:26:48 2016 UTC
# Line 26  uses Line 26  uses
26    LabelPrint,    LabelPrint,
27    Configuration,    Configuration,
28    Vcl.Imaging.pngimage,    Vcl.Imaging.pngimage,
29    Generics.Collections    Generics.Collections,
30      TimingHelper
31    
32    ;    ;
33    
# Line 56  type Line 57  type
57      radioStorPakke: TRadioButton;      radioStorPakke: TRadioButton;
58      radioLillePakke: TRadioButton;      radioLillePakke: TRadioButton;
59      N4: TMenuItem;      N4: TMenuItem;
60      Storepakker1: TMenuItem;      menuStorePakker: TMenuItem;
61      Smpakker1: TMenuItem;      menuSmaaPakker: TMenuItem;
62      Panel1: TPanel;      Panel1: TPanel;
63      Testlyd2: TMenuItem;      Testlyd2: TMenuItem;
64      Button1: TButton;      Button1: TButton;
# Line 85  type Line 86  type
86      Timer1: TTimer;      Timer1: TTimer;
87      chkScanTjekkode: TCheckBox;      chkScanTjekkode: TCheckBox;
88      Scanogstjekkoden1: TMenuItem;      Scanogstjekkoden1: TMenuItem;
89      Automatisktjekkodestyring1: TMenuItem;      menuAutomatiskTjekkodeStyring: TMenuItem;
90      menuAutomatiskvalg1: TMenuItem;      menuAutomatiskvalg1: TMenuItem;
91      PanelValgA: TPanel;      PanelValgA: TPanel;
92      PanelValg1: TPanel;      PanelValg1: TPanel;
# Line 107  type Line 108  type
108      chkForstorTilDirekte: TCheckBox;      chkForstorTilDirekte: TCheckBox;
109      chkEmballageRepareret: TCheckBox;      chkEmballageRepareret: TCheckBox;
110      KommentarST: TLabel;      KommentarST: TLabel;
111        chkUdenforSpecifikation: TCheckBox;
112    
113    
114    
# Line 136  type Line 138  type
138    procedure Sprgefterboghandlernummer1Click(Sender: TObject);    procedure Sprgefterboghandlernummer1Click(Sender: TObject);
139    procedure menuNatxpressReturDAO1Click(Sender: TObject);    procedure menuNatxpressReturDAO1Click(Sender: TObject);
140    procedure menuNatxpressReturfraKunde1Click(Sender: TObject);    procedure menuNatxpressReturfraKunde1Click(Sender: TObject);
141    procedure Storepakker1Click(Sender: TObject);    procedure menuStorePakkerClick(Sender: TObject);
142    procedure Smpakker1Click(Sender: TObject);    procedure menuSmaaPakkerClick(Sender: TObject);
143    procedure Testlyd1Click(Sender: TObject);    procedure Testlyd1Click(Sender: TObject);
144    procedure Testlyd2Click(Sender: TObject);    procedure Testlyd2Click(Sender: TObject);
145    procedure Button1Click(Sender: TObject);    procedure Button1Click(Sender: TObject);
# Line 173  type Line 175  type
175    procedure Timer1Timer(Sender: TObject);    procedure Timer1Timer(Sender: TObject);
176    procedure Scanogstjekkoden1Click(Sender: TObject);    procedure Scanogstjekkoden1Click(Sender: TObject);
177    procedure chkScanTjekkodeClick(Sender: TObject);    procedure chkScanTjekkodeClick(Sender: TObject);
178    procedure Automatisktjekkodestyring1Click(Sender: TObject);    procedure menuAutomatiskTjekkodeStyringClick(Sender: TObject);
179    procedure SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);    procedure SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);
180    procedure menuAutomatiskvalg1Click(Sender: TObject);    procedure menuAutomatiskvalg1Click(Sender: TObject);
181    procedure PanelValgAClick(Sender: TObject);    procedure PanelValgAClick(Sender: TObject);
# Line 209  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    
215      UrlEKLoverforselPakkeshop : String;      Scanningtype,  Pakketype : String;
216    
     UrlFindPakketype, UrlSendPrograminfo: String;  
     Scanningtype, TestFunktionen, Pakketype, SporgEfterBoghandler : String;  
     ScanTjekkode : String;  
     ScanTjekkodeAutomatik : string;  
217    
218      Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop,      Url : String;
           FarveIndlevering : String;  
219    
220      Titel, TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop,      Farve : String;
           TitelIndlevering : String;  
221    
222      AlarmLyd : String;      Titel : String;
     ScannetOkLyd : String;  
     ScannetOkStorLyd : String;  
223    
     ScannetOkTilTjekkodeLyd : String;  
224    
     PrinterNavn : String;  
     TjekPrinter : String;  
225    
226      Org_RuteNummerST, Org_BoghandlerNavnST, Org_KommentarST : String;      Org_RuteNummerST, Org_BoghandlerNavnST, Org_KommentarST : String;
227      BladhusSted : Integer;      BladhusSted : Integer;
# Line 246  type Line 234  type
234      logTekst : string;      logTekst : string;
235      PakkeshopStregkode, PakkeshopTjekkode : String;      PakkeshopStregkode, PakkeshopTjekkode : String;
236      BoghandlerStregkode, BoghandlerTjekkode : String;      BoghandlerStregkode, BoghandlerTjekkode : String;
237      TjekUrls : String;  
238      Config : TConfiguration;      Config : TConfiguration;
239    
240    
# Line 263  type Line 251  type
251      procedure SkrivScanningLogFil(var tekst : string);      procedure SkrivScanningLogFil(var tekst : string);
252      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;
253      procedure VisAlarmSkaerm(strMessage: string);      procedure VisAlarmSkaerm(strMessage: string);
254      function InjectURL(Url : String) : String;  
255    
256    public    public
257      { Public declarations }      { Public declarations }
# Line 417  begin Line 405  begin
405    
406      if (Scanningtype = '1') or (Scanningtype = '5') then      if (Scanningtype = '1') or (Scanningtype = '5') then
407      begin      begin
408        if (ScanTjekkode = '1') then        if (Config.ScanTjekkode = '1') then
409        begin        begin
410          chkScanTjekkode.Checked := true;          chkScanTjekkode.Checked := true;
411          chkScanTjekkode.Enabled := true;          chkScanTjekkode.Enabled := true;
# Line 431  begin Line 419  begin
419        end;        end;
420      end;      end;
421    
422      if Automatisktjekkodestyring1.Checked then      if menuAutomatiskTjekkodeStyring.Checked then
423      begin      begin
424        chkScanTjekkode.Enabled := false;        chkScanTjekkode.Enabled := false;
425        Scanogstjekkoden1.Enabled := false;        Scanogstjekkoden1.Enabled := false;
# Line 489  begin Line 477  begin
477    StregkodeST.Caption := Stregkode;    StregkodeST.Caption := Stregkode;
478  end;  end;
479    
480  procedure TMainForm.Automatisktjekkodestyring1Click(Sender: TObject);  procedure TMainForm.menuAutomatiskTjekkodeStyringClick(Sender: TObject);
481  begin  begin
482    if Automatisktjekkodestyring1.Checked then    if menuAutomatiskTjekkodeStyring.Checked then
483    begin    begin
484       chkScanTjekkode.Enabled := false;       chkScanTjekkode.Enabled := false;
485       Scanogstjekkoden1.Enabled := false;       Scanogstjekkoden1.Enabled := false;
# Line 513  begin Line 501  begin
501       PanelValgA.Font.Color := clWhite;       PanelValgA.Font.Color := clWhite;
502  end;  end;
503    
 function TMainForm.InjectURL(Url : String) : String;  
 begin  
504    
   Url := Url + '&ver=' + TUtils.URLEncode( TUtils.Sto_GetFmtFileVersion(''));  
   Url := Url + '&host=' + TUtils.URLEncode( TUtils.GetComputerNameHelper());  
   Url := Url + '&user=' + TUtils.URLEncode( TUtils.GetCurrentUserName());  
   
   Result := Url;  
 end;  
505    
506  //InitForm kaldes før FormCreate  //InitForm kaldes før FormCreate
507  procedure TMainForm.FormCreate(Sender: TObject);  procedure TMainForm.FormCreate(Sender: TObject);
# Line 558  begin Line 538  begin
538    
539  // Sætter lige en default panel størrelse  // Sætter lige en default panel størrelse
540    MainForm.ClientWidth := 1000;    MainForm.ClientWidth := 1000;
541    MainForm.ClientHeight := 750;    MainForm.ClientHeight := 820;
542    
543    Config := TConfiguration.Create();    Config := TConfiguration.Create();
544    Config.ReadFromInifile( TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) );    //ToDo: clean up duplicate ini ref    Config.ReadFromInifile( TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) );    //ToDo: clean up duplicate ini ref
# Line 573  begin Line 553  begin
553      Sted := ReadString('Settings','Sted','');      Sted := ReadString('Settings','Sted','');
554      StedNavn := ReadString('Settings','Stednavn','');      StedNavn := ReadString('Settings','Stednavn','');
555    
     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);  
556    
     URLOmdirigerTilPakkeshop := ReadString('Settings', 'URLOmdirigerTilPakkeshop','http://omdeling.info/webservices/pakkeshop/PakkeKontrolOmdirigerTilPakkeshop.php?sted=%s&stregkode=%s');  
     URLOmdirigerTilPakkeshop := InjectURL(URLOmdirigerTilPakkeshop);  
557    
558    
559    
     FarveNormal := ReadString('Settings','FarveNormal','D8D8D8');  
     TitelNormal := ReadString('Settings','TitelNormal','Modtagelse af DAO NAT X-PRESS pakker');  
     FarveReturDAO := ReadString('Settings','FarveReturDAO','A9F5A9');  
     TitelReturDAO := ReadString('Settings','TitelReturDAO','Returforsendelse fra DAO');  
     FarveReturBoghandler := ReadString('Settings','FarveReturBoghandler','F2F5A9');  
     TitelReturBoghandler := ReadString('Settings','TitelReturBoghandler','Returforsendelse fra boghandler');  
     FarveBudlevering := ReadString('Settings','FarveBudlevering','2E9AFE');  
     TitelBudlevering := ReadString('Settings','TitelBudlevering','Modtagelse af DAO DIREKTE pakker');  
     FarvePakkeshoplevering := ReadString('Settings','FarvePakkeshoplevering','99FFFF');  
     TitelPakkeshoplevering := ReadString('Settings','TitelPakkeshoplevering','Modtagelse af DAO PAKKESHOP pakker');  
   
     FarveReturPakkeshop := ReadString('Settings','FarveReturPakkeshop','99FFCC');  
     TitelReturPakkeshop := ReadString('Settings','TitelReturPakkeshop','Returforsendelse fra pakkeshop');  
   
     FarveIndlevering := ReadString('Settings', 'FarveIndlevering', 'E5B2CB');  
     TitelIndlevering := ReadString('Settings', 'TitelIndlevering', 'Indleveringskode');  
   
   
     SporgEfterBoghandler := ReadString('Settings','SporgEfterBoghandler','0');  
     ScanTjekkode := ReadString('Settings','ScanTjekkode','0');  
     ScanTjekkodeAutomatik := ReadString('Settings','ScanTjekkodeAutomatik','1');  
     Scanningtype := ReadString('Settings','Scanningtype','A');  
     Pakketype := ReadString('Settings','Pakketype','0');  
     TestFunktionen := ReadString('Settings','TestFunktion','0');  
     AlarmLyd := ReadString('Settings','AlarmLyd','Sounds\Alarm.wav');  
     ScannetOkLyd := ReadString('Settings','ScannetOkLyd','Sounds\Ok.wav');  
     ScannetOkStorLyd := ReadString('Settings','ScannetOkStorLyd','Sounds\Ok_stor.wav');  
   
     ScannetOkTilTjekkodeLyd := ReadString('Settings','ScannetOkTilTjekkodeLyd','Sounds\Ok_til_tjekkode.wav');  
   
     PrinterNavn := ReadString('Settings','PrinterNavn','');  
     TjekPrinter := ReadString('Settings','TjekPrinter','1');  
     TjekUrls := ReadString('Settings','TjekUrls','2');  
   
560      if (SkrivLog = '1') then      if (SkrivLog = '1') then
561      begin      begin
562        logTekst := 'Program start (Version: ' + TUtils.Sto_GetFmtFileVersion('') + ') Dato: ' + FormatDateTime('yyyy-mm-dd hh:nn:ss',now);        logTekst := 'Program start (Version: ' + TUtils.Sto_GetFmtFileVersion('') + ') Dato: ' + FormatDateTime('yyyy-mm-dd hh:nn:ss',now);
# Line 683  begin Line 583  begin
583    
584    
585    
586      if SporgEfterBoghandler = '1' then      if Config.SporgEfterBoghandler = '1' then
587      begin      begin
588        chkSporgEfterKunde.Checked := true;        chkSporgEfterKunde.Checked := true;
589        Sprgefterboghandlernummer1.Checked := true;        Sprgefterboghandlernummer1.Checked := true;
# Line 694  begin Line 594  begin
594        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
595      end;      end;
596    
597      if ScanTjekkode = '1' then      if Config.ScanTjekkode = '1' then
598      begin      begin
599        chkScanTjekkode.Checked := true;        chkScanTjekkode.Checked := true;
600        Scanogstjekkoden1.Checked := true;        Scanogstjekkoden1.Checked := true;
# Line 705  begin Line 605  begin
605        Scanogstjekkoden1.Checked := false;        Scanogstjekkoden1.Checked := false;
606      end;      end;
607    
608      if ScanTjekkodeAutomatik = '1' then      if Config.ScanTjekkodeAutomatik = '1' then
609      begin      begin
610        Automatisktjekkodestyring1.Checked := true;        menuAutomatiskTjekkodeStyring.Checked := true;
611        chkScanTjekkode.Enabled := false;        chkScanTjekkode.Enabled := false;
612        Scanogstjekkoden1.Enabled := false;        Scanogstjekkoden1.Enabled := false;
613      end;      end;
# Line 841  begin Line 741  begin
741    
742      if SpecialVersionSted = 'DBK' then      if SpecialVersionSted = 'DBK' then
743      begin      begin
       //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil  
744        Sted := SpecialVersionSted;        Sted := SpecialVersionSted;
       // her skal vi også disable de knapper DBK ikke kan bruge  
       PanelValg2.Enabled := false;  
       PanelValg2.Font.Color := clInactiveCaption;  
       PanelValg3.Enabled := false;  
       PanelValg3.Font.Color := clInactiveCaption;  
       PanelValg5.Enabled := false;  
       PanelValg5.Font.Color := clInactiveCaption;  
       PanelValg6.Enabled := false;  
       PanelValg6.Font.Color := clInactiveCaption;  
   
   
      // her skal vi også disable de menupunkter DBK ikke kan bruge  
       menuNatxpressReturDAO1.Enabled := false;  
       menuNatxpressReturfraKunde1.Enabled := false;  
   
       menuPakkeshop1.Enabled := false;  
       menuPakkeshopRetur1.Enabled := false;  
   
       if SpecialVersionScanningtype = 'A' then  
       begin  
          Scanningtype := '1';  
       end  
       else  
       begin  
         Scanningtype := SpecialVersionScanningtype;  
       end;  
745      end;      end;
746    
747      if (SpecialVersionSted = '01')      if (SpecialVersionSted = '01')
# Line 977  begin Line 850  begin
850          Application.Terminate;          Application.Terminate;
851      end;      end;
852    
853      if TjekUrls = '1' then    // Tjekker urls      if Config.TjekUrls = '1' then    // Tjekker urls
854      begin      begin
855          TjekkerUrls();          TjekkerUrls();
856          if TjekUrls = '-' then  // så var der fejl i url - så vi stopper her          if Config.TjekUrls = '-' then  // så var der fejl i url - så vi stopper her
857          begin          begin
858             PlaySound(PWideChar(AlarmLyd));             PlaySound(PWideChar(Config.AlarmLyd));
859             MainForm.Color := clRed;             MainForm.Color := clRed;
860             RutenummerST.Caption := '';             RutenummerST.Caption := '';
861             BoghandlerNavnST.Caption := 'Fejl i urls';             BoghandlerNavnST.Caption := 'Fejl i urls';
# Line 1029  begin Line 902  begin
902    
903      if Pakketype = '1' then      if Pakketype = '1' then
904      begin      begin
905        Storepakker1.Checked := true;        menuStorePakker.Checked := true;
906        radioStorPakke.Checked := true;        radioStorPakke.Checked := true;
907      end      end
908      else      else
909      begin      begin
910        Smpakker1.Checked := true;        menuSmaaPakker.Checked := true;
911        radioLillePakke.Checked := true;        radioLillePakke.Checked := true;
912      end;      end;
913    
914      if TestFunktionen = '1' then      if Config.TestFunktionen = '1' then
915      begin      begin
916        Testforbindelsen1.Visible := true;        Testforbindelsen1.Visible := true;
917        Testprinter1.Visible := true;        Testprinter1.Visible := true;
918        Testlyd1.Visible := true;        Testlyd1.Visible := true;
919        Testlyd2.Visible := true;        Testlyd2.Visible := true;
920      end      end
921      else if TestFunktionen = '2' then      else if Config.TestFunktionen = '2' then
922      begin      begin
923        Testforbindelsen1.Enabled := false;        Testforbindelsen1.Enabled := false;
924        Testprinter1.Enabled := false;        Testprinter1.Enabled := false;
# Line 1060  begin Line 933  begin
933        Testlyd2.Visible := false;        Testlyd2.Visible := false;
934      end;      end;
935    
     if not FileExists(AlarmLyd) then  
     begin  
       AlarmLyd := '';  
     end;  
936    
     if not FileExists(ScannetOkLyd) then  
     begin  
       ScannetOkLyd := '';  
     end;  
937    
     if not FileExists(ScannetOkStorLyd) then  
     begin  
       ScannetOkStorLyd := '';  
     end;  
   
   
     if not FileExists(ScannetOkTilTjekkodeLyd) then  
     begin  
       ScannetOkTilTjekkodeLyd := '';  
     end;  
938    
939    
940        LabelPrint := TLabelPrint.Create( self, Config, Config.PrinterNavn );
941        LabelPrint.CheckPrintQue('Opstart', Config.PrinterNavn);
     LabelPrint := TLabelPrint.Create( self, Config, PrinterNavn );  
     LabelPrint.CheckPrintQue('Opstart', PrinterNavn);  
942    
943    finally    finally
944      Free;      Free;
# Line 1097  begin Line 950  begin
950        menuNatxpressReturDAO1.Visible := false;        menuNatxpressReturDAO1.Visible := false;
951        menuNatxpressReturfraKunde1.Visible := false;        menuNatxpressReturfraKunde1.Visible := false;
952        menuDaoDirekte1.Visible := false;        menuDaoDirekte1.Visible := false;
953        Storepakker1.Visible := false;        menuStorePakker.Visible := false;
954        Smpakker1.Visible := false;        menuSmaaPakker.Visible := false;
955        Testprinter1.Visible := false;        Testprinter1.Visible := false;
956        menuPakkeshop1.Visible := false;        menuPakkeshop1.Visible := false;
957        menuPakkeshopRetur1.Visible := false;        menuPakkeshopRetur1.Visible := false;
# Line 1450  begin Line 1303  begin
1303      if (Length(Stregkode) > 8) then      if (Length(Stregkode) > 8) then
1304      begin      begin
1305        // Her skal vi så forespørge pakketype på serveren udfra stregkode feltet        // Her skal vi så forespørge pakketype på serveren udfra stregkode feltet
1306        URLStr := Format(UrlFindPakketype,[Stregkode]);        URLStr := Format(Config.UrlFindPakketype,[Stregkode]);
1307        try        try
1308          //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST          //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST
1309          WebSvar := IdHTTP1.Get(URLStr);          WebSvar := IdHTTP1.Get(URLStr);
# Line 1575  begin Line 1428  begin
1428    
1429    
1430    
1431      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and Automatisktjekkodestyring1.Checked then      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and menuAutomatiskTjekkodeStyring.Checked then
1432      begin      begin
1433        chkScanTjekkode.Checked := false;        chkScanTjekkode.Checked := false;
1434        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do
# Line 1619  begin Line 1472  begin
1472              BoghandlerStregkode := Stregkode;              BoghandlerStregkode := Stregkode;
1473              PakkeshopText1.Caption := 'Tjekkode';              PakkeshopText1.Caption := 'Tjekkode';
1474    
1475              PlaySound(PWideChar(ScannetOkTilTjekkodeLyd));              PlaySound(PWideChar(Config.ScannetOkTilTjekkodeLyd));
1476    
1477             end             end
1478            else            else
# Line 1637  begin Line 1490  begin
1490             BoghandlerTjekkode := Stregkode;             BoghandlerTjekkode := Stregkode;
1491             PakkeshopText1.Caption := 'Stregkode';             PakkeshopText1.Caption := 'Stregkode';
1492             if (menuPakkeshop1.Checked) then             if (menuPakkeshop1.Checked) then
1493                MainForm.Color := TUtils.HexToTColor(FarvePakkeshoplevering);                MainForm.Color := TUtils.HexToTColor(Config.FarvePakkeshoplevering);
1494             if (menuNatXpress1.Checked) then             if (menuNatXpress1.Checked) then
1495                MainForm.Color := TUtils.HexToTColor(FarveNormal);                MainForm.Color := TUtils.HexToTColor(Config.FarveNormal);
1496             btnNulstil.Visible := false;             btnNulstil.Visible := false;
1497           end           end
1498          else          else
# Line 1693  begin Line 1546  begin
1546              tjekkodemangler := pos('Tjekkode mangler', Kommentar);              tjekkodemangler := pos('Tjekkode mangler', Kommentar);
1547              if (pakkeErScannet > 0) or (pakkeForkertSted > 0) or (tjekkodemangler > 0) then              if (pakkeErScannet > 0) or (pakkeForkertSted > 0) or (tjekkodemangler > 0) then
1548              begin              begin
1549                PlaySound(PWideChar(AlarmLyd));                PlaySound(PWideChar(Config.AlarmLyd));
1550                btnNulstil.Visible := true;                btnNulstil.Visible := true;
1551                MainForm.Color := clRed;                MainForm.Color := clRed;
1552              end;              end;
# Line 1701  begin Line 1554  begin
1554            if ( menuNatXpress1.Checked and (pakkeErScannet = 0) and (pakkeForkertSted = 0) and (tjekkodemangler = 0) and (RuteNummerST.Caption <> 'Ukendt') ) or (Copy(Kommentar,1,2) = 'Ok') then            if ( menuNatXpress1.Checked and (pakkeErScannet = 0) and (pakkeForkertSted = 0) and (tjekkodemangler = 0) and (RuteNummerST.Caption <> 'Ukendt') ) or (Copy(Kommentar,1,2) = 'Ok') then
1555            begin            begin
1556              MainForm.Color := TUtils.HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1557              if Storepakker1.Checked then              if menuStorePakker.Checked then
1558              begin              begin
1559                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(Config.ScannetOkStorLyd));
1560              end              end
1561              else              else
1562              begin              begin
1563                PlaySound(PWideChar(ScannetOkLyd));                PlaySound(PWideChar(Config.ScannetOkLyd));
1564              end;              end;
1565              btnNulstil.Visible := false;              btnNulstil.Visible := false;
1566            end            end
1567            else if (menuNatxpressReturDAO1.Checked or menuNatxpressReturfraKunde1.Checked) then            else if (menuNatxpressReturDAO1.Checked or menuNatxpressReturfraKunde1.Checked) then
1568            begin            begin
1569              MainForm.Color := TUtils.HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1570              if Storepakker1.Checked then              if menuStorePakker.Checked then
1571              begin              begin
1572                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(Config.ScannetOkStorLyd));
1573              end              end
1574              else              else
1575              begin              begin
1576                PlaySound(PWideChar(ScannetOkLyd));                PlaySound(PWideChar(Config.ScannetOkLyd));
1577              end;              end;
1578              btnNulstil.Visible := false;              btnNulstil.Visible := false;
1579            end            end
# Line 1741  begin Line 1594  begin
1594    
1595              If (menuDaoDirekte1.Checked) then              If (menuDaoDirekte1.Checked) then
1596              begin              begin
1597                if Storepakker1.Checked then                if menuStorePakker.Checked then
1598                begin                begin
1599                  PlaySound(PWideChar(ScannetOkStorLyd));                  PlaySound(PWideChar(Config.ScannetOkStorLyd));
1600                end                end
1601                else                else
1602                begin                begin
1603                  PlaySound(PWideChar(ScannetOkLyd));                  PlaySound(PWideChar(Config.ScannetOkLyd));
1604                end;                end;
1605                InitLillePakke();                InitLillePakke();
1606              end;              end;
# Line 1801  var Line 1654  var
1654    WebSvar : String;    WebSvar : String;
1655    URLStr : String;    URLStr : String;
1656  begin  begin
1657    if UrlSendPrograminfo <> '' then    if Config.UrlSendPrograminfo <> '' then
1658    begin    begin
1659      URLStr := Format(UrlSendPrograminfo,[ExtractFileName(ParamStr(0)), Sted, Scanningtype, Infotype, Info]);      URLStr := Format(Config.UrlSendPrograminfo,[ExtractFileName(ParamStr(0)), Sted, Scanningtype, Infotype, Info]);
1660      try      try
1661        //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST        //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST
1662        WebSvar := IdHTTP1.Get(URLStr);        WebSvar := IdHTTP1.Get(URLStr);
# Line 1816  begin Line 1669  begin
1669        ShowMessage(logTekst);        ShowMessage(logTekst);
1670        SkrivScanningLogFil(logTekst);        SkrivScanningLogFil(logTekst);
1671        // 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
1672        UrlSendPrograminfo := '';        Config.UrlSendPrograminfo := '';
1673        Application.Terminate;        Application.Terminate;
1674      end;      end;
1675      end;      end;
# Line 1840  begin Line 1693  begin
1693        for i := ListBox2.items.count-1 downto 0 do        for i := ListBox2.items.count-1 downto 0 do
1694          if pos(StregKode,ListBox2.items[i]) <> 0 then          if pos(StregKode,ListBox2.items[i]) <> 0 then
1695          begin          begin
1696              wrkAntalSenere := 0;//initial Value
1697    
1698            // Ajourføring af tæller for manglende pakker (scanninger)            // Ajourføring af tæller for manglende pakker (scanninger)
1699            wrkAntal := StaticTextManglendePakker.Caption;            wrkAntal := StaticTextManglendePakker.Caption;
# Line 2015  begin Line 1869  begin
1869      02 :      02 :
1870            begin;    // BK            begin;    // BK
1871              Testprinter1.Visible := true;              Testprinter1.Visible := true;
1872              Smpakker1.Enabled := true;              menuSmaaPakker.Enabled := true;
1873              Storepakker1.Enabled := true;              menuStorePakker.Enabled := true;
1874              radioStorPakke.Enabled := true;              radioStorPakke.Enabled := true;
1875              radioLillePakke.Enabled := true;              radioLillePakke.Enabled := true;
1876              BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her
# Line 2053  begin Line 1907  begin
1907            end;            end;
1908      04 :  begin;           // DBK      04 :  begin;           // DBK
1909              Testprinter1.Visible := true;              Testprinter1.Visible := true;
1910              Smpakker1.Enabled := true;              menuSmaaPakker.Enabled := true;
1911              Storepakker1.Enabled := true;              menuStorePakker.Enabled := true;
1912              radioStorPakke.Enabled := true;              radioStorPakke.Enabled := true;
1913              radioLillePakke.Enabled := true;              radioLillePakke.Enabled := true;
1914              BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her
# Line 2093  begin Line 1947  begin
1947       begin       begin
1948         BoghandlerTjekkode := '-1';         BoghandlerTjekkode := '-1';
1949       end;       end;
1950       URLStr := Format(UrlNormal,[Sted, PakkeNr, BoghandlerNummer, BoghandlerTjekkode]);       URLStr := Format(Config.UrlNormal,[Sted, PakkeNr, BoghandlerNummer, BoghandlerTjekkode]);
1951    end    end
1952    else if menuNatxpressReturDAO1.Checked then    else if menuNatxpressReturDAO1.Checked then
1953    begin    begin
1954       URLStr := Format(UrlReturDAO,[Sted, PakkeNr, BoghandlerNummer, 'DAO', pakkestorrelse]);       URLStr := Format(Config.UrlReturDAO,[Sted, PakkeNr, BoghandlerNummer, 'DAO', pakkestorrelse]);
1955    end    end
1956    else if menuNatxpressReturfraKunde1.Checked then    else if menuNatxpressReturfraKunde1.Checked then
1957    begin    begin
1958       URLStr := Format(UrlReturBoghandler,[Sted, PakkeNr, BoghandlerNummer, 'Boghandler', pakkestorrelse]);       URLStr := Format(Config.UrlReturBoghandler,[Sted, PakkeNr, BoghandlerNummer, 'Boghandler', pakkestorrelse]);
1959    end    end
1960    else if menuDaoDirekte1.Checked then    else if menuDaoDirekte1.Checked then
1961    begin    begin
1962       URLStr := Format(UrlBudlevering,[Sted, PakkeNr, 'bud', pakkestorrelse]);       URLStr := Format(Config.UrlBudlevering,[Sted, PakkeNr, 'bud', pakkestorrelse]);
1963    end    end
1964    else if menuPakkeshop1.Checked then    else if menuPakkeshop1.Checked then
1965    begin    begin
1966       URLStr := Format(UrlPakkeshoplevering,[Sted, PakkeNr, PakkeshopTjekkode]);       URLStr := Format(Config.UrlPakkeshoplevering,[Sted, PakkeNr, PakkeshopTjekkode]);
1967    end    end
1968    else if menuPakkeshopRetur1.Checked then    else if menuPakkeshopRetur1.Checked then
1969    begin    begin
1970       URLStr := Format(UrlReturPakkeshop,[Sted, PakkeNr]);       URLStr := Format(Config.UrlReturPakkeshop,[Sted, PakkeNr]);
1971    end    end
1972    else if menuIndlevering.Checked then    else if menuIndlevering.Checked then
1973    begin    begin
1974      URLStr := Format(UrlIndleveringsPakke,[Sted, PakkeNr]);      URLStr := Format(Config.UrlIndleveringsPakke,[Sted, PakkeNr]);
1975    end    end
1976    else    else
1977    begin    begin
# Line 2126  begin Line 1980  begin
1980    
1981    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
1982    begin    begin
1983      URLStr := Format(URLOmdirigerTilPakkeshop,[Sted, PakkeNr]);      URLStr := Format(Config.URLOmdirigerTilPakkeshop,[Sted, PakkeNr]);
1984    end;    end;
1985    
1986    try    try
# Line 2188  begin Line 2042  begin
2042         RuteNummer := PakkeshopLabel.Koreliste + '  ->  ' +  PakkeshopLabel.PakkeshopTurid;         RuteNummer := PakkeshopLabel.Koreliste + '  ->  ' +  PakkeshopLabel.PakkeshopTurid;
2043         Stregkode := PakkeshopLabel.Stregkode;         Stregkode := PakkeshopLabel.Stregkode;
2044    
2045         LabelPrint.PrintPakkeshopLabel( PakkeshopLabel );         LabelPrint.PrintFuldPakkeLabel( PakkeshopLabel );
2046         chkForstorTilDirekte.Checked := false;         chkForstorTilDirekte.Checked := false;
2047    
2048       end;       end;
# Line 2233  begin Line 2087  begin
2087      begin      begin
2088        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then
2089        begin        begin
2090            Kommentar := Kommentar + ' Pakke burde være hos DAO Distribution';            Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted;
2091            PrintNyLabel := False;            PrintNyLabel := False;
2092        end;        end;
2093      end      end
2094      else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) then      else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) And (Leveringssted <> '') then
2095      begin      begin
2096         if (Leveringssted = 'E') and (Sted = 'DBK') then         if (Leveringssted = 'E') and (Sted = 'DBK') then
2097         begin         begin
# Line 2245  begin Line 2099  begin
2099         end         end
2100         else         else
2101         begin         begin
2102            Kommentar := Kommentar + ' Pakke burde være hos DAO Distribution';            Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted;
2103            PrintNyLabel := False;            PrintNyLabel := False;
2104         end;         end;
2105      end;      end;
# Line 2392  begin Line 2246  begin
2246       begin       begin
2247          PrintNyLabel := false;          PrintNyLabel := false;
2248    
2249          PlaySound(PWideChar(AlarmLyd));          PlaySound(PWideChar(Config.AlarmLyd));
2250          MainForm.Color := clRed;          MainForm.Color := clRed;
2251          btnNulstil.Visible := true;          btnNulstil.Visible := true;
2252    
# Line 2412  begin Line 2266  begin
2266            logTekst := RightStr(List1Msg, Length(List1Msg)-10);            logTekst := RightStr(List1Msg, Length(List1Msg)-10);
2267            SkrivScanningLogFil(logTekst);            SkrivScanningLogFil(logTekst);
2268    
2269            if (PrinterNavn = 'Ingen') then            if (Config.PrinterNavn = 'Ingen') then
2270            begin            begin
2271               PrintNyLabel := false;               PrintNyLabel := false;
2272            end;            end;
2273    
2274            if (PrintNyLabel = false) then  // Hvis vi ikke printer label skal vi vise en 'rød skærm' alarm            if (PrintNyLabel = false) then  // Hvis vi ikke printer label skal vi vise en 'rød skærm' alarm
2275            begin            begin
2276              PlaySound(PWideChar(AlarmLyd));              PlaySound(PWideChar(Config.AlarmLyd));
2277              MainForm.Color := clRed;              MainForm.Color := clRed;
2278              btnNulstil.Visible := true;              btnNulstil.Visible := true;
2279            end;            end;
# Line 2445  begin Line 2299  begin
2299    
2300            if (PrintNyLabel = false) then  // Hvis vi ikke printer label skal vi vise en 'rød skærm' alarm            if (PrintNyLabel = false) then  // Hvis vi ikke printer label skal vi vise en 'rød skærm' alarm
2301            begin            begin
2302              PlaySound(PWideChar(AlarmLyd));              PlaySound(PWideChar(Config.AlarmLyd));
2303              MainForm.Color := clRed;              MainForm.Color := clRed;
2304              btnNulstil.Visible := true;              btnNulstil.Visible := true;
2305            end;            end;
# Line 2514  begin Line 2368  begin
2368    end    end
2369    else    else
2370    begin    begin
2371      if ( (PrinterNavn <> 'Ingen') and (PrintNyLabel or chkAltidPrintLabel.Checked) and (RuteNummer <> 'Ukendt') or (RuteNummer = 'Rutenr')) then      if ( (Config.PrinterNavn <> 'Ingen') and (PrintNyLabel or chkAltidPrintLabel.Checked) and (RuteNummer <> 'Ukendt') or (RuteNummer = 'Rutenr')) then
2372      begin      begin
2373        logTekst := 'Printer label type ';        logTekst := 'Printer label type ';
2374        if (chkAltidPrintLabel.Checked) then        if (chkAltidPrintLabel.Checked) then
# Line 2543  end; Line 2397  end;
2397    
2398  procedure TMainForm.radioStorPakkeClick(Sender: TObject);  procedure TMainForm.radioStorPakkeClick(Sender: TObject);
2399  begin  begin
2400      Storepakker1.Checked := true;      menuStorePakker.Checked := true;
2401      radioStorPakke.Checked := true;      radioStorPakke.Checked := true;
2402  end;  end;
2403    
2404  procedure TMainForm.radioLillePakkeClick(Sender: TObject);  procedure TMainForm.radioLillePakkeClick(Sender: TObject);
2405  begin  begin
2406      Smpakker1.Checked := true;      menuSmaaPakker.Checked := true;
2407      radioLillePakke.Checked := true;      radioLillePakke.Checked := true;
2408  end;  end;
2409    
# Line 2639  begin Line 2493  begin
2493      // Tjekker UrlNormal      // Tjekker UrlNormal
2494      if PanelValg1.Enabled = true then      if PanelValg1.Enabled = true then
2495      begin      begin
2496        TjekkerEnkeltUrl('UrlNormal', UrlNormal, urlFejl);        TjekkerEnkeltUrl('UrlNormal', Config.UrlNormal, urlFejl);
2497      end;      end;
2498    
2499      // Tjekker UrlReturDAO      // Tjekker UrlReturDAO
2500      if PanelValg2.Enabled = true then      if PanelValg2.Enabled = true then
2501      begin      begin
2502        TjekkerEnkeltUrl('UrlReturDAO', UrlReturDAO, urlFejl);        TjekkerEnkeltUrl('UrlReturDAO', Config.UrlReturDAO, urlFejl);
2503      end;      end;
2504    
2505      // Tjekker UrlReturBoghandler      // Tjekker UrlReturBoghandler
2506      if PanelValg3.Enabled = true then      if PanelValg3.Enabled = true then
2507      begin      begin
2508        TjekkerEnkeltUrl('UrlReturBoghandler', UrlReturBoghandler, urlFejl);        TjekkerEnkeltUrl('UrlReturBoghandler', Config.UrlReturBoghandler, urlFejl);
2509      end;      end;
2510    
2511      // Tjekker UrlBudlevering      // Tjekker UrlBudlevering
2512      if PanelValg4.Enabled = true then      if PanelValg4.Enabled = true then
2513      begin      begin
2514        TjekkerEnkeltUrl('UrlBudlevering', UrlBudlevering, urlFejl);        TjekkerEnkeltUrl('UrlBudlevering', Config.UrlBudlevering, urlFejl);
2515      end;      end;
2516    
2517      // Tjekker UrlPakkeshoplevering      // Tjekker UrlPakkeshoplevering
2518      if PanelValg5.Enabled = true then      if PanelValg5.Enabled = true then
2519      begin      begin
2520        TjekkerEnkeltUrl('UrlPakkeshoplevering', UrlPakkeshoplevering, urlFejl);        TjekkerEnkeltUrl('UrlPakkeshoplevering', Config.UrlPakkeshoplevering, urlFejl);
2521      end;      end;
2522    
2523      // Tjekker UrlReturPakkeshop      // Tjekker UrlReturPakkeshop
2524      if PanelValg6.Enabled = true then      if PanelValg6.Enabled = true then
2525      begin      begin
2526        TjekkerEnkeltUrl('UrlReturPakkeshop', UrlReturPakkeshop, urlFejl);        TjekkerEnkeltUrl('UrlReturPakkeshop', Config.UrlReturPakkeshop, urlFejl);
2527      end;      end;
2528    
2529      // Tjekker UrlManglendeScanninger      // Tjekker UrlManglendeScanninger
2530      if (PanelValg1.Enabled = true) or (PanelValg4.Enabled = true) then      if (PanelValg1.Enabled = true) or (PanelValg4.Enabled = true) then
2531      begin      begin
2532        TjekkerEnkeltUrl('UrlManglendeScanninger', UrlManglendeScanninger, urlFejl);        TjekkerEnkeltUrl('UrlManglendeScanninger', Config.UrlManglendeScanninger, urlFejl);
2533      end;      end;
2534    
2535      // Tjekker UrlPakkeshopManglendeScanninger      // Tjekker UrlPakkeshopManglendeScanninger
2536      if PanelValg5.Enabled = true then      if PanelValg5.Enabled = true then
2537      begin      begin
2538        TjekkerEnkeltUrl('UrlPakkeshopManglendeScanninger', UrlPakkeshopManglendeScanninger, urlFejl);        TjekkerEnkeltUrl('UrlPakkeshopManglendeScanninger', Config.UrlPakkeshopManglendeScanninger, urlFejl);
2539      end;      end;
2540    
2541      // Tjekker UrlPakkeshopManglendeReturScanninger      // Tjekker UrlPakkeshopManglendeReturScanninger
2542      if PanelValg6.Enabled = true then      if PanelValg6.Enabled = true then
2543      begin      begin
2544        TjekkerEnkeltUrl('UrlPakkeshopManglendeReturScanninger', UrlPakkeshopManglendeReturScanninger, urlFejl);        TjekkerEnkeltUrl('UrlPakkeshopManglendeReturScanninger', Config.UrlPakkeshopManglendeReturScanninger, urlFejl);
2545      end;      end;
2546    
2547     // Tjekker UrlIndleveringsPakke og UrlIndleveringsPakkeManglendeScanninger     // Tjekker UrlIndleveringsPakke og UrlIndleveringsPakkeManglendeScanninger
2548      if PanelValg7.Enabled = true then      if PanelValg7.Enabled = true then
2549      begin      begin
2550        TjekkerEnkeltUrl('UrlIndleveringsPakke', UrlIndleveringsPakke, urlFejl);        TjekkerEnkeltUrl('UrlIndleveringsPakke', Config.UrlIndleveringsPakke, urlFejl);
2551        TjekkerEnkeltUrl('UrlIndleveringsPakkeManglendeScanninger', UrlIndleveringsPakkeManglendeScanninger, urlFejl);        TjekkerEnkeltUrl('UrlIndleveringsPakkeManglendeScanninger', Config.UrlIndleveringsPakkeManglendeScanninger, urlFejl);
2552      end;      end;
2553    
2554      // Tjekker UrlEKLoverforsel      // Tjekker UrlEKLoverforsel
2555      if PanelValg1.Enabled = true then      if PanelValg1.Enabled = true then
2556      begin      begin
2557        TjekkerEnkeltUrl('UrlEKLoverforsel', UrlEKLoverforsel, urlFejl);        TjekkerEnkeltUrl('UrlEKLoverforsel', Config.UrlEKLoverforsel, urlFejl);
2558      end;      end;
2559    
2560    
2561      // Tjekker UrlEKLoverforselPakkeshop      // Tjekker UrlEKLoverforselPakkeshop
2562      if PanelValg5.Enabled = true then      if PanelValg5.Enabled = true then
2563      begin      begin
2564        TjekkerEnkeltUrl('UrlEKLoverforselPakkeshop', UrlEKLoverforselPakkeshop, urlFejl);        TjekkerEnkeltUrl('UrlEKLoverforselPakkeshop', Config.UrlEKLoverforselPakkeshop, urlFejl);
2565      end;      end;
2566    
2567    
2568      // Tjekker UrlFindPakketype      // Tjekker UrlFindPakketype
2569      TjekkerEnkeltUrl('UrlFindPakketype', UrlFindPakketype, urlFejl);      TjekkerEnkeltUrl('UrlFindPakketype', Config.UrlFindPakketype, urlFejl);
2570    
2571      // Tjekker UrlSendPrograminfo      // Tjekker UrlSendPrograminfo
2572      TjekkerEnkeltUrl('UrlSendPrograminfo', UrlSendPrograminfo, urlFejl);      TjekkerEnkeltUrl('UrlSendPrograminfo', Config.UrlSendPrograminfo, urlFejl);
2573    
2574    
2575    
# Line 2724  begin Line 2578  begin
2578      SkrivScanningLogFil(logTekst);      SkrivScanningLogFil(logTekst);
2579    
2580    Except    Except
2581      TjekUrls := '-';   // markerer at der var fejl      Config.TjekUrls := '-';   // markerer at der var fejl
2582    
2583    end;    end;
2584  end;  end;
# Line 2744  begin Line 2598  begin
2598      inc(urlFejl);   // Optæller antal fejl      inc(urlFejl);   // Optæller antal fejl
2599      logTekst := UrlNavn + ' svarer ikke: ' + Url;      logTekst := UrlNavn + ' svarer ikke: ' + Url;
2600      ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);      ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
2601      if TjekUrls = '1' then      if Config.TjekUrls = '1' then
2602      begin      begin
2603        logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';        logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
2604      end;      end;
2605    
2606      SkrivScanningLogFil(logTekst);      SkrivScanningLogFil(logTekst);
2607    
2608      if TjekUrls = '1' then      if Config.TjekUrls = '1' then
2609      begin      begin
2610        ShowMessage(logTekst);        ShowMessage(logTekst);
2611        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
2612        Application.Terminate;        Application.Terminate;
2613    
2614        raise Exception.Create('UrlFejl');        raise Exception.Create('UrlFejl');
# Line 2835  begin Line 2689  begin
2689    if BoghandlerNavnST.Caption = 'Fejl i forbindelse til server' then    if BoghandlerNavnST.Caption = 'Fejl i forbindelse til server' then
2690    begin    begin
2691       ShowMessage('Programmet afbrydes...');       ShowMessage('Programmet afbrydes...');
2692       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
2693       Application.Terminate;       Application.Terminate;
2694       exit;       exit;
2695    end;    end;
# Line 2937  var Line 2791  var
2791    Leveringssted : String;    Leveringssted : String;
2792    orgTjekUrls : String;    orgTjekUrls : String;
2793  begin  begin
2794    orgTjekUrls := TjekUrls;    orgTjekUrls := Config.TjekUrls;
2795    if (TjekUrls = '1') or (TjekUrls = '2') then    if (Config.TjekUrls = '1') or (Config.TjekUrls = '2') then
2796    begin    begin
2797      TjekkerUrls();      TjekkerUrls();
2798    end;    end;
2799    if TjekUrls = '-' then    if Config.TjekUrls = '-' then
2800    begin    begin
2801      //ShowMessage('Der var fejl i een eller flere urls - se logvinduet');      //ShowMessage('Der var fejl i een eller flere urls - se logvinduet');
2802      RuteNummer := '';      RuteNummer := '';
# Line 2951  begin Line 2805  begin
2805      Koreliste := '';      Koreliste := '';
2806      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');
2807      // Her kommer en alarm og rød skærm      // Her kommer en alarm og rød skærm
2808      PlaySound(PWideChar(AlarmLyd));      PlaySound(PWideChar(Config.AlarmLyd));
2809      MainForm.Color := clRed;      MainForm.Color := clRed;
2810      btnNulstil.Visible := true;      btnNulstil.Visible := true;
2811    end    end
# Line 2967  begin Line 2821  begin
2821      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);
2822      FocusControl(StregkodeST);      FocusControl(StregkodeST);
2823    end;    end;
2824    TjekUrls := orgTjekUrls;    Config.TjekUrls := orgTjekUrls;
2825    
2826  end;  end;
2827    
# Line 2992  begin Line 2846  begin
2846    begin    begin
2847      ShowMessage('Der er ikke installeret en printer på denne PC.');      ShowMessage('Der er ikke installeret en printer på denne PC.');
2848    end    end
2849    else if PrinterNavn = 'Ingen' then    else if Config.PrinterNavn = 'Ingen' then
2850    begin    begin
2851      ShowMessage('Der er fravalgt printer i dette program.');      ShowMessage('Der er fravalgt printer i dette program.');
2852    end    end
# Line 3003  begin Line 2857  begin
2857      DBKbane := '999';      DBKbane := '999';
2858      Leveringssted := 'XXX';      Leveringssted := 'XXX';
2859      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);
2860      LabelPrint.CheckPrintQue('Test', PrinterNavn);      LabelPrint.CheckPrintQue('Test', Config.PrinterNavn);
2861    end;    end;
2862    FocusControl(StregkodeST);    FocusControl(StregkodeST);
2863  end;  end;
2864    
2865  procedure TMainForm.Timer1Timer(Sender: TObject);  procedure TMainForm.Timer1Timer(Sender: TObject);
2866  begin  begin
2867    if (TjekPrinter = '1') then    if (Config.TjekPrinter = '1') then
2868    begin    begin
2869      LabelPrint.CheckPrintQue('Timer', PrinterNavn);      LabelPrint.CheckPrintQue('Timer', Config.PrinterNavn);
2870    end    end
2871    else    else
2872    begin    begin
# Line 3066  begin Line 2920  begin
2920      tekst := tekst+crlf+crlf;      tekst := tekst+crlf+crlf;
2921      tekst := tekst+crlf+crlf+'          **********  DETTE ER KUN EN TEST VERSION  **********';      tekst := tekst+crlf+crlf+'          **********  DETTE ER KUN EN TEST VERSION  **********';
2922      tekst := tekst+crlf+crlf;      tekst := tekst+crlf+crlf;
2923      tekst := tekst+crlf+crlf+'Url: '+url;      tekst := tekst+crlf+crlf+'Url: ' + Url;
2924    end;    end;
2925    
2926    MessageBox(Handle, PWideChar(tekst), 'Information', MB_OK);    MessageBox(Handle, PWideChar(tekst), 'Information', MB_OK);
# Line 3204  end; Line 3058  end;
3058    
3059  procedure TMainForm.InitNatxpresslevering();  procedure TMainForm.InitNatxpresslevering();
3060  begin  begin
3061        AutomatiskTjekkodeStyring1.Enabled := true;        menuAutomatiskTjekkodeStyring.Enabled := true;
3062        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3063        menuNatXpress1.Checked := true;        menuNatXpress1.Checked := true;
3064        InitForm(FarveNormal,TitelNormal,UrlNormal);        InitForm(Config.FarveNormal,Config.TitelNormal,Config.UrlNormal);
3065        PanelValg1.Color := clGreen;        PanelValg1.Color := clGreen;
3066        PanelValg1.Font.Color := clWhite;        PanelValg1.Font.Color := clWhite;
3067    
# Line 3218  begin Line 3072  begin
3072        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3073        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3074        Sprgefterboghandlernummer1.Enabled := true;        Sprgefterboghandlernummer1.Enabled := true;
3075        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3076        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3077        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3078        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3079        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3240  end; Line 3094  end;
3094    
3095  procedure TMainForm.InitReturFraDao();  procedure TMainForm.InitReturFraDao();
3096  begin  begin
3097        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3098        menuNatxpressReturDAO1.Checked := true;        menuNatxpressReturDAO1.Checked := true;
3099        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3100        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);        InitForm(Config.FarveReturDAO, Config.TitelReturDAO, Config.UrlReturDAO);
3101        PanelValg2.Color := clGreen;        PanelValg2.Color := clGreen;
3102        PanelValg2.Font.Color := clWhite;        PanelValg2.Font.Color := clWhite;
3103    
# Line 3254  begin Line 3108  begin
3108        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3109        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3110        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3111        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3112        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3113        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3114        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3115        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3271  end; Line 3125  end;
3125    
3126  procedure TMainForm.InitReturFraKunde();  procedure TMainForm.InitReturFraKunde();
3127  begin  begin
3128        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3129        menuNatxpressReturfraKunde1.Checked := true;        menuNatxpressReturfraKunde1.Checked := true;
3130        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3131        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);        InitForm(Config.FarveReturBoghandler, Config.TitelReturBoghandler, Config.UrlReturBoghandler);
3132        PanelValg3.Color := clGreen;        PanelValg3.Color := clGreen;
3133        PanelValg3.Font.Color := clWhite;        PanelValg3.Font.Color := clWhite;
3134    
# Line 3284  begin Line 3138  begin
3138        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3139        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3140        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3141        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3142        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3143        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3144        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3145        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3301  end; Line 3155  end;
3155    
3156  procedure TMainForm.InitDirektelevering();  procedure TMainForm.InitDirektelevering();
3157  begin  begin
3158        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3159        menuDaoDirekte1.Checked := true;        menuDaoDirekte1.Checked := true;
3160        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3161        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);        InitForm(Config.FarveBudlevering, Config.TitelBudlevering, Config.UrlBudlevering);
3162        PanelValg4.Color := clGreen;        PanelValg4.Color := clGreen;
3163        PanelValg4.Font.Color := clWhite;        PanelValg4.Font.Color := clWhite;
3164    
# Line 3315  begin Line 3169  begin
3169        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3170        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3171        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3172        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3173        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3174        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3175        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3176        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3341  end; Line 3195  end;
3195    
3196  procedure TMainForm.InitPakkeshoplevering();  procedure TMainForm.InitPakkeshoplevering();
3197  begin  begin
3198        AutomatiskTjekkodeStyring1.Enabled := true;        menuAutomatiskTjekkodeStyring.Enabled := true;
3199        menuPakkeshop1.Checked := true;        menuPakkeshop1.Checked := true;
3200        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3201        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);        InitForm(Config.FarvePakkeshoplevering, Config.TitelPakkeshoplevering, Config.UrlPakkeshoplevering);
3202        PanelValg5.Color := clGreen;        PanelValg5.Color := clGreen;
3203        PanelValg5.Font.Color := clWhite;        PanelValg5.Font.Color := clWhite;
3204    
# Line 3355  begin Line 3209  begin
3209        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3210        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3211        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3212        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3213        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3214        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3215        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3216        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3381  end; Line 3235  end;
3235    
3236  procedure TMainForm.InitReturFraPakkeshop();  procedure TMainForm.InitReturFraPakkeshop();
3237  begin  begin
3238        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3239        menuPakkeshopRetur1.Checked := true;        menuPakkeshopRetur1.Checked := true;
3240        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3241        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);        InitForm(Config.FarveReturPakkeshop, Config.TitelReturPakkeshop, Config.UrlReturPakkeshop);
3242        PanelValg6.Color := clGreen;        PanelValg6.Color := clGreen;
3243        PanelValg6.Font.Color := clWhite;        PanelValg6.Font.Color := clWhite;
3244    
# Line 3395  begin Line 3249  begin
3249        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3250        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3251        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3252        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3253        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3254        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3255        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3256        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3429  end; Line 3283  end;
3283  procedure TMainForm.InitIndleveringskode();  procedure TMainForm.InitIndleveringskode();
3284  begin  begin
3285        menuIndlevering.Checked := true;        menuIndlevering.Checked := true;
3286        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3287    
3288        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3289        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);        InitForm(Config.FarveIndlevering, Config.TitelIndlevering, Config.UrlReturPakkeshop);
3290        PanelValg7.Color := clGreen;        PanelValg7.Color := clGreen;
3291        PanelValg7.Font.Color := clWhite;        PanelValg7.Font.Color := clWhite;
3292    
# Line 3446  begin Line 3300  begin
3300    
3301    
3302    
3303        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3304        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3305        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3306        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3307        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3472  begin Line 3326  begin
3326  end;  end;
3327    
3328    
3329  procedure TMainForm.Storepakker1Click(Sender: TObject);  procedure TMainForm.menuStorePakkerClick(Sender: TObject);
3330  begin  begin
3331    InitStorPakke();    InitStorPakke();
3332  end;  end;
3333    
3334  procedure TMainForm.Smpakker1Click(Sender: TObject);  procedure TMainForm.menuSmaaPakkerClick(Sender: TObject);
3335  begin  begin
3336    InitLillePakke();    InitLillePakke();
3337  end;  end;
# Line 3485  end; Line 3339  end;
3339  procedure TMainForm.InitLillePakke();  procedure TMainForm.InitLillePakke();
3340  begin  begin
3341    radioLillePakke.Checked := true;    radioLillePakke.Checked := true;
3342    Smpakker1.Checked := true;    menuSmaaPakker.Checked := true;
3343  //  Stregkode := '';  //  Stregkode := '';
3344  end;  end;
3345    
3346  procedure TMainForm.InitStorPakke();  procedure TMainForm.InitStorPakke();
3347  begin  begin
3348    radioStorPakke.Checked := true;    radioStorPakke.Checked := true;
3349    Storepakker1.Checked := true;    menuStorePakker.Checked := true;
3350  // 20150310: start  // 20150310: start
3351  //  Stregkode := '';  //  Stregkode := '';
3352  // 20150310: slut  // 20150310: slut
# Line 3511  end; Line 3365  end;
3365    
3366  procedure TMainForm.Testlyd1Click(Sender: TObject);  procedure TMainForm.Testlyd1Click(Sender: TObject);
3367  begin  begin
3368     if AlarmLyd  <> '' then     if Config.AlarmLyd  <> '' then
3369     begin     begin
3370       PlaySound(PWideChar(AlarmLyd));       PlaySound(PWideChar(Config.AlarmLyd));
3371     end     end
3372     else     else
3373     begin     begin
# Line 3525  procedure TMainForm.Testlyd2Click(Sender Line 3379  procedure TMainForm.Testlyd2Click(Sender
3379  begin  begin
3380    if (PakkeshopText1.Caption = 'Tjekkode') then    if (PakkeshopText1.Caption = 'Tjekkode') then
3381    begin    begin
3382       if ScannetOkTilTjekkodeLyd  <> '' then       if Config.ScannetOkTilTjekkodeLyd  <> '' then
3383       begin       begin
3384         PlaySound(PWideChar(ScannetOkTilTjekkodeLyd));         PlaySound(PWideChar(Config.ScannetOkTilTjekkodeLyd));
3385       end       end
3386       else       else
3387       begin       begin
# Line 3536  begin Line 3390  begin
3390       exit;       exit;
3391    end;    end;
3392    
3393    if Smpakker1.Checked then    if menuSmaaPakker.Checked then
3394       if ScannetOkLyd  <> '' then       if Config.ScannetOkLyd  <> '' then
3395       begin       begin
3396         PlaySound(PWideChar(ScannetOkLyd));         PlaySound(PWideChar(Config.ScannetOkLyd));
3397       end       end
3398       else       else
3399       begin       begin
3400         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);
3401       end;       end;
3402    if Storepakker1.Checked then    if menuStorePakker.Checked then
3403       if ScannetOkStorLyd  <> '' then       if Config.ScannetOkStorLyd  <> '' then
3404       begin       begin
3405         PlaySound(PWideChar(ScannetOkStorLyd));         PlaySound(PWideChar(Config.ScannetOkStorLyd));
3406       end       end
3407       else       else
3408       begin       begin
# Line 3585  begin Line 3439  begin
3439      logTekst := 'Overfører de scannede pakker til EKL';      logTekst := 'Overfører de scannede pakker til EKL';
3440      SkrivScanningLogFil(logTekst);      SkrivScanningLogFil(logTekst);
3441      StedKode := Sted;      StedKode := Sted;
3442      URLStr := Format(UrlEKLoverforsel,[StedKode,Sted]);      URLStr := Format(Config.UrlEKLoverforsel,[StedKode,Sted]);
3443    
3444      if PanelValg5.Color = clGreen then      if PanelValg5.Color = clGreen then
3445      begin      begin
3446        URLStr := Format(UrlEKLoverforselPakkeshop,[StedKode,Sted]);        URLStr := Format(Config.UrlEKLoverforselPakkeshop,[StedKode,Sted]);
3447      end;      end;
3448    
3449    
# Line 3649  begin Line 3503  begin
3503      // Hvis der var fejl i overførslen skal dette fejlmeldes her      // Hvis der var fejl i overførslen skal dette fejlmeldes her
3504      if status = 'Fejl' then      if status = 'Fejl' then
3505      begin   // Her skal komme en alarm og rød skærm      begin   // Her skal komme en alarm og rød skærm
3506         PlaySound(PWideChar(AlarmLyd));         PlaySound(PWideChar(Config.AlarmLyd));
3507         MainForm.Color := clRed;         MainForm.Color := clRed;
3508         RutenummerST.Caption := 'EKL overførsel';         RutenummerST.Caption := 'EKL overførsel';
3509         BoghandlerNavnST.Caption := 'Fejl:';         BoghandlerNavnST.Caption := 'Fejl:';
# Line 4203  var Line 4057  var
4057    I: Integer;    I: Integer;
4058    stregkode, modtagernavn, modtageradresse, kommentar : string;    stregkode, modtagernavn, modtageradresse, kommentar : string;
4059    pakketype, tjekkodestatus : String;    pakketype, tjekkodestatus : String;
4060    pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer;    antalLiniefelter, antalFelterFundet, linienr : Integer;
4061    //pakketyper : TStrings;    //pakketyper : TStrings;
4062    pakketyper : TDictionary<String, Integer>;    pakketyper : TDictionary<String, Integer>;
4063    tmpAntal : Integer;    tmpAntal : Integer;
4064    
4065     time, timeSamlet : TTimingHelper;
4066    
4067    
4068    antlin : Integer;    antlin : Integer;
# Line 4243  var Line 4098  var
4098    
4099      if (Scanningtype = '7') then      if (Scanningtype = '7') then
4100       begin       begin
4101        URLStr := Format(UrlIndleveringsPakkeManglendeScanninger, [StedKode]);        URLStr := Format(Config.UrlIndleveringsPakkeManglendeScanninger, [StedKode]);
4102       end       end
4103      else if (Scanningtype = '6') then      else if (Scanningtype = '6') then
4104       begin       begin
4105        URLStr := Format(UrlPakkeshopManglendeReturScanninger, [StedKode]);        URLStr := Format(Config.UrlPakkeshopManglendeReturScanninger, [StedKode]);
4106       end       end
4107      else if (Scanningtype = '5') then      else if (Scanningtype = '5') then
4108       begin       begin
4109        URLStr := Format(UrlPakkeshopManglendeScanninger, [StedKode]);        URLStr := Format(Config.UrlPakkeshopManglendeScanninger, [StedKode]);
4110       end       end
4111      else if (Scanningtype = '1') then      else if (Scanningtype = '1') then
4112       begin       begin
4113        URLStr := Format(UrlManglendeScanninger,[StedKode,'B2']);        URLStr := Format(Config.UrlManglendeScanninger,[StedKode,'B2']);
4114       end       end
4115      else if (Scanningtype = '4') then      else if (Scanningtype = '4') then
4116       begin       begin
4117        URLStr := Format(UrlManglendeScanninger,[StedKode,'A2']);    // Budleveringer        URLStr := Format(Config.UrlManglendeScanninger,[StedKode,'A2']);    // Budleveringer
4118       end       end
4119      else      else
4120       begin       begin
# Line 4267  var Line 4122  var
4122       end;       end;
4123  // 20150310: slut  // 20150310: slut
4124    
4125        time := TTimingHelper.create();        //DEBUG
4126        timeSamlet := TTimingHelper.create();        //DEBUG
4127    
4128      try      try
4129      //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST      //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST
4130  //    URLStr := string(Utf8Encode(URLStr));  //    URLStr := string(Utf8Encode(URLStr));
# Line 4289  var Line 4147  var
4147        end;        end;
4148      end;      end;
4149      try      try
4150          time.stop('HTTP Load');     //DEBUG
4151    
4152        XMLDocument1.LoadFromXML(WebSvar);        XMLDocument1.LoadFromXML(WebSvar);
4153    
4154          time.stop('XML Load');     //DEBUG
4155    
4156    
4157    
4158    
4159    
4160    
4161        antlin := 0;        antlin := 0;
4162        antlinIdag := 0;        antlinIdag := 0;
# Line 4333  var Line 4199  var
4199        SetLength(stregkoderMedTjekkodeArray, 0);    // reset fra tidligere brug        SetLength(stregkoderMedTjekkodeArray, 0);    // reset fra tidligere brug
4200        SetLength(stregkoderMedTjekkodeArray, antlin);  // sæt antal elementer i array        SetLength(stregkoderMedTjekkodeArray, antlin);  // sæt antal elementer i array
4201    
4202          time.stop('Antal Linier');//DEBUG
4203    
4204        Application.Processmessages; //Ugly Hack to improve User Experience when switching modes        Application.Processmessages; //Ugly Hack to improve User Experience when switching modes
4205    
# Line 4418  var Line 4285  var
4285        end;        end;
4286    
4287    
4288          time.stop('Fyld Listbox2');//DEBUG
4289    
4290    
4291        Application.Processmessages; //Ugly Hack to improve User Experience when switching modes        Application.Processmessages; //Ugly Hack to improve User Experience when switching modes
4292    
4293    
# Line 4537  var Line 4407  var
4407        end;        end;
4408      end;      end;
4409    
4410        time.stop('Done');//DEBUG
4411        timeSamlet.stop('SamletTid');//DEBUG
4412    
4413    
4414  end;  end;
4415    
4416  procedure TMainForm.IndlesScanningLogFil();  procedure TMainForm.IndlesScanningLogFil();
# Line 4712  begin Line 4586  begin
4586          ListBox1.Items.Insert(0,TimeToStr(now) + ': ' +'Fandt ingen linier til '+imorgenYmd+'.');          ListBox1.Items.Insert(0,TimeToStr(now) + ': ' +'Fandt ingen linier til '+imorgenYmd+'.');
4587          logTekst := 'Fandt ingen linier til '+imorgenYmd+'.';          logTekst := 'Fandt ingen linier til '+imorgenYmd+'.';
4588          SkrivScanningLogFil(logTekst);          SkrivScanningLogFil(logTekst);
4589          PlaySound(PWideChar(AlarmLyd));          PlaySound(PWideChar(Config.AlarmLyd));
4590        end;        end;
4591      end;      end;
4592    end    end
# Line 4721  begin Line 4595  begin
4595        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Ruteskift fil '+filnavn+' findes ikke.');        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Ruteskift fil '+filnavn+' findes ikke.');
4596        logTekst := 'Ruteskift fil '+filnavn+' findes ikke.';        logTekst := 'Ruteskift fil '+filnavn+' findes ikke.';
4597        SkrivScanningLogFil(logTekst);        SkrivScanningLogFil(logTekst);
4598        PlaySound(PWideChar(AlarmLyd));        PlaySound(PWideChar(Config.AlarmLyd));
4599    end;    end;
4600  end;  end;
4601    
# Line 4792  begin Line 4666  begin
4666          ListBox1.Items.Insert(0,TimeToStr(now) + ': ' +'Fandt ingen linier til '+imorgenYmd+'.');          ListBox1.Items.Insert(0,TimeToStr(now) + ': ' +'Fandt ingen linier til '+imorgenYmd+'.');
4667          logTekst := 'Fandt ingen linier til '+imorgenYmd+'.';          logTekst := 'Fandt ingen linier til '+imorgenYmd+'.';
4668          SkrivScanningLogFil(logTekst);          SkrivScanningLogFil(logTekst);
4669          PlaySound(PWideChar(AlarmLyd));          PlaySound(PWideChar(Config.AlarmLyd));
4670        end;        end;
4671      end;      end;
4672    end    end
# Line 4801  begin Line 4675  begin
4675        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Kontrol fil '+filnavn+' findes ikke.');        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Kontrol fil '+filnavn+' findes ikke.');
4676        logTekst := 'Kontrol fil '+filnavn+' findes ikke.';        logTekst := 'Kontrol fil '+filnavn+' findes ikke.';
4677        SkrivScanningLogFil(logTekst);        SkrivScanningLogFil(logTekst);
4678        PlaySound(PWideChar(AlarmLyd));        PlaySound(PWideChar(Config.AlarmLyd));
4679    end;    end;
4680  end;  end;
4681    
# Line 4859  procedure TMainForm.VisAlarmSkaerm(strMe Line 4733  procedure TMainForm.VisAlarmSkaerm(strMe
4733  begin  begin
4734    //ShowMessage('Ændring ikke tilladt');    //ShowMessage('Ændring ikke tilladt');
4735    // Her skal komme en 'rød skærm' alarm    // Her skal komme en 'rød skærm' alarm
4736    PlaySound(PWideChar(AlarmLyd));    PlaySound(PWideChar(Config.AlarmLyd));
4737    MainForm.Color := clRed;    MainForm.Color := clRed;
4738    
4739    
Legend:
Removed from v.3054  
changed lines
  Added in v.3090
  ViewVC Help
Powered by ViewVC 1.1.20