/[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 3096 by torben, Sun Aug 21 21:56:01 2016 UTC
# Line 20  uses Line 20  uses
20    IdExplicitTLSClientServerBase, IdFTP, IdException,    IdExplicitTLSClientServerBase, IdFTP, IdException,
21    ShellApi, ClipBrd, Buttons, wininet,    ShellApi, ClipBrd, Buttons, wininet,
22    UITypes,    UITypes,
23    PakkeshopLabels,    LabelData,
24    Utils,    Utils,
25    ParentForm,    ParentForm,
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 200  type Line 202  type
202    procedure LogMessage( msg : string);    procedure LogMessage( msg : string);
203    procedure SetPrinterstatusText( txt: string; alert: boolean);    procedure SetPrinterstatusText( txt: string; alert: boolean);
204    function GetFormObject() : TForm;    function GetFormObject() : TForm;
205      function GetXMLDocument() : TXMLDocument;
206    
207    
208    
# Line 209  type Line 212  type
212      SkrivLog : String;      SkrivLog : String;
213      Sted : String;      Sted : String;
214      StedNavn : String;      StedNavn : String;
     Url, UrlNormal, UrlReturDAO, UrlReturBoghandler, UrlBudlevering, UrlManglendeScanninger, UrlPakkeshoplevering,  
             UrlReturPakkeshop, UrlPakkeshopManglendeScanninger, UrlPakkeshopManglendeReturScanninger,UrlIndleveringsPakke,  
             UrlIndleveringsPakkeManglendeScanninger,UrlEKLoverforsel, URLOmdirigerTilPakkeshop : String;  
215    
216      UrlEKLoverforselPakkeshop : String;      Scanningtype,  Pakketype : String;
217    
     UrlFindPakketype, UrlSendPrograminfo: String;  
     Scanningtype, TestFunktionen, Pakketype, SporgEfterBoghandler : String;  
     ScanTjekkode : String;  
     ScanTjekkodeAutomatik : string;  
218    
219      Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop,      Url : String;
           FarveIndlevering : String;  
220    
221      Titel, TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop,      Farve : String;
           TitelIndlevering : String;  
222    
223      AlarmLyd : String;      Titel : String;
     ScannetOkLyd : String;  
     ScannetOkStorLyd : String;  
224    
     ScannetOkTilTjekkodeLyd : String;  
225    
     PrinterNavn : String;  
     TjekPrinter : String;  
226    
227      Org_RuteNummerST, Org_BoghandlerNavnST, Org_KommentarST : String;      Org_RuteNummerST, Org_BoghandlerNavnST, Org_KommentarST : String;
228      BladhusSted : Integer;      BladhusSted : Integer;
# Line 246  type Line 235  type
235      logTekst : string;      logTekst : string;
236      PakkeshopStregkode, PakkeshopTjekkode : String;      PakkeshopStregkode, PakkeshopTjekkode : String;
237      BoghandlerStregkode, BoghandlerTjekkode : String;      BoghandlerStregkode, BoghandlerTjekkode : String;
238      TjekUrls : String;  
239      Config : TConfiguration;      Config : TConfiguration;
240    
241    
# Line 263  type Line 252  type
252      procedure SkrivScanningLogFil(var tekst : string);      procedure SkrivScanningLogFil(var tekst : string);
253      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;
254      procedure VisAlarmSkaerm(strMessage: string);      procedure VisAlarmSkaerm(strMessage: string);
255      function InjectURL(Url : String) : String;  
256    
257    public    public
258      { Public declarations }      { Public declarations }
# Line 417  begin Line 406  begin
406    
407      if (Scanningtype = '1') or (Scanningtype = '5') then      if (Scanningtype = '1') or (Scanningtype = '5') then
408      begin      begin
409        if (ScanTjekkode = '1') then        if (Config.ScanTjekkode = '1') then
410        begin        begin
411          chkScanTjekkode.Checked := true;          chkScanTjekkode.Checked := true;
412          chkScanTjekkode.Enabled := true;          chkScanTjekkode.Enabled := true;
# Line 431  begin Line 420  begin
420        end;        end;
421      end;      end;
422    
423      if Automatisktjekkodestyring1.Checked then      if menuAutomatiskTjekkodeStyring.Checked then
424      begin      begin
425        chkScanTjekkode.Enabled := false;        chkScanTjekkode.Enabled := false;
426        Scanogstjekkoden1.Enabled := false;        Scanogstjekkoden1.Enabled := false;
# Line 489  begin Line 478  begin
478    StregkodeST.Caption := Stregkode;    StregkodeST.Caption := Stregkode;
479  end;  end;
480    
481  procedure TMainForm.Automatisktjekkodestyring1Click(Sender: TObject);  procedure TMainForm.menuAutomatiskTjekkodeStyringClick(Sender: TObject);
482  begin  begin
483    if Automatisktjekkodestyring1.Checked then    if menuAutomatiskTjekkodeStyring.Checked then
484    begin    begin
485       chkScanTjekkode.Enabled := false;       chkScanTjekkode.Enabled := false;
486       Scanogstjekkoden1.Enabled := false;       Scanogstjekkoden1.Enabled := false;
# Line 513  begin Line 502  begin
502       PanelValgA.Font.Color := clWhite;       PanelValgA.Font.Color := clWhite;
503  end;  end;
504    
 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());  
505    
   Result := Url;  
 end;  
506    
507  //InitForm kaldes før FormCreate  //InitForm kaldes før FormCreate
508  procedure TMainForm.FormCreate(Sender: TObject);  procedure TMainForm.FormCreate(Sender: TObject);
# Line 558  begin Line 539  begin
539    
540  // Sætter lige en default panel størrelse  // Sætter lige en default panel størrelse
541    MainForm.ClientWidth := 1000;    MainForm.ClientWidth := 1000;
542    MainForm.ClientHeight := 750;    MainForm.ClientHeight := 920;
543    
544    Config := TConfiguration.Create();    Config := TConfiguration.Create();
545    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 554  begin
554      Sted := ReadString('Settings','Sted','');      Sted := ReadString('Settings','Sted','');
555      StedNavn := ReadString('Settings','Stednavn','');      StedNavn := ReadString('Settings','Stednavn','');
556    
557      UrlFindPakketype := ReadString('Settings','UrlFindPakketype','http://omdeling.info/webservices/bogpakkekontrol/FindPakketype.php?stregkode=%s');      Scanningtype := 'A'; //hardcoded
558      UrlFindPakketype := InjectURL(UrlFindPakketype);      Pakketype := '0';
   
     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);  
   
   
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');  
560    
     FarveReturPakkeshop := ReadString('Settings','FarveReturPakkeshop','99FFCC');  
     TitelReturPakkeshop := ReadString('Settings','TitelReturPakkeshop','Returforsendelse fra pakkeshop');  
561    
     FarveIndlevering := ReadString('Settings', 'FarveIndlevering', 'E5B2CB');  
     TitelIndlevering := ReadString('Settings', 'TitelIndlevering', 'Indleveringskode');  
562    
563    
     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');  
   
564      if (SkrivLog = '1') then      if (SkrivLog = '1') then
565      begin      begin
566        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 587  begin
587    
588    
589    
590      if SporgEfterBoghandler = '1' then      if Config.SporgEfterBoghandler = '1' then
591      begin      begin
592        chkSporgEfterKunde.Checked := true;        chkSporgEfterKunde.Checked := true;
593        Sprgefterboghandlernummer1.Checked := true;        Sprgefterboghandlernummer1.Checked := true;
# Line 694  begin Line 598  begin
598        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
599      end;      end;
600    
601      if ScanTjekkode = '1' then      if Config.ScanTjekkode = '1' then
602      begin      begin
603        chkScanTjekkode.Checked := true;        chkScanTjekkode.Checked := true;
604        Scanogstjekkoden1.Checked := true;        Scanogstjekkoden1.Checked := true;
# Line 705  begin Line 609  begin
609        Scanogstjekkoden1.Checked := false;        Scanogstjekkoden1.Checked := false;
610      end;      end;
611    
612      if ScanTjekkodeAutomatik = '1' then      if Config.ScanTjekkodeAutomatik = '1' then
613      begin      begin
614        Automatisktjekkodestyring1.Checked := true;        menuAutomatiskTjekkodeStyring.Checked := true;
615        chkScanTjekkode.Enabled := false;        chkScanTjekkode.Enabled := false;
616        Scanogstjekkoden1.Enabled := false;        Scanogstjekkoden1.Enabled := false;
617      end;      end;
# Line 841  begin Line 745  begin
745    
746      if SpecialVersionSted = 'DBK' then      if SpecialVersionSted = 'DBK' then
747      begin      begin
       //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil  
748        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;  
749      end;      end;
750    
751      if (SpecialVersionSted = '01')      if (SpecialVersionSted = '01')
# Line 977  begin Line 854  begin
854          Application.Terminate;          Application.Terminate;
855      end;      end;
856    
857      if TjekUrls = '1' then    // Tjekker urls      if Config.TjekUrls = '1' then    // Tjekker urls
858      begin      begin
859          TjekkerUrls();          TjekkerUrls();
860          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
861          begin          begin
862             PlaySound(PWideChar(AlarmLyd));             PlaySound(PWideChar(Config.AlarmLyd));
863             MainForm.Color := clRed;             MainForm.Color := clRed;
864             RutenummerST.Caption := '';             RutenummerST.Caption := '';
865             BoghandlerNavnST.Caption := 'Fejl i urls';             BoghandlerNavnST.Caption := 'Fejl i urls';
# Line 1029  begin Line 906  begin
906    
907      if Pakketype = '1' then      if Pakketype = '1' then
908      begin      begin
909        Storepakker1.Checked := true;        menuStorePakker.Checked := true;
910        radioStorPakke.Checked := true;        radioStorPakke.Checked := true;
911      end      end
912      else      else
913      begin      begin
914        Smpakker1.Checked := true;        menuSmaaPakker.Checked := true;
915        radioLillePakke.Checked := true;        radioLillePakke.Checked := true;
916      end;      end;
917    
918      if TestFunktionen = '1' then      if Config.TestFunktionen = '1' then
919      begin      begin
920        Testforbindelsen1.Visible := true;        Testforbindelsen1.Visible := true;
921        Testprinter1.Visible := true;        Testprinter1.Visible := true;
922        Testlyd1.Visible := true;        Testlyd1.Visible := true;
923        Testlyd2.Visible := true;        Testlyd2.Visible := true;
924      end      end
925      else if TestFunktionen = '2' then      else if Config.TestFunktionen = '2' then
926      begin      begin
927        Testforbindelsen1.Enabled := false;        Testforbindelsen1.Enabled := false;
928        Testprinter1.Enabled := false;        Testprinter1.Enabled := false;
# Line 1060  begin Line 937  begin
937        Testlyd2.Visible := false;        Testlyd2.Visible := false;
938      end;      end;
939    
     if not FileExists(AlarmLyd) then  
     begin  
       AlarmLyd := '';  
     end;  
   
     if not FileExists(ScannetOkLyd) then  
     begin  
       ScannetOkLyd := '';  
     end;  
   
     if not FileExists(ScannetOkStorLyd) then  
     begin  
       ScannetOkStorLyd := '';  
     end;  
   
940    
     if not FileExists(ScannetOkTilTjekkodeLyd) then  
     begin  
       ScannetOkTilTjekkodeLyd := '';  
     end;  
941    
942    
943    
944        LabelPrint := TLabelPrint.Create( self, Config, Config.PrinterNavn );
945      LabelPrint := TLabelPrint.Create( self, Config, PrinterNavn );      LabelPrint.CheckPrintQue('Opstart', Config.PrinterNavn);
     LabelPrint.CheckPrintQue('Opstart', PrinterNavn);  
946    
947    finally    finally
948      Free;      Free;
# Line 1097  begin Line 954  begin
954        menuNatxpressReturDAO1.Visible := false;        menuNatxpressReturDAO1.Visible := false;
955        menuNatxpressReturfraKunde1.Visible := false;        menuNatxpressReturfraKunde1.Visible := false;
956        menuDaoDirekte1.Visible := false;        menuDaoDirekte1.Visible := false;
957        Storepakker1.Visible := false;        menuStorePakker.Visible := false;
958        Smpakker1.Visible := false;        menuSmaaPakker.Visible := false;
959        Testprinter1.Visible := false;        Testprinter1.Visible := false;
960        menuPakkeshop1.Visible := false;        menuPakkeshop1.Visible := false;
961        menuPakkeshopRetur1.Visible := false;        menuPakkeshopRetur1.Visible := false;
# Line 1450  begin Line 1307  begin
1307      if (Length(Stregkode) > 8) then      if (Length(Stregkode) > 8) then
1308      begin      begin
1309        // Her skal vi så forespørge pakketype på serveren udfra stregkode feltet        // Her skal vi så forespørge pakketype på serveren udfra stregkode feltet
1310        URLStr := Format(UrlFindPakketype,[Stregkode]);        URLStr := Format(Config.UrlFindPakketype,[Stregkode]);
1311        try        try
1312          //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST          //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST
1313          WebSvar := IdHTTP1.Get(URLStr);          WebSvar := IdHTTP1.Get(URLStr);
# Line 1573  begin Line 1430  begin
1430        end;        end;
1431      end;      end;
1432    
1433        // EmballageRepareret skal bare sætte reklamationkoden,
1434        // og så ellers fortsætte med scanning som normalt
1435        if (chkEmballageRepareret.Checked = True) then
1436        begin
1437          URLStr := Format(Config.UrlEmballageRepareret,[Sted,Stregkode]);
1438          WebSvar := IdHTTP1.Get(URLStr);
1439          ShowMessage( WebSvar );
1440    
1441          chkEmballageRepareret.Checked := False;
1442        end;
1443    
1444    
1445    
1446      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and Automatisktjekkodestyring1.Checked then      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and menuAutomatiskTjekkodeStyring.Checked then
1447      begin      begin
1448        chkScanTjekkode.Checked := false;        chkScanTjekkode.Checked := false;
1449        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do
# Line 1619  begin Line 1487  begin
1487              BoghandlerStregkode := Stregkode;              BoghandlerStregkode := Stregkode;
1488              PakkeshopText1.Caption := 'Tjekkode';              PakkeshopText1.Caption := 'Tjekkode';
1489    
1490              PlaySound(PWideChar(ScannetOkTilTjekkodeLyd));              PlaySound(PWideChar(Config.ScannetOkTilTjekkodeLyd));
1491    
1492             end             end
1493            else            else
# Line 1637  begin Line 1505  begin
1505             BoghandlerTjekkode := Stregkode;             BoghandlerTjekkode := Stregkode;
1506             PakkeshopText1.Caption := 'Stregkode';             PakkeshopText1.Caption := 'Stregkode';
1507             if (menuPakkeshop1.Checked) then             if (menuPakkeshop1.Checked) then
1508                MainForm.Color := TUtils.HexToTColor(FarvePakkeshoplevering);                MainForm.Color := TUtils.HexToTColor(Config.FarvePakkeshoplevering);
1509             if (menuNatXpress1.Checked) then             if (menuNatXpress1.Checked) then
1510                MainForm.Color := TUtils.HexToTColor(FarveNormal);                MainForm.Color := TUtils.HexToTColor(Config.FarveNormal);
1511             btnNulstil.Visible := false;             btnNulstil.Visible := false;
1512           end           end
1513          else          else
# Line 1693  begin Line 1561  begin
1561              tjekkodemangler := pos('Tjekkode mangler', Kommentar);              tjekkodemangler := pos('Tjekkode mangler', Kommentar);
1562              if (pakkeErScannet > 0) or (pakkeForkertSted > 0) or (tjekkodemangler > 0) then              if (pakkeErScannet > 0) or (pakkeForkertSted > 0) or (tjekkodemangler > 0) then
1563              begin              begin
1564                PlaySound(PWideChar(AlarmLyd));                PlaySound(PWideChar(Config.AlarmLyd));
1565                btnNulstil.Visible := true;                btnNulstil.Visible := true;
1566                MainForm.Color := clRed;                MainForm.Color := clRed;
1567              end;              end;
# Line 1701  begin Line 1569  begin
1569            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
1570            begin            begin
1571              MainForm.Color := TUtils.HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1572              if Storepakker1.Checked then              if menuStorePakker.Checked then
1573              begin              begin
1574                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(Config.ScannetOkStorLyd));
1575              end              end
1576              else              else
1577              begin              begin
1578                PlaySound(PWideChar(ScannetOkLyd));                PlaySound(PWideChar(Config.ScannetOkLyd));
1579              end;              end;
1580              btnNulstil.Visible := false;              btnNulstil.Visible := false;
1581            end            end
1582            else if (menuNatxpressReturDAO1.Checked or menuNatxpressReturfraKunde1.Checked) then            else if (menuNatxpressReturDAO1.Checked or menuNatxpressReturfraKunde1.Checked) then
1583            begin            begin
1584              MainForm.Color := TUtils.HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1585              if Storepakker1.Checked then              if menuStorePakker.Checked then
1586              begin              begin
1587                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(Config.ScannetOkStorLyd));
1588              end              end
1589              else              else
1590              begin              begin
1591                PlaySound(PWideChar(ScannetOkLyd));                PlaySound(PWideChar(Config.ScannetOkLyd));
1592              end;              end;
1593              btnNulstil.Visible := false;              btnNulstil.Visible := false;
1594            end            end
# Line 1741  begin Line 1609  begin
1609    
1610              If (menuDaoDirekte1.Checked) then              If (menuDaoDirekte1.Checked) then
1611              begin              begin
1612                if Storepakker1.Checked then                if menuStorePakker.Checked then
1613                begin                begin
1614                  PlaySound(PWideChar(ScannetOkStorLyd));                  PlaySound(PWideChar(Config.ScannetOkStorLyd));
1615                end                end
1616                else                else
1617                begin                begin
1618                  PlaySound(PWideChar(ScannetOkLyd));                  PlaySound(PWideChar(Config.ScannetOkLyd));
1619                end;                end;
1620                InitLillePakke();                InitLillePakke();
1621              end;              end;
# Line 1801  var Line 1669  var
1669    WebSvar : String;    WebSvar : String;
1670    URLStr : String;    URLStr : String;
1671  begin  begin
1672    if UrlSendPrograminfo <> '' then    if Config.UrlSendPrograminfo <> '' then
1673    begin    begin
1674      URLStr := Format(UrlSendPrograminfo,[ExtractFileName(ParamStr(0)), Sted, Scanningtype, Infotype, Info]);      URLStr := Format(Config.UrlSendPrograminfo,[ExtractFileName(ParamStr(0)), Sted, Scanningtype, Infotype, Info]);
1675      try      try
1676        //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST        //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST
1677        WebSvar := IdHTTP1.Get(URLStr);        WebSvar := IdHTTP1.Get(URLStr);
# Line 1816  begin Line 1684  begin
1684        ShowMessage(logTekst);        ShowMessage(logTekst);
1685        SkrivScanningLogFil(logTekst);        SkrivScanningLogFil(logTekst);
1686        // 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
1687        UrlSendPrograminfo := '';        Config.UrlSendPrograminfo := '';
1688        Application.Terminate;        Application.Terminate;
1689      end;      end;
1690      end;      end;
# Line 1840  begin Line 1708  begin
1708        for i := ListBox2.items.count-1 downto 0 do        for i := ListBox2.items.count-1 downto 0 do
1709          if pos(StregKode,ListBox2.items[i]) <> 0 then          if pos(StregKode,ListBox2.items[i]) <> 0 then
1710          begin          begin
1711              wrkAntalSenere := 0;//initial Value
1712    
1713            // Ajourføring af tæller for manglende pakker (scanninger)            // Ajourføring af tæller for manglende pakker (scanninger)
1714            wrkAntal := StaticTextManglendePakker.Caption;            wrkAntal := StaticTextManglendePakker.Caption;
# Line 2015  begin Line 1884  begin
1884      02 :      02 :
1885            begin;    // BK            begin;    // BK
1886              Testprinter1.Visible := true;              Testprinter1.Visible := true;
1887              Smpakker1.Enabled := true;              menuSmaaPakker.Enabled := true;
1888              Storepakker1.Enabled := true;              menuStorePakker.Enabled := true;
1889              radioStorPakke.Enabled := true;              radioStorPakke.Enabled := true;
1890              radioLillePakke.Enabled := true;              radioLillePakke.Enabled := true;
1891              BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her
# Line 2053  begin Line 1922  begin
1922            end;            end;
1923      04 :  begin;           // DBK      04 :  begin;           // DBK
1924              Testprinter1.Visible := true;              Testprinter1.Visible := true;
1925              Smpakker1.Enabled := true;              menuSmaaPakker.Enabled := true;
1926              Storepakker1.Enabled := true;              menuStorePakker.Enabled := true;
1927              radioStorPakke.Enabled := true;              radioStorPakke.Enabled := true;
1928              radioLillePakke.Enabled := true;              radioLillePakke.Enabled := true;
1929              BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her
# Line 2075  var Line 1944  var
1944    pakkestorrelse : String;    pakkestorrelse : String;
1945    PrintNyLabelInteger : Integer;    PrintNyLabelInteger : Integer;
1946    
1947    PakkeshopLabel: TPakkeshopLabel;    PakkeshopLabel: TLabelData;
1948  begin  begin
1949    if radioStorPakke.Checked then    if radioStorPakke.Checked then
1950    begin    begin
# Line 2093  begin Line 1962  begin
1962       begin       begin
1963         BoghandlerTjekkode := '-1';         BoghandlerTjekkode := '-1';
1964       end;       end;
1965       URLStr := Format(UrlNormal,[Sted, PakkeNr, BoghandlerNummer, BoghandlerTjekkode]);       URLStr := Format(Config.UrlNormal,[Sted, PakkeNr, BoghandlerNummer, BoghandlerTjekkode]);
1966    end    end
1967    else if menuNatxpressReturDAO1.Checked then    else if menuNatxpressReturDAO1.Checked then
1968    begin    begin
1969       URLStr := Format(UrlReturDAO,[Sted, PakkeNr, BoghandlerNummer, 'DAO', pakkestorrelse]);       URLStr := Format(Config.UrlReturDAO,[Sted, PakkeNr, BoghandlerNummer, 'DAO', pakkestorrelse]);
1970    end    end
1971    else if menuNatxpressReturfraKunde1.Checked then    else if menuNatxpressReturfraKunde1.Checked then
1972    begin    begin
1973       URLStr := Format(UrlReturBoghandler,[Sted, PakkeNr, BoghandlerNummer, 'Boghandler', pakkestorrelse]);       URLStr := Format(Config.UrlReturBoghandler,[Sted, PakkeNr, BoghandlerNummer, 'Boghandler', pakkestorrelse]);
1974    end    end
1975    else if menuDaoDirekte1.Checked then    else if menuDaoDirekte1.Checked then
1976    begin    begin
1977       URLStr := Format(UrlBudlevering,[Sted, PakkeNr, 'bud', pakkestorrelse]);       URLStr := Format(Config.UrlBudlevering,[Sted, PakkeNr, 'bud', pakkestorrelse]);
1978    end    end
1979    else if menuPakkeshop1.Checked then    else if menuPakkeshop1.Checked then
1980    begin    begin
1981       URLStr := Format(UrlPakkeshoplevering,[Sted, PakkeNr, PakkeshopTjekkode]);       URLStr := Format(Config.UrlPakkeshoplevering,[Sted, PakkeNr, PakkeshopTjekkode]);
1982    end    end
1983    else if menuPakkeshopRetur1.Checked then    else if menuPakkeshopRetur1.Checked then
1984    begin    begin
1985       URLStr := Format(UrlReturPakkeshop,[Sted, PakkeNr]);       URLStr := Format(Config.UrlReturPakkeshop,[Sted, PakkeNr]);
1986    end    end
1987    else if menuIndlevering.Checked then    else if menuIndlevering.Checked then
1988    begin    begin
1989      URLStr := Format(UrlIndleveringsPakke,[Sted, PakkeNr]);      URLStr := Format(Config.UrlIndleveringsPakke,[Sted, PakkeNr]);
1990    end    end
1991    else    else
1992    begin    begin
# Line 2126  begin Line 1995  begin
1995    
1996    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
1997    begin    begin
1998      URLStr := Format(URLOmdirigerTilPakkeshop,[Sted, PakkeNr]);      URLStr := Format(Config.URLOmdirigerTilPakkeshop,[Sted, PakkeNr]);
1999    end;    end;
2000    
2001    try    try
# Line 2184  begin Line 2053  begin
2053       if (Kommentar = 'Ok') then       if (Kommentar = 'Ok') then
2054       begin       begin
2055         PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label         PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label
2056         PakkeshopLabel := TPakkeshopLabel.Create( XMLDocument1 ); //Opret struct og parse xml doc         PakkeshopLabel := TLabelData.Create( XMLDocument1 ); //Opret struct og parse xml doc
2057         RuteNummer := PakkeshopLabel.Koreliste + '  ->  ' +  PakkeshopLabel.PakkeshopTurid;         RuteNummer := PakkeshopLabel.Koreliste + '  ->  ' +  PakkeshopLabel.PakkeshopTurid;
2058         Stregkode := PakkeshopLabel.Stregkode;         Stregkode := PakkeshopLabel.Stregkode;
2059    
2060         LabelPrint.PrintPakkeshopLabel( PakkeshopLabel );         LabelPrint.PrintFuldPakkeLabel( PakkeshopLabel );
2061         chkForstorTilDirekte.Checked := false;         chkForstorTilDirekte.Checked := false;
2062    
2063       end;       end;
# Line 2233  begin Line 2102  begin
2102      begin      begin
2103        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then
2104        begin        begin
2105            Kommentar := Kommentar + ' Pakke burde være hos DAO Distribution';            Kommentar := Kommentar + ' Pakke burde være hos ' + Leveringssted;
2106            PrintNyLabel := False;            //PrintNyLabel := False; //ved fuld-daekning / X-ruter skal vi altid skrive label alligevel
2107        end;        end;
2108      end      end
2109      else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) then      else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) And (Leveringssted <> '') then
2110      begin      begin
2111         if (Leveringssted = 'E') and (Sted = 'DBK') then        Kommentar := Kommentar + ' Pakke burde være hos ' + Leveringssted;
2112         begin        //PrintNyLabel := False;  //ved fuld-daekning / X-ruter skal vi altid skrive label alligevel
           // Det er ok at DBK scanner pakker til E     (Schenker)  
        end  
        else  
        begin  
           Kommentar := Kommentar + ' Pakke burde være hos DAO Distribution';  
           PrintNyLabel := False;  
        end;  
2113      end;      end;
2114    except on e:exception do    except on e:exception do
2115      raise exception.CreateFmt('Fejl i XML-format: %s',[e.Message]);      raise exception.CreateFmt('Fejl i XML-format: %s',[e.Message]);
# Line 2392  begin Line 2254  begin
2254       begin       begin
2255          PrintNyLabel := false;          PrintNyLabel := false;
2256    
2257          PlaySound(PWideChar(AlarmLyd));          PlaySound(PWideChar(Config.AlarmLyd));
2258          MainForm.Color := clRed;          MainForm.Color := clRed;
2259          btnNulstil.Visible := true;          btnNulstil.Visible := true;
2260    
# Line 2412  begin Line 2274  begin
2274            logTekst := RightStr(List1Msg, Length(List1Msg)-10);            logTekst := RightStr(List1Msg, Length(List1Msg)-10);
2275            SkrivScanningLogFil(logTekst);            SkrivScanningLogFil(logTekst);
2276    
2277            if (PrinterNavn = 'Ingen') then            if (Config.PrinterNavn = 'Ingen') then
2278            begin            begin
2279               PrintNyLabel := false;               PrintNyLabel := false;
2280            end;            end;
2281    
2282            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
2283            begin            begin
2284              PlaySound(PWideChar(AlarmLyd));              PlaySound(PWideChar(Config.AlarmLyd));
2285              MainForm.Color := clRed;              MainForm.Color := clRed;
2286              btnNulstil.Visible := true;              btnNulstil.Visible := true;
2287            end;            end;
# Line 2445  begin Line 2307  begin
2307    
2308            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
2309            begin            begin
2310              PlaySound(PWideChar(AlarmLyd));              PlaySound(PWideChar(Config.AlarmLyd));
2311              MainForm.Color := clRed;              MainForm.Color := clRed;
2312              btnNulstil.Visible := true;              btnNulstil.Visible := true;
2313            end;            end;
# Line 2514  begin Line 2376  begin
2376    end    end
2377    else    else
2378    begin    begin
2379      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
2380      begin      begin
2381        logTekst := 'Printer label type ';        logTekst := 'Printer label type ';
2382        if (chkAltidPrintLabel.Checked) then        if (chkAltidPrintLabel.Checked) then
# Line 2543  end; Line 2405  end;
2405    
2406  procedure TMainForm.radioStorPakkeClick(Sender: TObject);  procedure TMainForm.radioStorPakkeClick(Sender: TObject);
2407  begin  begin
2408      Storepakker1.Checked := true;      menuStorePakker.Checked := true;
2409      radioStorPakke.Checked := true;      radioStorPakke.Checked := true;
2410  end;  end;
2411    
2412  procedure TMainForm.radioLillePakkeClick(Sender: TObject);  procedure TMainForm.radioLillePakkeClick(Sender: TObject);
2413  begin  begin
2414      Smpakker1.Checked := true;      menuSmaaPakker.Checked := true;
2415      radioLillePakke.Checked := true;      radioLillePakke.Checked := true;
2416  end;  end;
2417    
# Line 2639  begin Line 2501  begin
2501      // Tjekker UrlNormal      // Tjekker UrlNormal
2502      if PanelValg1.Enabled = true then      if PanelValg1.Enabled = true then
2503      begin      begin
2504        TjekkerEnkeltUrl('UrlNormal', UrlNormal, urlFejl);        TjekkerEnkeltUrl('UrlNormal', Config.UrlNormal, urlFejl);
2505      end;      end;
2506    
2507      // Tjekker UrlReturDAO      // Tjekker UrlReturDAO
2508      if PanelValg2.Enabled = true then      if PanelValg2.Enabled = true then
2509      begin      begin
2510        TjekkerEnkeltUrl('UrlReturDAO', UrlReturDAO, urlFejl);        TjekkerEnkeltUrl('UrlReturDAO', Config.UrlReturDAO, urlFejl);
2511      end;      end;
2512    
2513      // Tjekker UrlReturBoghandler      // Tjekker UrlReturBoghandler
2514      if PanelValg3.Enabled = true then      if PanelValg3.Enabled = true then
2515      begin      begin
2516        TjekkerEnkeltUrl('UrlReturBoghandler', UrlReturBoghandler, urlFejl);        TjekkerEnkeltUrl('UrlReturBoghandler', Config.UrlReturBoghandler, urlFejl);
2517      end;      end;
2518    
2519      // Tjekker UrlBudlevering      // Tjekker UrlBudlevering
2520      if PanelValg4.Enabled = true then      if PanelValg4.Enabled = true then
2521      begin      begin
2522        TjekkerEnkeltUrl('UrlBudlevering', UrlBudlevering, urlFejl);        TjekkerEnkeltUrl('UrlBudlevering', Config.UrlBudlevering, urlFejl);
2523      end;      end;
2524    
2525      // Tjekker UrlPakkeshoplevering      // Tjekker UrlPakkeshoplevering
2526      if PanelValg5.Enabled = true then      if PanelValg5.Enabled = true then
2527      begin      begin
2528        TjekkerEnkeltUrl('UrlPakkeshoplevering', UrlPakkeshoplevering, urlFejl);        TjekkerEnkeltUrl('UrlPakkeshoplevering', Config.UrlPakkeshoplevering, urlFejl);
2529      end;      end;
2530    
2531      // Tjekker UrlReturPakkeshop      // Tjekker UrlReturPakkeshop
2532      if PanelValg6.Enabled = true then      if PanelValg6.Enabled = true then
2533      begin      begin
2534        TjekkerEnkeltUrl('UrlReturPakkeshop', UrlReturPakkeshop, urlFejl);        TjekkerEnkeltUrl('UrlReturPakkeshop', Config.UrlReturPakkeshop, urlFejl);
2535      end;      end;
2536    
2537      // Tjekker UrlManglendeScanninger      // Tjekker UrlManglendeScanninger
2538      if (PanelValg1.Enabled = true) or (PanelValg4.Enabled = true) then      if (PanelValg1.Enabled = true) or (PanelValg4.Enabled = true) then
2539      begin      begin
2540        TjekkerEnkeltUrl('UrlManglendeScanninger', UrlManglendeScanninger, urlFejl);        TjekkerEnkeltUrl('UrlManglendeScanninger', Config.UrlManglendeScanninger, urlFejl);
2541      end;      end;
2542    
2543      // Tjekker UrlPakkeshopManglendeScanninger      // Tjekker UrlPakkeshopManglendeScanninger
2544      if PanelValg5.Enabled = true then      if PanelValg5.Enabled = true then
2545      begin      begin
2546        TjekkerEnkeltUrl('UrlPakkeshopManglendeScanninger', UrlPakkeshopManglendeScanninger, urlFejl);        TjekkerEnkeltUrl('UrlPakkeshopManglendeScanninger', Config.UrlPakkeshopManglendeScanninger, urlFejl);
2547      end;      end;
2548    
2549      // Tjekker UrlPakkeshopManglendeReturScanninger      // Tjekker UrlPakkeshopManglendeReturScanninger
2550      if PanelValg6.Enabled = true then      if PanelValg6.Enabled = true then
2551      begin      begin
2552        TjekkerEnkeltUrl('UrlPakkeshopManglendeReturScanninger', UrlPakkeshopManglendeReturScanninger, urlFejl);        TjekkerEnkeltUrl('UrlPakkeshopManglendeReturScanninger', Config.UrlPakkeshopManglendeReturScanninger, urlFejl);
2553      end;      end;
2554    
2555     // Tjekker UrlIndleveringsPakke og UrlIndleveringsPakkeManglendeScanninger     // Tjekker UrlIndleveringsPakke og UrlIndleveringsPakkeManglendeScanninger
2556      if PanelValg7.Enabled = true then      if PanelValg7.Enabled = true then
2557      begin      begin
2558        TjekkerEnkeltUrl('UrlIndleveringsPakke', UrlIndleveringsPakke, urlFejl);        TjekkerEnkeltUrl('UrlIndleveringsPakke', Config.UrlIndleveringsPakke, urlFejl);
2559        TjekkerEnkeltUrl('UrlIndleveringsPakkeManglendeScanninger', UrlIndleveringsPakkeManglendeScanninger, urlFejl);        TjekkerEnkeltUrl('UrlIndleveringsPakkeManglendeScanninger', Config.UrlIndleveringsPakkeManglendeScanninger, urlFejl);
2560      end;      end;
2561    
2562      // Tjekker UrlEKLoverforsel      // Tjekker UrlEKLoverforsel
2563      if PanelValg1.Enabled = true then      if PanelValg1.Enabled = true then
2564      begin      begin
2565        TjekkerEnkeltUrl('UrlEKLoverforsel', UrlEKLoverforsel, urlFejl);        TjekkerEnkeltUrl('UrlEKLoverforsel', Config.UrlEKLoverforsel, urlFejl);
2566      end;      end;
2567    
2568    
2569      // Tjekker UrlEKLoverforselPakkeshop      // Tjekker UrlEKLoverforselPakkeshop
2570      if PanelValg5.Enabled = true then      if PanelValg5.Enabled = true then
2571      begin      begin
2572        TjekkerEnkeltUrl('UrlEKLoverforselPakkeshop', UrlEKLoverforselPakkeshop, urlFejl);        TjekkerEnkeltUrl('UrlEKLoverforselPakkeshop', Config.UrlEKLoverforselPakkeshop, urlFejl);
2573      end;      end;
2574    
2575    
2576      // Tjekker UrlFindPakketype      // Tjekker UrlFindPakketype
2577      TjekkerEnkeltUrl('UrlFindPakketype', UrlFindPakketype, urlFejl);      TjekkerEnkeltUrl('UrlFindPakketype', Config.UrlFindPakketype, urlFejl);
2578    
2579      // Tjekker UrlSendPrograminfo      // Tjekker UrlSendPrograminfo
2580      TjekkerEnkeltUrl('UrlSendPrograminfo', UrlSendPrograminfo, urlFejl);      TjekkerEnkeltUrl('UrlSendPrograminfo', Config.UrlSendPrograminfo, urlFejl);
2581    
2582    
2583    
# Line 2724  begin Line 2586  begin
2586      SkrivScanningLogFil(logTekst);      SkrivScanningLogFil(logTekst);
2587    
2588    Except    Except
2589      TjekUrls := '-';   // markerer at der var fejl      Config.TjekUrls := '-';   // markerer at der var fejl
2590    
2591    end;    end;
2592  end;  end;
# Line 2744  begin Line 2606  begin
2606      inc(urlFejl);   // Optæller antal fejl      inc(urlFejl);   // Optæller antal fejl
2607      logTekst := UrlNavn + ' svarer ikke: ' + Url;      logTekst := UrlNavn + ' svarer ikke: ' + Url;
2608      ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);      ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
2609      if TjekUrls = '1' then      if Config.TjekUrls = '1' then
2610      begin      begin
2611        logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';        logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
2612      end;      end;
2613    
2614      SkrivScanningLogFil(logTekst);      SkrivScanningLogFil(logTekst);
2615    
2616      if TjekUrls = '1' then      if Config.TjekUrls = '1' then
2617      begin      begin
2618        ShowMessage(logTekst);        ShowMessage(logTekst);
2619        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
2620        Application.Terminate;        Application.Terminate;
2621    
2622        raise Exception.Create('UrlFejl');        raise Exception.Create('UrlFejl');
# Line 2835  begin Line 2697  begin
2697    if BoghandlerNavnST.Caption = 'Fejl i forbindelse til server' then    if BoghandlerNavnST.Caption = 'Fejl i forbindelse til server' then
2698    begin    begin
2699       ShowMessage('Programmet afbrydes...');       ShowMessage('Programmet afbrydes...');
2700       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
2701       Application.Terminate;       Application.Terminate;
2702       exit;       exit;
2703    end;    end;
# Line 2937  var Line 2799  var
2799    Leveringssted : String;    Leveringssted : String;
2800    orgTjekUrls : String;    orgTjekUrls : String;
2801  begin  begin
2802    orgTjekUrls := TjekUrls;    orgTjekUrls := Config.TjekUrls;
2803    if (TjekUrls = '1') or (TjekUrls = '2') then    if (Config.TjekUrls = '1') or (Config.TjekUrls = '2') then
2804    begin    begin
2805      TjekkerUrls();      TjekkerUrls();
2806    end;    end;
2807    if TjekUrls = '-' then    if Config.TjekUrls = '-' then
2808    begin    begin
2809      //ShowMessage('Der var fejl i een eller flere urls - se logvinduet');      //ShowMessage('Der var fejl i een eller flere urls - se logvinduet');
2810      RuteNummer := '';      RuteNummer := '';
# Line 2951  begin Line 2813  begin
2813      Koreliste := '';      Koreliste := '';
2814      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');
2815      // Her kommer en alarm og rød skærm      // Her kommer en alarm og rød skærm
2816      PlaySound(PWideChar(AlarmLyd));      PlaySound(PWideChar(Config.AlarmLyd));
2817      MainForm.Color := clRed;      MainForm.Color := clRed;
2818      btnNulstil.Visible := true;      btnNulstil.Visible := true;
2819    end    end
# Line 2967  begin Line 2829  begin
2829      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);
2830      FocusControl(StregkodeST);      FocusControl(StregkodeST);
2831    end;    end;
2832    TjekUrls := orgTjekUrls;    Config.TjekUrls := orgTjekUrls;
2833    
2834  end;  end;
2835    
# Line 2992  begin Line 2854  begin
2854    begin    begin
2855      ShowMessage('Der er ikke installeret en printer på denne PC.');      ShowMessage('Der er ikke installeret en printer på denne PC.');
2856    end    end
2857    else if PrinterNavn = 'Ingen' then    else if Config.PrinterNavn = 'Ingen' then
2858    begin    begin
2859      ShowMessage('Der er fravalgt printer i dette program.');      ShowMessage('Der er fravalgt printer i dette program.');
2860    end    end
# Line 3003  begin Line 2865  begin
2865      DBKbane := '999';      DBKbane := '999';
2866      Leveringssted := 'XXX';      Leveringssted := 'XXX';
2867      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);
2868      LabelPrint.CheckPrintQue('Test', PrinterNavn);      LabelPrint.CheckPrintQue('Test', Config.PrinterNavn);
2869    end;    end;
2870    FocusControl(StregkodeST);    FocusControl(StregkodeST);
2871  end;  end;
2872    
2873  procedure TMainForm.Timer1Timer(Sender: TObject);  procedure TMainForm.Timer1Timer(Sender: TObject);
2874  begin  begin
2875    if (TjekPrinter = '1') then    if (Config.TjekPrinter = '1') then
2876    begin    begin
2877      LabelPrint.CheckPrintQue('Timer', PrinterNavn);      LabelPrint.CheckPrintQue('Timer', Config.PrinterNavn);
2878    end    end
2879    else    else
2880    begin    begin
# Line 3066  begin Line 2928  begin
2928      tekst := tekst+crlf+crlf;      tekst := tekst+crlf+crlf;
2929      tekst := tekst+crlf+crlf+'          **********  DETTE ER KUN EN TEST VERSION  **********';      tekst := tekst+crlf+crlf+'          **********  DETTE ER KUN EN TEST VERSION  **********';
2930      tekst := tekst+crlf+crlf;      tekst := tekst+crlf+crlf;
2931      tekst := tekst+crlf+crlf+'Url: '+url;      tekst := tekst+crlf+crlf+'Url: ' + Url;
2932    end;    end;
2933    
2934    MessageBox(Handle, PWideChar(tekst), 'Information', MB_OK);    MessageBox(Handle, PWideChar(tekst), 'Information', MB_OK);
# Line 3204  end; Line 3066  end;
3066    
3067  procedure TMainForm.InitNatxpresslevering();  procedure TMainForm.InitNatxpresslevering();
3068  begin  begin
3069        AutomatiskTjekkodeStyring1.Enabled := true;        menuAutomatiskTjekkodeStyring.Enabled := true;
3070        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3071        menuNatXpress1.Checked := true;        menuNatXpress1.Checked := true;
3072        InitForm(FarveNormal,TitelNormal,UrlNormal);        InitForm(Config.FarveNormal,Config.TitelNormal,Config.UrlNormal);
3073        PanelValg1.Color := clGreen;        PanelValg1.Color := clGreen;
3074        PanelValg1.Font.Color := clWhite;        PanelValg1.Font.Color := clWhite;
3075    
# Line 3218  begin Line 3080  begin
3080        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3081        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3082        Sprgefterboghandlernummer1.Enabled := true;        Sprgefterboghandlernummer1.Enabled := true;
3083        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3084        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3085        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3086        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3087        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3240  end; Line 3102  end;
3102    
3103  procedure TMainForm.InitReturFraDao();  procedure TMainForm.InitReturFraDao();
3104  begin  begin
3105        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3106        menuNatxpressReturDAO1.Checked := true;        menuNatxpressReturDAO1.Checked := true;
3107        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3108        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);        InitForm(Config.FarveReturDAO, Config.TitelReturDAO, Config.UrlReturDAO);
3109        PanelValg2.Color := clGreen;        PanelValg2.Color := clGreen;
3110        PanelValg2.Font.Color := clWhite;        PanelValg2.Font.Color := clWhite;
3111    
# Line 3254  begin Line 3116  begin
3116        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3117        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3118        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3119        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3120        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3121        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3122        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3123        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3271  end; Line 3133  end;
3133    
3134  procedure TMainForm.InitReturFraKunde();  procedure TMainForm.InitReturFraKunde();
3135  begin  begin
3136        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3137        menuNatxpressReturfraKunde1.Checked := true;        menuNatxpressReturfraKunde1.Checked := true;
3138        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3139        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);        InitForm(Config.FarveReturBoghandler, Config.TitelReturBoghandler, Config.UrlReturBoghandler);
3140        PanelValg3.Color := clGreen;        PanelValg3.Color := clGreen;
3141        PanelValg3.Font.Color := clWhite;        PanelValg3.Font.Color := clWhite;
3142    
# Line 3284  begin Line 3146  begin
3146        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3147        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3148        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3149        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3150        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3151        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3152        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3153        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3301  end; Line 3163  end;
3163    
3164  procedure TMainForm.InitDirektelevering();  procedure TMainForm.InitDirektelevering();
3165  begin  begin
3166        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3167        menuDaoDirekte1.Checked := true;        menuDaoDirekte1.Checked := true;
3168        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3169        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);        InitForm(Config.FarveBudlevering, Config.TitelBudlevering, Config.UrlBudlevering);
3170        PanelValg4.Color := clGreen;        PanelValg4.Color := clGreen;
3171        PanelValg4.Font.Color := clWhite;        PanelValg4.Font.Color := clWhite;
3172    
# Line 3315  begin Line 3177  begin
3177        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3178        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3179        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3180        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3181        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3182        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3183        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3184        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3341  end; Line 3203  end;
3203    
3204  procedure TMainForm.InitPakkeshoplevering();  procedure TMainForm.InitPakkeshoplevering();
3205  begin  begin
3206        AutomatiskTjekkodeStyring1.Enabled := true;        menuAutomatiskTjekkodeStyring.Enabled := true;
3207        menuPakkeshop1.Checked := true;        menuPakkeshop1.Checked := true;
3208        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3209        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);        InitForm(Config.FarvePakkeshoplevering, Config.TitelPakkeshoplevering, Config.UrlPakkeshoplevering);
3210        PanelValg5.Color := clGreen;        PanelValg5.Color := clGreen;
3211        PanelValg5.Font.Color := clWhite;        PanelValg5.Font.Color := clWhite;
3212    
# Line 3355  begin Line 3217  begin
3217        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3218        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3219        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3220        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3221        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3222        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3223        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3224        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3381  end; Line 3243  end;
3243    
3244  procedure TMainForm.InitReturFraPakkeshop();  procedure TMainForm.InitReturFraPakkeshop();
3245  begin  begin
3246        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3247        menuPakkeshopRetur1.Checked := true;        menuPakkeshopRetur1.Checked := true;
3248        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3249        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);        InitForm(Config.FarveReturPakkeshop, Config.TitelReturPakkeshop, Config.UrlReturPakkeshop);
3250        PanelValg6.Color := clGreen;        PanelValg6.Color := clGreen;
3251        PanelValg6.Font.Color := clWhite;        PanelValg6.Font.Color := clWhite;
3252    
# Line 3395  begin Line 3257  begin
3257        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3258        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3259        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3260        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3261        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3262        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3263        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3264        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3429  end; Line 3291  end;
3291  procedure TMainForm.InitIndleveringskode();  procedure TMainForm.InitIndleveringskode();
3292  begin  begin
3293        menuIndlevering.Checked := true;        menuIndlevering.Checked := true;
3294        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3295    
3296        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3297        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);        InitForm(Config.FarveIndlevering, Config.TitelIndlevering, Config.UrlReturPakkeshop);
3298        PanelValg7.Color := clGreen;        PanelValg7.Color := clGreen;
3299        PanelValg7.Font.Color := clWhite;        PanelValg7.Font.Color := clWhite;
3300    
# Line 3446  begin Line 3308  begin
3308    
3309    
3310    
3311        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3312        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3313        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3314        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3315        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3472  begin Line 3334  begin
3334  end;  end;
3335    
3336    
3337  procedure TMainForm.Storepakker1Click(Sender: TObject);  procedure TMainForm.menuStorePakkerClick(Sender: TObject);
3338  begin  begin
3339    InitStorPakke();    InitStorPakke();
3340  end;  end;
3341    
3342  procedure TMainForm.Smpakker1Click(Sender: TObject);  procedure TMainForm.menuSmaaPakkerClick(Sender: TObject);
3343  begin  begin
3344    InitLillePakke();    InitLillePakke();
3345  end;  end;
# Line 3485  end; Line 3347  end;
3347  procedure TMainForm.InitLillePakke();  procedure TMainForm.InitLillePakke();
3348  begin  begin
3349    radioLillePakke.Checked := true;    radioLillePakke.Checked := true;
3350    Smpakker1.Checked := true;    menuSmaaPakker.Checked := true;
3351  //  Stregkode := '';  //  Stregkode := '';
3352  end;  end;
3353    
3354  procedure TMainForm.InitStorPakke();  procedure TMainForm.InitStorPakke();
3355  begin  begin
3356    radioStorPakke.Checked := true;    radioStorPakke.Checked := true;
3357    Storepakker1.Checked := true;    menuStorePakker.Checked := true;
3358  // 20150310: start  // 20150310: start
3359  //  Stregkode := '';  //  Stregkode := '';
3360  // 20150310: slut  // 20150310: slut
# Line 3511  end; Line 3373  end;
3373    
3374  procedure TMainForm.Testlyd1Click(Sender: TObject);  procedure TMainForm.Testlyd1Click(Sender: TObject);
3375  begin  begin
3376     if AlarmLyd  <> '' then     if Config.AlarmLyd  <> '' then
3377     begin     begin
3378       PlaySound(PWideChar(AlarmLyd));       PlaySound(PWideChar(Config.AlarmLyd));
3379     end     end
3380     else     else
3381     begin     begin
# Line 3525  procedure TMainForm.Testlyd2Click(Sender Line 3387  procedure TMainForm.Testlyd2Click(Sender
3387  begin  begin
3388    if (PakkeshopText1.Caption = 'Tjekkode') then    if (PakkeshopText1.Caption = 'Tjekkode') then
3389    begin    begin
3390       if ScannetOkTilTjekkodeLyd  <> '' then       if Config.ScannetOkTilTjekkodeLyd  <> '' then
3391       begin       begin
3392         PlaySound(PWideChar(ScannetOkTilTjekkodeLyd));         PlaySound(PWideChar(Config.ScannetOkTilTjekkodeLyd));
3393       end       end
3394       else       else
3395       begin       begin
# Line 3536  begin Line 3398  begin
3398       exit;       exit;
3399    end;    end;
3400    
3401    if Smpakker1.Checked then    if menuSmaaPakker.Checked then
3402       if ScannetOkLyd  <> '' then       if Config.ScannetOkLyd  <> '' then
3403       begin       begin
3404         PlaySound(PWideChar(ScannetOkLyd));         PlaySound(PWideChar(Config.ScannetOkLyd));
3405       end       end
3406       else       else
3407       begin       begin
3408         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);
3409       end;       end;
3410    if Storepakker1.Checked then    if menuStorePakker.Checked then
3411       if ScannetOkStorLyd  <> '' then       if Config.ScannetOkStorLyd  <> '' then
3412       begin       begin
3413         PlaySound(PWideChar(ScannetOkStorLyd));         PlaySound(PWideChar(Config.ScannetOkStorLyd));
3414       end       end
3415       else       else
3416       begin       begin
# Line 3585  begin Line 3447  begin
3447      logTekst := 'Overfører de scannede pakker til EKL';      logTekst := 'Overfører de scannede pakker til EKL';
3448      SkrivScanningLogFil(logTekst);      SkrivScanningLogFil(logTekst);
3449      StedKode := Sted;      StedKode := Sted;
3450      URLStr := Format(UrlEKLoverforsel,[StedKode,Sted]);      URLStr := Format(Config.UrlEKLoverforsel,[StedKode,Sted]);
3451    
3452      if PanelValg5.Color = clGreen then      if PanelValg5.Color = clGreen then
3453      begin      begin
3454        URLStr := Format(UrlEKLoverforselPakkeshop,[StedKode,Sted]);        URLStr := Format(Config.UrlEKLoverforselPakkeshop,[StedKode,Sted]);
3455      end;      end;
3456    
3457    
# Line 3649  begin Line 3511  begin
3511      // Hvis der var fejl i overførslen skal dette fejlmeldes her      // Hvis der var fejl i overførslen skal dette fejlmeldes her
3512      if status = 'Fejl' then      if status = 'Fejl' then
3513      begin   // Her skal komme en alarm og rød skærm      begin   // Her skal komme en alarm og rød skærm
3514         PlaySound(PWideChar(AlarmLyd));         PlaySound(PWideChar(Config.AlarmLyd));
3515         MainForm.Color := clRed;         MainForm.Color := clRed;
3516         RutenummerST.Caption := 'EKL overførsel';         RutenummerST.Caption := 'EKL overførsel';
3517         BoghandlerNavnST.Caption := 'Fejl:';         BoghandlerNavnST.Caption := 'Fejl:';
# Line 4203  var Line 4065  var
4065    I: Integer;    I: Integer;
4066    stregkode, modtagernavn, modtageradresse, kommentar : string;    stregkode, modtagernavn, modtageradresse, kommentar : string;
4067    pakketype, tjekkodestatus : String;    pakketype, tjekkodestatus : String;
4068    pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer;    antalLiniefelter, antalFelterFundet, linienr : Integer;
4069    //pakketyper : TStrings;    //pakketyper : TStrings;
4070    pakketyper : TDictionary<String, Integer>;    pakketyper : TDictionary<String, Integer>;
4071    tmpAntal : Integer;    tmpAntal : Integer;
4072    
4073     time, timeSamlet : TTimingHelper;
4074    
4075    
4076    antlin : Integer;    antlin : Integer;
# Line 4243  var Line 4106  var
4106    
4107      if (Scanningtype = '7') then      if (Scanningtype = '7') then
4108       begin       begin
4109        URLStr := Format(UrlIndleveringsPakkeManglendeScanninger, [StedKode]);        URLStr := Format(Config.UrlIndleveringsPakkeManglendeScanninger, [StedKode]);
4110       end       end
4111      else if (Scanningtype = '6') then      else if (Scanningtype = '6') then
4112       begin       begin
4113        URLStr := Format(UrlPakkeshopManglendeReturScanninger, [StedKode]);        URLStr := Format(Config.UrlPakkeshopManglendeReturScanninger, [StedKode]);
4114       end       end
4115      else if (Scanningtype = '5') then      else if (Scanningtype = '5') then
4116       begin       begin
4117        URLStr := Format(UrlPakkeshopManglendeScanninger, [StedKode]);        URLStr := Format(Config.UrlPakkeshopManglendeScanninger, [StedKode]);
4118       end       end
4119      else if (Scanningtype = '1') then      else if (Scanningtype = '1') then
4120       begin       begin
4121        URLStr := Format(UrlManglendeScanninger,[StedKode,'B2']);        URLStr := Format(Config.UrlManglendeScanninger,[StedKode,'B2']);
4122       end       end
4123      else if (Scanningtype = '4') then      else if (Scanningtype = '4') then
4124       begin       begin
4125        URLStr := Format(UrlManglendeScanninger,[StedKode,'A2']);    // Budleveringer        URLStr := Format(Config.UrlManglendeScanninger,[StedKode,'A2']);    // Budleveringer
4126       end       end
4127      else      else
4128       begin       begin
# Line 4267  var Line 4130  var
4130       end;       end;
4131  // 20150310: slut  // 20150310: slut
4132    
4133        time := TTimingHelper.create();        //DEBUG
4134        timeSamlet := TTimingHelper.create();        //DEBUG
4135    
4136      try      try
4137      //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST      //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST
4138  //    URLStr := string(Utf8Encode(URLStr));  //    URLStr := string(Utf8Encode(URLStr));
# Line 4289  var Line 4155  var
4155        end;        end;
4156      end;      end;
4157      try      try
4158          time.stop('HTTP Load');     //DEBUG
4159    
4160        XMLDocument1.LoadFromXML(WebSvar);        XMLDocument1.LoadFromXML(WebSvar);
4161    
4162          time.stop('XML Load');     //DEBUG
4163    
4164    
4165    
4166    
4167    
4168    
4169        antlin := 0;        antlin := 0;
4170        antlinIdag := 0;        antlinIdag := 0;
# Line 4333  var Line 4207  var
4207        SetLength(stregkoderMedTjekkodeArray, 0);    // reset fra tidligere brug        SetLength(stregkoderMedTjekkodeArray, 0);    // reset fra tidligere brug
4208        SetLength(stregkoderMedTjekkodeArray, antlin);  // sæt antal elementer i array        SetLength(stregkoderMedTjekkodeArray, antlin);  // sæt antal elementer i array
4209    
4210          time.stop('Antal Linier');//DEBUG
4211    
4212        Application.Processmessages; //Ugly Hack to improve User Experience when switching modes        Application.Processmessages; //Ugly Hack to improve User Experience when switching modes
4213    
# Line 4418  var Line 4293  var
4293        end;        end;
4294    
4295    
4296          time.stop('Fyld Listbox2');//DEBUG
4297    
4298    
4299        Application.Processmessages; //Ugly Hack to improve User Experience when switching modes        Application.Processmessages; //Ugly Hack to improve User Experience when switching modes
4300    
4301    
# Line 4537  var Line 4415  var
4415        end;        end;
4416      end;      end;
4417    
4418        time.stop('Done');//DEBUG
4419        timeSamlet.stop('SamletTid');//DEBUG
4420    
4421    
4422  end;  end;
4423    
4424  procedure TMainForm.IndlesScanningLogFil();  procedure TMainForm.IndlesScanningLogFil();
# Line 4712  begin Line 4594  begin
4594          ListBox1.Items.Insert(0,TimeToStr(now) + ': ' +'Fandt ingen linier til '+imorgenYmd+'.');          ListBox1.Items.Insert(0,TimeToStr(now) + ': ' +'Fandt ingen linier til '+imorgenYmd+'.');
4595          logTekst := 'Fandt ingen linier til '+imorgenYmd+'.';          logTekst := 'Fandt ingen linier til '+imorgenYmd+'.';
4596          SkrivScanningLogFil(logTekst);          SkrivScanningLogFil(logTekst);
4597          PlaySound(PWideChar(AlarmLyd));          PlaySound(PWideChar(Config.AlarmLyd));
4598        end;        end;
4599      end;      end;
4600    end    end
# Line 4721  begin Line 4603  begin
4603        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Ruteskift fil '+filnavn+' findes ikke.');        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Ruteskift fil '+filnavn+' findes ikke.');
4604        logTekst := 'Ruteskift fil '+filnavn+' findes ikke.';        logTekst := 'Ruteskift fil '+filnavn+' findes ikke.';
4605        SkrivScanningLogFil(logTekst);        SkrivScanningLogFil(logTekst);
4606        PlaySound(PWideChar(AlarmLyd));        PlaySound(PWideChar(Config.AlarmLyd));
4607    end;    end;
4608  end;  end;
4609    
# Line 4792  begin Line 4674  begin
4674          ListBox1.Items.Insert(0,TimeToStr(now) + ': ' +'Fandt ingen linier til '+imorgenYmd+'.');          ListBox1.Items.Insert(0,TimeToStr(now) + ': ' +'Fandt ingen linier til '+imorgenYmd+'.');
4675          logTekst := 'Fandt ingen linier til '+imorgenYmd+'.';          logTekst := 'Fandt ingen linier til '+imorgenYmd+'.';
4676          SkrivScanningLogFil(logTekst);          SkrivScanningLogFil(logTekst);
4677          PlaySound(PWideChar(AlarmLyd));          PlaySound(PWideChar(Config.AlarmLyd));
4678        end;        end;
4679      end;      end;
4680    end    end
# Line 4801  begin Line 4683  begin
4683        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Kontrol fil '+filnavn+' findes ikke.');        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Kontrol fil '+filnavn+' findes ikke.');
4684        logTekst := 'Kontrol fil '+filnavn+' findes ikke.';        logTekst := 'Kontrol fil '+filnavn+' findes ikke.';
4685        SkrivScanningLogFil(logTekst);        SkrivScanningLogFil(logTekst);
4686        PlaySound(PWideChar(AlarmLyd));        PlaySound(PWideChar(Config.AlarmLyd));
4687    end;    end;
4688  end;  end;
4689    
# Line 4859  procedure TMainForm.VisAlarmSkaerm(strMe Line 4741  procedure TMainForm.VisAlarmSkaerm(strMe
4741  begin  begin
4742    //ShowMessage('Ændring ikke tilladt');    //ShowMessage('Ændring ikke tilladt');
4743    // Her skal komme en 'rød skærm' alarm    // Her skal komme en 'rød skærm' alarm
4744    PlaySound(PWideChar(AlarmLyd));    PlaySound(PWideChar(Config.AlarmLyd));
4745    MainForm.Color := clRed;    MainForm.Color := clRed;
4746    
4747    
# Line 4987  begin Line 4869  begin
4869    Result := self;    Result := self;
4870  end;  end;
4871    
4872    //Nedarvet fra IParentForm
4873    function TMainForm.GetXMLDocument() : TXMLDocument;
4874    begin
4875      Result := XMLDocument1
4876    end;
4877    
4878    
4879  end.  end.
4880    
Legend:
Removed from v.3054  
changed lines
  Added in v.3096
  ViewVC Help
Powered by ViewVC 1.1.20