/[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 3055 by torben, Mon Jun 27 12:18:07 2016 UTC
# Line 39  type Line 39  type
39      XMLDocument1: TXMLDocument;      XMLDocument1: TXMLDocument;
40      ApplicationEvents1: TApplicationEvents;      ApplicationEvents1: TApplicationEvents;
41      chkSporgEfterKunde: TCheckBox;      chkSporgEfterKunde: TCheckBox;
     KommentarST: TStaticText;  
42      MainMenu1: TMainMenu;      MainMenu1: TMainMenu;
43      N1: TMenuItem;      N1: TMenuItem;
44      Pakkernormal1: TMenuItem;      menuNatXpress1: TMenuItem;
45      ReturpakkerfraDAO1: TMenuItem;      menuNatxpressReturDAO1: TMenuItem;
46      Returpakkerfraboghandler1: TMenuItem;      menuNatxpressReturfraKunde1: TMenuItem;
47      Hjlp1: TMenuItem;      Hjlp1: TMenuItem;
48      Om1: TMenuItem;      Om1: TMenuItem;
49      Testforbindelsen1: TMenuItem;      Testforbindelsen1: TMenuItem;
# Line 57  type Line 56  type
56      radioStorPakke: TRadioButton;      radioStorPakke: TRadioButton;
57      radioLillePakke: TRadioButton;      radioLillePakke: TRadioButton;
58      N4: TMenuItem;      N4: TMenuItem;
59      Storepakker1: TMenuItem;      menuStorePakker: TMenuItem;
60      Smpakker1: TMenuItem;      menuSmaaPakker: TMenuItem;
61      Panel1: TPanel;      Panel1: TPanel;
62      Testlyd2: TMenuItem;      Testlyd2: TMenuItem;
63      Button1: TButton;      Button1: TButton;
64      Testlyd1: TMenuItem;      Testlyd1: TMenuItem;
65      ListBox1: TListBox;      ListBox1: TListBox;
66      Budlevering1: TMenuItem;      menuDaoDirekte1: TMenuItem;
67      BtnDownloadKontrolfil: TButton;      BtnDownloadKontrolfil: TButton;
68      IdFTP1: TIdFTP;      IdFTP1: TIdFTP;
69      Image1: TImage;      Image1: TImage;
# Line 72  type Line 71  type
71      BtnOpdaterListen: TButton;      BtnOpdaterListen: TButton;
72      BtnUploadLogfil: TButton;      BtnUploadLogfil: TButton;
73      BtnDownloadRuteskiftFil: TButton;      BtnDownloadRuteskiftFil: TButton;
74      Pakkeshoplevering1: TMenuItem;      menuPakkeshop1: TMenuItem;
75      PakkeshopText1: TStaticText;      PakkeshopText1: TStaticText;
76      btnNulstil: TButton;      btnNulstil: TButton;
77      Returpakkerfrapakkeshop1: TMenuItem;      menuPakkeshopRetur1: TMenuItem;
78      Altidprintepakkelabel1: TMenuItem;      Altidprintepakkelabel1: TMenuItem;
79      chkAltidPrintLabel: TCheckBox;      chkAltidPrintLabel: TCheckBox;
80      BtnEKLoverforsel: TButton;      BtnEKLoverforsel: TButton;
# Line 86  type Line 85  type
85      Timer1: TTimer;      Timer1: TTimer;
86      chkScanTjekkode: TCheckBox;      chkScanTjekkode: TCheckBox;
87      Scanogstjekkoden1: TMenuItem;      Scanogstjekkoden1: TMenuItem;
88      Automatisktjekkodestyring1: TMenuItem;      menuAutomatiskTjekkodeStyring: TMenuItem;
89      Automatiskvalg1: TMenuItem;      menuAutomatiskvalg1: TMenuItem;
90      PanelValgA: TPanel;      PanelValgA: TPanel;
91      PanelValg1: TPanel;      PanelValg1: TPanel;
92      PanelValg2: TPanel;      PanelValg2: TPanel;
# Line 106  type Line 105  type
105      PanelManglendePakker6: TPanel;      PanelManglendePakker6: TPanel;
106      menuIndlevering: TMenuItem;      menuIndlevering: TMenuItem;
107      chkForstorTilDirekte: TCheckBox;      chkForstorTilDirekte: TCheckBox;
108        chkEmballageRepareret: TCheckBox;
109        KommentarST: TLabel;
110    
111    
112    
# Line 127  type Line 128  type
128    procedure radioStorPakkeClick(Sender: TObject);    procedure radioStorPakkeClick(Sender: TObject);
129    procedure radioLillePakkeClick(Sender: TObject);    procedure radioLillePakkeClick(Sender: TObject);
130    procedure chkSporgEfterKundeClick(Sender: TObject);    procedure chkSporgEfterKundeClick(Sender: TObject);
131    procedure Pakkernormal1Click(Sender: TObject);    procedure menuNatXpress1Click(Sender: TObject);
132    procedure Testforbindelsen1Click(Sender: TObject);    procedure Testforbindelsen1Click(Sender: TObject);
133    procedure Testprinter1Click(Sender: TObject);    procedure Testprinter1Click(Sender: TObject);
134    procedure Om1Click(Sender: TObject);    procedure Om1Click(Sender: TObject);
135    procedure Lukprogrammet1Click(Sender: TObject);    procedure Lukprogrammet1Click(Sender: TObject);
136    procedure Sprgefterboghandlernummer1Click(Sender: TObject);    procedure Sprgefterboghandlernummer1Click(Sender: TObject);
137    procedure ReturpakkerfraDAO1Click(Sender: TObject);    procedure menuNatxpressReturDAO1Click(Sender: TObject);
138    procedure Returpakkerfraboghandler1Click(Sender: TObject);    procedure menuNatxpressReturfraKunde1Click(Sender: TObject);
139    procedure Storepakker1Click(Sender: TObject);    procedure menuStorePakkerClick(Sender: TObject);
140    procedure Smpakker1Click(Sender: TObject);    procedure menuSmaaPakkerClick(Sender: TObject);
141    procedure Testlyd1Click(Sender: TObject);    procedure Testlyd1Click(Sender: TObject);
142    procedure Testlyd2Click(Sender: TObject);    procedure Testlyd2Click(Sender: TObject);
143    procedure Button1Click(Sender: TObject);    procedure Button1Click(Sender: TObject);
144    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
145    procedure Budlevering1Click(Sender: TObject);    procedure menuDaoDirekte1Click(Sender: TObject);
146    procedure BtnDownloadKontrolfilClick(Sender: TObject);    procedure BtnDownloadKontrolfilClick(Sender: TObject);
147    procedure BtnOpdaterListenClick(Sender: TObject);    procedure BtnOpdaterListenClick(Sender: TObject);
148    procedure DownloadBladhusRuteskiftfil();    procedure DownloadBladhusRuteskiftfil();
# Line 153  type Line 154  type
154    procedure FormDestroy(Sender: TObject);    procedure FormDestroy(Sender: TObject);
155    procedure BtnUploadLogfilClick(Sender: TObject);    procedure BtnUploadLogfilClick(Sender: TObject);
156    procedure BtnDownloadRuteskiftFilClick(Sender: TObject);    procedure BtnDownloadRuteskiftFilClick(Sender: TObject);
157    procedure Pakkeshoplevering1Click(Sender: TObject);    procedure menuPakkeshop1Click(Sender: TObject);
158    procedure btnNulstilClick(Sender: TObject);    procedure btnNulstilClick(Sender: TObject);
159    procedure Returpakkerfrapakkeshop1Click(Sender: TObject);    procedure menuPakkeshopRetur1Click(Sender: TObject);
160    procedure InitNatxpresslevering();    procedure InitNatxpresslevering();
161    procedure InitReturFraDao();    procedure InitReturFraDao();
162    procedure InitReturFraKunde();    procedure InitReturFraKunde();
# Line 172  type Line 173  type
173    procedure Timer1Timer(Sender: TObject);    procedure Timer1Timer(Sender: TObject);
174    procedure Scanogstjekkoden1Click(Sender: TObject);    procedure Scanogstjekkoden1Click(Sender: TObject);
175    procedure chkScanTjekkodeClick(Sender: TObject);    procedure chkScanTjekkodeClick(Sender: TObject);
176    procedure Automatisktjekkodestyring1Click(Sender: TObject);    procedure menuAutomatiskTjekkodeStyringClick(Sender: TObject);
177    procedure SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);    procedure SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);
178    procedure Automatiskvalg1Click(Sender: TObject);    procedure menuAutomatiskvalg1Click(Sender: TObject);
179    procedure PanelValgAClick(Sender: TObject);    procedure PanelValgAClick(Sender: TObject);
180    procedure PanelValg1Click(Sender: TObject);    procedure PanelValg1Click(Sender: TObject);
181    procedure PanelValg2Click(Sender: TObject);    procedure PanelValg2Click(Sender: TObject);
# Line 195  type Line 196  type
196    
197    
198    //Nedarvet fra IParentForm    //Nedarvet fra IParentForm
199      procedure Msg( msg : string);
200    procedure LogMessage( msg : string);    procedure LogMessage( msg : string);
201    procedure SetPrinterstatusText( txt: string; alert: boolean);    procedure SetPrinterstatusText( txt: string; alert: boolean);
202    function GetFormObject() : TForm;    function GetFormObject() : TForm;
203    
204    
205    
206    private    private
207      SpecialVersionSted, SpecialVersionScanningtype: String;    // Bruges når programmet skal bruges udenfor DAO scanningssteder      SpecialVersionSted, SpecialVersionScanningtype: String;    // Bruges når programmet skal bruges udenfor DAO scanningssteder
208      Stregkode : String;      Stregkode : String;
# Line 286  implementation Line 289  implementation
289  procedure TMainForm.InitForm(Farve,Titel,Url : String);  procedure TMainForm.InitForm(Farve,Titel,Url : String);
290  begin  begin
291    
292        IdHTTP1.ConnectTimeout := 5000; // Vent max 5 sek på connect
293        IdHTTP1.ReadTimeout := 10000; // Vent max 10 sek på read
294    
295    
296    
297    
298      StaticTextManglendePakker.Caption := '';      StaticTextManglendePakker.Caption := '';
299    
300    
# Line 397  begin Line 406  begin
406        PrinterstatusStaticText1.Color := MainForm.Color;        PrinterstatusStaticText1.Color := MainForm.Color;
407      end;      end;
408    
409      if PakkeshopLevering1.Checked or Pakkernormal1.Checked then      if menuPakkeshop1.Checked or menuNatXpress1.Checked then
410        PakkeshopText1.Visible := true        PakkeshopText1.Visible := true
411      else      else
412        PakkeshopText1.Visible := false;        PakkeshopText1.Visible := false;
# Line 422  begin Line 431  begin
431        end;        end;
432      end;      end;
433    
434      if Automatisktjekkodestyring1.Checked then      if menuAutomatiskTjekkodeStyring.Checked then
435      begin      begin
436        chkScanTjekkode.Enabled := false;        chkScanTjekkode.Enabled := false;
437        Scanogstjekkoden1.Enabled := false;        Scanogstjekkoden1.Enabled := false;
# Line 480  begin Line 489  begin
489    StregkodeST.Caption := Stregkode;    StregkodeST.Caption := Stregkode;
490  end;  end;
491    
492  procedure TMainForm.Automatisktjekkodestyring1Click(Sender: TObject);  procedure TMainForm.menuAutomatiskTjekkodeStyringClick(Sender: TObject);
493  begin  begin
494    if Automatisktjekkodestyring1.Checked then    if menuAutomatiskTjekkodeStyring.Checked then
495    begin    begin
496       chkScanTjekkode.Enabled := false;       chkScanTjekkode.Enabled := false;
497       Scanogstjekkoden1.Enabled := false;       Scanogstjekkoden1.Enabled := false;
# Line 495  begin Line 504  begin
504    
505  end;  end;
506    
507  procedure TMainForm.Automatiskvalg1Click(Sender: TObject);  procedure TMainForm.menuAutomatiskvalg1Click(Sender: TObject);
508  begin  begin
509  // Skal ikke toggle men bare sætte funktionen on  // Skal ikke toggle men bare sætte funktionen on
510  // Fravælges ved at vælge en scanningstype  // Fravælges ved at vælge en scanningstype
511       AutomatiskValg1.Checked := true;       menuAutomatiskvalg1.Checked := true;
512       PanelValgA.Color := clGreen;       PanelValgA.Color := clGreen;
513       PanelValgA.Font.Color := clWhite;       PanelValgA.Font.Color := clWhite;
514  end;  end;
# Line 666  begin Line 675  begin
675    
676      if Scanningtype = 'A' then      if Scanningtype = 'A' then
677      begin      begin
678        Automatiskvalg1.Checked := true;        menuAutomatiskvalg1.Checked := true;
679        Scanningtype := '1';        Scanningtype := '1';
680        PanelValgA.Color := clGreen;        PanelValgA.Color := clGreen;
681        PanelValgA.Font.Color := clWhite;        PanelValgA.Font.Color := clWhite;
# Line 698  begin Line 707  begin
707    
708      if ScanTjekkodeAutomatik = '1' then      if ScanTjekkodeAutomatik = '1' then
709      begin      begin
710        Automatisktjekkodestyring1.Checked := true;        menuAutomatiskTjekkodeStyring.Checked := true;
711        chkScanTjekkode.Enabled := false;        chkScanTjekkode.Enabled := false;
712        Scanogstjekkoden1.Enabled := false;        Scanogstjekkoden1.Enabled := false;
713      end;      end;
# Line 741  begin Line 750  begin
750      SpecialVersionSted := 'NS';      SpecialVersionSted := 'NS';
751  {$EndIf}  {$EndIf}
752    
   
753      //SpecialVersionSted := '01';  // NS - bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE)      //SpecialVersionSted := '01';  // NS - bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE)
754      //SpecialVersionSted := '02';  // BK - BRUGES IKKE (brug i stedet ovenstående SpecialVersionSted BK)      //SpecialVersionSted := '02';  // BK - BRUGES IKKE (brug i stedet ovenstående SpecialVersionSted BK)
755      //SpecialVersionSted := '03';  // FD - (bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE)      //SpecialVersionSted := '03';  // FD - (bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE)
# Line 759  begin Line 767  begin
767    
768      if SpecialVersionSted = 'NS' then      if SpecialVersionSted = 'NS' then
769      begin      begin
770         SpecialVersionSted := '01';         //SpecialVersionSted := '01'; // Fra før NS overtog scanning løssalg
771         SpecialVersionScanningtype := '4';         //SpecialVersionScanningtype := '4';
772    
773          //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil
774          Sted := SpecialVersionSted;
775         // her skal vi også disable de knapper BK ikke kan bruge
776          PanelValg2.Enabled := false;
777          PanelValg2.Font.Color := clInactiveCaption;
778          PanelValg3.Enabled := false;
779          PanelValg3.Font.Color := clInactiveCaption;
780          //PanelValg6.Enabled := false;
781          //PanelValg6.Font.Color := clInactiveCaption;
782    
783         // her skal vi også disable de menupunkter FD ikke kan bruge
784          menuNatxpressReturDAO1.Enabled := false;
785          menuNatxpressReturfraKunde1.Enabled := false;
786    
787          //Returpakkerfrapakkeshop1.Enabled := false;
788      end;      end;
789    
790      if SpecialVersionSted = 'FD' then      if SpecialVersionSted = 'FD' then
# Line 780  begin Line 804  begin
804        //PanelValg6.Font.Color := clInactiveCaption;        //PanelValg6.Font.Color := clInactiveCaption;
805    
806       // her skal vi også disable de menupunkter FD ikke kan bruge       // her skal vi også disable de menupunkter FD ikke kan bruge
807        ReturpakkerfraDAO1.Enabled := false;        menuNatxpressReturDAO1.Enabled := false;
808        Returpakkerfraboghandler1.Enabled := false;        menuNatxpressReturfraKunde1.Enabled := false;
809    
810        //Returpakkerfrapakkeshop1.Enabled := false;        //Returpakkerfrapakkeshop1.Enabled := false;
811    
# Line 800  begin Line 824  begin
824        //PanelValg6.Font.Color := clInactiveCaption;        //PanelValg6.Font.Color := clInactiveCaption;
825    
826       // her skal vi også disable de menupunkter BK ikke kan bruge       // her skal vi også disable de menupunkter BK ikke kan bruge
827        ReturpakkerfraDAO1.Enabled := false;        menuNatxpressReturDAO1.Enabled := false;
828        Returpakkerfraboghandler1.Enabled := false;        menuNatxpressReturfraKunde1.Enabled := false;
829    
830        //Returpakkerfrapakkeshop1.Enabled := false;        //Returpakkerfrapakkeshop1.Enabled := false;
831    
# Line 831  begin Line 855  begin
855    
856    
857       // her skal vi også disable de menupunkter DBK ikke kan bruge       // her skal vi også disable de menupunkter DBK ikke kan bruge
858        ReturpakkerfraDAO1.Enabled := false;        menuNatxpressReturDAO1.Enabled := false;
859        Returpakkerfraboghandler1.Enabled := false;        menuNatxpressReturfraKunde1.Enabled := false;
860    
861        Pakkeshoplevering1.Enabled := false;        menuPakkeshop1.Enabled := false;
862        Returpakkerfrapakkeshop1.Enabled := false;        menuPakkeshopRetur1.Enabled := false;
863    
864        if SpecialVersionScanningtype = 'A' then        if SpecialVersionScanningtype = 'A' then
865        begin        begin
# Line 870  begin Line 894  begin
894        PanelValg7.Font.Color := clInactiveCaption;        PanelValg7.Font.Color := clInactiveCaption;
895       // 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
896    
897        Automatiskvalg1.Enabled := false;        menuAutomatiskvalg1.Enabled := false;
898    
899        Pakkernormal1.Enabled := false;        menuNatXpress1.Enabled := false;
900        ReturpakkerfraDAO1.Enabled := false;        menuNatxpressReturDAO1.Enabled := false;
901        Returpakkerfraboghandler1.Enabled := false;        menuNatxpressReturfraKunde1.Enabled := false;
902        Budlevering1.Enabled := false;        menuDaoDirekte1.Enabled := false;
903        Pakkeshoplevering1.Enabled := false;        menuPakkeshop1.Enabled := false;
904        Returpakkerfrapakkeshop1.Enabled := false;        menuPakkeshopRetur1.Enabled := false;
905        if SpecialVersionScanningtype = 'A' then        if SpecialVersionScanningtype = 'A' then
906        begin        begin
907          Scanningtype := '4';          Scanningtype := '4';
908          Budlevering1.Enabled := true;          menuDaoDirekte1.Enabled := true;
909          PanelValg4.Font.Color := clWindowText;          PanelValg4.Font.Color := clWindowText;
910          PanelValg4.Enabled := true;          PanelValg4.Enabled := true;
911        end        end
# Line 890  begin Line 914  begin
914          Scanningtype := SpecialVersionScanningtype;          Scanningtype := SpecialVersionScanningtype;
915          PanelValgA.Enabled := false;          PanelValgA.Enabled := false;
916          PanelValgA.Font.Color := clInactiveCaption;          PanelValgA.Font.Color := clInactiveCaption;
917          AutomatiskValg1.Checked := false;          menuAutomatiskvalg1.Checked := false;
918          PanelValgA.Color := clBtnFace;          PanelValgA.Color := clBtnFace;
919          if Scanningtype = '1' then          if Scanningtype = '1' then
920          begin          begin
921            Pakkernormal1.Enabled := true;            menuNatXpress1.Enabled := true;
922            PanelValg1.Enabled := true;            PanelValg1.Enabled := true;
923            PanelValg1.Font.Color := clWindowText;            PanelValg1.Font.Color := clWindowText;
924          end;          end;
925          if Scanningtype = '2' then          if Scanningtype = '2' then
926          begin          begin
927            ReturpakkerfraDAO1.Enabled := true;            menuNatxpressReturDAO1.Enabled := true;
928            PanelValg2.Enabled := true;            PanelValg2.Enabled := true;
929            PanelValg2.Font.Color := clWindowText;            PanelValg2.Font.Color := clWindowText;
930          end;          end;
931          if Scanningtype = '3' then          if Scanningtype = '3' then
932          begin          begin
933            Returpakkerfraboghandler1.Enabled := true;            menuNatxpressReturfraKunde1.Enabled := true;
934            PanelValg3.Enabled := true;            PanelValg3.Enabled := true;
935            PanelValg3.Font.Color := clWindowText;            PanelValg3.Font.Color := clWindowText;
936          end;          end;
937          if Scanningtype = '4' then          if Scanningtype = '4' then
938          begin          begin
939            Budlevering1.Enabled := true;            menuDaoDirekte1.Enabled := true;
940            PanelValg4.Enabled := true;            PanelValg4.Enabled := true;
941            PanelValg4.Font.Color := clWindowText;            PanelValg4.Font.Color := clWindowText;
942          end;          end;
943          if Scanningtype = '5' then          if Scanningtype = '5' then
944          begin          begin
945            Pakkeshoplevering1.Enabled := true;            menuPakkeshop1.Enabled := true;
946            PanelValg5.Enabled := true;            PanelValg5.Enabled := true;
947            PanelValg5.Font.Color := clWindowText;            PanelValg5.Font.Color := clWindowText;
948          end;          end;
949          if Scanningtype = '6' then          if Scanningtype = '6' then
950          begin          begin
951            Returpakkerfrapakkeshop1.Enabled := true;            menuPakkeshopRetur1.Enabled := true;
952            PanelValg6.Enabled := true;            PanelValg6.Enabled := true;
953            PanelValg6.Font.Color := clWindowText;            PanelValg6.Font.Color := clWindowText;
954          end;          end;
# Line 1005  begin Line 1029  begin
1029    
1030      if Pakketype = '1' then      if Pakketype = '1' then
1031      begin      begin
1032        Storepakker1.Checked := true;        menuStorePakker.Checked := true;
1033        radioStorPakke.Checked := true;        radioStorPakke.Checked := true;
1034      end      end
1035      else      else
1036      begin      begin
1037        Smpakker1.Checked := true;        menuSmaaPakker.Checked := true;
1038        radioLillePakke.Checked := true;        radioLillePakke.Checked := true;
1039      end;      end;
1040    
# Line 1070  begin Line 1094  begin
1094      // UBD skal p.t. ikke have adgang til flg. funktioner      // UBD skal p.t. ikke have adgang til flg. funktioner
1095      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
1096      begin      begin
1097        ReturpakkerfraDAO1.Visible := false;        menuNatxpressReturDAO1.Visible := false;
1098        Returpakkerfraboghandler1.Visible := false;        menuNatxpressReturfraKunde1.Visible := false;
1099        Budlevering1.Visible := false;        menuDaoDirekte1.Visible := false;
1100        Storepakker1.Visible := false;        menuStorePakker.Visible := false;
1101        Smpakker1.Visible := false;        menuSmaaPakker.Visible := false;
1102        Testprinter1.Visible := false;        Testprinter1.Visible := false;
1103        Pakkeshoplevering1.Visible := false;        menuPakkeshop1.Visible := false;
1104        Returpakkerfrapakkeshop1.Visible := false;        menuPakkeshopRetur1.Visible := false;
1105      end;      end;
1106    
1107      if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then      if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then
# Line 1481  begin Line 1505  begin
1505         exit;         exit;
1506      end;      end;
1507    
1508      if (Automatiskvalg1.Checked and (Length(Stregkode) > 8) ) then      if (menuAutomatiskvalg1.Checked and (Length(Stregkode) > 8) ) then
1509      begin      begin
1510        GemStregkode := Stregkode;        GemStregkode := Stregkode;
1511        if Pakketype = 'NatXpress' then        if Pakketype = 'NatXpress' then
# Line 1510  begin Line 1534  begin
1534                InitPakkeshoplevering();                InitPakkeshoplevering();
1535              end;              end;
1536            end            end
1537        // Retur kan ikke scannes med 'Automatisk valg'       else if Pakketype = 'PakkeshopRetur' then
1538              begin
1539                if Scanningtype <> '6' then
1540                begin
1541                 VisAlarmSkaerm( Stregkode + ' Pakkeshop retur,'#13#10' kan ikke bruges med automatisk valg' );
1542    
1543                 exit;
1544                end;
1545              end
1546    
1547    
1548        else        else
1549            begin            begin
# Line 1522  begin Line 1555  begin
1555            end;            end;
1556        Stregkode := GemStregkode;        Stregkode := GemStregkode;
1557      end      end
1558      else if Automatiskvalg1.Checked and (PakkeshopText1.Caption = 'Stregkode') then      else if menuAutomatiskvalg1.Checked and (PakkeshopText1.Caption = 'Stregkode') then
1559      begin      begin
1560        VisAlarmSkaerm( 'Pakkenummer ikke gyldigt (for kort)' );        VisAlarmSkaerm( 'Pakkenummer ikke gyldigt (for kort)' );
1561    
1562        exit;        exit;
1563      end;      end;
1564    
1565      if not Automatiskvalg1.Checked then      if not menuAutomatiskvalg1.Checked then
1566      begin      begin
1567        if ( (Pakkescanningtype <> Scanningtype) and (Scanningtype <> '2') and (Scanningtype <> '3') ) then        if ( (Pakkescanningtype <> Scanningtype) and (Scanningtype <> '2') and (Scanningtype <> '3') ) then
1568        begin        begin
# Line 1542  begin Line 1575  begin
1575    
1576    
1577    
1578      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and Automatisktjekkodestyring1.Checked then      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and menuAutomatiskTjekkodeStyring.Checked then
1579      begin      begin
1580        chkScanTjekkode.Checked := false;        chkScanTjekkode.Checked := false;
1581        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do
# Line 1555  begin Line 1588  begin
1588        end;        end;
1589      end;      end;
1590    
1591      if Pakkernormal1.Checked and not Scanogstjekkoden1.Checked then      if menuNatXpress1.Checked and not Scanogstjekkoden1.Checked then
1592        begin        begin
1593          // Når vi ikke kræver tjekkode er alt ok her          // Når vi ikke kræver tjekkode er alt ok her
1594             BoghandlerStregkode := Stregkode;             BoghandlerStregkode := Stregkode;
# Line 1565  begin Line 1598  begin
1598             Stregkode := '';             Stregkode := '';
1599             InitScreen();             InitScreen();
1600        end        end
1601      else if (PakkeshopLevering1.Checked or Pakkernormal1.Checked) and not Scanogstjekkoden1.Checked then      else if (menuPakkeshop1.Checked or menuNatXpress1.Checked) and not Scanogstjekkoden1.Checked then
1602        begin        begin
1603          // Når vi ikke kræver tjekkode er alt ok her          // Når vi ikke kræver tjekkode er alt ok her
1604             PakkeshopStregkode := Stregkode;             PakkeshopStregkode := Stregkode;
# Line 1577  begin Line 1610  begin
1610             Stregkode := '';             Stregkode := '';
1611             InitScreen();             InitScreen();
1612        end        end
1613      else if PakkeshopLevering1.Checked or Pakkernormal1.Checked then      else if menuPakkeshop1.Checked or menuNatXpress1.Checked then
1614        if PakkeshopText1.Caption = 'Stregkode' then        if PakkeshopText1.Caption = 'Stregkode' then
1615         begin         begin
1616            if length(Stregkode) > 5 then            if length(Stregkode) > 5 then
# Line 1603  begin Line 1636  begin
1636             PakkeshopTjekkode := Stregkode;             PakkeshopTjekkode := Stregkode;
1637             BoghandlerTjekkode := Stregkode;             BoghandlerTjekkode := Stregkode;
1638             PakkeshopText1.Caption := 'Stregkode';             PakkeshopText1.Caption := 'Stregkode';
1639             if (PakkeshopLevering1.Checked) then             if (menuPakkeshop1.Checked) then
1640                MainForm.Color := TUtils.HexToTColor(FarvePakkeshoplevering);                MainForm.Color := TUtils.HexToTColor(FarvePakkeshoplevering);
1641             if (Pakkernormal1.Checked) then             if (menuNatXpress1.Checked) then
1642                MainForm.Color := TUtils.HexToTColor(FarveNormal);                MainForm.Color := TUtils.HexToTColor(FarveNormal);
1643             btnNulstil.Visible := false;             btnNulstil.Visible := false;
1644           end           end
1645          else          else
1646           begin           begin
1647                if (PakkeshopLevering1.Checked) then                if (menuPakkeshop1.Checked) then
1648                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode);                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode);
1649                if (Pakkernormal1.Checked) then                if (menuNatXpress1.Checked) then
1650                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode);                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode);
1651                                    
1652                StregKode := '';                StregKode := '';
# Line 1625  begin Line 1658  begin
1658          InitScreen();          InitScreen();
1659       end;       end;
1660    
1661      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
1662      begin      begin
1663    
1664         if PakkeshopLevering1.Checked and (PakkeshopStregkode <> '') and (PakkeshopTjekkode <> '') then         if menuPakkeshop1.Checked and (PakkeshopStregkode <> '') and (PakkeshopTjekkode <> '') then
1665            StregKode := PakkeshopStregkode;            StregKode := PakkeshopStregkode;
1666         if Pakkernormal1.Checked and ((BoghandlerStregkode <> '') and (BoghandlerTjekkode <> '') or not Scanogstjekkoden1.Checked) then         if menuNatXpress1.Checked and ((BoghandlerStregkode <> '') and (BoghandlerTjekkode <> '') or not Scanogstjekkoden1.Checked) then
1667            StregKode := BoghandlerStregkode;            StregKode := BoghandlerStregkode;
1668         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
1669         try         try
# Line 1644  begin Line 1677  begin
1677    
1678              exit;              exit;
1679            end;            end;
1680            if (Pakkernormal1.Checked or Budlevering1.Checked or PakkeshopLevering1.Checked) then            if (menuNatXpress1.Checked or menuDaoDirekte1.Checked or menuPakkeshop1.Checked) then
1681            begin            begin
1682              PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel);              PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel);
1683              pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);              pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);
# Line 1665  begin Line 1698  begin
1698                MainForm.Color := clRed;                MainForm.Color := clRed;
1699              end;              end;
1700           end;           end;
1701            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
1702            begin            begin
1703              MainForm.Color := TUtils.HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1704              if Storepakker1.Checked then              if menuStorePakker.Checked then
1705              begin              begin
1706                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(ScannetOkStorLyd));
1707              end              end
# Line 1678  begin Line 1711  begin
1711              end;              end;
1712              btnNulstil.Visible := false;              btnNulstil.Visible := false;
1713            end            end
1714            else if (Returpakkerfradao1.Checked or Returpakkerfraboghandler1.Checked) then            else if (menuNatxpressReturDAO1.Checked or menuNatxpressReturfraKunde1.Checked) then
1715            begin            begin
1716              MainForm.Color := TUtils.HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1717              if Storepakker1.Checked then              if menuStorePakker.Checked then
1718              begin              begin
1719                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(ScannetOkStorLyd));
1720              end              end
# Line 1706  begin Line 1739  begin
1739           if not btnNulstil.Visible then           if not btnNulstil.Visible then
1740            begin            begin
1741    
1742              If (Budlevering1.Checked) then              If (menuDaoDirekte1.Checked) then
1743              begin              begin
1744                if Storepakker1.Checked then                if menuStorePakker.Checked then
1745                begin                begin
1746                  PlaySound(PWideChar(ScannetOkStorLyd));                  PlaySound(PWideChar(ScannetOkStorLyd));
1747                end                end
# Line 1802  var Line 1835  var
1835    
1836    
1837  begin  begin
1838      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
1839      begin      begin
1840        for i := ListBox2.items.count-1 downto 0 do        for i := ListBox2.items.count-1 downto 0 do
1841          if pos(StregKode,ListBox2.items[i]) <> 0 then          if pos(StregKode,ListBox2.items[i]) <> 0 then
# Line 1951  procedure TMainForm.InitBladhus(); Line 1984  procedure TMainForm.InitBladhus();
1984    
1985  begin  begin
1986    Altidprintepakkelabel1.Enabled := false;    Altidprintepakkelabel1.Enabled := false;
1987    Pakkernormal1.Visible := false;    menuNatXpress1.Visible := false;
1988    ReturpakkerfraDAO1.Visible := false;    menuNatxpressReturDAO1.Visible := false;
1989    Returpakkerfraboghandler1.Visible := false;    menuNatxpressReturfraKunde1.Visible := false;
1990    Sprgefterboghandlernummer1.Enabled := false;    Sprgefterboghandlernummer1.Enabled := false;
1991    ListBox1.Visible := true;    ListBox1.Visible := true;
1992  //  TestFunktionen := '1';  //  TestFunktionen := '1';
1993    
1994    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
1995    begin    begin
1996      IndlesScanningLogFil();      IndlesScanningLogFil();
1997    end;    end;
# Line 1982  begin Line 2015  begin
2015      02 :      02 :
2016            begin;    // BK            begin;    // BK
2017              Testprinter1.Visible := true;              Testprinter1.Visible := true;
2018              Smpakker1.Enabled := true;              menuSmaaPakker.Enabled := true;
2019              Storepakker1.Enabled := true;              menuStorePakker.Enabled := true;
2020              radioStorPakke.Enabled := true;              radioStorPakke.Enabled := true;
2021              radioLillePakke.Enabled := true;              radioLillePakke.Enabled := true;
2022              BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her
# Line 2020  begin Line 2053  begin
2053            end;            end;
2054      04 :  begin;           // DBK      04 :  begin;           // DBK
2055              Testprinter1.Visible := true;              Testprinter1.Visible := true;
2056              Smpakker1.Enabled := true;              menuSmaaPakker.Enabled := true;
2057              Storepakker1.Enabled := true;              menuStorePakker.Enabled := true;
2058              radioStorPakke.Enabled := true;              radioStorPakke.Enabled := true;
2059              radioLillePakke.Enabled := true;              radioLillePakke.Enabled := true;
2060              BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her
# Line 2054  begin Line 2087  begin
2087    end;    end;
2088    
2089    
2090    if Pakkernormal1.Checked then    if menuNatXpress1.Checked then
2091    begin    begin
2092       if (BoghandlerTjekkode = '') then       if (BoghandlerTjekkode = '') then
2093       begin       begin
# Line 2062  begin Line 2095  begin
2095       end;       end;
2096       URLStr := Format(UrlNormal,[Sted, PakkeNr, BoghandlerNummer, BoghandlerTjekkode]);       URLStr := Format(UrlNormal,[Sted, PakkeNr, BoghandlerNummer, BoghandlerTjekkode]);
2097    end    end
2098    else if ReturpakkerfraDAO1.Checked then    else if menuNatxpressReturDAO1.Checked then
2099    begin    begin
2100       URLStr := Format(UrlReturDAO,[Sted, PakkeNr, BoghandlerNummer, 'DAO', pakkestorrelse]);       URLStr := Format(UrlReturDAO,[Sted, PakkeNr, BoghandlerNummer, 'DAO', pakkestorrelse]);
2101    end    end
2102    else if Returpakkerfraboghandler1.Checked then    else if menuNatxpressReturfraKunde1.Checked then
2103    begin    begin
2104       URLStr := Format(UrlReturBoghandler,[Sted, PakkeNr, BoghandlerNummer, 'Boghandler', pakkestorrelse]);       URLStr := Format(UrlReturBoghandler,[Sted, PakkeNr, BoghandlerNummer, 'Boghandler', pakkestorrelse]);
2105    end    end
2106    else if Budlevering1.Checked then    else if menuDaoDirekte1.Checked then
2107    begin    begin
2108       URLStr := Format(UrlBudlevering,[Sted, PakkeNr, 'bud', pakkestorrelse]);       URLStr := Format(UrlBudlevering,[Sted, PakkeNr, 'bud', pakkestorrelse]);
2109    end    end
2110    else if Pakkeshoplevering1.Checked then    else if menuPakkeshop1.Checked then
2111    begin    begin
2112       URLStr := Format(UrlPakkeshoplevering,[Sted, PakkeNr, PakkeshopTjekkode]);       URLStr := Format(UrlPakkeshoplevering,[Sted, PakkeNr, PakkeshopTjekkode]);
2113    end    end
2114    else if Returpakkerfrapakkeshop1.Checked then    else if menuPakkeshopRetur1.Checked then
2115    begin    begin
2116       URLStr := Format(UrlReturPakkeshop,[Sted, PakkeNr]);       URLStr := Format(UrlReturPakkeshop,[Sted, PakkeNr]);
2117    end    end
# Line 2120  begin Line 2153  begin
2153    
2154    XMLDocument1.LoadFromXML(WebSvar);    XMLDocument1.LoadFromXML(WebSvar);
2155    try    try
2156      if Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked then      if menuPakkeshop1.Checked or menuPakkeshopRetur1.Checked then
2157       begin       begin
2158        RuteNummer := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopTurid').Text;        RuteNummer := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopTurid').Text;
2159        Kommentar := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Stregkodematch').Text;        Kommentar := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Stregkodematch').Text;
# Line 2128  begin Line 2161  begin
2161        BoghandlerNavn := BoghandlerNavn + ' ' + XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;        BoghandlerNavn := BoghandlerNavn + ' ' + XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;
2162        PrintNyLabel := False;        PrintNyLabel := False;
2163    
2164        if Pakkeshoplevering1.Checked then        if menuPakkeshop1.Checked then
2165        begin        begin
2166          try          try
2167            PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text);            PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text);
# Line 2169  begin Line 2202  begin
2202        Kommentar := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('Kommentar').Text;        Kommentar := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('Kommentar').Text;
2203        BoghandlerNavn := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('BoghandlerNavn').Text;        BoghandlerNavn := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('BoghandlerNavn').Text;
2204        Leveringssted := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('Leveringssted').Text;        Leveringssted := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('Leveringssted').Text;
2205        if Budlevering1.Checked then        if menuDaoDirekte1.Checked then
2206          begin          begin
2207          try          try
2208            SmsKode := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('SmsKode').Text;            SmsKode := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('SmsKode').Text;
# Line 2204  begin Line 2237  begin
2237            PrintNyLabel := False;            PrintNyLabel := False;
2238        end;        end;
2239      end      end
2240      else if (Budlevering1.Checked) and (Leveringssted <> Sted) then      else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) then
2241      begin      begin
2242         if (Leveringssted = 'E') and (Sted = 'DBK') then         if (Leveringssted = 'E') and (Sted = 'DBK') then
2243         begin         begin
# Line 2233  begin Line 2266  begin
2266    //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
2267    BoghandlerNavnST.Caption := StringReplace(BoghandlerNavn, ' & ', ' && ', [rfReplaceAll, rfIgnoreCase]);    BoghandlerNavnST.Caption := StringReplace(BoghandlerNavn, ' & ', ' && ', [rfReplaceAll, rfIgnoreCase]);
2268    List1msg := TimeToStr(now) + '; ';    List1msg := TimeToStr(now) + '; ';
2269    if Pakkeshoplevering1.Checked then    if menuPakkeshop1.Checked then
2270      List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; ';      List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; ';
2271    List1Pakkestorrelse := '';    List1Pakkestorrelse := '';
2272    if radioStorPakke.Checked then    if radioStorPakke.Checked then
# Line 2245  begin Line 2278  begin
2278      List1Pakkestorrelse := 'Lille pakke';      List1Pakkestorrelse := 'Lille pakke';
2279    end;    end;
2280    List1msg := List1msg + BoghandlerNavn + '; ';    List1msg := List1msg + BoghandlerNavn + '; ';
2281    if ReturpakkerfraDAO1.Checked then    if menuNatxpressReturDAO1.Checked then
2282    begin    begin
2283      List1msg := List1msg + RightStr(Kommentar, Length(Kommentar)-8);      List1msg := List1msg + RightStr(Kommentar, Length(Kommentar)-8);
2284    end;    end;
2285    if Returpakkerfraboghandler1.Checked then    if menuNatxpressReturfraKunde1.Checked then
2286    begin    begin
2287      List1msg := List1msg + RightStr(Kommentar, Length(Kommentar)-16);      List1msg := List1msg + RightStr(Kommentar, Length(Kommentar)-16);
2288    end;    end;
2289    if ReturpakkerfraDAO1.Checked or Returpakkerfraboghandler1.Checked then    if menuNatxpressReturDAO1.Checked or menuNatxpressReturfraKunde1.Checked then
2290       List1msg := List1msg + '; ' + List1Pakkestorrelse;       List1msg := List1msg + '; ' + List1Pakkestorrelse;
2291    if length(BoghNr) > 0 then    if length(BoghNr) > 0 then
2292    begin    begin
2293      List1Msg := List1Msg + '; Indtastet ' + BoghNr;      List1Msg := List1Msg + '; Indtastet ' + BoghNr;
2294    end;    end;
2295    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
2296    begin    begin
2297       List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn;       List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn;
2298        if (radioStorPakke.Checked) then        if (radioStorPakke.Checked) then
# Line 2271  begin Line 2304  begin
2304          List1msg := List1msg + '; Lille pakke';          List1msg := List1msg + '; Lille pakke';
2305        end;        end;
2306    end;    end;
2307    if Returpakkerfrapakkeshop1.Checked then    if menuPakkeshopRetur1.Checked then
2308    begin    begin
2309      List1msg := List1msg + Stregkode + ' ' + RightStr(Kommentar, Length(Kommentar)-6);      List1msg := List1msg + Stregkode + ' ' + RightStr(Kommentar, Length(Kommentar)-6);
2310    end;    end;
2311    if Pakkernormal1.Checked then    if menuNatXpress1.Checked then
2312    begin    begin
2313      if (Kommentar = '***** Kommentar *****')                       // fra test printer funktionen      if (Kommentar = '***** Kommentar *****')                       // fra test printer funktionen
2314      or (BoghandlerNavn = 'Forbindelse ok')                         // fra test forbindelse funktionen      or (BoghandlerNavn = 'Forbindelse ok')                         // fra test forbindelse funktionen
# Line 2315  pakkeForkertSted : Integer; Line 2348  pakkeForkertSted : Integer;
2348    kontrolKoreliste : string;    kontrolKoreliste : string;
2349    nytRuteNummer, nyFarve : String;    nytRuteNummer, nyFarve : String;
2350  begin  begin
2351    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
2352       RuteNummerST.Color := TUtils.HexToTColor(Farve);       RuteNummerST.Color := TUtils.HexToTColor(Farve);
2353    
2354    pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);    pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);
# Line 2353  begin Line 2386  begin
2386        end;        end;
2387    end    end
2388    else    else
2389    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
2390    begin    begin
2391       if (BoghandlerNavn = 'Ukendt pakke') then       if (BoghandlerNavn = 'Ukendt pakke') then
2392       begin       begin
# Line 2422  begin Line 2455  begin
2455    
2456    end;    end;
2457    
2458    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
2459    begin    begin
2460      case BladhusSted of      case BladhusSted of
2461        00 :  begin;        00 :  begin;
# Line 2471  begin Line 2504  begin
2504    end;    end;
2505    
2506  // 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
2507    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
2508    begin    begin
2509      exit;      exit;
2510    end;    end;
2511    
2512    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
2513    begin    begin
2514    end    end
2515    else    else
# Line 2510  end; Line 2543  end;
2543    
2544  procedure TMainForm.radioStorPakkeClick(Sender: TObject);  procedure TMainForm.radioStorPakkeClick(Sender: TObject);
2545  begin  begin
2546      Storepakker1.Checked := true;      menuStorePakker.Checked := true;
2547      radioStorPakke.Checked := true;      radioStorPakke.Checked := true;
2548  end;  end;
2549    
2550  procedure TMainForm.radioLillePakkeClick(Sender: TObject);  procedure TMainForm.radioLillePakkeClick(Sender: TObject);
2551  begin  begin
2552      Smpakker1.Checked := true;      menuSmaaPakker.Checked := true;
2553      radioLillePakke.Checked := true;      radioLillePakke.Checked := true;
2554  end;  end;
2555    
# Line 2559  begin Line 2592  begin
2592    end;    end;
2593  end;  end;
2594    
2595  procedure TMainForm.Pakkeshoplevering1Click(Sender: TObject);  procedure TMainForm.menuPakkeshop1Click(Sender: TObject);
2596  begin  begin
2597        Scanningtype := '5';        Scanningtype := '5';
2598        InitPakkeshoplevering();        InitPakkeshoplevering();
# Line 2568  end; Line 2601  end;
2601    
2602  procedure TMainForm.NulstilAutomatiskValg();  procedure TMainForm.NulstilAutomatiskValg();
2603  begin  begin
2604      Automatiskvalg1.Checked := false;      menuAutomatiskvalg1.Checked := false;
2605      PanelValgA.Color := clBtnFace;      PanelValgA.Color := clBtnFace;
2606      PanelValgA.Font.Color := clWindowText;      PanelValgA.Font.Color := clWindowText;
2607    
# Line 2580  begin Line 2613  begin
2613        // 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)
2614        PanelValgA.Enabled := false;        PanelValgA.Enabled := false;
2615        PanelValgA.Font.Color := clInactiveCaption;        PanelValgA.Font.Color := clInactiveCaption;
2616        Automatiskvalg1.Enabled := false;        menuAutomatiskvalg1.Enabled := false;
2617      end;      end;
2618  // 20150317: slut  // 20150317: slut
2619  end;  end;
# Line 2813  begin Line 2846  begin
2846    begin    begin
2847       MainForm.Color := TUtils.HexToTColor(Farve);       MainForm.Color := TUtils.HexToTColor(Farve);
2848    end;    end;
2849    if (Budlevering1.Checked) then    if (menuDaoDirekte1.Checked) then
2850    begin    begin
2851       InitLillePakke();       InitLillePakke();
2852    end;    end;
# Line 2877  procedure TMainForm.PanelValgAClick(Send Line 2910  procedure TMainForm.PanelValgAClick(Send
2910  begin  begin
2911  // Skal ikke toggle men bare sætte funktionen on  // Skal ikke toggle men bare sætte funktionen on
2912  // Fravælges ved at vælge en scanningstype  // Fravælges ved at vælge en scanningstype
2913    AutomatiskValg1.Checked := true;    menuAutomatiskvalg1.Checked := true;
2914    PanelValgA.Color := clGreen;    PanelValgA.Color := clGreen;
2915    PanelValgA.Font.Color := clWhite;    PanelValgA.Font.Color := clWhite;
2916    
# Line 2885  begin Line 2918  begin
2918    
2919  end;  end;
2920    
2921  procedure TMainForm.Pakkernormal1Click(Sender: TObject);  procedure TMainForm.menuNatXpress1Click(Sender: TObject);
2922  begin  begin
2923        Scanningtype := '1';        Scanningtype := '1';
2924        NulstilAutomatiskValg();        NulstilAutomatiskValg();
# Line 3040  begin Line 3073  begin
3073    
3074  end;  end;
3075    
3076    
3077  procedure TMainForm.ListBox1DrawItem(Control: TWinControl; Index: Integer;  procedure TMainForm.ListBox1DrawItem(Control: TWinControl; Index: Integer;
3078    Rect: TRect; State: TOwnerDrawState);    Rect: TRect; State: TOwnerDrawState);
3079  var  var
# Line 3154  begin Line 3188  begin
3188    
3189  end;  end;
3190    
3191  procedure TMainForm.ReturpakkerfraDAO1Click(Sender: TObject);  procedure TMainForm.menuNatxpressReturDAO1Click(Sender: TObject);
3192  begin  begin
3193        Scanningtype := '2';        Scanningtype := '2';
3194        NulstilAutomatiskValg();        NulstilAutomatiskValg();
3195        InitReturFraDao();        InitReturFraDao();
3196  end;  end;
3197    
3198  procedure TMainForm.Returpakkerfrapakkeshop1Click(Sender: TObject);  procedure TMainForm.menuPakkeshopRetur1Click(Sender: TObject);
3199  begin  begin
3200        Scanningtype := '6';        Scanningtype := '6';
3201        InitReturFraPakkeshop();        InitReturFraPakkeshop();
# Line 3170  end; Line 3204  end;
3204    
3205  procedure TMainForm.InitNatxpresslevering();  procedure TMainForm.InitNatxpresslevering();
3206  begin  begin
3207        AutomatiskTjekkodeStyring1.Enabled := true;        menuAutomatiskTjekkodeStyring.Enabled := true;
3208        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3209        Pakkernormal1.Checked := true;        menuNatXpress1.Checked := true;
3210        InitForm(FarveNormal,TitelNormal,UrlNormal);        InitForm(FarveNormal,TitelNormal,UrlNormal);
3211        PanelValg1.Color := clGreen;        PanelValg1.Color := clGreen;
3212        PanelValg1.Font.Color := clWhite;        PanelValg1.Font.Color := clWhite;
# Line 3184  begin Line 3218  begin
3218        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3219        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3220        Sprgefterboghandlernummer1.Enabled := true;        Sprgefterboghandlernummer1.Enabled := true;
3221        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3222        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3223        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3224        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3225        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3206  end; Line 3240  end;
3240    
3241  procedure TMainForm.InitReturFraDao();  procedure TMainForm.InitReturFraDao();
3242  begin  begin
3243        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3244        ReturpakkerfraDAO1.Checked := true;        menuNatxpressReturDAO1.Checked := true;
3245        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3246        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);
3247        PanelValg2.Color := clGreen;        PanelValg2.Color := clGreen;
# Line 3220  begin Line 3254  begin
3254        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3255        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3256        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3257        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3258        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3259        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3260        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3261        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3237  end; Line 3271  end;
3271    
3272  procedure TMainForm.InitReturFraKunde();  procedure TMainForm.InitReturFraKunde();
3273  begin  begin
3274        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3275        Returpakkerfraboghandler1.Checked := true;        menuNatxpressReturfraKunde1.Checked := true;
3276        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3277        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);
3278        PanelValg3.Color := clGreen;        PanelValg3.Color := clGreen;
# Line 3250  begin Line 3284  begin
3284        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3285        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3286        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3287        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3288        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3289        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3290        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3291        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3267  end; Line 3301  end;
3301    
3302  procedure TMainForm.InitDirektelevering();  procedure TMainForm.InitDirektelevering();
3303  begin  begin
3304        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3305        Budlevering1.Checked := true;        menuDaoDirekte1.Checked := true;
3306        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3307        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);
3308        PanelValg4.Color := clGreen;        PanelValg4.Color := clGreen;
# Line 3281  begin Line 3315  begin
3315        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3316        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3317        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3318        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3319        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3320        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3321        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3322        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3307  end; Line 3341  end;
3341    
3342  procedure TMainForm.InitPakkeshoplevering();  procedure TMainForm.InitPakkeshoplevering();
3343  begin  begin
3344        AutomatiskTjekkodeStyring1.Enabled := true;        menuAutomatiskTjekkodeStyring.Enabled := true;
3345        Pakkeshoplevering1.Checked := true;        menuPakkeshop1.Checked := true;
3346        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3347        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);
3348        PanelValg5.Color := clGreen;        PanelValg5.Color := clGreen;
# Line 3321  begin Line 3355  begin
3355        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3356        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3357        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3358        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3359        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3360        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3361        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3362        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3347  end; Line 3381  end;
3381    
3382  procedure TMainForm.InitReturFraPakkeshop();  procedure TMainForm.InitReturFraPakkeshop();
3383  begin  begin
3384        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3385        Returpakkerfrapakkeshop1.Checked := true;        menuPakkeshopRetur1.Checked := true;
3386        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3387        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);
3388        PanelValg6.Color := clGreen;        PanelValg6.Color := clGreen;
# Line 3361  begin Line 3395  begin
3395        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3396        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3397        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3398        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3399        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3400        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3401        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3402        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3385  begin Line 3419  begin
3419        IdFTP1.PassiveUseControlHost := true;        IdFTP1.PassiveUseControlHost := true;
3420  end;  end;
3421    
3422  procedure TMainForm.Returpakkerfraboghandler1Click(Sender: TObject);  procedure TMainForm.menuNatxpressReturfraKunde1Click(Sender: TObject);
3423  begin  begin
3424        Scanningtype := '3';        Scanningtype := '3';
3425        NulstilAutomatiskValg();        NulstilAutomatiskValg();
# Line 3395  end; Line 3429  end;
3429  procedure TMainForm.InitIndleveringskode();  procedure TMainForm.InitIndleveringskode();
3430  begin  begin
3431        menuIndlevering.Checked := true;        menuIndlevering.Checked := true;
3432        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3433    
3434        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3435        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);
# Line 3412  begin Line 3446  begin
3446    
3447    
3448    
3449        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3450        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3451        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3452        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3453        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3438  begin Line 3472  begin
3472  end;  end;
3473    
3474    
3475  procedure TMainForm.Storepakker1Click(Sender: TObject);  procedure TMainForm.menuStorePakkerClick(Sender: TObject);
3476  begin  begin
3477    InitStorPakke();    InitStorPakke();
3478  end;  end;
3479    
3480  procedure TMainForm.Smpakker1Click(Sender: TObject);  procedure TMainForm.menuSmaaPakkerClick(Sender: TObject);
3481  begin  begin
3482    InitLillePakke();    InitLillePakke();
3483  end;  end;
# Line 3451  end; Line 3485  end;
3485  procedure TMainForm.InitLillePakke();  procedure TMainForm.InitLillePakke();
3486  begin  begin
3487    radioLillePakke.Checked := true;    radioLillePakke.Checked := true;
3488    Smpakker1.Checked := true;    menuSmaaPakker.Checked := true;
3489  //  Stregkode := '';  //  Stregkode := '';
3490  end;  end;
3491    
3492  procedure TMainForm.InitStorPakke();  procedure TMainForm.InitStorPakke();
3493  begin  begin
3494    radioStorPakke.Checked := true;    radioStorPakke.Checked := true;
3495    Storepakker1.Checked := true;    menuStorePakker.Checked := true;
3496  // 20150310: start  // 20150310: start
3497  //  Stregkode := '';  //  Stregkode := '';
3498  // 20150310: slut  // 20150310: slut
# Line 3502  begin Line 3536  begin
3536       exit;       exit;
3537    end;    end;
3538    
3539    if Smpakker1.Checked then    if menuSmaaPakker.Checked then
3540       if ScannetOkLyd  <> '' then       if ScannetOkLyd  <> '' then
3541       begin       begin
3542         PlaySound(PWideChar(ScannetOkLyd));         PlaySound(PWideChar(ScannetOkLyd));
# Line 3511  begin Line 3545  begin
3545       begin       begin
3546         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);
3547       end;       end;
3548    if Storepakker1.Checked then    if menuStorePakker.Checked then
3549       if ScannetOkStorLyd  <> '' then       if ScannetOkStorLyd  <> '' then
3550       begin       begin
3551         PlaySound(PWideChar(ScannetOkStorLyd));         PlaySound(PWideChar(ScannetOkStorLyd));
# Line 3523  begin Line 3557  begin
3557  end;  end;
3558    
3559    
3560  procedure TMainForm.Budlevering1Click(Sender: TObject);  procedure TMainForm.menuDaoDirekte1Click(Sender: TObject);
3561  begin  begin
3562        Scanningtype := '4';        Scanningtype := '4';
3563        NulstilAutomatiskValg();        NulstilAutomatiskValg();
# Line 4242  var Line 4276  var
4276        begin        begin
4277          // 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
4278          WebSvar := IdHTTP1.Get(URLStr);          WebSvar := IdHTTP1.Get(URLStr);
4279    
4280    
4281    
4282        end;        end;
4283        on e:exception do        on e:exception do
4284        begin        begin
# Line 4911  begin Line 4948  begin
4948  end;  end;
4949    
4950    
4951    //Nedarvet fra IParentForm
4952    procedure TMainForm.Msg( msg : string);
4953    begin
4954      ShowMessage(msg);
4955    end;
4956    
4957  //Nedarvet fra IParentForm  //Nedarvet fra IParentForm
4958  procedure TMainForm.LogMessage( msg : string);  procedure TMainForm.LogMessage( msg : string);
Legend:
Removed from v.3036  
changed lines
  Added in v.3055
  ViewVC Help
Powered by ViewVC 1.1.20