/[projects]/dao/DelphiScanner/Main.pas
ViewVC logotype

Diff of /dao/DelphiScanner/Main.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2977 by torben, Tue Mar 15 13:44:38 2016 UTC revision 3073 by torben, Wed Jul 27 15:25:24 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        chkUdenforSpecifikation: TCheckBox;
111    
112    
113    
# Line 127  type Line 129  type
129    procedure radioStorPakkeClick(Sender: TObject);    procedure radioStorPakkeClick(Sender: TObject);
130    procedure radioLillePakkeClick(Sender: TObject);    procedure radioLillePakkeClick(Sender: TObject);
131    procedure chkSporgEfterKundeClick(Sender: TObject);    procedure chkSporgEfterKundeClick(Sender: TObject);
132    procedure Pakkernormal1Click(Sender: TObject);    procedure menuNatXpress1Click(Sender: TObject);
133    procedure Testforbindelsen1Click(Sender: TObject);    procedure Testforbindelsen1Click(Sender: TObject);
134    procedure Testprinter1Click(Sender: TObject);    procedure Testprinter1Click(Sender: TObject);
135    procedure Om1Click(Sender: TObject);    procedure Om1Click(Sender: TObject);
136    procedure Lukprogrammet1Click(Sender: TObject);    procedure Lukprogrammet1Click(Sender: TObject);
137    procedure Sprgefterboghandlernummer1Click(Sender: TObject);    procedure Sprgefterboghandlernummer1Click(Sender: TObject);
138    procedure ReturpakkerfraDAO1Click(Sender: TObject);    procedure menuNatxpressReturDAO1Click(Sender: TObject);
139    procedure Returpakkerfraboghandler1Click(Sender: TObject);    procedure menuNatxpressReturfraKunde1Click(Sender: TObject);
140    procedure Storepakker1Click(Sender: TObject);    procedure menuStorePakkerClick(Sender: TObject);
141    procedure Smpakker1Click(Sender: TObject);    procedure menuSmaaPakkerClick(Sender: TObject);
142    procedure Testlyd1Click(Sender: TObject);    procedure Testlyd1Click(Sender: TObject);
143    procedure Testlyd2Click(Sender: TObject);    procedure Testlyd2Click(Sender: TObject);
144    procedure Button1Click(Sender: TObject);    procedure Button1Click(Sender: TObject);
145    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
146    procedure Budlevering1Click(Sender: TObject);    procedure menuDaoDirekte1Click(Sender: TObject);
147    procedure BtnDownloadKontrolfilClick(Sender: TObject);    procedure BtnDownloadKontrolfilClick(Sender: TObject);
148    procedure BtnOpdaterListenClick(Sender: TObject);    procedure BtnOpdaterListenClick(Sender: TObject);
149    procedure DownloadBladhusRuteskiftfil();    procedure DownloadBladhusRuteskiftfil();
# Line 153  type Line 155  type
155    procedure FormDestroy(Sender: TObject);    procedure FormDestroy(Sender: TObject);
156    procedure BtnUploadLogfilClick(Sender: TObject);    procedure BtnUploadLogfilClick(Sender: TObject);
157    procedure BtnDownloadRuteskiftFilClick(Sender: TObject);    procedure BtnDownloadRuteskiftFilClick(Sender: TObject);
158    procedure Pakkeshoplevering1Click(Sender: TObject);    procedure menuPakkeshop1Click(Sender: TObject);
159    procedure btnNulstilClick(Sender: TObject);    procedure btnNulstilClick(Sender: TObject);
160    procedure Returpakkerfrapakkeshop1Click(Sender: TObject);    procedure menuPakkeshopRetur1Click(Sender: TObject);
161    procedure InitNatxpresslevering();    procedure InitNatxpresslevering();
162    procedure InitReturFraDao();    procedure InitReturFraDao();
163    procedure InitReturFraKunde();    procedure InitReturFraKunde();
# Line 172  type Line 174  type
174    procedure Timer1Timer(Sender: TObject);    procedure Timer1Timer(Sender: TObject);
175    procedure Scanogstjekkoden1Click(Sender: TObject);    procedure Scanogstjekkoden1Click(Sender: TObject);
176    procedure chkScanTjekkodeClick(Sender: TObject);    procedure chkScanTjekkodeClick(Sender: TObject);
177    procedure Automatisktjekkodestyring1Click(Sender: TObject);    procedure menuAutomatiskTjekkodeStyringClick(Sender: TObject);
178    procedure SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);    procedure SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);
179    procedure Automatiskvalg1Click(Sender: TObject);    procedure menuAutomatiskvalg1Click(Sender: TObject);
180    procedure PanelValgAClick(Sender: TObject);    procedure PanelValgAClick(Sender: TObject);
181    procedure PanelValg1Click(Sender: TObject);    procedure PanelValg1Click(Sender: TObject);
182    procedure PanelValg2Click(Sender: TObject);    procedure PanelValg2Click(Sender: TObject);
# Line 195  type Line 197  type
197    
198    
199    //Nedarvet fra IParentForm    //Nedarvet fra IParentForm
200      procedure Msg( msg : string);
201    procedure LogMessage( msg : string);    procedure LogMessage( msg : string);
202    procedure SetPrinterstatusText( txt: string; alert: boolean);    procedure SetPrinterstatusText( txt: string; alert: boolean);
203    function GetFormObject() : TForm;    function GetFormObject() : TForm;
204    
205    
206    
207    private    private
208      SpecialVersionSted, SpecialVersionScanningtype: String;    // Bruges når programmet skal bruges udenfor DAO scanningssteder      SpecialVersionSted, SpecialVersionScanningtype: String;    // Bruges når programmet skal bruges udenfor DAO scanningssteder
209      Stregkode : String;      Stregkode : String;
# Line 260  type Line 264  type
264      procedure SkrivScanningLogFil(var tekst : string);      procedure SkrivScanningLogFil(var tekst : string);
265      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;
266      procedure VisAlarmSkaerm(strMessage: string);      procedure VisAlarmSkaerm(strMessage: string);
267        function InjectURL(Url : String) : String;
268    
269    public    public
270      { Public declarations }      { Public declarations }
# Line 285  implementation Line 290  implementation
290  procedure TMainForm.InitForm(Farve,Titel,Url : String);  procedure TMainForm.InitForm(Farve,Titel,Url : String);
291  begin  begin
292    
293        IdHTTP1.ConnectTimeout := 5000; // Vent max 5 sek på connect
294        IdHTTP1.ReadTimeout := 10000; // Vent max 10 sek på read
295    
296    
297    
298    
299      StaticTextManglendePakker.Caption := '';      StaticTextManglendePakker.Caption := '';
300    
301    
# Line 396  begin Line 407  begin
407        PrinterstatusStaticText1.Color := MainForm.Color;        PrinterstatusStaticText1.Color := MainForm.Color;
408      end;      end;
409    
410      if PakkeshopLevering1.Checked or Pakkernormal1.Checked then      if menuPakkeshop1.Checked or menuNatXpress1.Checked then
411        PakkeshopText1.Visible := true        PakkeshopText1.Visible := true
412      else      else
413        PakkeshopText1.Visible := false;        PakkeshopText1.Visible := false;
# Line 421  begin Line 432  begin
432        end;        end;
433      end;      end;
434    
435      if Automatisktjekkodestyring1.Checked then      if menuAutomatiskTjekkodeStyring.Checked then
436      begin      begin
437        chkScanTjekkode.Enabled := false;        chkScanTjekkode.Enabled := false;
438        Scanogstjekkoden1.Enabled := false;        Scanogstjekkoden1.Enabled := false;
# Line 479  begin Line 490  begin
490    StregkodeST.Caption := Stregkode;    StregkodeST.Caption := Stregkode;
491  end;  end;
492    
493  procedure TMainForm.Automatisktjekkodestyring1Click(Sender: TObject);  procedure TMainForm.menuAutomatiskTjekkodeStyringClick(Sender: TObject);
494  begin  begin
495    if Automatisktjekkodestyring1.Checked then    if menuAutomatiskTjekkodeStyring.Checked then
496    begin    begin
497       chkScanTjekkode.Enabled := false;       chkScanTjekkode.Enabled := false;
498       Scanogstjekkoden1.Enabled := false;       Scanogstjekkoden1.Enabled := false;
# Line 494  begin Line 505  begin
505    
506  end;  end;
507    
508  procedure TMainForm.Automatiskvalg1Click(Sender: TObject);  procedure TMainForm.menuAutomatiskvalg1Click(Sender: TObject);
509  begin  begin
510  // Skal ikke toggle men bare sætte funktionen on  // Skal ikke toggle men bare sætte funktionen on
511  // Fravælges ved at vælge en scanningstype  // Fravælges ved at vælge en scanningstype
512       AutomatiskValg1.Checked := true;       menuAutomatiskvalg1.Checked := true;
513       PanelValgA.Color := clGreen;       PanelValgA.Color := clGreen;
514       PanelValgA.Font.Color := clWhite;       PanelValgA.Font.Color := clWhite;
515  end;  end;
516    
517    function TMainForm.InjectURL(Url : String) : String;
518    begin
519    
520      Url := Url + '&ver=' + TUtils.URLEncode( TUtils.Sto_GetFmtFileVersion(''));
521      Url := Url + '&host=' + TUtils.URLEncode( TUtils.GetComputerNameHelper());
522      Url := Url + '&user=' + TUtils.URLEncode( TUtils.GetCurrentUserName());
523    
524      Result := Url;
525    end;
526    
527  //InitForm kaldes før FormCreate  //InitForm kaldes før FormCreate
528  procedure TMainForm.FormCreate(Sender: TObject);  procedure TMainForm.FormCreate(Sender: TObject);
# Line 553  begin Line 573  begin
573      SkrivLog := ReadString('Settings','SkrivLog','0');      SkrivLog := ReadString('Settings','SkrivLog','0');
574      Sted := ReadString('Settings','Sted','');      Sted := ReadString('Settings','Sted','');
575      StedNavn := ReadString('Settings','Stednavn','');      StedNavn := ReadString('Settings','Stednavn','');
576    
577      UrlFindPakketype := ReadString('Settings','UrlFindPakketype','http://omdeling.info/webservices/bogpakkekontrol/FindPakketype.php?stregkode=%s');      UrlFindPakketype := ReadString('Settings','UrlFindPakketype','http://omdeling.info/webservices/bogpakkekontrol/FindPakketype.php?stregkode=%s');
578        UrlFindPakketype := InjectURL(UrlFindPakketype);
579    
580      UrlSendPrograminfo := ReadString('Settings','UrlSendPrograminfo','http://omdeling.info/webservices/bogpakkekontrol/SendPrograminfo.php?programnavn=%s&sted=%s&scanningtype=%s&infotype=%s&info=%s');      UrlSendPrograminfo := ReadString('Settings','UrlSendPrograminfo','http://omdeling.info/webservices/bogpakkekontrol/SendPrograminfo.php?programnavn=%s&sted=%s&scanningtype=%s&infotype=%s&info=%s');
581        UrlSendPrograminfo := InjectURL(UrlSendPrograminfo);
582    
583      UrlNormal := ReadString('Settings','UrlNormal','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&tjekkode=%s');      UrlNormal := ReadString('Settings','UrlNormal','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&tjekkode=%s');
584        UrlNormal := InjectURL(UrlNormal);
585    
586      UrlReturDAO := ReadString('Settings','UrlReturDAO','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&returpakketype=%s&pakkestorrelse=%s');      UrlReturDAO := ReadString('Settings','UrlReturDAO','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&returpakketype=%s&pakkestorrelse=%s');
587        UrlReturDAO := InjectURL(UrlReturDAO);
588    
589      UrlReturBoghandler := ReadString('Settings','UrlReturBoghandler','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&returpakketype=%s&pakkestorrelse=%s');      UrlReturBoghandler := ReadString('Settings','UrlReturBoghandler','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&returpakketype=%s&pakkestorrelse=%s');
590        UrlReturBoghandler := InjectURL(UrlReturBoghandler);
591    
592      UrlBudlevering := ReadString('Settings','UrlBudlevering','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&leveringstype=%s&pakkestorrelse=%s');      UrlBudlevering := ReadString('Settings','UrlBudlevering','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&leveringstype=%s&pakkestorrelse=%s');
593        UrlBudlevering := InjectURL(UrlBudlevering);
594    
595      UrlManglendeScanninger := ReadString('Settings','UrlManglendeScanninger','http://omdeling.info/webservices/bogpakkekontrol/bogpakkemanglendescanninger.php?sted=%s&type=%s');      UrlManglendeScanninger := ReadString('Settings','UrlManglendeScanninger','http://omdeling.info/webservices/bogpakkekontrol/bogpakkemanglendescanninger.php?sted=%s&type=%s');
596        UrlManglendeScanninger := InjectURL(UrlManglendeScanninger);
597    
598      UrlEKLoverforsel := ReadString('Settings','UrlEKLoverforsel','http://omdeling.info/webservices/bogpakkekontrol/bogpakkertilekl.php?sted=%s');      UrlEKLoverforsel := ReadString('Settings','UrlEKLoverforsel','http://omdeling.info/webservices/bogpakkekontrol/bogpakkertilekl.php?sted=%s');
599        UrlEKLoverforsel := InjectURL(UrlEKLoverforsel);
600    
601      UrlEKLoverforselPakkeshop := ReadString('Settings','UrlEKLoverforselPakkeshop','http://omdeling.info/webservices/pakkeshop/pakkertilekl.php?sted=%s');      UrlEKLoverforselPakkeshop := ReadString('Settings','UrlEKLoverforselPakkeshop','http://omdeling.info/webservices/pakkeshop/pakkertilekl.php?sted=%s');
602        UrlEKLoverforselPakkeshop := InjectURL(UrlEKLoverforselPakkeshop);
603    
604      UrlPakkeshoplevering := ReadString('Settings','UrlPakkeshoplevering','http://omdeling.info/webservices/pakkeshop/pakkekontrol.php?sted=%s&stregkode=%s&tjekkode=%s');      UrlPakkeshoplevering := ReadString('Settings','UrlPakkeshoplevering','http://omdeling.info/webservices/pakkeshop/pakkekontrol.php?sted=%s&stregkode=%s&tjekkode=%s');
605        UrlPakkeshoplevering := InjectURL(UrlPakkeshoplevering);
606    
607      UrlReturPakkeshop := ReadString('Settings','UrlReturPakkeshop','http://omdeling.info/webservices/pakkeshop/returpakkekontrol.php?sted=%s&stregkode=%s');      UrlReturPakkeshop := ReadString('Settings','UrlReturPakkeshop','http://omdeling.info/webservices/pakkeshop/returpakkekontrol.php?sted=%s&stregkode=%s');
608        UrlReturPakkeshop := InjectURL(UrlReturPakkeshop);
609    
610      UrlPakkeshopManglendeScanninger := ReadString('Settings','UrlPakkeshopManglendeScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendescanninger.php?sted=%s');      UrlPakkeshopManglendeScanninger := ReadString('Settings','UrlPakkeshopManglendeScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendescanninger.php?sted=%s');
611      UrlPakkeshopManglendeReturScanninger := ReadString('Settings','UrlPakkeshopManglendeReturScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendereturscanninger.php?sted=%s');      UrlPakkeshopManglendeScanninger := InjectURL(UrlPakkeshopManglendeScanninger);
612    
613        UrlPakkeshopManglendeReturScanninger := ReadString('Settings','UrlPakkeshopManglendeReturScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendereturscanninger.php?sted=%s');
614        UrlPakkeshopManglendeReturScanninger := InjectURL(UrlPakkeshopManglendeReturScanninger);
615    
616      UrlIndleveringsPakke := ReadString('Settings','UrlIndleveringsPakke','http://omdeling.info/webservices/pakkeshop/PakkekontrolIndleveringskode.php?sted=%s&pakkekode=%s');      UrlIndleveringsPakke := ReadString('Settings','UrlIndleveringsPakke','http://omdeling.info/webservices/pakkeshop/PakkekontrolIndleveringskode.php?sted=%s&pakkekode=%s');
617        UrlIndleveringsPakke := InjectURL(UrlIndleveringsPakke);
618    
619      UrlIndleveringsPakkeManglendeScanninger := ReadString('Settings', 'UrlIndleveringsPakkeManglendeScanninger','http://omdeling.info/webservices/pakkeshop/IndleveringsPakkeManglendeScanninger.php?sted=%s');      UrlIndleveringsPakkeManglendeScanninger := ReadString('Settings', 'UrlIndleveringsPakkeManglendeScanninger','http://omdeling.info/webservices/pakkeshop/IndleveringsPakkeManglendeScanninger.php?sted=%s');
620      URLOmdirigerTilPakkeshop := ReadString('Settings', 'URLOmdirigerTilPakkeshop','http://omdeling.info/webservices/pakkeshop/PakkeKontrolOmdirigerTilPakkeshop.php?sted=%s&stregkode=%s');      UrlIndleveringsPakkeManglendeScanninger := InjectURL(UrlIndleveringsPakkeManglendeScanninger);
621    
622        URLOmdirigerTilPakkeshop := ReadString('Settings', 'URLOmdirigerTilPakkeshop','http://omdeling.info/webservices/pakkeshop/PakkeKontrolOmdirigerTilPakkeshop.php?sted=%s&stregkode=%s');
623        URLOmdirigerTilPakkeshop := InjectURL(URLOmdirigerTilPakkeshop);
624    
625    
626    
# Line 629  begin Line 676  begin
676    
677      if Scanningtype = 'A' then      if Scanningtype = 'A' then
678      begin      begin
679        Automatiskvalg1.Checked := true;        menuAutomatiskvalg1.Checked := true;
680        Scanningtype := '1';        Scanningtype := '1';
681        PanelValgA.Color := clGreen;        PanelValgA.Color := clGreen;
682        PanelValgA.Font.Color := clWhite;        PanelValgA.Font.Color := clWhite;
# Line 661  begin Line 708  begin
708    
709      if ScanTjekkodeAutomatik = '1' then      if ScanTjekkodeAutomatik = '1' then
710      begin      begin
711        Automatisktjekkodestyring1.Checked := true;        menuAutomatiskTjekkodeStyring.Checked := true;
712        chkScanTjekkode.Enabled := false;        chkScanTjekkode.Enabled := false;
713        Scanogstjekkoden1.Enabled := false;        Scanogstjekkoden1.Enabled := false;
714      end;      end;
# Line 704  begin Line 751  begin
751      SpecialVersionSted := 'NS';      SpecialVersionSted := 'NS';
752  {$EndIf}  {$EndIf}
753    
   
754      //SpecialVersionSted := '01';  // NS - bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE)      //SpecialVersionSted := '01';  // NS - bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE)
755      //SpecialVersionSted := '02';  // BK - BRUGES IKKE (brug i stedet ovenstående SpecialVersionSted BK)      //SpecialVersionSted := '02';  // BK - BRUGES IKKE (brug i stedet ovenstående SpecialVersionSted BK)
756      //SpecialVersionSted := '03';  // FD - (bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE)      //SpecialVersionSted := '03';  // FD - (bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE)
# Line 722  begin Line 768  begin
768    
769      if SpecialVersionSted = 'NS' then      if SpecialVersionSted = 'NS' then
770      begin      begin
771         SpecialVersionSted := '01';         //SpecialVersionSted := '01'; // Fra før NS overtog scanning løssalg
772         SpecialVersionScanningtype := '4';         //SpecialVersionScanningtype := '4';
773    
774          //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil
775          Sted := SpecialVersionSted;
776         // her skal vi også disable de knapper BK ikke kan bruge
777          PanelValg2.Enabled := false;
778          PanelValg2.Font.Color := clInactiveCaption;
779          PanelValg3.Enabled := false;
780          PanelValg3.Font.Color := clInactiveCaption;
781          //PanelValg6.Enabled := false;
782          //PanelValg6.Font.Color := clInactiveCaption;
783    
784         // her skal vi også disable de menupunkter FD ikke kan bruge
785          menuNatxpressReturDAO1.Enabled := false;
786          menuNatxpressReturfraKunde1.Enabled := false;
787    
788          //Returpakkerfrapakkeshop1.Enabled := false;
789      end;      end;
790    
791      if SpecialVersionSted = 'FD' then      if SpecialVersionSted = 'FD' then
792      begin      begin
793         SpecialVersionSted := '03';         //SpecialVersionSted := '03'; //fra før at FD overtog scanning
794         SpecialVersionScanningtype := '4';         //SpecialVersionScanningtype := '4';
795      end;  
796    
     if (SpecialVersionSted = 'BK') OR (SpecialVersionSted = 'TK') then  
     begin  
797        //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil        //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil
798        Sted := SpecialVersionSted;        Sted := SpecialVersionSted;
799       // her skal vi også disable de knapper BK ikke kan bruge       // her skal vi også disable de knapper BK ikke kan bruge
# Line 743  begin Line 804  begin
804        //PanelValg6.Enabled := false;        //PanelValg6.Enabled := false;
805        //PanelValg6.Font.Color := clInactiveCaption;        //PanelValg6.Font.Color := clInactiveCaption;
806    
807       // her skal vi også disable de menupunkter BK ikke kan bruge       // her skal vi også disable de menupunkter FD ikke kan bruge
808        ReturpakkerfraDAO1.Enabled := false;        menuNatxpressReturDAO1.Enabled := false;
809        Returpakkerfraboghandler1.Enabled := false;        menuNatxpressReturfraKunde1.Enabled := false;
810    
811        //Returpakkerfrapakkeshop1.Enabled := false;        //Returpakkerfrapakkeshop1.Enabled := false;
812    
       if SpecialVersionScanningtype = 'A' then  
       begin  
          Scanningtype := '1';  
       end  
       else  
       begin  
         Scanningtype := SpecialVersionScanningtype;  
       end;  
813      end;      end;
814    
815      if SpecialVersionSted = 'DBK' then      if (SpecialVersionSted = 'BK') OR (SpecialVersionSted = 'TK') then
816      begin      begin
817        //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil        //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil
818        Sted := SpecialVersionSted;        Sted := SpecialVersionSted;
819        // her skal vi også disable de knapper DBK ikke kan bruge       // her skal vi også disable de knapper BK ikke kan bruge
820        PanelValg2.Enabled := false;        PanelValg2.Enabled := false;
821        PanelValg2.Font.Color := clInactiveCaption;        PanelValg2.Font.Color := clInactiveCaption;
822        PanelValg3.Enabled := false;        PanelValg3.Enabled := false;
823        PanelValg3.Font.Color := clInactiveCaption;        PanelValg3.Font.Color := clInactiveCaption;
824        PanelValg5.Enabled := false;        //PanelValg6.Enabled := false;
825        PanelValg5.Font.Color := clInactiveCaption;        //PanelValg6.Font.Color := clInactiveCaption;
       PanelValg6.Enabled := false;  
       PanelValg6.Font.Color := clInactiveCaption;  
   
826    
827       // her skal vi også disable de menupunkter DBK ikke kan bruge       // her skal vi også disable de menupunkter BK ikke kan bruge
828        ReturpakkerfraDAO1.Enabled := false;        menuNatxpressReturDAO1.Enabled := false;
829        Returpakkerfraboghandler1.Enabled := false;        menuNatxpressReturfraKunde1.Enabled := false;
830    
831        Pakkeshoplevering1.Enabled := false;        //Returpakkerfrapakkeshop1.Enabled := false;
       Returpakkerfrapakkeshop1.Enabled := false;  
832    
833        if SpecialVersionScanningtype = 'A' then        if SpecialVersionScanningtype = 'A' then
834        begin        begin
# Line 791  begin Line 840  begin
840        end;        end;
841      end;      end;
842    
843        if SpecialVersionSted = 'DBK' then
844        begin
845          Sted := SpecialVersionSted;
846        end;
847    
848      if (SpecialVersionSted = '01')      if (SpecialVersionSted = '01')
849      or (SpecialVersionSted = '02')      or (SpecialVersionSted = '02')
850      or (SpecialVersionSted = '03')      or (SpecialVersionSted = '03')
# Line 814  begin Line 868  begin
868        PanelValg7.Font.Color := clInactiveCaption;        PanelValg7.Font.Color := clInactiveCaption;
869       // 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
870    
871        Automatiskvalg1.Enabled := false;        menuAutomatiskvalg1.Enabled := false;
872    
873        Pakkernormal1.Enabled := false;        menuNatXpress1.Enabled := false;
874        ReturpakkerfraDAO1.Enabled := false;        menuNatxpressReturDAO1.Enabled := false;
875        Returpakkerfraboghandler1.Enabled := false;        menuNatxpressReturfraKunde1.Enabled := false;
876        Budlevering1.Enabled := false;        menuDaoDirekte1.Enabled := false;
877        Pakkeshoplevering1.Enabled := false;        menuPakkeshop1.Enabled := false;
878        Returpakkerfrapakkeshop1.Enabled := false;        menuPakkeshopRetur1.Enabled := false;
879        if SpecialVersionScanningtype = 'A' then        if SpecialVersionScanningtype = 'A' then
880        begin        begin
881          Scanningtype := '4';          Scanningtype := '4';
882          Budlevering1.Enabled := true;          menuDaoDirekte1.Enabled := true;
883          PanelValg4.Font.Color := clWindowText;          PanelValg4.Font.Color := clWindowText;
884          PanelValg4.Enabled := true;          PanelValg4.Enabled := true;
885        end        end
# Line 834  begin Line 888  begin
888          Scanningtype := SpecialVersionScanningtype;          Scanningtype := SpecialVersionScanningtype;
889          PanelValgA.Enabled := false;          PanelValgA.Enabled := false;
890          PanelValgA.Font.Color := clInactiveCaption;          PanelValgA.Font.Color := clInactiveCaption;
891          AutomatiskValg1.Checked := false;          menuAutomatiskvalg1.Checked := false;
892          PanelValgA.Color := clBtnFace;          PanelValgA.Color := clBtnFace;
893          if Scanningtype = '1' then          if Scanningtype = '1' then
894          begin          begin
895            Pakkernormal1.Enabled := true;            menuNatXpress1.Enabled := true;
896            PanelValg1.Enabled := true;            PanelValg1.Enabled := true;
897            PanelValg1.Font.Color := clWindowText;            PanelValg1.Font.Color := clWindowText;
898          end;          end;
899          if Scanningtype = '2' then          if Scanningtype = '2' then
900          begin          begin
901            ReturpakkerfraDAO1.Enabled := true;            menuNatxpressReturDAO1.Enabled := true;
902            PanelValg2.Enabled := true;            PanelValg2.Enabled := true;
903            PanelValg2.Font.Color := clWindowText;            PanelValg2.Font.Color := clWindowText;
904          end;          end;
905          if Scanningtype = '3' then          if Scanningtype = '3' then
906          begin          begin
907            Returpakkerfraboghandler1.Enabled := true;            menuNatxpressReturfraKunde1.Enabled := true;
908            PanelValg3.Enabled := true;            PanelValg3.Enabled := true;
909            PanelValg3.Font.Color := clWindowText;            PanelValg3.Font.Color := clWindowText;
910          end;          end;
911          if Scanningtype = '4' then          if Scanningtype = '4' then
912          begin          begin
913            Budlevering1.Enabled := true;            menuDaoDirekte1.Enabled := true;
914            PanelValg4.Enabled := true;            PanelValg4.Enabled := true;
915            PanelValg4.Font.Color := clWindowText;            PanelValg4.Font.Color := clWindowText;
916          end;          end;
917          if Scanningtype = '5' then          if Scanningtype = '5' then
918          begin          begin
919            Pakkeshoplevering1.Enabled := true;            menuPakkeshop1.Enabled := true;
920            PanelValg5.Enabled := true;            PanelValg5.Enabled := true;
921            PanelValg5.Font.Color := clWindowText;            PanelValg5.Font.Color := clWindowText;
922          end;          end;
923          if Scanningtype = '6' then          if Scanningtype = '6' then
924          begin          begin
925            Returpakkerfrapakkeshop1.Enabled := true;            menuPakkeshopRetur1.Enabled := true;
926            PanelValg6.Enabled := true;            PanelValg6.Enabled := true;
927            PanelValg6.Font.Color := clWindowText;            PanelValg6.Font.Color := clWindowText;
928          end;          end;
# Line 949  begin Line 1003  begin
1003    
1004      if Pakketype = '1' then      if Pakketype = '1' then
1005      begin      begin
1006        Storepakker1.Checked := true;        menuStorePakker.Checked := true;
1007        radioStorPakke.Checked := true;        radioStorPakke.Checked := true;
1008      end      end
1009      else      else
1010      begin      begin
1011        Smpakker1.Checked := true;        menuSmaaPakker.Checked := true;
1012        radioLillePakke.Checked := true;        radioLillePakke.Checked := true;
1013      end;      end;
1014    
# Line 1014  begin Line 1068  begin
1068      // UBD skal p.t. ikke have adgang til flg. funktioner      // UBD skal p.t. ikke have adgang til flg. funktioner
1069      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
1070      begin      begin
1071        ReturpakkerfraDAO1.Visible := false;        menuNatxpressReturDAO1.Visible := false;
1072        Returpakkerfraboghandler1.Visible := false;        menuNatxpressReturfraKunde1.Visible := false;
1073        Budlevering1.Visible := false;        menuDaoDirekte1.Visible := false;
1074        Storepakker1.Visible := false;        menuStorePakker.Visible := false;
1075        Smpakker1.Visible := false;        menuSmaaPakker.Visible := false;
1076        Testprinter1.Visible := false;        Testprinter1.Visible := false;
1077        Pakkeshoplevering1.Visible := false;        menuPakkeshop1.Visible := false;
1078        Returpakkerfrapakkeshop1.Visible := false;        menuPakkeshopRetur1.Visible := false;
1079      end;      end;
1080    
1081      if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then      if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then
# Line 1425  begin Line 1479  begin
1479         exit;         exit;
1480      end;      end;
1481    
1482      if (Automatiskvalg1.Checked and (Length(Stregkode) > 8) ) then      if (menuAutomatiskvalg1.Checked and (Length(Stregkode) > 8) ) then
1483      begin      begin
1484        GemStregkode := Stregkode;        GemStregkode := Stregkode;
1485        if Pakketype = 'NatXpress' then        if Pakketype = 'NatXpress' then
# Line 1454  begin Line 1508  begin
1508                InitPakkeshoplevering();                InitPakkeshoplevering();
1509              end;              end;
1510            end            end
1511        // Retur kan ikke scannes med 'Automatisk valg'       else if Pakketype = 'PakkeshopRetur' then
1512              begin
1513                if Scanningtype <> '6' then
1514                begin
1515                 VisAlarmSkaerm( Stregkode + ' Pakkeshop retur,'#13#10' kan ikke bruges med automatisk valg' );
1516    
1517                 exit;
1518                end;
1519              end
1520    
1521    
1522        else        else
1523            begin            begin
# Line 1466  begin Line 1529  begin
1529            end;            end;
1530        Stregkode := GemStregkode;        Stregkode := GemStregkode;
1531      end      end
1532      else if Automatiskvalg1.Checked and (PakkeshopText1.Caption = 'Stregkode') then      else if menuAutomatiskvalg1.Checked and (PakkeshopText1.Caption = 'Stregkode') then
1533      begin      begin
1534        VisAlarmSkaerm( 'Pakkenummer ikke gyldigt (for kort)' );        VisAlarmSkaerm( 'Pakkenummer ikke gyldigt (for kort)' );
1535    
1536        exit;        exit;
1537      end;      end;
1538    
1539      if not Automatiskvalg1.Checked then      if not menuAutomatiskvalg1.Checked then
1540      begin      begin
1541        if ( (Pakkescanningtype <> Scanningtype) and (Scanningtype <> '2') and (Scanningtype <> '3') ) then        if ( (Pakkescanningtype <> Scanningtype) and (Scanningtype <> '2') and (Scanningtype <> '3') ) then
1542        begin        begin
# Line 1486  begin Line 1549  begin
1549    
1550    
1551    
1552      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and Automatisktjekkodestyring1.Checked then      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and menuAutomatiskTjekkodeStyring.Checked then
1553      begin      begin
1554        chkScanTjekkode.Checked := false;        chkScanTjekkode.Checked := false;
1555        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do
# Line 1499  begin Line 1562  begin
1562        end;        end;
1563      end;      end;
1564    
1565      if Pakkernormal1.Checked and not Scanogstjekkoden1.Checked then      if menuNatXpress1.Checked and not Scanogstjekkoden1.Checked then
1566        begin        begin
1567          // Når vi ikke kræver tjekkode er alt ok her          // Når vi ikke kræver tjekkode er alt ok her
1568             BoghandlerStregkode := Stregkode;             BoghandlerStregkode := Stregkode;
# Line 1509  begin Line 1572  begin
1572             Stregkode := '';             Stregkode := '';
1573             InitScreen();             InitScreen();
1574        end        end
1575      else if (PakkeshopLevering1.Checked or Pakkernormal1.Checked) and not Scanogstjekkoden1.Checked then      else if (menuPakkeshop1.Checked or menuNatXpress1.Checked) and not Scanogstjekkoden1.Checked then
1576        begin        begin
1577          // Når vi ikke kræver tjekkode er alt ok her          // Når vi ikke kræver tjekkode er alt ok her
1578             PakkeshopStregkode := Stregkode;             PakkeshopStregkode := Stregkode;
# Line 1521  begin Line 1584  begin
1584             Stregkode := '';             Stregkode := '';
1585             InitScreen();             InitScreen();
1586        end        end
1587      else if PakkeshopLevering1.Checked or Pakkernormal1.Checked then      else if menuPakkeshop1.Checked or menuNatXpress1.Checked then
1588        if PakkeshopText1.Caption = 'Stregkode' then        if PakkeshopText1.Caption = 'Stregkode' then
1589         begin         begin
1590            if length(Stregkode) > 5 then            if length(Stregkode) > 5 then
# Line 1547  begin Line 1610  begin
1610             PakkeshopTjekkode := Stregkode;             PakkeshopTjekkode := Stregkode;
1611             BoghandlerTjekkode := Stregkode;             BoghandlerTjekkode := Stregkode;
1612             PakkeshopText1.Caption := 'Stregkode';             PakkeshopText1.Caption := 'Stregkode';
1613             if (PakkeshopLevering1.Checked) then             if (menuPakkeshop1.Checked) then
1614                MainForm.Color := TUtils.HexToTColor(FarvePakkeshoplevering);                MainForm.Color := TUtils.HexToTColor(FarvePakkeshoplevering);
1615             if (Pakkernormal1.Checked) then             if (menuNatXpress1.Checked) then
1616                MainForm.Color := TUtils.HexToTColor(FarveNormal);                MainForm.Color := TUtils.HexToTColor(FarveNormal);
1617             btnNulstil.Visible := false;             btnNulstil.Visible := false;
1618           end           end
1619          else          else
1620           begin           begin
1621                if (PakkeshopLevering1.Checked) then                if (menuPakkeshop1.Checked) then
1622                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode);                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode);
1623                if (Pakkernormal1.Checked) then                if (menuNatXpress1.Checked) then
1624                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode);                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode);
1625                                    
1626                StregKode := '';                StregKode := '';
# Line 1569  begin Line 1632  begin
1632          InitScreen();          InitScreen();
1633       end;       end;
1634    
1635      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
1636      begin      begin
1637    
1638         if PakkeshopLevering1.Checked and (PakkeshopStregkode <> '') and (PakkeshopTjekkode <> '') then         if menuPakkeshop1.Checked and (PakkeshopStregkode <> '') and (PakkeshopTjekkode <> '') then
1639            StregKode := PakkeshopStregkode;            StregKode := PakkeshopStregkode;
1640         if Pakkernormal1.Checked and ((BoghandlerStregkode <> '') and (BoghandlerTjekkode <> '') or not Scanogstjekkoden1.Checked) then         if menuNatXpress1.Checked and ((BoghandlerStregkode <> '') and (BoghandlerTjekkode <> '') or not Scanogstjekkoden1.Checked) then
1641            StregKode := BoghandlerStregkode;            StregKode := BoghandlerStregkode;
1642         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
1643         try         try
# Line 1588  begin Line 1651  begin
1651    
1652              exit;              exit;
1653            end;            end;
1654            if (Pakkernormal1.Checked or Budlevering1.Checked or PakkeshopLevering1.Checked) then            if (menuNatXpress1.Checked or menuDaoDirekte1.Checked or menuPakkeshop1.Checked) then
1655            begin            begin
1656              PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel);              PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel);
1657              pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);              pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);
# Line 1609  begin Line 1672  begin
1672                MainForm.Color := clRed;                MainForm.Color := clRed;
1673              end;              end;
1674           end;           end;
1675            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
1676            begin            begin
1677              MainForm.Color := TUtils.HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1678              if Storepakker1.Checked then              if menuStorePakker.Checked then
1679              begin              begin
1680                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(ScannetOkStorLyd));
1681              end              end
# Line 1622  begin Line 1685  begin
1685              end;              end;
1686              btnNulstil.Visible := false;              btnNulstil.Visible := false;
1687            end            end
1688            else if (Returpakkerfradao1.Checked or Returpakkerfraboghandler1.Checked) then            else if (menuNatxpressReturDAO1.Checked or menuNatxpressReturfraKunde1.Checked) then
1689            begin            begin
1690              MainForm.Color := TUtils.HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1691              if Storepakker1.Checked then              if menuStorePakker.Checked then
1692              begin              begin
1693                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(ScannetOkStorLyd));
1694              end              end
# Line 1650  begin Line 1713  begin
1713           if not btnNulstil.Visible then           if not btnNulstil.Visible then
1714            begin            begin
1715    
1716              If (Budlevering1.Checked) then              If (menuDaoDirekte1.Checked) then
1717              begin              begin
1718                if Storepakker1.Checked then                if menuStorePakker.Checked then
1719                begin                begin
1720                  PlaySound(PWideChar(ScannetOkStorLyd));                  PlaySound(PWideChar(ScannetOkStorLyd));
1721                end                end
# Line 1746  var Line 1809  var
1809    
1810    
1811  begin  begin
1812      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
1813      begin      begin
1814        for i := ListBox2.items.count-1 downto 0 do        for i := ListBox2.items.count-1 downto 0 do
1815          if pos(StregKode,ListBox2.items[i]) <> 0 then          if pos(StregKode,ListBox2.items[i]) <> 0 then
1816          begin          begin
1817              wrkAntalSenere := 0;//initial Value
1818    
1819            // Ajourføring af tæller for manglende pakker (scanninger)            // Ajourføring af tæller for manglende pakker (scanninger)
1820            wrkAntal := StaticTextManglendePakker.Caption;            wrkAntal := StaticTextManglendePakker.Caption;
# Line 1895  procedure TMainForm.InitBladhus(); Line 1959  procedure TMainForm.InitBladhus();
1959    
1960  begin  begin
1961    Altidprintepakkelabel1.Enabled := false;    Altidprintepakkelabel1.Enabled := false;
1962    Pakkernormal1.Visible := false;    menuNatXpress1.Visible := false;
1963    ReturpakkerfraDAO1.Visible := false;    menuNatxpressReturDAO1.Visible := false;
1964    Returpakkerfraboghandler1.Visible := false;    menuNatxpressReturfraKunde1.Visible := false;
1965    Sprgefterboghandlernummer1.Enabled := false;    Sprgefterboghandlernummer1.Enabled := false;
1966    ListBox1.Visible := true;    ListBox1.Visible := true;
1967  //  TestFunktionen := '1';  //  TestFunktionen := '1';
1968    
1969    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
1970    begin    begin
1971      IndlesScanningLogFil();      IndlesScanningLogFil();
1972    end;    end;
# Line 1926  begin Line 1990  begin
1990      02 :      02 :
1991            begin;    // BK            begin;    // BK
1992              Testprinter1.Visible := true;              Testprinter1.Visible := true;
1993              Smpakker1.Enabled := true;              menuSmaaPakker.Enabled := true;
1994              Storepakker1.Enabled := true;              menuStorePakker.Enabled := true;
1995              radioStorPakke.Enabled := true;              radioStorPakke.Enabled := true;
1996              radioLillePakke.Enabled := true;              radioLillePakke.Enabled := true;
1997              BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her
# Line 1964  begin Line 2028  begin
2028            end;            end;
2029      04 :  begin;           // DBK      04 :  begin;           // DBK
2030              Testprinter1.Visible := true;              Testprinter1.Visible := true;
2031              Smpakker1.Enabled := true;              menuSmaaPakker.Enabled := true;
2032              Storepakker1.Enabled := true;              menuStorePakker.Enabled := true;
2033              radioStorPakke.Enabled := true;              radioStorPakke.Enabled := true;
2034              radioLillePakke.Enabled := true;              radioLillePakke.Enabled := true;
2035              BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her
# Line 1998  begin Line 2062  begin
2062    end;    end;
2063    
2064    
2065    if Pakkernormal1.Checked then    if menuNatXpress1.Checked then
2066    begin    begin
2067       if (BoghandlerTjekkode = '') then       if (BoghandlerTjekkode = '') then
2068       begin       begin
# Line 2006  begin Line 2070  begin
2070       end;       end;
2071       URLStr := Format(UrlNormal,[Sted, PakkeNr, BoghandlerNummer, BoghandlerTjekkode]);       URLStr := Format(UrlNormal,[Sted, PakkeNr, BoghandlerNummer, BoghandlerTjekkode]);
2072    end    end
2073    else if ReturpakkerfraDAO1.Checked then    else if menuNatxpressReturDAO1.Checked then
2074    begin    begin
2075       URLStr := Format(UrlReturDAO,[Sted, PakkeNr, BoghandlerNummer, 'DAO', pakkestorrelse]);       URLStr := Format(UrlReturDAO,[Sted, PakkeNr, BoghandlerNummer, 'DAO', pakkestorrelse]);
2076    end    end
2077    else if Returpakkerfraboghandler1.Checked then    else if menuNatxpressReturfraKunde1.Checked then
2078    begin    begin
2079       URLStr := Format(UrlReturBoghandler,[Sted, PakkeNr, BoghandlerNummer, 'Boghandler', pakkestorrelse]);       URLStr := Format(UrlReturBoghandler,[Sted, PakkeNr, BoghandlerNummer, 'Boghandler', pakkestorrelse]);
2080    end    end
2081    else if Budlevering1.Checked then    else if menuDaoDirekte1.Checked then
2082    begin    begin
2083       URLStr := Format(UrlBudlevering,[Sted, PakkeNr, 'bud', pakkestorrelse]);       URLStr := Format(UrlBudlevering,[Sted, PakkeNr, 'bud', pakkestorrelse]);
2084    end    end
2085    else if Pakkeshoplevering1.Checked then    else if menuPakkeshop1.Checked then
2086    begin    begin
2087       URLStr := Format(UrlPakkeshoplevering,[Sted, PakkeNr, PakkeshopTjekkode]);       URLStr := Format(UrlPakkeshoplevering,[Sted, PakkeNr, PakkeshopTjekkode]);
2088    end    end
2089    else if Returpakkerfrapakkeshop1.Checked then    else if menuPakkeshopRetur1.Checked then
2090    begin    begin
2091       URLStr := Format(UrlReturPakkeshop,[Sted, PakkeNr]);       URLStr := Format(UrlReturPakkeshop,[Sted, PakkeNr]);
2092    end    end
# Line 2064  begin Line 2128  begin
2128    
2129    XMLDocument1.LoadFromXML(WebSvar);    XMLDocument1.LoadFromXML(WebSvar);
2130    try    try
2131      if Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked then      if menuPakkeshop1.Checked or menuPakkeshopRetur1.Checked then
2132       begin       begin
2133        RuteNummer := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopTurid').Text;        RuteNummer := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopTurid').Text;
2134        Kommentar := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Stregkodematch').Text;        Kommentar := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Stregkodematch').Text;
# Line 2072  begin Line 2136  begin
2136        BoghandlerNavn := BoghandlerNavn + ' ' + XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;        BoghandlerNavn := BoghandlerNavn + ' ' + XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;
2137        PrintNyLabel := False;        PrintNyLabel := False;
2138    
2139        if Pakkeshoplevering1.Checked then        if menuPakkeshop1.Checked then
2140        begin        begin
2141          try          try
2142            PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text);            PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text);
# Line 2113  begin Line 2177  begin
2177        Kommentar := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('Kommentar').Text;        Kommentar := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('Kommentar').Text;
2178        BoghandlerNavn := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('BoghandlerNavn').Text;        BoghandlerNavn := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('BoghandlerNavn').Text;
2179        Leveringssted := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('Leveringssted').Text;        Leveringssted := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('Leveringssted').Text;
2180        if Budlevering1.Checked then        if menuDaoDirekte1.Checked then
2181          begin          begin
2182          try          try
2183            SmsKode := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('SmsKode').Text;            SmsKode := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('SmsKode').Text;
# Line 2144  begin Line 2208  begin
2208      begin      begin
2209        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then
2210        begin        begin
2211            Kommentar := Kommentar + ' Pakke burde være hos DAO Distribution';            Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted;
2212            PrintNyLabel := False;            PrintNyLabel := False;
2213        end;        end;
2214      end      end
2215      else if (Budlevering1.Checked) and (Leveringssted <> Sted) then      else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) And (Leveringssted <> '') then
2216      begin      begin
2217         if (Leveringssted = 'E') and (Sted = 'DBK') then         if (Leveringssted = 'E') and (Sted = 'DBK') then
2218         begin         begin
# Line 2156  begin Line 2220  begin
2220         end         end
2221         else         else
2222         begin         begin
2223            Kommentar := Kommentar + ' Pakke burde være hos DAO Distribution';            Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted;
2224            PrintNyLabel := False;            PrintNyLabel := False;
2225         end;         end;
2226      end;      end;
# Line 2177  begin Line 2241  begin
2241    //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
2242    BoghandlerNavnST.Caption := StringReplace(BoghandlerNavn, ' & ', ' && ', [rfReplaceAll, rfIgnoreCase]);    BoghandlerNavnST.Caption := StringReplace(BoghandlerNavn, ' & ', ' && ', [rfReplaceAll, rfIgnoreCase]);
2243    List1msg := TimeToStr(now) + '; ';    List1msg := TimeToStr(now) + '; ';
2244    if Pakkeshoplevering1.Checked then    if menuPakkeshop1.Checked then
2245      List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; ';      List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; ';
2246    List1Pakkestorrelse := '';    List1Pakkestorrelse := '';
2247    if radioStorPakke.Checked then    if radioStorPakke.Checked then
# Line 2189  begin Line 2253  begin
2253      List1Pakkestorrelse := 'Lille pakke';      List1Pakkestorrelse := 'Lille pakke';
2254    end;    end;
2255    List1msg := List1msg + BoghandlerNavn + '; ';    List1msg := List1msg + BoghandlerNavn + '; ';
2256    if ReturpakkerfraDAO1.Checked then    if menuNatxpressReturDAO1.Checked then
2257    begin    begin
2258      List1msg := List1msg + RightStr(Kommentar, Length(Kommentar)-8);      List1msg := List1msg + RightStr(Kommentar, Length(Kommentar)-8);
2259    end;    end;
2260    if Returpakkerfraboghandler1.Checked then    if menuNatxpressReturfraKunde1.Checked then
2261    begin    begin
2262      List1msg := List1msg + RightStr(Kommentar, Length(Kommentar)-16);      List1msg := List1msg + RightStr(Kommentar, Length(Kommentar)-16);
2263    end;    end;
2264    if ReturpakkerfraDAO1.Checked or Returpakkerfraboghandler1.Checked then    if menuNatxpressReturDAO1.Checked or menuNatxpressReturfraKunde1.Checked then
2265       List1msg := List1msg + '; ' + List1Pakkestorrelse;       List1msg := List1msg + '; ' + List1Pakkestorrelse;
2266    if length(BoghNr) > 0 then    if length(BoghNr) > 0 then
2267    begin    begin
2268      List1Msg := List1Msg + '; Indtastet ' + BoghNr;      List1Msg := List1Msg + '; Indtastet ' + BoghNr;
2269    end;    end;
2270    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
2271    begin    begin
2272       List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn;       List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn;
2273        if (radioStorPakke.Checked) then        if (radioStorPakke.Checked) then
# Line 2215  begin Line 2279  begin
2279          List1msg := List1msg + '; Lille pakke';          List1msg := List1msg + '; Lille pakke';
2280        end;        end;
2281    end;    end;
2282    if Returpakkerfrapakkeshop1.Checked then    if menuPakkeshopRetur1.Checked then
2283    begin    begin
2284      List1msg := List1msg + Stregkode + ' ' + RightStr(Kommentar, Length(Kommentar)-6);      List1msg := List1msg + Stregkode + ' ' + RightStr(Kommentar, Length(Kommentar)-6);
2285    end;    end;
2286    if Pakkernormal1.Checked then    if menuNatXpress1.Checked then
2287    begin    begin
2288      if (Kommentar = '***** Kommentar *****')                       // fra test printer funktionen      if (Kommentar = '***** Kommentar *****')                       // fra test printer funktionen
2289      or (BoghandlerNavn = 'Forbindelse ok')                         // fra test forbindelse funktionen      or (BoghandlerNavn = 'Forbindelse ok')                         // fra test forbindelse funktionen
# Line 2259  pakkeForkertSted : Integer; Line 2323  pakkeForkertSted : Integer;
2323    kontrolKoreliste : string;    kontrolKoreliste : string;
2324    nytRuteNummer, nyFarve : String;    nytRuteNummer, nyFarve : String;
2325  begin  begin
2326    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
2327       RuteNummerST.Color := TUtils.HexToTColor(Farve);       RuteNummerST.Color := TUtils.HexToTColor(Farve);
2328    
2329    pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);    pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);
# Line 2297  begin Line 2361  begin
2361        end;        end;
2362    end    end
2363    else    else
2364    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
2365    begin    begin
2366       if (BoghandlerNavn = 'Ukendt pakke') then       if (BoghandlerNavn = 'Ukendt pakke') then
2367       begin       begin
# Line 2366  begin Line 2430  begin
2430    
2431    end;    end;
2432    
2433    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
2434    begin    begin
2435      case BladhusSted of      case BladhusSted of
2436        00 :  begin;        00 :  begin;
# Line 2415  begin Line 2479  begin
2479    end;    end;
2480    
2481  // 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
2482    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
2483    begin    begin
2484      exit;      exit;
2485    end;    end;
2486    
2487    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
2488    begin    begin
2489    end    end
2490    else    else
# Line 2454  end; Line 2518  end;
2518    
2519  procedure TMainForm.radioStorPakkeClick(Sender: TObject);  procedure TMainForm.radioStorPakkeClick(Sender: TObject);
2520  begin  begin
2521      Storepakker1.Checked := true;      menuStorePakker.Checked := true;
2522      radioStorPakke.Checked := true;      radioStorPakke.Checked := true;
2523  end;  end;
2524    
2525  procedure TMainForm.radioLillePakkeClick(Sender: TObject);  procedure TMainForm.radioLillePakkeClick(Sender: TObject);
2526  begin  begin
2527      Smpakker1.Checked := true;      menuSmaaPakker.Checked := true;
2528      radioLillePakke.Checked := true;      radioLillePakke.Checked := true;
2529  end;  end;
2530    
# Line 2503  begin Line 2567  begin
2567    end;    end;
2568  end;  end;
2569    
2570  procedure TMainForm.Pakkeshoplevering1Click(Sender: TObject);  procedure TMainForm.menuPakkeshop1Click(Sender: TObject);
2571  begin  begin
2572        Scanningtype := '5';        Scanningtype := '5';
2573        InitPakkeshoplevering();        InitPakkeshoplevering();
# Line 2512  end; Line 2576  end;
2576    
2577  procedure TMainForm.NulstilAutomatiskValg();  procedure TMainForm.NulstilAutomatiskValg();
2578  begin  begin
2579      Automatiskvalg1.Checked := false;      menuAutomatiskvalg1.Checked := false;
2580      PanelValgA.Color := clBtnFace;      PanelValgA.Color := clBtnFace;
2581      PanelValgA.Font.Color := clWindowText;      PanelValgA.Font.Color := clWindowText;
2582    
# Line 2524  begin Line 2588  begin
2588        // 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)
2589        PanelValgA.Enabled := false;        PanelValgA.Enabled := false;
2590        PanelValgA.Font.Color := clInactiveCaption;        PanelValgA.Font.Color := clInactiveCaption;
2591        Automatiskvalg1.Enabled := false;        menuAutomatiskvalg1.Enabled := false;
2592      end;      end;
2593  // 20150317: slut  // 20150317: slut
2594  end;  end;
# Line 2757  begin Line 2821  begin
2821    begin    begin
2822       MainForm.Color := TUtils.HexToTColor(Farve);       MainForm.Color := TUtils.HexToTColor(Farve);
2823    end;    end;
2824    if (Budlevering1.Checked) then    if (menuDaoDirekte1.Checked) then
2825    begin    begin
2826       InitLillePakke();       InitLillePakke();
2827    end;    end;
# Line 2821  procedure TMainForm.PanelValgAClick(Send Line 2885  procedure TMainForm.PanelValgAClick(Send
2885  begin  begin
2886  // Skal ikke toggle men bare sætte funktionen on  // Skal ikke toggle men bare sætte funktionen on
2887  // Fravælges ved at vælge en scanningstype  // Fravælges ved at vælge en scanningstype
2888    AutomatiskValg1.Checked := true;    menuAutomatiskvalg1.Checked := true;
2889    PanelValgA.Color := clGreen;    PanelValgA.Color := clGreen;
2890    PanelValgA.Font.Color := clWhite;    PanelValgA.Font.Color := clWhite;
2891    
# Line 2829  begin Line 2893  begin
2893    
2894  end;  end;
2895    
2896  procedure TMainForm.Pakkernormal1Click(Sender: TObject);  procedure TMainForm.menuNatXpress1Click(Sender: TObject);
2897  begin  begin
2898        Scanningtype := '1';        Scanningtype := '1';
2899        NulstilAutomatiskValg();        NulstilAutomatiskValg();
# Line 2984  begin Line 3048  begin
3048    
3049  end;  end;
3050    
3051    
3052  procedure TMainForm.ListBox1DrawItem(Control: TWinControl; Index: Integer;  procedure TMainForm.ListBox1DrawItem(Control: TWinControl; Index: Integer;
3053    Rect: TRect; State: TOwnerDrawState);    Rect: TRect; State: TOwnerDrawState);
3054  var  var
# Line 3098  begin Line 3163  begin
3163    
3164  end;  end;
3165    
3166  procedure TMainForm.ReturpakkerfraDAO1Click(Sender: TObject);  procedure TMainForm.menuNatxpressReturDAO1Click(Sender: TObject);
3167  begin  begin
3168        Scanningtype := '2';        Scanningtype := '2';
3169        NulstilAutomatiskValg();        NulstilAutomatiskValg();
3170        InitReturFraDao();        InitReturFraDao();
3171  end;  end;
3172    
3173  procedure TMainForm.Returpakkerfrapakkeshop1Click(Sender: TObject);  procedure TMainForm.menuPakkeshopRetur1Click(Sender: TObject);
3174  begin  begin
3175        Scanningtype := '6';        Scanningtype := '6';
3176        InitReturFraPakkeshop();        InitReturFraPakkeshop();
# Line 3114  end; Line 3179  end;
3179    
3180  procedure TMainForm.InitNatxpresslevering();  procedure TMainForm.InitNatxpresslevering();
3181  begin  begin
3182        AutomatiskTjekkodeStyring1.Enabled := true;        menuAutomatiskTjekkodeStyring.Enabled := true;
3183        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3184        Pakkernormal1.Checked := true;        menuNatXpress1.Checked := true;
3185        InitForm(FarveNormal,TitelNormal,UrlNormal);        InitForm(FarveNormal,TitelNormal,UrlNormal);
3186        PanelValg1.Color := clGreen;        PanelValg1.Color := clGreen;
3187        PanelValg1.Font.Color := clWhite;        PanelValg1.Font.Color := clWhite;
# Line 3128  begin Line 3193  begin
3193        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3194        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3195        Sprgefterboghandlernummer1.Enabled := true;        Sprgefterboghandlernummer1.Enabled := true;
3196        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3197        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3198        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3199        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3200        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3150  end; Line 3215  end;
3215    
3216  procedure TMainForm.InitReturFraDao();  procedure TMainForm.InitReturFraDao();
3217  begin  begin
3218        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3219        ReturpakkerfraDAO1.Checked := true;        menuNatxpressReturDAO1.Checked := true;
3220        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3221        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);
3222        PanelValg2.Color := clGreen;        PanelValg2.Color := clGreen;
# Line 3164  begin Line 3229  begin
3229        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3230        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3231        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3232        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3233        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3234        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3235        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3236        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3181  end; Line 3246  end;
3246    
3247  procedure TMainForm.InitReturFraKunde();  procedure TMainForm.InitReturFraKunde();
3248  begin  begin
3249        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3250        Returpakkerfraboghandler1.Checked := true;        menuNatxpressReturfraKunde1.Checked := true;
3251        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3252        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);
3253        PanelValg3.Color := clGreen;        PanelValg3.Color := clGreen;
# Line 3194  begin Line 3259  begin
3259        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3260        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3261        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3262        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3263        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3264        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3265        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3266        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3211  end; Line 3276  end;
3276    
3277  procedure TMainForm.InitDirektelevering();  procedure TMainForm.InitDirektelevering();
3278  begin  begin
3279        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3280        Budlevering1.Checked := true;        menuDaoDirekte1.Checked := true;
3281        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3282        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);
3283        PanelValg4.Color := clGreen;        PanelValg4.Color := clGreen;
# Line 3225  begin Line 3290  begin
3290        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3291        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3292        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3293        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3294        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3295        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3296        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3297        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3251  end; Line 3316  end;
3316    
3317  procedure TMainForm.InitPakkeshoplevering();  procedure TMainForm.InitPakkeshoplevering();
3318  begin  begin
3319        AutomatiskTjekkodeStyring1.Enabled := true;        menuAutomatiskTjekkodeStyring.Enabled := true;
3320        Pakkeshoplevering1.Checked := true;        menuPakkeshop1.Checked := true;
3321        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3322        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);
3323        PanelValg5.Color := clGreen;        PanelValg5.Color := clGreen;
# Line 3265  begin Line 3330  begin
3330        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3331        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3332        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3333        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3334        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3335        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3336        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3337        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3291  end; Line 3356  end;
3356    
3357  procedure TMainForm.InitReturFraPakkeshop();  procedure TMainForm.InitReturFraPakkeshop();
3358  begin  begin
3359        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3360        Returpakkerfrapakkeshop1.Checked := true;        menuPakkeshopRetur1.Checked := true;
3361        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3362        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);
3363        PanelValg6.Color := clGreen;        PanelValg6.Color := clGreen;
# Line 3305  begin Line 3370  begin
3370        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3371        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3372        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3373        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3374        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3375        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3376        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3377        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3329  begin Line 3394  begin
3394        IdFTP1.PassiveUseControlHost := true;        IdFTP1.PassiveUseControlHost := true;
3395  end;  end;
3396    
3397  procedure TMainForm.Returpakkerfraboghandler1Click(Sender: TObject);  procedure TMainForm.menuNatxpressReturfraKunde1Click(Sender: TObject);
3398  begin  begin
3399        Scanningtype := '3';        Scanningtype := '3';
3400        NulstilAutomatiskValg();        NulstilAutomatiskValg();
# Line 3339  end; Line 3404  end;
3404  procedure TMainForm.InitIndleveringskode();  procedure TMainForm.InitIndleveringskode();
3405  begin  begin
3406        menuIndlevering.Checked := true;        menuIndlevering.Checked := true;
3407        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3408    
3409        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3410        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);
# Line 3356  begin Line 3421  begin
3421    
3422    
3423    
3424        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3425        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3426        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3427        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3428        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3382  begin Line 3447  begin
3447  end;  end;
3448    
3449    
3450  procedure TMainForm.Storepakker1Click(Sender: TObject);  procedure TMainForm.menuStorePakkerClick(Sender: TObject);
3451  begin  begin
3452    InitStorPakke();    InitStorPakke();
3453  end;  end;
3454    
3455  procedure TMainForm.Smpakker1Click(Sender: TObject);  procedure TMainForm.menuSmaaPakkerClick(Sender: TObject);
3456  begin  begin
3457    InitLillePakke();    InitLillePakke();
3458  end;  end;
# Line 3395  end; Line 3460  end;
3460  procedure TMainForm.InitLillePakke();  procedure TMainForm.InitLillePakke();
3461  begin  begin
3462    radioLillePakke.Checked := true;    radioLillePakke.Checked := true;
3463    Smpakker1.Checked := true;    menuSmaaPakker.Checked := true;
3464  //  Stregkode := '';  //  Stregkode := '';
3465  end;  end;
3466    
3467  procedure TMainForm.InitStorPakke();  procedure TMainForm.InitStorPakke();
3468  begin  begin
3469    radioStorPakke.Checked := true;    radioStorPakke.Checked := true;
3470    Storepakker1.Checked := true;    menuStorePakker.Checked := true;
3471  // 20150310: start  // 20150310: start
3472  //  Stregkode := '';  //  Stregkode := '';
3473  // 20150310: slut  // 20150310: slut
# Line 3446  begin Line 3511  begin
3511       exit;       exit;
3512    end;    end;
3513    
3514    if Smpakker1.Checked then    if menuSmaaPakker.Checked then
3515       if ScannetOkLyd  <> '' then       if ScannetOkLyd  <> '' then
3516       begin       begin
3517         PlaySound(PWideChar(ScannetOkLyd));         PlaySound(PWideChar(ScannetOkLyd));
# Line 3455  begin Line 3520  begin
3520       begin       begin
3521         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);
3522       end;       end;
3523    if Storepakker1.Checked then    if menuStorePakker.Checked then
3524       if ScannetOkStorLyd  <> '' then       if ScannetOkStorLyd  <> '' then
3525       begin       begin
3526         PlaySound(PWideChar(ScannetOkStorLyd));         PlaySound(PWideChar(ScannetOkStorLyd));
# Line 3467  begin Line 3532  begin
3532  end;  end;
3533    
3534    
3535  procedure TMainForm.Budlevering1Click(Sender: TObject);  procedure TMainForm.menuDaoDirekte1Click(Sender: TObject);
3536  begin  begin
3537        Scanningtype := '4';        Scanningtype := '4';
3538        NulstilAutomatiskValg();        NulstilAutomatiskValg();
# Line 4113  var Line 4178  var
4178    I: Integer;    I: Integer;
4179    stregkode, modtagernavn, modtageradresse, kommentar : string;    stregkode, modtagernavn, modtageradresse, kommentar : string;
4180    pakketype, tjekkodestatus : String;    pakketype, tjekkodestatus : String;
4181    pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer;    antalLiniefelter, antalFelterFundet, linienr : Integer;
4182    //pakketyper : TStrings;    //pakketyper : TStrings;
4183    pakketyper : TDictionary<String, Integer>;    pakketyper : TDictionary<String, Integer>;
4184    tmpAntal : Integer;    tmpAntal : Integer;
# Line 4186  var Line 4251  var
4251        begin        begin
4252          // 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
4253          WebSvar := IdHTTP1.Get(URLStr);          WebSvar := IdHTTP1.Get(URLStr);
4254    
4255    
4256    
4257        end;        end;
4258        on e:exception do        on e:exception do
4259        begin        begin
# Line 4780  begin Line 4848  begin
4848      KommentarST.Caption := strMessage;      KommentarST.Caption := strMessage;
4849    end;    end;
4850    
4851      Stregkode := ''; //Nulstil stregkode feltet efter at fejl er vist
4852    
4853  end;  end;
4854    
4855  function TMainForm.getProddato() : TDate;  function TMainForm.getProddato() : TDate;
# Line 4853  begin Line 4923  begin
4923  end;  end;
4924    
4925    
4926    //Nedarvet fra IParentForm
4927    procedure TMainForm.Msg( msg : string);
4928    begin
4929      ShowMessage(msg);
4930    end;
4931    
4932  //Nedarvet fra IParentForm  //Nedarvet fra IParentForm
4933  procedure TMainForm.LogMessage( msg : string);  procedure TMainForm.LogMessage( msg : string);
Legend:
Removed from v.2977  
changed lines
  Added in v.3073
  ViewVC Help
Powered by ViewVC 1.1.20