/[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 3036 by torben, Mon May 23 13:03:49 2016 UTC revision 3076 by torben, Thu Jul 28 20:03:18 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;
# Line 286  implementation Line 291  implementation
291  procedure TMainForm.InitForm(Farve,Titel,Url : String);  procedure TMainForm.InitForm(Farve,Titel,Url : String);
292  begin  begin
293    
294        IdHTTP1.ConnectTimeout := 5000; // Vent max 5 sek på connect
295        IdHTTP1.ReadTimeout := 10000; // Vent max 10 sek på read
296    
297    
298    
299    
300      StaticTextManglendePakker.Caption := '';      StaticTextManglendePakker.Caption := '';
301    
302    
# Line 397  begin Line 408  begin
408        PrinterstatusStaticText1.Color := MainForm.Color;        PrinterstatusStaticText1.Color := MainForm.Color;
409      end;      end;
410    
411      if PakkeshopLevering1.Checked or Pakkernormal1.Checked then      if menuPakkeshop1.Checked or menuNatXpress1.Checked then
412        PakkeshopText1.Visible := true        PakkeshopText1.Visible := true
413      else      else
414        PakkeshopText1.Visible := false;        PakkeshopText1.Visible := false;
# Line 422  begin Line 433  begin
433        end;        end;
434      end;      end;
435    
436      if Automatisktjekkodestyring1.Checked then      if menuAutomatiskTjekkodeStyring.Checked then
437      begin      begin
438        chkScanTjekkode.Enabled := false;        chkScanTjekkode.Enabled := false;
439        Scanogstjekkoden1.Enabled := false;        Scanogstjekkoden1.Enabled := false;
# Line 480  begin Line 491  begin
491    StregkodeST.Caption := Stregkode;    StregkodeST.Caption := Stregkode;
492  end;  end;
493    
494  procedure TMainForm.Automatisktjekkodestyring1Click(Sender: TObject);  procedure TMainForm.menuAutomatiskTjekkodeStyringClick(Sender: TObject);
495  begin  begin
496    if Automatisktjekkodestyring1.Checked then    if menuAutomatiskTjekkodeStyring.Checked then
497    begin    begin
498       chkScanTjekkode.Enabled := false;       chkScanTjekkode.Enabled := false;
499       Scanogstjekkoden1.Enabled := false;       Scanogstjekkoden1.Enabled := false;
# Line 495  begin Line 506  begin
506    
507  end;  end;
508    
509  procedure TMainForm.Automatiskvalg1Click(Sender: TObject);  procedure TMainForm.menuAutomatiskvalg1Click(Sender: TObject);
510  begin  begin
511  // Skal ikke toggle men bare sætte funktionen on  // Skal ikke toggle men bare sætte funktionen on
512  // Fravælges ved at vælge en scanningstype  // Fravælges ved at vælge en scanningstype
513       AutomatiskValg1.Checked := true;       menuAutomatiskvalg1.Checked := true;
514       PanelValgA.Color := clGreen;       PanelValgA.Color := clGreen;
515       PanelValgA.Font.Color := clWhite;       PanelValgA.Font.Color := clWhite;
516  end;  end;
# Line 549  begin Line 560  begin
560    
561  // Sætter lige en default panel størrelse  // Sætter lige en default panel størrelse
562    MainForm.ClientWidth := 1000;    MainForm.ClientWidth := 1000;
563    MainForm.ClientHeight := 750;    MainForm.ClientHeight := 820;
564    
565    Config := TConfiguration.Create();    Config := TConfiguration.Create();
566    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 666  begin Line 677  begin
677    
678      if Scanningtype = 'A' then      if Scanningtype = 'A' then
679      begin      begin
680        Automatiskvalg1.Checked := true;        menuAutomatiskvalg1.Checked := true;
681        Scanningtype := '1';        Scanningtype := '1';
682        PanelValgA.Color := clGreen;        PanelValgA.Color := clGreen;
683        PanelValgA.Font.Color := clWhite;        PanelValgA.Font.Color := clWhite;
# Line 698  begin Line 709  begin
709    
710      if ScanTjekkodeAutomatik = '1' then      if ScanTjekkodeAutomatik = '1' then
711      begin      begin
712        Automatisktjekkodestyring1.Checked := true;        menuAutomatiskTjekkodeStyring.Checked := true;
713        chkScanTjekkode.Enabled := false;        chkScanTjekkode.Enabled := false;
714        Scanogstjekkoden1.Enabled := false;        Scanogstjekkoden1.Enabled := false;
715      end;      end;
# Line 741  begin Line 752  begin
752      SpecialVersionSted := 'NS';      SpecialVersionSted := 'NS';
753  {$EndIf}  {$EndIf}
754    
   
755      //SpecialVersionSted := '01';  // NS - bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE)      //SpecialVersionSted := '01';  // NS - bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE)
756      //SpecialVersionSted := '02';  // BK - BRUGES IKKE (brug i stedet ovenstående SpecialVersionSted BK)      //SpecialVersionSted := '02';  // BK - BRUGES IKKE (brug i stedet ovenstående SpecialVersionSted BK)
757      //SpecialVersionSted := '03';  // FD - (bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE)      //SpecialVersionSted := '03';  // FD - (bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE)
# Line 759  begin Line 769  begin
769    
770      if SpecialVersionSted = 'NS' then      if SpecialVersionSted = 'NS' then
771      begin      begin
772         SpecialVersionSted := '01';         //SpecialVersionSted := '01'; // Fra før NS overtog scanning løssalg
773         SpecialVersionScanningtype := '4';         //SpecialVersionScanningtype := '4';
774    
775          //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil
776          Sted := SpecialVersionSted;
777         // her skal vi også disable de knapper BK ikke kan bruge
778          PanelValg2.Enabled := false;
779          PanelValg2.Font.Color := clInactiveCaption;
780          PanelValg3.Enabled := false;
781          PanelValg3.Font.Color := clInactiveCaption;
782          //PanelValg6.Enabled := false;
783          //PanelValg6.Font.Color := clInactiveCaption;
784    
785         // her skal vi også disable de menupunkter FD ikke kan bruge
786          menuNatxpressReturDAO1.Enabled := false;
787          menuNatxpressReturfraKunde1.Enabled := false;
788    
789          //Returpakkerfrapakkeshop1.Enabled := false;
790      end;      end;
791    
792      if SpecialVersionSted = 'FD' then      if SpecialVersionSted = 'FD' then
# Line 780  begin Line 806  begin
806        //PanelValg6.Font.Color := clInactiveCaption;        //PanelValg6.Font.Color := clInactiveCaption;
807    
808       // her skal vi også disable de menupunkter FD ikke kan bruge       // her skal vi også disable de menupunkter FD ikke kan bruge
809        ReturpakkerfraDAO1.Enabled := false;        menuNatxpressReturDAO1.Enabled := false;
810        Returpakkerfraboghandler1.Enabled := false;        menuNatxpressReturfraKunde1.Enabled := false;
811    
812        //Returpakkerfrapakkeshop1.Enabled := false;        //Returpakkerfrapakkeshop1.Enabled := false;
813    
# Line 800  begin Line 826  begin
826        //PanelValg6.Font.Color := clInactiveCaption;        //PanelValg6.Font.Color := clInactiveCaption;
827    
828       // her skal vi også disable de menupunkter BK ikke kan bruge       // her skal vi også disable de menupunkter BK ikke kan bruge
829        ReturpakkerfraDAO1.Enabled := false;        menuNatxpressReturDAO1.Enabled := false;
830        Returpakkerfraboghandler1.Enabled := false;        menuNatxpressReturfraKunde1.Enabled := false;
831    
832        //Returpakkerfrapakkeshop1.Enabled := false;        //Returpakkerfrapakkeshop1.Enabled := false;
833    
# Line 817  begin Line 843  begin
843    
844      if SpecialVersionSted = 'DBK' then      if SpecialVersionSted = 'DBK' then
845      begin      begin
       //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil  
846        Sted := SpecialVersionSted;        Sted := SpecialVersionSted;
       // her skal vi også disable de knapper DBK ikke kan bruge  
       PanelValg2.Enabled := false;  
       PanelValg2.Font.Color := clInactiveCaption;  
       PanelValg3.Enabled := false;  
       PanelValg3.Font.Color := clInactiveCaption;  
       PanelValg5.Enabled := false;  
       PanelValg5.Font.Color := clInactiveCaption;  
       PanelValg6.Enabled := false;  
       PanelValg6.Font.Color := clInactiveCaption;  
   
   
      // her skal vi også disable de menupunkter DBK ikke kan bruge  
       ReturpakkerfraDAO1.Enabled := false;  
       Returpakkerfraboghandler1.Enabled := false;  
   
       Pakkeshoplevering1.Enabled := false;  
       Returpakkerfrapakkeshop1.Enabled := false;  
   
       if SpecialVersionScanningtype = 'A' then  
       begin  
          Scanningtype := '1';  
       end  
       else  
       begin  
         Scanningtype := SpecialVersionScanningtype;  
       end;  
847      end;      end;
848    
849      if (SpecialVersionSted = '01')      if (SpecialVersionSted = '01')
# Line 870  begin Line 869  begin
869        PanelValg7.Font.Color := clInactiveCaption;        PanelValg7.Font.Color := clInactiveCaption;
870       // 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
871    
872        Automatiskvalg1.Enabled := false;        menuAutomatiskvalg1.Enabled := false;
873    
874        Pakkernormal1.Enabled := false;        menuNatXpress1.Enabled := false;
875        ReturpakkerfraDAO1.Enabled := false;        menuNatxpressReturDAO1.Enabled := false;
876        Returpakkerfraboghandler1.Enabled := false;        menuNatxpressReturfraKunde1.Enabled := false;
877        Budlevering1.Enabled := false;        menuDaoDirekte1.Enabled := false;
878        Pakkeshoplevering1.Enabled := false;        menuPakkeshop1.Enabled := false;
879        Returpakkerfrapakkeshop1.Enabled := false;        menuPakkeshopRetur1.Enabled := false;
880        if SpecialVersionScanningtype = 'A' then        if SpecialVersionScanningtype = 'A' then
881        begin        begin
882          Scanningtype := '4';          Scanningtype := '4';
883          Budlevering1.Enabled := true;          menuDaoDirekte1.Enabled := true;
884          PanelValg4.Font.Color := clWindowText;          PanelValg4.Font.Color := clWindowText;
885          PanelValg4.Enabled := true;          PanelValg4.Enabled := true;
886        end        end
# Line 890  begin Line 889  begin
889          Scanningtype := SpecialVersionScanningtype;          Scanningtype := SpecialVersionScanningtype;
890          PanelValgA.Enabled := false;          PanelValgA.Enabled := false;
891          PanelValgA.Font.Color := clInactiveCaption;          PanelValgA.Font.Color := clInactiveCaption;
892          AutomatiskValg1.Checked := false;          menuAutomatiskvalg1.Checked := false;
893          PanelValgA.Color := clBtnFace;          PanelValgA.Color := clBtnFace;
894          if Scanningtype = '1' then          if Scanningtype = '1' then
895          begin          begin
896            Pakkernormal1.Enabled := true;            menuNatXpress1.Enabled := true;
897            PanelValg1.Enabled := true;            PanelValg1.Enabled := true;
898            PanelValg1.Font.Color := clWindowText;            PanelValg1.Font.Color := clWindowText;
899          end;          end;
900          if Scanningtype = '2' then          if Scanningtype = '2' then
901          begin          begin
902            ReturpakkerfraDAO1.Enabled := true;            menuNatxpressReturDAO1.Enabled := true;
903            PanelValg2.Enabled := true;            PanelValg2.Enabled := true;
904            PanelValg2.Font.Color := clWindowText;            PanelValg2.Font.Color := clWindowText;
905          end;          end;
906          if Scanningtype = '3' then          if Scanningtype = '3' then
907          begin          begin
908            Returpakkerfraboghandler1.Enabled := true;            menuNatxpressReturfraKunde1.Enabled := true;
909            PanelValg3.Enabled := true;            PanelValg3.Enabled := true;
910            PanelValg3.Font.Color := clWindowText;            PanelValg3.Font.Color := clWindowText;
911          end;          end;
912          if Scanningtype = '4' then          if Scanningtype = '4' then
913          begin          begin
914            Budlevering1.Enabled := true;            menuDaoDirekte1.Enabled := true;
915            PanelValg4.Enabled := true;            PanelValg4.Enabled := true;
916            PanelValg4.Font.Color := clWindowText;            PanelValg4.Font.Color := clWindowText;
917          end;          end;
918          if Scanningtype = '5' then          if Scanningtype = '5' then
919          begin          begin
920            Pakkeshoplevering1.Enabled := true;            menuPakkeshop1.Enabled := true;
921            PanelValg5.Enabled := true;            PanelValg5.Enabled := true;
922            PanelValg5.Font.Color := clWindowText;            PanelValg5.Font.Color := clWindowText;
923          end;          end;
924          if Scanningtype = '6' then          if Scanningtype = '6' then
925          begin          begin
926            Returpakkerfrapakkeshop1.Enabled := true;            menuPakkeshopRetur1.Enabled := true;
927            PanelValg6.Enabled := true;            PanelValg6.Enabled := true;
928            PanelValg6.Font.Color := clWindowText;            PanelValg6.Font.Color := clWindowText;
929          end;          end;
# Line 1005  begin Line 1004  begin
1004    
1005      if Pakketype = '1' then      if Pakketype = '1' then
1006      begin      begin
1007        Storepakker1.Checked := true;        menuStorePakker.Checked := true;
1008        radioStorPakke.Checked := true;        radioStorPakke.Checked := true;
1009      end      end
1010      else      else
1011      begin      begin
1012        Smpakker1.Checked := true;        menuSmaaPakker.Checked := true;
1013        radioLillePakke.Checked := true;        radioLillePakke.Checked := true;
1014      end;      end;
1015    
# Line 1070  begin Line 1069  begin
1069      // UBD skal p.t. ikke have adgang til flg. funktioner      // UBD skal p.t. ikke have adgang til flg. funktioner
1070      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
1071      begin      begin
1072        ReturpakkerfraDAO1.Visible := false;        menuNatxpressReturDAO1.Visible := false;
1073        Returpakkerfraboghandler1.Visible := false;        menuNatxpressReturfraKunde1.Visible := false;
1074        Budlevering1.Visible := false;        menuDaoDirekte1.Visible := false;
1075        Storepakker1.Visible := false;        menuStorePakker.Visible := false;
1076        Smpakker1.Visible := false;        menuSmaaPakker.Visible := false;
1077        Testprinter1.Visible := false;        Testprinter1.Visible := false;
1078        Pakkeshoplevering1.Visible := false;        menuPakkeshop1.Visible := false;
1079        Returpakkerfrapakkeshop1.Visible := false;        menuPakkeshopRetur1.Visible := false;
1080      end;      end;
1081    
1082      if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then      if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then
# Line 1481  begin Line 1480  begin
1480         exit;         exit;
1481      end;      end;
1482    
1483      if (Automatiskvalg1.Checked and (Length(Stregkode) > 8) ) then      if (menuAutomatiskvalg1.Checked and (Length(Stregkode) > 8) ) then
1484      begin      begin
1485        GemStregkode := Stregkode;        GemStregkode := Stregkode;
1486        if Pakketype = 'NatXpress' then        if Pakketype = 'NatXpress' then
# Line 1510  begin Line 1509  begin
1509                InitPakkeshoplevering();                InitPakkeshoplevering();
1510              end;              end;
1511            end            end
1512        // Retur kan ikke scannes med 'Automatisk valg'       else if Pakketype = 'PakkeshopRetur' then
1513              begin
1514                if Scanningtype <> '6' then
1515                begin
1516                 VisAlarmSkaerm( Stregkode + ' Pakkeshop retur,'#13#10' kan ikke bruges med automatisk valg' );
1517    
1518                 exit;
1519                end;
1520              end
1521    
1522    
1523        else        else
1524            begin            begin
# Line 1522  begin Line 1530  begin
1530            end;            end;
1531        Stregkode := GemStregkode;        Stregkode := GemStregkode;
1532      end      end
1533      else if Automatiskvalg1.Checked and (PakkeshopText1.Caption = 'Stregkode') then      else if menuAutomatiskvalg1.Checked and (PakkeshopText1.Caption = 'Stregkode') then
1534      begin      begin
1535        VisAlarmSkaerm( 'Pakkenummer ikke gyldigt (for kort)' );        VisAlarmSkaerm( 'Pakkenummer ikke gyldigt (for kort)' );
1536    
1537        exit;        exit;
1538      end;      end;
1539    
1540      if not Automatiskvalg1.Checked then      if not menuAutomatiskvalg1.Checked then
1541      begin      begin
1542        if ( (Pakkescanningtype <> Scanningtype) and (Scanningtype <> '2') and (Scanningtype <> '3') ) then        if ( (Pakkescanningtype <> Scanningtype) and (Scanningtype <> '2') and (Scanningtype <> '3') ) then
1543        begin        begin
# Line 1542  begin Line 1550  begin
1550    
1551    
1552    
1553      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and Automatisktjekkodestyring1.Checked then      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and menuAutomatiskTjekkodeStyring.Checked then
1554      begin      begin
1555        chkScanTjekkode.Checked := false;        chkScanTjekkode.Checked := false;
1556        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do
# Line 1555  begin Line 1563  begin
1563        end;        end;
1564      end;      end;
1565    
1566      if Pakkernormal1.Checked and not Scanogstjekkoden1.Checked then      if menuNatXpress1.Checked and not Scanogstjekkoden1.Checked then
1567        begin        begin
1568          // Når vi ikke kræver tjekkode er alt ok her          // Når vi ikke kræver tjekkode er alt ok her
1569             BoghandlerStregkode := Stregkode;             BoghandlerStregkode := Stregkode;
# Line 1565  begin Line 1573  begin
1573             Stregkode := '';             Stregkode := '';
1574             InitScreen();             InitScreen();
1575        end        end
1576      else if (PakkeshopLevering1.Checked or Pakkernormal1.Checked) and not Scanogstjekkoden1.Checked then      else if (menuPakkeshop1.Checked or menuNatXpress1.Checked) and not Scanogstjekkoden1.Checked then
1577        begin        begin
1578          // Når vi ikke kræver tjekkode er alt ok her          // Når vi ikke kræver tjekkode er alt ok her
1579             PakkeshopStregkode := Stregkode;             PakkeshopStregkode := Stregkode;
# Line 1577  begin Line 1585  begin
1585             Stregkode := '';             Stregkode := '';
1586             InitScreen();             InitScreen();
1587        end        end
1588      else if PakkeshopLevering1.Checked or Pakkernormal1.Checked then      else if menuPakkeshop1.Checked or menuNatXpress1.Checked then
1589        if PakkeshopText1.Caption = 'Stregkode' then        if PakkeshopText1.Caption = 'Stregkode' then
1590         begin         begin
1591            if length(Stregkode) > 5 then            if length(Stregkode) > 5 then
# Line 1603  begin Line 1611  begin
1611             PakkeshopTjekkode := Stregkode;             PakkeshopTjekkode := Stregkode;
1612             BoghandlerTjekkode := Stregkode;             BoghandlerTjekkode := Stregkode;
1613             PakkeshopText1.Caption := 'Stregkode';             PakkeshopText1.Caption := 'Stregkode';
1614             if (PakkeshopLevering1.Checked) then             if (menuPakkeshop1.Checked) then
1615                MainForm.Color := TUtils.HexToTColor(FarvePakkeshoplevering);                MainForm.Color := TUtils.HexToTColor(FarvePakkeshoplevering);
1616             if (Pakkernormal1.Checked) then             if (menuNatXpress1.Checked) then
1617                MainForm.Color := TUtils.HexToTColor(FarveNormal);                MainForm.Color := TUtils.HexToTColor(FarveNormal);
1618             btnNulstil.Visible := false;             btnNulstil.Visible := false;
1619           end           end
1620          else          else
1621           begin           begin
1622                if (PakkeshopLevering1.Checked) then                if (menuPakkeshop1.Checked) then
1623                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode);                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode);
1624                if (Pakkernormal1.Checked) then                if (menuNatXpress1.Checked) then
1625                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode);                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode);
1626                                    
1627                StregKode := '';                StregKode := '';
# Line 1625  begin Line 1633  begin
1633          InitScreen();          InitScreen();
1634       end;       end;
1635    
1636      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
1637      begin      begin
1638    
1639         if PakkeshopLevering1.Checked and (PakkeshopStregkode <> '') and (PakkeshopTjekkode <> '') then         if menuPakkeshop1.Checked and (PakkeshopStregkode <> '') and (PakkeshopTjekkode <> '') then
1640            StregKode := PakkeshopStregkode;            StregKode := PakkeshopStregkode;
1641         if Pakkernormal1.Checked and ((BoghandlerStregkode <> '') and (BoghandlerTjekkode <> '') or not Scanogstjekkoden1.Checked) then         if menuNatXpress1.Checked and ((BoghandlerStregkode <> '') and (BoghandlerTjekkode <> '') or not Scanogstjekkoden1.Checked) then
1642            StregKode := BoghandlerStregkode;            StregKode := BoghandlerStregkode;
1643         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
1644         try         try
# Line 1644  begin Line 1652  begin
1652    
1653              exit;              exit;
1654            end;            end;
1655            if (Pakkernormal1.Checked or Budlevering1.Checked or PakkeshopLevering1.Checked) then            if (menuNatXpress1.Checked or menuDaoDirekte1.Checked or menuPakkeshop1.Checked) then
1656            begin            begin
1657              PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel);              PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel);
1658              pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);              pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);
# Line 1665  begin Line 1673  begin
1673                MainForm.Color := clRed;                MainForm.Color := clRed;
1674              end;              end;
1675           end;           end;
1676            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
1677            begin            begin
1678              MainForm.Color := TUtils.HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1679              if Storepakker1.Checked then              if menuStorePakker.Checked then
1680              begin              begin
1681                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(ScannetOkStorLyd));
1682              end              end
# Line 1678  begin Line 1686  begin
1686              end;              end;
1687              btnNulstil.Visible := false;              btnNulstil.Visible := false;
1688            end            end
1689            else if (Returpakkerfradao1.Checked or Returpakkerfraboghandler1.Checked) then            else if (menuNatxpressReturDAO1.Checked or menuNatxpressReturfraKunde1.Checked) then
1690            begin            begin
1691              MainForm.Color := TUtils.HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1692              if Storepakker1.Checked then              if menuStorePakker.Checked then
1693              begin              begin
1694                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(ScannetOkStorLyd));
1695              end              end
# Line 1706  begin Line 1714  begin
1714           if not btnNulstil.Visible then           if not btnNulstil.Visible then
1715            begin            begin
1716    
1717              If (Budlevering1.Checked) then              If (menuDaoDirekte1.Checked) then
1718              begin              begin
1719                if Storepakker1.Checked then                if menuStorePakker.Checked then
1720                begin                begin
1721                  PlaySound(PWideChar(ScannetOkStorLyd));                  PlaySound(PWideChar(ScannetOkStorLyd));
1722                end                end
# Line 1802  var Line 1810  var
1810    
1811    
1812  begin  begin
1813      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
1814      begin      begin
1815        for i := ListBox2.items.count-1 downto 0 do        for i := ListBox2.items.count-1 downto 0 do
1816          if pos(StregKode,ListBox2.items[i]) <> 0 then          if pos(StregKode,ListBox2.items[i]) <> 0 then
1817          begin          begin
1818              wrkAntalSenere := 0;//initial Value
1819    
1820            // Ajourføring af tæller for manglende pakker (scanninger)            // Ajourføring af tæller for manglende pakker (scanninger)
1821            wrkAntal := StaticTextManglendePakker.Caption;            wrkAntal := StaticTextManglendePakker.Caption;
# Line 1951  procedure TMainForm.InitBladhus(); Line 1960  procedure TMainForm.InitBladhus();
1960    
1961  begin  begin
1962    Altidprintepakkelabel1.Enabled := false;    Altidprintepakkelabel1.Enabled := false;
1963    Pakkernormal1.Visible := false;    menuNatXpress1.Visible := false;
1964    ReturpakkerfraDAO1.Visible := false;    menuNatxpressReturDAO1.Visible := false;
1965    Returpakkerfraboghandler1.Visible := false;    menuNatxpressReturfraKunde1.Visible := false;
1966    Sprgefterboghandlernummer1.Enabled := false;    Sprgefterboghandlernummer1.Enabled := false;
1967    ListBox1.Visible := true;    ListBox1.Visible := true;
1968  //  TestFunktionen := '1';  //  TestFunktionen := '1';
1969    
1970    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
1971    begin    begin
1972      IndlesScanningLogFil();      IndlesScanningLogFil();
1973    end;    end;
# Line 1982  begin Line 1991  begin
1991      02 :      02 :
1992            begin;    // BK            begin;    // BK
1993              Testprinter1.Visible := true;              Testprinter1.Visible := true;
1994              Smpakker1.Enabled := true;              menuSmaaPakker.Enabled := true;
1995              Storepakker1.Enabled := true;              menuStorePakker.Enabled := true;
1996              radioStorPakke.Enabled := true;              radioStorPakke.Enabled := true;
1997              radioLillePakke.Enabled := true;              radioLillePakke.Enabled := true;
1998              BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her
# Line 2020  begin Line 2029  begin
2029            end;            end;
2030      04 :  begin;           // DBK      04 :  begin;           // DBK
2031              Testprinter1.Visible := true;              Testprinter1.Visible := true;
2032              Smpakker1.Enabled := true;              menuSmaaPakker.Enabled := true;
2033              Storepakker1.Enabled := true;              menuStorePakker.Enabled := true;
2034              radioStorPakke.Enabled := true;              radioStorPakke.Enabled := true;
2035              radioLillePakke.Enabled := true;              radioLillePakke.Enabled := true;
2036              BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her
# Line 2054  begin Line 2063  begin
2063    end;    end;
2064    
2065    
2066    if Pakkernormal1.Checked then    if menuNatXpress1.Checked then
2067    begin    begin
2068       if (BoghandlerTjekkode = '') then       if (BoghandlerTjekkode = '') then
2069       begin       begin
# Line 2062  begin Line 2071  begin
2071       end;       end;
2072       URLStr := Format(UrlNormal,[Sted, PakkeNr, BoghandlerNummer, BoghandlerTjekkode]);       URLStr := Format(UrlNormal,[Sted, PakkeNr, BoghandlerNummer, BoghandlerTjekkode]);
2073    end    end
2074    else if ReturpakkerfraDAO1.Checked then    else if menuNatxpressReturDAO1.Checked then
2075    begin    begin
2076       URLStr := Format(UrlReturDAO,[Sted, PakkeNr, BoghandlerNummer, 'DAO', pakkestorrelse]);       URLStr := Format(UrlReturDAO,[Sted, PakkeNr, BoghandlerNummer, 'DAO', pakkestorrelse]);
2077    end    end
2078    else if Returpakkerfraboghandler1.Checked then    else if menuNatxpressReturfraKunde1.Checked then
2079    begin    begin
2080       URLStr := Format(UrlReturBoghandler,[Sted, PakkeNr, BoghandlerNummer, 'Boghandler', pakkestorrelse]);       URLStr := Format(UrlReturBoghandler,[Sted, PakkeNr, BoghandlerNummer, 'Boghandler', pakkestorrelse]);
2081    end    end
2082    else if Budlevering1.Checked then    else if menuDaoDirekte1.Checked then
2083    begin    begin
2084       URLStr := Format(UrlBudlevering,[Sted, PakkeNr, 'bud', pakkestorrelse]);       URLStr := Format(UrlBudlevering,[Sted, PakkeNr, 'bud', pakkestorrelse]);
2085    end    end
2086    else if Pakkeshoplevering1.Checked then    else if menuPakkeshop1.Checked then
2087    begin    begin
2088       URLStr := Format(UrlPakkeshoplevering,[Sted, PakkeNr, PakkeshopTjekkode]);       URLStr := Format(UrlPakkeshoplevering,[Sted, PakkeNr, PakkeshopTjekkode]);
2089    end    end
2090    else if Returpakkerfrapakkeshop1.Checked then    else if menuPakkeshopRetur1.Checked then
2091    begin    begin
2092       URLStr := Format(UrlReturPakkeshop,[Sted, PakkeNr]);       URLStr := Format(UrlReturPakkeshop,[Sted, PakkeNr]);
2093    end    end
# Line 2120  begin Line 2129  begin
2129    
2130    XMLDocument1.LoadFromXML(WebSvar);    XMLDocument1.LoadFromXML(WebSvar);
2131    try    try
2132      if Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked then      if menuPakkeshop1.Checked or menuPakkeshopRetur1.Checked then
2133       begin       begin
2134        RuteNummer := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopTurid').Text;        RuteNummer := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopTurid').Text;
2135        Kommentar := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Stregkodematch').Text;        Kommentar := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Stregkodematch').Text;
# Line 2128  begin Line 2137  begin
2137        BoghandlerNavn := BoghandlerNavn + ' ' + XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;        BoghandlerNavn := BoghandlerNavn + ' ' + XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;
2138        PrintNyLabel := False;        PrintNyLabel := False;
2139    
2140        if Pakkeshoplevering1.Checked then        if menuPakkeshop1.Checked then
2141        begin        begin
2142          try          try
2143            PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text);            PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text);
# Line 2169  begin Line 2178  begin
2178        Kommentar := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('Kommentar').Text;        Kommentar := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('Kommentar').Text;
2179        BoghandlerNavn := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('BoghandlerNavn').Text;        BoghandlerNavn := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('BoghandlerNavn').Text;
2180        Leveringssted := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('Leveringssted').Text;        Leveringssted := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('Leveringssted').Text;
2181        if Budlevering1.Checked then        if menuDaoDirekte1.Checked then
2182          begin          begin
2183          try          try
2184            SmsKode := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('SmsKode').Text;            SmsKode := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('SmsKode').Text;
# Line 2200  begin Line 2209  begin
2209      begin      begin
2210        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then
2211        begin        begin
2212            Kommentar := Kommentar + ' Pakke burde være hos DAO Distribution';            Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted;
2213            PrintNyLabel := False;            PrintNyLabel := False;
2214        end;        end;
2215      end      end
2216      else if (Budlevering1.Checked) and (Leveringssted <> Sted) then      else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) And (Leveringssted <> '') then
2217      begin      begin
2218         if (Leveringssted = 'E') and (Sted = 'DBK') then         if (Leveringssted = 'E') and (Sted = 'DBK') then
2219         begin         begin
# Line 2212  begin Line 2221  begin
2221         end         end
2222         else         else
2223         begin         begin
2224            Kommentar := Kommentar + ' Pakke burde være hos DAO Distribution';            Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted;
2225            PrintNyLabel := False;            PrintNyLabel := False;
2226         end;         end;
2227      end;      end;
# Line 2233  begin Line 2242  begin
2242    //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
2243    BoghandlerNavnST.Caption := StringReplace(BoghandlerNavn, ' & ', ' && ', [rfReplaceAll, rfIgnoreCase]);    BoghandlerNavnST.Caption := StringReplace(BoghandlerNavn, ' & ', ' && ', [rfReplaceAll, rfIgnoreCase]);
2244    List1msg := TimeToStr(now) + '; ';    List1msg := TimeToStr(now) + '; ';
2245    if Pakkeshoplevering1.Checked then    if menuPakkeshop1.Checked then
2246      List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; ';      List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; ';
2247    List1Pakkestorrelse := '';    List1Pakkestorrelse := '';
2248    if radioStorPakke.Checked then    if radioStorPakke.Checked then
# Line 2245  begin Line 2254  begin
2254      List1Pakkestorrelse := 'Lille pakke';      List1Pakkestorrelse := 'Lille pakke';
2255    end;    end;
2256    List1msg := List1msg + BoghandlerNavn + '; ';    List1msg := List1msg + BoghandlerNavn + '; ';
2257    if ReturpakkerfraDAO1.Checked then    if menuNatxpressReturDAO1.Checked then
2258    begin    begin
2259      List1msg := List1msg + RightStr(Kommentar, Length(Kommentar)-8);      List1msg := List1msg + RightStr(Kommentar, Length(Kommentar)-8);
2260    end;    end;
2261    if Returpakkerfraboghandler1.Checked then    if menuNatxpressReturfraKunde1.Checked then
2262    begin    begin
2263      List1msg := List1msg + RightStr(Kommentar, Length(Kommentar)-16);      List1msg := List1msg + RightStr(Kommentar, Length(Kommentar)-16);
2264    end;    end;
2265    if ReturpakkerfraDAO1.Checked or Returpakkerfraboghandler1.Checked then    if menuNatxpressReturDAO1.Checked or menuNatxpressReturfraKunde1.Checked then
2266       List1msg := List1msg + '; ' + List1Pakkestorrelse;       List1msg := List1msg + '; ' + List1Pakkestorrelse;
2267    if length(BoghNr) > 0 then    if length(BoghNr) > 0 then
2268    begin    begin
2269      List1Msg := List1Msg + '; Indtastet ' + BoghNr;      List1Msg := List1Msg + '; Indtastet ' + BoghNr;
2270    end;    end;
2271    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
2272    begin    begin
2273       List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn;       List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn;
2274        if (radioStorPakke.Checked) then        if (radioStorPakke.Checked) then
# Line 2271  begin Line 2280  begin
2280          List1msg := List1msg + '; Lille pakke';          List1msg := List1msg + '; Lille pakke';
2281        end;        end;
2282    end;    end;
2283    if Returpakkerfrapakkeshop1.Checked then    if menuPakkeshopRetur1.Checked then
2284    begin    begin
2285      List1msg := List1msg + Stregkode + ' ' + RightStr(Kommentar, Length(Kommentar)-6);      List1msg := List1msg + Stregkode + ' ' + RightStr(Kommentar, Length(Kommentar)-6);
2286    end;    end;
2287    if Pakkernormal1.Checked then    if menuNatXpress1.Checked then
2288    begin    begin
2289      if (Kommentar = '***** Kommentar *****')                       // fra test printer funktionen      if (Kommentar = '***** Kommentar *****')                       // fra test printer funktionen
2290      or (BoghandlerNavn = 'Forbindelse ok')                         // fra test forbindelse funktionen      or (BoghandlerNavn = 'Forbindelse ok')                         // fra test forbindelse funktionen
# Line 2315  pakkeForkertSted : Integer; Line 2324  pakkeForkertSted : Integer;
2324    kontrolKoreliste : string;    kontrolKoreliste : string;
2325    nytRuteNummer, nyFarve : String;    nytRuteNummer, nyFarve : String;
2326  begin  begin
2327    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
2328       RuteNummerST.Color := TUtils.HexToTColor(Farve);       RuteNummerST.Color := TUtils.HexToTColor(Farve);
2329    
2330    pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);    pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);
# Line 2353  begin Line 2362  begin
2362        end;        end;
2363    end    end
2364    else    else
2365    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
2366    begin    begin
2367       if (BoghandlerNavn = 'Ukendt pakke') then       if (BoghandlerNavn = 'Ukendt pakke') then
2368       begin       begin
# Line 2422  begin Line 2431  begin
2431    
2432    end;    end;
2433    
2434    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
2435    begin    begin
2436      case BladhusSted of      case BladhusSted of
2437        00 :  begin;        00 :  begin;
# Line 2471  begin Line 2480  begin
2480    end;    end;
2481    
2482  // 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
2483    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
2484    begin    begin
2485      exit;      exit;
2486    end;    end;
2487    
2488    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
2489    begin    begin
2490    end    end
2491    else    else
# Line 2510  end; Line 2519  end;
2519    
2520  procedure TMainForm.radioStorPakkeClick(Sender: TObject);  procedure TMainForm.radioStorPakkeClick(Sender: TObject);
2521  begin  begin
2522      Storepakker1.Checked := true;      menuStorePakker.Checked := true;
2523      radioStorPakke.Checked := true;      radioStorPakke.Checked := true;
2524  end;  end;
2525    
2526  procedure TMainForm.radioLillePakkeClick(Sender: TObject);  procedure TMainForm.radioLillePakkeClick(Sender: TObject);
2527  begin  begin
2528      Smpakker1.Checked := true;      menuSmaaPakker.Checked := true;
2529      radioLillePakke.Checked := true;      radioLillePakke.Checked := true;
2530  end;  end;
2531    
# Line 2559  begin Line 2568  begin
2568    end;    end;
2569  end;  end;
2570    
2571  procedure TMainForm.Pakkeshoplevering1Click(Sender: TObject);  procedure TMainForm.menuPakkeshop1Click(Sender: TObject);
2572  begin  begin
2573        Scanningtype := '5';        Scanningtype := '5';
2574        InitPakkeshoplevering();        InitPakkeshoplevering();
# Line 2568  end; Line 2577  end;
2577    
2578  procedure TMainForm.NulstilAutomatiskValg();  procedure TMainForm.NulstilAutomatiskValg();
2579  begin  begin
2580      Automatiskvalg1.Checked := false;      menuAutomatiskvalg1.Checked := false;
2581      PanelValgA.Color := clBtnFace;      PanelValgA.Color := clBtnFace;
2582      PanelValgA.Font.Color := clWindowText;      PanelValgA.Font.Color := clWindowText;
2583    
# Line 2580  begin Line 2589  begin
2589        // 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)
2590        PanelValgA.Enabled := false;        PanelValgA.Enabled := false;
2591        PanelValgA.Font.Color := clInactiveCaption;        PanelValgA.Font.Color := clInactiveCaption;
2592        Automatiskvalg1.Enabled := false;        menuAutomatiskvalg1.Enabled := false;
2593      end;      end;
2594  // 20150317: slut  // 20150317: slut
2595  end;  end;
# Line 2813  begin Line 2822  begin
2822    begin    begin
2823       MainForm.Color := TUtils.HexToTColor(Farve);       MainForm.Color := TUtils.HexToTColor(Farve);
2824    end;    end;
2825    if (Budlevering1.Checked) then    if (menuDaoDirekte1.Checked) then
2826    begin    begin
2827       InitLillePakke();       InitLillePakke();
2828    end;    end;
# Line 2877  procedure TMainForm.PanelValgAClick(Send Line 2886  procedure TMainForm.PanelValgAClick(Send
2886  begin  begin
2887  // Skal ikke toggle men bare sætte funktionen on  // Skal ikke toggle men bare sætte funktionen on
2888  // Fravælges ved at vælge en scanningstype  // Fravælges ved at vælge en scanningstype
2889    AutomatiskValg1.Checked := true;    menuAutomatiskvalg1.Checked := true;
2890    PanelValgA.Color := clGreen;    PanelValgA.Color := clGreen;
2891    PanelValgA.Font.Color := clWhite;    PanelValgA.Font.Color := clWhite;
2892    
# Line 2885  begin Line 2894  begin
2894    
2895  end;  end;
2896    
2897  procedure TMainForm.Pakkernormal1Click(Sender: TObject);  procedure TMainForm.menuNatXpress1Click(Sender: TObject);
2898  begin  begin
2899        Scanningtype := '1';        Scanningtype := '1';
2900        NulstilAutomatiskValg();        NulstilAutomatiskValg();
# Line 3040  begin Line 3049  begin
3049    
3050  end;  end;
3051    
3052    
3053  procedure TMainForm.ListBox1DrawItem(Control: TWinControl; Index: Integer;  procedure TMainForm.ListBox1DrawItem(Control: TWinControl; Index: Integer;
3054    Rect: TRect; State: TOwnerDrawState);    Rect: TRect; State: TOwnerDrawState);
3055  var  var
# Line 3154  begin Line 3164  begin
3164    
3165  end;  end;
3166    
3167  procedure TMainForm.ReturpakkerfraDAO1Click(Sender: TObject);  procedure TMainForm.menuNatxpressReturDAO1Click(Sender: TObject);
3168  begin  begin
3169        Scanningtype := '2';        Scanningtype := '2';
3170        NulstilAutomatiskValg();        NulstilAutomatiskValg();
3171        InitReturFraDao();        InitReturFraDao();
3172  end;  end;
3173    
3174  procedure TMainForm.Returpakkerfrapakkeshop1Click(Sender: TObject);  procedure TMainForm.menuPakkeshopRetur1Click(Sender: TObject);
3175  begin  begin
3176        Scanningtype := '6';        Scanningtype := '6';
3177        InitReturFraPakkeshop();        InitReturFraPakkeshop();
# Line 3170  end; Line 3180  end;
3180    
3181  procedure TMainForm.InitNatxpresslevering();  procedure TMainForm.InitNatxpresslevering();
3182  begin  begin
3183        AutomatiskTjekkodeStyring1.Enabled := true;        menuAutomatiskTjekkodeStyring.Enabled := true;
3184        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3185        Pakkernormal1.Checked := true;        menuNatXpress1.Checked := true;
3186        InitForm(FarveNormal,TitelNormal,UrlNormal);        InitForm(FarveNormal,TitelNormal,UrlNormal);
3187        PanelValg1.Color := clGreen;        PanelValg1.Color := clGreen;
3188        PanelValg1.Font.Color := clWhite;        PanelValg1.Font.Color := clWhite;
# Line 3184  begin Line 3194  begin
3194        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3195        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3196        Sprgefterboghandlernummer1.Enabled := true;        Sprgefterboghandlernummer1.Enabled := true;
3197        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3198        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3199        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3200        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3201        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3206  end; Line 3216  end;
3216    
3217  procedure TMainForm.InitReturFraDao();  procedure TMainForm.InitReturFraDao();
3218  begin  begin
3219        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3220        ReturpakkerfraDAO1.Checked := true;        menuNatxpressReturDAO1.Checked := true;
3221        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3222        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);
3223        PanelValg2.Color := clGreen;        PanelValg2.Color := clGreen;
# Line 3220  begin Line 3230  begin
3230        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3231        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3232        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3233        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3234        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3235        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3236        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3237        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3237  end; Line 3247  end;
3247    
3248  procedure TMainForm.InitReturFraKunde();  procedure TMainForm.InitReturFraKunde();
3249  begin  begin
3250        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3251        Returpakkerfraboghandler1.Checked := true;        menuNatxpressReturfraKunde1.Checked := true;
3252        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3253        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);
3254        PanelValg3.Color := clGreen;        PanelValg3.Color := clGreen;
# Line 3250  begin Line 3260  begin
3260        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3261        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3262        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3263        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3264        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3265        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3266        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3267        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3267  end; Line 3277  end;
3277    
3278  procedure TMainForm.InitDirektelevering();  procedure TMainForm.InitDirektelevering();
3279  begin  begin
3280        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3281        Budlevering1.Checked := true;        menuDaoDirekte1.Checked := true;
3282        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3283        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);
3284        PanelValg4.Color := clGreen;        PanelValg4.Color := clGreen;
# Line 3281  begin Line 3291  begin
3291        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3292        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3293        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3294        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3295        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3296        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3297        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3298        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3307  end; Line 3317  end;
3317    
3318  procedure TMainForm.InitPakkeshoplevering();  procedure TMainForm.InitPakkeshoplevering();
3319  begin  begin
3320        AutomatiskTjekkodeStyring1.Enabled := true;        menuAutomatiskTjekkodeStyring.Enabled := true;
3321        Pakkeshoplevering1.Checked := true;        menuPakkeshop1.Checked := true;
3322        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3323        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);
3324        PanelValg5.Color := clGreen;        PanelValg5.Color := clGreen;
# Line 3321  begin Line 3331  begin
3331        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3332        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3333        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3334        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3335        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3336        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3337        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3338        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3347  end; Line 3357  end;
3357    
3358  procedure TMainForm.InitReturFraPakkeshop();  procedure TMainForm.InitReturFraPakkeshop();
3359  begin  begin
3360        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3361        Returpakkerfrapakkeshop1.Checked := true;        menuPakkeshopRetur1.Checked := true;
3362        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3363        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);
3364        PanelValg6.Color := clGreen;        PanelValg6.Color := clGreen;
# Line 3361  begin Line 3371  begin
3371        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3372        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3373        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3374        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3375        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3376        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3377        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3378        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3385  begin Line 3395  begin
3395        IdFTP1.PassiveUseControlHost := true;        IdFTP1.PassiveUseControlHost := true;
3396  end;  end;
3397    
3398  procedure TMainForm.Returpakkerfraboghandler1Click(Sender: TObject);  procedure TMainForm.menuNatxpressReturfraKunde1Click(Sender: TObject);
3399  begin  begin
3400        Scanningtype := '3';        Scanningtype := '3';
3401        NulstilAutomatiskValg();        NulstilAutomatiskValg();
# Line 3395  end; Line 3405  end;
3405  procedure TMainForm.InitIndleveringskode();  procedure TMainForm.InitIndleveringskode();
3406  begin  begin
3407        menuIndlevering.Checked := true;        menuIndlevering.Checked := true;
3408        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3409    
3410        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3411        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);
# Line 3412  begin Line 3422  begin
3422    
3423    
3424    
3425        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3426        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3427        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3428        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3429        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3438  begin Line 3448  begin
3448  end;  end;
3449    
3450    
3451  procedure TMainForm.Storepakker1Click(Sender: TObject);  procedure TMainForm.menuStorePakkerClick(Sender: TObject);
3452  begin  begin
3453    InitStorPakke();    InitStorPakke();
3454  end;  end;
3455    
3456  procedure TMainForm.Smpakker1Click(Sender: TObject);  procedure TMainForm.menuSmaaPakkerClick(Sender: TObject);
3457  begin  begin
3458    InitLillePakke();    InitLillePakke();
3459  end;  end;
# Line 3451  end; Line 3461  end;
3461  procedure TMainForm.InitLillePakke();  procedure TMainForm.InitLillePakke();
3462  begin  begin
3463    radioLillePakke.Checked := true;    radioLillePakke.Checked := true;
3464    Smpakker1.Checked := true;    menuSmaaPakker.Checked := true;
3465  //  Stregkode := '';  //  Stregkode := '';
3466  end;  end;
3467    
3468  procedure TMainForm.InitStorPakke();  procedure TMainForm.InitStorPakke();
3469  begin  begin
3470    radioStorPakke.Checked := true;    radioStorPakke.Checked := true;
3471    Storepakker1.Checked := true;    menuStorePakker.Checked := true;
3472  // 20150310: start  // 20150310: start
3473  //  Stregkode := '';  //  Stregkode := '';
3474  // 20150310: slut  // 20150310: slut
# Line 3502  begin Line 3512  begin
3512       exit;       exit;
3513    end;    end;
3514    
3515    if Smpakker1.Checked then    if menuSmaaPakker.Checked then
3516       if ScannetOkLyd  <> '' then       if ScannetOkLyd  <> '' then
3517       begin       begin
3518         PlaySound(PWideChar(ScannetOkLyd));         PlaySound(PWideChar(ScannetOkLyd));
# Line 3511  begin Line 3521  begin
3521       begin       begin
3522         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);
3523       end;       end;
3524    if Storepakker1.Checked then    if menuStorePakker.Checked then
3525       if ScannetOkStorLyd  <> '' then       if ScannetOkStorLyd  <> '' then
3526       begin       begin
3527         PlaySound(PWideChar(ScannetOkStorLyd));         PlaySound(PWideChar(ScannetOkStorLyd));
# Line 3523  begin Line 3533  begin
3533  end;  end;
3534    
3535    
3536  procedure TMainForm.Budlevering1Click(Sender: TObject);  procedure TMainForm.menuDaoDirekte1Click(Sender: TObject);
3537  begin  begin
3538        Scanningtype := '4';        Scanningtype := '4';
3539        NulstilAutomatiskValg();        NulstilAutomatiskValg();
# Line 4169  var Line 4179  var
4179    I: Integer;    I: Integer;
4180    stregkode, modtagernavn, modtageradresse, kommentar : string;    stregkode, modtagernavn, modtageradresse, kommentar : string;
4181    pakketype, tjekkodestatus : String;    pakketype, tjekkodestatus : String;
4182    pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer;    antalLiniefelter, antalFelterFundet, linienr : Integer;
4183    //pakketyper : TStrings;    //pakketyper : TStrings;
4184    pakketyper : TDictionary<String, Integer>;    pakketyper : TDictionary<String, Integer>;
4185    tmpAntal : Integer;    tmpAntal : Integer;
4186    
4187     time, timeSamlet : TTimingHelper;
4188    
4189    
4190    antlin : Integer;    antlin : Integer;
# Line 4233  var Line 4244  var
4244       end;       end;
4245  // 20150310: slut  // 20150310: slut
4246    
4247        time := TTimingHelper.create();        //DEBUG
4248        timeSamlet := TTimingHelper.create();        //DEBUG
4249    
4250      try      try
4251      //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST      //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST
4252  //    URLStr := string(Utf8Encode(URLStr));  //    URLStr := string(Utf8Encode(URLStr));
# Line 4242  var Line 4256  var
4256        begin        begin
4257          // 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
4258          WebSvar := IdHTTP1.Get(URLStr);          WebSvar := IdHTTP1.Get(URLStr);
4259    
4260    
4261    
4262        end;        end;
4263        on e:exception do        on e:exception do
4264        begin        begin
# Line 4252  var Line 4269  var
4269        end;        end;
4270      end;      end;
4271      try      try
4272          time.stop('HTTP Load');     //DEBUG
4273    
4274        XMLDocument1.LoadFromXML(WebSvar);        XMLDocument1.LoadFromXML(WebSvar);
4275    
4276          time.stop('XML Load');     //DEBUG
4277    
4278    
4279    
4280    
4281    
4282    
4283        antlin := 0;        antlin := 0;
4284        antlinIdag := 0;        antlinIdag := 0;
# Line 4296  var Line 4321  var
4321        SetLength(stregkoderMedTjekkodeArray, 0);    // reset fra tidligere brug        SetLength(stregkoderMedTjekkodeArray, 0);    // reset fra tidligere brug
4322        SetLength(stregkoderMedTjekkodeArray, antlin);  // sæt antal elementer i array        SetLength(stregkoderMedTjekkodeArray, antlin);  // sæt antal elementer i array
4323    
4324          time.stop('Antal Linier');//DEBUG
4325    
4326        Application.Processmessages; //Ugly Hack to improve User Experience when switching modes        Application.Processmessages; //Ugly Hack to improve User Experience when switching modes
4327    
# Line 4381  var Line 4407  var
4407        end;        end;
4408    
4409    
4410          time.stop('Fyld Listbox2');//DEBUG
4411    
4412    
4413        Application.Processmessages; //Ugly Hack to improve User Experience when switching modes        Application.Processmessages; //Ugly Hack to improve User Experience when switching modes
4414    
4415    
# Line 4500  var Line 4529  var
4529        end;        end;
4530      end;      end;
4531    
4532        time.stop('Done');//DEBUG
4533        timeSamlet.stop('SamletTid');//DEBUG
4534    
4535    
4536  end;  end;
4537    
4538  procedure TMainForm.IndlesScanningLogFil();  procedure TMainForm.IndlesScanningLogFil();
# Line 4911  begin Line 4944  begin
4944  end;  end;
4945    
4946    
4947    //Nedarvet fra IParentForm
4948    procedure TMainForm.Msg( msg : string);
4949    begin
4950      ShowMessage(msg);
4951    end;
4952    
4953  //Nedarvet fra IParentForm  //Nedarvet fra IParentForm
4954  procedure TMainForm.LogMessage( msg : string);  procedure TMainForm.LogMessage( msg : string);
Legend:
Removed from v.3036  
changed lines
  Added in v.3076
  ViewVC Help
Powered by ViewVC 1.1.20