/[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 3056 by torben, Mon Jun 27 12:21:43 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 260  type Line 263  type
263      procedure SkrivScanningLogFil(var tekst : string);      procedure SkrivScanningLogFil(var tekst : string);
264      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;
265      procedure VisAlarmSkaerm(strMessage: string);      procedure VisAlarmSkaerm(strMessage: string);
266        function InjectURL(Url : String) : String;
267    
268    public    public
269      { Public declarations }      { Public declarations }
# Line 285  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 396  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 421  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 479  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 494  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;
515    
516    function TMainForm.InjectURL(Url : String) : String;
517    begin
518    
519      Url := Url + '&ver=' + TUtils.URLEncode( TUtils.Sto_GetFmtFileVersion(''));
520      Url := Url + '&host=' + TUtils.URLEncode( TUtils.GetComputerNameHelper());
521      Url := Url + '&user=' + TUtils.URLEncode( TUtils.GetCurrentUserName());
522    
523      Result := Url;
524    end;
525    
526  //InitForm kaldes før FormCreate  //InitForm kaldes før FormCreate
527  procedure TMainForm.FormCreate(Sender: TObject);  procedure TMainForm.FormCreate(Sender: TObject);
# Line 553  begin Line 572  begin
572      SkrivLog := ReadString('Settings','SkrivLog','0');      SkrivLog := ReadString('Settings','SkrivLog','0');
573      Sted := ReadString('Settings','Sted','');      Sted := ReadString('Settings','Sted','');
574      StedNavn := ReadString('Settings','Stednavn','');      StedNavn := ReadString('Settings','Stednavn','');
575    
576      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');
577        UrlFindPakketype := InjectURL(UrlFindPakketype);
578    
579      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');
580        UrlSendPrograminfo := InjectURL(UrlSendPrograminfo);
581    
582      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');
583        UrlNormal := InjectURL(UrlNormal);
584    
585      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');
586        UrlReturDAO := InjectURL(UrlReturDAO);
587    
588      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');
589        UrlReturBoghandler := InjectURL(UrlReturBoghandler);
590    
591      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');
592        UrlBudlevering := InjectURL(UrlBudlevering);
593    
594      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');
595        UrlManglendeScanninger := InjectURL(UrlManglendeScanninger);
596    
597      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');
598        UrlEKLoverforsel := InjectURL(UrlEKLoverforsel);
599    
600      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');
601        UrlEKLoverforselPakkeshop := InjectURL(UrlEKLoverforselPakkeshop);
602    
603      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');
604        UrlPakkeshoplevering := InjectURL(UrlPakkeshoplevering);
605    
606      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');
607        UrlReturPakkeshop := InjectURL(UrlReturPakkeshop);
608    
609      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');
610      UrlPakkeshopManglendeReturScanninger := ReadString('Settings','UrlPakkeshopManglendeReturScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendereturscanninger.php?sted=%s');      UrlPakkeshopManglendeScanninger := InjectURL(UrlPakkeshopManglendeScanninger);
611    
612        UrlPakkeshopManglendeReturScanninger := ReadString('Settings','UrlPakkeshopManglendeReturScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendereturscanninger.php?sted=%s');
613        UrlPakkeshopManglendeReturScanninger := InjectURL(UrlPakkeshopManglendeReturScanninger);
614    
615      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');
616        UrlIndleveringsPakke := InjectURL(UrlIndleveringsPakke);
617    
618      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');
619      URLOmdirigerTilPakkeshop := ReadString('Settings', 'URLOmdirigerTilPakkeshop','http://omdeling.info/webservices/pakkeshop/PakkeKontrolOmdirigerTilPakkeshop.php?sted=%s&stregkode=%s');      UrlIndleveringsPakkeManglendeScanninger := InjectURL(UrlIndleveringsPakkeManglendeScanninger);
620    
621        URLOmdirigerTilPakkeshop := ReadString('Settings', 'URLOmdirigerTilPakkeshop','http://omdeling.info/webservices/pakkeshop/PakkeKontrolOmdirigerTilPakkeshop.php?sted=%s&stregkode=%s');
622        URLOmdirigerTilPakkeshop := InjectURL(URLOmdirigerTilPakkeshop);
623    
624    
625    
# Line 629  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 661  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 704  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 722  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
791      begin      begin
792         SpecialVersionSted := '03';         //SpecialVersionSted := '03'; //fra før at FD overtog scanning
793         SpecialVersionScanningtype := '4';         //SpecialVersionScanningtype := '4';
794    
795    
796          //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil
797          Sted := SpecialVersionSted;
798         // her skal vi også disable de knapper BK ikke kan bruge
799          PanelValg2.Enabled := false;
800          PanelValg2.Font.Color := clInactiveCaption;
801          PanelValg3.Enabled := false;
802          PanelValg3.Font.Color := clInactiveCaption;
803          //PanelValg6.Enabled := false;
804          //PanelValg6.Font.Color := clInactiveCaption;
805    
806         // her skal vi også disable de menupunkter FD ikke kan bruge
807          menuNatxpressReturDAO1.Enabled := false;
808          menuNatxpressReturfraKunde1.Enabled := false;
809    
810          //Returpakkerfrapakkeshop1.Enabled := false;
811    
812      end;      end;
813    
814      if (SpecialVersionSted = 'BK') OR (SpecialVersionSted = 'TK') then      if (SpecialVersionSted = 'BK') OR (SpecialVersionSted = 'TK') then
# Line 744  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 775  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 814  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 834  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 949  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 1014  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 1425  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 1454  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 1466  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 1486  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 1499  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 1509  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 1521  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 1547  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 1569  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 1588  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 1609  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 1622  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 1650  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 1746  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
1842          begin          begin
1843              wrkAntalSenere := 0;//initial Value
1844    
1845            // Ajourføring af tæller for manglende pakker (scanninger)            // Ajourføring af tæller for manglende pakker (scanninger)
1846            wrkAntal := StaticTextManglendePakker.Caption;            wrkAntal := StaticTextManglendePakker.Caption;
# Line 1895  procedure TMainForm.InitBladhus(); Line 1985  procedure TMainForm.InitBladhus();
1985    
1986  begin  begin
1987    Altidprintepakkelabel1.Enabled := false;    Altidprintepakkelabel1.Enabled := false;
1988    Pakkernormal1.Visible := false;    menuNatXpress1.Visible := false;
1989    ReturpakkerfraDAO1.Visible := false;    menuNatxpressReturDAO1.Visible := false;
1990    Returpakkerfraboghandler1.Visible := false;    menuNatxpressReturfraKunde1.Visible := false;
1991    Sprgefterboghandlernummer1.Enabled := false;    Sprgefterboghandlernummer1.Enabled := false;
1992    ListBox1.Visible := true;    ListBox1.Visible := true;
1993  //  TestFunktionen := '1';  //  TestFunktionen := '1';
1994    
1995    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
1996    begin    begin
1997      IndlesScanningLogFil();      IndlesScanningLogFil();
1998    end;    end;
# Line 1926  begin Line 2016  begin
2016      02 :      02 :
2017            begin;    // BK            begin;    // BK
2018              Testprinter1.Visible := true;              Testprinter1.Visible := true;
2019              Smpakker1.Enabled := true;              menuSmaaPakker.Enabled := true;
2020              Storepakker1.Enabled := true;              menuStorePakker.Enabled := true;
2021              radioStorPakke.Enabled := true;              radioStorPakke.Enabled := true;
2022              radioLillePakke.Enabled := true;              radioLillePakke.Enabled := true;
2023              BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her
# Line 1964  begin Line 2054  begin
2054            end;            end;
2055      04 :  begin;           // DBK      04 :  begin;           // DBK
2056              Testprinter1.Visible := true;              Testprinter1.Visible := true;
2057              Smpakker1.Enabled := true;              menuSmaaPakker.Enabled := true;
2058              Storepakker1.Enabled := true;              menuStorePakker.Enabled := true;
2059              radioStorPakke.Enabled := true;              radioStorPakke.Enabled := true;
2060              radioLillePakke.Enabled := true;              radioLillePakke.Enabled := true;
2061              BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her
# Line 1998  begin Line 2088  begin
2088    end;    end;
2089    
2090    
2091    if Pakkernormal1.Checked then    if menuNatXpress1.Checked then
2092    begin    begin
2093       if (BoghandlerTjekkode = '') then       if (BoghandlerTjekkode = '') then
2094       begin       begin
# Line 2006  begin Line 2096  begin
2096       end;       end;
2097       URLStr := Format(UrlNormal,[Sted, PakkeNr, BoghandlerNummer, BoghandlerTjekkode]);       URLStr := Format(UrlNormal,[Sted, PakkeNr, BoghandlerNummer, BoghandlerTjekkode]);
2098    end    end
2099    else if ReturpakkerfraDAO1.Checked then    else if menuNatxpressReturDAO1.Checked then
2100    begin    begin
2101       URLStr := Format(UrlReturDAO,[Sted, PakkeNr, BoghandlerNummer, 'DAO', pakkestorrelse]);       URLStr := Format(UrlReturDAO,[Sted, PakkeNr, BoghandlerNummer, 'DAO', pakkestorrelse]);
2102    end    end
2103    else if Returpakkerfraboghandler1.Checked then    else if menuNatxpressReturfraKunde1.Checked then
2104    begin    begin
2105       URLStr := Format(UrlReturBoghandler,[Sted, PakkeNr, BoghandlerNummer, 'Boghandler', pakkestorrelse]);       URLStr := Format(UrlReturBoghandler,[Sted, PakkeNr, BoghandlerNummer, 'Boghandler', pakkestorrelse]);
2106    end    end
2107    else if Budlevering1.Checked then    else if menuDaoDirekte1.Checked then
2108    begin    begin
2109       URLStr := Format(UrlBudlevering,[Sted, PakkeNr, 'bud', pakkestorrelse]);       URLStr := Format(UrlBudlevering,[Sted, PakkeNr, 'bud', pakkestorrelse]);
2110    end    end
2111    else if Pakkeshoplevering1.Checked then    else if menuPakkeshop1.Checked then
2112    begin    begin
2113       URLStr := Format(UrlPakkeshoplevering,[Sted, PakkeNr, PakkeshopTjekkode]);       URLStr := Format(UrlPakkeshoplevering,[Sted, PakkeNr, PakkeshopTjekkode]);
2114    end    end
2115    else if Returpakkerfrapakkeshop1.Checked then    else if menuPakkeshopRetur1.Checked then
2116    begin    begin
2117       URLStr := Format(UrlReturPakkeshop,[Sted, PakkeNr]);       URLStr := Format(UrlReturPakkeshop,[Sted, PakkeNr]);
2118    end    end
# Line 2064  begin Line 2154  begin
2154    
2155    XMLDocument1.LoadFromXML(WebSvar);    XMLDocument1.LoadFromXML(WebSvar);
2156    try    try
2157      if Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked then      if menuPakkeshop1.Checked or menuPakkeshopRetur1.Checked then
2158       begin       begin
2159        RuteNummer := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopTurid').Text;        RuteNummer := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopTurid').Text;
2160        Kommentar := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Stregkodematch').Text;        Kommentar := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Stregkodematch').Text;
# Line 2072  begin Line 2162  begin
2162        BoghandlerNavn := BoghandlerNavn + ' ' + XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;        BoghandlerNavn := BoghandlerNavn + ' ' + XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;
2163        PrintNyLabel := False;        PrintNyLabel := False;
2164    
2165        if Pakkeshoplevering1.Checked then        if menuPakkeshop1.Checked then
2166        begin        begin
2167          try          try
2168            PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text);            PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text);
# Line 2113  begin Line 2203  begin
2203        Kommentar := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('Kommentar').Text;        Kommentar := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('Kommentar').Text;
2204        BoghandlerNavn := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('BoghandlerNavn').Text;        BoghandlerNavn := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('BoghandlerNavn').Text;
2205        Leveringssted := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('Leveringssted').Text;        Leveringssted := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('Leveringssted').Text;
2206        if Budlevering1.Checked then        if menuDaoDirekte1.Checked then
2207          begin          begin
2208          try          try
2209            SmsKode := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('SmsKode').Text;            SmsKode := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('SmsKode').Text;
# Line 2148  begin Line 2238  begin
2238            PrintNyLabel := False;            PrintNyLabel := False;
2239        end;        end;
2240      end      end
2241      else if (Budlevering1.Checked) and (Leveringssted <> Sted) then      else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) then
2242      begin      begin
2243         if (Leveringssted = 'E') and (Sted = 'DBK') then         if (Leveringssted = 'E') and (Sted = 'DBK') then
2244         begin         begin
# Line 2177  begin Line 2267  begin
2267    //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
2268    BoghandlerNavnST.Caption := StringReplace(BoghandlerNavn, ' & ', ' && ', [rfReplaceAll, rfIgnoreCase]);    BoghandlerNavnST.Caption := StringReplace(BoghandlerNavn, ' & ', ' && ', [rfReplaceAll, rfIgnoreCase]);
2269    List1msg := TimeToStr(now) + '; ';    List1msg := TimeToStr(now) + '; ';
2270    if Pakkeshoplevering1.Checked then    if menuPakkeshop1.Checked then
2271      List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; ';      List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; ';
2272    List1Pakkestorrelse := '';    List1Pakkestorrelse := '';
2273    if radioStorPakke.Checked then    if radioStorPakke.Checked then
# Line 2189  begin Line 2279  begin
2279      List1Pakkestorrelse := 'Lille pakke';      List1Pakkestorrelse := 'Lille pakke';
2280    end;    end;
2281    List1msg := List1msg + BoghandlerNavn + '; ';    List1msg := List1msg + BoghandlerNavn + '; ';
2282    if ReturpakkerfraDAO1.Checked then    if menuNatxpressReturDAO1.Checked then
2283    begin    begin
2284      List1msg := List1msg + RightStr(Kommentar, Length(Kommentar)-8);      List1msg := List1msg + RightStr(Kommentar, Length(Kommentar)-8);
2285    end;    end;
2286    if Returpakkerfraboghandler1.Checked then    if menuNatxpressReturfraKunde1.Checked then
2287    begin    begin
2288      List1msg := List1msg + RightStr(Kommentar, Length(Kommentar)-16);      List1msg := List1msg + RightStr(Kommentar, Length(Kommentar)-16);
2289    end;    end;
2290    if ReturpakkerfraDAO1.Checked or Returpakkerfraboghandler1.Checked then    if menuNatxpressReturDAO1.Checked or menuNatxpressReturfraKunde1.Checked then
2291       List1msg := List1msg + '; ' + List1Pakkestorrelse;       List1msg := List1msg + '; ' + List1Pakkestorrelse;
2292    if length(BoghNr) > 0 then    if length(BoghNr) > 0 then
2293    begin    begin
2294      List1Msg := List1Msg + '; Indtastet ' + BoghNr;      List1Msg := List1Msg + '; Indtastet ' + BoghNr;
2295    end;    end;
2296    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
2297    begin    begin
2298       List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn;       List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn;
2299        if (radioStorPakke.Checked) then        if (radioStorPakke.Checked) then
# Line 2215  begin Line 2305  begin
2305          List1msg := List1msg + '; Lille pakke';          List1msg := List1msg + '; Lille pakke';
2306        end;        end;
2307    end;    end;
2308    if Returpakkerfrapakkeshop1.Checked then    if menuPakkeshopRetur1.Checked then
2309    begin    begin
2310      List1msg := List1msg + Stregkode + ' ' + RightStr(Kommentar, Length(Kommentar)-6);      List1msg := List1msg + Stregkode + ' ' + RightStr(Kommentar, Length(Kommentar)-6);
2311    end;    end;
2312    if Pakkernormal1.Checked then    if menuNatXpress1.Checked then
2313    begin    begin
2314      if (Kommentar = '***** Kommentar *****')                       // fra test printer funktionen      if (Kommentar = '***** Kommentar *****')                       // fra test printer funktionen
2315      or (BoghandlerNavn = 'Forbindelse ok')                         // fra test forbindelse funktionen      or (BoghandlerNavn = 'Forbindelse ok')                         // fra test forbindelse funktionen
# Line 2259  pakkeForkertSted : Integer; Line 2349  pakkeForkertSted : Integer;
2349    kontrolKoreliste : string;    kontrolKoreliste : string;
2350    nytRuteNummer, nyFarve : String;    nytRuteNummer, nyFarve : String;
2351  begin  begin
2352    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
2353       RuteNummerST.Color := TUtils.HexToTColor(Farve);       RuteNummerST.Color := TUtils.HexToTColor(Farve);
2354    
2355    pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);    pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);
# Line 2297  begin Line 2387  begin
2387        end;        end;
2388    end    end
2389    else    else
2390    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
2391    begin    begin
2392       if (BoghandlerNavn = 'Ukendt pakke') then       if (BoghandlerNavn = 'Ukendt pakke') then
2393       begin       begin
# Line 2366  begin Line 2456  begin
2456    
2457    end;    end;
2458    
2459    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
2460    begin    begin
2461      case BladhusSted of      case BladhusSted of
2462        00 :  begin;        00 :  begin;
# Line 2415  begin Line 2505  begin
2505    end;    end;
2506    
2507  // 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
2508    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
2509    begin    begin
2510      exit;      exit;
2511    end;    end;
2512    
2513    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
2514    begin    begin
2515    end    end
2516    else    else
# Line 2454  end; Line 2544  end;
2544    
2545  procedure TMainForm.radioStorPakkeClick(Sender: TObject);  procedure TMainForm.radioStorPakkeClick(Sender: TObject);
2546  begin  begin
2547      Storepakker1.Checked := true;      menuStorePakker.Checked := true;
2548      radioStorPakke.Checked := true;      radioStorPakke.Checked := true;
2549  end;  end;
2550    
2551  procedure TMainForm.radioLillePakkeClick(Sender: TObject);  procedure TMainForm.radioLillePakkeClick(Sender: TObject);
2552  begin  begin
2553      Smpakker1.Checked := true;      menuSmaaPakker.Checked := true;
2554      radioLillePakke.Checked := true;      radioLillePakke.Checked := true;
2555  end;  end;
2556    
# Line 2503  begin Line 2593  begin
2593    end;    end;
2594  end;  end;
2595    
2596  procedure TMainForm.Pakkeshoplevering1Click(Sender: TObject);  procedure TMainForm.menuPakkeshop1Click(Sender: TObject);
2597  begin  begin
2598        Scanningtype := '5';        Scanningtype := '5';
2599        InitPakkeshoplevering();        InitPakkeshoplevering();
# Line 2512  end; Line 2602  end;
2602    
2603  procedure TMainForm.NulstilAutomatiskValg();  procedure TMainForm.NulstilAutomatiskValg();
2604  begin  begin
2605      Automatiskvalg1.Checked := false;      menuAutomatiskvalg1.Checked := false;
2606      PanelValgA.Color := clBtnFace;      PanelValgA.Color := clBtnFace;
2607      PanelValgA.Font.Color := clWindowText;      PanelValgA.Font.Color := clWindowText;
2608    
# Line 2524  begin Line 2614  begin
2614        // 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)
2615        PanelValgA.Enabled := false;        PanelValgA.Enabled := false;
2616        PanelValgA.Font.Color := clInactiveCaption;        PanelValgA.Font.Color := clInactiveCaption;
2617        Automatiskvalg1.Enabled := false;        menuAutomatiskvalg1.Enabled := false;
2618      end;      end;
2619  // 20150317: slut  // 20150317: slut
2620  end;  end;
# Line 2757  begin Line 2847  begin
2847    begin    begin
2848       MainForm.Color := TUtils.HexToTColor(Farve);       MainForm.Color := TUtils.HexToTColor(Farve);
2849    end;    end;
2850    if (Budlevering1.Checked) then    if (menuDaoDirekte1.Checked) then
2851    begin    begin
2852       InitLillePakke();       InitLillePakke();
2853    end;    end;
# Line 2821  procedure TMainForm.PanelValgAClick(Send Line 2911  procedure TMainForm.PanelValgAClick(Send
2911  begin  begin
2912  // Skal ikke toggle men bare sætte funktionen on  // Skal ikke toggle men bare sætte funktionen on
2913  // Fravælges ved at vælge en scanningstype  // Fravælges ved at vælge en scanningstype
2914    AutomatiskValg1.Checked := true;    menuAutomatiskvalg1.Checked := true;
2915    PanelValgA.Color := clGreen;    PanelValgA.Color := clGreen;
2916    PanelValgA.Font.Color := clWhite;    PanelValgA.Font.Color := clWhite;
2917    
# Line 2829  begin Line 2919  begin
2919    
2920  end;  end;
2921    
2922  procedure TMainForm.Pakkernormal1Click(Sender: TObject);  procedure TMainForm.menuNatXpress1Click(Sender: TObject);
2923  begin  begin
2924        Scanningtype := '1';        Scanningtype := '1';
2925        NulstilAutomatiskValg();        NulstilAutomatiskValg();
# Line 2984  begin Line 3074  begin
3074    
3075  end;  end;
3076    
3077    
3078  procedure TMainForm.ListBox1DrawItem(Control: TWinControl; Index: Integer;  procedure TMainForm.ListBox1DrawItem(Control: TWinControl; Index: Integer;
3079    Rect: TRect; State: TOwnerDrawState);    Rect: TRect; State: TOwnerDrawState);
3080  var  var
# Line 3098  begin Line 3189  begin
3189    
3190  end;  end;
3191    
3192  procedure TMainForm.ReturpakkerfraDAO1Click(Sender: TObject);  procedure TMainForm.menuNatxpressReturDAO1Click(Sender: TObject);
3193  begin  begin
3194        Scanningtype := '2';        Scanningtype := '2';
3195        NulstilAutomatiskValg();        NulstilAutomatiskValg();
3196        InitReturFraDao();        InitReturFraDao();
3197  end;  end;
3198    
3199  procedure TMainForm.Returpakkerfrapakkeshop1Click(Sender: TObject);  procedure TMainForm.menuPakkeshopRetur1Click(Sender: TObject);
3200  begin  begin
3201        Scanningtype := '6';        Scanningtype := '6';
3202        InitReturFraPakkeshop();        InitReturFraPakkeshop();
# Line 3114  end; Line 3205  end;
3205    
3206  procedure TMainForm.InitNatxpresslevering();  procedure TMainForm.InitNatxpresslevering();
3207  begin  begin
3208        AutomatiskTjekkodeStyring1.Enabled := true;        menuAutomatiskTjekkodeStyring.Enabled := true;
3209        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3210        Pakkernormal1.Checked := true;        menuNatXpress1.Checked := true;
3211        InitForm(FarveNormal,TitelNormal,UrlNormal);        InitForm(FarveNormal,TitelNormal,UrlNormal);
3212        PanelValg1.Color := clGreen;        PanelValg1.Color := clGreen;
3213        PanelValg1.Font.Color := clWhite;        PanelValg1.Font.Color := clWhite;
# Line 3128  begin Line 3219  begin
3219        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3220        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3221        Sprgefterboghandlernummer1.Enabled := true;        Sprgefterboghandlernummer1.Enabled := true;
3222        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3223        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3224        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3225        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3226        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3150  end; Line 3241  end;
3241    
3242  procedure TMainForm.InitReturFraDao();  procedure TMainForm.InitReturFraDao();
3243  begin  begin
3244        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3245        ReturpakkerfraDAO1.Checked := true;        menuNatxpressReturDAO1.Checked := true;
3246        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3247        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);
3248        PanelValg2.Color := clGreen;        PanelValg2.Color := clGreen;
# Line 3164  begin Line 3255  begin
3255        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3256        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3257        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3258        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3259        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3260        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3261        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3262        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3181  end; Line 3272  end;
3272    
3273  procedure TMainForm.InitReturFraKunde();  procedure TMainForm.InitReturFraKunde();
3274  begin  begin
3275        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3276        Returpakkerfraboghandler1.Checked := true;        menuNatxpressReturfraKunde1.Checked := true;
3277        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3278        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);
3279        PanelValg3.Color := clGreen;        PanelValg3.Color := clGreen;
# Line 3194  begin Line 3285  begin
3285        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3286        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3287        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3288        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3289        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3290        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3291        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3292        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3211  end; Line 3302  end;
3302    
3303  procedure TMainForm.InitDirektelevering();  procedure TMainForm.InitDirektelevering();
3304  begin  begin
3305        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3306        Budlevering1.Checked := true;        menuDaoDirekte1.Checked := true;
3307        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3308        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);
3309        PanelValg4.Color := clGreen;        PanelValg4.Color := clGreen;
# Line 3225  begin Line 3316  begin
3316        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3317        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3318        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3319        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3320        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3321        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3322        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3323        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3251  end; Line 3342  end;
3342    
3343  procedure TMainForm.InitPakkeshoplevering();  procedure TMainForm.InitPakkeshoplevering();
3344  begin  begin
3345        AutomatiskTjekkodeStyring1.Enabled := true;        menuAutomatiskTjekkodeStyring.Enabled := true;
3346        Pakkeshoplevering1.Checked := true;        menuPakkeshop1.Checked := true;
3347        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3348        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);
3349        PanelValg5.Color := clGreen;        PanelValg5.Color := clGreen;
# Line 3265  begin Line 3356  begin
3356        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3357        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3358        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3359        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3360        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3361        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3362        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3363        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3291  end; Line 3382  end;
3382    
3383  procedure TMainForm.InitReturFraPakkeshop();  procedure TMainForm.InitReturFraPakkeshop();
3384  begin  begin
3385        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3386        Returpakkerfrapakkeshop1.Checked := true;        menuPakkeshopRetur1.Checked := true;
3387        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3388        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);
3389        PanelValg6.Color := clGreen;        PanelValg6.Color := clGreen;
# Line 3305  begin Line 3396  begin
3396        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3397        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3398        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3399        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3400        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3401        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3402        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3403        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3329  begin Line 3420  begin
3420        IdFTP1.PassiveUseControlHost := true;        IdFTP1.PassiveUseControlHost := true;
3421  end;  end;
3422    
3423  procedure TMainForm.Returpakkerfraboghandler1Click(Sender: TObject);  procedure TMainForm.menuNatxpressReturfraKunde1Click(Sender: TObject);
3424  begin  begin
3425        Scanningtype := '3';        Scanningtype := '3';
3426        NulstilAutomatiskValg();        NulstilAutomatiskValg();
# Line 3339  end; Line 3430  end;
3430  procedure TMainForm.InitIndleveringskode();  procedure TMainForm.InitIndleveringskode();
3431  begin  begin
3432        menuIndlevering.Checked := true;        menuIndlevering.Checked := true;
3433        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3434    
3435        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3436        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);
# Line 3356  begin Line 3447  begin
3447    
3448    
3449    
3450        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3451        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3452        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3453        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3454        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3382  begin Line 3473  begin
3473  end;  end;
3474    
3475    
3476  procedure TMainForm.Storepakker1Click(Sender: TObject);  procedure TMainForm.menuStorePakkerClick(Sender: TObject);
3477  begin  begin
3478    InitStorPakke();    InitStorPakke();
3479  end;  end;
3480    
3481  procedure TMainForm.Smpakker1Click(Sender: TObject);  procedure TMainForm.menuSmaaPakkerClick(Sender: TObject);
3482  begin  begin
3483    InitLillePakke();    InitLillePakke();
3484  end;  end;
# Line 3395  end; Line 3486  end;
3486  procedure TMainForm.InitLillePakke();  procedure TMainForm.InitLillePakke();
3487  begin  begin
3488    radioLillePakke.Checked := true;    radioLillePakke.Checked := true;
3489    Smpakker1.Checked := true;    menuSmaaPakker.Checked := true;
3490  //  Stregkode := '';  //  Stregkode := '';
3491  end;  end;
3492    
3493  procedure TMainForm.InitStorPakke();  procedure TMainForm.InitStorPakke();
3494  begin  begin
3495    radioStorPakke.Checked := true;    radioStorPakke.Checked := true;
3496    Storepakker1.Checked := true;    menuStorePakker.Checked := true;
3497  // 20150310: start  // 20150310: start
3498  //  Stregkode := '';  //  Stregkode := '';
3499  // 20150310: slut  // 20150310: slut
# Line 3446  begin Line 3537  begin
3537       exit;       exit;
3538    end;    end;
3539    
3540    if Smpakker1.Checked then    if menuSmaaPakker.Checked then
3541       if ScannetOkLyd  <> '' then       if ScannetOkLyd  <> '' then
3542       begin       begin
3543         PlaySound(PWideChar(ScannetOkLyd));         PlaySound(PWideChar(ScannetOkLyd));
# Line 3455  begin Line 3546  begin
3546       begin       begin
3547         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);
3548       end;       end;
3549    if Storepakker1.Checked then    if menuStorePakker.Checked then
3550       if ScannetOkStorLyd  <> '' then       if ScannetOkStorLyd  <> '' then
3551       begin       begin
3552         PlaySound(PWideChar(ScannetOkStorLyd));         PlaySound(PWideChar(ScannetOkStorLyd));
# Line 3467  begin Line 3558  begin
3558  end;  end;
3559    
3560    
3561  procedure TMainForm.Budlevering1Click(Sender: TObject);  procedure TMainForm.menuDaoDirekte1Click(Sender: TObject);
3562  begin  begin
3563        Scanningtype := '4';        Scanningtype := '4';
3564        NulstilAutomatiskValg();        NulstilAutomatiskValg();
# Line 4113  var Line 4204  var
4204    I: Integer;    I: Integer;
4205    stregkode, modtagernavn, modtageradresse, kommentar : string;    stregkode, modtagernavn, modtageradresse, kommentar : string;
4206    pakketype, tjekkodestatus : String;    pakketype, tjekkodestatus : String;
4207    pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer;    antalLiniefelter, antalFelterFundet, linienr : Integer;
4208    //pakketyper : TStrings;    //pakketyper : TStrings;
4209    pakketyper : TDictionary<String, Integer>;    pakketyper : TDictionary<String, Integer>;
4210    tmpAntal : Integer;    tmpAntal : Integer;
# Line 4186  var Line 4277  var
4277        begin        begin
4278          // 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
4279          WebSvar := IdHTTP1.Get(URLStr);          WebSvar := IdHTTP1.Get(URLStr);
4280    
4281    
4282    
4283        end;        end;
4284        on e:exception do        on e:exception do
4285        begin        begin
# Line 4780  begin Line 4874  begin
4874      KommentarST.Caption := strMessage;      KommentarST.Caption := strMessage;
4875    end;    end;
4876    
4877      Stregkode := ''; //Nulstil stregkode feltet efter at fejl er vist
4878    
4879  end;  end;
4880    
4881  function TMainForm.getProddato() : TDate;  function TMainForm.getProddato() : TDate;
# Line 4853  begin Line 4949  begin
4949  end;  end;
4950    
4951    
4952    //Nedarvet fra IParentForm
4953    procedure TMainForm.Msg( msg : string);
4954    begin
4955      ShowMessage(msg);
4956    end;
4957    
4958  //Nedarvet fra IParentForm  //Nedarvet fra IParentForm
4959  procedure TMainForm.LogMessage( msg : string);  procedure TMainForm.LogMessage( msg : string);
Legend:
Removed from v.2977  
changed lines
  Added in v.3056
  ViewVC Help
Powered by ViewVC 1.1.20