/[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 2650 by torben, Thu Aug 20 20:58:26 2015 UTC revision 2656 by torben, Sun Aug 23 13:09:14 2015 UTC
# Line 20  type Line 20  type
20      IdHTTP1: TIdHTTP;      IdHTTP1: TIdHTTP;
21      XMLDocument1: TXMLDocument;      XMLDocument1: TXMLDocument;
22      ApplicationEvents1: TApplicationEvents;      ApplicationEvents1: TApplicationEvents;
23      CheckBox1: TCheckBox;      chkSporgEfterKunde: TCheckBox;
24      KommentarST: TStaticText;      KommentarST: TStaticText;
25      MainMenu1: TMainMenu;      MainMenu1: TMainMenu;
26      N1: TMenuItem;      N1: TMenuItem;
# Line 36  type Line 36  type
36      Lukprogrammet1: TMenuItem;      Lukprogrammet1: TMenuItem;
37      N2: TMenuItem;      N2: TMenuItem;
38      N3: TMenuItem;      N3: TMenuItem;
39      RadioButton1: TRadioButton;      radioStorPakke: TRadioButton;
40      RadioButton2: TRadioButton;      radioLillePakke: TRadioButton;
41      N4: TMenuItem;      N4: TMenuItem;
42      Storepakker1: TMenuItem;      Storepakker1: TMenuItem;
43      Smpakker1: TMenuItem;      Smpakker1: TMenuItem;
# Line 59  type Line 59  type
59      PakkeshopNulstil: TButton;      PakkeshopNulstil: TButton;
60      Returpakkerfrapakkeshop1: TMenuItem;      Returpakkerfrapakkeshop1: TMenuItem;
61      Altidprintepakkelabel1: TMenuItem;      Altidprintepakkelabel1: TMenuItem;
62      CheckBox2: TCheckBox;      chkAltidPrintLabel: TCheckBox;
63      EKLoverforsel: TButton;      EKLoverforsel: TButton;
64      N5: TMenuItem;      N5: TMenuItem;
65      Uploadlogfil1: TMenuItem;      Uploadlogfil1: TMenuItem;
66      Manual1: TMenuItem;      Manual1: TMenuItem;
67      PrinterstatusStaticText1: TStaticText;      PrinterstatusStaticText1: TStaticText;
68      Timer1: TTimer;      Timer1: TTimer;
69      CheckBox3: TCheckBox;      chkScanTjekkode: TCheckBox;
70      Scanogstjekkoden1: TMenuItem;      Scanogstjekkoden1: TMenuItem;
71      Automatisktjekkodestyring1: TMenuItem;      Automatisktjekkodestyring1: TMenuItem;
72      Automatiskvalg1: TMenuItem;      Automatiskvalg1: TMenuItem;
# Line 77  type Line 77  type
77      PanelValg4: TPanel;      PanelValg4: TPanel;
78      PanelValg5: TPanel;      PanelValg5: TPanel;
79      PanelValg6: TPanel;      PanelValg6: TPanel;
80        PanelValg7: TPanel;
81      Manualgenerel1: TMenuItem;      Manualgenerel1: TMenuItem;
82      StaticTextManglendePakker: TStaticText;      StaticTextManglendePakker: TStaticText;
83      PanelManglendePakker1: TPanel;      PanelManglendePakker1: TPanel;
# Line 85  type Line 86  type
86      PanelManglendePakker4: TPanel;      PanelManglendePakker4: TPanel;
87      PanelManglendePakker5: TPanel;      PanelManglendePakker5: TPanel;
88      PanelManglendePakker6: TPanel;      PanelManglendePakker6: TPanel;
89      PanelValg7: TPanel;  
90    
91    function Explode(var a: TStrArray; Border, S: string): Integer;    function Explode(var a: TStrArray; Border, S: string): Integer;
92    function BarCodeValid (ACode: string): boolean;    function BarCodeValid (ACode: string): boolean;
# Line 113  type Line 114  type
114    procedure FormKeyPress(Sender: TObject; var Key: Char);    procedure FormKeyPress(Sender: TObject; var Key: Char);
115    procedure FormCreate(Sender: TObject);    procedure FormCreate(Sender: TObject);
116    procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);    procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
117    procedure RadioButton1Click(Sender: TObject);    procedure radioStorPakkeClick(Sender: TObject);
118    procedure RadioButton2Click(Sender: TObject);    procedure radioLillePakkeClick(Sender: TObject);
119    procedure CheckBox1Click(Sender: TObject);    procedure chkSporgEfterKundeClick(Sender: TObject);
120    procedure Pakkernormal1Click(Sender: TObject);    procedure Pakkernormal1Click(Sender: TObject);
121    procedure Testforbindelsen1Click(Sender: TObject);    procedure Testforbindelsen1Click(Sender: TObject);
122    procedure Testprinter1Click(Sender: TObject);    procedure Testprinter1Click(Sender: TObject);
# Line 154  type Line 155  type
155    procedure InitIndleveringskode();    procedure InitIndleveringskode();
156    
157    procedure Altidprintepakkelabel1Click(Sender: TObject);    procedure Altidprintepakkelabel1Click(Sender: TObject);
158    procedure CheckBox2Click(Sender: TObject);    procedure chkAltidPrintLabelClick(Sender: TObject);
159    procedure EKLoverforselClick(Sender: TObject);    procedure EKLoverforselClick(Sender: TObject);
160    procedure Uploadlogfil1Click(Sender: TObject);    procedure Uploadlogfil1Click(Sender: TObject);
161    procedure Manual1Click(Sender: TObject);    procedure Manual1Click(Sender: TObject);
162    procedure CheckPrintQue(tjektype : string);    procedure CheckPrintQue(tjektype : string);
163    procedure Timer1Timer(Sender: TObject);    procedure Timer1Timer(Sender: TObject);
164    procedure Scanogstjekkoden1Click(Sender: TObject);    procedure Scanogstjekkoden1Click(Sender: TObject);
165    procedure CheckBox3Click(Sender: TObject);    procedure chkScanTjekkodeClick(Sender: TObject);
166    procedure Automatisktjekkodestyring1Click(Sender: TObject);    procedure Automatisktjekkodestyring1Click(Sender: TObject);
167    procedure SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);    procedure SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);
168    procedure Automatiskvalg1Click(Sender: TObject);    procedure Automatiskvalg1Click(Sender: TObject);
# Line 172  type Line 173  type
173    procedure PanelValg4Click(Sender: TObject);    procedure PanelValg4Click(Sender: TObject);
174    procedure PanelValg5Click(Sender: TObject);    procedure PanelValg5Click(Sender: TObject);
175    procedure PanelValg6Click(Sender: TObject);    procedure PanelValg6Click(Sender: TObject);
176      procedure PanelValg7Click(Sender: TObject);
177    
178    procedure NulstilAutomatiskValg();    procedure NulstilAutomatiskValg();
179    procedure SletLogfiler(Path: string; FileList: TStrings);    procedure SletLogfiler(Path: string; FileList: TStrings);
180    procedure Manualgenerel1Click(Sender: TObject);    procedure Manualgenerel1Click(Sender: TObject);
# Line 179  type Line 182  type
182  // 20150310: start  // 20150310: start
183    procedure RoundCornerOf(Control: TWinControl);    procedure RoundCornerOf(Control: TWinControl);
184    
185      procedure PanelValg7Click(Sender: TObject);  
186  // 20150310: slut  // 20150310: slut
187    
188    private    private
# Line 196  type Line 199  type
199      Scanningtype, TestFunktionen, Pakketype, SporgEfterBoghandler : String;      Scanningtype, TestFunktionen, Pakketype, SporgEfterBoghandler : String;
200      ScanTjekkode : String;      ScanTjekkode : String;
201      ScanTjekkodeAutomatik : string;      ScanTjekkodeAutomatik : string;
202      Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop : String;      Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop, FarveIndlevering : String;
203      Titel, TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop : String;      Titel, TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop, TitelIndlevering : String;
204      LabelType : integer;      LabelType : integer;
205      AlarmLyd : String;      AlarmLyd : String;
206      ScannetOkLyd : String;      ScannetOkLyd : String;
# Line 409  begin Line 412  begin
412      else      else
413        PakkeshopText1.Visible := false;        PakkeshopText1.Visible := false;
414    
415      CheckBox3.Checked := false;      chkScanTjekkode.Checked := false;
416      CheckBox3.Enabled := false;      chkScanTjekkode.Enabled := false;
417      Scanogstjekkoden1.Enabled := false;      Scanogstjekkoden1.Enabled := false;
418    
419      if (Scanningtype = '1') or (Scanningtype = '5') then      if (Scanningtype = '1') or (Scanningtype = '5') then
420      begin      begin
421        if (ScanTjekkode = '1') then        if (ScanTjekkode = '1') then
422        begin        begin
423          CheckBox3.Checked := true;          chkScanTjekkode.Checked := true;
424          CheckBox3.Enabled := true;          chkScanTjekkode.Enabled := true;
425          Scanogstjekkoden1.Enabled := true;          Scanogstjekkoden1.Enabled := true;
426        end        end
427        else        else
428        begin        begin
429          CheckBox3.Checked := false;          chkScanTjekkode.Checked := false;
430          CheckBox3.Enabled := true;         // False vil forhindre indtastning af tjekkode i nat x-press scanning          chkScanTjekkode.Enabled := true;         // False vil forhindre indtastning af tjekkode i nat x-press scanning
431          Scanogstjekkoden1.Enabled := true; // False vil forhindre indtastning af tjekkode i nat x-press scanning          Scanogstjekkoden1.Enabled := true; // False vil forhindre indtastning af tjekkode i nat x-press scanning
432        end;        end;
433      end;      end;
434    
435      if Automatisktjekkodestyring1.Checked then      if Automatisktjekkodestyring1.Checked then
436      begin      begin
437        CheckBox3.Enabled := false;        chkScanTjekkode.Enabled := false;
438        Scanogstjekkoden1.Enabled := false;        Scanogstjekkoden1.Enabled := false;
439      end;      end;
440    
# Line 472  begin Line 475  begin
475    
476    if Altidprintepakkelabel1.Checked then    if Altidprintepakkelabel1.Checked then
477    begin    begin
478       CheckBox2.Checked := true;       chkAltidPrintLabel.Checked := true;
479    end    end
480    else    else
481    begin    begin
482       CheckBox2.Checked := false;       chkAltidPrintLabel.Checked := false;
483    end;    end;
484    
485  end;  end;
# Line 490  procedure TMainForm.Automatisktjekkodest Line 493  procedure TMainForm.Automatisktjekkodest
493  begin  begin
494    if Automatisktjekkodestyring1.Checked then    if Automatisktjekkodestyring1.Checked then
495    begin    begin
496       CheckBox3.Enabled := false;       chkScanTjekkode.Enabled := false;
497       Scanogstjekkoden1.Enabled := false;       Scanogstjekkoden1.Enabled := false;
498    end    end
499    else    else
500    begin    begin
501       CheckBox3.Enabled := true;       chkScanTjekkode.Enabled := true;
502       Scanogstjekkoden1.Enabled := true;       Scanogstjekkoden1.Enabled := true;
503    end;    end;
504    
# Line 542  begin Line 545  begin
545    Application.ShowHint := True;    Application.ShowHint := True;
546    PrinterstatusStaticText1.Caption := '';    PrinterstatusStaticText1.Caption := '';
547    PrinterstatusStaticText1.Color := MainForm.Color;    PrinterstatusStaticText1.Color := MainForm.Color;
548  // 20150306: start  
549    PakkeshopNulstil.BringToFront;    PakkeshopNulstil.BringToFront;
550  // 20150306: slut  
 // 20150310: start  
551    RoundCornerOf(PanelManglendePakker1);    RoundCornerOf(PanelManglendePakker1);
552    RoundCornerOf(PanelManglendePakker2);    RoundCornerOf(PanelManglendePakker2);
553    RoundCornerOf(PanelManglendePakker3);    RoundCornerOf(PanelManglendePakker3);
554    RoundCornerOf(PanelManglendePakker4);    RoundCornerOf(PanelManglendePakker4);
555    RoundCornerOf(PanelManglendePakker5);    RoundCornerOf(PanelManglendePakker5);
556    RoundCornerOf(PanelManglendePakker6);    RoundCornerOf(PanelManglendePakker6);
557  // 20150310: slut  
558    
559    // Hvis mappen Docs eksisterer kan vi vælge Manual i menuen Hjælp    // Hvis mappen Docs eksisterer kan vi vælge Manual i menuen Hjælp
560    if DirectoryExists('Docs') then    if DirectoryExists('Docs') then
# Line 579  begin Line 581  begin
581      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');
582      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');
583      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');
584  // 20150330: start  
585      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');
586  // 20150330: slut  
587      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');
588      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');
589      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');
# Line 597  begin Line 599  begin
599      TitelBudlevering := ReadString('Settings','TitelBudlevering','Modtagelse af DAO DIREKTE pakker');      TitelBudlevering := ReadString('Settings','TitelBudlevering','Modtagelse af DAO DIREKTE pakker');
600      FarvePakkeshoplevering := ReadString('Settings','FarvePakkeshoplevering','99FFFF');      FarvePakkeshoplevering := ReadString('Settings','FarvePakkeshoplevering','99FFFF');
601      TitelPakkeshoplevering := ReadString('Settings','TitelPakkeshoplevering','Modtagelse af DAO PAKKESHOP pakker');      TitelPakkeshoplevering := ReadString('Settings','TitelPakkeshoplevering','Modtagelse af DAO PAKKESHOP pakker');
602    
603      FarveReturPakkeshop := ReadString('Settings','FarveReturPakkeshop','99FFCC');      FarveReturPakkeshop := ReadString('Settings','FarveReturPakkeshop','99FFCC');
604      TitelReturPakkeshop := ReadString('Settings','TitelReturPakkeshop','Returforsendelse fra pakkeshop');      TitelReturPakkeshop := ReadString('Settings','TitelReturPakkeshop','Returforsendelse fra pakkeshop');
605    
606        FarveIndlevering := ReadString('Settings', 'FarveIndlevering', 'E5B2CB');
607        TitelIndlevering := ReadString('Settings', 'TitelIndlevering', 'Indleveringskode');
608    
609    
610      SporgEfterBoghandler := ReadString('Settings','SporgEfterBoghandler','0');      SporgEfterBoghandler := ReadString('Settings','SporgEfterBoghandler','0');
611      ScanTjekkode := ReadString('Settings','ScanTjekkode','0');      ScanTjekkode := ReadString('Settings','ScanTjekkode','0');
612      ScanTjekkodeAutomatik := ReadString('Settings','ScanTjekkodeAutomatik','1');      ScanTjekkodeAutomatik := ReadString('Settings','ScanTjekkodeAutomatik','1');
# Line 608  begin Line 616  begin
616      AlarmLyd := ReadString('Settings','AlarmLyd','Sounds\Alarm.wav');      AlarmLyd := ReadString('Settings','AlarmLyd','Sounds\Alarm.wav');
617      ScannetOkLyd := ReadString('Settings','ScannetOkLyd','Sounds\Ok.wav');      ScannetOkLyd := ReadString('Settings','ScannetOkLyd','Sounds\Ok.wav');
618      ScannetOkStorLyd := ReadString('Settings','ScannetOkStorLyd','Sounds\Ok_stor.wav');      ScannetOkStorLyd := ReadString('Settings','ScannetOkStorLyd','Sounds\Ok_stor.wav');
619  // 20150317: start  
620      ScannetOkTilTjekkodeLyd := ReadString('Settings','ScannetOkTilTjekkodeLyd','Sounds\Ok_til_tjekkode.wav');      ScannetOkTilTjekkodeLyd := ReadString('Settings','ScannetOkTilTjekkodeLyd','Sounds\Ok_til_tjekkode.wav');
621  // 20150317: slut  
622      PrinterNavn := ReadString('Settings','PrinterNavn','');      PrinterNavn := ReadString('Settings','PrinterNavn','');
623      TjekPrinter := ReadString('Settings','TjekPrinter','1');      TjekPrinter := ReadString('Settings','TjekPrinter','1');
624      TjekUrls := ReadString('Settings','TjekUrls','2');      TjekUrls := ReadString('Settings','TjekUrls','2');
# Line 711  begin Line 719  begin
719    
720      if SporgEfterBoghandler = '1' then      if SporgEfterBoghandler = '1' then
721      begin      begin
722        CheckBox1.Checked := true;        chkSporgEfterKunde.Checked := true;
723        Sprgefterboghandlernummer1.Checked := true;        Sprgefterboghandlernummer1.Checked := true;
724      end      end
725      else      else
726      begin      begin
727        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
728        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
729      end;      end;
730    
731      if ScanTjekkode = '1' then      if ScanTjekkode = '1' then
732      begin      begin
733        CheckBox3.Checked := true;        chkScanTjekkode.Checked := true;
734        Scanogstjekkoden1.Checked := true;        Scanogstjekkoden1.Checked := true;
735      end      end
736      else      else
737      begin      begin
738        CheckBox3.Checked := false;        chkScanTjekkode.Checked := false;
739        Scanogstjekkoden1.Checked := false;        Scanogstjekkoden1.Checked := false;
740      end;      end;
741    
742      if ScanTjekkodeAutomatik = '1' then      if ScanTjekkodeAutomatik = '1' then
743      begin      begin
744        Automatisktjekkodestyring1.Checked := true;        Automatisktjekkodestyring1.Checked := true;
745        CheckBox3.Enabled := false;        chkScanTjekkode.Enabled := false;
746        Scanogstjekkoden1.Enabled := false;        Scanogstjekkoden1.Enabled := false;
747      end;      end;
748    
# Line 829  begin Line 837  begin
837       // her skal vi også disable de menupunkter DBK ikke kan bruge       // her skal vi også disable de menupunkter DBK ikke kan bruge
838        ReturpakkerfraDAO1.Enabled := false;        ReturpakkerfraDAO1.Enabled := false;
839        Returpakkerfraboghandler1.Enabled := false;        Returpakkerfraboghandler1.Enabled := false;
840  // 20150317: start  
841        Pakkeshoplevering1.Enabled := false;        Pakkeshoplevering1.Enabled := false;
842        Returpakkerfrapakkeshop1.Enabled := false;        Returpakkerfrapakkeshop1.Enabled := false;
843  // 20150317: slut  
844        if SpecialVersionScanningtype = 'A' then        if SpecialVersionScanningtype = 'A' then
845        begin        begin
846           Scanningtype := '1';           Scanningtype := '1';
# Line 863  begin Line 871  begin
871        PanelValg6.Enabled := false;        PanelValg6.Enabled := false;
872        PanelValg6.Font.Color := clInactiveCaption;        PanelValg6.Font.Color := clInactiveCaption;
873       // 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
874  // 20150317: start  
875        Automatiskvalg1.Enabled := false;        Automatiskvalg1.Enabled := false;
876  // 20150317: slut  
877        Pakkernormal1.Enabled := false;        Pakkernormal1.Enabled := false;
878        ReturpakkerfraDAO1.Enabled := false;        ReturpakkerfraDAO1.Enabled := false;
879        Returpakkerfraboghandler1.Enabled := false;        Returpakkerfraboghandler1.Enabled := false;
# Line 1000  begin Line 1008  begin
1008      if Pakketype = '1' then      if Pakketype = '1' then
1009      begin      begin
1010        Storepakker1.Checked := true;        Storepakker1.Checked := true;
1011        RadioButton1.Checked := true;        radioStorPakke.Checked := true;
1012      end      end
1013      else      else
1014      begin      begin
1015        Smpakker1.Checked := true;        Smpakker1.Checked := true;
1016        RadioButton2.Checked := true;        radioLillePakke.Checked := true;
1017      end;      end;
1018    
1019      if TestFunktionen = '1' then      if TestFunktionen = '1' then
# Line 1045  begin Line 1053  begin
1053        ScannetOkStorLyd := '';        ScannetOkStorLyd := '';
1054      end;      end;
1055    
1056  // 20150317: start  
1057      if not FileExists(ScannetOkTilTjekkodeLyd) then      if not FileExists(ScannetOkTilTjekkodeLyd) then
1058      begin      begin
1059        ScannetOkTilTjekkodeLyd := '';        ScannetOkTilTjekkodeLyd := '';
1060      end;      end;
1061  // 20150317: slut  
1062    
1063      if (PrinterNavn <> '') then      if (PrinterNavn <> '') then
1064      begin      begin
# Line 1083  begin Line 1091  begin
1091          InitBladhus();          InitBladhus();
1092        end;        end;
1093    
1094  // 20150310: start  
1095      // Opbygger PanelManglendePakker information      // Opbygger PanelManglendePakker information
1096      gemScanningtype := Scanningtype;      gemScanningtype := Scanningtype;
1097    
# Line 1124  begin Line 1132  begin
1132      end;      end;
1133    
1134      Scanningtype := gemScanningtype;      Scanningtype := gemScanningtype;
 // 20150310: slut  
1135    
1136      SendInfoTilServer(Sted, Scanningtype, 'Begin', '');      SendInfoTilServer(Sted, Scanningtype, 'Begin', '');
1137      SendInfoTilServer(Sted, Scanningtype, 'ProgramVersion', Sto_GetFmtFileVersion('',''));      SendInfoTilServer(Sted, Scanningtype, 'ProgramVersion', Sto_GetFmtFileVersion('',''));
# Line 1170  begin Line 1177  begin
1177      ClipboardData := Clipboard.AsText;      ClipboardData := Clipboard.AsText;
1178      numberString := ClipboardData;      numberString := ClipboardData;
1179      Val(numberString, float, errorPos);      Val(numberString, float, errorPos);
1180  // 20150311: start  
1181  //    if (ClipboardData <> '') and (errorPos = 0) then      //    if (ClipboardData <> '') and (errorPos = 0) then
1182      if (ClipboardData <> '') and (errorPos = 0)      if (ClipboardData <> '') and (errorPos = 0)
1183      or (NumberString = 'Nulstil')      or (NumberString = 'Nulstil')
1184      or (NumberString = 'Indtast kundenummer')      or (NumberString = 'Indtast kundenummer')
# Line 1186  begin Line 1193  begin
1193      or (NumberString = 'DAO DIREKTE')      or (NumberString = 'DAO DIREKTE')
1194      or (NumberString = 'DAO PAKKESHOP')      or (NumberString = 'DAO PAKKESHOP')
1195      or (NumberString = 'Retur fra pakkeshop') then      or (NumberString = 'Retur fra pakkeshop') then
1196  // 20150311: slut  
1197      begin      begin
1198        Stregkode := Stregkode + ClipboardData;        Stregkode := Stregkode + ClipboardData;
1199        StregkodeST.Caption := StregKode;        StregkodeST.Caption := StregKode;
# Line 1199  begin Line 1206  begin
1206    
1207    if Key = #13 then     // Enter    if Key = #13 then     // Enter
1208    begin    begin
 // 20150306: start  
1209      if (Length(Trim(Stregkode)) = 0) then      if (Length(Trim(Stregkode)) = 0) then
1210      begin      begin
1211        PlaySound(PWideChar(AlarmLyd));        PlaySound(PWideChar(AlarmLyd));
1212        List1msg := 'Der skal scannes en stregkode...';        List1msg := 'Der skal scannes en stregkode...';
1213        ListBox1.Items.Insert(0,List1Msg);        ListBox1.Items.Insert(0,List1Msg);
1214        MainForm.Color := clRed;        MainForm.Color := clRed;
 // 20150316: start  
1215        RuteNummerST.Caption := '';        RuteNummerST.Caption := '';
1216        BoghandlerNavnST.Caption := '';        BoghandlerNavnST.Caption := '';
 // 20150316: slut  
1217        KommentarST.Caption := List1msg;        KommentarST.Caption := List1msg;
1218        PakkeshopNulstil.Visible := true;        PakkeshopNulstil.Visible := true;
1219        exit;        exit;
1220      end;      end;
 // 20150306: slut  
1221    
 // 20150311: start  
1222      if StregKode = 'Nulstil' then      if StregKode = 'Nulstil' then
1223      begin      begin
1224         PakkeshopNulstil.Click();         PakkeshopNulstil.Click();
# Line 1226  begin Line 1228  begin
1228      if PakkeshopNulstil.Visible then      if PakkeshopNulstil.Visible then
1229      begin      begin
1230         PlaySound(PWideChar(AlarmLyd));         PlaySound(PWideChar(AlarmLyd));
 // 20150312: start  
 //       List1msg := 'HUSK at trykke Nulstil før ny scanning...';  
1231         List1msg := 'HUSK at klikke Nulstil før ny scanning...';         List1msg := 'HUSK at klikke Nulstil før ny scanning...';
1232  // 20150312: slut  
1233         ListBox1.Items.Insert(0,List1Msg);         ListBox1.Items.Insert(0,List1Msg);
1234         MainForm.Color := clRed;         MainForm.Color := clRed;
1235         KommentarST.Caption := List1msg;         KommentarST.Caption := List1msg;
 // 20150312: start  
1236         Stregkode := '';         Stregkode := '';
1237         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
 // 20150312: slut  
1238         exit;         exit;
1239      end;      end;
1240    
1241      if StregKode = 'Lille pakke' then      if StregKode = 'Lille pakke' then
1242      begin      begin
1243         if RadioButton2.Enabled = true then         if radioLillePakke.Enabled = true then
1244         begin         begin
1245            InitLillePakke();            InitLillePakke();
1246         end         end
# Line 1254  begin Line 1252  begin
1252           List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';           List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';
1253           ListBox1.Items.Insert(0,List1Msg);           ListBox1.Items.Insert(0,List1Msg);
1254           MainForm.Color := clRed;           MainForm.Color := clRed;
 // 20150316: start  
1255           RuteNummerST.Caption := '';           RuteNummerST.Caption := '';
1256           BoghandlerNavnST.Caption := '';           BoghandlerNavnST.Caption := '';
 // 20150316: slut  
1257           KommentarST.Caption := List1msg;           KommentarST.Caption := List1msg;
1258           PakkeshopNulstil.Visible := true;           PakkeshopNulstil.Visible := true;
1259         end;         end;
# Line 1268  begin Line 1264  begin
1264    
1265      if StregKode = 'Stor pakke' then      if StregKode = 'Stor pakke' then
1266      begin      begin
1267         if RadioButton1.Enabled = true then         if radioStorPakke.Enabled = true then
1268         begin         begin
1269            InitStorPakke();            InitStorPakke();
1270         end         end
# Line 1280  begin Line 1276  begin
1276           List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';           List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';
1277           ListBox1.Items.Insert(0,List1Msg);           ListBox1.Items.Insert(0,List1Msg);
1278           MainForm.Color := clRed;           MainForm.Color := clRed;
 // 20150316: start  
1279           RuteNummerST.Caption := '';           RuteNummerST.Caption := '';
1280           BoghandlerNavnST.Caption := '';           BoghandlerNavnST.Caption := '';
1281  // 20150316: slut  
1282           KommentarST.Caption := List1msg;           KommentarST.Caption := List1msg;
1283           PakkeshopNulstil.Visible := true;           PakkeshopNulstil.Visible := true;
1284         end;         end;
# Line 1294  begin Line 1289  begin
1289    
1290      if StregKode = 'Indtast kundenummer' then      if StregKode = 'Indtast kundenummer' then
1291      begin      begin
1292         if CheckBox1.Enabled = true then         if chkSporgEfterKunde.Enabled = true then
1293         begin         begin
1294           if (CheckBox1.State = cbChecked) then           if (chkSporgEfterKunde.State = cbChecked) then
1295           begin           begin
1296            CheckBox1.State := cbUnchecked;            chkSporgEfterKunde.State := cbUnchecked;
1297           end           end
1298           else           else
1299           begin           begin
1300            CheckBox1.State := cbChecked;            chkSporgEfterKunde.State := cbChecked;
1301           end;           end;
1302         end         end
1303         else         else
# Line 1313  begin Line 1308  begin
1308           List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';           List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';
1309           ListBox1.Items.Insert(0,List1Msg);           ListBox1.Items.Insert(0,List1Msg);
1310           MainForm.Color := clRed;           MainForm.Color := clRed;
 // 20150316: start  
1311           RuteNummerST.Caption := '';           RuteNummerST.Caption := '';
1312           BoghandlerNavnST.Caption := '';           BoghandlerNavnST.Caption := '';
 // 20150316: slut  
1313           KommentarST.Caption := List1msg;           KommentarST.Caption := List1msg;
1314           PakkeshopNulstil.Visible := true;           PakkeshopNulstil.Visible := true;
1315         end;         end;
# Line 1327  begin Line 1320  begin
1320    
1321      if (Stregkode = 'Scan tjekkode') or (PakkeshopStregkode = 'Scan tjekkode') or (BoghandlerStregkode = 'Scan tjekkode') then      if (Stregkode = 'Scan tjekkode') or (PakkeshopStregkode = 'Scan tjekkode') or (BoghandlerStregkode = 'Scan tjekkode') then
1322      begin      begin
1323        if CheckBox3.Enabled = true then        if chkScanTjekkode.Enabled = true then
1324        begin        begin
1325           if (CheckBox3.State = cbChecked) then           if (chkScanTjekkode.State = cbChecked) then
1326           begin           begin
1327            CheckBox3.State := cbUnchecked;            chkScanTjekkode.State := cbUnchecked;
1328           end           end
1329           else           else
1330           begin           begin
1331            CheckBox3.State := cbChecked;            chkScanTjekkode.State := cbChecked;
1332           end;           end;
1333        end        end
1334        else        else
# Line 1346  begin Line 1339  begin
1339           List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';           List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';
1340           ListBox1.Items.Insert(0,List1Msg);           ListBox1.Items.Insert(0,List1Msg);
1341           MainForm.Color := clRed;           MainForm.Color := clRed;
 // 20150316: start  
1342           RuteNummerST.Caption := '';           RuteNummerST.Caption := '';
1343           BoghandlerNavnST.Caption := '';           BoghandlerNavnST.Caption := '';
 // 20150316: slut  
1344           KommentarST.Caption := List1msg;           KommentarST.Caption := List1msg;
1345           PakkeshopNulstil.Visible := true;           PakkeshopNulstil.Visible := true;
1346        end;        end;
# Line 1372  begin Line 1363  begin
1363           List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';           List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';
1364           ListBox1.Items.Insert(0,List1Msg);           ListBox1.Items.Insert(0,List1Msg);
1365           MainForm.Color := clRed;           MainForm.Color := clRed;
 // 20150316: start  
1366           RuteNummerST.Caption := '';           RuteNummerST.Caption := '';
1367           BoghandlerNavnST.Caption := '';           BoghandlerNavnST.Caption := '';
 // 20150316: slut  
1368           KommentarST.Caption := List1msg;           KommentarST.Caption := List1msg;
1369           PakkeshopNulstil.Visible := true;           PakkeshopNulstil.Visible := true;
1370         end;         end;
# Line 1384  begin Line 1373  begin
1373         exit;         exit;
1374      end;      end;
1375    
1376  // 20150323: start  
 //    if StregKode = 'DAO NAT X-PRESS' then  
1377      if (StregKode = 'DAO NAT X-PRESS' ) or (StregKode = 'DAO NAT X+PRESS') then      if (StregKode = 'DAO NAT X-PRESS' ) or (StregKode = 'DAO NAT X+PRESS') then
 // 20150323: slut  
1378      begin      begin
1379         if (PanelValg1.Enabled = true) then         if (PanelValg1.Enabled = true) then
1380         begin         begin
# Line 1401  begin Line 1388  begin
1388           List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';           List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';
1389           ListBox1.Items.Insert(0,List1Msg);           ListBox1.Items.Insert(0,List1Msg);
1390           MainForm.Color := clRed;           MainForm.Color := clRed;
1391  // 20150316: start  
1392           RuteNummerST.Caption := '';           RuteNummerST.Caption := '';
1393           BoghandlerNavnST.Caption := '';           BoghandlerNavnST.Caption := '';
1394  // 20150316: slut  
1395           KommentarST.Caption := List1msg;           KommentarST.Caption := List1msg;
1396           PakkeshopNulstil.Visible := true;           PakkeshopNulstil.Visible := true;
1397         end;         end;
# Line 1427  begin Line 1414  begin
1414           List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';           List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';
1415           ListBox1.Items.Insert(0,List1Msg);           ListBox1.Items.Insert(0,List1Msg);
1416           MainForm.Color := clRed;           MainForm.Color := clRed;
1417  // 20150316: start  
1418           RuteNummerST.Caption := '';           RuteNummerST.Caption := '';
1419           BoghandlerNavnST.Caption := '';           BoghandlerNavnST.Caption := '';
1420  // 20150316: slut  
1421           KommentarST.Caption := List1msg;           KommentarST.Caption := List1msg;
1422           PakkeshopNulstil.Visible := true;           PakkeshopNulstil.Visible := true;
1423         end;         end;
# Line 1453  begin Line 1440  begin
1440           List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';           List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';
1441           ListBox1.Items.Insert(0,List1Msg);           ListBox1.Items.Insert(0,List1Msg);
1442           MainForm.Color := clRed;           MainForm.Color := clRed;
1443  // 20150316: start  
1444           RuteNummerST.Caption := '';           RuteNummerST.Caption := '';
1445           BoghandlerNavnST.Caption := '';           BoghandlerNavnST.Caption := '';
1446  // 20150316: slut  
1447           KommentarST.Caption := List1msg;           KommentarST.Caption := List1msg;
1448           PakkeshopNulstil.Visible := true;           PakkeshopNulstil.Visible := true;
1449         end;         end;
# Line 1479  begin Line 1466  begin
1466           List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';           List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';
1467           ListBox1.Items.Insert(0,List1Msg);           ListBox1.Items.Insert(0,List1Msg);
1468           MainForm.Color := clRed;           MainForm.Color := clRed;
1469  // 20150316: start  
1470           RuteNummerST.Caption := '';           RuteNummerST.Caption := '';
1471           BoghandlerNavnST.Caption := '';           BoghandlerNavnST.Caption := '';
1472  // 20150316: slut  
1473           KommentarST.Caption := List1msg;           KommentarST.Caption := List1msg;
1474           PakkeshopNulstil.Visible := true;           PakkeshopNulstil.Visible := true;
1475         end;         end;
# Line 1505  begin Line 1492  begin
1492           List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';           List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';
1493           ListBox1.Items.Insert(0,List1Msg);           ListBox1.Items.Insert(0,List1Msg);
1494           MainForm.Color := clRed;           MainForm.Color := clRed;
1495  // 20150316: start  
1496           RuteNummerST.Caption := '';           RuteNummerST.Caption := '';
1497           BoghandlerNavnST.Caption := '';           BoghandlerNavnST.Caption := '';
1498  // 20150316: slut  
1499           KommentarST.Caption := List1msg;           KommentarST.Caption := List1msg;
1500           PakkeshopNulstil.Visible := true;           PakkeshopNulstil.Visible := true;
1501         end;         end;
# Line 1531  begin Line 1518  begin
1518           List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';           List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';
1519           ListBox1.Items.Insert(0,List1Msg);           ListBox1.Items.Insert(0,List1Msg);
1520           MainForm.Color := clRed;           MainForm.Color := clRed;
1521  // 20150316: start  
1522           RuteNummerST.Caption := '';           RuteNummerST.Caption := '';
1523           BoghandlerNavnST.Caption := '';           BoghandlerNavnST.Caption := '';
1524  // 20150316: slut  
1525           KommentarST.Caption := List1msg;           KommentarST.Caption := List1msg;
1526           PakkeshopNulstil.Visible := true;           PakkeshopNulstil.Visible := true;
1527         end;         end;
# Line 1542  begin Line 1529  begin
1529         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
1530         exit;         exit;
1531      end;      end;
1532  // 20150311: slut  
1533    
1534      if (Length(Stregkode) > 8) then      if (Length(Stregkode) > 8) then
1535      begin      begin
# Line 1601  begin Line 1588  begin
1588         List1msg := 'Pakketype ' + Pakketype + ' kan ikke scannes på dette scanningsted';         List1msg := 'Pakketype ' + Pakketype + ' kan ikke scannes på dette scanningsted';
1589         ListBox1.Items.Insert(0,List1Msg);         ListBox1.Items.Insert(0,List1Msg);
1590         MainForm.Color := clRed;         MainForm.Color := clRed;
1591  // 20150316: start  
1592         RuteNummerST.Caption := '';         RuteNummerST.Caption := '';
1593         BoghandlerNavnST.Caption := '';         BoghandlerNavnST.Caption := '';
1594  // 20150316: slut  
1595         KommentarST.Caption := List1msg;         KommentarST.Caption := List1msg;
1596         PakkeshopNulstil.Visible := true;         PakkeshopNulstil.Visible := true;
1597  // 20150311: start  
1598         StregKode := '';         StregKode := '';
1599         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
1600  // 20150311: slut  
1601         exit;         exit;
1602      end;      end;
1603    
# Line 1626  begin Line 1613  begin
1613              end;              end;
1614            end            end
1615        // Retur kan ikke scannes med 'Automatisk valg'        // Retur kan ikke scannes med 'Automatisk valg'
1616  (*  
       else if Pakketype = 'NatXpressReturDAO' then  
           begin  
             if Scanningtype <> '2' then  
             begin  
               Scanningtype := '2';  
               InitReturFraDao();  
             end;  
           end  
       else if Pakketype = 'NatXpressReturKunde' then  
           begin  
             if Scanningtype <> '3' then  
             begin  
               Scanningtype := '3';  
               InitReturFraKunde();  
             end;  
           end  
 *)  
1617        else if Pakketype = 'Direkte' then        else if Pakketype = 'Direkte' then
1618            begin            begin
1619              if Scanningtype <> '4' then              if Scanningtype <> '4' then
# Line 1661  begin Line 1631  begin
1631              end;              end;
1632            end            end
1633        // Retur kan ikke scannes med 'Automatisk valg'        // Retur kan ikke scannes med 'Automatisk valg'
1634  (*  
       else if Pakketype = 'PakkeshopRetur' then  
           begin  
             if Scanningtype <> '6' then  
             begin  
               Scanningtype := '6';  
               InitReturFraPakkeshop();  
             end;  
           end  
 *)  
1635        else        else
1636            begin   // Her skal komme en alarm og rød skærm            begin   // Her skal komme en alarm og rød skærm
1637               PlaySound(PWideChar(AlarmLyd));               PlaySound(PWideChar(AlarmLyd));
1638               List1msg := 'Pakken kan ikke scannes med automatisk valg';               List1msg := 'Pakken kan ikke scannes med automatisk valg';
1639               ListBox1.Items.Insert(0,List1Msg);               ListBox1.Items.Insert(0,List1Msg);
1640               MainForm.Color := clRed;               MainForm.Color := clRed;
1641  // 20150316: start  
1642               RuteNummerST.Caption := '';               RuteNummerST.Caption := '';
1643               BoghandlerNavnST.Caption := '';               BoghandlerNavnST.Caption := '';
1644  // 20150316: slut  
1645               KommentarST.Caption := List1msg;               KommentarST.Caption := List1msg;
1646               PakkeshopNulstil.Visible := true;               PakkeshopNulstil.Visible := true;
1647  // 20150311: start  
1648               StregKode := '';               StregKode := '';
1649               StregkodeST.Caption := StregKode;               StregkodeST.Caption := StregKode;
1650  // 20150311: slut  
1651               exit;               exit;
1652            end;            end;
1653        Stregkode := GemStregkode;        Stregkode := GemStregkode;
# Line 1697  begin Line 1658  begin
1658        List1msg := 'Pakkenummer ikke gyldigt (for kort)';        List1msg := 'Pakkenummer ikke gyldigt (for kort)';
1659        ListBox1.Items.Insert(0,List1Msg);        ListBox1.Items.Insert(0,List1Msg);
1660        MainForm.Color := clRed;        MainForm.Color := clRed;
1661  // 20150316: start  
1662        RuteNummerST.Caption := '';        RuteNummerST.Caption := '';
1663        BoghandlerNavnST.Caption := '';        BoghandlerNavnST.Caption := '';
1664  // 20150316: slut  
1665        KommentarST.Caption := List1msg;        KommentarST.Caption := List1msg;
1666        PakkeshopNulstil.Visible := true;        PakkeshopNulstil.Visible := true;
1667  // 20150312: start  
1668        StregKode := '';        StregKode := '';
1669        StregkodeST.Caption := StregKode;        StregkodeST.Caption := StregKode;
1670  // 20150312: slut  
1671        exit;        exit;
1672      end;      end;
1673    
# Line 1718  begin Line 1679  begin
1679          List1msg := 'Pakke findes som pakketype: ' + Pakketype;          List1msg := 'Pakke findes som pakketype: ' + Pakketype;
1680          ListBox1.Items.Insert(0,List1Msg);          ListBox1.Items.Insert(0,List1Msg);
1681          MainForm.Color := clRed;          MainForm.Color := clRed;
1682  // 20150316: start  
1683           RuteNummerST.Caption := '';           RuteNummerST.Caption := '';
1684           BoghandlerNavnST.Caption := '';           BoghandlerNavnST.Caption := '';
1685  // 20150316: slut  
1686          KommentarST.Caption := List1msg;          KommentarST.Caption := List1msg;
1687          PakkeshopNulstil.Visible := true;          PakkeshopNulstil.Visible := true;
 // 20150312: start  
1688          StregKode := '';          StregKode := '';
1689          StregkodeST.Caption := StregKode;          StregkodeST.Caption := StregKode;
 // 20150312: slut  
1690          exit;          exit;
1691        end;        end;
1692      end;      end;
1693    
 // 20150311: start  
 (*  
     if StregKode = 'Nulstil' then  
     begin  
        PakkeshopNulstil.Click();  
        exit;  
     end;  
   
     if PakkeshopNulstil.Visible then  
     begin  
        PlaySound(PWideChar(AlarmLyd));  
        List1msg := 'HUSK at trykke Nulstil før ny scanning...';  
        ListBox1.Items.Insert(0,List1Msg);  
        MainForm.Color := clRed;  
        KommentarST.Caption := List1msg;  
        exit;  
     end;  
   
     if StregKode = 'Lille pakke' then  
     begin  
        InitLillePakke();  
        exit;  
     end;  
   
     if StregKode = 'Stor pakke' then  
     begin  
        InitStorPakke();  
        exit;  
     end;  
   
     if StregKode = 'Indtast kundenummer' then  
     begin  
        if (CheckBox1.State = cbChecked) then  
        begin  
         CheckBox1.State := cbUnchecked;  
        end  
        else  
        begin  
         CheckBox1.State := cbChecked;  
        end;  
        Stregkode := '';  
        exit;  
     end;  
   
     if (Stregkode = 'Scan tjekkode') or (PakkeshopStregkode = 'Scan tjekkode') or (BoghandlerStregkode = 'Scan tjekkode') then  
     begin  
        if (CheckBox3.State = cbChecked) then  
        begin  
         CheckBox3.State := cbUnchecked;  
        end  
        else  
        begin  
         CheckBox3.State := cbChecked;  
        end;  
        Stregkode := '';  
        exit;  
     end;  
 *)  
 // 20150311: slut  
1694    
1695    
1696      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and Automatisktjekkodestyring1.Checked then      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and Automatisktjekkodestyring1.Checked then
1697      begin      begin
1698        CheckBox3.Checked := false;        chkScanTjekkode.Checked := false;
1699        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do
1700        begin        begin
1701          if (Stregkode=stregkoderMedTjekkodeArray[i]) then          if (Stregkode=stregkoderMedTjekkodeArray[i]) then
1702          begin          begin
1703              CheckBox3.Checked := true;              chkScanTjekkode.Checked := true;
1704              Scanogstjekkoden1.Checked := true;              Scanogstjekkoden1.Checked := true;
1705          end;          end;
1706        end;        end;
# Line 2026  begin Line 1926  begin
1926    
1927    Key := #0;    Key := #0;
1928    
1929  end;  end; //End of OnKeyPress
1930    
1931  procedure TMainForm.SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);  procedure TMainForm.SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);
1932  const  const
# Line 2063  end; Line 1963  end;
1963    
1964  procedure TMainForm.SletStregkodelinieFraListboks2(StregKode : String);  procedure TMainForm.SletStregkodelinieFraListboks2(StregKode : String);
1965  var  var
 // 20150309: start  
 //  i:integer;  
1966    i : Integer;    i : Integer;
1967    wrkAntal : String;    wrkAntal : String;
1968    wrkAntalIdag, wrkAntalSenere : Integer;    wrkAntalIdag, wrkAntalSenere : Integer;
1969  // 20150309: slut  
1970    
1971  begin  begin
1972      if Budlevering1.Checked or Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked or Pakkernormal1.Checked then      if Budlevering1.Checked or Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked or Pakkernormal1.Checked then
# Line 2076  begin Line 1974  begin
1974        for i := ListBox2.items.count-1 downto 0 do        for i := ListBox2.items.count-1 downto 0 do
1975          if pos(StregKode,ListBox2.items[i]) <> 0 then          if pos(StregKode,ListBox2.items[i]) <> 0 then
1976          begin          begin
1977  // 20150309: start  
1978            // Ajourføring af tæller for manglende pakker (scanninger)            // Ajourføring af tæller for manglende pakker (scanninger)
1979            wrkAntal := StaticTextManglendePakker.Caption;            wrkAntal := StaticTextManglendePakker.Caption;
1980            if (pos('/', wrkAntal) > 0) then  // både pakker idag og senere            if (pos('/', wrkAntal) > 0) then  // både pakker idag og senere
# Line 2112  begin Line 2010  begin
2010            begin            begin
2011              StaticTextManglendePakker.Caption := IntToStr(wrkAntalIdag);              StaticTextManglendePakker.Caption := IntToStr(wrkAntalIdag);
2012            end;            end;
 // 20150309: slut  
2013    
 // 20150310: start  
2014            if (Scanningtype = '1') then            if (Scanningtype = '1') then
2015            begin            begin
2016              PanelManglendePakker1.Caption := IntToStr(wrkAntalIdag + wrkAntalSenere);              PanelManglendePakker1.Caption := IntToStr(wrkAntalIdag + wrkAntalSenere);
# Line 2297  begin Line 2193  begin
2193              Testprinter1.Visible := true;              Testprinter1.Visible := true;
2194              Smpakker1.Enabled := true;              Smpakker1.Enabled := true;
2195              Storepakker1.Enabled := true;              Storepakker1.Enabled := true;
2196              RadioButton1.Enabled := true;              radioStorPakke.Enabled := true;
2197              RadioButton2.Enabled := true;              radioLillePakke.Enabled := true;
2198              DownloadButton01.Enabled := false;     // kontrolfil bruges ikke her              DownloadButton01.Enabled := false;     // kontrolfil bruges ikke her
2199              OpdaterListenButton01.Enabled := true;              OpdaterListenButton01.Enabled := true;
2200              IdFTP1.Passive := true;              IdFTP1.Passive := true;
# Line 2335  begin Line 2231  begin
2231              Testprinter1.Visible := true;              Testprinter1.Visible := true;
2232              Smpakker1.Enabled := true;              Smpakker1.Enabled := true;
2233              Storepakker1.Enabled := true;              Storepakker1.Enabled := true;
2234              RadioButton1.Enabled := true;              radioStorPakke.Enabled := true;
2235              RadioButton2.Enabled := true;              radioLillePakke.Enabled := true;
2236              DownloadButton01.Enabled := false;    // kontrolfil bruges ikke her              DownloadButton01.Enabled := false;    // kontrolfil bruges ikke her
2237              OpdaterListenButton01.Enabled := true;              OpdaterListenButton01.Enabled := true;
2238              IdFTP1.Passive := true;              IdFTP1.Passive := true;
# Line 2355  var Line 2251  var
2251    pakkestorrelse : String;    pakkestorrelse : String;
2252    PrintNyLabelInteger : Integer;    PrintNyLabelInteger : Integer;
2253  begin  begin
2254    if RadioButton1.Checked then    if radioStorPakke.Checked then
2255    begin    begin
2256      pakkestorrelse := 'Stor';      pakkestorrelse := 'Stor';
2257    end;    end;
2258    if RadioButton2.Checked then    if radioLillePakke.Checked then
2259    begin    begin
2260      pakkestorrelse := 'Lille';      pakkestorrelse := 'Lille';
2261    end;    end;
# Line 2425  begin Line 2321  begin
2321        BoghandlerNavn := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNr').Text;        BoghandlerNavn := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNr').Text;
2322        BoghandlerNavn := BoghandlerNavn + ' ' + XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;        BoghandlerNavn := BoghandlerNavn + ' ' + XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;
2323        PrintNyLabel := False;        PrintNyLabel := False;
2324  // 20150310: start  
2325        if Pakkeshoplevering1.Checked then        if Pakkeshoplevering1.Checked then
2326        begin        begin
 // 20150310: slut  
2327          try          try
2328            PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text);            PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text);
2329          except on e:exception do          except on e:exception do
# Line 2514  begin Line 2409  begin
2409    if Pakkeshoplevering1.Checked then    if Pakkeshoplevering1.Checked then
2410      List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; ';      List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; ';
2411    List1Pakkestorrelse := '';    List1Pakkestorrelse := '';
2412    if RadioButton1.Checked then    if radioStorPakke.Checked then
2413    begin    begin
2414      List1Pakkestorrelse := 'Stor pakke';      List1Pakkestorrelse := 'Stor pakke';
2415    end;    end;
2416    if RadioButton2.Checked then    if radioLillePakke.Checked then
2417    begin    begin
2418      List1Pakkestorrelse := 'Lille pakke';      List1Pakkestorrelse := 'Lille pakke';
2419    end;    end;
# Line 2540  begin Line 2435  begin
2435    if Budlevering1.Checked then    if Budlevering1.Checked then
2436    begin    begin
2437       List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn;       List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn;
2438        if (RadioButton1.Checked) then        if (radioStorPakke.Checked) then
2439        begin        begin
2440          List1msg := List1msg + '; Stor pakke';          List1msg := List1msg + '; Stor pakke';
2441        end;        end;
2442        if (RadioButton2.Checked) then        if (radioLillePakke.Checked) then
2443        begin        begin
2444          List1msg := List1msg + '; Lille pakke';          List1msg := List1msg + '; Lille pakke';
2445        end;        end;
# Line 2601  begin Line 2496  begin
2496    end;    end;
2497    pakkeForkertSted := pos('burde være hos', Kommentar);    pakkeForkertSted := pos('burde være hos', Kommentar);
2498    
2499  // 20150306: start  
2500  //  if Sprgefterboghandlernummer1.Enabled and CheckBox1.Checked and (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) or (pakkeForkertSted > 0) then    if Sprgefterboghandlernummer1.Enabled and chkSporgEfterKunde.Checked and ( (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) or (pakkeForkertSted > 0) ) then
2501    if Sprgefterboghandlernummer1.Enabled and CheckBox1.Checked and ( (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) or (pakkeForkertSted > 0) ) then  
 // 20150306: slut  
2502    begin    begin
2503        if (RuteNummer = 'Ukendt') then        if (RuteNummer = 'Ukendt') then
2504        begin        begin
# Line 2631  begin Line 2525  begin
2525       if (BoghandlerNavn = 'Ukendt pakke') then       if (BoghandlerNavn = 'Ukendt pakke') then
2526       begin       begin
2527          PrintNyLabel := false;          PrintNyLabel := false;
2528  // 20150306: start  
 //        PlaySound(PWideChar(AlarmLyd));  
2529          PlaySound(PWideChar(AlarmLyd));          PlaySound(PWideChar(AlarmLyd));
2530          MainForm.Color := clRed;          MainForm.Color := clRed;
2531          PakkeshopNulstil.Visible := true;          PakkeshopNulstil.Visible := true;
2532  // 20150306: slut  
2533       end       end
2534       else       else
2535       begin       begin
# Line 2652  begin Line 2545  begin
2545            ListBox1.Items.Insert(0,List1Msg);            ListBox1.Items.Insert(0,List1Msg);
2546            logTekst := RightStr(List1Msg, Length(List1Msg)-10);            logTekst := RightStr(List1Msg, Length(List1Msg)-10);
2547            SkrivScanningLogFil(logTekst);            SkrivScanningLogFil(logTekst);
2548  // 20150213: start  
2549            if (PrinterNavn = 'Ingen') then            if (PrinterNavn = 'Ingen') then
2550            begin            begin
2551               PrintNyLabel := false;               PrintNyLabel := false;
2552            end;            end;
2553  // 20150313: slut  
 // 20150306: start  
 //          PlaySound(PWideChar(AlarmLyd));  
2554            if (PrintNyLabel = false) then  // Hvis vi ikke printer label skal vi vise en 'rød skærm' alarm            if (PrintNyLabel = false) then  // Hvis vi ikke printer label skal vi vise en 'rød skærm' alarm
2555            begin            begin
2556              PlaySound(PWideChar(AlarmLyd));              PlaySound(PWideChar(AlarmLyd));
2557              MainForm.Color := clRed;              MainForm.Color := clRed;
2558              PakkeshopNulstil.Visible := true;              PakkeshopNulstil.Visible := true;
2559            end;            end;
2560  // 20150306: slut  
2561         end;         end;
2562         kontrolKoreliste := TjekKoreliste(RuteNummer, Koreliste);         kontrolKoreliste := TjekKoreliste(RuteNummer, Koreliste);
2563         if (kontrolKoreliste <> RuteNummer) then         if (kontrolKoreliste <> RuteNummer) then
# Line 2685  begin Line 2576  begin
2576            ListBox1.Items.Insert(0,List1Msg);            ListBox1.Items.Insert(0,List1Msg);
2577            logTekst := RightStr(List1Msg, Length(List1Msg)-10);            logTekst := RightStr(List1Msg, Length(List1Msg)-10);
2578            SkrivScanningLogFil(logTekst);            SkrivScanningLogFil(logTekst);
2579  // 20150306: start  
 //          PlaySound(PWideChar(AlarmLyd));  
2580            if (PrintNyLabel = false) then  // Hvis vi ikke printer label skal vi vise en 'rød skærm' alarm            if (PrintNyLabel = false) then  // Hvis vi ikke printer label skal vi vise en 'rød skærm' alarm
2581            begin            begin
2582              PlaySound(PWideChar(AlarmLyd));              PlaySound(PWideChar(AlarmLyd));
2583              MainForm.Color := clRed;              MainForm.Color := clRed;
2584              PakkeshopNulstil.Visible := true;              PakkeshopNulstil.Visible := true;
2585            end;            end;
2586  // 20150306: slut  
 // 20150306: start  
 //       end  
 //       else  
 //       begin  
2587         end;         end;
2588       end;       end;
2589    
# Line 2757  begin Line 2643  begin
2643      exit;      exit;
2644    end;    end;
2645    
2646    if Budlevering1.Checked or ( Sprgefterboghandlernummer1.Enabled and CheckBox1.Checked and ( (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) ) and (printNyLabel = false) ) then    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
2647    begin    begin
2648    end    end
2649    else    else
2650    begin    begin
2651      if ( (PrinterNavn <> 'Ingen') and (PrintNyLabel or CheckBox2.Checked) and (RuteNummer <> 'Ukendt') or (RuteNummer = 'Rutenr')) then      if ( (PrinterNavn <> 'Ingen') and (PrintNyLabel or chkAltidPrintLabel.Checked) and (RuteNummer <> 'Ukendt') or (RuteNummer = 'Rutenr')) then
2652      begin      begin
2653        logTekst := 'Printer label type ';        logTekst := 'Printer label type ';
2654        if (CheckBox2.Checked) then        if (chkAltidPrintLabel.Checked) then
2655        begin        begin
2656          logTekst := logTekst + 'Alle ';          logTekst := logTekst + 'Alle ';
2657        end        end
# Line 2832  begin Line 2718  begin
2718          Canvas.TextOut(XPosSorteringsfelt2,YPosSorteringsfelt2, Leveringssted);   // sorteringsoplysning 2          Canvas.TextOut(XPosSorteringsfelt2,YPosSorteringsfelt2, Leveringssted);   // sorteringsoplysning 2
2719        end;        end;
2720        Canvas.Font.Size := FontSizeKommentar;        Canvas.Font.Size := FontSizeKommentar;
2721    
2722        Kommentar := StringReplace(Kommentar, #$A, ' - ', [rfReplaceAll, rfIgnoreCase]);        Kommentar := StringReplace(Kommentar, #$A, ' - ', [rfReplaceAll, rfIgnoreCase]);
 // 20150304: start  
2723        Kommentar := StringReplace(Kommentar, 'PAKKE ER SCANNET', '', [rfReplaceAll, rfIgnoreCase]);        Kommentar := StringReplace(Kommentar, 'PAKKE ER SCANNET', '', [rfReplaceAll, rfIgnoreCase]);
2724  // 20150304: slut  
2725        Canvas.TextOut(XPosKommentar,YPosKommentar, Kommentar);  // Kan ikke lave linieskift (se tidligere kommentar om samme)        Canvas.TextOut(XPosKommentar,YPosKommentar, Kommentar);  // Kan ikke lave linieskift (se tidligere kommentar om samme)
2726        if SmsKode <> '' then        if SmsKode <> '' then
2727        begin        begin
# Line 2849  begin Line 2735  begin
2735  end;  end;
2736    
2737    
2738  procedure TMainForm.RadioButton1Click(Sender: TObject);  procedure TMainForm.radioStorPakkeClick(Sender: TObject);
2739  begin  begin
2740      Storepakker1.Checked := true;      Storepakker1.Checked := true;
2741      RadioButton1.Checked := true;      radioStorPakke.Checked := true;
2742  end;  end;
2743    
2744  procedure TMainForm.RadioButton2Click(Sender: TObject);  procedure TMainForm.radioLillePakkeClick(Sender: TObject);
2745  begin  begin
2746      Smpakker1.Checked := true;      Smpakker1.Checked := true;
2747      RadioButton2.Checked := true;      radioLillePakke.Checked := true;
2748  end;  end;
2749    
2750    
2751  procedure TMainForm.CheckBox1Click(Sender: TObject);  procedure TMainForm.chkSporgEfterKundeClick(Sender: TObject);
2752  begin  begin
2753    if CheckBox1.Checked then    if chkSporgEfterKunde.Checked then
2754    begin    begin
2755       Sprgefterboghandlernummer1.Checked := true;       Sprgefterboghandlernummer1.Checked := true;
2756    end    end
# Line 2875  begin Line 2761  begin
2761  end;  end;
2762    
2763    
2764  procedure TMainForm.CheckBox2Click(Sender: TObject);  procedure TMainForm.chkAltidPrintLabelClick(Sender: TObject);
2765  begin  begin
2766    if CheckBox2.Checked then    if chkAltidPrintLabel.Checked then
2767    begin    begin
2768       Altidprintepakkelabel1.Checked := true;       Altidprintepakkelabel1.Checked := true;
2769    end    end
# Line 2888  begin Line 2774  begin
2774    
2775  end;  end;
2776    
2777  procedure TMainForm.CheckBox3Click(Sender: TObject);  procedure TMainForm.chkScanTjekkodeClick(Sender: TObject);
2778  begin  begin
2779    if CheckBox3.Checked then    if chkScanTjekkode.Checked then
2780    begin    begin
2781       Scanogstjekkoden1.Checked := true;       Scanogstjekkoden1.Checked := true;
2782    end    end
# Line 2912  begin Line 2798  begin
2798      Automatiskvalg1.Checked := false;      Automatiskvalg1.Checked := false;
2799      PanelValgA.Color := clBtnFace;      PanelValgA.Color := clBtnFace;
2800      PanelValgA.Font.Color := clWindowText;      PanelValgA.Font.Color := clWindowText;
2801  // 20150317: start  
2802      if (SpecialVersionSted = '01')      if (SpecialVersionSted = '01')
2803      or (SpecialVersionSted = '02')        or (SpecialVersionSted = '02')
2804      or (SpecialVersionSted = '03')        or (SpecialVersionSted = '03')
2805      or (SpecialVersionSted = '04') then        or (SpecialVersionSted = '04') then
2806      begin      begin
2807        // 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)
2808        PanelValgA.Enabled := false;        PanelValgA.Enabled := false;
# Line 3223  begin Line 3109  begin
3109            end;            end;
3110          end;          end;
3111    
3112  // 20150330: start  
3113          // Tjekker UrlEKLoverforselPakkeshop          // Tjekker UrlEKLoverforselPakkeshop
3114          if PanelValg5.Enabled = true then          if PanelValg5.Enabled = true then
3115          begin          begin
# Line 3251  begin Line 3137  begin
3137              end;              end;
3138            end;            end;
3139          end;          end;
3140  // 20150330: slut  
3141    
3142          // Tjekker UrlFindPakketype          // Tjekker UrlFindPakketype
3143          if CheckUrl(UrlFindPakketype) then          if CheckUrl(UrlFindPakketype) then
# Line 3783  begin Line 3669  begin
3669    
3670    if Sprgefterboghandlernummer1.Checked then    if Sprgefterboghandlernummer1.Checked then
3671    begin    begin
3672       CheckBox1.Checked := true;       chkSporgEfterKunde.Checked := true;
3673    end    end
3674    else    else
3675    begin    begin
3676       CheckBox1.Checked := false;       chkSporgEfterKunde.Checked := false;
3677    end;    end;
3678    
3679    
# Line 3815  begin Line 3701  begin
3701        InitForm(FarveNormal,TitelNormal,UrlNormal);        InitForm(FarveNormal,TitelNormal,UrlNormal);
3702        PanelValg1.Color := clGreen;        PanelValg1.Color := clGreen;
3703        PanelValg1.Font.Color := clWhite;        PanelValg1.Font.Color := clWhite;
3704        CheckBox1.Enabled := true;  
3705        CheckBox2.Enabled := true;        chkAltidPrintLabel.Enabled := true;
3706        Altidprintepakkelabel1.Enabled := true;        Altidprintepakkelabel1.Enabled := true;
3707        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3708        CheckBox2.Checked := false;        chkAltidPrintLabel.Checked := false;
3709        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3710        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
3711        Sprgefterboghandlernummer1.Enabled := true;        Sprgefterboghandlernummer1.Enabled := true;
3712        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3713        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
3714        RadioButton1.Enabled := false;        radioStorPakke.Enabled := false;
3715        RadioButton2.Enabled := false;        radioLillePakke.Enabled := false;
3716        ListBox1.Visible := true;        ListBox1.Visible := true;
3717        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3718        EKLoverforsel.Enabled := true;        EKLoverforsel.Enabled := true;
# Line 3847  begin Line 3733  begin
3733        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);
3734        PanelValg2.Color := clGreen;        PanelValg2.Color := clGreen;
3735        PanelValg2.Font.Color := clWhite;        PanelValg2.Font.Color := clWhite;
3736        CheckBox1.Enabled := false;  
3737        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3738        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
3739        CheckBox2.Checked := false;  
3740        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3741        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3742        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
3743        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3744        Smpakker1.Enabled := true;        Smpakker1.Enabled := true;
3745        Storepakker1.Enabled := true;        Storepakker1.Enabled := true;
3746        RadioButton1.Enabled := true;        radioStorPakke.Enabled := true;
3747        RadioButton2.Enabled := true;        radioLillePakke.Enabled := true;
3748        ListBox1.Visible := true;        ListBox1.Visible := true;
3749        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3750        ListBox2.Items.Clear;        ListBox2.Items.Clear;
# Line 3874  begin Line 3760  begin
3760        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);
3761        PanelValg3.Color := clGreen;        PanelValg3.Color := clGreen;
3762        PanelValg3.Font.Color := clWhite;        PanelValg3.Font.Color := clWhite;
3763        CheckBox1.Enabled := false;  
3764        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3765        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
       CheckBox2.Checked := false;  
3766        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3767        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3768        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
3769        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3770        Smpakker1.Enabled := true;        Smpakker1.Enabled := true;
3771        Storepakker1.Enabled := true;        Storepakker1.Enabled := true;
3772        RadioButton1.Enabled := true;        radioStorPakke.Enabled := true;
3773        RadioButton2.Enabled := true;        radioLillePakke.Enabled := true;
3774        ListBox1.Visible := true;        ListBox1.Visible := true;
3775        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3776        ListBox2.Items.Clear;        ListBox2.Items.Clear;
# Line 3901  begin Line 3786  begin
3786        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);
3787        PanelValg4.Color := clGreen;        PanelValg4.Color := clGreen;
3788        PanelValg4.Font.Color := clWhite;        PanelValg4.Font.Color := clWhite;
3789        CheckBox1.Enabled := false;  
3790        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3791        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
3792        CheckBox2.Checked := false;  
3793        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3794        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3795        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
3796        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3797        Smpakker1.Enabled := true;        Smpakker1.Enabled := true;
3798        Storepakker1.Enabled := true;        Storepakker1.Enabled := true;
3799        RadioButton1.Enabled := true;        radioStorPakke.Enabled := true;
3800        RadioButton2.Enabled := true;        radioLillePakke.Enabled := true;
3801        ListBox1.Visible := true;        ListBox1.Visible := true;
3802        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3803        DownloadButton01.Enabled := false;        DownloadButton01.Enabled := false;
# Line 3937  begin Line 3822  begin
3822        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);
3823        PanelValg5.Color := clGreen;        PanelValg5.Color := clGreen;
3824        PanelValg5.Font.Color := clWhite;        PanelValg5.Font.Color := clWhite;
3825        CheckBox1.Enabled := false;  
3826        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3827        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
3828        CheckBox2.Checked := false;  
3829        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3830        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3831        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
3832        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3833        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3834        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
3835        RadioButton1.Enabled := false;        radioStorPakke.Enabled := false;
3836        RadioButton2.Enabled := false;        radioLillePakke.Enabled := false;
3837        ListBox1.Visible := true;        ListBox1.Visible := true;
3838        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3839        DownloadButton01.Enabled := false;        DownloadButton01.Enabled := false;
3840        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3841  // 20150330: start  
 //      EKLoverforsel.Enabled := false;  
3842        EKLoverforsel.Enabled := true;        EKLoverforsel.Enabled := true;
3843  // 20150330: slut  
3844        InitLillePakke();        InitLillePakke();
3845        IndlesScanningLogFil();        IndlesScanningLogFil();
3846        if BladhusSted = 0 then        if BladhusSted = 0 then
# Line 3975  begin Line 3859  begin
3859        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);
3860        PanelValg6.Color := clGreen;        PanelValg6.Color := clGreen;
3861        PanelValg6.Font.Color := clWhite;        PanelValg6.Font.Color := clWhite;
3862        CheckBox1.Enabled := false;  
3863        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3864        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
3865        CheckBox2.Checked := false;  
3866        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3867        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3868        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
3869        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3870        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3871        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
3872        RadioButton1.Enabled := false;        radioStorPakke.Enabled := false;
3873        RadioButton2.Enabled := false;        radioLillePakke.Enabled := false;
3874        ListBox1.Visible := true;        ListBox1.Visible := true;
3875        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3876        DownloadButton01.Enabled := false;        DownloadButton01.Enabled := false;
# Line 4014  begin Line 3898  begin
3898        AutomatiskTjekkodeStyring1.Enabled := false;        AutomatiskTjekkodeStyring1.Enabled := false;
3899        Returpakkerfrapakkeshop1.Checked := true;        Returpakkerfrapakkeshop1.Checked := true;
3900        PakkeshopNulstil.Visible := false;        PakkeshopNulstil.Visible := false;
3901        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);
3902        PanelValg7.Color := clGreen;        PanelValg7.Color := clGreen;
3903        PanelValg7.Font.Color := clWhite;        PanelValg7.Font.Color := clWhite;
3904        CheckBox1.Enabled := false;  
3905        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3906        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
3907        CheckBox2.Checked := false;  
3908        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3909        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
       CheckBox1.Checked := false;  
3910        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3911          chkSporgEfterKunde.Checked := false;
3912    
3913    
3914    
3915        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3916        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
3917        RadioButton1.Enabled := false;        radioStorPakke.Enabled := false;
3918        RadioButton2.Enabled := false;        radioLillePakke.Enabled := false;
3919        ListBox1.Visible := true;        ListBox1.Visible := true;
3920        ListBox1.Items.Clear;        ListBox1.Items.Clear();
3921    
3922        DownloadButton01.Enabled := false;        DownloadButton01.Enabled := false;
3923        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3924        EKLoverforsel.Enabled := false;        EKLoverforsel.Enabled := false;
# Line 4057  end; Line 3945  end;
3945    
3946  procedure TMainForm.InitLillePakke();  procedure TMainForm.InitLillePakke();
3947  begin  begin
3948    RadioButton2.Checked := true;    radioLillePakke.Checked := true;
3949    Smpakker1.Checked := true;    Smpakker1.Checked := true;
 // 20150310: start  
3950  //  Stregkode := '';  //  Stregkode := '';
 // 20150310: slut  
3951  end;  end;
3952    
3953  procedure TMainForm.InitStorPakke();  procedure TMainForm.InitStorPakke();
3954  begin  begin
3955    RadioButton1.Checked := true;    radioStorPakke.Checked := true;
3956    Storepakker1.Checked := true;    Storepakker1.Checked := true;
3957  // 20150310: start  // 20150310: start
3958  //  Stregkode := '';  //  Stregkode := '';
# Line 4163  end; Line 4049  end;
4049    
4050  procedure TMainForm.Testlyd2Click(Sender: TObject);  procedure TMainForm.Testlyd2Click(Sender: TObject);
4051  begin  begin
 // 20150317: start  
4052    if (PakkeshopText1.Caption = 'Tjekkode') then    if (PakkeshopText1.Caption = 'Tjekkode') then
4053    begin    begin
4054       if ScannetOkTilTjekkodeLyd  <> '' then       if ScannetOkTilTjekkodeLyd  <> '' then
# Line 4176  begin Line 4061  begin
4061       end;       end;
4062       exit;       exit;
4063    end;    end;
 // 20150317: slut  
4064    
4065    if Smpakker1.Checked then    if Smpakker1.Checked then
4066       if ScannetOkLyd  <> '' then       if ScannetOkLyd  <> '' then
# Line 4185  begin Line 4069  begin
4069       end       end
4070       else       else
4071       begin       begin
 // 20150317: start  
 //       MessageBox(Handle, PWideChar('Lyd fil ikke fundet (scannet)'), 'Information', MB_OK);  
4072         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);
 // 20150317: slut  
4073       end;       end;
4074    if Storepakker1.Checked then    if Storepakker1.Checked then
4075       if ScannetOkStorLyd  <> '' then       if ScannetOkStorLyd  <> '' then
# Line 4197  begin Line 4078  begin
4078       end       end
4079       else       else
4080       begin       begin
 // 20150317: start  
 //       MessageBox(Handle, PWideChar('Lyd fil ikke fundet (scannet stor)'), 'Information', MB_OK);  
4081         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkStorLyd)'), 'Information', MB_OK);         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkStorLyd)'), 'Information', MB_OK);
 // 20150317: slut  
4082       end;       end;
4083  end;  end;
4084    
# Line 4905  var Line 4783  var
4783    pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer;    pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer;
4784    pakketyper : TStrings;    pakketyper : TStrings;
4785    antlin : Integer;    antlin : Integer;
4786  // 20150306: start  
4787    antlinIdag, antlinSenere : Integer;    antlinIdag, antlinSenere : Integer;
4788  // 20150306: slut  
4789    XmlFelter : TStrings;    XmlFelter : TStrings;
4790    
4791   begin   begin
# Line 4927  var Line 4805  var
4805          StedKode := Sted;          StedKode := Sted;
4806        end;        end;
4807    
4808  // 20150310: start  
 (*  
     if Returpakkerfrapakkeshop1.Checked then  
      begin  
       URLStr := Format(UrlPakkeshopManglendeReturScanninger,[StedKode]);  
      end  
     else if Pakkeshoplevering1.Checked then  
      begin  
       URLStr := Format(UrlPakkeshopManglendeScanninger,[StedKode]);  
      end  
     else if Pakkernormal1.Checked then  
      begin  
       URLStr := Format(UrlManglendeScanninger,[StedKode,'B2']);  
      end  
     else  
      begin  
       URLStr := Format(UrlManglendeScanninger,[StedKode,'A2']);    // Budleveringer  
      end;  
 *)  
4809      if (Scanningtype = '6') then      if (Scanningtype = '6') then
4810       begin       begin
4811        URLStr := Format(UrlPakkeshopManglendeReturScanninger,[StedKode]);        URLStr := Format(UrlPakkeshopManglendeReturScanninger,[StedKode]);
# Line 4989  var Line 4849  var
4849      try      try
4850        XMLDocument1.LoadFromXML(WebSvar);        XMLDocument1.LoadFromXML(WebSvar);
4851    
4852  // 20150206: start  
4853        antlin := 0;        antlin := 0;
4854        antlinIdag := 0;        antlinIdag := 0;
4855        antlinSenere := 0;        antlinSenere := 0;
4856  // 20150306: slut  
4857        antalFelterFundet := 0;        antalFelterFundet := 0;
4858        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin
4859            Node:= XMLDocument1.DocumentElement.ChildNodes[I];            Node:= XMLDocument1.DocumentElement.ChildNodes[I];
# Line 5026  var Line 4886  var
4886        antalFelterFundet := 0;        antalFelterFundet := 0;
4887        SetLength(stregkoderMedTjekkodeArray, 0);    // reset fra tidligere brug        SetLength(stregkoderMedTjekkodeArray, 0);    // reset fra tidligere brug
4888        SetLength(stregkoderMedTjekkodeArray, antlin);  // sæt antal elementer i array        SetLength(stregkoderMedTjekkodeArray, antlin);  // sæt antal elementer i array
4889  // 20150206: start  
 //      logTekst := 'Der er '+IntToStr(antlin)+' pakker, der endnu ikke er modtaget.';  
4890        logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget';        logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget';
4891        if (antlinSenere > 0) then        if (antlinSenere > 0) then
4892        begin        begin
4893          logTekst := logTekst + ' (' + IntToStr(antlinIdag) + ' til i dag og ' + IntToStr(antlinSenere) + ' til senere)';          logTekst := logTekst + ' (' + IntToStr(antlinIdag) + ' til i dag og ' + IntToStr(antlinSenere) + ' til senere)';
4894        end;        end;
4895        logTekst := logTekst + '.';        logTekst := logTekst + '.';
4896  // 20150306: slut  
4897        SkrivScanningLogFil(logTekst);        SkrivScanningLogFil(logTekst);
4898        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin
4899            Node:= XMLDocument1.DocumentElement.ChildNodes[I];            Node:= XMLDocument1.DocumentElement.ChildNodes[I];
# Line 5084  var Line 4943  var
4943                    begin                    begin
4944                      stregkoderMedTjekkodeArray[linienr] := stregkode;                      stregkoderMedTjekkodeArray[linienr] := stregkode;
4945                    end;                    end;
4946  // 20150306: slut                    linienr := linienr + 1;
                     linienr := linienr + 1;  
4947                  end;                  end;
4948              end;              end;
4949              if antalFelterFundet = antalLiniefelter then              if antalFelterFundet = antalLiniefelter then
# Line 5110  var Line 4968  var
4968    
4969          // Free up the list object          // Free up the list object
4970        pakketyper.Free;        pakketyper.Free;
 // 20150306: start  
4971  //      ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Der er '+IntToStr(antlin)+' pakker, der endnu ikke er modtaget.');  //      ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Der er '+IntToStr(antlin)+' pakker, der endnu ikke er modtaget.');
4972        logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget';        logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget';
4973        if (antlinSenere > 0) then        if (antlinSenere > 0) then
# Line 5119  var Line 4976  var
4976        end;        end;
4977        logTekst := logTekst + '.';        logTekst := logTekst + '.';
4978        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
 // 20150306: slut  
 // 20150309: start  
4979        if (antlinSenere > 0) then        if (antlinSenere > 0) then
4980        begin        begin
4981          StaticTextManglendePakker.Caption := IntToStr(antlinIdag) + '/' + IntToStr(antlinSenere);          StaticTextManglendePakker.Caption := IntToStr(antlinIdag) + '/' + IntToStr(antlinSenere);
# Line 5129  var Line 4984  var
4984        begin        begin
4985          StaticTextManglendePakker.Caption := IntToStr(antlinIdag);          StaticTextManglendePakker.Caption := IntToStr(antlinIdag);
4986        end;        end;
 // 20150309: slut  
4987    
 // 20150310: start  
4988        if (Scanningtype = '1') then        if (Scanningtype = '1') then
4989        begin        begin
4990          //antlinIdag := 9876;  // til test af boksens udseende ved stort tal          //antlinIdag := 9876;  // til test af boksens udseende ved stort tal
# Line 5210  var Line 5063  var
5063            PanelManglendePakker6.Visible := false;            PanelManglendePakker6.Visible := false;
5064          end;          end;
5065        end;        end;
 // 20150310: slut  
5066    
5067      except on e:exception do      except on e:exception do
5068        begin        begin
# Line 5622  procedure TMainForm.Scanogstjekkoden1Cli Line 5474  procedure TMainForm.Scanogstjekkoden1Cli
5474  begin  begin
5475    if Scanogstjekkoden1.Checked then    if Scanogstjekkoden1.Checked then
5476    begin    begin
5477       CheckBox3.Checked := true;       chkScanTjekkode.Checked := true;
5478    end    end
5479    else    else
5480    begin    begin
5481       CheckBox3.Checked := false;       chkScanTjekkode.Checked := false;
5482    end;    end;
5483  end;  end;
5484    
Legend:
Removed from v.2650  
changed lines
  Added in v.2656
  ViewVC Help
Powered by ViewVC 1.1.20