/[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 2977 by torben, Tue Mar 15 13:44:38 2016 UTC revision 3087 by torben, Mon Aug 15 14:14:14 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 39  type Line 40  type
40      XMLDocument1: TXMLDocument;      XMLDocument1: TXMLDocument;
41      ApplicationEvents1: TApplicationEvents;      ApplicationEvents1: TApplicationEvents;
42      chkSporgEfterKunde: TCheckBox;      chkSporgEfterKunde: TCheckBox;
     KommentarST: TStaticText;  
43      MainMenu1: TMainMenu;      MainMenu1: TMainMenu;
44      N1: TMenuItem;      N1: TMenuItem;
45      Pakkernormal1: TMenuItem;      menuNatXpress1: TMenuItem;
46      ReturpakkerfraDAO1: TMenuItem;      menuNatxpressReturDAO1: TMenuItem;
47      Returpakkerfraboghandler1: TMenuItem;      menuNatxpressReturfraKunde1: TMenuItem;
48      Hjlp1: TMenuItem;      Hjlp1: TMenuItem;
49      Om1: TMenuItem;      Om1: TMenuItem;
50      Testforbindelsen1: TMenuItem;      Testforbindelsen1: TMenuItem;
# Line 57  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;
65      Testlyd1: TMenuItem;      Testlyd1: TMenuItem;
66      ListBox1: TListBox;      ListBox1: TListBox;
67      Budlevering1: TMenuItem;      menuDaoDirekte1: TMenuItem;
68      BtnDownloadKontrolfil: TButton;      BtnDownloadKontrolfil: TButton;
69      IdFTP1: TIdFTP;      IdFTP1: TIdFTP;
70      Image1: TImage;      Image1: TImage;
# Line 72  type Line 72  type
72      BtnOpdaterListen: TButton;      BtnOpdaterListen: TButton;
73      BtnUploadLogfil: TButton;      BtnUploadLogfil: TButton;
74      BtnDownloadRuteskiftFil: TButton;      BtnDownloadRuteskiftFil: TButton;
75      Pakkeshoplevering1: TMenuItem;      menuPakkeshop1: TMenuItem;
76      PakkeshopText1: TStaticText;      PakkeshopText1: TStaticText;
77      btnNulstil: TButton;      btnNulstil: TButton;
78      Returpakkerfrapakkeshop1: TMenuItem;      menuPakkeshopRetur1: TMenuItem;
79      Altidprintepakkelabel1: TMenuItem;      Altidprintepakkelabel1: TMenuItem;
80      chkAltidPrintLabel: TCheckBox;      chkAltidPrintLabel: TCheckBox;
81      BtnEKLoverforsel: TButton;      BtnEKLoverforsel: TButton;
# Line 86  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      Automatiskvalg1: TMenuItem;      menuAutomatiskvalg1: TMenuItem;
91      PanelValgA: TPanel;      PanelValgA: TPanel;
92      PanelValg1: TPanel;      PanelValg1: TPanel;
93      PanelValg2: TPanel;      PanelValg2: TPanel;
# Line 106  type Line 106  type
106      PanelManglendePakker6: TPanel;      PanelManglendePakker6: TPanel;
107      menuIndlevering: TMenuItem;      menuIndlevering: TMenuItem;
108      chkForstorTilDirekte: TCheckBox;      chkForstorTilDirekte: TCheckBox;
109        chkEmballageRepareret: TCheckBox;
110        KommentarST: TLabel;
111        chkUdenforSpecifikation: TCheckBox;
112    
113    
114    
# Line 127  type Line 130  type
130    procedure radioStorPakkeClick(Sender: TObject);    procedure radioStorPakkeClick(Sender: TObject);
131    procedure radioLillePakkeClick(Sender: TObject);    procedure radioLillePakkeClick(Sender: TObject);
132    procedure chkSporgEfterKundeClick(Sender: TObject);    procedure chkSporgEfterKundeClick(Sender: TObject);
133    procedure Pakkernormal1Click(Sender: TObject);    procedure menuNatXpress1Click(Sender: TObject);
134    procedure Testforbindelsen1Click(Sender: TObject);    procedure Testforbindelsen1Click(Sender: TObject);
135    procedure Testprinter1Click(Sender: TObject);    procedure Testprinter1Click(Sender: TObject);
136    procedure Om1Click(Sender: TObject);    procedure Om1Click(Sender: TObject);
137    procedure Lukprogrammet1Click(Sender: TObject);    procedure Lukprogrammet1Click(Sender: TObject);
138    procedure Sprgefterboghandlernummer1Click(Sender: TObject);    procedure Sprgefterboghandlernummer1Click(Sender: TObject);
139    procedure ReturpakkerfraDAO1Click(Sender: TObject);    procedure menuNatxpressReturDAO1Click(Sender: TObject);
140    procedure Returpakkerfraboghandler1Click(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);
146    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
147    procedure Budlevering1Click(Sender: TObject);    procedure menuDaoDirekte1Click(Sender: TObject);
148    procedure BtnDownloadKontrolfilClick(Sender: TObject);    procedure BtnDownloadKontrolfilClick(Sender: TObject);
149    procedure BtnOpdaterListenClick(Sender: TObject);    procedure BtnOpdaterListenClick(Sender: TObject);
150    procedure DownloadBladhusRuteskiftfil();    procedure DownloadBladhusRuteskiftfil();
# Line 153  type Line 156  type
156    procedure FormDestroy(Sender: TObject);    procedure FormDestroy(Sender: TObject);
157    procedure BtnUploadLogfilClick(Sender: TObject);    procedure BtnUploadLogfilClick(Sender: TObject);
158    procedure BtnDownloadRuteskiftFilClick(Sender: TObject);    procedure BtnDownloadRuteskiftFilClick(Sender: TObject);
159    procedure Pakkeshoplevering1Click(Sender: TObject);    procedure menuPakkeshop1Click(Sender: TObject);
160    procedure btnNulstilClick(Sender: TObject);    procedure btnNulstilClick(Sender: TObject);
161    procedure Returpakkerfrapakkeshop1Click(Sender: TObject);    procedure menuPakkeshopRetur1Click(Sender: TObject);
162    procedure InitNatxpresslevering();    procedure InitNatxpresslevering();
163    procedure InitReturFraDao();    procedure InitReturFraDao();
164    procedure InitReturFraKunde();    procedure InitReturFraKunde();
# Line 172  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 Automatiskvalg1Click(Sender: TObject);    procedure menuAutomatiskvalg1Click(Sender: TObject);
181    procedure PanelValgAClick(Sender: TObject);    procedure PanelValgAClick(Sender: TObject);
182    procedure PanelValg1Click(Sender: TObject);    procedure PanelValg1Click(Sender: TObject);
183    procedure PanelValg2Click(Sender: TObject);    procedure PanelValg2Click(Sender: TObject);
# Line 195  type Line 198  type
198    
199    
200    //Nedarvet fra IParentForm    //Nedarvet fra IParentForm
201      procedure Msg( msg : string);
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    
206    
207    
208    private    private
209      SpecialVersionSted, SpecialVersionScanningtype: String;    // Bruges når programmet skal bruges udenfor DAO scanningssteder      SpecialVersionSted, SpecialVersionScanningtype: String;    // Bruges når programmet skal bruges udenfor DAO scanningssteder
210      Stregkode : String;      Stregkode : String;
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;  
   
     UrlEKLoverforselPakkeshop : String;  
214    
     UrlFindPakketype, UrlSendPrograminfo: String;  
215      Scanningtype, TestFunktionen, Pakketype, SporgEfterBoghandler : String;      Scanningtype, TestFunktionen, Pakketype, SporgEfterBoghandler : String;
216      ScanTjekkode : String;      ScanTjekkode : String;
217      ScanTjekkodeAutomatik : string;      ScanTjekkodeAutomatik : string;
218    
219        Url : String;
220    
221      Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop,      Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop,
222            FarveIndlevering : String;            FarveIndlevering : String;
223    
# Line 261  type Line 262  type
262      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;
263      procedure VisAlarmSkaerm(strMessage: string);      procedure VisAlarmSkaerm(strMessage: string);
264    
265    
266    public    public
267      { Public declarations }      { Public declarations }
268    end;    end;
# Line 285  implementation Line 287  implementation
287  procedure TMainForm.InitForm(Farve,Titel,Url : String);  procedure TMainForm.InitForm(Farve,Titel,Url : String);
288  begin  begin
289    
290        IdHTTP1.ConnectTimeout := 5000; // Vent max 5 sek på connect
291        IdHTTP1.ReadTimeout := 10000; // Vent max 10 sek på read
292    
293    
294    
295    
296      StaticTextManglendePakker.Caption := '';      StaticTextManglendePakker.Caption := '';
297    
298    
# Line 396  begin Line 404  begin
404        PrinterstatusStaticText1.Color := MainForm.Color;        PrinterstatusStaticText1.Color := MainForm.Color;
405      end;      end;
406    
407      if PakkeshopLevering1.Checked or Pakkernormal1.Checked then      if menuPakkeshop1.Checked or menuNatXpress1.Checked then
408        PakkeshopText1.Visible := true        PakkeshopText1.Visible := true
409      else      else
410        PakkeshopText1.Visible := false;        PakkeshopText1.Visible := false;
# Line 421  begin Line 429  begin
429        end;        end;
430      end;      end;
431    
432      if Automatisktjekkodestyring1.Checked then      if menuAutomatiskTjekkodeStyring.Checked then
433      begin      begin
434        chkScanTjekkode.Enabled := false;        chkScanTjekkode.Enabled := false;
435        Scanogstjekkoden1.Enabled := false;        Scanogstjekkoden1.Enabled := false;
# Line 479  begin Line 487  begin
487    StregkodeST.Caption := Stregkode;    StregkodeST.Caption := Stregkode;
488  end;  end;
489    
490  procedure TMainForm.Automatisktjekkodestyring1Click(Sender: TObject);  procedure TMainForm.menuAutomatiskTjekkodeStyringClick(Sender: TObject);
491  begin  begin
492    if Automatisktjekkodestyring1.Checked then    if menuAutomatiskTjekkodeStyring.Checked then
493    begin    begin
494       chkScanTjekkode.Enabled := false;       chkScanTjekkode.Enabled := false;
495       Scanogstjekkoden1.Enabled := false;       Scanogstjekkoden1.Enabled := false;
# Line 494  begin Line 502  begin
502    
503  end;  end;
504    
505  procedure TMainForm.Automatiskvalg1Click(Sender: TObject);  procedure TMainForm.menuAutomatiskvalg1Click(Sender: TObject);
506  begin  begin
507  // Skal ikke toggle men bare sætte funktionen on  // Skal ikke toggle men bare sætte funktionen on
508  // Fravælges ved at vælge en scanningstype  // Fravælges ved at vælge en scanningstype
509       AutomatiskValg1.Checked := true;       menuAutomatiskvalg1.Checked := true;
510       PanelValgA.Color := clGreen;       PanelValgA.Color := clGreen;
511       PanelValgA.Font.Color := clWhite;       PanelValgA.Font.Color := clWhite;
512  end;  end;
513    
514    
515    
516  //InitForm kaldes før FormCreate  //InitForm kaldes før FormCreate
517  procedure TMainForm.FormCreate(Sender: TObject);  procedure TMainForm.FormCreate(Sender: TObject);
518  const  const
# Line 539  begin Line 548  begin
548    
549  // Sætter lige en default panel størrelse  // Sætter lige en default panel størrelse
550    MainForm.ClientWidth := 1000;    MainForm.ClientWidth := 1000;
551    MainForm.ClientHeight := 750;    MainForm.ClientHeight := 820;
552    
553    Config := TConfiguration.Create();    Config := TConfiguration.Create();
554    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 553  begin Line 562  begin
562      SkrivLog := ReadString('Settings','SkrivLog','0');      SkrivLog := ReadString('Settings','SkrivLog','0');
563      Sted := ReadString('Settings','Sted','');      Sted := ReadString('Settings','Sted','');
564      StedNavn := ReadString('Settings','Stednavn','');      StedNavn := ReadString('Settings','Stednavn','');
     UrlFindPakketype := ReadString('Settings','UrlFindPakketype','http://omdeling.info/webservices/bogpakkekontrol/FindPakketype.php?stregkode=%s');  
     UrlSendPrograminfo := ReadString('Settings','UrlSendPrograminfo','http://omdeling.info/webservices/bogpakkekontrol/SendPrograminfo.php?programnavn=%s&sted=%s&scanningtype=%s&infotype=%s&info=%s');  
     UrlNormal := ReadString('Settings','UrlNormal','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&tjekkode=%s');  
     UrlReturDAO := ReadString('Settings','UrlReturDAO','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&returpakketype=%s&pakkestorrelse=%s');  
     UrlReturBoghandler := ReadString('Settings','UrlReturBoghandler','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&returpakketype=%s&pakkestorrelse=%s');  
     UrlBudlevering := ReadString('Settings','UrlBudlevering','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&leveringstype=%s&pakkestorrelse=%s');  
     UrlManglendeScanninger := ReadString('Settings','UrlManglendeScanninger','http://omdeling.info/webservices/bogpakkekontrol/bogpakkemanglendescanninger.php?sted=%s&type=%s');  
     UrlEKLoverforsel := ReadString('Settings','UrlEKLoverforsel','http://omdeling.info/webservices/bogpakkekontrol/bogpakkertilekl.php?sted=%s');  
   
     UrlEKLoverforselPakkeshop := ReadString('Settings','UrlEKLoverforselPakkeshop','http://omdeling.info/webservices/pakkeshop/pakkertilekl.php?sted=%s');  
   
     UrlPakkeshoplevering := ReadString('Settings','UrlPakkeshoplevering','http://omdeling.info/webservices/pakkeshop/pakkekontrol.php?sted=%s&stregkode=%s&tjekkode=%s');  
     UrlReturPakkeshop := ReadString('Settings','UrlReturPakkeshop','http://omdeling.info/webservices/pakkeshop/returpakkekontrol.php?sted=%s&stregkode=%s');  
     UrlPakkeshopManglendeScanninger := ReadString('Settings','UrlPakkeshopManglendeScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendescanninger.php?sted=%s');  
     UrlPakkeshopManglendeReturScanninger := ReadString('Settings','UrlPakkeshopManglendeReturScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendereturscanninger.php?sted=%s');  
   
   
     UrlIndleveringsPakke := ReadString('Settings','UrlIndleveringsPakke','http://omdeling.info/webservices/pakkeshop/PakkekontrolIndleveringskode.php?sted=%s&pakkekode=%s');  
     UrlIndleveringsPakkeManglendeScanninger := ReadString('Settings', 'UrlIndleveringsPakkeManglendeScanninger','http://omdeling.info/webservices/pakkeshop/IndleveringsPakkeManglendeScanninger.php?sted=%s');  
     URLOmdirigerTilPakkeshop := ReadString('Settings', 'URLOmdirigerTilPakkeshop','http://omdeling.info/webservices/pakkeshop/PakkeKontrolOmdirigerTilPakkeshop.php?sted=%s&stregkode=%s');  
565    
566    
567    
# Line 629  begin Line 618  begin
618    
619      if Scanningtype = 'A' then      if Scanningtype = 'A' then
620      begin      begin
621        Automatiskvalg1.Checked := true;        menuAutomatiskvalg1.Checked := true;
622        Scanningtype := '1';        Scanningtype := '1';
623        PanelValgA.Color := clGreen;        PanelValgA.Color := clGreen;
624        PanelValgA.Font.Color := clWhite;        PanelValgA.Font.Color := clWhite;
# Line 661  begin Line 650  begin
650    
651      if ScanTjekkodeAutomatik = '1' then      if ScanTjekkodeAutomatik = '1' then
652      begin      begin
653        Automatisktjekkodestyring1.Checked := true;        menuAutomatiskTjekkodeStyring.Checked := true;
654        chkScanTjekkode.Enabled := false;        chkScanTjekkode.Enabled := false;
655        Scanogstjekkoden1.Enabled := false;        Scanogstjekkoden1.Enabled := false;
656      end;      end;
# Line 704  begin Line 693  begin
693      SpecialVersionSted := 'NS';      SpecialVersionSted := 'NS';
694  {$EndIf}  {$EndIf}
695    
   
696      //SpecialVersionSted := '01';  // NS - bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE)      //SpecialVersionSted := '01';  // NS - bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE)
697      //SpecialVersionSted := '02';  // BK - BRUGES IKKE (brug i stedet ovenstående SpecialVersionSted BK)      //SpecialVersionSted := '02';  // BK - BRUGES IKKE (brug i stedet ovenstående SpecialVersionSted BK)
698      //SpecialVersionSted := '03';  // FD - (bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE)      //SpecialVersionSted := '03';  // FD - (bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE)
# Line 722  begin Line 710  begin
710    
711      if SpecialVersionSted = 'NS' then      if SpecialVersionSted = 'NS' then
712      begin      begin
713         SpecialVersionSted := '01';         //SpecialVersionSted := '01'; // Fra før NS overtog scanning løssalg
714         SpecialVersionScanningtype := '4';         //SpecialVersionScanningtype := '4';
715    
716          //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil
717          Sted := SpecialVersionSted;
718         // her skal vi også disable de knapper BK ikke kan bruge
719          PanelValg2.Enabled := false;
720          PanelValg2.Font.Color := clInactiveCaption;
721          PanelValg3.Enabled := false;
722          PanelValg3.Font.Color := clInactiveCaption;
723          //PanelValg6.Enabled := false;
724          //PanelValg6.Font.Color := clInactiveCaption;
725    
726         // her skal vi også disable de menupunkter FD ikke kan bruge
727          menuNatxpressReturDAO1.Enabled := false;
728          menuNatxpressReturfraKunde1.Enabled := false;
729    
730          //Returpakkerfrapakkeshop1.Enabled := false;
731      end;      end;
732    
733      if SpecialVersionSted = 'FD' then      if SpecialVersionSted = 'FD' then
734      begin      begin
735         SpecialVersionSted := '03';         //SpecialVersionSted := '03'; //fra før at FD overtog scanning
736         SpecialVersionScanningtype := '4';         //SpecialVersionScanningtype := '4';
737      end;  
738    
     if (SpecialVersionSted = 'BK') OR (SpecialVersionSted = 'TK') then  
     begin  
739        //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil        //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil
740        Sted := SpecialVersionSted;        Sted := SpecialVersionSted;
741       // her skal vi også disable de knapper BK ikke kan bruge       // her skal vi også disable de knapper BK ikke kan bruge
# Line 743  begin Line 746  begin
746        //PanelValg6.Enabled := false;        //PanelValg6.Enabled := false;
747        //PanelValg6.Font.Color := clInactiveCaption;        //PanelValg6.Font.Color := clInactiveCaption;
748    
749       // her skal vi også disable de menupunkter BK ikke kan bruge       // her skal vi også disable de menupunkter FD ikke kan bruge
750        ReturpakkerfraDAO1.Enabled := false;        menuNatxpressReturDAO1.Enabled := false;
751        Returpakkerfraboghandler1.Enabled := false;        menuNatxpressReturfraKunde1.Enabled := false;
752    
753        //Returpakkerfrapakkeshop1.Enabled := false;        //Returpakkerfrapakkeshop1.Enabled := false;
754    
       if SpecialVersionScanningtype = 'A' then  
       begin  
          Scanningtype := '1';  
       end  
       else  
       begin  
         Scanningtype := SpecialVersionScanningtype;  
       end;  
755      end;      end;
756    
757      if SpecialVersionSted = 'DBK' then      if (SpecialVersionSted = 'BK') OR (SpecialVersionSted = 'TK') then
758      begin      begin
759        //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil        //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil
760        Sted := SpecialVersionSted;        Sted := SpecialVersionSted;
761        // her skal vi også disable de knapper DBK ikke kan bruge       // her skal vi også disable de knapper BK ikke kan bruge
762        PanelValg2.Enabled := false;        PanelValg2.Enabled := false;
763        PanelValg2.Font.Color := clInactiveCaption;        PanelValg2.Font.Color := clInactiveCaption;
764        PanelValg3.Enabled := false;        PanelValg3.Enabled := false;
765        PanelValg3.Font.Color := clInactiveCaption;        PanelValg3.Font.Color := clInactiveCaption;
766        PanelValg5.Enabled := false;        //PanelValg6.Enabled := false;
767        PanelValg5.Font.Color := clInactiveCaption;        //PanelValg6.Font.Color := clInactiveCaption;
       PanelValg6.Enabled := false;  
       PanelValg6.Font.Color := clInactiveCaption;  
   
768    
769       // her skal vi også disable de menupunkter DBK ikke kan bruge       // her skal vi også disable de menupunkter BK ikke kan bruge
770        ReturpakkerfraDAO1.Enabled := false;        menuNatxpressReturDAO1.Enabled := false;
771        Returpakkerfraboghandler1.Enabled := false;        menuNatxpressReturfraKunde1.Enabled := false;
772    
773        Pakkeshoplevering1.Enabled := false;        //Returpakkerfrapakkeshop1.Enabled := false;
       Returpakkerfrapakkeshop1.Enabled := false;  
774    
775        if SpecialVersionScanningtype = 'A' then        if SpecialVersionScanningtype = 'A' then
776        begin        begin
# Line 791  begin Line 782  begin
782        end;        end;
783      end;      end;
784    
785        if SpecialVersionSted = 'DBK' then
786        begin
787          Sted := SpecialVersionSted;
788        end;
789    
790      if (SpecialVersionSted = '01')      if (SpecialVersionSted = '01')
791      or (SpecialVersionSted = '02')      or (SpecialVersionSted = '02')
792      or (SpecialVersionSted = '03')      or (SpecialVersionSted = '03')
# Line 814  begin Line 810  begin
810        PanelValg7.Font.Color := clInactiveCaption;        PanelValg7.Font.Color := clInactiveCaption;
811       // her skal vi også disable de menupunkter Bladhusene (01, 02, 03 og 04) ikke kan bruge       // her skal vi også disable de menupunkter Bladhusene (01, 02, 03 og 04) ikke kan bruge
812    
813        Automatiskvalg1.Enabled := false;        menuAutomatiskvalg1.Enabled := false;
814    
815        Pakkernormal1.Enabled := false;        menuNatXpress1.Enabled := false;
816        ReturpakkerfraDAO1.Enabled := false;        menuNatxpressReturDAO1.Enabled := false;
817        Returpakkerfraboghandler1.Enabled := false;        menuNatxpressReturfraKunde1.Enabled := false;
818        Budlevering1.Enabled := false;        menuDaoDirekte1.Enabled := false;
819        Pakkeshoplevering1.Enabled := false;        menuPakkeshop1.Enabled := false;
820        Returpakkerfrapakkeshop1.Enabled := false;        menuPakkeshopRetur1.Enabled := false;
821        if SpecialVersionScanningtype = 'A' then        if SpecialVersionScanningtype = 'A' then
822        begin        begin
823          Scanningtype := '4';          Scanningtype := '4';
824          Budlevering1.Enabled := true;          menuDaoDirekte1.Enabled := true;
825          PanelValg4.Font.Color := clWindowText;          PanelValg4.Font.Color := clWindowText;
826          PanelValg4.Enabled := true;          PanelValg4.Enabled := true;
827        end        end
# Line 834  begin Line 830  begin
830          Scanningtype := SpecialVersionScanningtype;          Scanningtype := SpecialVersionScanningtype;
831          PanelValgA.Enabled := false;          PanelValgA.Enabled := false;
832          PanelValgA.Font.Color := clInactiveCaption;          PanelValgA.Font.Color := clInactiveCaption;
833          AutomatiskValg1.Checked := false;          menuAutomatiskvalg1.Checked := false;
834          PanelValgA.Color := clBtnFace;          PanelValgA.Color := clBtnFace;
835          if Scanningtype = '1' then          if Scanningtype = '1' then
836          begin          begin
837            Pakkernormal1.Enabled := true;            menuNatXpress1.Enabled := true;
838            PanelValg1.Enabled := true;            PanelValg1.Enabled := true;
839            PanelValg1.Font.Color := clWindowText;            PanelValg1.Font.Color := clWindowText;
840          end;          end;
841          if Scanningtype = '2' then          if Scanningtype = '2' then
842          begin          begin
843            ReturpakkerfraDAO1.Enabled := true;            menuNatxpressReturDAO1.Enabled := true;
844            PanelValg2.Enabled := true;            PanelValg2.Enabled := true;
845            PanelValg2.Font.Color := clWindowText;            PanelValg2.Font.Color := clWindowText;
846          end;          end;
847          if Scanningtype = '3' then          if Scanningtype = '3' then
848          begin          begin
849            Returpakkerfraboghandler1.Enabled := true;            menuNatxpressReturfraKunde1.Enabled := true;
850            PanelValg3.Enabled := true;            PanelValg3.Enabled := true;
851            PanelValg3.Font.Color := clWindowText;            PanelValg3.Font.Color := clWindowText;
852          end;          end;
853          if Scanningtype = '4' then          if Scanningtype = '4' then
854          begin          begin
855            Budlevering1.Enabled := true;            menuDaoDirekte1.Enabled := true;
856            PanelValg4.Enabled := true;            PanelValg4.Enabled := true;
857            PanelValg4.Font.Color := clWindowText;            PanelValg4.Font.Color := clWindowText;
858          end;          end;
859          if Scanningtype = '5' then          if Scanningtype = '5' then
860          begin          begin
861            Pakkeshoplevering1.Enabled := true;            menuPakkeshop1.Enabled := true;
862            PanelValg5.Enabled := true;            PanelValg5.Enabled := true;
863            PanelValg5.Font.Color := clWindowText;            PanelValg5.Font.Color := clWindowText;
864          end;          end;
865          if Scanningtype = '6' then          if Scanningtype = '6' then
866          begin          begin
867            Returpakkerfrapakkeshop1.Enabled := true;            menuPakkeshopRetur1.Enabled := true;
868            PanelValg6.Enabled := true;            PanelValg6.Enabled := true;
869            PanelValg6.Font.Color := clWindowText;            PanelValg6.Font.Color := clWindowText;
870          end;          end;
# Line 949  begin Line 945  begin
945    
946      if Pakketype = '1' then      if Pakketype = '1' then
947      begin      begin
948        Storepakker1.Checked := true;        menuStorePakker.Checked := true;
949        radioStorPakke.Checked := true;        radioStorPakke.Checked := true;
950      end      end
951      else      else
952      begin      begin
953        Smpakker1.Checked := true;        menuSmaaPakker.Checked := true;
954        radioLillePakke.Checked := true;        radioLillePakke.Checked := true;
955      end;      end;
956    
# Line 1014  begin Line 1010  begin
1010      // UBD skal p.t. ikke have adgang til flg. funktioner      // UBD skal p.t. ikke have adgang til flg. funktioner
1011      if ( (Sted = '1') or (Sted = '2') or (Sted = '3') or (Sted = '4') ) then      if ( (Sted = '1') or (Sted = '2') or (Sted = '3') or (Sted = '4') ) then
1012      begin      begin
1013        ReturpakkerfraDAO1.Visible := false;        menuNatxpressReturDAO1.Visible := false;
1014        Returpakkerfraboghandler1.Visible := false;        menuNatxpressReturfraKunde1.Visible := false;
1015        Budlevering1.Visible := false;        menuDaoDirekte1.Visible := false;
1016        Storepakker1.Visible := false;        menuStorePakker.Visible := false;
1017        Smpakker1.Visible := false;        menuSmaaPakker.Visible := false;
1018        Testprinter1.Visible := false;        Testprinter1.Visible := false;
1019        Pakkeshoplevering1.Visible := false;        menuPakkeshop1.Visible := false;
1020        Returpakkerfrapakkeshop1.Visible := false;        menuPakkeshopRetur1.Visible := false;
1021      end;      end;
1022    
1023      if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then      if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then
# Line 1370  begin Line 1366  begin
1366      if (Length(Stregkode) > 8) then      if (Length(Stregkode) > 8) then
1367      begin      begin
1368        // Her skal vi så forespørge pakketype på serveren udfra stregkode feltet        // Her skal vi så forespørge pakketype på serveren udfra stregkode feltet
1369        URLStr := Format(UrlFindPakketype,[Stregkode]);        URLStr := Format(Config.UrlFindPakketype,[Stregkode]);
1370        try        try
1371          //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST          //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST
1372          WebSvar := IdHTTP1.Get(URLStr);          WebSvar := IdHTTP1.Get(URLStr);
# Line 1425  begin Line 1421  begin
1421         exit;         exit;
1422      end;      end;
1423    
1424      if (Automatiskvalg1.Checked and (Length(Stregkode) > 8) ) then      if (menuAutomatiskvalg1.Checked and (Length(Stregkode) > 8) ) then
1425      begin      begin
1426        GemStregkode := Stregkode;        GemStregkode := Stregkode;
1427        if Pakketype = 'NatXpress' then        if Pakketype = 'NatXpress' then
# Line 1454  begin Line 1450  begin
1450                InitPakkeshoplevering();                InitPakkeshoplevering();
1451              end;              end;
1452            end            end
1453        // Retur kan ikke scannes med 'Automatisk valg'       else if Pakketype = 'PakkeshopRetur' then
1454              begin
1455                if Scanningtype <> '6' then
1456                begin
1457                 VisAlarmSkaerm( Stregkode + ' Pakkeshop retur,'#13#10' kan ikke bruges med automatisk valg' );
1458    
1459                 exit;
1460                end;
1461              end
1462    
1463    
1464        else        else
1465            begin            begin
# Line 1466  begin Line 1471  begin
1471            end;            end;
1472        Stregkode := GemStregkode;        Stregkode := GemStregkode;
1473      end      end
1474      else if Automatiskvalg1.Checked and (PakkeshopText1.Caption = 'Stregkode') then      else if menuAutomatiskvalg1.Checked and (PakkeshopText1.Caption = 'Stregkode') then
1475      begin      begin
1476        VisAlarmSkaerm( 'Pakkenummer ikke gyldigt (for kort)' );        VisAlarmSkaerm( 'Pakkenummer ikke gyldigt (for kort)' );
1477    
1478        exit;        exit;
1479      end;      end;
1480    
1481      if not Automatiskvalg1.Checked then      if not menuAutomatiskvalg1.Checked then
1482      begin      begin
1483        if ( (Pakkescanningtype <> Scanningtype) and (Scanningtype <> '2') and (Scanningtype <> '3') ) then        if ( (Pakkescanningtype <> Scanningtype) and (Scanningtype <> '2') and (Scanningtype <> '3') ) then
1484        begin        begin
# Line 1486  begin Line 1491  begin
1491    
1492    
1493    
1494      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and Automatisktjekkodestyring1.Checked then      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and menuAutomatiskTjekkodeStyring.Checked then
1495      begin      begin
1496        chkScanTjekkode.Checked := false;        chkScanTjekkode.Checked := false;
1497        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do
# Line 1499  begin Line 1504  begin
1504        end;        end;
1505      end;      end;
1506    
1507      if Pakkernormal1.Checked and not Scanogstjekkoden1.Checked then      if menuNatXpress1.Checked and not Scanogstjekkoden1.Checked then
1508        begin        begin
1509          // Når vi ikke kræver tjekkode er alt ok her          // Når vi ikke kræver tjekkode er alt ok her
1510             BoghandlerStregkode := Stregkode;             BoghandlerStregkode := Stregkode;
# Line 1509  begin Line 1514  begin
1514             Stregkode := '';             Stregkode := '';
1515             InitScreen();             InitScreen();
1516        end        end
1517      else if (PakkeshopLevering1.Checked or Pakkernormal1.Checked) and not Scanogstjekkoden1.Checked then      else if (menuPakkeshop1.Checked or menuNatXpress1.Checked) and not Scanogstjekkoden1.Checked then
1518        begin        begin
1519          // Når vi ikke kræver tjekkode er alt ok her          // Når vi ikke kræver tjekkode er alt ok her
1520             PakkeshopStregkode := Stregkode;             PakkeshopStregkode := Stregkode;
# Line 1521  begin Line 1526  begin
1526             Stregkode := '';             Stregkode := '';
1527             InitScreen();             InitScreen();
1528        end        end
1529      else if PakkeshopLevering1.Checked or Pakkernormal1.Checked then      else if menuPakkeshop1.Checked or menuNatXpress1.Checked then
1530        if PakkeshopText1.Caption = 'Stregkode' then        if PakkeshopText1.Caption = 'Stregkode' then
1531         begin         begin
1532            if length(Stregkode) > 5 then            if length(Stregkode) > 5 then
# Line 1547  begin Line 1552  begin
1552             PakkeshopTjekkode := Stregkode;             PakkeshopTjekkode := Stregkode;
1553             BoghandlerTjekkode := Stregkode;             BoghandlerTjekkode := Stregkode;
1554             PakkeshopText1.Caption := 'Stregkode';             PakkeshopText1.Caption := 'Stregkode';
1555             if (PakkeshopLevering1.Checked) then             if (menuPakkeshop1.Checked) then
1556                MainForm.Color := TUtils.HexToTColor(FarvePakkeshoplevering);                MainForm.Color := TUtils.HexToTColor(FarvePakkeshoplevering);
1557             if (Pakkernormal1.Checked) then             if (menuNatXpress1.Checked) then
1558                MainForm.Color := TUtils.HexToTColor(FarveNormal);                MainForm.Color := TUtils.HexToTColor(FarveNormal);
1559             btnNulstil.Visible := false;             btnNulstil.Visible := false;
1560           end           end
1561          else          else
1562           begin           begin
1563                if (PakkeshopLevering1.Checked) then                if (menuPakkeshop1.Checked) then
1564                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode);                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode);
1565                if (Pakkernormal1.Checked) then                if (menuNatXpress1.Checked) then
1566                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode);                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode);
1567                                    
1568                StregKode := '';                StregKode := '';
# Line 1569  begin Line 1574  begin
1574          InitScreen();          InitScreen();
1575       end;       end;
1576    
1577      if not PakkeshopLevering1.Checked and not Pakkernormal1.Checked or (PakkeshopLevering1.Checked and (PakkeshopStregkode <> '') and (PakkeshopTjekkode <> '')) or (Pakkernormal1.Checked and (Scanogstjekkoden1.Checked and (BoghandlerStregkode <> '') and (BoghandlerTjekkode <> '') or not Scanogstjekkoden1.Checked)) then      if not menuPakkeshop1.Checked and not menuNatXpress1.Checked or (menuPakkeshop1.Checked and (PakkeshopStregkode <> '') and (PakkeshopTjekkode <> '')) or (menuNatXpress1.Checked and (Scanogstjekkoden1.Checked and (BoghandlerStregkode <> '') and (BoghandlerTjekkode <> '') or not Scanogstjekkoden1.Checked)) then
1578      begin      begin
1579    
1580         if PakkeshopLevering1.Checked and (PakkeshopStregkode <> '') and (PakkeshopTjekkode <> '') then         if menuPakkeshop1.Checked and (PakkeshopStregkode <> '') and (PakkeshopTjekkode <> '') then
1581            StregKode := PakkeshopStregkode;            StregKode := PakkeshopStregkode;
1582         if Pakkernormal1.Checked and ((BoghandlerStregkode <> '') and (BoghandlerTjekkode <> '') or not Scanogstjekkoden1.Checked) then         if menuNatXpress1.Checked and ((BoghandlerStregkode <> '') and (BoghandlerTjekkode <> '') or not Scanogstjekkoden1.Checked) then
1583            StregKode := BoghandlerStregkode;            StregKode := BoghandlerStregkode;
1584         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
1585         try         try
# Line 1588  begin Line 1593  begin
1593    
1594              exit;              exit;
1595            end;            end;
1596            if (Pakkernormal1.Checked or Budlevering1.Checked or PakkeshopLevering1.Checked) then            if (menuNatXpress1.Checked or menuDaoDirekte1.Checked or menuPakkeshop1.Checked) then
1597            begin            begin
1598              PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel);              PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel);
1599              pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);              pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);
# Line 1609  begin Line 1614  begin
1614                MainForm.Color := clRed;                MainForm.Color := clRed;
1615              end;              end;
1616           end;           end;
1617            if ( Pakkernormal1.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
1618            begin            begin
1619              MainForm.Color := TUtils.HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1620              if Storepakker1.Checked then              if menuStorePakker.Checked then
1621              begin              begin
1622                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(ScannetOkStorLyd));
1623              end              end
# Line 1622  begin Line 1627  begin
1627              end;              end;
1628              btnNulstil.Visible := false;              btnNulstil.Visible := false;
1629            end            end
1630            else if (Returpakkerfradao1.Checked or Returpakkerfraboghandler1.Checked) then            else if (menuNatxpressReturDAO1.Checked or menuNatxpressReturfraKunde1.Checked) then
1631            begin            begin
1632              MainForm.Color := TUtils.HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1633              if Storepakker1.Checked then              if menuStorePakker.Checked then
1634              begin              begin
1635                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(ScannetOkStorLyd));
1636              end              end
# Line 1650  begin Line 1655  begin
1655           if not btnNulstil.Visible then           if not btnNulstil.Visible then
1656            begin            begin
1657    
1658              If (Budlevering1.Checked) then              If (menuDaoDirekte1.Checked) then
1659              begin              begin
1660                if Storepakker1.Checked then                if menuStorePakker.Checked then
1661                begin                begin
1662                  PlaySound(PWideChar(ScannetOkStorLyd));                  PlaySound(PWideChar(ScannetOkStorLyd));
1663                end                end
# Line 1712  var Line 1717  var
1717    WebSvar : String;    WebSvar : String;
1718    URLStr : String;    URLStr : String;
1719  begin  begin
1720    if UrlSendPrograminfo <> '' then    if Config.UrlSendPrograminfo <> '' then
1721    begin    begin
1722      URLStr := Format(UrlSendPrograminfo,[ExtractFileName(ParamStr(0)), Sted, Scanningtype, Infotype, Info]);      URLStr := Format(Config.UrlSendPrograminfo,[ExtractFileName(ParamStr(0)), Sted, Scanningtype, Infotype, Info]);
1723      try      try
1724        //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST        //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST
1725        WebSvar := IdHTTP1.Get(URLStr);        WebSvar := IdHTTP1.Get(URLStr);
# Line 1727  begin Line 1732  begin
1732        ShowMessage(logTekst);        ShowMessage(logTekst);
1733        SkrivScanningLogFil(logTekst);        SkrivScanningLogFil(logTekst);
1734        // Vi nulstiller lige url feltet så rutinen ikke kaldes igen i forbindelse med lukning af programmet        // Vi nulstiller lige url feltet så rutinen ikke kaldes igen i forbindelse med lukning af programmet
1735        UrlSendPrograminfo := '';        Config.UrlSendPrograminfo := '';
1736        Application.Terminate;        Application.Terminate;
1737      end;      end;
1738      end;      end;
# Line 1746  var Line 1751  var
1751    
1752    
1753  begin  begin
1754      if Budlevering1.Checked or Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked or Pakkernormal1.Checked or menuIndlevering.Checked then      if menuDaoDirekte1.Checked or menuPakkeshop1.Checked or menuPakkeshopRetur1.Checked or menuNatXpress1.Checked or menuIndlevering.Checked then
1755      begin      begin
1756        for i := ListBox2.items.count-1 downto 0 do        for i := ListBox2.items.count-1 downto 0 do
1757          if pos(StregKode,ListBox2.items[i]) <> 0 then          if pos(StregKode,ListBox2.items[i]) <> 0 then
1758          begin          begin
1759              wrkAntalSenere := 0;//initial Value
1760    
1761            // Ajourføring af tæller for manglende pakker (scanninger)            // Ajourføring af tæller for manglende pakker (scanninger)
1762            wrkAntal := StaticTextManglendePakker.Caption;            wrkAntal := StaticTextManglendePakker.Caption;
# Line 1895  procedure TMainForm.InitBladhus(); Line 1901  procedure TMainForm.InitBladhus();
1901    
1902  begin  begin
1903    Altidprintepakkelabel1.Enabled := false;    Altidprintepakkelabel1.Enabled := false;
1904    Pakkernormal1.Visible := false;    menuNatXpress1.Visible := false;
1905    ReturpakkerfraDAO1.Visible := false;    menuNatxpressReturDAO1.Visible := false;
1906    Returpakkerfraboghandler1.Visible := false;    menuNatxpressReturfraKunde1.Visible := false;
1907    Sprgefterboghandlernummer1.Enabled := false;    Sprgefterboghandlernummer1.Enabled := false;
1908    ListBox1.Visible := true;    ListBox1.Visible := true;
1909  //  TestFunktionen := '1';  //  TestFunktionen := '1';
1910    
1911    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
1912    begin    begin
1913      IndlesScanningLogFil();      IndlesScanningLogFil();
1914    end;    end;
# Line 1926  begin Line 1932  begin
1932      02 :      02 :
1933            begin;    // BK            begin;    // BK
1934              Testprinter1.Visible := true;              Testprinter1.Visible := true;
1935              Smpakker1.Enabled := true;              menuSmaaPakker.Enabled := true;
1936              Storepakker1.Enabled := true;              menuStorePakker.Enabled := true;
1937              radioStorPakke.Enabled := true;              radioStorPakke.Enabled := true;
1938              radioLillePakke.Enabled := true;              radioLillePakke.Enabled := true;
1939              BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her
# Line 1964  begin Line 1970  begin
1970            end;            end;
1971      04 :  begin;           // DBK      04 :  begin;           // DBK
1972              Testprinter1.Visible := true;              Testprinter1.Visible := true;
1973              Smpakker1.Enabled := true;              menuSmaaPakker.Enabled := true;
1974              Storepakker1.Enabled := true;              menuStorePakker.Enabled := true;
1975              radioStorPakke.Enabled := true;              radioStorPakke.Enabled := true;
1976              radioLillePakke.Enabled := true;              radioLillePakke.Enabled := true;
1977              BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her
# Line 1998  begin Line 2004  begin
2004    end;    end;
2005    
2006    
2007    if Pakkernormal1.Checked then    if menuNatXpress1.Checked then
2008    begin    begin
2009       if (BoghandlerTjekkode = '') then       if (BoghandlerTjekkode = '') then
2010       begin       begin
2011         BoghandlerTjekkode := '-1';         BoghandlerTjekkode := '-1';
2012       end;       end;
2013       URLStr := Format(UrlNormal,[Sted, PakkeNr, BoghandlerNummer, BoghandlerTjekkode]);       URLStr := Format(Config.UrlNormal,[Sted, PakkeNr, BoghandlerNummer, BoghandlerTjekkode]);
2014    end    end
2015    else if ReturpakkerfraDAO1.Checked then    else if menuNatxpressReturDAO1.Checked then
2016    begin    begin
2017       URLStr := Format(UrlReturDAO,[Sted, PakkeNr, BoghandlerNummer, 'DAO', pakkestorrelse]);       URLStr := Format(Config.UrlReturDAO,[Sted, PakkeNr, BoghandlerNummer, 'DAO', pakkestorrelse]);
2018    end    end
2019    else if Returpakkerfraboghandler1.Checked then    else if menuNatxpressReturfraKunde1.Checked then
2020    begin    begin
2021       URLStr := Format(UrlReturBoghandler,[Sted, PakkeNr, BoghandlerNummer, 'Boghandler', pakkestorrelse]);       URLStr := Format(Config.UrlReturBoghandler,[Sted, PakkeNr, BoghandlerNummer, 'Boghandler', pakkestorrelse]);
2022    end    end
2023    else if Budlevering1.Checked then    else if menuDaoDirekte1.Checked then
2024    begin    begin
2025       URLStr := Format(UrlBudlevering,[Sted, PakkeNr, 'bud', pakkestorrelse]);       URLStr := Format(Config.UrlBudlevering,[Sted, PakkeNr, 'bud', pakkestorrelse]);
2026    end    end
2027    else if Pakkeshoplevering1.Checked then    else if menuPakkeshop1.Checked then
2028    begin    begin
2029       URLStr := Format(UrlPakkeshoplevering,[Sted, PakkeNr, PakkeshopTjekkode]);       URLStr := Format(Config.UrlPakkeshoplevering,[Sted, PakkeNr, PakkeshopTjekkode]);
2030    end    end
2031    else if Returpakkerfrapakkeshop1.Checked then    else if menuPakkeshopRetur1.Checked then
2032    begin    begin
2033       URLStr := Format(UrlReturPakkeshop,[Sted, PakkeNr]);       URLStr := Format(Config.UrlReturPakkeshop,[Sted, PakkeNr]);
2034    end    end
2035    else if menuIndlevering.Checked then    else if menuIndlevering.Checked then
2036    begin    begin
2037      URLStr := Format(UrlIndleveringsPakke,[Sted, PakkeNr]);      URLStr := Format(Config.UrlIndleveringsPakke,[Sted, PakkeNr]);
2038    end    end
2039    else    else
2040    begin    begin
# Line 2037  begin Line 2043  begin
2043    
2044    if chkForstorTilDirekte.Checked then  // Denne skal være efter if/else kæden da den overrider de øvrige URL'er    if chkForstorTilDirekte.Checked then  // Denne skal være efter if/else kæden da den overrider de øvrige URL'er
2045    begin    begin
2046      URLStr := Format(URLOmdirigerTilPakkeshop,[Sted, PakkeNr]);      URLStr := Format(Config.URLOmdirigerTilPakkeshop,[Sted, PakkeNr]);
2047    end;    end;
2048    
2049    try    try
# Line 2064  begin Line 2070  begin
2070    
2071    XMLDocument1.LoadFromXML(WebSvar);    XMLDocument1.LoadFromXML(WebSvar);
2072    try    try
2073      if Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked then      if menuPakkeshop1.Checked or menuPakkeshopRetur1.Checked then
2074       begin       begin
2075        RuteNummer := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopTurid').Text;        RuteNummer := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopTurid').Text;
2076        Kommentar := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Stregkodematch').Text;        Kommentar := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Stregkodematch').Text;
# Line 2072  begin Line 2078  begin
2078        BoghandlerNavn := BoghandlerNavn + ' ' + XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;        BoghandlerNavn := BoghandlerNavn + ' ' + XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;
2079        PrintNyLabel := False;        PrintNyLabel := False;
2080    
2081        if Pakkeshoplevering1.Checked then        if menuPakkeshop1.Checked then
2082        begin        begin
2083          try          try
2084            PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text);            PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text);
# Line 2099  begin Line 2105  begin
2105         RuteNummer := PakkeshopLabel.Koreliste + '  ->  ' +  PakkeshopLabel.PakkeshopTurid;         RuteNummer := PakkeshopLabel.Koreliste + '  ->  ' +  PakkeshopLabel.PakkeshopTurid;
2106         Stregkode := PakkeshopLabel.Stregkode;         Stregkode := PakkeshopLabel.Stregkode;
2107    
2108         LabelPrint.PrintPakkeshopLabel( PakkeshopLabel );         LabelPrint.PrintFuldPakkeLabel( PakkeshopLabel );
2109         chkForstorTilDirekte.Checked := false;         chkForstorTilDirekte.Checked := false;
2110    
2111       end;       end;
# Line 2113  begin Line 2119  begin
2119        Kommentar := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('Kommentar').Text;        Kommentar := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('Kommentar').Text;
2120        BoghandlerNavn := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('BoghandlerNavn').Text;        BoghandlerNavn := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('BoghandlerNavn').Text;
2121        Leveringssted := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('Leveringssted').Text;        Leveringssted := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('Leveringssted').Text;
2122        if Budlevering1.Checked then        if menuDaoDirekte1.Checked then
2123          begin          begin
2124          try          try
2125            SmsKode := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('SmsKode').Text;            SmsKode := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('SmsKode').Text;
# Line 2144  begin Line 2150  begin
2150      begin      begin
2151        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then
2152        begin        begin
2153            Kommentar := Kommentar + ' Pakke burde være hos DAO Distribution';            Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted;
2154            PrintNyLabel := False;            PrintNyLabel := False;
2155        end;        end;
2156      end      end
2157      else if (Budlevering1.Checked) and (Leveringssted <> Sted) then      else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) And (Leveringssted <> '') then
2158      begin      begin
2159         if (Leveringssted = 'E') and (Sted = 'DBK') then         if (Leveringssted = 'E') and (Sted = 'DBK') then
2160         begin         begin
# Line 2156  begin Line 2162  begin
2162         end         end
2163         else         else
2164         begin         begin
2165            Kommentar := Kommentar + ' Pakke burde være hos DAO Distribution';            Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted;
2166            PrintNyLabel := False;            PrintNyLabel := False;
2167         end;         end;
2168      end;      end;
# Line 2177  begin Line 2183  begin
2183    //Label1.Caption := Kommentar;   // bruges hvis der skal vises linieskift - det kan man ikke i en staticText    //Label1.Caption := Kommentar;   // bruges hvis der skal vises linieskift - det kan man ikke i en staticText
2184    BoghandlerNavnST.Caption := StringReplace(BoghandlerNavn, ' & ', ' && ', [rfReplaceAll, rfIgnoreCase]);    BoghandlerNavnST.Caption := StringReplace(BoghandlerNavn, ' & ', ' && ', [rfReplaceAll, rfIgnoreCase]);
2185    List1msg := TimeToStr(now) + '; ';    List1msg := TimeToStr(now) + '; ';
2186    if Pakkeshoplevering1.Checked then    if menuPakkeshop1.Checked then
2187      List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; ';      List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; ';
2188    List1Pakkestorrelse := '';    List1Pakkestorrelse := '';
2189    if radioStorPakke.Checked then    if radioStorPakke.Checked then
# Line 2189  begin Line 2195  begin
2195      List1Pakkestorrelse := 'Lille pakke';      List1Pakkestorrelse := 'Lille pakke';
2196    end;    end;
2197    List1msg := List1msg + BoghandlerNavn + '; ';    List1msg := List1msg + BoghandlerNavn + '; ';
2198    if ReturpakkerfraDAO1.Checked then    if menuNatxpressReturDAO1.Checked then
2199    begin    begin
2200      List1msg := List1msg + RightStr(Kommentar, Length(Kommentar)-8);      List1msg := List1msg + RightStr(Kommentar, Length(Kommentar)-8);
2201    end;    end;
2202    if Returpakkerfraboghandler1.Checked then    if menuNatxpressReturfraKunde1.Checked then
2203    begin    begin
2204      List1msg := List1msg + RightStr(Kommentar, Length(Kommentar)-16);      List1msg := List1msg + RightStr(Kommentar, Length(Kommentar)-16);
2205    end;    end;
2206    if ReturpakkerfraDAO1.Checked or Returpakkerfraboghandler1.Checked then    if menuNatxpressReturDAO1.Checked or menuNatxpressReturfraKunde1.Checked then
2207       List1msg := List1msg + '; ' + List1Pakkestorrelse;       List1msg := List1msg + '; ' + List1Pakkestorrelse;
2208    if length(BoghNr) > 0 then    if length(BoghNr) > 0 then
2209    begin    begin
2210      List1Msg := List1Msg + '; Indtastet ' + BoghNr;      List1Msg := List1Msg + '; Indtastet ' + BoghNr;
2211    end;    end;
2212    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
2213    begin    begin
2214       List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn;       List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn;
2215        if (radioStorPakke.Checked) then        if (radioStorPakke.Checked) then
# Line 2215  begin Line 2221  begin
2221          List1msg := List1msg + '; Lille pakke';          List1msg := List1msg + '; Lille pakke';
2222        end;        end;
2223    end;    end;
2224    if Returpakkerfrapakkeshop1.Checked then    if menuPakkeshopRetur1.Checked then
2225    begin    begin
2226      List1msg := List1msg + Stregkode + ' ' + RightStr(Kommentar, Length(Kommentar)-6);      List1msg := List1msg + Stregkode + ' ' + RightStr(Kommentar, Length(Kommentar)-6);
2227    end;    end;
2228    if Pakkernormal1.Checked then    if menuNatXpress1.Checked then
2229    begin    begin
2230      if (Kommentar = '***** Kommentar *****')                       // fra test printer funktionen      if (Kommentar = '***** Kommentar *****')                       // fra test printer funktionen
2231      or (BoghandlerNavn = 'Forbindelse ok')                         // fra test forbindelse funktionen      or (BoghandlerNavn = 'Forbindelse ok')                         // fra test forbindelse funktionen
# Line 2259  pakkeForkertSted : Integer; Line 2265  pakkeForkertSted : Integer;
2265    kontrolKoreliste : string;    kontrolKoreliste : string;
2266    nytRuteNummer, nyFarve : String;    nytRuteNummer, nyFarve : String;
2267  begin  begin
2268    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
2269       RuteNummerST.Color := TUtils.HexToTColor(Farve);       RuteNummerST.Color := TUtils.HexToTColor(Farve);
2270    
2271    pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);    pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);
# Line 2297  begin Line 2303  begin
2303        end;        end;
2304    end    end
2305    else    else
2306    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
2307    begin    begin
2308       if (BoghandlerNavn = 'Ukendt pakke') then       if (BoghandlerNavn = 'Ukendt pakke') then
2309       begin       begin
# Line 2366  begin Line 2372  begin
2372    
2373    end;    end;
2374    
2375    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
2376    begin    begin
2377      case BladhusSted of      case BladhusSted of
2378        00 :  begin;        00 :  begin;
# Line 2415  begin Line 2421  begin
2421    end;    end;
2422    
2423  // Hvis det er normal bogpakke modtagelse til UBD skal vi p.t. ikke printe - men stopper her  // Hvis det er normal bogpakke modtagelse til UBD skal vi p.t. ikke printe - men stopper her
2424    if Pakkernormal1.Checked and ( (Sted = '1') or (Sted = '2') or (Sted = '3') or (Sted = '4') ) then    if menuNatXpress1.Checked and ( (Sted = '1') or (Sted = '2') or (Sted = '3') or (Sted = '4') ) then
2425    begin    begin
2426      exit;      exit;
2427    end;    end;
2428    
2429    if Budlevering1.Checked or ( Sprgefterboghandlernummer1.Enabled and chkSporgEfterKunde.Checked and ( (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) ) and (printNyLabel = false) ) then    if menuDaoDirekte1.Checked or ( Sprgefterboghandlernummer1.Enabled and chkSporgEfterKunde.Checked and ( (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) ) and (printNyLabel = false) ) then
2430    begin    begin
2431    end    end
2432    else    else
# Line 2454  end; Line 2460  end;
2460    
2461  procedure TMainForm.radioStorPakkeClick(Sender: TObject);  procedure TMainForm.radioStorPakkeClick(Sender: TObject);
2462  begin  begin
2463      Storepakker1.Checked := true;      menuStorePakker.Checked := true;
2464      radioStorPakke.Checked := true;      radioStorPakke.Checked := true;
2465  end;  end;
2466    
2467  procedure TMainForm.radioLillePakkeClick(Sender: TObject);  procedure TMainForm.radioLillePakkeClick(Sender: TObject);
2468  begin  begin
2469      Smpakker1.Checked := true;      menuSmaaPakker.Checked := true;
2470      radioLillePakke.Checked := true;      radioLillePakke.Checked := true;
2471  end;  end;
2472    
# Line 2503  begin Line 2509  begin
2509    end;    end;
2510  end;  end;
2511    
2512  procedure TMainForm.Pakkeshoplevering1Click(Sender: TObject);  procedure TMainForm.menuPakkeshop1Click(Sender: TObject);
2513  begin  begin
2514        Scanningtype := '5';        Scanningtype := '5';
2515        InitPakkeshoplevering();        InitPakkeshoplevering();
# Line 2512  end; Line 2518  end;
2518    
2519  procedure TMainForm.NulstilAutomatiskValg();  procedure TMainForm.NulstilAutomatiskValg();
2520  begin  begin
2521      Automatiskvalg1.Checked := false;      menuAutomatiskvalg1.Checked := false;
2522      PanelValgA.Color := clBtnFace;      PanelValgA.Color := clBtnFace;
2523      PanelValgA.Font.Color := clWindowText;      PanelValgA.Font.Color := clWindowText;
2524    
# Line 2524  begin Line 2530  begin
2530        // her skal vi også disable knappen for 01, 02, 03 og 04 (NS, BK, FD og DBK)        // her skal vi også disable knappen for 01, 02, 03 og 04 (NS, BK, FD og DBK)
2531        PanelValgA.Enabled := false;        PanelValgA.Enabled := false;
2532        PanelValgA.Font.Color := clInactiveCaption;        PanelValgA.Font.Color := clInactiveCaption;
2533        Automatiskvalg1.Enabled := false;        menuAutomatiskvalg1.Enabled := false;
2534      end;      end;
2535  // 20150317: slut  // 20150317: slut
2536  end;  end;
# Line 2550  begin Line 2556  begin
2556      // Tjekker UrlNormal      // Tjekker UrlNormal
2557      if PanelValg1.Enabled = true then      if PanelValg1.Enabled = true then
2558      begin      begin
2559        TjekkerEnkeltUrl('UrlNormal', UrlNormal, urlFejl);        TjekkerEnkeltUrl('UrlNormal', Config.UrlNormal, urlFejl);
2560      end;      end;
2561    
2562      // Tjekker UrlReturDAO      // Tjekker UrlReturDAO
2563      if PanelValg2.Enabled = true then      if PanelValg2.Enabled = true then
2564      begin      begin
2565        TjekkerEnkeltUrl('UrlReturDAO', UrlReturDAO, urlFejl);        TjekkerEnkeltUrl('UrlReturDAO', Config.UrlReturDAO, urlFejl);
2566      end;      end;
2567    
2568      // Tjekker UrlReturBoghandler      // Tjekker UrlReturBoghandler
2569      if PanelValg3.Enabled = true then      if PanelValg3.Enabled = true then
2570      begin      begin
2571        TjekkerEnkeltUrl('UrlReturBoghandler', UrlReturBoghandler, urlFejl);        TjekkerEnkeltUrl('UrlReturBoghandler', Config.UrlReturBoghandler, urlFejl);
2572      end;      end;
2573    
2574      // Tjekker UrlBudlevering      // Tjekker UrlBudlevering
2575      if PanelValg4.Enabled = true then      if PanelValg4.Enabled = true then
2576      begin      begin
2577        TjekkerEnkeltUrl('UrlBudlevering', UrlBudlevering, urlFejl);        TjekkerEnkeltUrl('UrlBudlevering', Config.UrlBudlevering, urlFejl);
2578      end;      end;
2579    
2580      // Tjekker UrlPakkeshoplevering      // Tjekker UrlPakkeshoplevering
2581      if PanelValg5.Enabled = true then      if PanelValg5.Enabled = true then
2582      begin      begin
2583        TjekkerEnkeltUrl('UrlPakkeshoplevering', UrlPakkeshoplevering, urlFejl);        TjekkerEnkeltUrl('UrlPakkeshoplevering', Config.UrlPakkeshoplevering, urlFejl);
2584      end;      end;
2585    
2586      // Tjekker UrlReturPakkeshop      // Tjekker UrlReturPakkeshop
2587      if PanelValg6.Enabled = true then      if PanelValg6.Enabled = true then
2588      begin      begin
2589        TjekkerEnkeltUrl('UrlReturPakkeshop', UrlReturPakkeshop, urlFejl);        TjekkerEnkeltUrl('UrlReturPakkeshop', Config.UrlReturPakkeshop, urlFejl);
2590      end;      end;
2591    
2592      // Tjekker UrlManglendeScanninger      // Tjekker UrlManglendeScanninger
2593      if (PanelValg1.Enabled = true) or (PanelValg4.Enabled = true) then      if (PanelValg1.Enabled = true) or (PanelValg4.Enabled = true) then
2594      begin      begin
2595        TjekkerEnkeltUrl('UrlManglendeScanninger', UrlManglendeScanninger, urlFejl);        TjekkerEnkeltUrl('UrlManglendeScanninger', Config.UrlManglendeScanninger, urlFejl);
2596      end;      end;
2597    
2598      // Tjekker UrlPakkeshopManglendeScanninger      // Tjekker UrlPakkeshopManglendeScanninger
2599      if PanelValg5.Enabled = true then      if PanelValg5.Enabled = true then
2600      begin      begin
2601        TjekkerEnkeltUrl('UrlPakkeshopManglendeScanninger', UrlPakkeshopManglendeScanninger, urlFejl);        TjekkerEnkeltUrl('UrlPakkeshopManglendeScanninger', Config.UrlPakkeshopManglendeScanninger, urlFejl);
2602      end;      end;
2603    
2604      // Tjekker UrlPakkeshopManglendeReturScanninger      // Tjekker UrlPakkeshopManglendeReturScanninger
2605      if PanelValg6.Enabled = true then      if PanelValg6.Enabled = true then
2606      begin      begin
2607        TjekkerEnkeltUrl('UrlPakkeshopManglendeReturScanninger', UrlPakkeshopManglendeReturScanninger, urlFejl);        TjekkerEnkeltUrl('UrlPakkeshopManglendeReturScanninger', Config.UrlPakkeshopManglendeReturScanninger, urlFejl);
2608      end;      end;
2609    
2610     // Tjekker UrlIndleveringsPakke og UrlIndleveringsPakkeManglendeScanninger     // Tjekker UrlIndleveringsPakke og UrlIndleveringsPakkeManglendeScanninger
2611      if PanelValg7.Enabled = true then      if PanelValg7.Enabled = true then
2612      begin      begin
2613        TjekkerEnkeltUrl('UrlIndleveringsPakke', UrlIndleveringsPakke, urlFejl);        TjekkerEnkeltUrl('UrlIndleveringsPakke', Config.UrlIndleveringsPakke, urlFejl);
2614        TjekkerEnkeltUrl('UrlIndleveringsPakkeManglendeScanninger', UrlIndleveringsPakkeManglendeScanninger, urlFejl);        TjekkerEnkeltUrl('UrlIndleveringsPakkeManglendeScanninger', Config.UrlIndleveringsPakkeManglendeScanninger, urlFejl);
2615      end;      end;
2616    
2617      // Tjekker UrlEKLoverforsel      // Tjekker UrlEKLoverforsel
2618      if PanelValg1.Enabled = true then      if PanelValg1.Enabled = true then
2619      begin      begin
2620        TjekkerEnkeltUrl('UrlEKLoverforsel', UrlEKLoverforsel, urlFejl);        TjekkerEnkeltUrl('UrlEKLoverforsel', Config.UrlEKLoverforsel, urlFejl);
2621      end;      end;
2622    
2623    
2624      // Tjekker UrlEKLoverforselPakkeshop      // Tjekker UrlEKLoverforselPakkeshop
2625      if PanelValg5.Enabled = true then      if PanelValg5.Enabled = true then
2626      begin      begin
2627        TjekkerEnkeltUrl('UrlEKLoverforselPakkeshop', UrlEKLoverforselPakkeshop, urlFejl);        TjekkerEnkeltUrl('UrlEKLoverforselPakkeshop', Config.UrlEKLoverforselPakkeshop, urlFejl);
2628      end;      end;
2629    
2630    
2631      // Tjekker UrlFindPakketype      // Tjekker UrlFindPakketype
2632      TjekkerEnkeltUrl('UrlFindPakketype', UrlFindPakketype, urlFejl);      TjekkerEnkeltUrl('UrlFindPakketype', Config.UrlFindPakketype, urlFejl);
2633    
2634      // Tjekker UrlSendPrograminfo      // Tjekker UrlSendPrograminfo
2635      TjekkerEnkeltUrl('UrlSendPrograminfo', UrlSendPrograminfo, urlFejl);      TjekkerEnkeltUrl('UrlSendPrograminfo', Config.UrlSendPrograminfo, urlFejl);
2636    
2637    
2638    
# Line 2665  begin Line 2671  begin
2671      if TjekUrls = '1' then      if TjekUrls = '1' then
2672      begin      begin
2673        ShowMessage(logTekst);        ShowMessage(logTekst);
2674        UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut        Config.UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
2675        Application.Terminate;        Application.Terminate;
2676    
2677        raise Exception.Create('UrlFejl');        raise Exception.Create('UrlFejl');
# Line 2746  begin Line 2752  begin
2752    if BoghandlerNavnST.Caption = 'Fejl i forbindelse til server' then    if BoghandlerNavnST.Caption = 'Fejl i forbindelse til server' then
2753    begin    begin
2754       ShowMessage('Programmet afbrydes...');       ShowMessage('Programmet afbrydes...');
2755       UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut       Config.UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
2756       Application.Terminate;       Application.Terminate;
2757       exit;       exit;
2758    end;    end;
# Line 2757  begin Line 2763  begin
2763    begin    begin
2764       MainForm.Color := TUtils.HexToTColor(Farve);       MainForm.Color := TUtils.HexToTColor(Farve);
2765    end;    end;
2766    if (Budlevering1.Checked) then    if (menuDaoDirekte1.Checked) then
2767    begin    begin
2768       InitLillePakke();       InitLillePakke();
2769    end;    end;
# Line 2821  procedure TMainForm.PanelValgAClick(Send Line 2827  procedure TMainForm.PanelValgAClick(Send
2827  begin  begin
2828  // Skal ikke toggle men bare sætte funktionen on  // Skal ikke toggle men bare sætte funktionen on
2829  // Fravælges ved at vælge en scanningstype  // Fravælges ved at vælge en scanningstype
2830    AutomatiskValg1.Checked := true;    menuAutomatiskvalg1.Checked := true;
2831    PanelValgA.Color := clGreen;    PanelValgA.Color := clGreen;
2832    PanelValgA.Font.Color := clWhite;    PanelValgA.Font.Color := clWhite;
2833    
# Line 2829  begin Line 2835  begin
2835    
2836  end;  end;
2837    
2838  procedure TMainForm.Pakkernormal1Click(Sender: TObject);  procedure TMainForm.menuNatXpress1Click(Sender: TObject);
2839  begin  begin
2840        Scanningtype := '1';        Scanningtype := '1';
2841        NulstilAutomatiskValg();        NulstilAutomatiskValg();
# Line 2977  begin Line 2983  begin
2983      tekst := tekst+crlf+crlf;      tekst := tekst+crlf+crlf;
2984      tekst := tekst+crlf+crlf+'          **********  DETTE ER KUN EN TEST VERSION  **********';      tekst := tekst+crlf+crlf+'          **********  DETTE ER KUN EN TEST VERSION  **********';
2985      tekst := tekst+crlf+crlf;      tekst := tekst+crlf+crlf;
2986      tekst := tekst+crlf+crlf+'Url: '+url;      tekst := tekst+crlf+crlf+'Url: ' + Url;
2987    end;    end;
2988    
2989    MessageBox(Handle, PWideChar(tekst), 'Information', MB_OK);    MessageBox(Handle, PWideChar(tekst), 'Information', MB_OK);
2990    
2991  end;  end;
2992    
2993    
2994  procedure TMainForm.ListBox1DrawItem(Control: TWinControl; Index: Integer;  procedure TMainForm.ListBox1DrawItem(Control: TWinControl; Index: Integer;
2995    Rect: TRect; State: TOwnerDrawState);    Rect: TRect; State: TOwnerDrawState);
2996  var  var
# Line 3098  begin Line 3105  begin
3105    
3106  end;  end;
3107    
3108  procedure TMainForm.ReturpakkerfraDAO1Click(Sender: TObject);  procedure TMainForm.menuNatxpressReturDAO1Click(Sender: TObject);
3109  begin  begin
3110        Scanningtype := '2';        Scanningtype := '2';
3111        NulstilAutomatiskValg();        NulstilAutomatiskValg();
3112        InitReturFraDao();        InitReturFraDao();
3113  end;  end;
3114    
3115  procedure TMainForm.Returpakkerfrapakkeshop1Click(Sender: TObject);  procedure TMainForm.menuPakkeshopRetur1Click(Sender: TObject);
3116  begin  begin
3117        Scanningtype := '6';        Scanningtype := '6';
3118        InitReturFraPakkeshop();        InitReturFraPakkeshop();
# Line 3114  end; Line 3121  end;
3121    
3122  procedure TMainForm.InitNatxpresslevering();  procedure TMainForm.InitNatxpresslevering();
3123  begin  begin
3124        AutomatiskTjekkodeStyring1.Enabled := true;        menuAutomatiskTjekkodeStyring.Enabled := true;
3125        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3126        Pakkernormal1.Checked := true;        menuNatXpress1.Checked := true;
3127        InitForm(FarveNormal,TitelNormal,UrlNormal);        InitForm(FarveNormal,TitelNormal,Config.UrlNormal);
3128        PanelValg1.Color := clGreen;        PanelValg1.Color := clGreen;
3129        PanelValg1.Font.Color := clWhite;        PanelValg1.Font.Color := clWhite;
3130    
# Line 3128  begin Line 3135  begin
3135        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3136        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3137        Sprgefterboghandlernummer1.Enabled := true;        Sprgefterboghandlernummer1.Enabled := true;
3138        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3139        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3140        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3141        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3142        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3150  end; Line 3157  end;
3157    
3158  procedure TMainForm.InitReturFraDao();  procedure TMainForm.InitReturFraDao();
3159  begin  begin
3160        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3161        ReturpakkerfraDAO1.Checked := true;        menuNatxpressReturDAO1.Checked := true;
3162        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3163        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);        InitForm(FarveReturDAO,TitelReturDAO, Config.UrlReturDAO);
3164        PanelValg2.Color := clGreen;        PanelValg2.Color := clGreen;
3165        PanelValg2.Font.Color := clWhite;        PanelValg2.Font.Color := clWhite;
3166    
# Line 3164  begin Line 3171  begin
3171        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3172        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3173        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3174        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3175        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3176        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3177        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3178        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3181  end; Line 3188  end;
3188    
3189  procedure TMainForm.InitReturFraKunde();  procedure TMainForm.InitReturFraKunde();
3190  begin  begin
3191        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3192        Returpakkerfraboghandler1.Checked := true;        menuNatxpressReturfraKunde1.Checked := true;
3193        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3194        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);        InitForm(FarveReturBoghandler,TitelReturBoghandler, Config.UrlReturBoghandler);
3195        PanelValg3.Color := clGreen;        PanelValg3.Color := clGreen;
3196        PanelValg3.Font.Color := clWhite;        PanelValg3.Font.Color := clWhite;
3197    
# Line 3194  begin Line 3201  begin
3201        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3202        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3203        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3204        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3205        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3206        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3207        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3208        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3211  end; Line 3218  end;
3218    
3219  procedure TMainForm.InitDirektelevering();  procedure TMainForm.InitDirektelevering();
3220  begin  begin
3221        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3222        Budlevering1.Checked := true;        menuDaoDirekte1.Checked := true;
3223        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3224        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);        InitForm(FarveBudlevering,TitelBudlevering, Config.UrlBudlevering);
3225        PanelValg4.Color := clGreen;        PanelValg4.Color := clGreen;
3226        PanelValg4.Font.Color := clWhite;        PanelValg4.Font.Color := clWhite;
3227    
# Line 3225  begin Line 3232  begin
3232        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3233        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3234        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3235        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3236        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3237        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3238        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3239        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3251  end; Line 3258  end;
3258    
3259  procedure TMainForm.InitPakkeshoplevering();  procedure TMainForm.InitPakkeshoplevering();
3260  begin  begin
3261        AutomatiskTjekkodeStyring1.Enabled := true;        menuAutomatiskTjekkodeStyring.Enabled := true;
3262        Pakkeshoplevering1.Checked := true;        menuPakkeshop1.Checked := true;
3263        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3264        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering, Config.UrlPakkeshoplevering);
3265        PanelValg5.Color := clGreen;        PanelValg5.Color := clGreen;
3266        PanelValg5.Font.Color := clWhite;        PanelValg5.Font.Color := clWhite;
3267    
# Line 3265  begin Line 3272  begin
3272        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3273        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3274        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3275        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3276        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3277        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3278        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3279        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3291  end; Line 3298  end;
3298    
3299  procedure TMainForm.InitReturFraPakkeshop();  procedure TMainForm.InitReturFraPakkeshop();
3300  begin  begin
3301        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3302        Returpakkerfrapakkeshop1.Checked := true;        menuPakkeshopRetur1.Checked := true;
3303        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3304        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);        InitForm(FarveReturPakkeshop,TitelReturPakkeshop, Config.UrlReturPakkeshop);
3305        PanelValg6.Color := clGreen;        PanelValg6.Color := clGreen;
3306        PanelValg6.Font.Color := clWhite;        PanelValg6.Font.Color := clWhite;
3307    
# Line 3305  begin Line 3312  begin
3312        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3313        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3314        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3315        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3316        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3317        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3318        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3319        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3329  begin Line 3336  begin
3336        IdFTP1.PassiveUseControlHost := true;        IdFTP1.PassiveUseControlHost := true;
3337  end;  end;
3338    
3339  procedure TMainForm.Returpakkerfraboghandler1Click(Sender: TObject);  procedure TMainForm.menuNatxpressReturfraKunde1Click(Sender: TObject);
3340  begin  begin
3341        Scanningtype := '3';        Scanningtype := '3';
3342        NulstilAutomatiskValg();        NulstilAutomatiskValg();
# Line 3339  end; Line 3346  end;
3346  procedure TMainForm.InitIndleveringskode();  procedure TMainForm.InitIndleveringskode();
3347  begin  begin
3348        menuIndlevering.Checked := true;        menuIndlevering.Checked := true;
3349        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3350    
3351        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3352        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);        InitForm(FarveIndlevering, TitelIndlevering, Config.UrlReturPakkeshop);
3353        PanelValg7.Color := clGreen;        PanelValg7.Color := clGreen;
3354        PanelValg7.Font.Color := clWhite;        PanelValg7.Font.Color := clWhite;
3355    
# Line 3356  begin Line 3363  begin
3363    
3364    
3365    
3366        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3367        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3368        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3369        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3370        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3382  begin Line 3389  begin
3389  end;  end;
3390    
3391    
3392  procedure TMainForm.Storepakker1Click(Sender: TObject);  procedure TMainForm.menuStorePakkerClick(Sender: TObject);
3393  begin  begin
3394    InitStorPakke();    InitStorPakke();
3395  end;  end;
3396    
3397  procedure TMainForm.Smpakker1Click(Sender: TObject);  procedure TMainForm.menuSmaaPakkerClick(Sender: TObject);
3398  begin  begin
3399    InitLillePakke();    InitLillePakke();
3400  end;  end;
# Line 3395  end; Line 3402  end;
3402  procedure TMainForm.InitLillePakke();  procedure TMainForm.InitLillePakke();
3403  begin  begin
3404    radioLillePakke.Checked := true;    radioLillePakke.Checked := true;
3405    Smpakker1.Checked := true;    menuSmaaPakker.Checked := true;
3406  //  Stregkode := '';  //  Stregkode := '';
3407  end;  end;
3408    
3409  procedure TMainForm.InitStorPakke();  procedure TMainForm.InitStorPakke();
3410  begin  begin
3411    radioStorPakke.Checked := true;    radioStorPakke.Checked := true;
3412    Storepakker1.Checked := true;    menuStorePakker.Checked := true;
3413  // 20150310: start  // 20150310: start
3414  //  Stregkode := '';  //  Stregkode := '';
3415  // 20150310: slut  // 20150310: slut
# Line 3446  begin Line 3453  begin
3453       exit;       exit;
3454    end;    end;
3455    
3456    if Smpakker1.Checked then    if menuSmaaPakker.Checked then
3457       if ScannetOkLyd  <> '' then       if ScannetOkLyd  <> '' then
3458       begin       begin
3459         PlaySound(PWideChar(ScannetOkLyd));         PlaySound(PWideChar(ScannetOkLyd));
# Line 3455  begin Line 3462  begin
3462       begin       begin
3463         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);
3464       end;       end;
3465    if Storepakker1.Checked then    if menuStorePakker.Checked then
3466       if ScannetOkStorLyd  <> '' then       if ScannetOkStorLyd  <> '' then
3467       begin       begin
3468         PlaySound(PWideChar(ScannetOkStorLyd));         PlaySound(PWideChar(ScannetOkStorLyd));
# Line 3467  begin Line 3474  begin
3474  end;  end;
3475    
3476    
3477  procedure TMainForm.Budlevering1Click(Sender: TObject);  procedure TMainForm.menuDaoDirekte1Click(Sender: TObject);
3478  begin  begin
3479        Scanningtype := '4';        Scanningtype := '4';
3480        NulstilAutomatiskValg();        NulstilAutomatiskValg();
# Line 3495  begin Line 3502  begin
3502      logTekst := 'Overfører de scannede pakker til EKL';      logTekst := 'Overfører de scannede pakker til EKL';
3503      SkrivScanningLogFil(logTekst);      SkrivScanningLogFil(logTekst);
3504      StedKode := Sted;      StedKode := Sted;
3505      URLStr := Format(UrlEKLoverforsel,[StedKode,Sted]);      URLStr := Format(Config.UrlEKLoverforsel,[StedKode,Sted]);
3506    
3507      if PanelValg5.Color = clGreen then      if PanelValg5.Color = clGreen then
3508      begin      begin
3509        URLStr := Format(UrlEKLoverforselPakkeshop,[StedKode,Sted]);        URLStr := Format(Config.UrlEKLoverforselPakkeshop,[StedKode,Sted]);
3510      end;      end;
3511    
3512    
# Line 4113  var Line 4120  var
4120    I: Integer;    I: Integer;
4121    stregkode, modtagernavn, modtageradresse, kommentar : string;    stregkode, modtagernavn, modtageradresse, kommentar : string;
4122    pakketype, tjekkodestatus : String;    pakketype, tjekkodestatus : String;
4123    pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer;    antalLiniefelter, antalFelterFundet, linienr : Integer;
4124    //pakketyper : TStrings;    //pakketyper : TStrings;
4125    pakketyper : TDictionary<String, Integer>;    pakketyper : TDictionary<String, Integer>;
4126    tmpAntal : Integer;    tmpAntal : Integer;
4127    
4128     time, timeSamlet : TTimingHelper;
4129    
4130    
4131    antlin : Integer;    antlin : Integer;
# Line 4153  var Line 4161  var
4161    
4162      if (Scanningtype = '7') then      if (Scanningtype = '7') then
4163       begin       begin
4164        URLStr := Format(UrlIndleveringsPakkeManglendeScanninger, [StedKode]);        URLStr := Format(Config.UrlIndleveringsPakkeManglendeScanninger, [StedKode]);
4165       end       end
4166      else if (Scanningtype = '6') then      else if (Scanningtype = '6') then
4167       begin       begin
4168        URLStr := Format(UrlPakkeshopManglendeReturScanninger, [StedKode]);        URLStr := Format(Config.UrlPakkeshopManglendeReturScanninger, [StedKode]);
4169       end       end
4170      else if (Scanningtype = '5') then      else if (Scanningtype = '5') then
4171       begin       begin
4172        URLStr := Format(UrlPakkeshopManglendeScanninger, [StedKode]);        URLStr := Format(Config.UrlPakkeshopManglendeScanninger, [StedKode]);
4173       end       end
4174      else if (Scanningtype = '1') then      else if (Scanningtype = '1') then
4175       begin       begin
4176        URLStr := Format(UrlManglendeScanninger,[StedKode,'B2']);        URLStr := Format(Config.UrlManglendeScanninger,[StedKode,'B2']);
4177       end       end
4178      else if (Scanningtype = '4') then      else if (Scanningtype = '4') then
4179       begin       begin
4180        URLStr := Format(UrlManglendeScanninger,[StedKode,'A2']);    // Budleveringer        URLStr := Format(Config.UrlManglendeScanninger,[StedKode,'A2']);    // Budleveringer
4181       end       end
4182      else      else
4183       begin       begin
# Line 4177  var Line 4185  var
4185       end;       end;
4186  // 20150310: slut  // 20150310: slut
4187    
4188        time := TTimingHelper.create();        //DEBUG
4189        timeSamlet := TTimingHelper.create();        //DEBUG
4190    
4191      try      try
4192      //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST      //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST
4193  //    URLStr := string(Utf8Encode(URLStr));  //    URLStr := string(Utf8Encode(URLStr));
# Line 4186  var Line 4197  var
4197        begin        begin
4198          // Her skal vi ikke gøre noget - men vi skal forespørge igen          // Her skal vi ikke gøre noget - men vi skal forespørge igen
4199          WebSvar := IdHTTP1.Get(URLStr);          WebSvar := IdHTTP1.Get(URLStr);
4200    
4201    
4202    
4203        end;        end;
4204        on e:exception do        on e:exception do
4205        begin        begin
# Line 4196  var Line 4210  var
4210        end;        end;
4211      end;      end;
4212      try      try
4213          time.stop('HTTP Load');     //DEBUG
4214    
4215        XMLDocument1.LoadFromXML(WebSvar);        XMLDocument1.LoadFromXML(WebSvar);
4216    
4217          time.stop('XML Load');     //DEBUG
4218    
4219    
4220    
4221    
4222    
4223    
4224        antlin := 0;        antlin := 0;
4225        antlinIdag := 0;        antlinIdag := 0;
# Line 4240  var Line 4262  var
4262        SetLength(stregkoderMedTjekkodeArray, 0);    // reset fra tidligere brug        SetLength(stregkoderMedTjekkodeArray, 0);    // reset fra tidligere brug
4263        SetLength(stregkoderMedTjekkodeArray, antlin);  // sæt antal elementer i array        SetLength(stregkoderMedTjekkodeArray, antlin);  // sæt antal elementer i array
4264    
4265          time.stop('Antal Linier');//DEBUG
4266    
4267        Application.Processmessages; //Ugly Hack to improve User Experience when switching modes        Application.Processmessages; //Ugly Hack to improve User Experience when switching modes
4268    
# Line 4325  var Line 4348  var
4348        end;        end;
4349    
4350    
4351          time.stop('Fyld Listbox2');//DEBUG
4352    
4353    
4354        Application.Processmessages; //Ugly Hack to improve User Experience when switching modes        Application.Processmessages; //Ugly Hack to improve User Experience when switching modes
4355    
4356    
# Line 4444  var Line 4470  var
4470        end;        end;
4471      end;      end;
4472    
4473        time.stop('Done');//DEBUG
4474        timeSamlet.stop('SamletTid');//DEBUG
4475    
4476    
4477  end;  end;
4478    
4479  procedure TMainForm.IndlesScanningLogFil();  procedure TMainForm.IndlesScanningLogFil();
# Line 4780  begin Line 4810  begin
4810      KommentarST.Caption := strMessage;      KommentarST.Caption := strMessage;
4811    end;    end;
4812    
4813      Stregkode := ''; //Nulstil stregkode feltet efter at fejl er vist
4814    
4815  end;  end;
4816    
4817  function TMainForm.getProddato() : TDate;  function TMainForm.getProddato() : TDate;
# Line 4853  begin Line 4885  begin
4885  end;  end;
4886    
4887    
4888    //Nedarvet fra IParentForm
4889    procedure TMainForm.Msg( msg : string);
4890    begin
4891      ShowMessage(msg);
4892    end;
4893    
4894  //Nedarvet fra IParentForm  //Nedarvet fra IParentForm
4895  procedure TMainForm.LogMessage( msg : string);  procedure TMainForm.LogMessage( msg : string);
Legend:
Removed from v.2977  
changed lines
  Added in v.3087
  ViewVC Help
Powered by ViewVC 1.1.20