/[projects]/dao/DelphiScanner/Main.pas
ViewVC logotype

Diff of /dao/DelphiScanner/Main.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2650 by torben, Thu Aug 20 20:58:26 2015 UTC revision 2668 by torben, Tue Aug 25 16:34:41 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      PakkeshopLabels
14    
15    ;    ;
16    
17  type  type
# Line 20  type Line 23  type
23      IdHTTP1: TIdHTTP;      IdHTTP1: TIdHTTP;
24      XMLDocument1: TXMLDocument;      XMLDocument1: TXMLDocument;
25      ApplicationEvents1: TApplicationEvents;      ApplicationEvents1: TApplicationEvents;
26      CheckBox1: TCheckBox;      chkSporgEfterKunde: TCheckBox;
27      KommentarST: TStaticText;      KommentarST: TStaticText;
28      MainMenu1: TMainMenu;      MainMenu1: TMainMenu;
29      N1: TMenuItem;      N1: TMenuItem;
# Line 36  type Line 39  type
39      Lukprogrammet1: TMenuItem;      Lukprogrammet1: TMenuItem;
40      N2: TMenuItem;      N2: TMenuItem;
41      N3: TMenuItem;      N3: TMenuItem;
42      RadioButton1: TRadioButton;      radioStorPakke: TRadioButton;
43      RadioButton2: TRadioButton;      radioLillePakke: TRadioButton;
44      N4: TMenuItem;      N4: TMenuItem;
45      Storepakker1: TMenuItem;      Storepakker1: TMenuItem;
46      Smpakker1: TMenuItem;      Smpakker1: TMenuItem;
# Line 56  type Line 59  type
59      DownloadButton03: TButton;      DownloadButton03: TButton;
60      Pakkeshoplevering1: TMenuItem;      Pakkeshoplevering1: TMenuItem;
61      PakkeshopText1: TStaticText;      PakkeshopText1: TStaticText;
62      PakkeshopNulstil: TButton;      btnNulstil: TButton;
63      Returpakkerfrapakkeshop1: TMenuItem;      Returpakkerfrapakkeshop1: TMenuItem;
64      Altidprintepakkelabel1: TMenuItem;      Altidprintepakkelabel1: TMenuItem;
65      CheckBox2: TCheckBox;      chkAltidPrintLabel: TCheckBox;
66      EKLoverforsel: TButton;      EKLoverforsel: TButton;
67      N5: TMenuItem;      N5: TMenuItem;
68      Uploadlogfil1: TMenuItem;      Uploadlogfil1: TMenuItem;
69      Manual1: TMenuItem;      Manual1: TMenuItem;
70      PrinterstatusStaticText1: TStaticText;      PrinterstatusStaticText1: TStaticText;
71      Timer1: TTimer;      Timer1: TTimer;
72      CheckBox3: TCheckBox;      chkScanTjekkode: TCheckBox;
73      Scanogstjekkoden1: TMenuItem;      Scanogstjekkoden1: TMenuItem;
74      Automatisktjekkodestyring1: TMenuItem;      Automatisktjekkodestyring1: TMenuItem;
75      Automatiskvalg1: TMenuItem;      Automatiskvalg1: TMenuItem;
# Line 77  type Line 80  type
80      PanelValg4: TPanel;      PanelValg4: TPanel;
81      PanelValg5: TPanel;      PanelValg5: TPanel;
82      PanelValg6: TPanel;      PanelValg6: TPanel;
83        PanelValg7: TPanel;
84      Manualgenerel1: TMenuItem;      Manualgenerel1: TMenuItem;
85      StaticTextManglendePakker: TStaticText;      StaticTextManglendePakker: TStaticText;
86      PanelManglendePakker1: TPanel;      PanelManglendePakker1: TPanel;
# Line 85  type Line 89  type
89      PanelManglendePakker4: TPanel;      PanelManglendePakker4: TPanel;
90      PanelManglendePakker5: TPanel;      PanelManglendePakker5: TPanel;
91      PanelManglendePakker6: TPanel;      PanelManglendePakker6: TPanel;
92      PanelValg7: TPanel;      menuIndlevering: TMenuItem;
93    
94    
95    function Explode(var a: TStrArray; Border, S: string): Integer;    function Explode(var a: TStrArray; Border, S: string): Integer;
96    function BarCodeValid (ACode: string): boolean;    function BarCodeValid (ACode: string): boolean;
# Line 113  type Line 118  type
118    procedure FormKeyPress(Sender: TObject; var Key: Char);    procedure FormKeyPress(Sender: TObject; var Key: Char);
119    procedure FormCreate(Sender: TObject);    procedure FormCreate(Sender: TObject);
120    procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);    procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
121    procedure RadioButton1Click(Sender: TObject);    procedure radioStorPakkeClick(Sender: TObject);
122    procedure RadioButton2Click(Sender: TObject);    procedure radioLillePakkeClick(Sender: TObject);
123    procedure CheckBox1Click(Sender: TObject);    procedure chkSporgEfterKundeClick(Sender: TObject);
124    procedure Pakkernormal1Click(Sender: TObject);    procedure Pakkernormal1Click(Sender: TObject);
125    procedure Testforbindelsen1Click(Sender: TObject);    procedure Testforbindelsen1Click(Sender: TObject);
126    procedure Testprinter1Click(Sender: TObject);    procedure Testprinter1Click(Sender: TObject);
# Line 143  type Line 148  type
148    procedure UploadButton01Click(Sender: TObject);    procedure UploadButton01Click(Sender: TObject);
149    procedure DownloadButton03Click(Sender: TObject);    procedure DownloadButton03Click(Sender: TObject);
150    procedure Pakkeshoplevering1Click(Sender: TObject);    procedure Pakkeshoplevering1Click(Sender: TObject);
151    procedure PakkeshopNulstilClick(Sender: TObject);    procedure btnNulstilClick(Sender: TObject);
152    procedure Returpakkerfrapakkeshop1Click(Sender: TObject);    procedure Returpakkerfrapakkeshop1Click(Sender: TObject);
153    procedure InitNatxpresslevering();    procedure InitNatxpresslevering();
154    procedure InitReturFraDao();    procedure InitReturFraDao();
# Line 154  type Line 159  type
159    procedure InitIndleveringskode();    procedure InitIndleveringskode();
160    
161    procedure Altidprintepakkelabel1Click(Sender: TObject);    procedure Altidprintepakkelabel1Click(Sender: TObject);
162    procedure CheckBox2Click(Sender: TObject);    procedure chkAltidPrintLabelClick(Sender: TObject);
163    procedure EKLoverforselClick(Sender: TObject);    procedure EKLoverforselClick(Sender: TObject);
164    procedure Uploadlogfil1Click(Sender: TObject);    procedure Uploadlogfil1Click(Sender: TObject);
165    procedure Manual1Click(Sender: TObject);    procedure Manual1Click(Sender: TObject);
   procedure CheckPrintQue(tjektype : string);  
166    procedure Timer1Timer(Sender: TObject);    procedure Timer1Timer(Sender: TObject);
167    procedure Scanogstjekkoden1Click(Sender: TObject);    procedure Scanogstjekkoden1Click(Sender: TObject);
168    procedure CheckBox3Click(Sender: TObject);    procedure chkScanTjekkodeClick(Sender: TObject);
169    procedure Automatisktjekkodestyring1Click(Sender: TObject);    procedure Automatisktjekkodestyring1Click(Sender: TObject);
170    procedure SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);    procedure SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);
171    procedure Automatiskvalg1Click(Sender: TObject);    procedure Automatiskvalg1Click(Sender: TObject);
# Line 172  type Line 176  type
176    procedure PanelValg4Click(Sender: TObject);    procedure PanelValg4Click(Sender: TObject);
177    procedure PanelValg5Click(Sender: TObject);    procedure PanelValg5Click(Sender: TObject);
178    procedure PanelValg6Click(Sender: TObject);    procedure PanelValg6Click(Sender: TObject);
179      procedure PanelValg7Click(Sender: TObject);
180    
181    procedure NulstilAutomatiskValg();    procedure NulstilAutomatiskValg();
182    procedure SletLogfiler(Path: string; FileList: TStrings);    procedure SletLogfiler(Path: string; FileList: TStrings);
183    procedure Manualgenerel1Click(Sender: TObject);    procedure Manualgenerel1Click(Sender: TObject);
184    procedure TjekkerUrls();    procedure TjekkerUrls();
185  // 20150310: start  
186    procedure RoundCornerOf(Control: TWinControl);    procedure RoundCornerOf(Control: TWinControl);
187      procedure menuIndleveringClick(Sender: TObject);
188    
189      procedure PrintPakkeshopLabel( PakkeshopLabel : TPakkeshopLabel);
190      procedure CheckPrintQue(tjektype : string);
191    
     procedure PanelValg7Click(Sender: TObject);  
 // 20150310: slut  
192    
193    private    private
194      SpecialVersionSted, SpecialVersionScanningtype: String;    // Bruges når programmet skal bruges udenfor DAO scanningssteder      SpecialVersionSted, SpecialVersionScanningtype: String;    // Bruges når programmet skal bruges udenfor DAO scanningssteder
# Line 188  type Line 196  type
196      SkrivLog : String;      SkrivLog : String;
197      Sted : String;      Sted : String;
198      StedNavn : String;      StedNavn : String;
199      Url, UrlNormal, UrlReturDAO, UrlReturBoghandler, UrlBudlevering, UrlManglendeScanninger, UrlPakkeshoplevering, UrlReturPakkeshop, UrlPakkeshopManglendeScanninger, UrlPakkeshopManglendeReturScanninger,UrlEKLoverforsel : String;      Url, UrlNormal, UrlReturDAO, UrlReturBoghandler, UrlBudlevering, UrlManglendeScanninger, UrlPakkeshoplevering, UrlReturPakkeshop, UrlPakkeshopManglendeScanninger, UrlPakkeshopManglendeReturScanninger,UrlIndleveringsPakke,UrlEKLoverforsel : String;
200  // 29150330: start  // 29150330: start
201      UrlEKLoverforselPakkeshop : String;      UrlEKLoverforselPakkeshop : String;
202  // 20150330: slut  // 20150330: slut
# Line 196  type Line 204  type
204      Scanningtype, TestFunktionen, Pakketype, SporgEfterBoghandler : String;      Scanningtype, TestFunktionen, Pakketype, SporgEfterBoghandler : String;
205      ScanTjekkode : String;      ScanTjekkode : String;
206      ScanTjekkodeAutomatik : string;      ScanTjekkodeAutomatik : string;
207      Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop : String;      Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop, FarveIndlevering : String;
208      Titel, TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop : String;      Titel, TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop, TitelIndlevering : String;
209      LabelType : integer;      LabelType : integer;
210      AlarmLyd : String;      AlarmLyd : String;
211      ScannetOkLyd : String;      ScannetOkLyd : String;
# Line 243  type Line 251  type
251      BoghandlerStregkode, BoghandlerTjekkode : String;      BoghandlerStregkode, BoghandlerTjekkode : String;
252      TjekUrls : String;      TjekUrls : String;
253    
254        PakkeshopLabel: TPakkeshopLabel;
255    
256            function CheckSumModulo10(const data:string):string;          { used for EAN 8/13 }            function CheckSumModulo10(const data:string):string;          { used for EAN 8/13 }
257    
258      procedure PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : String = '');      procedure PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : String = '');
# Line 255  type Line 265  type
265      procedure IndlesScanningLogFil();      procedure IndlesScanningLogFil();
266      procedure SkrivScanningLogFil(var tekst : string);      procedure SkrivScanningLogFil(var tekst : string);
267      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;
268        procedure VisAlarmSkaerm(strMessage: string);
269    
270    public    public
271      { Public declarations }      { Public declarations }
# Line 409  begin Line 420  begin
420      else      else
421        PakkeshopText1.Visible := false;        PakkeshopText1.Visible := false;
422    
423      CheckBox3.Checked := false;      chkScanTjekkode.Checked := false;
424      CheckBox3.Enabled := false;      chkScanTjekkode.Enabled := false;
425      Scanogstjekkoden1.Enabled := false;      Scanogstjekkoden1.Enabled := false;
426    
427      if (Scanningtype = '1') or (Scanningtype = '5') then      if (Scanningtype = '1') or (Scanningtype = '5') then
428      begin      begin
429        if (ScanTjekkode = '1') then        if (ScanTjekkode = '1') then
430        begin        begin
431          CheckBox3.Checked := true;          chkScanTjekkode.Checked := true;
432          CheckBox3.Enabled := true;          chkScanTjekkode.Enabled := true;
433          Scanogstjekkoden1.Enabled := true;          Scanogstjekkoden1.Enabled := true;
434        end        end
435        else        else
436        begin        begin
437          CheckBox3.Checked := false;          chkScanTjekkode.Checked := false;
438          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
439          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
440        end;        end;
441      end;      end;
442    
443      if Automatisktjekkodestyring1.Checked then      if Automatisktjekkodestyring1.Checked then
444      begin      begin
445        CheckBox3.Enabled := false;        chkScanTjekkode.Enabled := false;
446        Scanogstjekkoden1.Enabled := false;        Scanogstjekkoden1.Enabled := false;
447      end;      end;
448    
# Line 472  begin Line 483  begin
483    
484    if Altidprintepakkelabel1.Checked then    if Altidprintepakkelabel1.Checked then
485    begin    begin
486       CheckBox2.Checked := true;       chkAltidPrintLabel.Checked := true;
487    end    end
488    else    else
489    begin    begin
490       CheckBox2.Checked := false;       chkAltidPrintLabel.Checked := false;
491    end;    end;
492    
493  end;  end;
# Line 490  procedure TMainForm.Automatisktjekkodest Line 501  procedure TMainForm.Automatisktjekkodest
501  begin  begin
502    if Automatisktjekkodestyring1.Checked then    if Automatisktjekkodestyring1.Checked then
503    begin    begin
504       CheckBox3.Enabled := false;       chkScanTjekkode.Enabled := false;
505       Scanogstjekkoden1.Enabled := false;       Scanogstjekkoden1.Enabled := false;
506    end    end
507    else    else
508    begin    begin
509       CheckBox3.Enabled := true;       chkScanTjekkode.Enabled := true;
510       Scanogstjekkoden1.Enabled := true;       Scanogstjekkoden1.Enabled := true;
511    end;    end;
512    
# Line 531  const Line 542  const
542    crlf = Chr(13) + Chr(10) ;  // Carriage return & Linefeed    crlf = Chr(13) + Chr(10) ;  // Carriage return & Linefeed
543  var  var
544    printerInd : integer;    printerInd : integer;
   i : Integer;  
 // 20150310: start  
545    gemScanningtype : String;    gemScanningtype : String;
 // 20150310: slut  
546    
547  begin  begin
548    // Initierer nogle variabler    // Initierer nogle variabler
# Line 542  begin Line 550  begin
550    Application.ShowHint := True;    Application.ShowHint := True;
551    PrinterstatusStaticText1.Caption := '';    PrinterstatusStaticText1.Caption := '';
552    PrinterstatusStaticText1.Color := MainForm.Color;    PrinterstatusStaticText1.Color := MainForm.Color;
553  // 20150306: start  
554    PakkeshopNulstil.BringToFront;    btnNulstil.BringToFront;
555  // 20150306: slut  
 // 20150310: start  
556    RoundCornerOf(PanelManglendePakker1);    RoundCornerOf(PanelManglendePakker1);
557    RoundCornerOf(PanelManglendePakker2);    RoundCornerOf(PanelManglendePakker2);
558    RoundCornerOf(PanelManglendePakker3);    RoundCornerOf(PanelManglendePakker3);
559    RoundCornerOf(PanelManglendePakker4);    RoundCornerOf(PanelManglendePakker4);
560    RoundCornerOf(PanelManglendePakker5);    RoundCornerOf(PanelManglendePakker5);
561    RoundCornerOf(PanelManglendePakker6);    RoundCornerOf(PanelManglendePakker6);
562  // 20150310: slut  
563    
564    // 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
565    if DirectoryExists('Docs') then    if DirectoryExists('Docs') then
# Line 579  begin Line 586  begin
586      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');
587      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');
588      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');
589  // 20150330: start  
590      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');
591  // 20150330: slut  
592      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');
593      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');
594      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');
595      UrlPakkeshopManglendeReturScanninger := ReadString('Settings','UrlPakkeshopManglendeReturScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendereturscanninger.php?sted=%s');      UrlPakkeshopManglendeReturScanninger := ReadString('Settings','UrlPakkeshopManglendeReturScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendereturscanninger.php?sted=%s');
596    
597        UrlIndleveringsPakke := ReadString('Settings','UrlIndleveringsPakke','http://omdeling.info/webservices/pakkeshop/PakkekontrolIndleveringskode.php?sted=%s&pakkekode=%s');
598    
599    
600      LabelType := ReadInteger('Settings','LabelType',1);      LabelType := ReadInteger('Settings','LabelType',1);
601      FarveNormal := ReadString('Settings','FarveNormal','D8D8D8');      FarveNormal := ReadString('Settings','FarveNormal','D8D8D8');
602      TitelNormal := ReadString('Settings','TitelNormal','Modtagelse af DAO NAT X-PRESS pakker');      TitelNormal := ReadString('Settings','TitelNormal','Modtagelse af DAO NAT X-PRESS pakker');
# Line 597  begin Line 608  begin
608      TitelBudlevering := ReadString('Settings','TitelBudlevering','Modtagelse af DAO DIREKTE pakker');      TitelBudlevering := ReadString('Settings','TitelBudlevering','Modtagelse af DAO DIREKTE pakker');
609      FarvePakkeshoplevering := ReadString('Settings','FarvePakkeshoplevering','99FFFF');      FarvePakkeshoplevering := ReadString('Settings','FarvePakkeshoplevering','99FFFF');
610      TitelPakkeshoplevering := ReadString('Settings','TitelPakkeshoplevering','Modtagelse af DAO PAKKESHOP pakker');      TitelPakkeshoplevering := ReadString('Settings','TitelPakkeshoplevering','Modtagelse af DAO PAKKESHOP pakker');
611    
612      FarveReturPakkeshop := ReadString('Settings','FarveReturPakkeshop','99FFCC');      FarveReturPakkeshop := ReadString('Settings','FarveReturPakkeshop','99FFCC');
613      TitelReturPakkeshop := ReadString('Settings','TitelReturPakkeshop','Returforsendelse fra pakkeshop');      TitelReturPakkeshop := ReadString('Settings','TitelReturPakkeshop','Returforsendelse fra pakkeshop');
614    
615        FarveIndlevering := ReadString('Settings', 'FarveIndlevering', 'E5B2CB');
616        TitelIndlevering := ReadString('Settings', 'TitelIndlevering', 'Indleveringskode');
617    
618    
619      SporgEfterBoghandler := ReadString('Settings','SporgEfterBoghandler','0');      SporgEfterBoghandler := ReadString('Settings','SporgEfterBoghandler','0');
620      ScanTjekkode := ReadString('Settings','ScanTjekkode','0');      ScanTjekkode := ReadString('Settings','ScanTjekkode','0');
621      ScanTjekkodeAutomatik := ReadString('Settings','ScanTjekkodeAutomatik','1');      ScanTjekkodeAutomatik := ReadString('Settings','ScanTjekkodeAutomatik','1');
# Line 608  begin Line 625  begin
625      AlarmLyd := ReadString('Settings','AlarmLyd','Sounds\Alarm.wav');      AlarmLyd := ReadString('Settings','AlarmLyd','Sounds\Alarm.wav');
626      ScannetOkLyd := ReadString('Settings','ScannetOkLyd','Sounds\Ok.wav');      ScannetOkLyd := ReadString('Settings','ScannetOkLyd','Sounds\Ok.wav');
627      ScannetOkStorLyd := ReadString('Settings','ScannetOkStorLyd','Sounds\Ok_stor.wav');      ScannetOkStorLyd := ReadString('Settings','ScannetOkStorLyd','Sounds\Ok_stor.wav');
628  // 20150317: start  
629      ScannetOkTilTjekkodeLyd := ReadString('Settings','ScannetOkTilTjekkodeLyd','Sounds\Ok_til_tjekkode.wav');      ScannetOkTilTjekkodeLyd := ReadString('Settings','ScannetOkTilTjekkodeLyd','Sounds\Ok_til_tjekkode.wav');
630  // 20150317: slut  
631      PrinterNavn := ReadString('Settings','PrinterNavn','');      PrinterNavn := ReadString('Settings','PrinterNavn','');
632      TjekPrinter := ReadString('Settings','TjekPrinter','1');      TjekPrinter := ReadString('Settings','TjekPrinter','1');
633      TjekUrls := ReadString('Settings','TjekUrls','2');      TjekUrls := ReadString('Settings','TjekUrls','2');
# Line 711  begin Line 728  begin
728    
729      if SporgEfterBoghandler = '1' then      if SporgEfterBoghandler = '1' then
730      begin      begin
731        CheckBox1.Checked := true;        chkSporgEfterKunde.Checked := true;
732        Sprgefterboghandlernummer1.Checked := true;        Sprgefterboghandlernummer1.Checked := true;
733      end      end
734      else      else
735      begin      begin
736        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
737        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
738      end;      end;
739    
740      if ScanTjekkode = '1' then      if ScanTjekkode = '1' then
741      begin      begin
742        CheckBox3.Checked := true;        chkScanTjekkode.Checked := true;
743        Scanogstjekkoden1.Checked := true;        Scanogstjekkoden1.Checked := true;
744      end      end
745      else      else
746      begin      begin
747        CheckBox3.Checked := false;        chkScanTjekkode.Checked := false;
748        Scanogstjekkoden1.Checked := false;        Scanogstjekkoden1.Checked := false;
749      end;      end;
750    
751      if ScanTjekkodeAutomatik = '1' then      if ScanTjekkodeAutomatik = '1' then
752      begin      begin
753        Automatisktjekkodestyring1.Checked := true;        Automatisktjekkodestyring1.Checked := true;
754        CheckBox3.Enabled := false;        chkScanTjekkode.Enabled := false;
755        Scanogstjekkoden1.Enabled := false;        Scanogstjekkoden1.Enabled := false;
756      end;      end;
757    
# Line 826  begin Line 843  begin
843        PanelValg5.Font.Color := clInactiveCaption;        PanelValg5.Font.Color := clInactiveCaption;
844        PanelValg6.Enabled := false;        PanelValg6.Enabled := false;
845        PanelValg6.Font.Color := clInactiveCaption;        PanelValg6.Font.Color := clInactiveCaption;
846          PanelValg7.Enabled := false;
847          PanelValg7.Font.Color := clInactiveCaption;
848    
849       // her skal vi også disable de menupunkter DBK ikke kan bruge       // her skal vi også disable de menupunkter DBK ikke kan bruge
850        ReturpakkerfraDAO1.Enabled := false;        ReturpakkerfraDAO1.Enabled := false;
851        Returpakkerfraboghandler1.Enabled := false;        Returpakkerfraboghandler1.Enabled := false;
852  // 20150317: start  
853        Pakkeshoplevering1.Enabled := false;        Pakkeshoplevering1.Enabled := false;
854        Returpakkerfrapakkeshop1.Enabled := false;        Returpakkerfrapakkeshop1.Enabled := false;
855  // 20150317: slut  
856        if SpecialVersionScanningtype = 'A' then        if SpecialVersionScanningtype = 'A' then
857        begin        begin
858           Scanningtype := '1';           Scanningtype := '1';
# Line 862  begin Line 882  begin
882        PanelValg5.Font.Color := clInactiveCaption;        PanelValg5.Font.Color := clInactiveCaption;
883        PanelValg6.Enabled := false;        PanelValg6.Enabled := false;
884        PanelValg6.Font.Color := clInactiveCaption;        PanelValg6.Font.Color := clInactiveCaption;
885          PanelValg7.Enabled := false;
886          PanelValg7.Font.Color := clInactiveCaption;
887       // 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
888  // 20150317: start  
889        Automatiskvalg1.Enabled := false;        Automatiskvalg1.Enabled := false;
890  // 20150317: slut  
891        Pakkernormal1.Enabled := false;        Pakkernormal1.Enabled := false;
892        ReturpakkerfraDAO1.Enabled := false;        ReturpakkerfraDAO1.Enabled := false;
893        Returpakkerfraboghandler1.Enabled := false;        Returpakkerfraboghandler1.Enabled := false;
# Line 957  begin Line 979  begin
979             RutenummerST.Caption := '';             RutenummerST.Caption := '';
980             BoghandlerNavnST.Caption := 'Fejl i urls';             BoghandlerNavnST.Caption := 'Fejl i urls';
981             KommentarST.Caption := 'Se log vinduet';             KommentarST.Caption := 'Se log vinduet';
982             PakkeshopNulstil.Visible := true;             btnNulstil.Visible := true;
983             exit;             exit;
984          end;          end;
985      end      end
# Line 1000  begin Line 1022  begin
1022      if Pakketype = '1' then      if Pakketype = '1' then
1023      begin      begin
1024        Storepakker1.Checked := true;        Storepakker1.Checked := true;
1025        RadioButton1.Checked := true;        radioStorPakke.Checked := true;
1026      end      end
1027      else      else
1028      begin      begin
1029        Smpakker1.Checked := true;        Smpakker1.Checked := true;
1030        RadioButton2.Checked := true;        radioLillePakke.Checked := true;
1031      end;      end;
1032    
1033      if TestFunktionen = '1' then      if TestFunktionen = '1' then
# Line 1045  begin Line 1067  begin
1067        ScannetOkStorLyd := '';        ScannetOkStorLyd := '';
1068      end;      end;
1069    
1070  // 20150317: start  
1071      if not FileExists(ScannetOkTilTjekkodeLyd) then      if not FileExists(ScannetOkTilTjekkodeLyd) then
1072      begin      begin
1073        ScannetOkTilTjekkodeLyd := '';        ScannetOkTilTjekkodeLyd := '';
1074      end;      end;
1075  // 20150317: slut  
1076    
1077      if (PrinterNavn <> '') then      if (PrinterNavn <> '') then
1078      begin      begin
# Line 1083  begin Line 1105  begin
1105          InitBladhus();          InitBladhus();
1106        end;        end;
1107    
1108  // 20150310: start  
1109      // Opbygger PanelManglendePakker information      // Opbygger PanelManglendePakker information
1110      gemScanningtype := Scanningtype;      gemScanningtype := Scanningtype;
1111    
# Line 1124  begin Line 1146  begin
1146      end;      end;
1147    
1148      Scanningtype := gemScanningtype;      Scanningtype := gemScanningtype;
 // 20150310: slut  
1149    
1150      SendInfoTilServer(Sted, Scanningtype, 'Begin', '');      SendInfoTilServer(Sted, Scanningtype, 'Begin', '');
1151      SendInfoTilServer(Sted, Scanningtype, 'ProgramVersion', Sto_GetFmtFileVersion('',''));      SendInfoTilServer(Sted, Scanningtype, 'ProgramVersion', Sto_GetFmtFileVersion('',''));
# Line 1145  var Line 1166  var
1166    BoghandlerNavn : String;    BoghandlerNavn : String;
1167    Koreliste : String;    Koreliste : String;
1168    PrintNyLabel : Boolean;    PrintNyLabel : Boolean;
   List1msg : String;  
1169    pakkeErScannet : Integer;    pakkeErScannet : Integer;
1170    pakkeForkertSted : Integer;    pakkeForkertSted : Integer;
1171    tjekkodeMangler : Integer;    tjekkodeMangler : Integer;
# Line 1170  begin Line 1190  begin
1190      ClipboardData := Clipboard.AsText;      ClipboardData := Clipboard.AsText;
1191      numberString := ClipboardData;      numberString := ClipboardData;
1192      Val(numberString, float, errorPos);      Val(numberString, float, errorPos);
1193  // 20150311: start  
1194  //    if (ClipboardData <> '') and (errorPos = 0) then      //    if (ClipboardData <> '') and (errorPos = 0) then
1195      if (ClipboardData <> '') and (errorPos = 0)      if (ClipboardData <> '') and (errorPos = 0)
1196      or (NumberString = 'Nulstil')      or (NumberString = 'Nulstil')
1197      or (NumberString = 'Indtast kundenummer')      or (NumberString = 'Indtast kundenummer')
# Line 1186  begin Line 1206  begin
1206      or (NumberString = 'DAO DIREKTE')      or (NumberString = 'DAO DIREKTE')
1207      or (NumberString = 'DAO PAKKESHOP')      or (NumberString = 'DAO PAKKESHOP')
1208      or (NumberString = 'Retur fra pakkeshop') then      or (NumberString = 'Retur fra pakkeshop') then
1209  // 20150311: slut  
1210      begin      begin
1211        Stregkode := Stregkode + ClipboardData;        Stregkode := Stregkode + ClipboardData;
1212        StregkodeST.Caption := StregKode;        StregkodeST.Caption := StregKode;
# Line 1199  begin Line 1219  begin
1219    
1220    if Key = #13 then     // Enter    if Key = #13 then     // Enter
1221    begin    begin
 // 20150306: start  
1222      if (Length(Trim(Stregkode)) = 0) then      if (Length(Trim(Stregkode)) = 0) then
1223      begin      begin
1224        PlaySound(PWideChar(AlarmLyd));        VisAlarmSkaerm( 'Der skal scannes en stregkode...' );
1225        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;  
1226        exit;        exit;
1227      end;      end;
 // 20150306: slut  
1228    
 // 20150311: start  
1229      if StregKode = 'Nulstil' then      if StregKode = 'Nulstil' then
1230      begin      begin
1231         PakkeshopNulstil.Click();         btnNulstil.Click();
1232         exit;         exit;
1233      end;      end;
1234    
1235      if PakkeshopNulstil.Visible then      if btnNulstil.Visible then
1236      begin      begin
1237         PlaySound(PWideChar(AlarmLyd));        VisAlarmSkaerm( 'HUSK at klikke Nulstil før ny scanning...' );
1238  // 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  
1239         exit;         exit;
1240      end;      end;
1241    
1242      if StregKode = 'Lille pakke' then      if StregKode = 'Lille pakke' then
1243      begin      begin
1244         if RadioButton2.Enabled = true then         if radioLillePakke.Enabled = true then
1245         begin         begin
1246            InitLillePakke();            InitLillePakke();
1247         end         end
1248         else         else
1249         begin         begin
1250          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm( 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;  
1251         end;         end;
1252         Stregkode := '';         Stregkode := '';
1253         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1268  begin Line 1256  begin
1256    
1257      if StregKode = 'Stor pakke' then      if StregKode = 'Stor pakke' then
1258      begin      begin
1259         if RadioButton1.Enabled = true then         if radioStorPakke.Enabled = true then
1260         begin         begin
1261            InitStorPakke();            InitStorPakke();
1262         end         end
1263         else         else
1264         begin         begin
1265          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm( 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;  
1266         end;         end;
1267         Stregkode := '';         Stregkode := '';
1268         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1294  begin Line 1271  begin
1271    
1272      if StregKode = 'Indtast kundenummer' then      if StregKode = 'Indtast kundenummer' then
1273      begin      begin
1274         if CheckBox1.Enabled = true then         if chkSporgEfterKunde.Enabled = true then
1275         begin         begin
1276           if (CheckBox1.State = cbChecked) then           if (chkSporgEfterKunde.State = cbChecked) then
1277           begin           begin
1278            CheckBox1.State := cbUnchecked;            chkSporgEfterKunde.State := cbUnchecked;
1279           end           end
1280           else           else
1281           begin           begin
1282            CheckBox1.State := cbChecked;            chkSporgEfterKunde.State := cbChecked;
1283           end;           end;
1284         end         end
1285         else         else
1286         begin         begin
1287          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm( 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;  
1288         end;         end;
1289         Stregkode := '';         Stregkode := '';
1290         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1327  begin Line 1293  begin
1293    
1294      if (Stregkode = 'Scan tjekkode') or (PakkeshopStregkode = 'Scan tjekkode') or (BoghandlerStregkode = 'Scan tjekkode') then      if (Stregkode = 'Scan tjekkode') or (PakkeshopStregkode = 'Scan tjekkode') or (BoghandlerStregkode = 'Scan tjekkode') then
1295      begin      begin
1296        if CheckBox3.Enabled = true then        if chkScanTjekkode.Enabled = true then
1297        begin        begin
1298           if (CheckBox3.State = cbChecked) then           if (chkScanTjekkode.State = cbChecked) then
1299           begin           begin
1300            CheckBox3.State := cbUnchecked;            chkScanTjekkode.State := cbUnchecked;
1301           end           end
1302           else           else
1303           begin           begin
1304            CheckBox3.State := cbChecked;            chkScanTjekkode.State := cbChecked;
1305           end;           end;
1306        end        end
1307        else        else
1308        begin        begin
1309          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm( 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;  
1310        end;        end;
1311        Stregkode := '';        Stregkode := '';
1312        StregkodeST.Caption := StregKode;        StregkodeST.Caption := StregKode;
# Line 1366  begin Line 1321  begin
1321         end         end
1322         else         else
1323         begin         begin
1324          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm(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;  
1325         end;         end;
1326         Stregkode := '';         Stregkode := '';
1327         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
1328         exit;         exit;
1329      end;      end;
1330    
1331  // 20150323: start  
 //    if StregKode = 'DAO NAT X-PRESS' then  
1332      if (StregKode = 'DAO NAT X-PRESS' ) or (StregKode = 'DAO NAT X+PRESS') then      if (StregKode = 'DAO NAT X-PRESS' ) or (StregKode = 'DAO NAT X+PRESS') then
 // 20150323: slut  
1333      begin      begin
1334         if (PanelValg1.Enabled = true) then         if (PanelValg1.Enabled = true) then
1335         begin         begin
# Line 1395  begin Line 1337  begin
1337         end         end
1338         else         else
1339         begin         begin
1340          //ShowMessage('Ændring ikke tilladt');          VisAlarmSkaerm(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;  
1341         end;         end;
1342         Stregkode := '';         Stregkode := '';
1343         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1421  begin Line 1352  begin
1352         end         end
1353         else         else
1354         begin         begin
1355          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm( 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;  
1356         end;         end;
1357         Stregkode := '';         Stregkode := '';
1358         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1447  begin Line 1367  begin
1367         end         end
1368         else         else
1369         begin         begin
1370          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm( 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;  
1371         end;         end;
1372         Stregkode := '';         Stregkode := '';
1373         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1473  begin Line 1382  begin
1382         end         end
1383         else         else
1384         begin         begin
1385          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm( 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;  
1386         end;         end;
1387         Stregkode := '';         Stregkode := '';
1388         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1499  begin Line 1397  begin
1397         end         end
1398         else         else
1399         begin         begin
1400          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm( 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;  
1401         end;         end;
1402         Stregkode := '';         Stregkode := '';
1403         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1525  begin Line 1412  begin
1412         end         end
1413         else         else
1414         begin         begin
1415          //ShowMessage('Ændring ikke tilladt');            VisAlarmSkaerm( 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;  
1416         end;         end;
1417         Stregkode := '';         Stregkode := '';
1418         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
1419         exit;         exit;
1420      end;      end;
1421  // 20150311: slut  
1422    
1423      if (Length(Stregkode) > 8) then      if (Length(Stregkode) > 8) then
1424      begin      begin
# Line 1597  begin Line 1473  begin
1473          or (Pakkescanningtype = '5') and (PanelValg5.Enabled = false)          or (Pakkescanningtype = '5') and (PanelValg5.Enabled = false)
1474          or (Pakkescanningtype = '6') and (PanelValg6.Enabled = false)  ) then          or (Pakkescanningtype = '6') and (PanelValg6.Enabled = false)  ) then
1475      begin   // Her skal komme en alarm og rød skærm      begin   // Her skal komme en alarm og rød skærm
1476         PlaySound(PWideChar(AlarmLyd));          VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
1477         List1msg := 'Pakketype ' + Pakketype + ' kan ikke scannes på dette scanningsted';  
        ListBox1.Items.Insert(0,List1Msg);  
        MainForm.Color := clRed;  
 // 20150316: start  
        RuteNummerST.Caption := '';  
        BoghandlerNavnST.Caption := '';  
 // 20150316: slut  
        KommentarST.Caption := List1msg;  
        PakkeshopNulstil.Visible := true;  
 // 20150311: start  
        StregKode := '';  
        StregkodeST.Caption := StregKode;  
 // 20150311: slut  
1478         exit;         exit;
1479      end;      end;
1480    
# Line 1626  begin Line 1490  begin
1490              end;              end;
1491            end            end
1492        // Retur kan ikke scannes med 'Automatisk valg'        // Retur kan ikke scannes med 'Automatisk valg'
1493  (*  
       else if Pakketype = 'NatXpressReturDAO' then  
           begin  
             if Scanningtype <> '2' then  
             begin  
               Scanningtype := '2';  
               InitReturFraDao();  
             end;  
           end  
       else if Pakketype = 'NatXpressReturKunde' then  
           begin  
             if Scanningtype <> '3' then  
             begin  
               Scanningtype := '3';  
               InitReturFraKunde();  
             end;  
           end  
 *)  
1494        else if Pakketype = 'Direkte' then        else if Pakketype = 'Direkte' then
1495            begin            begin
1496              if Scanningtype <> '4' then              if Scanningtype <> '4' then
# Line 1661  begin Line 1508  begin
1508              end;              end;
1509            end            end
1510        // Retur kan ikke scannes med 'Automatisk valg'        // Retur kan ikke scannes med 'Automatisk valg'
1511  (*  
       else if Pakketype = 'PakkeshopRetur' then  
           begin  
             if Scanningtype <> '6' then  
             begin  
               Scanningtype := '6';  
               InitReturFraPakkeshop();  
             end;  
           end  
 *)  
1512        else        else
1513            begin   // Her skal komme en alarm og rød skærm            begin
1514               PlaySound(PWideChar(AlarmLyd));            // Her skal komme en alarm og rød skærm
1515               List1msg := 'Pakken kan ikke scannes med automatisk valg';              VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
1516               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  
1517               exit;               exit;
1518            end;            end;
1519        Stregkode := GemStregkode;        Stregkode := GemStregkode;
1520      end      end
1521      else if Automatiskvalg1.Checked and (PakkeshopText1.Caption = 'Stregkode') then      else if Automatiskvalg1.Checked and (PakkeshopText1.Caption = 'Stregkode') then
1522      begin      begin
1523        PlaySound(PWideChar(AlarmLyd));        VisAlarmSkaerm( 'Pakkenummer ikke gyldigt (for kort)' );
1524        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  
1525        exit;        exit;
1526      end;      end;
1527    
# Line 1714  begin Line 1529  begin
1529      begin      begin
1530        if ( (Pakkescanningtype <> Scanningtype) and (Scanningtype <> '2') and (Scanningtype <> '3') ) then        if ( (Pakkescanningtype <> Scanningtype) and (Scanningtype <> '2') and (Scanningtype <> '3') ) then
1531        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;  
   
 // 20150311: start  
 (*  
     if StregKode = 'Nulstil' then  
     begin  
        PakkeshopNulstil.Click();  
        exit;  
     end;  
   
     if PakkeshopNulstil.Visible then  
     begin  
        PlaySound(PWideChar(AlarmLyd));  
        List1msg := 'HUSK at trykke Nulstil før ny scanning...';  
        ListBox1.Items.Insert(0,List1Msg);  
        MainForm.Color := clRed;  
        KommentarST.Caption := List1msg;  
        exit;  
     end;  
1532    
1533      if StregKode = 'Lille pakke' then          VisAlarmSkaerm( 'Pakke findes som pakketype: ' + Pakketype );
     begin  
        InitLillePakke();  
        exit;  
     end;  
   
     if StregKode = 'Stor pakke' then  
     begin  
        InitStorPakke();  
        exit;  
     end;  
1534    
1535      if StregKode = 'Indtast kundenummer' then          exit;
1536      begin        end;
        if (CheckBox1.State = cbChecked) then  
        begin  
         CheckBox1.State := cbUnchecked;  
        end  
        else  
        begin  
         CheckBox1.State := cbChecked;  
        end;  
        Stregkode := '';  
        exit;  
1537      end;      end;
1538    
     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  
1539    
1540    
1541      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and Automatisktjekkodestyring1.Checked then      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and Automatisktjekkodestyring1.Checked then
1542      begin      begin
1543        CheckBox3.Checked := false;        chkScanTjekkode.Checked := false;
1544        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do
1545        begin        begin
1546          if (Stregkode=stregkoderMedTjekkodeArray[i]) then          if (Stregkode=stregkoderMedTjekkodeArray[i]) then
1547          begin          begin
1548              CheckBox3.Checked := true;              chkScanTjekkode.Checked := true;
1549              Scanogstjekkoden1.Checked := true;              Scanogstjekkoden1.Checked := true;
1550          end;          end;
1551        end;        end;
# Line 1812  begin Line 1557  begin
1557             BoghandlerStregkode := Stregkode;             BoghandlerStregkode := Stregkode;
1558             BoghandlerTjekkode := '';             BoghandlerTjekkode := '';
1559             PakkeshopText1.Caption := 'Stregkode';             PakkeshopText1.Caption := 'Stregkode';
1560             PakkeshopNulstil.Visible := false;             btnNulstil.Visible := false;
1561             Stregkode := '';             Stregkode := '';
1562             InitScreen();             InitScreen();
1563        end        end
# Line 1824  begin Line 1569  begin
1569             BoghandlerStregkode := Stregkode;             BoghandlerStregkode := Stregkode;
1570             BoghandlerTjekkode := '-1';             BoghandlerTjekkode := '-1';
1571             PakkeshopText1.Caption := 'Stregkode';             PakkeshopText1.Caption := 'Stregkode';
1572             PakkeshopNulstil.Visible := false;             btnNulstil.Visible := false;
1573             Stregkode := '';             Stregkode := '';
1574             InitScreen();             InitScreen();
1575        end        end
# Line 1836  begin Line 1581  begin
1581              PakkeshopStregkode := Stregkode;              PakkeshopStregkode := Stregkode;
1582              BoghandlerStregkode := Stregkode;              BoghandlerStregkode := Stregkode;
1583              PakkeshopText1.Caption := 'Tjekkode';              PakkeshopText1.Caption := 'Tjekkode';
1584  // 20150317: start  
1585              PlaySound(PWideChar(ScannetOkTilTjekkodeLyd));              PlaySound(PWideChar(ScannetOkTilTjekkodeLyd));
1586  // 20150317: slut  
1587             end             end
1588            else            else
1589             begin             begin
1590                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;  
1591             end;             end;
1592            Stregkode := '';            Stregkode := '';
1593            InitScreen();            InitScreen();
# Line 1864  begin Line 1603  begin
1603                MainForm.Color := HexToTColor(FarvePakkeshoplevering);                MainForm.Color := HexToTColor(FarvePakkeshoplevering);
1604             if (Pakkernormal1.Checked) then             if (Pakkernormal1.Checked) then
1605                MainForm.Color := HexToTColor(FarveNormal);                MainForm.Color := HexToTColor(FarveNormal);
1606             PakkeshopNulstil.Visible := false;             btnNulstil.Visible := false;
1607           end           end
1608          else          else
1609           begin           begin
1610                if (PakkeshopLevering1.Checked) then                if (PakkeshopLevering1.Checked) then
1611                  List1msg := 'Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode;                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode);
1612                if (Pakkernormal1.Checked) then                if (Pakkernormal1.Checked) then
1613                  List1msg := 'Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode;                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode);
1614                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  
1615                StregKode := '';                StregKode := '';
1616                StregkodeST.Caption := StregKode;                StregkodeST.Caption := StregKode;
1617  // 20150323: slut  
1618                exit;                exit;
1619           end;           end;
1620          Stregkode := '';          Stregkode := '';
# Line 1903  begin Line 1635  begin
1635            // Hvis der var sql fejl i opdateringen skal dette fejlmeldes her            // Hvis der var sql fejl i opdateringen skal dette fejlmeldes her
1636            if Rutenummer = 'sql fejl' then            if Rutenummer = 'sql fejl' then
1637            begin   // Her skal komme en alarm og rød skærm            begin   // Her skal komme en alarm og rød skærm
1638               PlaySound(PWideChar(AlarmLyd));               VisAlarmSkaerm( 'SQL fejl: ' + Kommentar );
1639               //List1msg := 'SQL fejl: ' + Kommentar;  
              //ListBox1.Items.Insert(0,List1Msg);  
              MainForm.Color := clRed;  
              //KommentarST.Caption := List1msg;  
              PakkeshopNulstil.Visible := true;  
1640              exit;              exit;
1641            end;            end;
1642            if (Pakkernormal1.Checked or Budlevering1.Checked or PakkeshopLevering1.Checked) then            if (Pakkernormal1.Checked or Budlevering1.Checked or PakkeshopLevering1.Checked) then
# Line 1928  begin Line 1656  begin
1656              if (pakkeErScannet > 0) or (pakkeForkertSted > 0) or (tjekkodemangler > 0) then              if (pakkeErScannet > 0) or (pakkeForkertSted > 0) or (tjekkodemangler > 0) then
1657              begin              begin
1658                PlaySound(PWideChar(AlarmLyd));                PlaySound(PWideChar(AlarmLyd));
1659                PakkeshopNulstil.Visible := true;                btnNulstil.Visible := true;
1660                MainForm.Color := clRed;                MainForm.Color := clRed;
1661              end;              end;
1662           end;           end;
# Line 1943  begin Line 1671  begin
1671              begin              begin
1672                PlaySound(PWideChar(ScannetOkLyd));                PlaySound(PWideChar(ScannetOkLyd));
1673              end;              end;
1674              PakkeshopNulstil.Visible := false;              btnNulstil.Visible := false;
1675            end            end
1676            else if (Returpakkerfradao1.Checked or Returpakkerfraboghandler1.Checked) then            else if (Returpakkerfradao1.Checked or Returpakkerfraboghandler1.Checked) then
1677            begin            begin
# Line 1956  begin Line 1684  begin
1684              begin              begin
1685                PlaySound(PWideChar(ScannetOkLyd));                PlaySound(PWideChar(ScannetOkLyd));
1686              end;              end;
1687              PakkeshopNulstil.Visible := false;              btnNulstil.Visible := false;
1688            end            end
1689            else if Copy(Kommentar,1,8) = 'OPRETTET' then            else if Copy(Kommentar,1,8) = 'OPRETTET' then
1690            begin            begin
1691              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;  
1692            end            end
1693            else if Kommentar = StregKode then    // budlevering  til 'Ukendt tur'            else if Kommentar = StregKode then    // budlevering  til 'Ukendt tur'
1694            begin            begin
1695            end            end
1696            else            else
1697            begin            begin
1698              MainForm.Color := clRed;              VisAlarmSkaerm('');
             PlaySound(PWideChar(AlarmLyd));  
             PakkeshopNulstil.Visible := true;  
1699            end;            end;
1700           if not PakkeshopNulstil.Visible then           if not btnNulstil.Visible then
1701            begin            begin
1702  // 20150310: start  
 //            SletStregkodelinieFraListboks2(StregKode);  
 // 20150310: slut  
1703              If (Budlevering1.Checked) then              If (Budlevering1.Checked) then
1704              begin              begin
1705                if Storepakker1.Checked then                if Storepakker1.Checked then
# Line 1993  begin Line 1713  begin
1713                InitLillePakke();                InitLillePakke();
1714              end;              end;
1715            end;            end;
1716  // 20150310: start  
1717            SletStregkodelinieFraListboks2(StregKode);            SletStregkodelinieFraListboks2(StregKode);
1718  // 20150310: slut  
1719            PakkeshopStregkode := '';            PakkeshopStregkode := '';
1720            PakkeshopTjekkode := '';            PakkeshopTjekkode := '';
1721            BoghandlerStregkode := '';            BoghandlerStregkode := '';
# Line 2026  begin Line 1746  begin
1746    
1747    Key := #0;    Key := #0;
1748    
1749  end;  end; //End of OnKeyPress
1750    
1751  procedure TMainForm.SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);  procedure TMainForm.SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);
1752  const  const
# Line 2063  end; Line 1783  end;
1783    
1784  procedure TMainForm.SletStregkodelinieFraListboks2(StregKode : String);  procedure TMainForm.SletStregkodelinieFraListboks2(StregKode : String);
1785  var  var
 // 20150309: start  
 //  i:integer;  
1786    i : Integer;    i : Integer;
1787    wrkAntal : String;    wrkAntal : String;
1788    wrkAntalIdag, wrkAntalSenere : Integer;    wrkAntalIdag, wrkAntalSenere : Integer;
1789  // 20150309: slut  
1790    
1791  begin  begin
1792      if Budlevering1.Checked or Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked or Pakkernormal1.Checked then      if Budlevering1.Checked or Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked or Pakkernormal1.Checked then
# Line 2076  begin Line 1794  begin
1794        for i := ListBox2.items.count-1 downto 0 do        for i := ListBox2.items.count-1 downto 0 do
1795          if pos(StregKode,ListBox2.items[i]) <> 0 then          if pos(StregKode,ListBox2.items[i]) <> 0 then
1796          begin          begin
1797  // 20150309: start  
1798            // Ajourføring af tæller for manglende pakker (scanninger)            // Ajourføring af tæller for manglende pakker (scanninger)
1799            wrkAntal := StaticTextManglendePakker.Caption;            wrkAntal := StaticTextManglendePakker.Caption;
1800            if (pos('/', wrkAntal) > 0) then  // både pakker idag og senere            if (pos('/', wrkAntal) > 0) then  // både pakker idag og senere
# Line 2112  begin Line 1830  begin
1830            begin            begin
1831              StaticTextManglendePakker.Caption := IntToStr(wrkAntalIdag);              StaticTextManglendePakker.Caption := IntToStr(wrkAntalIdag);
1832            end;            end;
 // 20150309: slut  
1833    
 // 20150310: start  
1834            if (Scanningtype = '1') then            if (Scanningtype = '1') then
1835            begin            begin
1836              PanelManglendePakker1.Caption := IntToStr(wrkAntalIdag + wrkAntalSenere);              PanelManglendePakker1.Caption := IntToStr(wrkAntalIdag + wrkAntalSenere);
# Line 2219  begin Line 1935  begin
1935  end;  end;
1936    
1937  procedure TMainForm.InitBladhus();  procedure TMainForm.InitBladhus();
 var  
   LogFilnavn : string;  
1938    
1939  begin  begin
1940    Altidprintepakkelabel1.Enabled := false;    Altidprintepakkelabel1.Enabled := false;
# Line 2297  begin Line 2011  begin
2011              Testprinter1.Visible := true;              Testprinter1.Visible := true;
2012              Smpakker1.Enabled := true;              Smpakker1.Enabled := true;
2013              Storepakker1.Enabled := true;              Storepakker1.Enabled := true;
2014              RadioButton1.Enabled := true;              radioStorPakke.Enabled := true;
2015              RadioButton2.Enabled := true;              radioLillePakke.Enabled := true;
2016              DownloadButton01.Enabled := false;     // kontrolfil bruges ikke her              DownloadButton01.Enabled := false;     // kontrolfil bruges ikke her
2017              OpdaterListenButton01.Enabled := true;              OpdaterListenButton01.Enabled := true;
2018              IdFTP1.Passive := true;              IdFTP1.Passive := true;
# Line 2335  begin Line 2049  begin
2049              Testprinter1.Visible := true;              Testprinter1.Visible := true;
2050              Smpakker1.Enabled := true;              Smpakker1.Enabled := true;
2051              Storepakker1.Enabled := true;              Storepakker1.Enabled := true;
2052              RadioButton1.Enabled := true;              radioStorPakke.Enabled := true;
2053              RadioButton2.Enabled := true;              radioLillePakke.Enabled := true;
2054              DownloadButton01.Enabled := false;    // kontrolfil bruges ikke her              DownloadButton01.Enabled := false;    // kontrolfil bruges ikke her
2055              OpdaterListenButton01.Enabled := true;              OpdaterListenButton01.Enabled := true;
2056              IdFTP1.Passive := true;              IdFTP1.Passive := true;
# Line 2355  var Line 2069  var
2069    pakkestorrelse : String;    pakkestorrelse : String;
2070    PrintNyLabelInteger : Integer;    PrintNyLabelInteger : Integer;
2071  begin  begin
2072    if RadioButton1.Checked then    if radioStorPakke.Checked then
2073    begin    begin
2074      pakkestorrelse := 'Stor';      pakkestorrelse := 'Stor';
2075    end;    end;
2076    if RadioButton2.Checked then    if radioLillePakke.Checked then
2077    begin    begin
2078      pakkestorrelse := 'Lille';      pakkestorrelse := 'Lille';
2079    end;    end;
2080    
2081    
2082    if Pakkernormal1.Checked then    if Pakkernormal1.Checked then
2083    begin    begin
2084       if (BoghandlerTjekkode = '') then       if (BoghandlerTjekkode = '') then
# Line 2391  begin Line 2107  begin
2107    begin    begin
2108       URLStr := Format(UrlReturPakkeshop,[Sted, PakkeNr]);       URLStr := Format(UrlReturPakkeshop,[Sted, PakkeNr]);
2109    end    end
2110      else if menuIndlevering.Checked then
2111      begin
2112        URLStr := Format(UrlIndleveringsPakke,[Sted, PakkeNr]);
2113      end
2114    else    else
2115    begin    begin
2116      exit;      exit;
# Line 2425  begin Line 2145  begin
2145        BoghandlerNavn := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNr').Text;        BoghandlerNavn := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNr').Text;
2146        BoghandlerNavn := BoghandlerNavn + ' ' + XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;        BoghandlerNavn := BoghandlerNavn + ' ' + XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;
2147        PrintNyLabel := False;        PrintNyLabel := False;
2148  // 20150310: start  
2149        if Pakkeshoplevering1.Checked then        if Pakkeshoplevering1.Checked then
2150        begin        begin
 // 20150310: slut  
2151          try          try
2152            PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text);            PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text);
2153          except on e:exception do          except on e:exception do
# Line 2438  begin Line 2157  begin
2157          begin          begin
2158            PrintNyLabel := True;            PrintNyLabel := True;
2159          end;          end;
 // 20150310: start  
2160        end;        end;
 // 20150310: slut  
2161       end       end
2162        else if menuIndlevering.Checked then
2163        begin
2164    
2165    
2166    
2167    
2168         Kommentar := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Stregkodematch').Text;
2169         if (Kommentar = 'Ok') then
2170         begin
2171           PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label
2172           PakkeshopLabel := TPakkeshopLabel.Create( XMLDocument1 ); //Opret struct og parse xml doc
2173    
2174           PrintPakkeshopLabel( PakkeshopLabel );
2175    
2176         end;
2177    
2178    
2179        end
2180      else      else
2181       begin       begin
2182        RuteNummer := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('TurId').Text;        RuteNummer := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('TurId').Text;
# Line 2474  begin Line 2209  begin
2209          PrintNyLabel := True;          PrintNyLabel := True;
2210        end;        end;
2211      end;      end;
2212    
2213    
2214      if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then      if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then
2215      begin      begin
2216        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then
# Line 2514  begin Line 2251  begin
2251    if Pakkeshoplevering1.Checked then    if Pakkeshoplevering1.Checked then
2252      List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; ';      List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; ';
2253    List1Pakkestorrelse := '';    List1Pakkestorrelse := '';
2254    if RadioButton1.Checked then    if radioStorPakke.Checked then
2255    begin    begin
2256      List1Pakkestorrelse := 'Stor pakke';      List1Pakkestorrelse := 'Stor pakke';
2257    end;    end;
2258    if RadioButton2.Checked then    if radioLillePakke.Checked then
2259    begin    begin
2260      List1Pakkestorrelse := 'Lille pakke';      List1Pakkestorrelse := 'Lille pakke';
2261    end;    end;
# Line 2540  begin Line 2277  begin
2277    if Budlevering1.Checked then    if Budlevering1.Checked then
2278    begin    begin
2279       List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn;       List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn;
2280        if (RadioButton1.Checked) then        if (radioStorPakke.Checked) then
2281        begin        begin
2282          List1msg := List1msg + '; Stor pakke';          List1msg := List1msg + '; Stor pakke';
2283        end;        end;
2284        if (RadioButton2.Checked) then        if (radioLillePakke.Checked) then
2285        begin        begin
2286          List1msg := List1msg + '; Lille pakke';          List1msg := List1msg + '; Lille pakke';
2287        end;        end;
# Line 2601  begin Line 2338  begin
2338    end;    end;
2339    pakkeForkertSted := pos('burde være hos', Kommentar);    pakkeForkertSted := pos('burde være hos', Kommentar);
2340    
2341  // 20150306: start  
2342  //  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
2343    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  
2344    begin    begin
2345        if (RuteNummer = 'Ukendt') then        if (RuteNummer = 'Ukendt') then
2346        begin        begin
# Line 2631  begin Line 2367  begin
2367       if (BoghandlerNavn = 'Ukendt pakke') then       if (BoghandlerNavn = 'Ukendt pakke') then
2368       begin       begin
2369          PrintNyLabel := false;          PrintNyLabel := false;
2370  // 20150306: start  
 //        PlaySound(PWideChar(AlarmLyd));  
2371          PlaySound(PWideChar(AlarmLyd));          PlaySound(PWideChar(AlarmLyd));
2372          MainForm.Color := clRed;          MainForm.Color := clRed;
2373          PakkeshopNulstil.Visible := true;          btnNulstil.Visible := true;
2374  // 20150306: slut  
2375       end       end
2376       else       else
2377       begin       begin
# Line 2652  begin Line 2387  begin
2387            ListBox1.Items.Insert(0,List1Msg);            ListBox1.Items.Insert(0,List1Msg);
2388            logTekst := RightStr(List1Msg, Length(List1Msg)-10);            logTekst := RightStr(List1Msg, Length(List1Msg)-10);
2389            SkrivScanningLogFil(logTekst);            SkrivScanningLogFil(logTekst);
2390  // 20150213: start  
2391            if (PrinterNavn = 'Ingen') then            if (PrinterNavn = 'Ingen') then
2392            begin            begin
2393               PrintNyLabel := false;               PrintNyLabel := false;
2394            end;            end;
2395  // 20150313: slut  
 // 20150306: start  
 //          PlaySound(PWideChar(AlarmLyd));  
2396            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
2397            begin            begin
2398              PlaySound(PWideChar(AlarmLyd));              PlaySound(PWideChar(AlarmLyd));
2399              MainForm.Color := clRed;              MainForm.Color := clRed;
2400              PakkeshopNulstil.Visible := true;              btnNulstil.Visible := true;
2401            end;            end;
2402  // 20150306: slut  
2403         end;         end;
2404         kontrolKoreliste := TjekKoreliste(RuteNummer, Koreliste);         kontrolKoreliste := TjekKoreliste(RuteNummer, Koreliste);
2405         if (kontrolKoreliste <> RuteNummer) then         if (kontrolKoreliste <> RuteNummer) then
# Line 2685  begin Line 2418  begin
2418            ListBox1.Items.Insert(0,List1Msg);            ListBox1.Items.Insert(0,List1Msg);
2419            logTekst := RightStr(List1Msg, Length(List1Msg)-10);            logTekst := RightStr(List1Msg, Length(List1Msg)-10);
2420            SkrivScanningLogFil(logTekst);            SkrivScanningLogFil(logTekst);
2421  // 20150306: start  
 //          PlaySound(PWideChar(AlarmLyd));  
2422            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
2423            begin            begin
2424              PlaySound(PWideChar(AlarmLyd));              PlaySound(PWideChar(AlarmLyd));
2425              MainForm.Color := clRed;              MainForm.Color := clRed;
2426              PakkeshopNulstil.Visible := true;              btnNulstil.Visible := true;
2427            end;            end;
2428  // 20150306: slut  
 // 20150306: start  
 //       end  
 //       else  
 //       begin  
2429         end;         end;
2430       end;       end;
2431    
# Line 2719  begin Line 2447  begin
2447                end;                end;
2448              end;              end;
2449        01 :  begin;        01 :  begin;
2450               if PrintNyLabel and ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then               if PrintNyLabel or ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then
2451                    // Ovenstående test er lidt speciel fordi der i programmet nogle steder er byttet rundt på rute og køreliste                    // Ovenstående test er lidt speciel fordi der i programmet nogle steder er byttet rundt på rute og køreliste
2452                    // Meningen er at der kun skal printes hvis der er forskel i kørelisterne eller ruterne - eller vi kommer fra test funktionen (Rutenr = 'Rutenr')                    // Meningen er at der kun skal printes hvis der er forskel i kørelisterne eller ruterne - eller vi kommer fra test funktionen (Rutenr = 'Rutenr')
2453                begin                begin
# Line 2733  begin Line 2461  begin
2461                end;                end;
2462              end;              end;
2463        03 :  begin;        03 :  begin;
2464               if PrintNyLabel and ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then               if PrintNyLabel or ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then
2465                    // Ovenstående test er lidt speciel fordi der i programmet nogle steder er byttet rundt på rute og køreliste                    // Ovenstående test er lidt speciel fordi der i programmet nogle steder er byttet rundt på rute og køreliste
2466                    // Meningen er at der kun skal printes hvis der er forskel i kørelisterne eller ruterne - eller vi kommer fra test funktionen (Rutenr = 'Rutenr')                    // Meningen er at der kun skal printes hvis der er forskel i kørelisterne eller ruterne - eller vi kommer fra test funktionen (Rutenr = 'Rutenr')
2467               begin               begin
# Line 2757  begin Line 2485  begin
2485      exit;      exit;
2486    end;    end;
2487    
2488    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
2489    begin    begin
2490    end    end
2491    else    else
2492    begin    begin
2493      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
2494      begin      begin
2495        logTekst := 'Printer label type ';        logTekst := 'Printer label type ';
2496        if (CheckBox2.Checked) then        if (chkAltidPrintLabel.Checked) then
2497        begin        begin
2498          logTekst := logTekst + 'Alle ';          logTekst := logTekst + 'Alle ';
2499        end        end
# Line 2832  begin Line 2560  begin
2560          Canvas.TextOut(XPosSorteringsfelt2,YPosSorteringsfelt2, Leveringssted);   // sorteringsoplysning 2          Canvas.TextOut(XPosSorteringsfelt2,YPosSorteringsfelt2, Leveringssted);   // sorteringsoplysning 2
2561        end;        end;
2562        Canvas.Font.Size := FontSizeKommentar;        Canvas.Font.Size := FontSizeKommentar;
2563    
2564        Kommentar := StringReplace(Kommentar, #$A, ' - ', [rfReplaceAll, rfIgnoreCase]);        Kommentar := StringReplace(Kommentar, #$A, ' - ', [rfReplaceAll, rfIgnoreCase]);
 // 20150304: start  
2565        Kommentar := StringReplace(Kommentar, 'PAKKE ER SCANNET', '', [rfReplaceAll, rfIgnoreCase]);        Kommentar := StringReplace(Kommentar, 'PAKKE ER SCANNET', '', [rfReplaceAll, rfIgnoreCase]);
2566  // 20150304: slut  
2567        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)
2568        if SmsKode <> '' then        if SmsKode <> '' then
2569        begin        begin
# Line 2849  begin Line 2577  begin
2577  end;  end;
2578    
2579    
2580  procedure TMainForm.RadioButton1Click(Sender: TObject);  procedure TMainForm.radioStorPakkeClick(Sender: TObject);
2581  begin  begin
2582      Storepakker1.Checked := true;      Storepakker1.Checked := true;
2583      RadioButton1.Checked := true;      radioStorPakke.Checked := true;
2584  end;  end;
2585    
2586  procedure TMainForm.RadioButton2Click(Sender: TObject);  procedure TMainForm.radioLillePakkeClick(Sender: TObject);
2587  begin  begin
2588      Smpakker1.Checked := true;      Smpakker1.Checked := true;
2589      RadioButton2.Checked := true;      radioLillePakke.Checked := true;
2590  end;  end;
2591    
2592    
2593  procedure TMainForm.CheckBox1Click(Sender: TObject);  procedure TMainForm.chkSporgEfterKundeClick(Sender: TObject);
2594  begin  begin
2595    if CheckBox1.Checked then    if chkSporgEfterKunde.Checked then
2596    begin    begin
2597       Sprgefterboghandlernummer1.Checked := true;       Sprgefterboghandlernummer1.Checked := true;
2598    end    end
# Line 2875  begin Line 2603  begin
2603  end;  end;
2604    
2605    
2606  procedure TMainForm.CheckBox2Click(Sender: TObject);  procedure TMainForm.chkAltidPrintLabelClick(Sender: TObject);
2607  begin  begin
2608    if CheckBox2.Checked then    if chkAltidPrintLabel.Checked then
2609    begin    begin
2610       Altidprintepakkelabel1.Checked := true;       Altidprintepakkelabel1.Checked := true;
2611    end    end
# Line 2888  begin Line 2616  begin
2616    
2617  end;  end;
2618    
2619  procedure TMainForm.CheckBox3Click(Sender: TObject);  procedure TMainForm.chkScanTjekkodeClick(Sender: TObject);
2620  begin  begin
2621    if CheckBox3.Checked then    if chkScanTjekkode.Checked then
2622    begin    begin
2623       Scanogstjekkoden1.Checked := true;       Scanogstjekkoden1.Checked := true;
2624    end    end
# Line 2912  begin Line 2640  begin
2640      Automatiskvalg1.Checked := false;      Automatiskvalg1.Checked := false;
2641      PanelValgA.Color := clBtnFace;      PanelValgA.Color := clBtnFace;
2642      PanelValgA.Font.Color := clWindowText;      PanelValgA.Font.Color := clWindowText;
2643  // 20150317: start  
2644      if (SpecialVersionSted = '01')      if (SpecialVersionSted = '01')
2645      or (SpecialVersionSted = '02')        or (SpecialVersionSted = '02')
2646      or (SpecialVersionSted = '03')        or (SpecialVersionSted = '03')
2647      or (SpecialVersionSted = '04') then        or (SpecialVersionSted = '04') then
2648      begin      begin
2649        // 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)
2650        PanelValgA.Enabled := false;        PanelValgA.Enabled := false;
# Line 3223  begin Line 2951  begin
2951            end;            end;
2952          end;          end;
2953    
2954  // 20150330: start  
2955          // Tjekker UrlEKLoverforselPakkeshop          // Tjekker UrlEKLoverforselPakkeshop
2956          if PanelValg5.Enabled = true then          if PanelValg5.Enabled = true then
2957          begin          begin
# Line 3251  begin Line 2979  begin
2979              end;              end;
2980            end;            end;
2981          end;          end;
2982  // 20150330: slut  
2983    
2984          // Tjekker UrlFindPakketype          // Tjekker UrlFindPakketype
2985          if CheckUrl(UrlFindPakketype) then          if CheckUrl(UrlFindPakketype) then
# Line 3381  begin Line 3109  begin
3109    end;    end;
3110  end;  end;
3111    
3112  procedure TMainForm.PakkeshopNulstilClick(Sender: TObject);  procedure TMainForm.btnNulstilClick(Sender: TObject);
3113  begin  begin
3114    PakkeshopStregkode := '';    PakkeshopStregkode := '';
3115    PakkeshopTjekkode := '';    PakkeshopTjekkode := '';
3116    PakkeshopNulstil.Visible := false;    btnNulstil.Visible := false;
3117    PakkeshopText1.Caption := 'Stregkode';    PakkeshopText1.Caption := 'Stregkode';
3118    BoghandlerStregkode := '';    BoghandlerStregkode := '';
3119    BoghandlerTjekkode := '';    BoghandlerTjekkode := '';
# Line 3514  var Line 3242  var
3242    BoghandlerNavn : String;    BoghandlerNavn : String;
3243    Koreliste : String;    Koreliste : String;
3244    Falsk : Boolean;    Falsk : Boolean;
   Sand : Boolean;  
3245    SmsKode : String;    SmsKode : String;
3246    DBKbane : String;    DBKbane : String;
3247    Leveringssted : String;    Leveringssted : String;
# Line 3536  begin Line 3263  begin
3263      // Her kommer en alarm og rød skærm      // Her kommer en alarm og rød skærm
3264      PlaySound(PWideChar(AlarmLyd));      PlaySound(PWideChar(AlarmLyd));
3265      MainForm.Color := clRed;      MainForm.Color := clRed;
3266      PakkeshopNulstil.Visible := true;      btnNulstil.Visible := true;
3267    end    end
3268    else    else
3269    begin    begin
3270      Falsk := False;      Falsk := False;
3271      Sand := True;  
3272      HentPakkeInfoFraServer(Sted,'111111111100000', RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk, '');      HentPakkeInfoFraServer(Sted,'111111111100000', RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk, '');
3273      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');
3274      SmsKode := '999999';      SmsKode := '999999';
# Line 3561  var Line 3288  var
3288    BoghandlerNavn : String;    BoghandlerNavn : String;
3289    Koreliste : String;    Koreliste : String;
3290    Falsk : Boolean;    Falsk : Boolean;
   Sand : Boolean;  
3291    SmsKode : String;    SmsKode : String;
3292    DBKbane : String;    DBKbane : String;
3293    Leveringssted : String;    Leveringssted : String;
# Line 3570  begin Line 3296  begin
3296    Kommentar := '***** Kommentar *****';    Kommentar := '***** Kommentar *****';
3297    BoghandlerNavn := 'Modtagernavn';    BoghandlerNavn := 'Modtagernavn';
3298    Falsk := False;    Falsk := False;
3299    Sand := True;  
3300    
3301    if (Printer.Printers.Count = 0) then    if (Printer.Printers.Count = 0) then
3302    begin    begin
# Line 3778  begin Line 3504  begin
3504    end;    end;
3505  end;  end;
3506    
3507    procedure TMainForm.menuIndleveringClick(Sender: TObject);
3508    begin
3509      Scanningtype := '7';
3510      NulstilAutomatiskValg();
3511      InitIndleveringskode();
3512    end;
3513    
3514  procedure TMainForm.Sprgefterboghandlernummer1Click(Sender: TObject);  procedure TMainForm.Sprgefterboghandlernummer1Click(Sender: TObject);
3515  begin  begin
3516    
3517    if Sprgefterboghandlernummer1.Checked then    if Sprgefterboghandlernummer1.Checked then
3518    begin    begin
3519       CheckBox1.Checked := true;       chkSporgEfterKunde.Checked := true;
3520    end    end
3521    else    else
3522    begin    begin
3523       CheckBox1.Checked := false;       chkSporgEfterKunde.Checked := false;
3524    end;    end;
3525    
3526    
# Line 3810  end; Line 3543  end;
3543  procedure TMainForm.InitNatxpresslevering();  procedure TMainForm.InitNatxpresslevering();
3544  begin  begin
3545        AutomatiskTjekkodeStyring1.Enabled := true;        AutomatiskTjekkodeStyring1.Enabled := true;
3546        PakkeshopNulstil.Visible := false;        btnNulstil.Visible := false;
3547        Pakkernormal1.Checked := true;        Pakkernormal1.Checked := true;
3548        InitForm(FarveNormal,TitelNormal,UrlNormal);        InitForm(FarveNormal,TitelNormal,UrlNormal);
3549        PanelValg1.Color := clGreen;        PanelValg1.Color := clGreen;
3550        PanelValg1.Font.Color := clWhite;        PanelValg1.Font.Color := clWhite;
3551        CheckBox1.Enabled := true;  
3552        CheckBox2.Enabled := true;        chkAltidPrintLabel.Enabled := true;
3553        Altidprintepakkelabel1.Enabled := true;        Altidprintepakkelabel1.Enabled := true;
3554        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3555        CheckBox2.Checked := false;        chkAltidPrintLabel.Checked := false;
3556        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3557        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
3558        Sprgefterboghandlernummer1.Enabled := true;        Sprgefterboghandlernummer1.Enabled := true;
3559        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3560        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
3561        RadioButton1.Enabled := false;        radioStorPakke.Enabled := false;
3562        RadioButton2.Enabled := false;        radioLillePakke.Enabled := false;
3563        ListBox1.Visible := true;        ListBox1.Visible := true;
3564        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3565        EKLoverforsel.Enabled := true;        EKLoverforsel.Enabled := true;
# Line 3843  procedure TMainForm.InitReturFraDao(); Line 3576  procedure TMainForm.InitReturFraDao();
3576  begin  begin
3577        AutomatiskTjekkodeStyring1.Enabled := false;        AutomatiskTjekkodeStyring1.Enabled := false;
3578        ReturpakkerfraDAO1.Checked := true;        ReturpakkerfraDAO1.Checked := true;
3579        PakkeshopNulstil.Visible := false;        btnNulstil.Visible := false;
3580        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);
3581        PanelValg2.Color := clGreen;        PanelValg2.Color := clGreen;
3582        PanelValg2.Font.Color := clWhite;        PanelValg2.Font.Color := clWhite;
3583        CheckBox1.Enabled := false;  
3584        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3585        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
3586        CheckBox2.Checked := false;  
3587        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3588        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3589        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
3590        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3591        Smpakker1.Enabled := true;        Smpakker1.Enabled := true;
3592        Storepakker1.Enabled := true;        Storepakker1.Enabled := true;
3593        RadioButton1.Enabled := true;        radioStorPakke.Enabled := true;
3594        RadioButton2.Enabled := true;        radioLillePakke.Enabled := true;
3595        ListBox1.Visible := true;        ListBox1.Visible := true;
3596        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3597        ListBox2.Items.Clear;        ListBox2.Items.Clear;
# Line 3870  procedure TMainForm.InitReturFraKunde(); Line 3603  procedure TMainForm.InitReturFraKunde();
3603  begin  begin
3604        AutomatiskTjekkodeStyring1.Enabled := false;        AutomatiskTjekkodeStyring1.Enabled := false;
3605        Returpakkerfraboghandler1.Checked := true;        Returpakkerfraboghandler1.Checked := true;
3606        PakkeshopNulstil.Visible := false;        btnNulstil.Visible := false;
3607        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);
3608        PanelValg3.Color := clGreen;        PanelValg3.Color := clGreen;
3609        PanelValg3.Font.Color := clWhite;        PanelValg3.Font.Color := clWhite;
3610        CheckBox1.Enabled := false;  
3611        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3612        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
       CheckBox2.Checked := false;  
3613        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3614        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3615        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
3616        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3617        Smpakker1.Enabled := true;        Smpakker1.Enabled := true;
3618        Storepakker1.Enabled := true;        Storepakker1.Enabled := true;
3619        RadioButton1.Enabled := true;        radioStorPakke.Enabled := true;
3620        RadioButton2.Enabled := true;        radioLillePakke.Enabled := true;
3621        ListBox1.Visible := true;        ListBox1.Visible := true;
3622        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3623        ListBox2.Items.Clear;        ListBox2.Items.Clear;
# Line 3897  procedure TMainForm.InitDirektelevering( Line 3629  procedure TMainForm.InitDirektelevering(
3629  begin  begin
3630        AutomatiskTjekkodeStyring1.Enabled := false;        AutomatiskTjekkodeStyring1.Enabled := false;
3631        Budlevering1.Checked := true;        Budlevering1.Checked := true;
3632        PakkeshopNulstil.Visible := false;        btnNulstil.Visible := false;
3633        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);
3634        PanelValg4.Color := clGreen;        PanelValg4.Color := clGreen;
3635        PanelValg4.Font.Color := clWhite;        PanelValg4.Font.Color := clWhite;
3636        CheckBox1.Enabled := false;  
3637        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3638        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
3639        CheckBox2.Checked := false;  
3640        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3641        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3642        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
3643        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3644        Smpakker1.Enabled := true;        Smpakker1.Enabled := true;
3645        Storepakker1.Enabled := true;        Storepakker1.Enabled := true;
3646        RadioButton1.Enabled := true;        radioStorPakke.Enabled := true;
3647        RadioButton2.Enabled := true;        radioLillePakke.Enabled := true;
3648        ListBox1.Visible := true;        ListBox1.Visible := true;
3649        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3650        DownloadButton01.Enabled := false;        DownloadButton01.Enabled := false;
# Line 3933  procedure TMainForm.InitPakkeshopleverin Line 3665  procedure TMainForm.InitPakkeshopleverin
3665  begin  begin
3666        AutomatiskTjekkodeStyring1.Enabled := true;        AutomatiskTjekkodeStyring1.Enabled := true;
3667        Pakkeshoplevering1.Checked := true;        Pakkeshoplevering1.Checked := true;
3668        PakkeshopNulstil.Visible := false;        btnNulstil.Visible := false;
3669        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);
3670        PanelValg5.Color := clGreen;        PanelValg5.Color := clGreen;
3671        PanelValg5.Font.Color := clWhite;        PanelValg5.Font.Color := clWhite;
3672        CheckBox1.Enabled := false;  
3673        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3674        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
3675        CheckBox2.Checked := false;  
3676        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3677        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3678        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
3679        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3680        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3681        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
3682        RadioButton1.Enabled := false;        radioStorPakke.Enabled := false;
3683        RadioButton2.Enabled := false;        radioLillePakke.Enabled := false;
3684        ListBox1.Visible := true;        ListBox1.Visible := true;
3685        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3686        DownloadButton01.Enabled := false;        DownloadButton01.Enabled := false;
3687        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3688  // 20150330: start  
 //      EKLoverforsel.Enabled := false;  
3689        EKLoverforsel.Enabled := true;        EKLoverforsel.Enabled := true;
3690  // 20150330: slut  
3691        InitLillePakke();        InitLillePakke();
3692        IndlesScanningLogFil();        IndlesScanningLogFil();
3693        if BladhusSted = 0 then        if BladhusSted = 0 then
# Line 3971  procedure TMainForm.InitReturFraPakkesho Line 3702  procedure TMainForm.InitReturFraPakkesho
3702  begin  begin
3703        AutomatiskTjekkodeStyring1.Enabled := false;        AutomatiskTjekkodeStyring1.Enabled := false;
3704        Returpakkerfrapakkeshop1.Checked := true;        Returpakkerfrapakkeshop1.Checked := true;
3705        PakkeshopNulstil.Visible := false;        btnNulstil.Visible := false;
3706        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);
3707        PanelValg6.Color := clGreen;        PanelValg6.Color := clGreen;
3708        PanelValg6.Font.Color := clWhite;        PanelValg6.Font.Color := clWhite;
3709        CheckBox1.Enabled := false;  
3710        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3711        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
3712        CheckBox2.Checked := false;  
3713        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3714        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3715        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
3716        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3717        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3718        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
3719        RadioButton1.Enabled := false;        radioStorPakke.Enabled := false;
3720        RadioButton2.Enabled := false;        radioLillePakke.Enabled := false;
3721        ListBox1.Visible := true;        ListBox1.Visible := true;
3722        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3723        DownloadButton01.Enabled := false;        DownloadButton01.Enabled := false;
# Line 4011  end; Line 3742  end;
3742    
3743  procedure TMainForm.InitIndleveringskode();  procedure TMainForm.InitIndleveringskode();
3744  begin  begin
3745          menuIndlevering.Checked := true;
3746        AutomatiskTjekkodeStyring1.Enabled := false;        AutomatiskTjekkodeStyring1.Enabled := false;
3747        Returpakkerfrapakkeshop1.Checked := true;  
3748        PakkeshopNulstil.Visible := false;        btnNulstil.Visible := false;
3749        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);
3750        PanelValg7.Color := clGreen;        PanelValg7.Color := clGreen;
3751        PanelValg7.Font.Color := clWhite;        PanelValg7.Font.Color := clWhite;
3752        CheckBox1.Enabled := false;  
3753        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3754        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
3755        CheckBox2.Checked := false;  
3756        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3757        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
       CheckBox1.Checked := false;  
3758        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3759          chkSporgEfterKunde.Checked := false;
3760    
3761    
3762    
3763        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3764        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
3765        RadioButton1.Enabled := false;        radioStorPakke.Enabled := false;
3766        RadioButton2.Enabled := false;        radioLillePakke.Enabled := false;
3767        ListBox1.Visible := true;        ListBox1.Visible := true;
3768        ListBox1.Items.Clear;        ListBox1.Items.Clear();
3769    
3770        DownloadButton01.Enabled := false;        DownloadButton01.Enabled := false;
3771        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3772        EKLoverforsel.Enabled := false;        EKLoverforsel.Enabled := false;
# Line 4057  end; Line 3793  end;
3793    
3794  procedure TMainForm.InitLillePakke();  procedure TMainForm.InitLillePakke();
3795  begin  begin
3796    RadioButton2.Checked := true;    radioLillePakke.Checked := true;
3797    Smpakker1.Checked := true;    Smpakker1.Checked := true;
 // 20150310: start  
3798  //  Stregkode := '';  //  Stregkode := '';
 // 20150310: slut  
3799  end;  end;
3800    
3801  procedure TMainForm.InitStorPakke();  procedure TMainForm.InitStorPakke();
3802  begin  begin
3803    RadioButton1.Checked := true;    radioStorPakke.Checked := true;
3804    Storepakker1.Checked := true;    Storepakker1.Checked := true;
3805  // 20150310: start  // 20150310: start
3806  //  Stregkode := '';  //  Stregkode := '';
# Line 4128  begin Line 3862  begin
3862    
3863      // Hvorfor virker ovenstående ikke ???      // Hvorfor virker ovenstående ikke ???
3864      S := '';      S := '';
3865      Str(iVer[1],Result);      Str(iVer[1], Result);
3866      S := S+Result+'.';      S := S+Result+'.';
3867      Str(iVer[2],Result);      Str(iVer[2], Result);
3868      S := S+Result+'.';      S := S+Result+'.';
3869      Str(iVer[3],Result);      Str(iVer[3], Result);
3870      S := S+Result+'.';      S := S+Result+'.';
3871      Str(iVer[4],Result);      Str(iVer[4], Result);
3872      S := S+Result+'';      S := S+Result+'';
3873      Result := S;      Result := S;
3874    end;    end;
# Line 4163  end; Line 3897  end;
3897    
3898  procedure TMainForm.Testlyd2Click(Sender: TObject);  procedure TMainForm.Testlyd2Click(Sender: TObject);
3899  begin  begin
 // 20150317: start  
3900    if (PakkeshopText1.Caption = 'Tjekkode') then    if (PakkeshopText1.Caption = 'Tjekkode') then
3901    begin    begin
3902       if ScannetOkTilTjekkodeLyd  <> '' then       if ScannetOkTilTjekkodeLyd  <> '' then
# Line 4176  begin Line 3909  begin
3909       end;       end;
3910       exit;       exit;
3911    end;    end;
 // 20150317: slut  
3912    
3913    if Smpakker1.Checked then    if Smpakker1.Checked then
3914       if ScannetOkLyd  <> '' then       if ScannetOkLyd  <> '' then
# Line 4185  begin Line 3917  begin
3917       end       end
3918       else       else
3919       begin       begin
 // 20150317: start  
 //       MessageBox(Handle, PWideChar('Lyd fil ikke fundet (scannet)'), 'Information', MB_OK);  
3920         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);
 // 20150317: slut  
3921       end;       end;
3922    if Storepakker1.Checked then    if Storepakker1.Checked then
3923       if ScannetOkStorLyd  <> '' then       if ScannetOkStorLyd  <> '' then
# Line 4197  begin Line 3926  begin
3926       end       end
3927       else       else
3928       begin       begin
 // 20150317: start  
 //       MessageBox(Handle, PWideChar('Lyd fil ikke fundet (scannet stor)'), 'Information', MB_OK);  
3929         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkStorLyd)'), 'Information', MB_OK);         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkStorLyd)'), 'Information', MB_OK);
 // 20150317: slut  
3930       end;       end;
3931  end;  end;
3932    
# Line 4307  begin Line 4033  begin
4033           BoghandlerNavnST.Caption := 'Prøv venligst igen om lidt...';           BoghandlerNavnST.Caption := 'Prøv venligst igen om lidt...';
4034         end;         end;
4035         KommentarST.Caption := Kommentar;         KommentarST.Caption := Kommentar;
4036         PakkeshopNulstil.Visible := true;         btnNulstil.Visible := true;
4037      end;      end;
4038    
4039  end;  end;
# Line 4893  begin Line 4619  begin
4619    until S2 = '';    until S2 = '';
4620  end;  end;
4621    
4622    // ToDo: Færdiggør implementationen
4623    procedure TMainForm.PrintPakkeshopLabel( PakkeshopLabel : TPakkeshopLabel);
4624    begin
4625        with Printer do
4626        begin
4627          BeginDoc();
4628          Canvas.Font.Size := FontSizeRuteLille;
4629    
4630          Canvas.Font.Size := FontSizeKorelisteLille;
4631          Canvas.TextOut(XPosKoreliste,YPosKoreliste, PakkeshopLabel.Navn);
4632    
4633    
4634          EndDoc();
4635        end;
4636    
4637    end;
4638    
4639    
4640  procedure TMainForm.IndlesManglendeScanninger();  procedure TMainForm.IndlesManglendeScanninger();
4641  var  var
4642    WebSvar : String;    WebSvar : String;
# Line 4905  var Line 4649  var
4649    pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer;    pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer;
4650    pakketyper : TStrings;    pakketyper : TStrings;
4651    antlin : Integer;    antlin : Integer;
4652  // 20150306: start  
4653    antlinIdag, antlinSenere : Integer;    antlinIdag, antlinSenere : Integer;
4654  // 20150306: slut  
4655    XmlFelter : TStrings;    XmlFelter : TStrings;
4656    
4657   begin   begin
# Line 4927  var Line 4671  var
4671          StedKode := Sted;          StedKode := Sted;
4672        end;        end;
4673    
4674  // 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;  
 *)  
4675      if (Scanningtype = '6') then      if (Scanningtype = '6') then
4676       begin       begin
4677        URLStr := Format(UrlPakkeshopManglendeReturScanninger,[StedKode]);        URLStr := Format(UrlPakkeshopManglendeReturScanninger,[StedKode]);
# Line 4989  var Line 4715  var
4715      try      try
4716        XMLDocument1.LoadFromXML(WebSvar);        XMLDocument1.LoadFromXML(WebSvar);
4717    
4718  // 20150206: start  
4719        antlin := 0;        antlin := 0;
4720        antlinIdag := 0;        antlinIdag := 0;
4721        antlinSenere := 0;        antlinSenere := 0;
4722  // 20150306: slut  
       antalFelterFundet := 0;  
4723        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin
4724            Node:= XMLDocument1.DocumentElement.ChildNodes[I];            Node:= XMLDocument1.DocumentElement.ChildNodes[I];
4725            if Node.NodeType = ntElement then begin            if Node.NodeType = ntElement then begin
# Line 5026  var Line 4751  var
4751        antalFelterFundet := 0;        antalFelterFundet := 0;
4752        SetLength(stregkoderMedTjekkodeArray, 0);    // reset fra tidligere brug        SetLength(stregkoderMedTjekkodeArray, 0);    // reset fra tidligere brug
4753        SetLength(stregkoderMedTjekkodeArray, antlin);  // sæt antal elementer i array        SetLength(stregkoderMedTjekkodeArray, antlin);  // sæt antal elementer i array
4754  // 20150206: start  
 //      logTekst := 'Der er '+IntToStr(antlin)+' pakker, der endnu ikke er modtaget.';  
4755        logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget';        logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget';
4756        if (antlinSenere > 0) then        if (antlinSenere > 0) then
4757        begin        begin
4758          logTekst := logTekst + ' (' + IntToStr(antlinIdag) + ' til i dag og ' + IntToStr(antlinSenere) + ' til senere)';          logTekst := logTekst + ' (' + IntToStr(antlinIdag) + ' til i dag og ' + IntToStr(antlinSenere) + ' til senere)';
4759        end;        end;
4760        logTekst := logTekst + '.';        logTekst := logTekst + '.';
4761  // 20150306: slut  
4762        SkrivScanningLogFil(logTekst);        SkrivScanningLogFil(logTekst);
4763        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin
4764            Node:= XMLDocument1.DocumentElement.ChildNodes[I];            Node:= XMLDocument1.DocumentElement.ChildNodes[I];
# Line 5084  var Line 4808  var
4808                    begin                    begin
4809                      stregkoderMedTjekkodeArray[linienr] := stregkode;                      stregkoderMedTjekkodeArray[linienr] := stregkode;
4810                    end;                    end;
4811  // 20150306: slut                    linienr := linienr + 1;
                     linienr := linienr + 1;  
4812                  end;                  end;
4813              end;              end;
4814              if antalFelterFundet = antalLiniefelter then              if antalFelterFundet = antalLiniefelter then
# Line 5110  var Line 4833  var
4833    
4834          // Free up the list object          // Free up the list object
4835        pakketyper.Free;        pakketyper.Free;
 // 20150306: start  
4836  //      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.');
4837        logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget';        logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget';
4838        if (antlinSenere > 0) then        if (antlinSenere > 0) then
# Line 5119  var Line 4841  var
4841        end;        end;
4842        logTekst := logTekst + '.';        logTekst := logTekst + '.';
4843        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
 // 20150306: slut  
 // 20150309: start  
4844        if (antlinSenere > 0) then        if (antlinSenere > 0) then
4845        begin        begin
4846          StaticTextManglendePakker.Caption := IntToStr(antlinIdag) + '/' + IntToStr(antlinSenere);          StaticTextManglendePakker.Caption := IntToStr(antlinIdag) + '/' + IntToStr(antlinSenere);
# Line 5129  var Line 4849  var
4849        begin        begin
4850          StaticTextManglendePakker.Caption := IntToStr(antlinIdag);          StaticTextManglendePakker.Caption := IntToStr(antlinIdag);
4851        end;        end;
 // 20150309: slut  
4852    
 // 20150310: start  
4853        if (Scanningtype = '1') then        if (Scanningtype = '1') then
4854        begin        begin
4855          //antlinIdag := 9876;  // til test af boksens udseende ved stort tal          //antlinIdag := 9876;  // til test af boksens udseende ved stort tal
# Line 5210  var Line 4928  var
4928            PanelManglendePakker6.Visible := false;            PanelManglendePakker6.Visible := false;
4929          end;          end;
4930        end;        end;
 // 20150310: slut  
4931    
4932      except on e:exception do      except on e:exception do
4933        begin        begin
# Line 5272  end; Line 4989  end;
4989  procedure TMainForm.SkrivScanningLogFil(var tekst : string);  procedure TMainForm.SkrivScanningLogFil(var tekst : string);
4990  var  var
4991     SomeTxtFile : TextFile;     SomeTxtFile : TextFile;
    buffer : string;  
    S: string;  
4992     idag, imorgen : TDateTime;     idag, imorgen : TDateTime;
4993     imorgenYmd : string;     imorgenYmd : string;
4994     logFilnavn : string;     logFilnavn : string;
# Line 5541  begin Line 5256  begin
5256    result := svar;    result := svar;
5257  end;  end;
5258    
5259    procedure TMainForm.VisAlarmSkaerm(strMessage: string);
5260    begin
5261      //ShowMessage('Ændring ikke tilladt');
5262      // Her skal komme en 'rød skærm' alarm
5263      PlaySound(PWideChar(AlarmLyd));
5264      MainForm.Color := clRed;
5265    
5266    
5267      RuteNummerST.Caption := '';
5268      BoghandlerNavnST.Caption := '';
5269      btnNulstil.Visible := true;
5270    
5271      if (strMessage <> '') then
5272      begin
5273        ListBox1.Items.Insert(0, strMessage);
5274        KommentarST.Caption := strMessage;
5275      end;
5276    
5277    end;
5278    
5279  function TMainForm.getProddato() : TDate;  function TMainForm.getProddato() : TDate;
5280  var  var
5281     idag, imorgen : TDateTime;     idag, imorgen : TDateTime;
# Line 5622  procedure TMainForm.Scanogstjekkoden1Cli Line 5357  procedure TMainForm.Scanogstjekkoden1Cli
5357  begin  begin
5358    if Scanogstjekkoden1.Checked then    if Scanogstjekkoden1.Checked then
5359    begin    begin
5360       CheckBox3.Checked := true;       chkScanTjekkode.Checked := true;
5361    end    end
5362    else    else
5363    begin    begin
5364       CheckBox3.Checked := false;       chkScanTjekkode.Checked := false;
5365    end;    end;
5366  end;  end;
5367    
# Line 5642  begin Line 5377  begin
5377    AReg.Free;    AReg.Free;
5378  end;  end;
5379    
5380    
5381    function TMainForm.CheckUrl(url:string):boolean;
5382    var
5383      hSession, hfile, hRequest: hInternet;
5384      dwindex,dwcodelen :dword;
5385      dwcode:array[1..20] of char;
5386      res : pchar;
5387    begin
5388      if pos('http://',lowercase(url))=0 then
5389        url := 'http://'+url;
5390      Result := false;
5391      hSession := InternetOpen('InetURL:/1.0',
5392                                INTERNET_OPEN_TYPE_PRECONFIG,
5393                                nil,
5394                                nil,
5395                                0);
5396      if assigned(hsession) then
5397      begin
5398        hfile := InternetOpenUrl(hsession,
5399                                 pchar(url),
5400                                 nil,
5401                                 0,
5402                                 INTERNET_FLAG_RELOAD,
5403                                 0);
5404        dwIndex := 0;
5405        dwCodeLen := 10;
5406        HttpQueryInfo(hfile,
5407                      HTTP_QUERY_STATUS_CODE,
5408                      @dwcode,
5409                      dwcodeLen,
5410                      dwIndex);
5411        res := pchar(@dwcode);
5412        result:= (res ='200') or (res ='302');
5413        if assigned(hfile) then
5414          InternetCloseHandle(hfile);
5415        InternetCloseHandle(hsession);
5416      end;
5417    
5418    end;
5419    
5420    
5421    procedure TMainForm.RoundCornerOf(Control: TWinControl);
5422    var
5423       R: TRect;
5424       Rgn: HRGN;
5425    begin
5426       with Control do
5427       begin
5428         R := ClientRect;
5429    //     rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 20, 20) ;
5430         rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 25, 25) ;
5431    //     rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 30, 30) ;
5432         Perform(EM_GETRECT, 0, lParam(@r)) ;
5433         InflateRect(r, - 4, - 4) ;
5434         Perform(EM_SETRECTNP, 0, lParam(@r)) ;
5435         SetWindowRgn(Handle, rgn, True) ;
5436         Invalidate;
5437       end;
5438    end;
5439    
5440  procedure TMainForm.CheckPrintQue(tjektype : string);  procedure TMainForm.CheckPrintQue(tjektype : string);
5441  type  type
5442    TJobs  = array [0..1000] of JOB_INFO_1;    TJobs  = array [0..1000] of JOB_INFO_1;
# Line 5745  begin Line 5540  begin
5540    end;    end;
5541  end;  end;
5542    
 function TMainForm.CheckUrl(url:string):boolean;  
 var  
   hSession, hfile, hRequest: hInternet;  
   dwindex,dwcodelen :dword;  
   dwcode:array[1..20] of char;  
   res : pchar;  
 begin  
   if pos('http://',lowercase(url))=0 then  
     url := 'http://'+url;  
   Result := false;  
   hSession := InternetOpen('InetURL:/1.0',  
                             INTERNET_OPEN_TYPE_PRECONFIG,  
                             nil,  
                             nil,  
                             0);  
   if assigned(hsession) then  
   begin  
     hfile := InternetOpenUrl(hsession,  
                              pchar(url),  
                              nil,  
                              0,  
                              INTERNET_FLAG_RELOAD,  
                              0);  
     dwIndex := 0;  
     dwCodeLen := 10;  
     HttpQueryInfo(hfile,  
                   HTTP_QUERY_STATUS_CODE,  
                   @dwcode,  
                   dwcodeLen,  
                   dwIndex);  
     res := pchar(@dwcode);  
     result:= (res ='200') or (res ='302');  
     if assigned(hfile) then  
       InternetCloseHandle(hfile);  
     InternetCloseHandle(hsession);  
   end;  
   
 end;  
   
 // 20150310: start  
 procedure TMainForm.RoundCornerOf(Control: TWinControl);  
 var  
    R: TRect;  
    Rgn: HRGN;  
 begin  
    with Control do  
    begin  
      R := ClientRect;  
 //     rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 20, 20) ;  
      rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 25, 25) ;  
 //     rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 30, 30) ;  
      Perform(EM_GETRECT, 0, lParam(@r)) ;  
      InflateRect(r, - 4, - 4) ;  
      Perform(EM_SETRECTNP, 0, lParam(@r)) ;  
      SetWindowRgn(Handle, rgn, True) ;  
      Invalidate;  
    end;  
 end;  
 // 20150310: slut  
5543    
5544  end.  end.
5545    
Legend:
Removed from v.2650  
changed lines
  Added in v.2668
  ViewVC Help
Powered by ViewVC 1.1.20