/[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 3057 by torben, Tue Jun 28 12:39:35 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      end;  
795    
     if (SpecialVersionSted = 'BK') OR (SpecialVersionSted = 'TK') then  
     begin  
796        //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil        //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil
797        Sted := SpecialVersionSted;        Sted := SpecialVersionSted;
798       // 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 803  begin
803        //PanelValg6.Enabled := false;        //PanelValg6.Enabled := false;
804        //PanelValg6.Font.Color := clInactiveCaption;        //PanelValg6.Font.Color := clInactiveCaption;
805    
806       // her skal vi også disable de menupunkter BK ikke kan bruge       // her skal vi også disable de menupunkter FD ikke kan bruge
807        ReturpakkerfraDAO1.Enabled := false;        menuNatxpressReturDAO1.Enabled := false;
808        Returpakkerfraboghandler1.Enabled := false;        menuNatxpressReturfraKunde1.Enabled := false;
809    
810        //Returpakkerfrapakkeshop1.Enabled := false;        //Returpakkerfrapakkeshop1.Enabled := false;
811    
       if SpecialVersionScanningtype = 'A' then  
       begin  
          Scanningtype := '1';  
       end  
       else  
       begin  
         Scanningtype := SpecialVersionScanningtype;  
       end;  
812      end;      end;
813    
814      if SpecialVersionSted = 'DBK' then      if (SpecialVersionSted = 'BK') OR (SpecialVersionSted = 'TK') then
815      begin      begin
816        //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil        //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil
817        Sted := SpecialVersionSted;        Sted := SpecialVersionSted;
818        // her skal vi også disable de knapper DBK ikke kan bruge       // her skal vi også disable de knapper BK ikke kan bruge
819        PanelValg2.Enabled := false;        PanelValg2.Enabled := false;
820        PanelValg2.Font.Color := clInactiveCaption;        PanelValg2.Font.Color := clInactiveCaption;
821        PanelValg3.Enabled := false;        PanelValg3.Enabled := false;
822        PanelValg3.Font.Color := clInactiveCaption;        PanelValg3.Font.Color := clInactiveCaption;
823        PanelValg5.Enabled := false;        //PanelValg6.Enabled := false;
824        PanelValg5.Font.Color := clInactiveCaption;        //PanelValg6.Font.Color := clInactiveCaption;
       PanelValg6.Enabled := false;  
       PanelValg6.Font.Color := clInactiveCaption;  
   
825    
826       // her skal vi også disable de menupunkter DBK 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        Pakkeshoplevering1.Enabled := false;        //Returpakkerfrapakkeshop1.Enabled := false;
       Returpakkerfrapakkeshop1.Enabled := false;  
831    
832        if SpecialVersionScanningtype = 'A' then        if SpecialVersionScanningtype = 'A' then
833        begin        begin
# Line 791  begin Line 839  begin
839        end;        end;
840      end;      end;
841    
842        if SpecialVersionSted = 'DBK' then
843        begin
844          Sted := SpecialVersionSted;
845        end;
846    
847      if (SpecialVersionSted = '01')      if (SpecialVersionSted = '01')
848      or (SpecialVersionSted = '02')      or (SpecialVersionSted = '02')
849      or (SpecialVersionSted = '03')      or (SpecialVersionSted = '03')
# Line 814  begin Line 867  begin
867        PanelValg7.Font.Color := clInactiveCaption;        PanelValg7.Font.Color := clInactiveCaption;
868       // 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
869    
870        Automatiskvalg1.Enabled := false;        menuAutomatiskvalg1.Enabled := false;
871    
872        Pakkernormal1.Enabled := false;        menuNatXpress1.Enabled := false;
873        ReturpakkerfraDAO1.Enabled := false;        menuNatxpressReturDAO1.Enabled := false;
874        Returpakkerfraboghandler1.Enabled := false;        menuNatxpressReturfraKunde1.Enabled := false;
875        Budlevering1.Enabled := false;        menuDaoDirekte1.Enabled := false;
876        Pakkeshoplevering1.Enabled := false;        menuPakkeshop1.Enabled := false;
877        Returpakkerfrapakkeshop1.Enabled := false;        menuPakkeshopRetur1.Enabled := false;
878        if SpecialVersionScanningtype = 'A' then        if SpecialVersionScanningtype = 'A' then
879        begin        begin
880          Scanningtype := '4';          Scanningtype := '4';
881          Budlevering1.Enabled := true;          menuDaoDirekte1.Enabled := true;
882          PanelValg4.Font.Color := clWindowText;          PanelValg4.Font.Color := clWindowText;
883          PanelValg4.Enabled := true;          PanelValg4.Enabled := true;
884        end        end
# Line 834  begin Line 887  begin
887          Scanningtype := SpecialVersionScanningtype;          Scanningtype := SpecialVersionScanningtype;
888          PanelValgA.Enabled := false;          PanelValgA.Enabled := false;
889          PanelValgA.Font.Color := clInactiveCaption;          PanelValgA.Font.Color := clInactiveCaption;
890          AutomatiskValg1.Checked := false;          menuAutomatiskvalg1.Checked := false;
891          PanelValgA.Color := clBtnFace;          PanelValgA.Color := clBtnFace;
892          if Scanningtype = '1' then          if Scanningtype = '1' then
893          begin          begin
894            Pakkernormal1.Enabled := true;            menuNatXpress1.Enabled := true;
895            PanelValg1.Enabled := true;            PanelValg1.Enabled := true;
896            PanelValg1.Font.Color := clWindowText;            PanelValg1.Font.Color := clWindowText;
897          end;          end;
898          if Scanningtype = '2' then          if Scanningtype = '2' then
899          begin          begin
900            ReturpakkerfraDAO1.Enabled := true;            menuNatxpressReturDAO1.Enabled := true;
901            PanelValg2.Enabled := true;            PanelValg2.Enabled := true;
902            PanelValg2.Font.Color := clWindowText;            PanelValg2.Font.Color := clWindowText;
903          end;          end;
904          if Scanningtype = '3' then          if Scanningtype = '3' then
905          begin          begin
906            Returpakkerfraboghandler1.Enabled := true;            menuNatxpressReturfraKunde1.Enabled := true;
907            PanelValg3.Enabled := true;            PanelValg3.Enabled := true;
908            PanelValg3.Font.Color := clWindowText;            PanelValg3.Font.Color := clWindowText;
909          end;          end;
910          if Scanningtype = '4' then          if Scanningtype = '4' then
911          begin          begin
912            Budlevering1.Enabled := true;            menuDaoDirekte1.Enabled := true;
913            PanelValg4.Enabled := true;            PanelValg4.Enabled := true;
914            PanelValg4.Font.Color := clWindowText;            PanelValg4.Font.Color := clWindowText;
915          end;          end;
916          if Scanningtype = '5' then          if Scanningtype = '5' then
917          begin          begin
918            Pakkeshoplevering1.Enabled := true;            menuPakkeshop1.Enabled := true;
919            PanelValg5.Enabled := true;            PanelValg5.Enabled := true;
920            PanelValg5.Font.Color := clWindowText;            PanelValg5.Font.Color := clWindowText;
921          end;          end;
922          if Scanningtype = '6' then          if Scanningtype = '6' then
923          begin          begin
924            Returpakkerfrapakkeshop1.Enabled := true;            menuPakkeshopRetur1.Enabled := true;
925            PanelValg6.Enabled := true;            PanelValg6.Enabled := true;
926            PanelValg6.Font.Color := clWindowText;            PanelValg6.Font.Color := clWindowText;
927          end;          end;
# Line 949  begin Line 1002  begin
1002    
1003      if Pakketype = '1' then      if Pakketype = '1' then
1004      begin      begin
1005        Storepakker1.Checked := true;        menuStorePakker.Checked := true;
1006        radioStorPakke.Checked := true;        radioStorPakke.Checked := true;
1007      end      end
1008      else      else
1009      begin      begin
1010        Smpakker1.Checked := true;        menuSmaaPakker.Checked := true;
1011        radioLillePakke.Checked := true;        radioLillePakke.Checked := true;
1012      end;      end;
1013    
# Line 1014  begin Line 1067  begin
1067      // UBD skal p.t. ikke have adgang til flg. funktioner      // UBD skal p.t. ikke have adgang til flg. funktioner
1068      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
1069      begin      begin
1070        ReturpakkerfraDAO1.Visible := false;        menuNatxpressReturDAO1.Visible := false;
1071        Returpakkerfraboghandler1.Visible := false;        menuNatxpressReturfraKunde1.Visible := false;
1072        Budlevering1.Visible := false;        menuDaoDirekte1.Visible := false;
1073        Storepakker1.Visible := false;        menuStorePakker.Visible := false;
1074        Smpakker1.Visible := false;        menuSmaaPakker.Visible := false;
1075        Testprinter1.Visible := false;        Testprinter1.Visible := false;
1076        Pakkeshoplevering1.Visible := false;        menuPakkeshop1.Visible := false;
1077        Returpakkerfrapakkeshop1.Visible := false;        menuPakkeshopRetur1.Visible := false;
1078      end;      end;
1079    
1080      if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then      if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then
# Line 1425  begin Line 1478  begin
1478         exit;         exit;
1479      end;      end;
1480    
1481      if (Automatiskvalg1.Checked and (Length(Stregkode) > 8) ) then      if (menuAutomatiskvalg1.Checked and (Length(Stregkode) > 8) ) then
1482      begin      begin
1483        GemStregkode := Stregkode;        GemStregkode := Stregkode;
1484        if Pakketype = 'NatXpress' then        if Pakketype = 'NatXpress' then
# Line 1454  begin Line 1507  begin
1507                InitPakkeshoplevering();                InitPakkeshoplevering();
1508              end;              end;
1509            end            end
1510        // Retur kan ikke scannes med 'Automatisk valg'       else if Pakketype = 'PakkeshopRetur' then
1511              begin
1512                if Scanningtype <> '6' then
1513                begin
1514                 VisAlarmSkaerm( Stregkode + ' Pakkeshop retur,'#13#10' kan ikke bruges med automatisk valg' );
1515    
1516                 exit;
1517                end;
1518              end
1519    
1520    
1521        else        else
1522            begin            begin
# Line 1466  begin Line 1528  begin
1528            end;            end;
1529        Stregkode := GemStregkode;        Stregkode := GemStregkode;
1530      end      end
1531      else if Automatiskvalg1.Checked and (PakkeshopText1.Caption = 'Stregkode') then      else if menuAutomatiskvalg1.Checked and (PakkeshopText1.Caption = 'Stregkode') then
1532      begin      begin
1533        VisAlarmSkaerm( 'Pakkenummer ikke gyldigt (for kort)' );        VisAlarmSkaerm( 'Pakkenummer ikke gyldigt (for kort)' );
1534    
1535        exit;        exit;
1536      end;      end;
1537    
1538      if not Automatiskvalg1.Checked then      if not menuAutomatiskvalg1.Checked then
1539      begin      begin
1540        if ( (Pakkescanningtype <> Scanningtype) and (Scanningtype <> '2') and (Scanningtype <> '3') ) then        if ( (Pakkescanningtype <> Scanningtype) and (Scanningtype <> '2') and (Scanningtype <> '3') ) then
1541        begin        begin
# Line 1486  begin Line 1548  begin
1548    
1549    
1550    
1551      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and Automatisktjekkodestyring1.Checked then      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and menuAutomatiskTjekkodeStyring.Checked then
1552      begin      begin
1553        chkScanTjekkode.Checked := false;        chkScanTjekkode.Checked := false;
1554        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do
# Line 1499  begin Line 1561  begin
1561        end;        end;
1562      end;      end;
1563    
1564      if Pakkernormal1.Checked and not Scanogstjekkoden1.Checked then      if menuNatXpress1.Checked and not Scanogstjekkoden1.Checked then
1565        begin        begin
1566          // Når vi ikke kræver tjekkode er alt ok her          // Når vi ikke kræver tjekkode er alt ok her
1567             BoghandlerStregkode := Stregkode;             BoghandlerStregkode := Stregkode;
# Line 1509  begin Line 1571  begin
1571             Stregkode := '';             Stregkode := '';
1572             InitScreen();             InitScreen();
1573        end        end
1574      else if (PakkeshopLevering1.Checked or Pakkernormal1.Checked) and not Scanogstjekkoden1.Checked then      else if (menuPakkeshop1.Checked or menuNatXpress1.Checked) and not Scanogstjekkoden1.Checked then
1575        begin        begin
1576          // Når vi ikke kræver tjekkode er alt ok her          // Når vi ikke kræver tjekkode er alt ok her
1577             PakkeshopStregkode := Stregkode;             PakkeshopStregkode := Stregkode;
# Line 1521  begin Line 1583  begin
1583             Stregkode := '';             Stregkode := '';
1584             InitScreen();             InitScreen();
1585        end        end
1586      else if PakkeshopLevering1.Checked or Pakkernormal1.Checked then      else if menuPakkeshop1.Checked or menuNatXpress1.Checked then
1587        if PakkeshopText1.Caption = 'Stregkode' then        if PakkeshopText1.Caption = 'Stregkode' then
1588         begin         begin
1589            if length(Stregkode) > 5 then            if length(Stregkode) > 5 then
# Line 1547  begin Line 1609  begin
1609             PakkeshopTjekkode := Stregkode;             PakkeshopTjekkode := Stregkode;
1610             BoghandlerTjekkode := Stregkode;             BoghandlerTjekkode := Stregkode;
1611             PakkeshopText1.Caption := 'Stregkode';             PakkeshopText1.Caption := 'Stregkode';
1612             if (PakkeshopLevering1.Checked) then             if (menuPakkeshop1.Checked) then
1613                MainForm.Color := TUtils.HexToTColor(FarvePakkeshoplevering);                MainForm.Color := TUtils.HexToTColor(FarvePakkeshoplevering);
1614             if (Pakkernormal1.Checked) then             if (menuNatXpress1.Checked) then
1615                MainForm.Color := TUtils.HexToTColor(FarveNormal);                MainForm.Color := TUtils.HexToTColor(FarveNormal);
1616             btnNulstil.Visible := false;             btnNulstil.Visible := false;
1617           end           end
1618          else          else
1619           begin           begin
1620                if (PakkeshopLevering1.Checked) then                if (menuPakkeshop1.Checked) then
1621                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode);                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode);
1622                if (Pakkernormal1.Checked) then                if (menuNatXpress1.Checked) then
1623                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode);                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode);
1624                                    
1625                StregKode := '';                StregKode := '';
# Line 1569  begin Line 1631  begin
1631          InitScreen();          InitScreen();
1632       end;       end;
1633    
1634      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
1635      begin      begin
1636    
1637         if PakkeshopLevering1.Checked and (PakkeshopStregkode <> '') and (PakkeshopTjekkode <> '') then         if menuPakkeshop1.Checked and (PakkeshopStregkode <> '') and (PakkeshopTjekkode <> '') then
1638            StregKode := PakkeshopStregkode;            StregKode := PakkeshopStregkode;
1639         if Pakkernormal1.Checked and ((BoghandlerStregkode <> '') and (BoghandlerTjekkode <> '') or not Scanogstjekkoden1.Checked) then         if menuNatXpress1.Checked and ((BoghandlerStregkode <> '') and (BoghandlerTjekkode <> '') or not Scanogstjekkoden1.Checked) then
1640            StregKode := BoghandlerStregkode;            StregKode := BoghandlerStregkode;
1641         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
1642         try         try
# Line 1588  begin Line 1650  begin
1650    
1651              exit;              exit;
1652            end;            end;
1653            if (Pakkernormal1.Checked or Budlevering1.Checked or PakkeshopLevering1.Checked) then            if (menuNatXpress1.Checked or menuDaoDirekte1.Checked or menuPakkeshop1.Checked) then
1654            begin            begin
1655              PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel);              PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel);
1656              pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);              pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);
# Line 1609  begin Line 1671  begin
1671                MainForm.Color := clRed;                MainForm.Color := clRed;
1672              end;              end;
1673           end;           end;
1674            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
1675            begin            begin
1676              MainForm.Color := TUtils.HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1677              if Storepakker1.Checked then              if menuStorePakker.Checked then
1678              begin              begin
1679                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(ScannetOkStorLyd));
1680              end              end
# Line 1622  begin Line 1684  begin
1684              end;              end;
1685              btnNulstil.Visible := false;              btnNulstil.Visible := false;
1686            end            end
1687            else if (Returpakkerfradao1.Checked or Returpakkerfraboghandler1.Checked) then            else if (menuNatxpressReturDAO1.Checked or menuNatxpressReturfraKunde1.Checked) then
1688            begin            begin
1689              MainForm.Color := TUtils.HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1690              if Storepakker1.Checked then              if menuStorePakker.Checked then
1691              begin              begin
1692                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(ScannetOkStorLyd));
1693              end              end
# Line 1650  begin Line 1712  begin
1712           if not btnNulstil.Visible then           if not btnNulstil.Visible then
1713            begin            begin
1714    
1715              If (Budlevering1.Checked) then              If (menuDaoDirekte1.Checked) then
1716              begin              begin
1717                if Storepakker1.Checked then                if menuStorePakker.Checked then
1718                begin                begin
1719                  PlaySound(PWideChar(ScannetOkStorLyd));                  PlaySound(PWideChar(ScannetOkStorLyd));
1720                end                end
# Line 1746  var Line 1808  var
1808    
1809    
1810  begin  begin
1811      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
1812      begin      begin
1813        for i := ListBox2.items.count-1 downto 0 do        for i := ListBox2.items.count-1 downto 0 do
1814          if pos(StregKode,ListBox2.items[i]) <> 0 then          if pos(StregKode,ListBox2.items[i]) <> 0 then
1815          begin          begin
1816              wrkAntalSenere := 0;//initial Value
1817    
1818            // Ajourføring af tæller for manglende pakker (scanninger)            // Ajourføring af tæller for manglende pakker (scanninger)
1819            wrkAntal := StaticTextManglendePakker.Caption;            wrkAntal := StaticTextManglendePakker.Caption;
# Line 1895  procedure TMainForm.InitBladhus(); Line 1958  procedure TMainForm.InitBladhus();
1958    
1959  begin  begin
1960    Altidprintepakkelabel1.Enabled := false;    Altidprintepakkelabel1.Enabled := false;
1961    Pakkernormal1.Visible := false;    menuNatXpress1.Visible := false;
1962    ReturpakkerfraDAO1.Visible := false;    menuNatxpressReturDAO1.Visible := false;
1963    Returpakkerfraboghandler1.Visible := false;    menuNatxpressReturfraKunde1.Visible := false;
1964    Sprgefterboghandlernummer1.Enabled := false;    Sprgefterboghandlernummer1.Enabled := false;
1965    ListBox1.Visible := true;    ListBox1.Visible := true;
1966  //  TestFunktionen := '1';  //  TestFunktionen := '1';
1967    
1968    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
1969    begin    begin
1970      IndlesScanningLogFil();      IndlesScanningLogFil();
1971    end;    end;
# Line 1926  begin Line 1989  begin
1989      02 :      02 :
1990            begin;    // BK            begin;    // BK
1991              Testprinter1.Visible := true;              Testprinter1.Visible := true;
1992              Smpakker1.Enabled := true;              menuSmaaPakker.Enabled := true;
1993              Storepakker1.Enabled := true;              menuStorePakker.Enabled := true;
1994              radioStorPakke.Enabled := true;              radioStorPakke.Enabled := true;
1995              radioLillePakke.Enabled := true;              radioLillePakke.Enabled := true;
1996              BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her
# Line 1964  begin Line 2027  begin
2027            end;            end;
2028      04 :  begin;           // DBK      04 :  begin;           // DBK
2029              Testprinter1.Visible := true;              Testprinter1.Visible := true;
2030              Smpakker1.Enabled := true;              menuSmaaPakker.Enabled := true;
2031              Storepakker1.Enabled := true;              menuStorePakker.Enabled := true;
2032              radioStorPakke.Enabled := true;              radioStorPakke.Enabled := true;
2033              radioLillePakke.Enabled := true;              radioLillePakke.Enabled := true;
2034              BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her
# Line 1998  begin Line 2061  begin
2061    end;    end;
2062    
2063    
2064    if Pakkernormal1.Checked then    if menuNatXpress1.Checked then
2065    begin    begin
2066       if (BoghandlerTjekkode = '') then       if (BoghandlerTjekkode = '') then
2067       begin       begin
# Line 2006  begin Line 2069  begin
2069       end;       end;
2070       URLStr := Format(UrlNormal,[Sted, PakkeNr, BoghandlerNummer, BoghandlerTjekkode]);       URLStr := Format(UrlNormal,[Sted, PakkeNr, BoghandlerNummer, BoghandlerTjekkode]);
2071    end    end
2072    else if ReturpakkerfraDAO1.Checked then    else if menuNatxpressReturDAO1.Checked then
2073    begin    begin
2074       URLStr := Format(UrlReturDAO,[Sted, PakkeNr, BoghandlerNummer, 'DAO', pakkestorrelse]);       URLStr := Format(UrlReturDAO,[Sted, PakkeNr, BoghandlerNummer, 'DAO', pakkestorrelse]);
2075    end    end
2076    else if Returpakkerfraboghandler1.Checked then    else if menuNatxpressReturfraKunde1.Checked then
2077    begin    begin
2078       URLStr := Format(UrlReturBoghandler,[Sted, PakkeNr, BoghandlerNummer, 'Boghandler', pakkestorrelse]);       URLStr := Format(UrlReturBoghandler,[Sted, PakkeNr, BoghandlerNummer, 'Boghandler', pakkestorrelse]);
2079    end    end
2080    else if Budlevering1.Checked then    else if menuDaoDirekte1.Checked then
2081    begin    begin
2082       URLStr := Format(UrlBudlevering,[Sted, PakkeNr, 'bud', pakkestorrelse]);       URLStr := Format(UrlBudlevering,[Sted, PakkeNr, 'bud', pakkestorrelse]);
2083    end    end
2084    else if Pakkeshoplevering1.Checked then    else if menuPakkeshop1.Checked then
2085    begin    begin
2086       URLStr := Format(UrlPakkeshoplevering,[Sted, PakkeNr, PakkeshopTjekkode]);       URLStr := Format(UrlPakkeshoplevering,[Sted, PakkeNr, PakkeshopTjekkode]);
2087    end    end
2088    else if Returpakkerfrapakkeshop1.Checked then    else if menuPakkeshopRetur1.Checked then
2089    begin    begin
2090       URLStr := Format(UrlReturPakkeshop,[Sted, PakkeNr]);       URLStr := Format(UrlReturPakkeshop,[Sted, PakkeNr]);
2091    end    end
# Line 2064  begin Line 2127  begin
2127    
2128    XMLDocument1.LoadFromXML(WebSvar);    XMLDocument1.LoadFromXML(WebSvar);
2129    try    try
2130      if Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked then      if menuPakkeshop1.Checked or menuPakkeshopRetur1.Checked then
2131       begin       begin
2132        RuteNummer := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopTurid').Text;        RuteNummer := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopTurid').Text;
2133        Kommentar := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Stregkodematch').Text;        Kommentar := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Stregkodematch').Text;
# Line 2072  begin Line 2135  begin
2135        BoghandlerNavn := BoghandlerNavn + ' ' + XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;        BoghandlerNavn := BoghandlerNavn + ' ' + XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;
2136        PrintNyLabel := False;        PrintNyLabel := False;
2137    
2138        if Pakkeshoplevering1.Checked then        if menuPakkeshop1.Checked then
2139        begin        begin
2140          try          try
2141            PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text);            PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text);
# Line 2113  begin Line 2176  begin
2176        Kommentar := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('Kommentar').Text;        Kommentar := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('Kommentar').Text;
2177        BoghandlerNavn := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('BoghandlerNavn').Text;        BoghandlerNavn := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('BoghandlerNavn').Text;
2178        Leveringssted := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('Leveringssted').Text;        Leveringssted := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('Leveringssted').Text;
2179        if Budlevering1.Checked then        if menuDaoDirekte1.Checked then
2180          begin          begin
2181          try          try
2182            SmsKode := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('SmsKode').Text;            SmsKode := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('SmsKode').Text;
# Line 2148  begin Line 2211  begin
2211            PrintNyLabel := False;            PrintNyLabel := False;
2212        end;        end;
2213      end      end
2214      else if (Budlevering1.Checked) and (Leveringssted <> Sted) then      else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) then
2215      begin      begin
2216         if (Leveringssted = 'E') and (Sted = 'DBK') then         if (Leveringssted = 'E') and (Sted = 'DBK') then
2217         begin         begin
# Line 2177  begin Line 2240  begin
2240    //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
2241    BoghandlerNavnST.Caption := StringReplace(BoghandlerNavn, ' & ', ' && ', [rfReplaceAll, rfIgnoreCase]);    BoghandlerNavnST.Caption := StringReplace(BoghandlerNavn, ' & ', ' && ', [rfReplaceAll, rfIgnoreCase]);
2242    List1msg := TimeToStr(now) + '; ';    List1msg := TimeToStr(now) + '; ';
2243    if Pakkeshoplevering1.Checked then    if menuPakkeshop1.Checked then
2244      List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; ';      List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; ';
2245    List1Pakkestorrelse := '';    List1Pakkestorrelse := '';
2246    if radioStorPakke.Checked then    if radioStorPakke.Checked then
# Line 2189  begin Line 2252  begin
2252      List1Pakkestorrelse := 'Lille pakke';      List1Pakkestorrelse := 'Lille pakke';
2253    end;    end;
2254    List1msg := List1msg + BoghandlerNavn + '; ';    List1msg := List1msg + BoghandlerNavn + '; ';
2255    if ReturpakkerfraDAO1.Checked then    if menuNatxpressReturDAO1.Checked then
2256    begin    begin
2257      List1msg := List1msg + RightStr(Kommentar, Length(Kommentar)-8);      List1msg := List1msg + RightStr(Kommentar, Length(Kommentar)-8);
2258    end;    end;
2259    if Returpakkerfraboghandler1.Checked then    if menuNatxpressReturfraKunde1.Checked then
2260    begin    begin
2261      List1msg := List1msg + RightStr(Kommentar, Length(Kommentar)-16);      List1msg := List1msg + RightStr(Kommentar, Length(Kommentar)-16);
2262    end;    end;
2263    if ReturpakkerfraDAO1.Checked or Returpakkerfraboghandler1.Checked then    if menuNatxpressReturDAO1.Checked or menuNatxpressReturfraKunde1.Checked then
2264       List1msg := List1msg + '; ' + List1Pakkestorrelse;       List1msg := List1msg + '; ' + List1Pakkestorrelse;
2265    if length(BoghNr) > 0 then    if length(BoghNr) > 0 then
2266    begin    begin
2267      List1Msg := List1Msg + '; Indtastet ' + BoghNr;      List1Msg := List1Msg + '; Indtastet ' + BoghNr;
2268    end;    end;
2269    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
2270    begin    begin
2271       List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn;       List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn;
2272        if (radioStorPakke.Checked) then        if (radioStorPakke.Checked) then
# Line 2215  begin Line 2278  begin
2278          List1msg := List1msg + '; Lille pakke';          List1msg := List1msg + '; Lille pakke';
2279        end;        end;
2280    end;    end;
2281    if Returpakkerfrapakkeshop1.Checked then    if menuPakkeshopRetur1.Checked then
2282    begin    begin
2283      List1msg := List1msg + Stregkode + ' ' + RightStr(Kommentar, Length(Kommentar)-6);      List1msg := List1msg + Stregkode + ' ' + RightStr(Kommentar, Length(Kommentar)-6);
2284    end;    end;
2285    if Pakkernormal1.Checked then    if menuNatXpress1.Checked then
2286    begin    begin
2287      if (Kommentar = '***** Kommentar *****')                       // fra test printer funktionen      if (Kommentar = '***** Kommentar *****')                       // fra test printer funktionen
2288      or (BoghandlerNavn = 'Forbindelse ok')                         // fra test forbindelse funktionen      or (BoghandlerNavn = 'Forbindelse ok')                         // fra test forbindelse funktionen
# Line 2259  pakkeForkertSted : Integer; Line 2322  pakkeForkertSted : Integer;
2322    kontrolKoreliste : string;    kontrolKoreliste : string;
2323    nytRuteNummer, nyFarve : String;    nytRuteNummer, nyFarve : String;
2324  begin  begin
2325    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
2326       RuteNummerST.Color := TUtils.HexToTColor(Farve);       RuteNummerST.Color := TUtils.HexToTColor(Farve);
2327    
2328    pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);    pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);
# Line 2297  begin Line 2360  begin
2360        end;        end;
2361    end    end
2362    else    else
2363    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
2364    begin    begin
2365       if (BoghandlerNavn = 'Ukendt pakke') then       if (BoghandlerNavn = 'Ukendt pakke') then
2366       begin       begin
# Line 2366  begin Line 2429  begin
2429    
2430    end;    end;
2431    
2432    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
2433    begin    begin
2434      case BladhusSted of      case BladhusSted of
2435        00 :  begin;        00 :  begin;
# Line 2415  begin Line 2478  begin
2478    end;    end;
2479    
2480  // 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
2481    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
2482    begin    begin
2483      exit;      exit;
2484    end;    end;
2485    
2486    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
2487    begin    begin
2488    end    end
2489    else    else
# Line 2454  end; Line 2517  end;
2517    
2518  procedure TMainForm.radioStorPakkeClick(Sender: TObject);  procedure TMainForm.radioStorPakkeClick(Sender: TObject);
2519  begin  begin
2520      Storepakker1.Checked := true;      menuStorePakker.Checked := true;
2521      radioStorPakke.Checked := true;      radioStorPakke.Checked := true;
2522  end;  end;
2523    
2524  procedure TMainForm.radioLillePakkeClick(Sender: TObject);  procedure TMainForm.radioLillePakkeClick(Sender: TObject);
2525  begin  begin
2526      Smpakker1.Checked := true;      menuSmaaPakker.Checked := true;
2527      radioLillePakke.Checked := true;      radioLillePakke.Checked := true;
2528  end;  end;
2529    
# Line 2503  begin Line 2566  begin
2566    end;    end;
2567  end;  end;
2568    
2569  procedure TMainForm.Pakkeshoplevering1Click(Sender: TObject);  procedure TMainForm.menuPakkeshop1Click(Sender: TObject);
2570  begin  begin
2571        Scanningtype := '5';        Scanningtype := '5';
2572        InitPakkeshoplevering();        InitPakkeshoplevering();
# Line 2512  end; Line 2575  end;
2575    
2576  procedure TMainForm.NulstilAutomatiskValg();  procedure TMainForm.NulstilAutomatiskValg();
2577  begin  begin
2578      Automatiskvalg1.Checked := false;      menuAutomatiskvalg1.Checked := false;
2579      PanelValgA.Color := clBtnFace;      PanelValgA.Color := clBtnFace;
2580      PanelValgA.Font.Color := clWindowText;      PanelValgA.Font.Color := clWindowText;
2581    
# Line 2524  begin Line 2587  begin
2587        // 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)
2588        PanelValgA.Enabled := false;        PanelValgA.Enabled := false;
2589        PanelValgA.Font.Color := clInactiveCaption;        PanelValgA.Font.Color := clInactiveCaption;
2590        Automatiskvalg1.Enabled := false;        menuAutomatiskvalg1.Enabled := false;
2591      end;      end;
2592  // 20150317: slut  // 20150317: slut
2593  end;  end;
# Line 2757  begin Line 2820  begin
2820    begin    begin
2821       MainForm.Color := TUtils.HexToTColor(Farve);       MainForm.Color := TUtils.HexToTColor(Farve);
2822    end;    end;
2823    if (Budlevering1.Checked) then    if (menuDaoDirekte1.Checked) then
2824    begin    begin
2825       InitLillePakke();       InitLillePakke();
2826    end;    end;
# Line 2821  procedure TMainForm.PanelValgAClick(Send Line 2884  procedure TMainForm.PanelValgAClick(Send
2884  begin  begin
2885  // Skal ikke toggle men bare sætte funktionen on  // Skal ikke toggle men bare sætte funktionen on
2886  // Fravælges ved at vælge en scanningstype  // Fravælges ved at vælge en scanningstype
2887    AutomatiskValg1.Checked := true;    menuAutomatiskvalg1.Checked := true;
2888    PanelValgA.Color := clGreen;    PanelValgA.Color := clGreen;
2889    PanelValgA.Font.Color := clWhite;    PanelValgA.Font.Color := clWhite;
2890    
# Line 2829  begin Line 2892  begin
2892    
2893  end;  end;
2894    
2895  procedure TMainForm.Pakkernormal1Click(Sender: TObject);  procedure TMainForm.menuNatXpress1Click(Sender: TObject);
2896  begin  begin
2897        Scanningtype := '1';        Scanningtype := '1';
2898        NulstilAutomatiskValg();        NulstilAutomatiskValg();
# Line 2984  begin Line 3047  begin
3047    
3048  end;  end;
3049    
3050    
3051  procedure TMainForm.ListBox1DrawItem(Control: TWinControl; Index: Integer;  procedure TMainForm.ListBox1DrawItem(Control: TWinControl; Index: Integer;
3052    Rect: TRect; State: TOwnerDrawState);    Rect: TRect; State: TOwnerDrawState);
3053  var  var
# Line 3098  begin Line 3162  begin
3162    
3163  end;  end;
3164    
3165  procedure TMainForm.ReturpakkerfraDAO1Click(Sender: TObject);  procedure TMainForm.menuNatxpressReturDAO1Click(Sender: TObject);
3166  begin  begin
3167        Scanningtype := '2';        Scanningtype := '2';
3168        NulstilAutomatiskValg();        NulstilAutomatiskValg();
3169        InitReturFraDao();        InitReturFraDao();
3170  end;  end;
3171    
3172  procedure TMainForm.Returpakkerfrapakkeshop1Click(Sender: TObject);  procedure TMainForm.menuPakkeshopRetur1Click(Sender: TObject);
3173  begin  begin
3174        Scanningtype := '6';        Scanningtype := '6';
3175        InitReturFraPakkeshop();        InitReturFraPakkeshop();
# Line 3114  end; Line 3178  end;
3178    
3179  procedure TMainForm.InitNatxpresslevering();  procedure TMainForm.InitNatxpresslevering();
3180  begin  begin
3181        AutomatiskTjekkodeStyring1.Enabled := true;        menuAutomatiskTjekkodeStyring.Enabled := true;
3182        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3183        Pakkernormal1.Checked := true;        menuNatXpress1.Checked := true;
3184        InitForm(FarveNormal,TitelNormal,UrlNormal);        InitForm(FarveNormal,TitelNormal,UrlNormal);
3185        PanelValg1.Color := clGreen;        PanelValg1.Color := clGreen;
3186        PanelValg1.Font.Color := clWhite;        PanelValg1.Font.Color := clWhite;
# Line 3128  begin Line 3192  begin
3192        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3193        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3194        Sprgefterboghandlernummer1.Enabled := true;        Sprgefterboghandlernummer1.Enabled := true;
3195        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3196        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3197        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3198        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3199        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3150  end; Line 3214  end;
3214    
3215  procedure TMainForm.InitReturFraDao();  procedure TMainForm.InitReturFraDao();
3216  begin  begin
3217        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3218        ReturpakkerfraDAO1.Checked := true;        menuNatxpressReturDAO1.Checked := true;
3219        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3220        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);
3221        PanelValg2.Color := clGreen;        PanelValg2.Color := clGreen;
# Line 3164  begin Line 3228  begin
3228        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3229        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3230        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3231        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3232        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3233        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3234        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3235        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3181  end; Line 3245  end;
3245    
3246  procedure TMainForm.InitReturFraKunde();  procedure TMainForm.InitReturFraKunde();
3247  begin  begin
3248        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3249        Returpakkerfraboghandler1.Checked := true;        menuNatxpressReturfraKunde1.Checked := true;
3250        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3251        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);
3252        PanelValg3.Color := clGreen;        PanelValg3.Color := clGreen;
# Line 3194  begin Line 3258  begin
3258        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3259        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3260        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3261        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3262        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3263        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3264        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3265        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3211  end; Line 3275  end;
3275    
3276  procedure TMainForm.InitDirektelevering();  procedure TMainForm.InitDirektelevering();
3277  begin  begin
3278        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3279        Budlevering1.Checked := true;        menuDaoDirekte1.Checked := true;
3280        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3281        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);
3282        PanelValg4.Color := clGreen;        PanelValg4.Color := clGreen;
# Line 3225  begin Line 3289  begin
3289        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3290        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3291        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3292        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3293        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3294        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3295        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3296        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3251  end; Line 3315  end;
3315    
3316  procedure TMainForm.InitPakkeshoplevering();  procedure TMainForm.InitPakkeshoplevering();
3317  begin  begin
3318        AutomatiskTjekkodeStyring1.Enabled := true;        menuAutomatiskTjekkodeStyring.Enabled := true;
3319        Pakkeshoplevering1.Checked := true;        menuPakkeshop1.Checked := true;
3320        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3321        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);
3322        PanelValg5.Color := clGreen;        PanelValg5.Color := clGreen;
# Line 3265  begin Line 3329  begin
3329        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3330        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3331        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3332        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3333        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3334        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3335        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3336        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3291  end; Line 3355  end;
3355    
3356  procedure TMainForm.InitReturFraPakkeshop();  procedure TMainForm.InitReturFraPakkeshop();
3357  begin  begin
3358        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3359        Returpakkerfrapakkeshop1.Checked := true;        menuPakkeshopRetur1.Checked := true;
3360        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3361        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);
3362        PanelValg6.Color := clGreen;        PanelValg6.Color := clGreen;
# Line 3305  begin Line 3369  begin
3369        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3370        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3371        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3372        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3373        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3374        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3375        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3376        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3329  begin Line 3393  begin
3393        IdFTP1.PassiveUseControlHost := true;        IdFTP1.PassiveUseControlHost := true;
3394  end;  end;
3395    
3396  procedure TMainForm.Returpakkerfraboghandler1Click(Sender: TObject);  procedure TMainForm.menuNatxpressReturfraKunde1Click(Sender: TObject);
3397  begin  begin
3398        Scanningtype := '3';        Scanningtype := '3';
3399        NulstilAutomatiskValg();        NulstilAutomatiskValg();
# Line 3339  end; Line 3403  end;
3403  procedure TMainForm.InitIndleveringskode();  procedure TMainForm.InitIndleveringskode();
3404  begin  begin
3405        menuIndlevering.Checked := true;        menuIndlevering.Checked := true;
3406        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3407    
3408        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3409        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);
# Line 3356  begin Line 3420  begin
3420    
3421    
3422    
3423        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3424        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3425        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3426        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3427        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3382  begin Line 3446  begin
3446  end;  end;
3447    
3448    
3449  procedure TMainForm.Storepakker1Click(Sender: TObject);  procedure TMainForm.menuStorePakkerClick(Sender: TObject);
3450  begin  begin
3451    InitStorPakke();    InitStorPakke();
3452  end;  end;
3453    
3454  procedure TMainForm.Smpakker1Click(Sender: TObject);  procedure TMainForm.menuSmaaPakkerClick(Sender: TObject);
3455  begin  begin
3456    InitLillePakke();    InitLillePakke();
3457  end;  end;
# Line 3395  end; Line 3459  end;
3459  procedure TMainForm.InitLillePakke();  procedure TMainForm.InitLillePakke();
3460  begin  begin
3461    radioLillePakke.Checked := true;    radioLillePakke.Checked := true;
3462    Smpakker1.Checked := true;    menuSmaaPakker.Checked := true;
3463  //  Stregkode := '';  //  Stregkode := '';
3464  end;  end;
3465    
3466  procedure TMainForm.InitStorPakke();  procedure TMainForm.InitStorPakke();
3467  begin  begin
3468    radioStorPakke.Checked := true;    radioStorPakke.Checked := true;
3469    Storepakker1.Checked := true;    menuStorePakker.Checked := true;
3470  // 20150310: start  // 20150310: start
3471  //  Stregkode := '';  //  Stregkode := '';
3472  // 20150310: slut  // 20150310: slut
# Line 3446  begin Line 3510  begin
3510       exit;       exit;
3511    end;    end;
3512    
3513    if Smpakker1.Checked then    if menuSmaaPakker.Checked then
3514       if ScannetOkLyd  <> '' then       if ScannetOkLyd  <> '' then
3515       begin       begin
3516         PlaySound(PWideChar(ScannetOkLyd));         PlaySound(PWideChar(ScannetOkLyd));
# Line 3455  begin Line 3519  begin
3519       begin       begin
3520         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);
3521       end;       end;
3522    if Storepakker1.Checked then    if menuStorePakker.Checked then
3523       if ScannetOkStorLyd  <> '' then       if ScannetOkStorLyd  <> '' then
3524       begin       begin
3525         PlaySound(PWideChar(ScannetOkStorLyd));         PlaySound(PWideChar(ScannetOkStorLyd));
# Line 3467  begin Line 3531  begin
3531  end;  end;
3532    
3533    
3534  procedure TMainForm.Budlevering1Click(Sender: TObject);  procedure TMainForm.menuDaoDirekte1Click(Sender: TObject);
3535  begin  begin
3536        Scanningtype := '4';        Scanningtype := '4';
3537        NulstilAutomatiskValg();        NulstilAutomatiskValg();
# Line 4113  var Line 4177  var
4177    I: Integer;    I: Integer;
4178    stregkode, modtagernavn, modtageradresse, kommentar : string;    stregkode, modtagernavn, modtageradresse, kommentar : string;
4179    pakketype, tjekkodestatus : String;    pakketype, tjekkodestatus : String;
4180    pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer;    antalLiniefelter, antalFelterFundet, linienr : Integer;
4181    //pakketyper : TStrings;    //pakketyper : TStrings;
4182    pakketyper : TDictionary<String, Integer>;    pakketyper : TDictionary<String, Integer>;
4183    tmpAntal : Integer;    tmpAntal : Integer;
# Line 4186  var Line 4250  var
4250        begin        begin
4251          // 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
4252          WebSvar := IdHTTP1.Get(URLStr);          WebSvar := IdHTTP1.Get(URLStr);
4253    
4254    
4255    
4256        end;        end;
4257        on e:exception do        on e:exception do
4258        begin        begin
# Line 4780  begin Line 4847  begin
4847      KommentarST.Caption := strMessage;      KommentarST.Caption := strMessage;
4848    end;    end;
4849    
4850      Stregkode := ''; //Nulstil stregkode feltet efter at fejl er vist
4851    
4852  end;  end;
4853    
4854  function TMainForm.getProddato() : TDate;  function TMainForm.getProddato() : TDate;
# Line 4853  begin Line 4922  begin
4922  end;  end;
4923    
4924    
4925    //Nedarvet fra IParentForm
4926    procedure TMainForm.Msg( msg : string);
4927    begin
4928      ShowMessage(msg);
4929    end;
4930    
4931  //Nedarvet fra IParentForm  //Nedarvet fra IParentForm
4932  procedure TMainForm.LogMessage( msg : string);  procedure TMainForm.LogMessage( msg : string);
Legend:
Removed from v.2977  
changed lines
  Added in v.3057
  ViewVC Help
Powered by ViewVC 1.1.20