/[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 2647 by torben, Thu Aug 20 20:16:16 2015 UTC revision 2660 by torben, Sun Aug 23 14:45:16 2015 UTC
# Line 8  uses Line 8  uses
8    IdTCPClient, IdHTTP, xmldom, XMLIntf, msxmldom, XMLDoc, IniFiles, AppEvnts,    IdTCPClient, IdHTTP, xmldom, XMLIntf, msxmldom, XMLDoc, IniFiles, AppEvnts,
9    Menus, ExtCtrls, ComCtrls, StrUtils, MMSystem, DateUtils,    Menus, ExtCtrls, ComCtrls, StrUtils, MMSystem, DateUtils,
10    IdExplicitTLSClientServerBase, IdFTP, pngimage, GIFImg, IdException,    IdExplicitTLSClientServerBase, IdFTP, pngimage, GIFImg, IdException,
11    Winspool, Registry, ShellApi, ClipBrd, Buttons, wininet    Winspool, Registry, ShellApi, ClipBrd, Buttons, wininet,
12      UITypes
13    
14    ;    ;
15    
16  type  type
# Line 20  type Line 22  type
22      IdHTTP1: TIdHTTP;      IdHTTP1: TIdHTTP;
23      XMLDocument1: TXMLDocument;      XMLDocument1: TXMLDocument;
24      ApplicationEvents1: TApplicationEvents;      ApplicationEvents1: TApplicationEvents;
25      CheckBox1: TCheckBox;      chkSporgEfterKunde: TCheckBox;
26      KommentarST: TStaticText;      KommentarST: TStaticText;
27      MainMenu1: TMainMenu;      MainMenu1: TMainMenu;
28      N1: TMenuItem;      N1: TMenuItem;
# Line 36  type Line 38  type
38      Lukprogrammet1: TMenuItem;      Lukprogrammet1: TMenuItem;
39      N2: TMenuItem;      N2: TMenuItem;
40      N3: TMenuItem;      N3: TMenuItem;
41      RadioButton1: TRadioButton;      radioStorPakke: TRadioButton;
42      RadioButton2: TRadioButton;      radioLillePakke: TRadioButton;
43      N4: TMenuItem;      N4: TMenuItem;
44      Storepakker1: TMenuItem;      Storepakker1: TMenuItem;
45      Smpakker1: TMenuItem;      Smpakker1: TMenuItem;
# Line 59  type Line 61  type
61      PakkeshopNulstil: TButton;      PakkeshopNulstil: TButton;
62      Returpakkerfrapakkeshop1: TMenuItem;      Returpakkerfrapakkeshop1: TMenuItem;
63      Altidprintepakkelabel1: TMenuItem;      Altidprintepakkelabel1: TMenuItem;
64      CheckBox2: TCheckBox;      chkAltidPrintLabel: TCheckBox;
65      EKLoverforsel: TButton;      EKLoverforsel: TButton;
66      N5: TMenuItem;      N5: TMenuItem;
67      Uploadlogfil1: TMenuItem;      Uploadlogfil1: TMenuItem;
68      Manual1: TMenuItem;      Manual1: TMenuItem;
69      PrinterstatusStaticText1: TStaticText;      PrinterstatusStaticText1: TStaticText;
70      Timer1: TTimer;      Timer1: TTimer;
71      CheckBox3: TCheckBox;      chkScanTjekkode: TCheckBox;
72      Scanogstjekkoden1: TMenuItem;      Scanogstjekkoden1: TMenuItem;
73      Automatisktjekkodestyring1: TMenuItem;      Automatisktjekkodestyring1: TMenuItem;
74      Automatiskvalg1: TMenuItem;      Automatiskvalg1: TMenuItem;
# Line 77  type Line 79  type
79      PanelValg4: TPanel;      PanelValg4: TPanel;
80      PanelValg5: TPanel;      PanelValg5: TPanel;
81      PanelValg6: TPanel;      PanelValg6: TPanel;
82        PanelValg7: TPanel;
83      Manualgenerel1: TMenuItem;      Manualgenerel1: TMenuItem;
84      StaticTextManglendePakker: TStaticText;      StaticTextManglendePakker: TStaticText;
85      PanelManglendePakker1: TPanel;      PanelManglendePakker1: TPanel;
# Line 86  type Line 89  type
89      PanelManglendePakker5: TPanel;      PanelManglendePakker5: TPanel;
90      PanelManglendePakker6: TPanel;      PanelManglendePakker6: TPanel;
91    
92    
93    function Explode(var a: TStrArray; Border, S: string): Integer;    function Explode(var a: TStrArray; Border, S: string): Integer;
94    function BarCodeValid (ACode: string): boolean;    function BarCodeValid (ACode: string): boolean;
95    function Sto_GetFmtFileVersion(const FileName: String = ''; const Fmt: String = '%d.%d.%d.%d'): String;    function Sto_GetFmtFileVersion(const FileName: String = ''; const Fmt: String = '%d.%d.%d.%d'): String;
# Line 112  type Line 116  type
116    procedure FormKeyPress(Sender: TObject; var Key: Char);    procedure FormKeyPress(Sender: TObject; var Key: Char);
117    procedure FormCreate(Sender: TObject);    procedure FormCreate(Sender: TObject);
118    procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);    procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
119    procedure RadioButton1Click(Sender: TObject);    procedure radioStorPakkeClick(Sender: TObject);
120    procedure RadioButton2Click(Sender: TObject);    procedure radioLillePakkeClick(Sender: TObject);
121    procedure CheckBox1Click(Sender: TObject);    procedure chkSporgEfterKundeClick(Sender: TObject);
122    procedure Pakkernormal1Click(Sender: TObject);    procedure Pakkernormal1Click(Sender: TObject);
123    procedure Testforbindelsen1Click(Sender: TObject);    procedure Testforbindelsen1Click(Sender: TObject);
124    procedure Testprinter1Click(Sender: TObject);    procedure Testprinter1Click(Sender: TObject);
# Line 150  type Line 154  type
154    procedure InitDirektelevering();    procedure InitDirektelevering();
155    procedure InitPakkeshoplevering();    procedure InitPakkeshoplevering();
156    procedure InitReturFraPakkeshop();    procedure InitReturFraPakkeshop();
157      procedure InitIndleveringskode();
158    
159    procedure Altidprintepakkelabel1Click(Sender: TObject);    procedure Altidprintepakkelabel1Click(Sender: TObject);
160    procedure CheckBox2Click(Sender: TObject);    procedure chkAltidPrintLabelClick(Sender: TObject);
161    procedure EKLoverforselClick(Sender: TObject);    procedure EKLoverforselClick(Sender: TObject);
162    procedure Uploadlogfil1Click(Sender: TObject);    procedure Uploadlogfil1Click(Sender: TObject);
163    procedure Manual1Click(Sender: TObject);    procedure Manual1Click(Sender: TObject);
164    procedure CheckPrintQue(tjektype : string);    procedure CheckPrintQue(tjektype : string);
165    procedure Timer1Timer(Sender: TObject);    procedure Timer1Timer(Sender: TObject);
166    procedure Scanogstjekkoden1Click(Sender: TObject);    procedure Scanogstjekkoden1Click(Sender: TObject);
167    procedure CheckBox3Click(Sender: TObject);    procedure chkScanTjekkodeClick(Sender: TObject);
168    procedure Automatisktjekkodestyring1Click(Sender: TObject);    procedure Automatisktjekkodestyring1Click(Sender: TObject);
169    procedure SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);    procedure SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);
170    procedure Automatiskvalg1Click(Sender: TObject);    procedure Automatiskvalg1Click(Sender: TObject);
# Line 169  type Line 175  type
175    procedure PanelValg4Click(Sender: TObject);    procedure PanelValg4Click(Sender: TObject);
176    procedure PanelValg5Click(Sender: TObject);    procedure PanelValg5Click(Sender: TObject);
177    procedure PanelValg6Click(Sender: TObject);    procedure PanelValg6Click(Sender: TObject);
178      procedure PanelValg7Click(Sender: TObject);
179    
180    procedure NulstilAutomatiskValg();    procedure NulstilAutomatiskValg();
181    procedure SletLogfiler(Path: string; FileList: TStrings);    procedure SletLogfiler(Path: string; FileList: TStrings);
182    procedure Manualgenerel1Click(Sender: TObject);    procedure Manualgenerel1Click(Sender: TObject);
183    procedure TjekkerUrls();    procedure TjekkerUrls();
184  // 20150310: start  // 20150310: start
185    procedure RoundCornerOf(Control: TWinControl);    procedure RoundCornerOf(Control: TWinControl);
186    
187    
188  // 20150310: slut  // 20150310: slut
189    
190    private    private
# Line 191  type Line 201  type
201      Scanningtype, TestFunktionen, Pakketype, SporgEfterBoghandler : String;      Scanningtype, TestFunktionen, Pakketype, SporgEfterBoghandler : String;
202      ScanTjekkode : String;      ScanTjekkode : String;
203      ScanTjekkodeAutomatik : string;      ScanTjekkodeAutomatik : string;
204      Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop : String;      Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop, FarveIndlevering : String;
205      Titel, TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop : String;      Titel, TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop, TitelIndlevering : String;
206      LabelType : integer;      LabelType : integer;
207      AlarmLyd : String;      AlarmLyd : String;
208      ScannetOkLyd : String;      ScannetOkLyd : String;
# Line 250  type Line 260  type
260      procedure IndlesScanningLogFil();      procedure IndlesScanningLogFil();
261      procedure SkrivScanningLogFil(var tekst : string);      procedure SkrivScanningLogFil(var tekst : string);
262      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;
263        procedure VisAlarmSkaerm(strMessage: string);
264    
265    public    public
266      { Public declarations }      { Public declarations }
# Line 329  begin Line 340  begin
340        PanelValg6.Font.Color := clWindowText;        PanelValg6.Font.Color := clWindowText;
341      end;      end;
342    
343        PanelValg7.Color := clBtnFace;
344        if PanelValg7.Enabled = true then
345        begin
346          PanelValg7.Font.Color := clWindowText;
347        end;
348    
349      OpdaterListenButton01.Enabled := false;      OpdaterListenButton01.Enabled := false;
350    
351      if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then      if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then
# Line 398  begin Line 415  begin
415      else      else
416        PakkeshopText1.Visible := false;        PakkeshopText1.Visible := false;
417    
418      CheckBox3.Checked := false;      chkScanTjekkode.Checked := false;
419      CheckBox3.Enabled := false;      chkScanTjekkode.Enabled := false;
420      Scanogstjekkoden1.Enabled := false;      Scanogstjekkoden1.Enabled := false;
421    
422      if (Scanningtype = '1') or (Scanningtype = '5') then      if (Scanningtype = '1') or (Scanningtype = '5') then
423      begin      begin
424        if (ScanTjekkode = '1') then        if (ScanTjekkode = '1') then
425        begin        begin
426          CheckBox3.Checked := true;          chkScanTjekkode.Checked := true;
427          CheckBox3.Enabled := true;          chkScanTjekkode.Enabled := true;
428          Scanogstjekkoden1.Enabled := true;          Scanogstjekkoden1.Enabled := true;
429        end        end
430        else        else
431        begin        begin
432          CheckBox3.Checked := false;          chkScanTjekkode.Checked := false;
433          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
434          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
435        end;        end;
436      end;      end;
437    
438      if Automatisktjekkodestyring1.Checked then      if Automatisktjekkodestyring1.Checked then
439      begin      begin
440        CheckBox3.Enabled := false;        chkScanTjekkode.Enabled := false;
441        Scanogstjekkoden1.Enabled := false;        Scanogstjekkoden1.Enabled := false;
442      end;      end;
443    
# Line 461  begin Line 478  begin
478    
479    if Altidprintepakkelabel1.Checked then    if Altidprintepakkelabel1.Checked then
480    begin    begin
481       CheckBox2.Checked := true;       chkAltidPrintLabel.Checked := true;
482    end    end
483    else    else
484    begin    begin
485       CheckBox2.Checked := false;       chkAltidPrintLabel.Checked := false;
486    end;    end;
487    
488  end;  end;
# Line 479  procedure TMainForm.Automatisktjekkodest Line 496  procedure TMainForm.Automatisktjekkodest
496  begin  begin
497    if Automatisktjekkodestyring1.Checked then    if Automatisktjekkodestyring1.Checked then
498    begin    begin
499       CheckBox3.Enabled := false;       chkScanTjekkode.Enabled := false;
500       Scanogstjekkoden1.Enabled := false;       Scanogstjekkoden1.Enabled := false;
501    end    end
502    else    else
503    begin    begin
504       CheckBox3.Enabled := true;       chkScanTjekkode.Enabled := true;
505       Scanogstjekkoden1.Enabled := true;       Scanogstjekkoden1.Enabled := true;
506    end;    end;
507    
# Line 520  const Line 537  const
537    crlf = Chr(13) + Chr(10) ;  // Carriage return & Linefeed    crlf = Chr(13) + Chr(10) ;  // Carriage return & Linefeed
538  var  var
539    printerInd : integer;    printerInd : integer;
   i : Integer;  
 // 20150310: start  
540    gemScanningtype : String;    gemScanningtype : String;
 // 20150310: slut  
541    
542  begin  begin
543    // Initierer nogle variabler    // Initierer nogle variabler
# Line 531  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 552  begin Line 565  begin
565    
566  // Sætter lige en default panel størrelse  // Sætter lige en default panel størrelse
567    MainForm.ClientWidth := 1000;    MainForm.ClientWidth := 1000;
568    MainForm.ClientHeight := 700;    MainForm.ClientHeight := 750;
569    
570    // Læser parametre fra ini filen    // Læser parametre fra ini filen
571    with TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) do    with TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) do
# Line 568  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 586  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 597  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 700  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 818  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 852  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 989  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 1034  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 1072  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 1113  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 1134  var Line 1152  var
1152    BoghandlerNavn : String;    BoghandlerNavn : String;
1153    Koreliste : String;    Koreliste : String;
1154    PrintNyLabel : Boolean;    PrintNyLabel : Boolean;
   List1msg : String;  
1155    pakkeErScannet : Integer;    pakkeErScannet : Integer;
1156    pakkeForkertSted : Integer;    pakkeForkertSted : Integer;
1157    tjekkodeMangler : Integer;    tjekkodeMangler : Integer;
# Line 1159  begin Line 1176  begin
1176      ClipboardData := Clipboard.AsText;      ClipboardData := Clipboard.AsText;
1177      numberString := ClipboardData;      numberString := ClipboardData;
1178      Val(numberString, float, errorPos);      Val(numberString, float, errorPos);
1179  // 20150311: start  
1180  //    if (ClipboardData <> '') and (errorPos = 0) then      //    if (ClipboardData <> '') and (errorPos = 0) then
1181      if (ClipboardData <> '') and (errorPos = 0)      if (ClipboardData <> '') and (errorPos = 0)
1182      or (NumberString = 'Nulstil')      or (NumberString = 'Nulstil')
1183      or (NumberString = 'Indtast kundenummer')      or (NumberString = 'Indtast kundenummer')
# Line 1175  begin Line 1192  begin
1192      or (NumberString = 'DAO DIREKTE')      or (NumberString = 'DAO DIREKTE')
1193      or (NumberString = 'DAO PAKKESHOP')      or (NumberString = 'DAO PAKKESHOP')
1194      or (NumberString = 'Retur fra pakkeshop') then      or (NumberString = 'Retur fra pakkeshop') then
1195  // 20150311: slut  
1196      begin      begin
1197        Stregkode := Stregkode + ClipboardData;        Stregkode := Stregkode + ClipboardData;
1198        StregkodeST.Caption := StregKode;        StregkodeST.Caption := StregKode;
# Line 1188  begin Line 1205  begin
1205    
1206    if Key = #13 then     // Enter    if Key = #13 then     // Enter
1207    begin    begin
 // 20150306: start  
1208      if (Length(Trim(Stregkode)) = 0) then      if (Length(Trim(Stregkode)) = 0) then
1209      begin      begin
1210        PlaySound(PWideChar(AlarmLyd));        VisAlarmSkaerm( 'Der skal scannes en stregkode...' );
1211        List1msg := 'Der skal scannes en stregkode...';  
       ListBox1.Items.Insert(0,List1Msg);  
       MainForm.Color := clRed;  
 // 20150316: start  
       RuteNummerST.Caption := '';  
       BoghandlerNavnST.Caption := '';  
 // 20150316: slut  
       KommentarST.Caption := List1msg;  
       PakkeshopNulstil.Visible := true;  
1212        exit;        exit;
1213      end;      end;
 // 20150306: slut  
1214    
 // 20150311: start  
1215      if StregKode = 'Nulstil' then      if StregKode = 'Nulstil' then
1216      begin      begin
1217         PakkeshopNulstil.Click();         PakkeshopNulstil.Click();
# Line 1214  begin Line 1220  begin
1220    
1221      if PakkeshopNulstil.Visible then      if PakkeshopNulstil.Visible then
1222      begin      begin
1223         PlaySound(PWideChar(AlarmLyd));        VisAlarmSkaerm( 'HUSK at klikke Nulstil før ny scanning...' );
1224  // 20150312: start  
 //       List1msg := 'HUSK at trykke Nulstil før ny scanning...';  
        List1msg := 'HUSK at klikke Nulstil før ny scanning...';  
 // 20150312: slut  
        ListBox1.Items.Insert(0,List1Msg);  
        MainForm.Color := clRed;  
        KommentarST.Caption := List1msg;  
 // 20150312: start  
        Stregkode := '';  
        StregkodeST.Caption := StregKode;  
 // 20150312: slut  
1225         exit;         exit;
1226      end;      end;
1227    
1228      if StregKode = 'Lille pakke' then      if StregKode = 'Lille pakke' then
1229      begin      begin
1230         if RadioButton2.Enabled = true then         if radioLillePakke.Enabled = true then
1231         begin         begin
1232            InitLillePakke();            InitLillePakke();
1233         end         end
1234         else         else
1235         begin         begin
1236          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
         // 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;  
1237         end;         end;
1238         Stregkode := '';         Stregkode := '';
1239         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1257  begin Line 1242  begin
1242    
1243      if StregKode = 'Stor pakke' then      if StregKode = 'Stor pakke' then
1244      begin      begin
1245         if RadioButton1.Enabled = true then         if radioStorPakke.Enabled = true then
1246         begin         begin
1247            InitStorPakke();            InitStorPakke();
1248         end         end
1249         else         else
1250         begin         begin
1251          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
         // 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;  
1252         end;         end;
1253         Stregkode := '';         Stregkode := '';
1254         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1283  begin Line 1257  begin
1257    
1258      if StregKode = 'Indtast kundenummer' then      if StregKode = 'Indtast kundenummer' then
1259      begin      begin
1260         if CheckBox1.Enabled = true then         if chkSporgEfterKunde.Enabled = true then
1261         begin         begin
1262           if (CheckBox1.State = cbChecked) then           if (chkSporgEfterKunde.State = cbChecked) then
1263           begin           begin
1264            CheckBox1.State := cbUnchecked;            chkSporgEfterKunde.State := cbUnchecked;
1265           end           end
1266           else           else
1267           begin           begin
1268            CheckBox1.State := cbChecked;            chkSporgEfterKunde.State := cbChecked;
1269           end;           end;
1270         end         end
1271         else         else
1272         begin         begin
1273          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
         // 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;  
1274         end;         end;
1275         Stregkode := '';         Stregkode := '';
1276         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1316  begin Line 1279  begin
1279    
1280      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
1281      begin      begin
1282        if CheckBox3.Enabled = true then        if chkScanTjekkode.Enabled = true then
1283        begin        begin
1284           if (CheckBox3.State = cbChecked) then           if (chkScanTjekkode.State = cbChecked) then
1285           begin           begin
1286            CheckBox3.State := cbUnchecked;            chkScanTjekkode.State := cbUnchecked;
1287           end           end
1288           else           else
1289           begin           begin
1290            CheckBox3.State := cbChecked;            chkScanTjekkode.State := cbChecked;
1291           end;           end;
1292        end        end
1293        else        else
1294        begin        begin
1295          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
         // 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;  
1296        end;        end;
1297        Stregkode := '';        Stregkode := '';
1298        StregkodeST.Caption := StregKode;        StregkodeST.Caption := StregKode;
# Line 1355  begin Line 1307  begin
1307         end         end
1308         else         else
1309         begin         begin
1310          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm(Stregkode + ' kan ikke vælges på dette scanningsted');
         // 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;  
1311         end;         end;
1312         Stregkode := '';         Stregkode := '';
1313         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
1314         exit;         exit;
1315      end;      end;
1316    
1317  // 20150323: start  
 //    if StregKode = 'DAO NAT X-PRESS' then  
1318      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  
1319      begin      begin
1320         if (PanelValg1.Enabled = true) then         if (PanelValg1.Enabled = true) then
1321         begin         begin
# Line 1384  begin Line 1323  begin
1323         end         end
1324         else         else
1325         begin         begin
1326          //ShowMessage('Ændring ikke tilladt');          VisAlarmSkaerm(Stregkode + ' kan ikke vælges på dette scanningsted');
         // 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;  
1327         end;         end;
1328         Stregkode := '';         Stregkode := '';
1329         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1410  begin Line 1338  begin
1338         end         end
1339         else         else
1340         begin         begin
1341          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
         // 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;  
1342         end;         end;
1343         Stregkode := '';         Stregkode := '';
1344         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1436  begin Line 1353  begin
1353         end         end
1354         else         else
1355         begin         begin
1356          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
         // 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;  
1357         end;         end;
1358         Stregkode := '';         Stregkode := '';
1359         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1462  begin Line 1368  begin
1368         end         end
1369         else         else
1370         begin         begin
1371          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
         // 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;  
1372         end;         end;
1373         Stregkode := '';         Stregkode := '';
1374         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1488  begin Line 1383  begin
1383         end         end
1384         else         else
1385         begin         begin
1386          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
         // 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;  
1387         end;         end;
1388         Stregkode := '';         Stregkode := '';
1389         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1514  begin Line 1398  begin
1398         end         end
1399         else         else
1400         begin         begin
1401          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
         // 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;  
1402         end;         end;
1403         Stregkode := '';         Stregkode := '';
1404         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
1405         exit;         exit;
1406      end;      end;
1407  // 20150311: slut  
1408    
1409      if (Length(Stregkode) > 8) then      if (Length(Stregkode) > 8) then
1410      begin      begin
# Line 1586  begin Line 1459  begin
1459          or (Pakkescanningtype = '5') and (PanelValg5.Enabled = false)          or (Pakkescanningtype = '5') and (PanelValg5.Enabled = false)
1460          or (Pakkescanningtype = '6') and (PanelValg6.Enabled = false)  ) then          or (Pakkescanningtype = '6') and (PanelValg6.Enabled = false)  ) then
1461      begin   // Her skal komme en alarm og rød skærm      begin   // Her skal komme en alarm og rød skærm
1462         PlaySound(PWideChar(AlarmLyd));          VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
1463         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  
1464         exit;         exit;
1465      end;      end;
1466    
# Line 1615  begin Line 1476  begin
1476              end;              end;
1477            end            end
1478        // Retur kan ikke scannes med 'Automatisk valg'        // Retur kan ikke scannes med 'Automatisk valg'
1479  (*  
       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  
 *)  
1480        else if Pakketype = 'Direkte' then        else if Pakketype = 'Direkte' then
1481            begin            begin
1482              if Scanningtype <> '4' then              if Scanningtype <> '4' then
# Line 1650  begin Line 1494  begin
1494              end;              end;
1495            end            end
1496        // Retur kan ikke scannes med 'Automatisk valg'        // Retur kan ikke scannes med 'Automatisk valg'
1497  (*  
       else if Pakketype = 'PakkeshopRetur' then  
           begin  
             if Scanningtype <> '6' then  
             begin  
               Scanningtype := '6';  
               InitReturFraPakkeshop();  
             end;  
           end  
 *)  
1498        else        else
1499            begin   // Her skal komme en alarm og rød skærm            begin
1500               PlaySound(PWideChar(AlarmLyd));            // Her skal komme en alarm og rød skærm
1501               List1msg := 'Pakken kan ikke scannes med automatisk valg';              VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
1502               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  
1503               exit;               exit;
1504            end;            end;
1505        Stregkode := GemStregkode;        Stregkode := GemStregkode;
1506      end      end
1507      else if Automatiskvalg1.Checked and (PakkeshopText1.Caption = 'Stregkode') then      else if Automatiskvalg1.Checked and (PakkeshopText1.Caption = 'Stregkode') then
1508      begin      begin
1509        PlaySound(PWideChar(AlarmLyd));        VisAlarmSkaerm( 'Pakkenummer ikke gyldigt (for kort)' );
1510        List1msg := 'Pakkenummer ikke gyldigt (for kort)';  
       ListBox1.Items.Insert(0,List1Msg);  
       MainForm.Color := clRed;  
 // 20150316: start  
       RuteNummerST.Caption := '';  
       BoghandlerNavnST.Caption := '';  
 // 20150316: slut  
       KommentarST.Caption := List1msg;  
       PakkeshopNulstil.Visible := true;  
 // 20150312: start  
       StregKode := '';  
       StregkodeST.Caption := StregKode;  
 // 20150312: slut  
1511        exit;        exit;
1512      end;      end;
1513    
# Line 1703  begin Line 1515  begin
1515      begin      begin
1516        if ( (Pakkescanningtype <> Scanningtype) and (Scanningtype <> '2') and (Scanningtype <> '3') ) then        if ( (Pakkescanningtype <> Scanningtype) and (Scanningtype <> '2') and (Scanningtype <> '3') ) then
1517        begin        begin
         PlaySound(PWideChar(AlarmLyd));  
         List1msg := 'Pakke findes som pakketype: ' + Pakketype;  
         ListBox1.Items.Insert(0,List1Msg);  
         MainForm.Color := clRed;  
 // 20150316: start  
          RuteNummerST.Caption := '';  
          BoghandlerNavnST.Caption := '';  
 // 20150316: slut  
         KommentarST.Caption := List1msg;  
         PakkeshopNulstil.Visible := true;  
 // 20150312: start  
         StregKode := '';  
         StregkodeST.Caption := StregKode;  
 // 20150312: slut  
         exit;  
       end;  
     end;  
1518    
1519  // 20150311: start          VisAlarmSkaerm( 'Pakke findes som pakketype: ' + Pakketype );
 (*  
     if StregKode = 'Nulstil' then  
     begin  
        PakkeshopNulstil.Click();  
        exit;  
     end;  
1520    
1521      if PakkeshopNulstil.Visible then          exit;
1522      begin        end;
        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;  
1523      end;      end;
1524    
     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  
1525    
1526    
1527      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and Automatisktjekkodestyring1.Checked then      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and Automatisktjekkodestyring1.Checked then
1528      begin      begin
1529        CheckBox3.Checked := false;        chkScanTjekkode.Checked := false;
1530        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do
1531        begin        begin
1532          if (Stregkode=stregkoderMedTjekkodeArray[i]) then          if (Stregkode=stregkoderMedTjekkodeArray[i]) then
1533          begin          begin
1534              CheckBox3.Checked := true;              chkScanTjekkode.Checked := true;
1535              Scanogstjekkoden1.Checked := true;              Scanogstjekkoden1.Checked := true;
1536          end;          end;
1537        end;        end;
# Line 1825  begin Line 1567  begin
1567              PakkeshopStregkode := Stregkode;              PakkeshopStregkode := Stregkode;
1568              BoghandlerStregkode := Stregkode;              BoghandlerStregkode := Stregkode;
1569              PakkeshopText1.Caption := 'Tjekkode';              PakkeshopText1.Caption := 'Tjekkode';
1570  // 20150317: start  
1571              PlaySound(PWideChar(ScannetOkTilTjekkodeLyd));              PlaySound(PWideChar(ScannetOkTilTjekkodeLyd));
1572  // 20150317: slut  
1573             end             end
1574            else            else
1575             begin             begin
1576                List1msg := 'Du skal scanne en stregkode';                VisAlarmSkaerm( 'Du skal scanne en stregkode' );
               ListBox1.Items.Insert(0,List1Msg);  
               //logTekst := RightStr(List1Msg, Length(List1Msg)-10);  
               //SkrivScanningLogFil(logTekst);  
               PlaySound(PWideChar(AlarmLyd));  
               PakkeshopNulstil.Visible := true;  
               MainForm.Color := clRed;  
1577             end;             end;
1578            Stregkode := '';            Stregkode := '';
1579            InitScreen();            InitScreen();
# Line 1858  begin Line 1594  begin
1594          else          else
1595           begin           begin
1596                if (PakkeshopLevering1.Checked) then                if (PakkeshopLevering1.Checked) then
1597                  List1msg := 'Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode;                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode);
1598                if (Pakkernormal1.Checked) then                if (Pakkernormal1.Checked) then
1599                  List1msg := 'Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode;                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode);
1600                KommentarST.Caption := List1msg;                  
               ListBox1.Items.Insert(0,List1Msg);  
               //logTekst := RightStr(List1Msg, Length(List1Msg)-10);  
               //SkrivScanningLogFil(logTekst);  
               PlaySound(PWideChar(AlarmLyd));  
               PakkeshopNulstil.Visible := true;  
               MainForm.Color := clRed;  
 // 20150323: start  
1601                StregKode := '';                StregKode := '';
1602                StregkodeST.Caption := StregKode;                StregkodeST.Caption := StregKode;
1603  // 20150323: slut  
1604                exit;                exit;
1605           end;           end;
1606          Stregkode := '';          Stregkode := '';
# Line 1949  begin Line 1678  begin
1678            end            end
1679            else if Copy(Kommentar,1,8) = 'OPRETTET' then            else if Copy(Kommentar,1,8) = 'OPRETTET' then
1680            begin            begin
1681              List1msg := 'Pakke ' + PakkeshopStregkode + ' skal gemmes på lager indtil data modtages';              VisAlarmSkaerm( 'Pakke ' + PakkeshopStregkode + ' skal gemmes på lager indtil data modtages' );
             ListBox1.Items.Insert(0,List1Msg);  
             MainForm.Color := clRed;  
             PlaySound(PWideChar(AlarmLyd));  
             PakkeshopNulstil.Visible := true;  
1682            end            end
1683            else if Kommentar = StregKode then    // budlevering  til 'Ukendt tur'            else if Kommentar = StregKode then    // budlevering  til 'Ukendt tur'
1684            begin            begin
# Line 1966  begin Line 1691  begin
1691            end;            end;
1692           if not PakkeshopNulstil.Visible then           if not PakkeshopNulstil.Visible then
1693            begin            begin
1694  // 20150310: start  
 //            SletStregkodelinieFraListboks2(StregKode);  
 // 20150310: slut  
1695              If (Budlevering1.Checked) then              If (Budlevering1.Checked) then
1696              begin              begin
1697                if Storepakker1.Checked then                if Storepakker1.Checked then
# Line 1982  begin Line 1705  begin
1705                InitLillePakke();                InitLillePakke();
1706              end;              end;
1707            end;            end;
1708  // 20150310: start  
1709            SletStregkodelinieFraListboks2(StregKode);            SletStregkodelinieFraListboks2(StregKode);
1710  // 20150310: slut  
1711            PakkeshopStregkode := '';            PakkeshopStregkode := '';
1712            PakkeshopTjekkode := '';            PakkeshopTjekkode := '';
1713            BoghandlerStregkode := '';            BoghandlerStregkode := '';
# Line 2015  begin Line 1738  begin
1738    
1739    Key := #0;    Key := #0;
1740    
1741  end;  end; //End of OnKeyPress
1742    
1743  procedure TMainForm.SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);  procedure TMainForm.SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);
1744  const  const
# Line 2052  end; Line 1775  end;
1775    
1776  procedure TMainForm.SletStregkodelinieFraListboks2(StregKode : String);  procedure TMainForm.SletStregkodelinieFraListboks2(StregKode : String);
1777  var  var
 // 20150309: start  
 //  i:integer;  
1778    i : Integer;    i : Integer;
1779    wrkAntal : String;    wrkAntal : String;
1780    wrkAntalIdag, wrkAntalSenere : Integer;    wrkAntalIdag, wrkAntalSenere : Integer;
1781  // 20150309: slut  
1782    
1783  begin  begin
1784      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 2065  begin Line 1786  begin
1786        for i := ListBox2.items.count-1 downto 0 do        for i := ListBox2.items.count-1 downto 0 do
1787          if pos(StregKode,ListBox2.items[i]) <> 0 then          if pos(StregKode,ListBox2.items[i]) <> 0 then
1788          begin          begin
1789  // 20150309: start  
1790            // Ajourføring af tæller for manglende pakker (scanninger)            // Ajourføring af tæller for manglende pakker (scanninger)
1791            wrkAntal := StaticTextManglendePakker.Caption;            wrkAntal := StaticTextManglendePakker.Caption;
1792            if (pos('/', wrkAntal) > 0) then  // både pakker idag og senere            if (pos('/', wrkAntal) > 0) then  // både pakker idag og senere
# Line 2101  begin Line 1822  begin
1822            begin            begin
1823              StaticTextManglendePakker.Caption := IntToStr(wrkAntalIdag);              StaticTextManglendePakker.Caption := IntToStr(wrkAntalIdag);
1824            end;            end;
 // 20150309: slut  
1825    
 // 20150310: start  
1826            if (Scanningtype = '1') then            if (Scanningtype = '1') then
1827            begin            begin
1828              PanelManglendePakker1.Caption := IntToStr(wrkAntalIdag + wrkAntalSenere);              PanelManglendePakker1.Caption := IntToStr(wrkAntalIdag + wrkAntalSenere);
# Line 2208  begin Line 1927  begin
1927  end;  end;
1928    
1929  procedure TMainForm.InitBladhus();  procedure TMainForm.InitBladhus();
 var  
   LogFilnavn : string;  
1930    
1931  begin  begin
1932    Altidprintepakkelabel1.Enabled := false;    Altidprintepakkelabel1.Enabled := false;
# Line 2286  begin Line 2003  begin
2003              Testprinter1.Visible := true;              Testprinter1.Visible := true;
2004              Smpakker1.Enabled := true;              Smpakker1.Enabled := true;
2005              Storepakker1.Enabled := true;              Storepakker1.Enabled := true;
2006              RadioButton1.Enabled := true;              radioStorPakke.Enabled := true;
2007              RadioButton2.Enabled := true;              radioLillePakke.Enabled := true;
2008              DownloadButton01.Enabled := false;     // kontrolfil bruges ikke her              DownloadButton01.Enabled := false;     // kontrolfil bruges ikke her
2009              OpdaterListenButton01.Enabled := true;              OpdaterListenButton01.Enabled := true;
2010              IdFTP1.Passive := true;              IdFTP1.Passive := true;
# Line 2324  begin Line 2041  begin
2041              Testprinter1.Visible := true;              Testprinter1.Visible := true;
2042              Smpakker1.Enabled := true;              Smpakker1.Enabled := true;
2043              Storepakker1.Enabled := true;              Storepakker1.Enabled := true;
2044              RadioButton1.Enabled := true;              radioStorPakke.Enabled := true;
2045              RadioButton2.Enabled := true;              radioLillePakke.Enabled := true;
2046              DownloadButton01.Enabled := false;    // kontrolfil bruges ikke her              DownloadButton01.Enabled := false;    // kontrolfil bruges ikke her
2047              OpdaterListenButton01.Enabled := true;              OpdaterListenButton01.Enabled := true;
2048              IdFTP1.Passive := true;              IdFTP1.Passive := true;
# Line 2344  var Line 2061  var
2061    pakkestorrelse : String;    pakkestorrelse : String;
2062    PrintNyLabelInteger : Integer;    PrintNyLabelInteger : Integer;
2063  begin  begin
2064    if RadioButton1.Checked then    if radioStorPakke.Checked then
2065    begin    begin
2066      pakkestorrelse := 'Stor';      pakkestorrelse := 'Stor';
2067    end;    end;
2068    if RadioButton2.Checked then    if radioLillePakke.Checked then
2069    begin    begin
2070      pakkestorrelse := 'Lille';      pakkestorrelse := 'Lille';
2071    end;    end;
# Line 2414  begin Line 2131  begin
2131        BoghandlerNavn := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNr').Text;        BoghandlerNavn := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNr').Text;
2132        BoghandlerNavn := BoghandlerNavn + ' ' + XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;        BoghandlerNavn := BoghandlerNavn + ' ' + XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;
2133        PrintNyLabel := False;        PrintNyLabel := False;
2134  // 20150310: start  
2135        if Pakkeshoplevering1.Checked then        if Pakkeshoplevering1.Checked then
2136        begin        begin
 // 20150310: slut  
2137          try          try
2138            PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text);            PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text);
2139          except on e:exception do          except on e:exception do
# Line 2503  begin Line 2219  begin
2219    if Pakkeshoplevering1.Checked then    if Pakkeshoplevering1.Checked then
2220      List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; ';      List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; ';
2221    List1Pakkestorrelse := '';    List1Pakkestorrelse := '';
2222    if RadioButton1.Checked then    if radioStorPakke.Checked then
2223    begin    begin
2224      List1Pakkestorrelse := 'Stor pakke';      List1Pakkestorrelse := 'Stor pakke';
2225    end;    end;
2226    if RadioButton2.Checked then    if radioLillePakke.Checked then
2227    begin    begin
2228      List1Pakkestorrelse := 'Lille pakke';      List1Pakkestorrelse := 'Lille pakke';
2229    end;    end;
# Line 2529  begin Line 2245  begin
2245    if Budlevering1.Checked then    if Budlevering1.Checked then
2246    begin    begin
2247       List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn;       List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn;
2248        if (RadioButton1.Checked) then        if (radioStorPakke.Checked) then
2249        begin        begin
2250          List1msg := List1msg + '; Stor pakke';          List1msg := List1msg + '; Stor pakke';
2251        end;        end;
2252        if (RadioButton2.Checked) then        if (radioLillePakke.Checked) then
2253        begin        begin
2254          List1msg := List1msg + '; Lille pakke';          List1msg := List1msg + '; Lille pakke';
2255        end;        end;
# Line 2590  begin Line 2306  begin
2306    end;    end;
2307    pakkeForkertSted := pos('burde være hos', Kommentar);    pakkeForkertSted := pos('burde være hos', Kommentar);
2308    
2309  // 20150306: start  
2310  //  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
2311    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  
2312    begin    begin
2313        if (RuteNummer = 'Ukendt') then        if (RuteNummer = 'Ukendt') then
2314        begin        begin
# Line 2620  begin Line 2335  begin
2335       if (BoghandlerNavn = 'Ukendt pakke') then       if (BoghandlerNavn = 'Ukendt pakke') then
2336       begin       begin
2337          PrintNyLabel := false;          PrintNyLabel := false;
2338  // 20150306: start  
 //        PlaySound(PWideChar(AlarmLyd));  
2339          PlaySound(PWideChar(AlarmLyd));          PlaySound(PWideChar(AlarmLyd));
2340          MainForm.Color := clRed;          MainForm.Color := clRed;
2341          PakkeshopNulstil.Visible := true;          PakkeshopNulstil.Visible := true;
2342  // 20150306: slut  
2343       end       end
2344       else       else
2345       begin       begin
# Line 2641  begin Line 2355  begin
2355            ListBox1.Items.Insert(0,List1Msg);            ListBox1.Items.Insert(0,List1Msg);
2356            logTekst := RightStr(List1Msg, Length(List1Msg)-10);            logTekst := RightStr(List1Msg, Length(List1Msg)-10);
2357            SkrivScanningLogFil(logTekst);            SkrivScanningLogFil(logTekst);
2358  // 20150213: start  
2359            if (PrinterNavn = 'Ingen') then            if (PrinterNavn = 'Ingen') then
2360            begin            begin
2361               PrintNyLabel := false;               PrintNyLabel := false;
2362            end;            end;
2363  // 20150313: slut  
 // 20150306: start  
 //          PlaySound(PWideChar(AlarmLyd));  
2364            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
2365            begin            begin
2366              PlaySound(PWideChar(AlarmLyd));              PlaySound(PWideChar(AlarmLyd));
2367              MainForm.Color := clRed;              MainForm.Color := clRed;
2368              PakkeshopNulstil.Visible := true;              PakkeshopNulstil.Visible := true;
2369            end;            end;
2370  // 20150306: slut  
2371         end;         end;
2372         kontrolKoreliste := TjekKoreliste(RuteNummer, Koreliste);         kontrolKoreliste := TjekKoreliste(RuteNummer, Koreliste);
2373         if (kontrolKoreliste <> RuteNummer) then         if (kontrolKoreliste <> RuteNummer) then
# Line 2674  begin Line 2386  begin
2386            ListBox1.Items.Insert(0,List1Msg);            ListBox1.Items.Insert(0,List1Msg);
2387            logTekst := RightStr(List1Msg, Length(List1Msg)-10);            logTekst := RightStr(List1Msg, Length(List1Msg)-10);
2388            SkrivScanningLogFil(logTekst);            SkrivScanningLogFil(logTekst);
2389  // 20150306: start  
 //          PlaySound(PWideChar(AlarmLyd));  
2390            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
2391            begin            begin
2392              PlaySound(PWideChar(AlarmLyd));              PlaySound(PWideChar(AlarmLyd));
2393              MainForm.Color := clRed;              MainForm.Color := clRed;
2394              PakkeshopNulstil.Visible := true;              PakkeshopNulstil.Visible := true;
2395            end;            end;
2396  // 20150306: slut  
 // 20150306: start  
 //       end  
 //       else  
 //       begin  
2397         end;         end;
2398       end;       end;
2399    
# Line 2746  begin Line 2453  begin
2453      exit;      exit;
2454    end;    end;
2455    
2456    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
2457    begin    begin
2458    end    end
2459    else    else
2460    begin    begin
2461      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
2462      begin      begin
2463        logTekst := 'Printer label type ';        logTekst := 'Printer label type ';
2464        if (CheckBox2.Checked) then        if (chkAltidPrintLabel.Checked) then
2465        begin        begin
2466          logTekst := logTekst + 'Alle ';          logTekst := logTekst + 'Alle ';
2467        end        end
# Line 2821  begin Line 2528  begin
2528          Canvas.TextOut(XPosSorteringsfelt2,YPosSorteringsfelt2, Leveringssted);   // sorteringsoplysning 2          Canvas.TextOut(XPosSorteringsfelt2,YPosSorteringsfelt2, Leveringssted);   // sorteringsoplysning 2
2529        end;        end;
2530        Canvas.Font.Size := FontSizeKommentar;        Canvas.Font.Size := FontSizeKommentar;
2531    
2532        Kommentar := StringReplace(Kommentar, #$A, ' - ', [rfReplaceAll, rfIgnoreCase]);        Kommentar := StringReplace(Kommentar, #$A, ' - ', [rfReplaceAll, rfIgnoreCase]);
 // 20150304: start  
2533        Kommentar := StringReplace(Kommentar, 'PAKKE ER SCANNET', '', [rfReplaceAll, rfIgnoreCase]);        Kommentar := StringReplace(Kommentar, 'PAKKE ER SCANNET', '', [rfReplaceAll, rfIgnoreCase]);
2534  // 20150304: slut  
2535        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)
2536        if SmsKode <> '' then        if SmsKode <> '' then
2537        begin        begin
# Line 2838  begin Line 2545  begin
2545  end;  end;
2546    
2547    
2548  procedure TMainForm.RadioButton1Click(Sender: TObject);  procedure TMainForm.radioStorPakkeClick(Sender: TObject);
2549  begin  begin
2550      Storepakker1.Checked := true;      Storepakker1.Checked := true;
2551      RadioButton1.Checked := true;      radioStorPakke.Checked := true;
2552  end;  end;
2553    
2554  procedure TMainForm.RadioButton2Click(Sender: TObject);  procedure TMainForm.radioLillePakkeClick(Sender: TObject);
2555  begin  begin
2556      Smpakker1.Checked := true;      Smpakker1.Checked := true;
2557      RadioButton2.Checked := true;      radioLillePakke.Checked := true;
2558  end;  end;
2559    
2560    
2561  procedure TMainForm.CheckBox1Click(Sender: TObject);  procedure TMainForm.chkSporgEfterKundeClick(Sender: TObject);
2562  begin  begin
2563    if CheckBox1.Checked then    if chkSporgEfterKunde.Checked then
2564    begin    begin
2565       Sprgefterboghandlernummer1.Checked := true;       Sprgefterboghandlernummer1.Checked := true;
2566    end    end
# Line 2864  begin Line 2571  begin
2571  end;  end;
2572    
2573    
2574  procedure TMainForm.CheckBox2Click(Sender: TObject);  procedure TMainForm.chkAltidPrintLabelClick(Sender: TObject);
2575  begin  begin
2576    if CheckBox2.Checked then    if chkAltidPrintLabel.Checked then
2577    begin    begin
2578       Altidprintepakkelabel1.Checked := true;       Altidprintepakkelabel1.Checked := true;
2579    end    end
# Line 2877  begin Line 2584  begin
2584    
2585  end;  end;
2586    
2587  procedure TMainForm.CheckBox3Click(Sender: TObject);  procedure TMainForm.chkScanTjekkodeClick(Sender: TObject);
2588  begin  begin
2589    if CheckBox3.Checked then    if chkScanTjekkode.Checked then
2590    begin    begin
2591       Scanogstjekkoden1.Checked := true;       Scanogstjekkoden1.Checked := true;
2592    end    end
# Line 2901  begin Line 2608  begin
2608      Automatiskvalg1.Checked := false;      Automatiskvalg1.Checked := false;
2609      PanelValgA.Color := clBtnFace;      PanelValgA.Color := clBtnFace;
2610      PanelValgA.Font.Color := clWindowText;      PanelValgA.Font.Color := clWindowText;
2611  // 20150317: start  
2612      if (SpecialVersionSted = '01')      if (SpecialVersionSted = '01')
2613      or (SpecialVersionSted = '02')        or (SpecialVersionSted = '02')
2614      or (SpecialVersionSted = '03')        or (SpecialVersionSted = '03')
2615      or (SpecialVersionSted = '04') then        or (SpecialVersionSted = '04') then
2616      begin      begin
2617        // 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)
2618        PanelValgA.Enabled := false;        PanelValgA.Enabled := false;
# Line 3212  begin Line 2919  begin
2919            end;            end;
2920          end;          end;
2921    
2922  // 20150330: start  
2923          // Tjekker UrlEKLoverforselPakkeshop          // Tjekker UrlEKLoverforselPakkeshop
2924          if PanelValg5.Enabled = true then          if PanelValg5.Enabled = true then
2925          begin          begin
# Line 3240  begin Line 2947  begin
2947              end;              end;
2948            end;            end;
2949          end;          end;
2950  // 20150330: slut  
2951    
2952          // Tjekker UrlFindPakketype          // Tjekker UrlFindPakketype
2953          if CheckUrl(UrlFindPakketype) then          if CheckUrl(UrlFindPakketype) then
# Line 3412  begin Line 3119  begin
3119    PrinterstatusStaticText1.Color := MainForm.Color;    PrinterstatusStaticText1.Color := MainForm.Color;
3120  end;  end;
3121    
3122    
3123  procedure TMainForm.PanelValg1Click(Sender: TObject);  procedure TMainForm.PanelValg1Click(Sender: TObject);
3124  begin  begin
3125        Scanningtype := '1';        Scanningtype := '1';
# Line 3454  begin Line 3162  begin
3162        NulstilAutomatiskValg();        NulstilAutomatiskValg();
3163  end;  end;
3164    
3165    
3166    procedure TMainForm.PanelValg7Click(Sender: TObject);
3167    begin
3168          Scanningtype := '7';
3169          InitIndleveringskode();
3170          NulstilAutomatiskValg();
3171    
3172    end;
3173    
3174  procedure TMainForm.PanelValgAClick(Sender: TObject);  procedure TMainForm.PanelValgAClick(Sender: TObject);
3175  begin  begin
3176  // 20150311: start  // 20150311: start
# Line 3493  var Line 3210  var
3210    BoghandlerNavn : String;    BoghandlerNavn : String;
3211    Koreliste : String;    Koreliste : String;
3212    Falsk : Boolean;    Falsk : Boolean;
   Sand : Boolean;  
3213    SmsKode : String;    SmsKode : String;
3214    DBKbane : String;    DBKbane : String;
3215    Leveringssted : String;    Leveringssted : String;
# Line 3520  begin Line 3236  begin
3236    else    else
3237    begin    begin
3238      Falsk := False;      Falsk := False;
3239      Sand := True;  
3240      HentPakkeInfoFraServer(Sted,'111111111100000', RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk, '');      HentPakkeInfoFraServer(Sted,'111111111100000', RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk, '');
3241      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');
3242      SmsKode := '999999';      SmsKode := '999999';
# Line 3540  var Line 3256  var
3256    BoghandlerNavn : String;    BoghandlerNavn : String;
3257    Koreliste : String;    Koreliste : String;
3258    Falsk : Boolean;    Falsk : Boolean;
   Sand : Boolean;  
3259    SmsKode : String;    SmsKode : String;
3260    DBKbane : String;    DBKbane : String;
3261    Leveringssted : String;    Leveringssted : String;
# Line 3549  begin Line 3264  begin
3264    Kommentar := '***** Kommentar *****';    Kommentar := '***** Kommentar *****';
3265    BoghandlerNavn := 'Modtagernavn';    BoghandlerNavn := 'Modtagernavn';
3266    Falsk := False;    Falsk := False;
3267    Sand := True;  
3268    
3269    if (Printer.Printers.Count = 0) then    if (Printer.Printers.Count = 0) then
3270    begin    begin
# Line 3762  begin Line 3477  begin
3477    
3478    if Sprgefterboghandlernummer1.Checked then    if Sprgefterboghandlernummer1.Checked then
3479    begin    begin
3480       CheckBox1.Checked := true;       chkSporgEfterKunde.Checked := true;
3481    end    end
3482    else    else
3483    begin    begin
3484       CheckBox1.Checked := false;       chkSporgEfterKunde.Checked := false;
3485    end;    end;
3486    
3487    
# Line 3794  begin Line 3509  begin
3509        InitForm(FarveNormal,TitelNormal,UrlNormal);        InitForm(FarveNormal,TitelNormal,UrlNormal);
3510        PanelValg1.Color := clGreen;        PanelValg1.Color := clGreen;
3511        PanelValg1.Font.Color := clWhite;        PanelValg1.Font.Color := clWhite;
3512        CheckBox1.Enabled := true;  
3513        CheckBox2.Enabled := true;        chkAltidPrintLabel.Enabled := true;
3514        Altidprintepakkelabel1.Enabled := true;        Altidprintepakkelabel1.Enabled := true;
3515        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3516        CheckBox2.Checked := false;        chkAltidPrintLabel.Checked := false;
3517        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3518        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
3519        Sprgefterboghandlernummer1.Enabled := true;        Sprgefterboghandlernummer1.Enabled := true;
3520        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3521        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
3522        RadioButton1.Enabled := false;        radioStorPakke.Enabled := false;
3523        RadioButton2.Enabled := false;        radioLillePakke.Enabled := false;
3524        ListBox1.Visible := true;        ListBox1.Visible := true;
3525        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3526        EKLoverforsel.Enabled := true;        EKLoverforsel.Enabled := true;
# Line 3826  begin Line 3541  begin
3541        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);
3542        PanelValg2.Color := clGreen;        PanelValg2.Color := clGreen;
3543        PanelValg2.Font.Color := clWhite;        PanelValg2.Font.Color := clWhite;
3544        CheckBox1.Enabled := false;  
3545        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3546        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
3547        CheckBox2.Checked := false;  
3548        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3549        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3550        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
3551        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3552        Smpakker1.Enabled := true;        Smpakker1.Enabled := true;
3553        Storepakker1.Enabled := true;        Storepakker1.Enabled := true;
3554        RadioButton1.Enabled := true;        radioStorPakke.Enabled := true;
3555        RadioButton2.Enabled := true;        radioLillePakke.Enabled := true;
3556        ListBox1.Visible := true;        ListBox1.Visible := true;
3557        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3558        ListBox2.Items.Clear;        ListBox2.Items.Clear;
# Line 3853  begin Line 3568  begin
3568        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);
3569        PanelValg3.Color := clGreen;        PanelValg3.Color := clGreen;
3570        PanelValg3.Font.Color := clWhite;        PanelValg3.Font.Color := clWhite;
3571        CheckBox1.Enabled := false;  
3572        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3573        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
       CheckBox2.Checked := false;  
3574        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3575        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3576        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
3577        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3578        Smpakker1.Enabled := true;        Smpakker1.Enabled := true;
3579        Storepakker1.Enabled := true;        Storepakker1.Enabled := true;
3580        RadioButton1.Enabled := true;        radioStorPakke.Enabled := true;
3581        RadioButton2.Enabled := true;        radioLillePakke.Enabled := true;
3582        ListBox1.Visible := true;        ListBox1.Visible := true;
3583        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3584        ListBox2.Items.Clear;        ListBox2.Items.Clear;
# Line 3880  begin Line 3594  begin
3594        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);
3595        PanelValg4.Color := clGreen;        PanelValg4.Color := clGreen;
3596        PanelValg4.Font.Color := clWhite;        PanelValg4.Font.Color := clWhite;
3597        CheckBox1.Enabled := false;  
3598        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3599        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
3600        CheckBox2.Checked := false;  
3601        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3602        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3603        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
3604        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3605        Smpakker1.Enabled := true;        Smpakker1.Enabled := true;
3606        Storepakker1.Enabled := true;        Storepakker1.Enabled := true;
3607        RadioButton1.Enabled := true;        radioStorPakke.Enabled := true;
3608        RadioButton2.Enabled := true;        radioLillePakke.Enabled := true;
3609        ListBox1.Visible := true;        ListBox1.Visible := true;
3610        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3611        DownloadButton01.Enabled := false;        DownloadButton01.Enabled := false;
# Line 3916  begin Line 3630  begin
3630        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);
3631        PanelValg5.Color := clGreen;        PanelValg5.Color := clGreen;
3632        PanelValg5.Font.Color := clWhite;        PanelValg5.Font.Color := clWhite;
3633        CheckBox1.Enabled := false;  
3634        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3635        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
3636        CheckBox2.Checked := false;  
3637        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3638        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3639        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
3640        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3641        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3642        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
3643        RadioButton1.Enabled := false;        radioStorPakke.Enabled := false;
3644        RadioButton2.Enabled := false;        radioLillePakke.Enabled := false;
3645        ListBox1.Visible := true;        ListBox1.Visible := true;
3646        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3647        DownloadButton01.Enabled := false;        DownloadButton01.Enabled := false;
3648        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3649  // 20150330: start  
 //      EKLoverforsel.Enabled := false;  
3650        EKLoverforsel.Enabled := true;        EKLoverforsel.Enabled := true;
3651  // 20150330: slut  
3652        InitLillePakke();        InitLillePakke();
3653        IndlesScanningLogFil();        IndlesScanningLogFil();
3654        if BladhusSted = 0 then        if BladhusSted = 0 then
# Line 3954  begin Line 3667  begin
3667        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);
3668        PanelValg6.Color := clGreen;        PanelValg6.Color := clGreen;
3669        PanelValg6.Font.Color := clWhite;        PanelValg6.Font.Color := clWhite;
3670        CheckBox1.Enabled := false;  
3671        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3672        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
3673        CheckBox2.Checked := false;  
3674        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3675        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3676        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
3677        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3678        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3679        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
3680        RadioButton1.Enabled := false;        radioStorPakke.Enabled := false;
3681        RadioButton2.Enabled := false;        radioLillePakke.Enabled := false;
3682        ListBox1.Visible := true;        ListBox1.Visible := true;
3683        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3684        DownloadButton01.Enabled := false;        DownloadButton01.Enabled := false;
# Line 3988  begin Line 3701  begin
3701        InitReturFraKunde();        InitReturFraKunde();
3702  end;  end;
3703    
3704    procedure TMainForm.InitIndleveringskode();
3705    begin
3706          AutomatiskTjekkodeStyring1.Enabled := false;
3707          Returpakkerfrapakkeshop1.Checked := true;
3708          PakkeshopNulstil.Visible := false;
3709          InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);
3710          PanelValg7.Color := clGreen;
3711          PanelValg7.Font.Color := clWhite;
3712    
3713          chkAltidPrintLabel.Enabled := false;
3714          Altidprintepakkelabel1.Enabled := false;
3715    
3716          Altidprintepakkelabel1.Checked := false;
3717          Sprgefterboghandlernummer1.Checked := false;
3718          Sprgefterboghandlernummer1.Enabled := false;
3719          chkSporgEfterKunde.Checked := false;
3720    
3721    
3722    
3723          Smpakker1.Enabled := false;
3724          Storepakker1.Enabled := false;
3725          radioStorPakke.Enabled := false;
3726          radioLillePakke.Enabled := false;
3727          ListBox1.Visible := true;
3728          ListBox1.Items.Clear();
3729    
3730          DownloadButton01.Enabled := false;
3731          OpdaterListenButton01.Enabled := true;
3732          EKLoverforsel.Enabled := false;
3733          InitLillePakke();
3734          IndlesScanningLogFil();
3735          if BladhusSted = 0 then
3736          begin
3737            IndlesManglendeScanninger();
3738          end;
3739          IdFTP1.Passive := true;
3740          IdFTP1.PassiveUseControlHost := true;
3741    end;
3742    
3743    
3744  procedure TMainForm.Storepakker1Click(Sender: TObject);  procedure TMainForm.Storepakker1Click(Sender: TObject);
3745  begin  begin
3746    InitStorPakke();    InitStorPakke();
# Line 4000  end; Line 3753  end;
3753    
3754  procedure TMainForm.InitLillePakke();  procedure TMainForm.InitLillePakke();
3755  begin  begin
3756    RadioButton2.Checked := true;    radioLillePakke.Checked := true;
3757    Smpakker1.Checked := true;    Smpakker1.Checked := true;
 // 20150310: start  
3758  //  Stregkode := '';  //  Stregkode := '';
 // 20150310: slut  
3759  end;  end;
3760    
3761  procedure TMainForm.InitStorPakke();  procedure TMainForm.InitStorPakke();
3762  begin  begin
3763    RadioButton1.Checked := true;    radioStorPakke.Checked := true;
3764    Storepakker1.Checked := true;    Storepakker1.Checked := true;
3765  // 20150310: start  // 20150310: start
3766  //  Stregkode := '';  //  Stregkode := '';
# Line 4071  begin Line 3822  begin
3822    
3823      // Hvorfor virker ovenstående ikke ???      // Hvorfor virker ovenstående ikke ???
3824      S := '';      S := '';
3825      Str(iVer[1],Result);      Str(iVer[1], Result);
3826      S := S+Result+'.';      S := S+Result+'.';
3827      Str(iVer[2],Result);      Str(iVer[2], Result);
3828      S := S+Result+'.';      S := S+Result+'.';
3829      Str(iVer[3],Result);      Str(iVer[3], Result);
3830      S := S+Result+'.';      S := S+Result+'.';
3831      Str(iVer[4],Result);      Str(iVer[4], Result);
3832      S := S+Result+'';      S := S+Result+'';
3833      Result := S;      Result := S;
3834    end;    end;
# Line 4106  end; Line 3857  end;
3857    
3858  procedure TMainForm.Testlyd2Click(Sender: TObject);  procedure TMainForm.Testlyd2Click(Sender: TObject);
3859  begin  begin
 // 20150317: start  
3860    if (PakkeshopText1.Caption = 'Tjekkode') then    if (PakkeshopText1.Caption = 'Tjekkode') then
3861    begin    begin
3862       if ScannetOkTilTjekkodeLyd  <> '' then       if ScannetOkTilTjekkodeLyd  <> '' then
# Line 4119  begin Line 3869  begin
3869       end;       end;
3870       exit;       exit;
3871    end;    end;
 // 20150317: slut  
3872    
3873    if Smpakker1.Checked then    if Smpakker1.Checked then
3874       if ScannetOkLyd  <> '' then       if ScannetOkLyd  <> '' then
# Line 4128  begin Line 3877  begin
3877       end       end
3878       else       else
3879       begin       begin
 // 20150317: start  
 //       MessageBox(Handle, PWideChar('Lyd fil ikke fundet (scannet)'), 'Information', MB_OK);  
3880         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);
 // 20150317: slut  
3881       end;       end;
3882    if Storepakker1.Checked then    if Storepakker1.Checked then
3883       if ScannetOkStorLyd  <> '' then       if ScannetOkStorLyd  <> '' then
# Line 4140  begin Line 3886  begin
3886       end       end
3887       else       else
3888       begin       begin
 // 20150317: start  
 //       MessageBox(Handle, PWideChar('Lyd fil ikke fundet (scannet stor)'), 'Information', MB_OK);  
3889         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkStorLyd)'), 'Information', MB_OK);         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkStorLyd)'), 'Information', MB_OK);
 // 20150317: slut  
3890       end;       end;
3891  end;  end;
3892    
# Line 4848  var Line 4591  var
4591    pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer;    pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer;
4592    pakketyper : TStrings;    pakketyper : TStrings;
4593    antlin : Integer;    antlin : Integer;
4594  // 20150306: start  
4595    antlinIdag, antlinSenere : Integer;    antlinIdag, antlinSenere : Integer;
4596  // 20150306: slut  
4597    XmlFelter : TStrings;    XmlFelter : TStrings;
4598    
4599   begin   begin
# Line 4870  var Line 4613  var
4613          StedKode := Sted;          StedKode := Sted;
4614        end;        end;
4615    
4616  // 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;  
 *)  
4617      if (Scanningtype = '6') then      if (Scanningtype = '6') then
4618       begin       begin
4619        URLStr := Format(UrlPakkeshopManglendeReturScanninger,[StedKode]);        URLStr := Format(UrlPakkeshopManglendeReturScanninger,[StedKode]);
# Line 4932  var Line 4657  var
4657      try      try
4658        XMLDocument1.LoadFromXML(WebSvar);        XMLDocument1.LoadFromXML(WebSvar);
4659    
4660  // 20150206: start  
4661        antlin := 0;        antlin := 0;
4662        antlinIdag := 0;        antlinIdag := 0;
4663        antlinSenere := 0;        antlinSenere := 0;
4664  // 20150306: slut  
       antalFelterFundet := 0;  
4665        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin
4666            Node:= XMLDocument1.DocumentElement.ChildNodes[I];            Node:= XMLDocument1.DocumentElement.ChildNodes[I];
4667            if Node.NodeType = ntElement then begin            if Node.NodeType = ntElement then begin
# Line 4969  var Line 4693  var
4693        antalFelterFundet := 0;        antalFelterFundet := 0;
4694        SetLength(stregkoderMedTjekkodeArray, 0);    // reset fra tidligere brug        SetLength(stregkoderMedTjekkodeArray, 0);    // reset fra tidligere brug
4695        SetLength(stregkoderMedTjekkodeArray, antlin);  // sæt antal elementer i array        SetLength(stregkoderMedTjekkodeArray, antlin);  // sæt antal elementer i array
4696  // 20150206: start  
 //      logTekst := 'Der er '+IntToStr(antlin)+' pakker, der endnu ikke er modtaget.';  
4697        logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget';        logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget';
4698        if (antlinSenere > 0) then        if (antlinSenere > 0) then
4699        begin        begin
4700          logTekst := logTekst + ' (' + IntToStr(antlinIdag) + ' til i dag og ' + IntToStr(antlinSenere) + ' til senere)';          logTekst := logTekst + ' (' + IntToStr(antlinIdag) + ' til i dag og ' + IntToStr(antlinSenere) + ' til senere)';
4701        end;        end;
4702        logTekst := logTekst + '.';        logTekst := logTekst + '.';
4703  // 20150306: slut  
4704        SkrivScanningLogFil(logTekst);        SkrivScanningLogFil(logTekst);
4705        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin
4706            Node:= XMLDocument1.DocumentElement.ChildNodes[I];            Node:= XMLDocument1.DocumentElement.ChildNodes[I];
# Line 5027  var Line 4750  var
4750                    begin                    begin
4751                      stregkoderMedTjekkodeArray[linienr] := stregkode;                      stregkoderMedTjekkodeArray[linienr] := stregkode;
4752                    end;                    end;
4753  // 20150306: slut                    linienr := linienr + 1;
                     linienr := linienr + 1;  
4754                  end;                  end;
4755              end;              end;
4756              if antalFelterFundet = antalLiniefelter then              if antalFelterFundet = antalLiniefelter then
# Line 5053  var Line 4775  var
4775    
4776          // Free up the list object          // Free up the list object
4777        pakketyper.Free;        pakketyper.Free;
 // 20150306: start  
4778  //      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.');
4779        logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget';        logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget';
4780        if (antlinSenere > 0) then        if (antlinSenere > 0) then
# Line 5062  var Line 4783  var
4783        end;        end;
4784        logTekst := logTekst + '.';        logTekst := logTekst + '.';
4785        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
 // 20150306: slut  
 // 20150309: start  
4786        if (antlinSenere > 0) then        if (antlinSenere > 0) then
4787        begin        begin
4788          StaticTextManglendePakker.Caption := IntToStr(antlinIdag) + '/' + IntToStr(antlinSenere);          StaticTextManglendePakker.Caption := IntToStr(antlinIdag) + '/' + IntToStr(antlinSenere);
# Line 5072  var Line 4791  var
4791        begin        begin
4792          StaticTextManglendePakker.Caption := IntToStr(antlinIdag);          StaticTextManglendePakker.Caption := IntToStr(antlinIdag);
4793        end;        end;
 // 20150309: slut  
4794    
 // 20150310: start  
4795        if (Scanningtype = '1') then        if (Scanningtype = '1') then
4796        begin        begin
4797          //antlinIdag := 9876;  // til test af boksens udseende ved stort tal          //antlinIdag := 9876;  // til test af boksens udseende ved stort tal
# Line 5153  var Line 4870  var
4870            PanelManglendePakker6.Visible := false;            PanelManglendePakker6.Visible := false;
4871          end;          end;
4872        end;        end;
 // 20150310: slut  
4873    
4874      except on e:exception do      except on e:exception do
4875        begin        begin
# Line 5215  end; Line 4931  end;
4931  procedure TMainForm.SkrivScanningLogFil(var tekst : string);  procedure TMainForm.SkrivScanningLogFil(var tekst : string);
4932  var  var
4933     SomeTxtFile : TextFile;     SomeTxtFile : TextFile;
    buffer : string;  
    S: string;  
4934     idag, imorgen : TDateTime;     idag, imorgen : TDateTime;
4935     imorgenYmd : string;     imorgenYmd : string;
4936     logFilnavn : string;     logFilnavn : string;
# Line 5484  begin Line 5198  begin
5198    result := svar;    result := svar;
5199  end;  end;
5200    
5201    procedure TMainForm.VisAlarmSkaerm(strMessage: string);
5202    begin
5203      //ShowMessage('Ændring ikke tilladt');
5204      // Her skal komme en 'rød skærm' alarm
5205      PlaySound(PWideChar(AlarmLyd));
5206    
5207      ListBox1.Items.Insert(0, strMessage);
5208      MainForm.Color := clRed;
5209      RuteNummerST.Caption := '';
5210      BoghandlerNavnST.Caption := '';
5211      KommentarST.Caption := strMessage;
5212      PakkeshopNulstil.Visible := true;
5213    end;
5214    
5215  function TMainForm.getProddato() : TDate;  function TMainForm.getProddato() : TDate;
5216  var  var
5217     idag, imorgen : TDateTime;     idag, imorgen : TDateTime;
# Line 5504  end; Line 5232  end;
5232  function TMainForm.getProddag() : String;  function TMainForm.getProddag() : String;
5233  begin  begin
5234  //  ShowMessage(LongDayNames[DayOfWeek(getProddato())]);  //  ShowMessage(LongDayNames[DayOfWeek(getProddato())]);
5235    result := LongDayNames[DayOfWeek(getProddato())];    result := FormatSettings.LongDayNames[DayOfWeek(getProddato())];
5236    //result := 'lørdag';     // MENS VI TESTER  kan vi fremtvinge lørdag situation her    //result := 'lørdag';     // MENS VI TESTER  kan vi fremtvinge lørdag situation her
5237  end;  end;
5238    
# Line 5565  procedure TMainForm.Scanogstjekkoden1Cli Line 5293  procedure TMainForm.Scanogstjekkoden1Cli
5293  begin  begin
5294    if Scanogstjekkoden1.Checked then    if Scanogstjekkoden1.Checked then
5295    begin    begin
5296       CheckBox3.Checked := true;       chkScanTjekkode.Checked := true;
5297    end    end
5298    else    else
5299    begin    begin
5300       CheckBox3.Checked := false;       chkScanTjekkode.Checked := false;
5301    end;    end;
5302  end;  end;
5303    
Legend:
Removed from v.2647  
changed lines
  Added in v.2660
  ViewVC Help
Powered by ViewVC 1.1.20