/[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 2658 by torben, Sun Aug 23 14:08:08 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 255  type Line 258  type
258      procedure IndlesScanningLogFil();      procedure IndlesScanningLogFil();
259      procedure SkrivScanningLogFil(var tekst : string);      procedure SkrivScanningLogFil(var tekst : string);
260      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;
261        procedure VisAlarmSkaerm(var List1msg: string);
262    
263    public    public
264      { Public declarations }      { Public declarations }
# Line 409  begin Line 413  begin
413      else      else
414        PakkeshopText1.Visible := false;        PakkeshopText1.Visible := false;
415    
416      CheckBox3.Checked := false;      chkScanTjekkode.Checked := false;
417      CheckBox3.Enabled := false;      chkScanTjekkode.Enabled := false;
418      Scanogstjekkoden1.Enabled := false;      Scanogstjekkoden1.Enabled := false;
419    
420      if (Scanningtype = '1') or (Scanningtype = '5') then      if (Scanningtype = '1') or (Scanningtype = '5') then
421      begin      begin
422        if (ScanTjekkode = '1') then        if (ScanTjekkode = '1') then
423        begin        begin
424          CheckBox3.Checked := true;          chkScanTjekkode.Checked := true;
425          CheckBox3.Enabled := true;          chkScanTjekkode.Enabled := true;
426          Scanogstjekkoden1.Enabled := true;          Scanogstjekkoden1.Enabled := true;
427        end        end
428        else        else
429        begin        begin
430          CheckBox3.Checked := false;          chkScanTjekkode.Checked := false;
431          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
432          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
433        end;        end;
434      end;      end;
435    
436      if Automatisktjekkodestyring1.Checked then      if Automatisktjekkodestyring1.Checked then
437      begin      begin
438        CheckBox3.Enabled := false;        chkScanTjekkode.Enabled := false;
439        Scanogstjekkoden1.Enabled := false;        Scanogstjekkoden1.Enabled := false;
440      end;      end;
441    
# Line 472  begin Line 476  begin
476    
477    if Altidprintepakkelabel1.Checked then    if Altidprintepakkelabel1.Checked then
478    begin    begin
479       CheckBox2.Checked := true;       chkAltidPrintLabel.Checked := true;
480    end    end
481    else    else
482    begin    begin
483       CheckBox2.Checked := false;       chkAltidPrintLabel.Checked := false;
484    end;    end;
485    
486  end;  end;
# Line 490  procedure TMainForm.Automatisktjekkodest Line 494  procedure TMainForm.Automatisktjekkodest
494  begin  begin
495    if Automatisktjekkodestyring1.Checked then    if Automatisktjekkodestyring1.Checked then
496    begin    begin
497       CheckBox3.Enabled := false;       chkScanTjekkode.Enabled := false;
498       Scanogstjekkoden1.Enabled := false;       Scanogstjekkoden1.Enabled := false;
499    end    end
500    else    else
501    begin    begin
502       CheckBox3.Enabled := true;       chkScanTjekkode.Enabled := true;
503       Scanogstjekkoden1.Enabled := true;       Scanogstjekkoden1.Enabled := true;
504    end;    end;
505    
# Line 542  begin Line 546  begin
546    Application.ShowHint := True;    Application.ShowHint := True;
547    PrinterstatusStaticText1.Caption := '';    PrinterstatusStaticText1.Caption := '';
548    PrinterstatusStaticText1.Color := MainForm.Color;    PrinterstatusStaticText1.Color := MainForm.Color;
549  // 20150306: start  
550    PakkeshopNulstil.BringToFront;    PakkeshopNulstil.BringToFront;
551  // 20150306: slut  
 // 20150310: start  
552    RoundCornerOf(PanelManglendePakker1);    RoundCornerOf(PanelManglendePakker1);
553    RoundCornerOf(PanelManglendePakker2);    RoundCornerOf(PanelManglendePakker2);
554    RoundCornerOf(PanelManglendePakker3);    RoundCornerOf(PanelManglendePakker3);
555    RoundCornerOf(PanelManglendePakker4);    RoundCornerOf(PanelManglendePakker4);
556    RoundCornerOf(PanelManglendePakker5);    RoundCornerOf(PanelManglendePakker5);
557    RoundCornerOf(PanelManglendePakker6);    RoundCornerOf(PanelManglendePakker6);
558  // 20150310: slut  
559    
560    // 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
561    if DirectoryExists('Docs') then    if DirectoryExists('Docs') then
# Line 579  begin Line 582  begin
582      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');
583      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');
584      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');
585  // 20150330: start  
586      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');
587  // 20150330: slut  
588      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');
589      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');
590      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 600  begin
600      TitelBudlevering := ReadString('Settings','TitelBudlevering','Modtagelse af DAO DIREKTE pakker');      TitelBudlevering := ReadString('Settings','TitelBudlevering','Modtagelse af DAO DIREKTE pakker');
601      FarvePakkeshoplevering := ReadString('Settings','FarvePakkeshoplevering','99FFFF');      FarvePakkeshoplevering := ReadString('Settings','FarvePakkeshoplevering','99FFFF');
602      TitelPakkeshoplevering := ReadString('Settings','TitelPakkeshoplevering','Modtagelse af DAO PAKKESHOP pakker');      TitelPakkeshoplevering := ReadString('Settings','TitelPakkeshoplevering','Modtagelse af DAO PAKKESHOP pakker');
603    
604      FarveReturPakkeshop := ReadString('Settings','FarveReturPakkeshop','99FFCC');      FarveReturPakkeshop := ReadString('Settings','FarveReturPakkeshop','99FFCC');
605      TitelReturPakkeshop := ReadString('Settings','TitelReturPakkeshop','Returforsendelse fra pakkeshop');      TitelReturPakkeshop := ReadString('Settings','TitelReturPakkeshop','Returforsendelse fra pakkeshop');
606    
607        FarveIndlevering := ReadString('Settings', 'FarveIndlevering', 'E5B2CB');
608        TitelIndlevering := ReadString('Settings', 'TitelIndlevering', 'Indleveringskode');
609    
610    
611      SporgEfterBoghandler := ReadString('Settings','SporgEfterBoghandler','0');      SporgEfterBoghandler := ReadString('Settings','SporgEfterBoghandler','0');
612      ScanTjekkode := ReadString('Settings','ScanTjekkode','0');      ScanTjekkode := ReadString('Settings','ScanTjekkode','0');
613      ScanTjekkodeAutomatik := ReadString('Settings','ScanTjekkodeAutomatik','1');      ScanTjekkodeAutomatik := ReadString('Settings','ScanTjekkodeAutomatik','1');
# Line 608  begin Line 617  begin
617      AlarmLyd := ReadString('Settings','AlarmLyd','Sounds\Alarm.wav');      AlarmLyd := ReadString('Settings','AlarmLyd','Sounds\Alarm.wav');
618      ScannetOkLyd := ReadString('Settings','ScannetOkLyd','Sounds\Ok.wav');      ScannetOkLyd := ReadString('Settings','ScannetOkLyd','Sounds\Ok.wav');
619      ScannetOkStorLyd := ReadString('Settings','ScannetOkStorLyd','Sounds\Ok_stor.wav');      ScannetOkStorLyd := ReadString('Settings','ScannetOkStorLyd','Sounds\Ok_stor.wav');
620  // 20150317: start  
621      ScannetOkTilTjekkodeLyd := ReadString('Settings','ScannetOkTilTjekkodeLyd','Sounds\Ok_til_tjekkode.wav');      ScannetOkTilTjekkodeLyd := ReadString('Settings','ScannetOkTilTjekkodeLyd','Sounds\Ok_til_tjekkode.wav');
622  // 20150317: slut  
623      PrinterNavn := ReadString('Settings','PrinterNavn','');      PrinterNavn := ReadString('Settings','PrinterNavn','');
624      TjekPrinter := ReadString('Settings','TjekPrinter','1');      TjekPrinter := ReadString('Settings','TjekPrinter','1');
625      TjekUrls := ReadString('Settings','TjekUrls','2');      TjekUrls := ReadString('Settings','TjekUrls','2');
# Line 711  begin Line 720  begin
720    
721      if SporgEfterBoghandler = '1' then      if SporgEfterBoghandler = '1' then
722      begin      begin
723        CheckBox1.Checked := true;        chkSporgEfterKunde.Checked := true;
724        Sprgefterboghandlernummer1.Checked := true;        Sprgefterboghandlernummer1.Checked := true;
725      end      end
726      else      else
727      begin      begin
728        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
729        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
730      end;      end;
731    
732      if ScanTjekkode = '1' then      if ScanTjekkode = '1' then
733      begin      begin
734        CheckBox3.Checked := true;        chkScanTjekkode.Checked := true;
735        Scanogstjekkoden1.Checked := true;        Scanogstjekkoden1.Checked := true;
736      end      end
737      else      else
738      begin      begin
739        CheckBox3.Checked := false;        chkScanTjekkode.Checked := false;
740        Scanogstjekkoden1.Checked := false;        Scanogstjekkoden1.Checked := false;
741      end;      end;
742    
743      if ScanTjekkodeAutomatik = '1' then      if ScanTjekkodeAutomatik = '1' then
744      begin      begin
745        Automatisktjekkodestyring1.Checked := true;        Automatisktjekkodestyring1.Checked := true;
746        CheckBox3.Enabled := false;        chkScanTjekkode.Enabled := false;
747        Scanogstjekkoden1.Enabled := false;        Scanogstjekkoden1.Enabled := false;
748      end;      end;
749    
# Line 829  begin Line 838  begin
838       // her skal vi også disable de menupunkter DBK ikke kan bruge       // her skal vi også disable de menupunkter DBK ikke kan bruge
839        ReturpakkerfraDAO1.Enabled := false;        ReturpakkerfraDAO1.Enabled := false;
840        Returpakkerfraboghandler1.Enabled := false;        Returpakkerfraboghandler1.Enabled := false;
841  // 20150317: start  
842        Pakkeshoplevering1.Enabled := false;        Pakkeshoplevering1.Enabled := false;
843        Returpakkerfrapakkeshop1.Enabled := false;        Returpakkerfrapakkeshop1.Enabled := false;
844  // 20150317: slut  
845        if SpecialVersionScanningtype = 'A' then        if SpecialVersionScanningtype = 'A' then
846        begin        begin
847           Scanningtype := '1';           Scanningtype := '1';
# Line 863  begin Line 872  begin
872        PanelValg6.Enabled := false;        PanelValg6.Enabled := false;
873        PanelValg6.Font.Color := clInactiveCaption;        PanelValg6.Font.Color := clInactiveCaption;
874       // 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
875  // 20150317: start  
876        Automatiskvalg1.Enabled := false;        Automatiskvalg1.Enabled := false;
877  // 20150317: slut  
878        Pakkernormal1.Enabled := false;        Pakkernormal1.Enabled := false;
879        ReturpakkerfraDAO1.Enabled := false;        ReturpakkerfraDAO1.Enabled := false;
880        Returpakkerfraboghandler1.Enabled := false;        Returpakkerfraboghandler1.Enabled := false;
# Line 1000  begin Line 1009  begin
1009      if Pakketype = '1' then      if Pakketype = '1' then
1010      begin      begin
1011        Storepakker1.Checked := true;        Storepakker1.Checked := true;
1012        RadioButton1.Checked := true;        radioStorPakke.Checked := true;
1013      end      end
1014      else      else
1015      begin      begin
1016        Smpakker1.Checked := true;        Smpakker1.Checked := true;
1017        RadioButton2.Checked := true;        radioLillePakke.Checked := true;
1018      end;      end;
1019    
1020      if TestFunktionen = '1' then      if TestFunktionen = '1' then
# Line 1045  begin Line 1054  begin
1054        ScannetOkStorLyd := '';        ScannetOkStorLyd := '';
1055      end;      end;
1056    
1057  // 20150317: start  
1058      if not FileExists(ScannetOkTilTjekkodeLyd) then      if not FileExists(ScannetOkTilTjekkodeLyd) then
1059      begin      begin
1060        ScannetOkTilTjekkodeLyd := '';        ScannetOkTilTjekkodeLyd := '';
1061      end;      end;
1062  // 20150317: slut  
1063    
1064      if (PrinterNavn <> '') then      if (PrinterNavn <> '') then
1065      begin      begin
# Line 1083  begin Line 1092  begin
1092          InitBladhus();          InitBladhus();
1093        end;        end;
1094    
1095  // 20150310: start  
1096      // Opbygger PanelManglendePakker information      // Opbygger PanelManglendePakker information
1097      gemScanningtype := Scanningtype;      gemScanningtype := Scanningtype;
1098    
# Line 1124  begin Line 1133  begin
1133      end;      end;
1134    
1135      Scanningtype := gemScanningtype;      Scanningtype := gemScanningtype;
 // 20150310: slut  
1136    
1137      SendInfoTilServer(Sted, Scanningtype, 'Begin', '');      SendInfoTilServer(Sted, Scanningtype, 'Begin', '');
1138      SendInfoTilServer(Sted, Scanningtype, 'ProgramVersion', Sto_GetFmtFileVersion('',''));      SendInfoTilServer(Sted, Scanningtype, 'ProgramVersion', Sto_GetFmtFileVersion('',''));
# Line 1170  begin Line 1178  begin
1178      ClipboardData := Clipboard.AsText;      ClipboardData := Clipboard.AsText;
1179      numberString := ClipboardData;      numberString := ClipboardData;
1180      Val(numberString, float, errorPos);      Val(numberString, float, errorPos);
1181  // 20150311: start  
1182  //    if (ClipboardData <> '') and (errorPos = 0) then      //    if (ClipboardData <> '') and (errorPos = 0) then
1183      if (ClipboardData <> '') and (errorPos = 0)      if (ClipboardData <> '') and (errorPos = 0)
1184      or (NumberString = 'Nulstil')      or (NumberString = 'Nulstil')
1185      or (NumberString = 'Indtast kundenummer')      or (NumberString = 'Indtast kundenummer')
# Line 1186  begin Line 1194  begin
1194      or (NumberString = 'DAO DIREKTE')      or (NumberString = 'DAO DIREKTE')
1195      or (NumberString = 'DAO PAKKESHOP')      or (NumberString = 'DAO PAKKESHOP')
1196      or (NumberString = 'Retur fra pakkeshop') then      or (NumberString = 'Retur fra pakkeshop') then
1197  // 20150311: slut  
1198      begin      begin
1199        Stregkode := Stregkode + ClipboardData;        Stregkode := Stregkode + ClipboardData;
1200        StregkodeST.Caption := StregKode;        StregkodeST.Caption := StregKode;
# Line 1199  begin Line 1207  begin
1207    
1208    if Key = #13 then     // Enter    if Key = #13 then     // Enter
1209    begin    begin
 // 20150306: start  
1210      if (Length(Trim(Stregkode)) = 0) then      if (Length(Trim(Stregkode)) = 0) then
1211      begin      begin
1212        PlaySound(PWideChar(AlarmLyd));        PlaySound(PWideChar(AlarmLyd));
1213        List1msg := 'Der skal scannes en stregkode...';        List1msg := 'Der skal scannes en stregkode...';
1214        ListBox1.Items.Insert(0,List1Msg);        ListBox1.Items.Insert(0,List1Msg);
1215        MainForm.Color := clRed;        MainForm.Color := clRed;
 // 20150316: start  
1216        RuteNummerST.Caption := '';        RuteNummerST.Caption := '';
1217        BoghandlerNavnST.Caption := '';        BoghandlerNavnST.Caption := '';
 // 20150316: slut  
1218        KommentarST.Caption := List1msg;        KommentarST.Caption := List1msg;
1219        PakkeshopNulstil.Visible := true;        PakkeshopNulstil.Visible := true;
1220        exit;        exit;
1221      end;      end;
 // 20150306: slut  
1222    
 // 20150311: start  
1223      if StregKode = 'Nulstil' then      if StregKode = 'Nulstil' then
1224      begin      begin
1225         PakkeshopNulstil.Click();         PakkeshopNulstil.Click();
# Line 1226  begin Line 1229  begin
1229      if PakkeshopNulstil.Visible then      if PakkeshopNulstil.Visible then
1230      begin      begin
1231         PlaySound(PWideChar(AlarmLyd));         PlaySound(PWideChar(AlarmLyd));
 // 20150312: start  
 //       List1msg := 'HUSK at trykke Nulstil før ny scanning...';  
1232         List1msg := 'HUSK at klikke Nulstil før ny scanning...';         List1msg := 'HUSK at klikke Nulstil før ny scanning...';
1233  // 20150312: slut  
1234         ListBox1.Items.Insert(0,List1Msg);         ListBox1.Items.Insert(0,List1Msg);
1235         MainForm.Color := clRed;         MainForm.Color := clRed;
1236         KommentarST.Caption := List1msg;         KommentarST.Caption := List1msg;
 // 20150312: start  
1237         Stregkode := '';         Stregkode := '';
1238         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
 // 20150312: slut  
1239         exit;         exit;
1240      end;      end;
1241    
1242      if StregKode = 'Lille pakke' then      if StregKode = 'Lille pakke' then
1243      begin      begin
1244         if RadioButton2.Enabled = true then         if radioLillePakke.Enabled = true then
1245         begin         begin
1246            InitLillePakke();            InitLillePakke();
1247         end         end
1248         else         else
1249         begin         begin
1250          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm(List1msg);
         // Her skal komme en 'rød skærm' alarm  
          PlaySound(PWideChar(AlarmLyd));  
          List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';  
          ListBox1.Items.Insert(0,List1Msg);  
          MainForm.Color := clRed;  
 // 20150316: start  
          RuteNummerST.Caption := '';  
          BoghandlerNavnST.Caption := '';  
 // 20150316: slut  
          KommentarST.Caption := List1msg;  
          PakkeshopNulstil.Visible := true;  
1251         end;         end;
1252         Stregkode := '';         Stregkode := '';
1253         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1268  begin Line 1256  begin
1256    
1257      if StregKode = 'Stor pakke' then      if StregKode = 'Stor pakke' then
1258      begin      begin
1259         if RadioButton1.Enabled = true then         if radioStorPakke.Enabled = true then
1260         begin         begin
1261            InitStorPakke();            InitStorPakke();
1262         end         end
1263         else         else
1264         begin         begin
1265          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm(List1msg);
         // Her skal komme en 'rød skærm' alarm  
          PlaySound(PWideChar(AlarmLyd));  
          List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';  
          ListBox1.Items.Insert(0,List1Msg);  
          MainForm.Color := clRed;  
 // 20150316: start  
          RuteNummerST.Caption := '';  
          BoghandlerNavnST.Caption := '';  
 // 20150316: slut  
          KommentarST.Caption := List1msg;  
          PakkeshopNulstil.Visible := true;  
1266         end;         end;
1267         Stregkode := '';         Stregkode := '';
1268         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1294  begin Line 1271  begin
1271    
1272      if StregKode = 'Indtast kundenummer' then      if StregKode = 'Indtast kundenummer' then
1273      begin      begin
1274         if CheckBox1.Enabled = true then         if chkSporgEfterKunde.Enabled = true then
1275         begin         begin
1276           if (CheckBox1.State = cbChecked) then           if (chkSporgEfterKunde.State = cbChecked) then
1277           begin           begin
1278            CheckBox1.State := cbUnchecked;            chkSporgEfterKunde.State := cbUnchecked;
1279           end           end
1280           else           else
1281           begin           begin
1282            CheckBox1.State := cbChecked;            chkSporgEfterKunde.State := cbChecked;
1283           end;           end;
1284         end         end
1285         else         else
1286         begin         begin
1287          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm(List1msg);
         // Her skal komme en 'rød skærm' alarm  
          PlaySound(PWideChar(AlarmLyd));  
          List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';  
          ListBox1.Items.Insert(0,List1Msg);  
          MainForm.Color := clRed;  
 // 20150316: start  
          RuteNummerST.Caption := '';  
          BoghandlerNavnST.Caption := '';  
 // 20150316: slut  
          KommentarST.Caption := List1msg;  
          PakkeshopNulstil.Visible := true;  
1288         end;         end;
1289         Stregkode := '';         Stregkode := '';
1290         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1327  begin Line 1293  begin
1293    
1294      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
1295      begin      begin
1296        if CheckBox3.Enabled = true then        if chkScanTjekkode.Enabled = true then
1297        begin        begin
1298           if (CheckBox3.State = cbChecked) then           if (chkScanTjekkode.State = cbChecked) then
1299           begin           begin
1300            CheckBox3.State := cbUnchecked;            chkScanTjekkode.State := cbUnchecked;
1301           end           end
1302           else           else
1303           begin           begin
1304            CheckBox3.State := cbChecked;            chkScanTjekkode.State := cbChecked;
1305           end;           end;
1306        end        end
1307        else        else
1308        begin        begin
1309          //ShowMessage('Ændring ikke tilladt');          VisAlarmSkaerm(List1msg);
         // Her skal komme en 'rød skærm' alarm  
          PlaySound(PWideChar(AlarmLyd));  
          List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';  
          ListBox1.Items.Insert(0,List1Msg);  
          MainForm.Color := clRed;  
 // 20150316: start  
          RuteNummerST.Caption := '';  
          BoghandlerNavnST.Caption := '';  
 // 20150316: slut  
          KommentarST.Caption := List1msg;  
          PakkeshopNulstil.Visible := true;  
1310        end;        end;
1311        Stregkode := '';        Stregkode := '';
1312        StregkodeST.Caption := StregKode;        StregkodeST.Caption := StregKode;
# Line 1366  begin Line 1321  begin
1321         end         end
1322         else         else
1323         begin         begin
1324          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm(List1msg);
         // Her skal komme en 'rød skærm' alarm  
          PlaySound(PWideChar(AlarmLyd));  
          List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';  
          ListBox1.Items.Insert(0,List1Msg);  
          MainForm.Color := clRed;  
 // 20150316: start  
          RuteNummerST.Caption := '';  
          BoghandlerNavnST.Caption := '';  
 // 20150316: slut  
          KommentarST.Caption := List1msg;  
          PakkeshopNulstil.Visible := true;  
1325         end;         end;
1326         Stregkode := '';         Stregkode := '';
1327         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
1328         exit;         exit;
1329      end;      end;
1330    
1331  // 20150323: start  
 //    if StregKode = 'DAO NAT X-PRESS' then  
1332      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  
1333      begin      begin
1334         if (PanelValg1.Enabled = true) then         if (PanelValg1.Enabled = true) then
1335         begin         begin
# Line 1395  begin Line 1337  begin
1337         end         end
1338         else         else
1339         begin         begin
1340          //ShowMessage('Ændring ikke tilladt');          VisAlarmSkaerm(List1msg);
         // Her skal komme en 'rød skærm' alarm  
          PlaySound(PWideChar(AlarmLyd));  
          List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';  
          ListBox1.Items.Insert(0,List1Msg);  
          MainForm.Color := clRed;  
 // 20150316: start  
          RuteNummerST.Caption := '';  
          BoghandlerNavnST.Caption := '';  
 // 20150316: slut  
          KommentarST.Caption := List1msg;  
          PakkeshopNulstil.Visible := true;  
1341         end;         end;
1342         Stregkode := '';         Stregkode := '';
1343         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1421  begin Line 1352  begin
1352         end         end
1353         else         else
1354         begin         begin
1355          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm(List1msg);
         // Her skal komme en 'rød skærm' alarm  
          PlaySound(PWideChar(AlarmLyd));  
          List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';  
          ListBox1.Items.Insert(0,List1Msg);  
          MainForm.Color := clRed;  
 // 20150316: start  
          RuteNummerST.Caption := '';  
          BoghandlerNavnST.Caption := '';  
 // 20150316: slut  
          KommentarST.Caption := List1msg;  
          PakkeshopNulstil.Visible := true;  
1356         end;         end;
1357         Stregkode := '';         Stregkode := '';
1358         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1447  begin Line 1367  begin
1367         end         end
1368         else         else
1369         begin         begin
1370          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm(List1msg);
         // Her skal komme en 'rød skærm' alarm  
          PlaySound(PWideChar(AlarmLyd));  
          List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';  
          ListBox1.Items.Insert(0,List1Msg);  
          MainForm.Color := clRed;  
 // 20150316: start  
          RuteNummerST.Caption := '';  
          BoghandlerNavnST.Caption := '';  
 // 20150316: slut  
          KommentarST.Caption := List1msg;  
          PakkeshopNulstil.Visible := true;  
1371         end;         end;
1372         Stregkode := '';         Stregkode := '';
1373         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1473  begin Line 1382  begin
1382         end         end
1383         else         else
1384         begin         begin
1385          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm(List1msg);
         // Her skal komme en 'rød skærm' alarm  
          PlaySound(PWideChar(AlarmLyd));  
          List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';  
          ListBox1.Items.Insert(0,List1Msg);  
          MainForm.Color := clRed;  
 // 20150316: start  
          RuteNummerST.Caption := '';  
          BoghandlerNavnST.Caption := '';  
 // 20150316: slut  
          KommentarST.Caption := List1msg;  
          PakkeshopNulstil.Visible := true;  
1386         end;         end;
1387         Stregkode := '';         Stregkode := '';
1388         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1499  begin Line 1397  begin
1397         end         end
1398         else         else
1399         begin         begin
1400          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm(List1msg);
         // Her skal komme en 'rød skærm' alarm  
          PlaySound(PWideChar(AlarmLyd));  
          List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';  
          ListBox1.Items.Insert(0,List1Msg);  
          MainForm.Color := clRed;  
 // 20150316: start  
          RuteNummerST.Caption := '';  
          BoghandlerNavnST.Caption := '';  
 // 20150316: slut  
          KommentarST.Caption := List1msg;  
          PakkeshopNulstil.Visible := true;  
1401         end;         end;
1402         Stregkode := '';         Stregkode := '';
1403         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1525  begin Line 1412  begin
1412         end         end
1413         else         else
1414         begin         begin
1415          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm(List1msg);
         // Her skal komme en 'rød skærm' alarm  
          PlaySound(PWideChar(AlarmLyd));  
          List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';  
          ListBox1.Items.Insert(0,List1Msg);  
          MainForm.Color := clRed;  
 // 20150316: start  
          RuteNummerST.Caption := '';  
          BoghandlerNavnST.Caption := '';  
 // 20150316: slut  
          KommentarST.Caption := List1msg;  
          PakkeshopNulstil.Visible := true;  
1416         end;         end;
1417         Stregkode := '';         Stregkode := '';
1418         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
1419         exit;         exit;
1420      end;      end;
1421  // 20150311: slut  
1422    
1423      if (Length(Stregkode) > 8) then      if (Length(Stregkode) > 8) then
1424      begin      begin
# Line 1597  begin Line 1473  begin
1473          or (Pakkescanningtype = '5') and (PanelValg5.Enabled = false)          or (Pakkescanningtype = '5') and (PanelValg5.Enabled = false)
1474          or (Pakkescanningtype = '6') and (PanelValg6.Enabled = false)  ) then          or (Pakkescanningtype = '6') and (PanelValg6.Enabled = false)  ) then
1475      begin   // Her skal komme en alarm og rød skærm      begin   // Her skal komme en alarm og rød skærm
1476         PlaySound(PWideChar(AlarmLyd));         VisAlarmSkaerm(List1msg);
1477         List1msg := 'Pakketype ' + Pakketype + ' kan ikke scannes på dette scanningsted';  
        ListBox1.Items.Insert(0,List1Msg);  
        MainForm.Color := clRed;  
 // 20150316: start  
        RuteNummerST.Caption := '';  
        BoghandlerNavnST.Caption := '';  
 // 20150316: slut  
        KommentarST.Caption := List1msg;  
        PakkeshopNulstil.Visible := true;  
 // 20150311: start  
        StregKode := '';  
        StregkodeST.Caption := StregKode;  
 // 20150311: slut  
1478         exit;         exit;
1479      end;      end;
1480    
# Line 1626  begin Line 1490  begin
1490              end;              end;
1491            end            end
1492        // Retur kan ikke scannes med 'Automatisk valg'        // Retur kan ikke scannes med 'Automatisk valg'
1493  (*  
       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  
 *)  
1494        else if Pakketype = 'Direkte' then        else if Pakketype = 'Direkte' then
1495            begin            begin
1496              if Scanningtype <> '4' then              if Scanningtype <> '4' then
# Line 1661  begin Line 1508  begin
1508              end;              end;
1509            end            end
1510        // Retur kan ikke scannes med 'Automatisk valg'        // Retur kan ikke scannes med 'Automatisk valg'
1511  (*  
       else if Pakketype = 'PakkeshopRetur' then  
           begin  
             if Scanningtype <> '6' then  
             begin  
               Scanningtype := '6';  
               InitReturFraPakkeshop();  
             end;  
           end  
 *)  
1512        else        else
1513            begin   // Her skal komme en alarm og rød skærm            begin   // Her skal komme en alarm og rød skærm
1514               PlaySound(PWideChar(AlarmLyd));               PlaySound(PWideChar(AlarmLyd));
1515               List1msg := 'Pakken kan ikke scannes med automatisk valg';               List1msg := 'Pakken kan ikke scannes med automatisk valg';
1516               ListBox1.Items.Insert(0,List1Msg);               ListBox1.Items.Insert(0,List1Msg);
1517               MainForm.Color := clRed;               MainForm.Color := clRed;
1518  // 20150316: start  
1519               RuteNummerST.Caption := '';               RuteNummerST.Caption := '';
1520               BoghandlerNavnST.Caption := '';               BoghandlerNavnST.Caption := '';
1521  // 20150316: slut  
1522               KommentarST.Caption := List1msg;               KommentarST.Caption := List1msg;
1523               PakkeshopNulstil.Visible := true;               PakkeshopNulstil.Visible := true;
1524  // 20150311: start  
1525               StregKode := '';               StregKode := '';
1526               StregkodeST.Caption := StregKode;               StregkodeST.Caption := StregKode;
1527  // 20150311: slut  
1528               exit;               exit;
1529            end;            end;
1530        Stregkode := GemStregkode;        Stregkode := GemStregkode;
# Line 1697  begin Line 1535  begin
1535        List1msg := 'Pakkenummer ikke gyldigt (for kort)';        List1msg := 'Pakkenummer ikke gyldigt (for kort)';
1536        ListBox1.Items.Insert(0,List1Msg);        ListBox1.Items.Insert(0,List1Msg);
1537        MainForm.Color := clRed;        MainForm.Color := clRed;
1538  // 20150316: start  
1539        RuteNummerST.Caption := '';        RuteNummerST.Caption := '';
1540        BoghandlerNavnST.Caption := '';        BoghandlerNavnST.Caption := '';
1541  // 20150316: slut  
1542        KommentarST.Caption := List1msg;        KommentarST.Caption := List1msg;
1543        PakkeshopNulstil.Visible := true;        PakkeshopNulstil.Visible := true;
1544  // 20150312: start  
1545        StregKode := '';        StregKode := '';
1546        StregkodeST.Caption := StregKode;        StregkodeST.Caption := StregKode;
1547  // 20150312: slut  
1548        exit;        exit;
1549      end;      end;
1550    
# Line 1718  begin Line 1556  begin
1556          List1msg := 'Pakke findes som pakketype: ' + Pakketype;          List1msg := 'Pakke findes som pakketype: ' + Pakketype;
1557          ListBox1.Items.Insert(0,List1Msg);          ListBox1.Items.Insert(0,List1Msg);
1558          MainForm.Color := clRed;          MainForm.Color := clRed;
1559  // 20150316: start  
1560           RuteNummerST.Caption := '';           RuteNummerST.Caption := '';
1561           BoghandlerNavnST.Caption := '';           BoghandlerNavnST.Caption := '';
1562  // 20150316: slut  
1563          KommentarST.Caption := List1msg;          KommentarST.Caption := List1msg;
1564          PakkeshopNulstil.Visible := true;          PakkeshopNulstil.Visible := true;
 // 20150312: start  
1565          StregKode := '';          StregKode := '';
1566          StregkodeST.Caption := StregKode;          StregkodeST.Caption := StregKode;
 // 20150312: slut  
1567          exit;          exit;
1568        end;        end;
1569      end;      end;
1570    
 // 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  
1571    
1572    
1573      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and Automatisktjekkodestyring1.Checked then      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and Automatisktjekkodestyring1.Checked then
1574      begin      begin
1575        CheckBox3.Checked := false;        chkScanTjekkode.Checked := false;
1576        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do
1577        begin        begin
1578          if (Stregkode=stregkoderMedTjekkodeArray[i]) then          if (Stregkode=stregkoderMedTjekkodeArray[i]) then
1579          begin          begin
1580              CheckBox3.Checked := true;              chkScanTjekkode.Checked := true;
1581              Scanogstjekkoden1.Checked := true;              Scanogstjekkoden1.Checked := true;
1582          end;          end;
1583        end;        end;
# Line 2026  begin Line 1803  begin
1803    
1804    Key := #0;    Key := #0;
1805    
1806  end;  end; //End of OnKeyPress
1807    
1808  procedure TMainForm.SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);  procedure TMainForm.SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);
1809  const  const
# Line 2063  end; Line 1840  end;
1840    
1841  procedure TMainForm.SletStregkodelinieFraListboks2(StregKode : String);  procedure TMainForm.SletStregkodelinieFraListboks2(StregKode : String);
1842  var  var
 // 20150309: start  
 //  i:integer;  
1843    i : Integer;    i : Integer;
1844    wrkAntal : String;    wrkAntal : String;
1845    wrkAntalIdag, wrkAntalSenere : Integer;    wrkAntalIdag, wrkAntalSenere : Integer;
1846  // 20150309: slut  
1847    
1848  begin  begin
1849      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 1851  begin
1851        for i := ListBox2.items.count-1 downto 0 do        for i := ListBox2.items.count-1 downto 0 do
1852          if pos(StregKode,ListBox2.items[i]) <> 0 then          if pos(StregKode,ListBox2.items[i]) <> 0 then
1853          begin          begin
1854  // 20150309: start  
1855            // Ajourføring af tæller for manglende pakker (scanninger)            // Ajourføring af tæller for manglende pakker (scanninger)
1856            wrkAntal := StaticTextManglendePakker.Caption;            wrkAntal := StaticTextManglendePakker.Caption;
1857            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 1887  begin
1887            begin            begin
1888              StaticTextManglendePakker.Caption := IntToStr(wrkAntalIdag);              StaticTextManglendePakker.Caption := IntToStr(wrkAntalIdag);
1889            end;            end;
 // 20150309: slut  
1890    
 // 20150310: start  
1891            if (Scanningtype = '1') then            if (Scanningtype = '1') then
1892            begin            begin
1893              PanelManglendePakker1.Caption := IntToStr(wrkAntalIdag + wrkAntalSenere);              PanelManglendePakker1.Caption := IntToStr(wrkAntalIdag + wrkAntalSenere);
# Line 2297  begin Line 2070  begin
2070              Testprinter1.Visible := true;              Testprinter1.Visible := true;
2071              Smpakker1.Enabled := true;              Smpakker1.Enabled := true;
2072              Storepakker1.Enabled := true;              Storepakker1.Enabled := true;
2073              RadioButton1.Enabled := true;              radioStorPakke.Enabled := true;
2074              RadioButton2.Enabled := true;              radioLillePakke.Enabled := true;
2075              DownloadButton01.Enabled := false;     // kontrolfil bruges ikke her              DownloadButton01.Enabled := false;     // kontrolfil bruges ikke her
2076              OpdaterListenButton01.Enabled := true;              OpdaterListenButton01.Enabled := true;
2077              IdFTP1.Passive := true;              IdFTP1.Passive := true;
# Line 2335  begin Line 2108  begin
2108              Testprinter1.Visible := true;              Testprinter1.Visible := true;
2109              Smpakker1.Enabled := true;              Smpakker1.Enabled := true;
2110              Storepakker1.Enabled := true;              Storepakker1.Enabled := true;
2111              RadioButton1.Enabled := true;              radioStorPakke.Enabled := true;
2112              RadioButton2.Enabled := true;              radioLillePakke.Enabled := true;
2113              DownloadButton01.Enabled := false;    // kontrolfil bruges ikke her              DownloadButton01.Enabled := false;    // kontrolfil bruges ikke her
2114              OpdaterListenButton01.Enabled := true;              OpdaterListenButton01.Enabled := true;
2115              IdFTP1.Passive := true;              IdFTP1.Passive := true;
# Line 2355  var Line 2128  var
2128    pakkestorrelse : String;    pakkestorrelse : String;
2129    PrintNyLabelInteger : Integer;    PrintNyLabelInteger : Integer;
2130  begin  begin
2131    if RadioButton1.Checked then    if radioStorPakke.Checked then
2132    begin    begin
2133      pakkestorrelse := 'Stor';      pakkestorrelse := 'Stor';
2134    end;    end;
2135    if RadioButton2.Checked then    if radioLillePakke.Checked then
2136    begin    begin
2137      pakkestorrelse := 'Lille';      pakkestorrelse := 'Lille';
2138    end;    end;
# Line 2425  begin Line 2198  begin
2198        BoghandlerNavn := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNr').Text;        BoghandlerNavn := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNr').Text;
2199        BoghandlerNavn := BoghandlerNavn + ' ' + XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;        BoghandlerNavn := BoghandlerNavn + ' ' + XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;
2200        PrintNyLabel := False;        PrintNyLabel := False;
2201  // 20150310: start  
2202        if Pakkeshoplevering1.Checked then        if Pakkeshoplevering1.Checked then
2203        begin        begin
 // 20150310: slut  
2204          try          try
2205            PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text);            PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text);
2206          except on e:exception do          except on e:exception do
# Line 2514  begin Line 2286  begin
2286    if Pakkeshoplevering1.Checked then    if Pakkeshoplevering1.Checked then
2287      List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; ';      List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; ';
2288    List1Pakkestorrelse := '';    List1Pakkestorrelse := '';
2289    if RadioButton1.Checked then    if radioStorPakke.Checked then
2290    begin    begin
2291      List1Pakkestorrelse := 'Stor pakke';      List1Pakkestorrelse := 'Stor pakke';
2292    end;    end;
2293    if RadioButton2.Checked then    if radioLillePakke.Checked then
2294    begin    begin
2295      List1Pakkestorrelse := 'Lille pakke';      List1Pakkestorrelse := 'Lille pakke';
2296    end;    end;
# Line 2540  begin Line 2312  begin
2312    if Budlevering1.Checked then    if Budlevering1.Checked then
2313    begin    begin
2314       List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn;       List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn;
2315        if (RadioButton1.Checked) then        if (radioStorPakke.Checked) then
2316        begin        begin
2317          List1msg := List1msg + '; Stor pakke';          List1msg := List1msg + '; Stor pakke';
2318        end;        end;
2319        if (RadioButton2.Checked) then        if (radioLillePakke.Checked) then
2320        begin        begin
2321          List1msg := List1msg + '; Lille pakke';          List1msg := List1msg + '; Lille pakke';
2322        end;        end;
# Line 2601  begin Line 2373  begin
2373    end;    end;
2374    pakkeForkertSted := pos('burde være hos', Kommentar);    pakkeForkertSted := pos('burde være hos', Kommentar);
2375    
2376  // 20150306: start  
2377  //  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
2378    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  
2379    begin    begin
2380        if (RuteNummer = 'Ukendt') then        if (RuteNummer = 'Ukendt') then
2381        begin        begin
# Line 2631  begin Line 2402  begin
2402       if (BoghandlerNavn = 'Ukendt pakke') then       if (BoghandlerNavn = 'Ukendt pakke') then
2403       begin       begin
2404          PrintNyLabel := false;          PrintNyLabel := false;
2405  // 20150306: start  
 //        PlaySound(PWideChar(AlarmLyd));  
2406          PlaySound(PWideChar(AlarmLyd));          PlaySound(PWideChar(AlarmLyd));
2407          MainForm.Color := clRed;          MainForm.Color := clRed;
2408          PakkeshopNulstil.Visible := true;          PakkeshopNulstil.Visible := true;
2409  // 20150306: slut  
2410       end       end
2411       else       else
2412       begin       begin
# Line 2652  begin Line 2422  begin
2422            ListBox1.Items.Insert(0,List1Msg);            ListBox1.Items.Insert(0,List1Msg);
2423            logTekst := RightStr(List1Msg, Length(List1Msg)-10);            logTekst := RightStr(List1Msg, Length(List1Msg)-10);
2424            SkrivScanningLogFil(logTekst);            SkrivScanningLogFil(logTekst);
2425  // 20150213: start  
2426            if (PrinterNavn = 'Ingen') then            if (PrinterNavn = 'Ingen') then
2427            begin            begin
2428               PrintNyLabel := false;               PrintNyLabel := false;
2429            end;            end;
2430  // 20150313: slut  
 // 20150306: start  
 //          PlaySound(PWideChar(AlarmLyd));  
2431            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
2432            begin            begin
2433              PlaySound(PWideChar(AlarmLyd));              PlaySound(PWideChar(AlarmLyd));
2434              MainForm.Color := clRed;              MainForm.Color := clRed;
2435              PakkeshopNulstil.Visible := true;              PakkeshopNulstil.Visible := true;
2436            end;            end;
2437  // 20150306: slut  
2438         end;         end;
2439         kontrolKoreliste := TjekKoreliste(RuteNummer, Koreliste);         kontrolKoreliste := TjekKoreliste(RuteNummer, Koreliste);
2440         if (kontrolKoreliste <> RuteNummer) then         if (kontrolKoreliste <> RuteNummer) then
# Line 2685  begin Line 2453  begin
2453            ListBox1.Items.Insert(0,List1Msg);            ListBox1.Items.Insert(0,List1Msg);
2454            logTekst := RightStr(List1Msg, Length(List1Msg)-10);            logTekst := RightStr(List1Msg, Length(List1Msg)-10);
2455            SkrivScanningLogFil(logTekst);            SkrivScanningLogFil(logTekst);
2456  // 20150306: start  
 //          PlaySound(PWideChar(AlarmLyd));  
2457            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
2458            begin            begin
2459              PlaySound(PWideChar(AlarmLyd));              PlaySound(PWideChar(AlarmLyd));
2460              MainForm.Color := clRed;              MainForm.Color := clRed;
2461              PakkeshopNulstil.Visible := true;              PakkeshopNulstil.Visible := true;
2462            end;            end;
2463  // 20150306: slut  
 // 20150306: start  
 //       end  
 //       else  
 //       begin  
2464         end;         end;
2465       end;       end;
2466    
# Line 2757  begin Line 2520  begin
2520      exit;      exit;
2521    end;    end;
2522    
2523    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
2524    begin    begin
2525    end    end
2526    else    else
2527    begin    begin
2528      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
2529      begin      begin
2530        logTekst := 'Printer label type ';        logTekst := 'Printer label type ';
2531        if (CheckBox2.Checked) then        if (chkAltidPrintLabel.Checked) then
2532        begin        begin
2533          logTekst := logTekst + 'Alle ';          logTekst := logTekst + 'Alle ';
2534        end        end
# Line 2832  begin Line 2595  begin
2595          Canvas.TextOut(XPosSorteringsfelt2,YPosSorteringsfelt2, Leveringssted);   // sorteringsoplysning 2          Canvas.TextOut(XPosSorteringsfelt2,YPosSorteringsfelt2, Leveringssted);   // sorteringsoplysning 2
2596        end;        end;
2597        Canvas.Font.Size := FontSizeKommentar;        Canvas.Font.Size := FontSizeKommentar;
2598    
2599        Kommentar := StringReplace(Kommentar, #$A, ' - ', [rfReplaceAll, rfIgnoreCase]);        Kommentar := StringReplace(Kommentar, #$A, ' - ', [rfReplaceAll, rfIgnoreCase]);
 // 20150304: start  
2600        Kommentar := StringReplace(Kommentar, 'PAKKE ER SCANNET', '', [rfReplaceAll, rfIgnoreCase]);        Kommentar := StringReplace(Kommentar, 'PAKKE ER SCANNET', '', [rfReplaceAll, rfIgnoreCase]);
2601  // 20150304: slut  
2602        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)
2603        if SmsKode <> '' then        if SmsKode <> '' then
2604        begin        begin
# Line 2849  begin Line 2612  begin
2612  end;  end;
2613    
2614    
2615  procedure TMainForm.RadioButton1Click(Sender: TObject);  procedure TMainForm.radioStorPakkeClick(Sender: TObject);
2616  begin  begin
2617      Storepakker1.Checked := true;      Storepakker1.Checked := true;
2618      RadioButton1.Checked := true;      radioStorPakke.Checked := true;
2619  end;  end;
2620    
2621  procedure TMainForm.RadioButton2Click(Sender: TObject);  procedure TMainForm.radioLillePakkeClick(Sender: TObject);
2622  begin  begin
2623      Smpakker1.Checked := true;      Smpakker1.Checked := true;
2624      RadioButton2.Checked := true;      radioLillePakke.Checked := true;
2625  end;  end;
2626    
2627    
2628  procedure TMainForm.CheckBox1Click(Sender: TObject);  procedure TMainForm.chkSporgEfterKundeClick(Sender: TObject);
2629  begin  begin
2630    if CheckBox1.Checked then    if chkSporgEfterKunde.Checked then
2631    begin    begin
2632       Sprgefterboghandlernummer1.Checked := true;       Sprgefterboghandlernummer1.Checked := true;
2633    end    end
# Line 2875  begin Line 2638  begin
2638  end;  end;
2639    
2640    
2641  procedure TMainForm.CheckBox2Click(Sender: TObject);  procedure TMainForm.chkAltidPrintLabelClick(Sender: TObject);
2642  begin  begin
2643    if CheckBox2.Checked then    if chkAltidPrintLabel.Checked then
2644    begin    begin
2645       Altidprintepakkelabel1.Checked := true;       Altidprintepakkelabel1.Checked := true;
2646    end    end
# Line 2888  begin Line 2651  begin
2651    
2652  end;  end;
2653    
2654  procedure TMainForm.CheckBox3Click(Sender: TObject);  procedure TMainForm.chkScanTjekkodeClick(Sender: TObject);
2655  begin  begin
2656    if CheckBox3.Checked then    if chkScanTjekkode.Checked then
2657    begin    begin
2658       Scanogstjekkoden1.Checked := true;       Scanogstjekkoden1.Checked := true;
2659    end    end
# Line 2912  begin Line 2675  begin
2675      Automatiskvalg1.Checked := false;      Automatiskvalg1.Checked := false;
2676      PanelValgA.Color := clBtnFace;      PanelValgA.Color := clBtnFace;
2677      PanelValgA.Font.Color := clWindowText;      PanelValgA.Font.Color := clWindowText;
2678  // 20150317: start  
2679      if (SpecialVersionSted = '01')      if (SpecialVersionSted = '01')
2680      or (SpecialVersionSted = '02')        or (SpecialVersionSted = '02')
2681      or (SpecialVersionSted = '03')        or (SpecialVersionSted = '03')
2682      or (SpecialVersionSted = '04') then        or (SpecialVersionSted = '04') then
2683      begin      begin
2684        // 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)
2685        PanelValgA.Enabled := false;        PanelValgA.Enabled := false;
# Line 3223  begin Line 2986  begin
2986            end;            end;
2987          end;          end;
2988    
2989  // 20150330: start  
2990          // Tjekker UrlEKLoverforselPakkeshop          // Tjekker UrlEKLoverforselPakkeshop
2991          if PanelValg5.Enabled = true then          if PanelValg5.Enabled = true then
2992          begin          begin
# Line 3251  begin Line 3014  begin
3014              end;              end;
3015            end;            end;
3016          end;          end;
3017  // 20150330: slut  
3018    
3019          // Tjekker UrlFindPakketype          // Tjekker UrlFindPakketype
3020          if CheckUrl(UrlFindPakketype) then          if CheckUrl(UrlFindPakketype) then
# Line 3783  begin Line 3546  begin
3546    
3547    if Sprgefterboghandlernummer1.Checked then    if Sprgefterboghandlernummer1.Checked then
3548    begin    begin
3549       CheckBox1.Checked := true;       chkSporgEfterKunde.Checked := true;
3550    end    end
3551    else    else
3552    begin    begin
3553       CheckBox1.Checked := false;       chkSporgEfterKunde.Checked := false;
3554    end;    end;
3555    
3556    
# Line 3815  begin Line 3578  begin
3578        InitForm(FarveNormal,TitelNormal,UrlNormal);        InitForm(FarveNormal,TitelNormal,UrlNormal);
3579        PanelValg1.Color := clGreen;        PanelValg1.Color := clGreen;
3580        PanelValg1.Font.Color := clWhite;        PanelValg1.Font.Color := clWhite;
3581        CheckBox1.Enabled := true;  
3582        CheckBox2.Enabled := true;        chkAltidPrintLabel.Enabled := true;
3583        Altidprintepakkelabel1.Enabled := true;        Altidprintepakkelabel1.Enabled := true;
3584        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3585        CheckBox2.Checked := false;        chkAltidPrintLabel.Checked := false;
3586        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3587        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
3588        Sprgefterboghandlernummer1.Enabled := true;        Sprgefterboghandlernummer1.Enabled := true;
3589        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3590        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
3591        RadioButton1.Enabled := false;        radioStorPakke.Enabled := false;
3592        RadioButton2.Enabled := false;        radioLillePakke.Enabled := false;
3593        ListBox1.Visible := true;        ListBox1.Visible := true;
3594        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3595        EKLoverforsel.Enabled := true;        EKLoverforsel.Enabled := true;
# Line 3847  begin Line 3610  begin
3610        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);
3611        PanelValg2.Color := clGreen;        PanelValg2.Color := clGreen;
3612        PanelValg2.Font.Color := clWhite;        PanelValg2.Font.Color := clWhite;
3613        CheckBox1.Enabled := false;  
3614        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3615        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
3616        CheckBox2.Checked := false;  
3617        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3618        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3619        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
3620        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3621        Smpakker1.Enabled := true;        Smpakker1.Enabled := true;
3622        Storepakker1.Enabled := true;        Storepakker1.Enabled := true;
3623        RadioButton1.Enabled := true;        radioStorPakke.Enabled := true;
3624        RadioButton2.Enabled := true;        radioLillePakke.Enabled := true;
3625        ListBox1.Visible := true;        ListBox1.Visible := true;
3626        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3627        ListBox2.Items.Clear;        ListBox2.Items.Clear;
# Line 3874  begin Line 3637  begin
3637        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);
3638        PanelValg3.Color := clGreen;        PanelValg3.Color := clGreen;
3639        PanelValg3.Font.Color := clWhite;        PanelValg3.Font.Color := clWhite;
3640        CheckBox1.Enabled := false;  
3641        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3642        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
       CheckBox2.Checked := false;  
3643        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3644        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3645        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
3646        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3647        Smpakker1.Enabled := true;        Smpakker1.Enabled := true;
3648        Storepakker1.Enabled := true;        Storepakker1.Enabled := true;
3649        RadioButton1.Enabled := true;        radioStorPakke.Enabled := true;
3650        RadioButton2.Enabled := true;        radioLillePakke.Enabled := true;
3651        ListBox1.Visible := true;        ListBox1.Visible := true;
3652        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3653        ListBox2.Items.Clear;        ListBox2.Items.Clear;
# Line 3901  begin Line 3663  begin
3663        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);
3664        PanelValg4.Color := clGreen;        PanelValg4.Color := clGreen;
3665        PanelValg4.Font.Color := clWhite;        PanelValg4.Font.Color := clWhite;
3666        CheckBox1.Enabled := false;  
3667        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3668        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
3669        CheckBox2.Checked := false;  
3670        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3671        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3672        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
3673        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3674        Smpakker1.Enabled := true;        Smpakker1.Enabled := true;
3675        Storepakker1.Enabled := true;        Storepakker1.Enabled := true;
3676        RadioButton1.Enabled := true;        radioStorPakke.Enabled := true;
3677        RadioButton2.Enabled := true;        radioLillePakke.Enabled := true;
3678        ListBox1.Visible := true;        ListBox1.Visible := true;
3679        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3680        DownloadButton01.Enabled := false;        DownloadButton01.Enabled := false;
# Line 3937  begin Line 3699  begin
3699        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);
3700        PanelValg5.Color := clGreen;        PanelValg5.Color := clGreen;
3701        PanelValg5.Font.Color := clWhite;        PanelValg5.Font.Color := clWhite;
3702        CheckBox1.Enabled := false;  
3703        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3704        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
3705        CheckBox2.Checked := false;  
3706        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3707        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3708        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
3709        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3710        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3711        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
3712        RadioButton1.Enabled := false;        radioStorPakke.Enabled := false;
3713        RadioButton2.Enabled := false;        radioLillePakke.Enabled := false;
3714        ListBox1.Visible := true;        ListBox1.Visible := true;
3715        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3716        DownloadButton01.Enabled := false;        DownloadButton01.Enabled := false;
3717        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3718  // 20150330: start  
 //      EKLoverforsel.Enabled := false;  
3719        EKLoverforsel.Enabled := true;        EKLoverforsel.Enabled := true;
3720  // 20150330: slut  
3721        InitLillePakke();        InitLillePakke();
3722        IndlesScanningLogFil();        IndlesScanningLogFil();
3723        if BladhusSted = 0 then        if BladhusSted = 0 then
# Line 3975  begin Line 3736  begin
3736        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);
3737        PanelValg6.Color := clGreen;        PanelValg6.Color := clGreen;
3738        PanelValg6.Font.Color := clWhite;        PanelValg6.Font.Color := clWhite;
3739        CheckBox1.Enabled := false;  
3740        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3741        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
3742        CheckBox2.Checked := false;  
3743        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3744        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3745        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
3746        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3747        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3748        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
3749        RadioButton1.Enabled := false;        radioStorPakke.Enabled := false;
3750        RadioButton2.Enabled := false;        radioLillePakke.Enabled := false;
3751        ListBox1.Visible := true;        ListBox1.Visible := true;
3752        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3753        DownloadButton01.Enabled := false;        DownloadButton01.Enabled := false;
# Line 4014  begin Line 3775  begin
3775        AutomatiskTjekkodeStyring1.Enabled := false;        AutomatiskTjekkodeStyring1.Enabled := false;
3776        Returpakkerfrapakkeshop1.Checked := true;        Returpakkerfrapakkeshop1.Checked := true;
3777        PakkeshopNulstil.Visible := false;        PakkeshopNulstil.Visible := false;
3778        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);
3779        PanelValg7.Color := clGreen;        PanelValg7.Color := clGreen;
3780        PanelValg7.Font.Color := clWhite;        PanelValg7.Font.Color := clWhite;
3781        CheckBox1.Enabled := false;  
3782        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3783        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
3784        CheckBox2.Checked := false;  
3785        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3786        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
       CheckBox1.Checked := false;  
3787        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3788          chkSporgEfterKunde.Checked := false;
3789    
3790    
3791    
3792        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3793        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
3794        RadioButton1.Enabled := false;        radioStorPakke.Enabled := false;
3795        RadioButton2.Enabled := false;        radioLillePakke.Enabled := false;
3796        ListBox1.Visible := true;        ListBox1.Visible := true;
3797        ListBox1.Items.Clear;        ListBox1.Items.Clear();
3798    
3799        DownloadButton01.Enabled := false;        DownloadButton01.Enabled := false;
3800        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3801        EKLoverforsel.Enabled := false;        EKLoverforsel.Enabled := false;
# Line 4057  end; Line 3822  end;
3822    
3823  procedure TMainForm.InitLillePakke();  procedure TMainForm.InitLillePakke();
3824  begin  begin
3825    RadioButton2.Checked := true;    radioLillePakke.Checked := true;
3826    Smpakker1.Checked := true;    Smpakker1.Checked := true;
 // 20150310: start  
3827  //  Stregkode := '';  //  Stregkode := '';
 // 20150310: slut  
3828  end;  end;
3829    
3830  procedure TMainForm.InitStorPakke();  procedure TMainForm.InitStorPakke();
3831  begin  begin
3832    RadioButton1.Checked := true;    radioStorPakke.Checked := true;
3833    Storepakker1.Checked := true;    Storepakker1.Checked := true;
3834  // 20150310: start  // 20150310: start
3835  //  Stregkode := '';  //  Stregkode := '';
# Line 4163  end; Line 3926  end;
3926    
3927  procedure TMainForm.Testlyd2Click(Sender: TObject);  procedure TMainForm.Testlyd2Click(Sender: TObject);
3928  begin  begin
 // 20150317: start  
3929    if (PakkeshopText1.Caption = 'Tjekkode') then    if (PakkeshopText1.Caption = 'Tjekkode') then
3930    begin    begin
3931       if ScannetOkTilTjekkodeLyd  <> '' then       if ScannetOkTilTjekkodeLyd  <> '' then
# Line 4176  begin Line 3938  begin
3938       end;       end;
3939       exit;       exit;
3940    end;    end;
 // 20150317: slut  
3941    
3942    if Smpakker1.Checked then    if Smpakker1.Checked then
3943       if ScannetOkLyd  <> '' then       if ScannetOkLyd  <> '' then
# Line 4185  begin Line 3946  begin
3946       end       end
3947       else       else
3948       begin       begin
 // 20150317: start  
 //       MessageBox(Handle, PWideChar('Lyd fil ikke fundet (scannet)'), 'Information', MB_OK);  
3949         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);
 // 20150317: slut  
3950       end;       end;
3951    if Storepakker1.Checked then    if Storepakker1.Checked then
3952       if ScannetOkStorLyd  <> '' then       if ScannetOkStorLyd  <> '' then
# Line 4197  begin Line 3955  begin
3955       end       end
3956       else       else
3957       begin       begin
 // 20150317: start  
 //       MessageBox(Handle, PWideChar('Lyd fil ikke fundet (scannet stor)'), 'Information', MB_OK);  
3958         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkStorLyd)'), 'Information', MB_OK);         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkStorLyd)'), 'Information', MB_OK);
 // 20150317: slut  
3959       end;       end;
3960  end;  end;
3961    
# Line 4905  var Line 4660  var
4660    pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer;    pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer;
4661    pakketyper : TStrings;    pakketyper : TStrings;
4662    antlin : Integer;    antlin : Integer;
4663  // 20150306: start  
4664    antlinIdag, antlinSenere : Integer;    antlinIdag, antlinSenere : Integer;
4665  // 20150306: slut  
4666    XmlFelter : TStrings;    XmlFelter : TStrings;
4667    
4668   begin   begin
# Line 4927  var Line 4682  var
4682          StedKode := Sted;          StedKode := Sted;
4683        end;        end;
4684    
4685  // 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;  
 *)  
4686      if (Scanningtype = '6') then      if (Scanningtype = '6') then
4687       begin       begin
4688        URLStr := Format(UrlPakkeshopManglendeReturScanninger,[StedKode]);        URLStr := Format(UrlPakkeshopManglendeReturScanninger,[StedKode]);
# Line 4989  var Line 4726  var
4726      try      try
4727        XMLDocument1.LoadFromXML(WebSvar);        XMLDocument1.LoadFromXML(WebSvar);
4728    
4729  // 20150206: start  
4730        antlin := 0;        antlin := 0;
4731        antlinIdag := 0;        antlinIdag := 0;
4732        antlinSenere := 0;        antlinSenere := 0;
4733  // 20150306: slut  
4734        antalFelterFundet := 0;        antalFelterFundet := 0;
4735        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin
4736            Node:= XMLDocument1.DocumentElement.ChildNodes[I];            Node:= XMLDocument1.DocumentElement.ChildNodes[I];
# Line 5026  var Line 4763  var
4763        antalFelterFundet := 0;        antalFelterFundet := 0;
4764        SetLength(stregkoderMedTjekkodeArray, 0);    // reset fra tidligere brug        SetLength(stregkoderMedTjekkodeArray, 0);    // reset fra tidligere brug
4765        SetLength(stregkoderMedTjekkodeArray, antlin);  // sæt antal elementer i array        SetLength(stregkoderMedTjekkodeArray, antlin);  // sæt antal elementer i array
4766  // 20150206: start  
 //      logTekst := 'Der er '+IntToStr(antlin)+' pakker, der endnu ikke er modtaget.';  
4767        logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget';        logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget';
4768        if (antlinSenere > 0) then        if (antlinSenere > 0) then
4769        begin        begin
4770          logTekst := logTekst + ' (' + IntToStr(antlinIdag) + ' til i dag og ' + IntToStr(antlinSenere) + ' til senere)';          logTekst := logTekst + ' (' + IntToStr(antlinIdag) + ' til i dag og ' + IntToStr(antlinSenere) + ' til senere)';
4771        end;        end;
4772        logTekst := logTekst + '.';        logTekst := logTekst + '.';
4773  // 20150306: slut  
4774        SkrivScanningLogFil(logTekst);        SkrivScanningLogFil(logTekst);
4775        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin
4776            Node:= XMLDocument1.DocumentElement.ChildNodes[I];            Node:= XMLDocument1.DocumentElement.ChildNodes[I];
# Line 5084  var Line 4820  var
4820                    begin                    begin
4821                      stregkoderMedTjekkodeArray[linienr] := stregkode;                      stregkoderMedTjekkodeArray[linienr] := stregkode;
4822                    end;                    end;
4823  // 20150306: slut                    linienr := linienr + 1;
                     linienr := linienr + 1;  
4824                  end;                  end;
4825              end;              end;
4826              if antalFelterFundet = antalLiniefelter then              if antalFelterFundet = antalLiniefelter then
# Line 5110  var Line 4845  var
4845    
4846          // Free up the list object          // Free up the list object
4847        pakketyper.Free;        pakketyper.Free;
 // 20150306: start  
4848  //      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.');
4849        logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget';        logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget';
4850        if (antlinSenere > 0) then        if (antlinSenere > 0) then
# Line 5119  var Line 4853  var
4853        end;        end;
4854        logTekst := logTekst + '.';        logTekst := logTekst + '.';
4855        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
 // 20150306: slut  
 // 20150309: start  
4856        if (antlinSenere > 0) then        if (antlinSenere > 0) then
4857        begin        begin
4858          StaticTextManglendePakker.Caption := IntToStr(antlinIdag) + '/' + IntToStr(antlinSenere);          StaticTextManglendePakker.Caption := IntToStr(antlinIdag) + '/' + IntToStr(antlinSenere);
# Line 5129  var Line 4861  var
4861        begin        begin
4862          StaticTextManglendePakker.Caption := IntToStr(antlinIdag);          StaticTextManglendePakker.Caption := IntToStr(antlinIdag);
4863        end;        end;
 // 20150309: slut  
4864    
 // 20150310: start  
4865        if (Scanningtype = '1') then        if (Scanningtype = '1') then
4866        begin        begin
4867          //antlinIdag := 9876;  // til test af boksens udseende ved stort tal          //antlinIdag := 9876;  // til test af boksens udseende ved stort tal
# Line 5210  var Line 4940  var
4940            PanelManglendePakker6.Visible := false;            PanelManglendePakker6.Visible := false;
4941          end;          end;
4942        end;        end;
 // 20150310: slut  
4943    
4944      except on e:exception do      except on e:exception do
4945        begin        begin
# Line 5541  begin Line 5270  begin
5270    result := svar;    result := svar;
5271  end;  end;
5272    
5273    procedure TMainForm.VisAlarmSkaerm(var List1msg: string);
5274    begin
5275      //ShowMessage('Ændring ikke tilladt');
5276      // Her skal komme en 'rød skærm' alarm
5277      PlaySound(PWideChar(AlarmLyd));
5278      List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';
5279      ListBox1.Items.Insert(0, List1Msg);
5280      MainForm.Color := clRed;
5281      RuteNummerST.Caption := '';
5282      BoghandlerNavnST.Caption := '';
5283      KommentarST.Caption := List1msg;
5284      PakkeshopNulstil.Visible := true;
5285    end;
5286    
5287  function TMainForm.getProddato() : TDate;  function TMainForm.getProddato() : TDate;
5288  var  var
5289     idag, imorgen : TDateTime;     idag, imorgen : TDateTime;
# Line 5622  procedure TMainForm.Scanogstjekkoden1Cli Line 5365  procedure TMainForm.Scanogstjekkoden1Cli
5365  begin  begin
5366    if Scanogstjekkoden1.Checked then    if Scanogstjekkoden1.Checked then
5367    begin    begin
5368       CheckBox3.Checked := true;       chkScanTjekkode.Checked := true;
5369    end    end
5370    else    else
5371    begin    begin
5372       CheckBox3.Checked := false;       chkScanTjekkode.Checked := false;
5373    end;    end;
5374  end;  end;
5375    
Legend:
Removed from v.2650  
changed lines
  Added in v.2658
  ViewVC Help
Powered by ViewVC 1.1.20