/[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 2653 by torben, Sun Aug 23 10:44:23 2015 UTC revision 2692 by torben, Thu Sep 3 14:24:23 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, ShellApi, ClipBrd, Buttons, wininet,
12      UITypes,
13      PakkeshopLabels,
14      StBarC,
15      Math, // DegToRad() bruges i PrintPakkeshopLabel
16      Utils
17    
18    ;    ;
19    
20  type  type
   TStrArray = array of string;  
21    TMainForm = class(TForm)    TMainForm = class(TForm)
22      StregkodeST: TStaticText;      StregkodeST: TStaticText;
23      RuteNummerST: TStaticText;      RuteNummerST: TStaticText;
# Line 36  type Line 41  type
41      Lukprogrammet1: TMenuItem;      Lukprogrammet1: TMenuItem;
42      N2: TMenuItem;      N2: TMenuItem;
43      N3: TMenuItem;      N3: TMenuItem;
44      RadioButton1: TRadioButton;      radioStorPakke: TRadioButton;
45      RadioButton2: TRadioButton;      radioLillePakke: TRadioButton;
46      N4: TMenuItem;      N4: TMenuItem;
47      Storepakker1: TMenuItem;      Storepakker1: TMenuItem;
48      Smpakker1: TMenuItem;      Smpakker1: TMenuItem;
# Line 47  type Line 52  type
52      Testlyd1: TMenuItem;      Testlyd1: TMenuItem;
53      ListBox1: TListBox;      ListBox1: TListBox;
54      Budlevering1: TMenuItem;      Budlevering1: TMenuItem;
55      DownloadButton01: TButton;      BtnDownloadKontrolfil: TButton;
56      IdFTP1: TIdFTP;      IdFTP1: TIdFTP;
57      Image1: TImage;      Image1: TImage;
58      ListBox2: TListBox;      ListBox2: TListBox;
# Line 56  type Line 61  type
61      DownloadButton03: TButton;      DownloadButton03: TButton;
62      Pakkeshoplevering1: TMenuItem;      Pakkeshoplevering1: TMenuItem;
63      PakkeshopText1: TStaticText;      PakkeshopText1: TStaticText;
64      PakkeshopNulstil: TButton;      btnNulstil: TButton;
65      Returpakkerfrapakkeshop1: TMenuItem;      Returpakkerfrapakkeshop1: TMenuItem;
66      Altidprintepakkelabel1: TMenuItem;      Altidprintepakkelabel1: TMenuItem;
67      chkAltidPrintLabel: TCheckBox;      chkAltidPrintLabel: TCheckBox;
# Line 66  type Line 71  type
71      Manual1: TMenuItem;      Manual1: TMenuItem;
72      PrinterstatusStaticText1: TStaticText;      PrinterstatusStaticText1: TStaticText;
73      Timer1: TTimer;      Timer1: TTimer;
74      CheckBox3: TCheckBox;      chkScanTjekkode: TCheckBox;
75      Scanogstjekkoden1: TMenuItem;      Scanogstjekkoden1: TMenuItem;
76      Automatisktjekkodestyring1: TMenuItem;      Automatisktjekkodestyring1: TMenuItem;
77      Automatiskvalg1: TMenuItem;      Automatiskvalg1: TMenuItem;
# Line 77  type Line 82  type
82      PanelValg4: TPanel;      PanelValg4: TPanel;
83      PanelValg5: TPanel;      PanelValg5: TPanel;
84      PanelValg6: TPanel;      PanelValg6: TPanel;
85        PanelValg7: TPanel;
86      Manualgenerel1: TMenuItem;      Manualgenerel1: TMenuItem;
87      StaticTextManglendePakker: TStaticText;      StaticTextManglendePakker: TStaticText;
88      PanelManglendePakker1: TPanel;      PanelManglendePakker1: TPanel;
# Line 85  type Line 91  type
91      PanelManglendePakker4: TPanel;      PanelManglendePakker4: TPanel;
92      PanelManglendePakker5: TPanel;      PanelManglendePakker5: TPanel;
93      PanelManglendePakker6: TPanel;      PanelManglendePakker6: TPanel;
94      PanelValg7: TPanel;      menuIndlevering: TMenuItem;
95    
96    
97      function Sto_GetFmtFileVersion(const FileName: String = ''): String;
98    
   function Explode(var a: TStrArray; Border, S: string): Integer;  
   function BarCodeValid (ACode: string): boolean;  
   function Sto_GetFmtFileVersion(const FileName: String = ''; const Fmt: String = '%d.%d.%d.%d'): String;  
   function TColorToHex(Color : TColor) : string;  
   function HexToTColor(sColor : string) : TColor;  
99    function getProddato() : TDate;    function getProddato() : TDate;
100    function getProddag() : String;    function getProddag() : String;
101    function retRutenummer(rutenummer : String) : String;    function retRutenummer(rutenummer : String) : String;
102    function GetCurrentPrinterHandle() : THandle;    function GetCurrentPrinterHandle() : THandle;
103    function SavePChar(p: PChar): PChar;    function SavePChar(p: PChar): PChar;
104    function AdobeReaderExists(): Boolean;  
105    function FileTime2DateTime(FileTime: TFileTime): TDateTime;    function FileTime2DateTime(FileTime: TFileTime): TDateTime;
   function split(input: string; schar: Char; s: Integer): string;  
106    function CheckUrl(url:string):boolean;    function CheckUrl(url:string):boolean;
107    
108    procedure PlaySound(filename : PWideChar);    procedure PlaySound(filename : PWideChar);
# Line 113  type Line 116  type
116    procedure FormKeyPress(Sender: TObject; var Key: Char);    procedure FormKeyPress(Sender: TObject; var Key: Char);
117    procedure FormCreate(Sender: TObject);    procedure FormCreate(Sender: TObject);
118    procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);    procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
119    procedure RadioButton1Click(Sender: TObject);    procedure radioStorPakkeClick(Sender: TObject);
120    procedure RadioButton2Click(Sender: TObject);    procedure radioLillePakkeClick(Sender: TObject);
121    procedure chkSporgEfterKundeClick(Sender: TObject);    procedure chkSporgEfterKundeClick(Sender: TObject);
122    procedure Pakkernormal1Click(Sender: TObject);    procedure Pakkernormal1Click(Sender: TObject);
123    procedure Testforbindelsen1Click(Sender: TObject);    procedure Testforbindelsen1Click(Sender: TObject);
# Line 131  type Line 134  type
134    procedure Button1Click(Sender: TObject);    procedure Button1Click(Sender: TObject);
135    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
136    procedure Budlevering1Click(Sender: TObject);    procedure Budlevering1Click(Sender: TObject);
137    procedure DownloadButton01Click(Sender: TObject);    procedure BtnDownloadKontrolfilClick(Sender: TObject);
138    procedure OpdaterListenButton01Click(Sender: TObject);    procedure OpdaterListenButton01Click(Sender: TObject);
139    procedure DownloadBladhusRuteskiftfil();    procedure DownloadBladhusRuteskiftfil();
140    procedure DownloadBladhusKontrolfil();    procedure DownloadBladhusKontrolfil();
# Line 143  type Line 146  type
146    procedure UploadButton01Click(Sender: TObject);    procedure UploadButton01Click(Sender: TObject);
147    procedure DownloadButton03Click(Sender: TObject);    procedure DownloadButton03Click(Sender: TObject);
148    procedure Pakkeshoplevering1Click(Sender: TObject);    procedure Pakkeshoplevering1Click(Sender: TObject);
149    procedure PakkeshopNulstilClick(Sender: TObject);    procedure btnNulstilClick(Sender: TObject);
150    procedure Returpakkerfrapakkeshop1Click(Sender: TObject);    procedure Returpakkerfrapakkeshop1Click(Sender: TObject);
151    procedure InitNatxpresslevering();    procedure InitNatxpresslevering();
152    procedure InitReturFraDao();    procedure InitReturFraDao();
# Line 158  type Line 161  type
161    procedure EKLoverforselClick(Sender: TObject);    procedure EKLoverforselClick(Sender: TObject);
162    procedure Uploadlogfil1Click(Sender: TObject);    procedure Uploadlogfil1Click(Sender: TObject);
163    procedure Manual1Click(Sender: TObject);    procedure Manual1Click(Sender: TObject);
   procedure CheckPrintQue(tjektype : string);  
164    procedure Timer1Timer(Sender: TObject);    procedure Timer1Timer(Sender: TObject);
165    procedure Scanogstjekkoden1Click(Sender: TObject);    procedure Scanogstjekkoden1Click(Sender: TObject);
166    procedure CheckBox3Click(Sender: TObject);    procedure chkScanTjekkodeClick(Sender: TObject);
167    procedure Automatisktjekkodestyring1Click(Sender: TObject);    procedure Automatisktjekkodestyring1Click(Sender: TObject);
168    procedure SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);    procedure SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);
169    procedure Automatiskvalg1Click(Sender: TObject);    procedure Automatiskvalg1Click(Sender: TObject);
# Line 172  type Line 174  type
174    procedure PanelValg4Click(Sender: TObject);    procedure PanelValg4Click(Sender: TObject);
175    procedure PanelValg5Click(Sender: TObject);    procedure PanelValg5Click(Sender: TObject);
176    procedure PanelValg6Click(Sender: TObject);    procedure PanelValg6Click(Sender: TObject);
177      procedure PanelValg7Click(Sender: TObject);
178    
179    procedure NulstilAutomatiskValg();    procedure NulstilAutomatiskValg();
180    procedure SletLogfiler(Path: string; FileList: TStrings);    procedure SletLogfiler(Path: string; FileList: TStrings);
181    procedure Manualgenerel1Click(Sender: TObject);    procedure Manualgenerel1Click(Sender: TObject);
182    procedure TjekkerUrls();    procedure TjekkerUrls();
 // 20150310: start  
   procedure RoundCornerOf(Control: TWinControl);  
183    
184      procedure PanelValg7Click(Sender: TObject);    procedure menuIndleveringClick(Sender: TObject);
185  // 20150310: slut  
186      procedure PrintPakkeshopLabel( PakkeshopLabel : TPakkeshopLabel);
187      procedure CheckPrintQue(tjektype : string);
188    
189    
190    private    private
191      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 193  type
193      SkrivLog : String;      SkrivLog : String;
194      Sted : String;      Sted : String;
195      StedNavn : String;      StedNavn : String;
196      Url, UrlNormal, UrlReturDAO, UrlReturBoghandler, UrlBudlevering, UrlManglendeScanninger, UrlPakkeshoplevering, UrlReturPakkeshop, UrlPakkeshopManglendeScanninger, UrlPakkeshopManglendeReturScanninger,UrlEKLoverforsel : String;      Url, UrlNormal, UrlReturDAO, UrlReturBoghandler, UrlBudlevering, UrlManglendeScanninger, UrlPakkeshoplevering, UrlReturPakkeshop, UrlPakkeshopManglendeScanninger, UrlPakkeshopManglendeReturScanninger,UrlIndleveringsPakke,UrlIndleveringsPakkeManglendeScanninger,UrlEKLoverforsel : String;
197  // 29150330: start  // 29150330: start
198      UrlEKLoverforselPakkeshop : String;      UrlEKLoverforselPakkeshop : String;
199  // 20150330: slut  // 20150330: slut
# Line 196  type Line 201  type
201      Scanningtype, TestFunktionen, Pakketype, SporgEfterBoghandler : String;      Scanningtype, TestFunktionen, Pakketype, SporgEfterBoghandler : String;
202      ScanTjekkode : String;      ScanTjekkode : String;
203      ScanTjekkodeAutomatik : string;      ScanTjekkodeAutomatik : string;
204      Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop : String;      Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop, FarveIndlevering : String;
205      Titel, TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop : String;      Titel, TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop, TitelIndlevering : String;
206      LabelType : integer;      LabelType : integer;
207      AlarmLyd : String;      AlarmLyd : String;
208      ScannetOkLyd : String;      ScannetOkLyd : String;
209      ScannetOkStorLyd : String;      ScannetOkStorLyd : String;
210  // 20150317: start  
211      ScannetOkTilTjekkodeLyd : String;      ScannetOkTilTjekkodeLyd : String;
212  // 20150317: slut  
213      PrinterNavn : String;      PrinterNavn : String;
214      TjekPrinter : String;      TjekPrinter : String;
215      XPosRute : integer;      XPosRute : integer;
# Line 243  type Line 248  type
248      BoghandlerStregkode, BoghandlerTjekkode : String;      BoghandlerStregkode, BoghandlerTjekkode : String;
249      TjekUrls : String;      TjekUrls : String;
250    
251            function CheckSumModulo10(const data:string):string;          { used for EAN 8/13 }      Barcode : TStBarcode;
252    
253    
254      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 = '');
255      procedure SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');      procedure SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');
# Line 255  type Line 261  type
261      procedure IndlesScanningLogFil();      procedure IndlesScanningLogFil();
262      procedure SkrivScanningLogFil(var tekst : string);      procedure SkrivScanningLogFil(var tekst : string);
263      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;
264        procedure VisAlarmSkaerm(strMessage: string);
265    
266    public    public
267      { Public declarations }      { Public declarations }
268    end;    end;
269    
270          function GetPixelsPerInchX(): Integer;
271        function GetPixelsPerInchY(): Integer;
272    
273  var  var
274    MainForm: TMainForm;    MainForm: TMainForm;
275    
# Line 273  var Line 283  var
283  implementation  implementation
284  {$R *.dfm}  {$R *.dfm}
285    
 function TMainForm.TColorToHex(Color : TColor) : string;  
 begin  
    Result :=  
      IntToHex(GetRValue(Color), 2) +  
      IntToHex(GetGValue(Color), 2) +  
      IntToHex(GetBValue(Color), 2) ;  
 end;  
   
 function TMainForm.HexToTColor(sColor : string) : TColor;  
 begin  
    Result :=  
      RGB(  
        StrToInt('$'+Copy(sColor, 1, 2)),  
        StrToInt('$'+Copy(sColor, 3, 2)),  
        StrToInt('$'+Copy(sColor, 5, 2))  
      ) ;  
 end;  
286    
287  procedure TMainForm.InitForm(Farve,Titel,Url : String);  procedure TMainForm.InitForm(Farve,Titel,Url : String);
288  begin  begin
# Line 298  begin Line 291  begin
291      StaticTextManglendePakker.Caption := '';      StaticTextManglendePakker.Caption := '';
292  // 20150309: slut  // 20150309: slut
293    
294        Barcode := TStBarcode.Create(MainForm);//Dynamisk oprettelse af Barcode component
295    
296      PanelValg1.Color := clBtnFace;      PanelValg1.Color := clBtnFace;
297      if PanelValg1.Enabled = true then      if PanelValg1.Enabled = true then
298      begin      begin
# Line 394  begin Line 389  begin
389    
390      StartScreen();      StartScreen();
391      MainForm.Caption := Titel;      MainForm.Caption := Titel;
392      MainForm.Color := HexToTColor(Farve);      MainForm.Color := TUtils.HexToTColor(Farve);
393      MainForm.Farve := Farve;      MainForm.Farve := Farve;
394      MainForm.Titel := Titel;      MainForm.Titel := Titel;
395      MainForm.Url := Url;      MainForm.Url := Url;
# Line 409  begin Line 404  begin
404      else      else
405        PakkeshopText1.Visible := false;        PakkeshopText1.Visible := false;
406    
407      CheckBox3.Checked := false;      chkScanTjekkode.Checked := false;
408      CheckBox3.Enabled := false;      chkScanTjekkode.Enabled := false;
409      Scanogstjekkoden1.Enabled := false;      Scanogstjekkoden1.Enabled := false;
410    
411      if (Scanningtype = '1') or (Scanningtype = '5') then      if (Scanningtype = '1') or (Scanningtype = '5') then
412      begin      begin
413        if (ScanTjekkode = '1') then        if (ScanTjekkode = '1') then
414        begin        begin
415          CheckBox3.Checked := true;          chkScanTjekkode.Checked := true;
416          CheckBox3.Enabled := true;          chkScanTjekkode.Enabled := true;
417          Scanogstjekkoden1.Enabled := true;          Scanogstjekkoden1.Enabled := true;
418        end        end
419        else        else
420        begin        begin
421          CheckBox3.Checked := false;          chkScanTjekkode.Checked := false;
422          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
423          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
424        end;        end;
425      end;      end;
426    
427      if Automatisktjekkodestyring1.Checked then      if Automatisktjekkodestyring1.Checked then
428      begin      begin
429        CheckBox3.Enabled := false;        chkScanTjekkode.Enabled := false;
430        Scanogstjekkoden1.Enabled := false;        Scanogstjekkoden1.Enabled := false;
431      end;      end;
432    
# Line 454  begin Line 449  begin
449          end          end
450          else          else
451          begin          begin
452            logTekst := 'Speciel version til: '+split(Titel, ':', 2)+' ('+Sted+')';            logTekst := 'Speciel version til: ' + TUtils.split(Titel, ':', 2) + ' ('+Sted+')';
453          end;          end;
454          SkrivScanningLogFil(logTekst);          SkrivScanningLogFil(logTekst);
455        end        end
456        else        else
457        begin        begin
458          logTekst := 'Speciel version til: '+split(Titel, ':', 2)+' ('+SpecialVersionSted+')';          logTekst := 'Speciel version til: ' + TUtils.split(Titel, ':', 2) + ' ('+SpecialVersionSted+')';
459          SkrivScanningLogFil(logTekst);          SkrivScanningLogFil(logTekst);
460        end;        end;
461      end;      end;
# Line 490  procedure TMainForm.Automatisktjekkodest Line 485  procedure TMainForm.Automatisktjekkodest
485  begin  begin
486    if Automatisktjekkodestyring1.Checked then    if Automatisktjekkodestyring1.Checked then
487    begin    begin
488       CheckBox3.Enabled := false;       chkScanTjekkode.Enabled := false;
489       Scanogstjekkoden1.Enabled := false;       Scanogstjekkoden1.Enabled := false;
490    end    end
491    else    else
492    begin    begin
493       CheckBox3.Enabled := true;       chkScanTjekkode.Enabled := true;
494       Scanogstjekkoden1.Enabled := true;       Scanogstjekkoden1.Enabled := true;
495    end;    end;
496    
# Line 503  end; Line 498  end;
498    
499  procedure TMainForm.Automatiskvalg1Click(Sender: TObject);  procedure TMainForm.Automatiskvalg1Click(Sender: TObject);
500  begin  begin
 // 20150317: start  
 (*  
   if Automatiskvalg1.Checked then  
   begin  
      AutomatiskValg1.Checked := true;  
      PanelValgA.Color := clGreen;  
      PanelValgA.Font.Color := clWhite;  
   end  
   else  
   begin  
      AutomatiskValg1.Checked := false;  
      PanelValgA.Color := clBtnFace;  
      PanelValgA.Font.Color := clWindowText;  
   end;  
 *)  
501  // Skal ikke toggle men bare sætte funktionen on  // Skal ikke toggle men bare sætte funktionen on
502  // Fravælges ved at vælge en scanningstype  // Fravælges ved at vælge en scanningstype
503       AutomatiskValg1.Checked := true;       AutomatiskValg1.Checked := true;
504       PanelValgA.Color := clGreen;       PanelValgA.Color := clGreen;
505       PanelValgA.Font.Color := clWhite;       PanelValgA.Font.Color := clWhite;
 // 20150317: slut  
506  end;  end;
507    
508  procedure TMainForm.FormCreate(Sender: TObject);  procedure TMainForm.FormCreate(Sender: TObject);
# Line 531  const Line 510  const
510    crlf = Chr(13) + Chr(10) ;  // Carriage return & Linefeed    crlf = Chr(13) + Chr(10) ;  // Carriage return & Linefeed
511  var  var
512    printerInd : integer;    printerInd : integer;
   i : Integer;  
 // 20150310: start  
513    gemScanningtype : String;    gemScanningtype : String;
 // 20150310: slut  
514    
515  begin  begin
516    // Initierer nogle variabler    // Initierer nogle variabler
# Line 542  begin Line 518  begin
518    Application.ShowHint := True;    Application.ShowHint := True;
519    PrinterstatusStaticText1.Caption := '';    PrinterstatusStaticText1.Caption := '';
520    PrinterstatusStaticText1.Color := MainForm.Color;    PrinterstatusStaticText1.Color := MainForm.Color;
521  // 20150306: start  
522    PakkeshopNulstil.BringToFront;    btnNulstil.BringToFront;
523  // 20150306: slut  
524  // 20150310: start    TUtils.RoundCornerOf(PanelManglendePakker1);
525    RoundCornerOf(PanelManglendePakker1);    TUtils.RoundCornerOf(PanelManglendePakker2);
526    RoundCornerOf(PanelManglendePakker2);    TUtils.RoundCornerOf(PanelManglendePakker3);
527    RoundCornerOf(PanelManglendePakker3);    TUtils.RoundCornerOf(PanelManglendePakker4);
528    RoundCornerOf(PanelManglendePakker4);    TUtils.RoundCornerOf(PanelManglendePakker5);
529    RoundCornerOf(PanelManglendePakker5);    TUtils.RoundCornerOf(PanelManglendePakker6);
530    RoundCornerOf(PanelManglendePakker6);  
 // 20150310: slut  
531    
532    // 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
533    if DirectoryExists('Docs') then    if DirectoryExists('Docs') then
# Line 579  begin Line 554  begin
554      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');
555      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');
556      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');
557  // 20150330: start  
558      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');
559  // 20150330: slut  
560      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');
561      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');
562      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');
563      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');
564    
565    
566        UrlIndleveringsPakke := ReadString('Settings','UrlIndleveringsPakke','http://omdeling.info/webservices/pakkeshop/PakkekontrolIndleveringskode.php?sted=%s&pakkekode=%s');
567        UrlIndleveringsPakkeManglendeScanninger := ReadString('Settings', 'UrlIndleveringsPakkeManglendeScanninger','http://omdeling.info/webservices/pakkeshop/IndleveringsPakkeManglendeScanninger.php?sted=%s');
568    
569    
570    
571      LabelType := ReadInteger('Settings','LabelType',1);      LabelType := ReadInteger('Settings','LabelType',1);
572      FarveNormal := ReadString('Settings','FarveNormal','D8D8D8');      FarveNormal := ReadString('Settings','FarveNormal','D8D8D8');
573      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 579  begin
579      TitelBudlevering := ReadString('Settings','TitelBudlevering','Modtagelse af DAO DIREKTE pakker');      TitelBudlevering := ReadString('Settings','TitelBudlevering','Modtagelse af DAO DIREKTE pakker');
580      FarvePakkeshoplevering := ReadString('Settings','FarvePakkeshoplevering','99FFFF');      FarvePakkeshoplevering := ReadString('Settings','FarvePakkeshoplevering','99FFFF');
581      TitelPakkeshoplevering := ReadString('Settings','TitelPakkeshoplevering','Modtagelse af DAO PAKKESHOP pakker');      TitelPakkeshoplevering := ReadString('Settings','TitelPakkeshoplevering','Modtagelse af DAO PAKKESHOP pakker');
582    
583      FarveReturPakkeshop := ReadString('Settings','FarveReturPakkeshop','99FFCC');      FarveReturPakkeshop := ReadString('Settings','FarveReturPakkeshop','99FFCC');
584      TitelReturPakkeshop := ReadString('Settings','TitelReturPakkeshop','Returforsendelse fra pakkeshop');      TitelReturPakkeshop := ReadString('Settings','TitelReturPakkeshop','Returforsendelse fra pakkeshop');
585    
586        FarveIndlevering := ReadString('Settings', 'FarveIndlevering', 'E5B2CB');
587        TitelIndlevering := ReadString('Settings', 'TitelIndlevering', 'Indleveringskode');
588    
589    
590      SporgEfterBoghandler := ReadString('Settings','SporgEfterBoghandler','0');      SporgEfterBoghandler := ReadString('Settings','SporgEfterBoghandler','0');
591      ScanTjekkode := ReadString('Settings','ScanTjekkode','0');      ScanTjekkode := ReadString('Settings','ScanTjekkode','0');
592      ScanTjekkodeAutomatik := ReadString('Settings','ScanTjekkodeAutomatik','1');      ScanTjekkodeAutomatik := ReadString('Settings','ScanTjekkodeAutomatik','1');
# Line 608  begin Line 596  begin
596      AlarmLyd := ReadString('Settings','AlarmLyd','Sounds\Alarm.wav');      AlarmLyd := ReadString('Settings','AlarmLyd','Sounds\Alarm.wav');
597      ScannetOkLyd := ReadString('Settings','ScannetOkLyd','Sounds\Ok.wav');      ScannetOkLyd := ReadString('Settings','ScannetOkLyd','Sounds\Ok.wav');
598      ScannetOkStorLyd := ReadString('Settings','ScannetOkStorLyd','Sounds\Ok_stor.wav');      ScannetOkStorLyd := ReadString('Settings','ScannetOkStorLyd','Sounds\Ok_stor.wav');
599  // 20150317: start  
600      ScannetOkTilTjekkodeLyd := ReadString('Settings','ScannetOkTilTjekkodeLyd','Sounds\Ok_til_tjekkode.wav');      ScannetOkTilTjekkodeLyd := ReadString('Settings','ScannetOkTilTjekkodeLyd','Sounds\Ok_til_tjekkode.wav');
601  // 20150317: slut  
602      PrinterNavn := ReadString('Settings','PrinterNavn','');      PrinterNavn := ReadString('Settings','PrinterNavn','');
603      TjekPrinter := ReadString('Settings','TjekPrinter','1');      TjekPrinter := ReadString('Settings','TjekPrinter','1');
604      TjekUrls := ReadString('Settings','TjekUrls','2');      TjekUrls := ReadString('Settings','TjekUrls','2');
605    
606      if (SkrivLog = '1') then      if (SkrivLog = '1') then
607      begin      begin
608        logTekst := 'Program start (Version: ' + Sto_GetFmtFileVersion('','') + ') Dato: ' + FormatDateTime('yyyy-mm-dd hh:nn:ss',now);        logTekst := 'Program start (Version: ' + Sto_GetFmtFileVersion('') + ') Dato: ' + FormatDateTime('yyyy-mm-dd hh:nn:ss',now);
609        try        try
610          SkrivScanningLogFil(logTekst);          SkrivScanningLogFil(logTekst);
611          Uploadlogfil1.Enabled := true;          Uploadlogfil1.Enabled := true;
# Line 722  begin Line 710  begin
710    
711      if ScanTjekkode = '1' then      if ScanTjekkode = '1' then
712      begin      begin
713        CheckBox3.Checked := true;        chkScanTjekkode.Checked := true;
714        Scanogstjekkoden1.Checked := true;        Scanogstjekkoden1.Checked := true;
715      end      end
716      else      else
717      begin      begin
718        CheckBox3.Checked := false;        chkScanTjekkode.Checked := false;
719        Scanogstjekkoden1.Checked := false;        Scanogstjekkoden1.Checked := false;
720      end;      end;
721    
722      if ScanTjekkodeAutomatik = '1' then      if ScanTjekkodeAutomatik = '1' then
723      begin      begin
724        Automatisktjekkodestyring1.Checked := true;        Automatisktjekkodestyring1.Checked := true;
725        CheckBox3.Enabled := false;        chkScanTjekkode.Enabled := false;
726        Scanogstjekkoden1.Enabled := false;        Scanogstjekkoden1.Enabled := false;
727      end;      end;
728    
# Line 760  begin Line 748  begin
748      //SpecialVersionSted := 'FD';  // FD - sætter automatisk nedenstående SpecialVersionScanningtype til DIREKTE)      //SpecialVersionSted := 'FD';  // FD - sætter automatisk nedenstående SpecialVersionScanningtype til DIREKTE)
749      // *************************** //      // *************************** //
750    
751    {$IfDef STED_BK}
752        SpecialVersionSted := 'BK';
753    {$EndIf}
754    {$IfDef STED_DBK}
755        SpecialVersionSted := 'DBK';
756    {$EndIf}
757    {$IfDef STED_FD}
758        SpecialVersionSted := 'FD';
759    {$EndIf}
760    {$IfDef STED_NS}
761        SpecialVersionSted := 'NS';
762    {$EndIf}
763    
764    
765      //SpecialVersionSted := '01';  // NS - bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE)      //SpecialVersionSted := '01';  // NS - bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE)
766      //SpecialVersionSted := '02';  // BK - BRUGES IKKE (brug i stedet ovenstående SpecialVersionSted BK)      //SpecialVersionSted := '02';  // BK - BRUGES IKKE (brug i stedet ovenstående SpecialVersionSted BK)
767      //SpecialVersionSted := '03';  // FD - (bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE)      //SpecialVersionSted := '03';  // FD - (bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE)
# Line 775  begin Line 777  begin
777      // Hvis specialversion er valgt (SpecialVersionSted er sat til en værdi ovenfor)      // Hvis specialversion er valgt (SpecialVersionSted er sat til en værdi ovenfor)
778      // ændrer vi Sted og Scanningtype her:      // ændrer vi Sted og Scanningtype her:
779    
 // 20150313: start  
780      if SpecialVersionSted = 'NS' then      if SpecialVersionSted = 'NS' then
781      begin      begin
782         SpecialVersionSted := '01';         SpecialVersionSted := '01';
# Line 786  begin Line 787  begin
787         SpecialVersionSted := '03';         SpecialVersionSted := '03';
788         SpecialVersionScanningtype := '4';         SpecialVersionScanningtype := '4';
789      end;      end;
 // 20150313: slut  
790    
791      if SpecialVersionSted = 'BK' then      if SpecialVersionSted = 'BK' then
792      begin      begin
# Line 826  begin Line 826  begin
826        PanelValg5.Font.Color := clInactiveCaption;        PanelValg5.Font.Color := clInactiveCaption;
827        PanelValg6.Enabled := false;        PanelValg6.Enabled := false;
828        PanelValg6.Font.Color := clInactiveCaption;        PanelValg6.Font.Color := clInactiveCaption;
829          PanelValg7.Enabled := false;
830          PanelValg7.Font.Color := clInactiveCaption;
831    
832       // her skal vi også disable de menupunkter DBK ikke kan bruge       // her skal vi også disable de menupunkter DBK ikke kan bruge
833        ReturpakkerfraDAO1.Enabled := false;        ReturpakkerfraDAO1.Enabled := false;
834        Returpakkerfraboghandler1.Enabled := false;        Returpakkerfraboghandler1.Enabled := false;
835  // 20150317: start  
836        Pakkeshoplevering1.Enabled := false;        Pakkeshoplevering1.Enabled := false;
837        Returpakkerfrapakkeshop1.Enabled := false;        Returpakkerfrapakkeshop1.Enabled := false;
838  // 20150317: slut  
839        if SpecialVersionScanningtype = 'A' then        if SpecialVersionScanningtype = 'A' then
840        begin        begin
841           Scanningtype := '1';           Scanningtype := '1';
# Line 862  begin Line 865  begin
865        PanelValg5.Font.Color := clInactiveCaption;        PanelValg5.Font.Color := clInactiveCaption;
866        PanelValg6.Enabled := false;        PanelValg6.Enabled := false;
867        PanelValg6.Font.Color := clInactiveCaption;        PanelValg6.Font.Color := clInactiveCaption;
868          PanelValg7.Enabled := false;
869          PanelValg7.Font.Color := clInactiveCaption;
870       // 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
871  // 20150317: start  
872        Automatiskvalg1.Enabled := false;        Automatiskvalg1.Enabled := false;
873  // 20150317: slut  
874        Pakkernormal1.Enabled := false;        Pakkernormal1.Enabled := false;
875        ReturpakkerfraDAO1.Enabled := false;        ReturpakkerfraDAO1.Enabled := false;
876        Returpakkerfraboghandler1.Enabled := false;        Returpakkerfraboghandler1.Enabled := false;
# Line 957  begin Line 962  begin
962             RutenummerST.Caption := '';             RutenummerST.Caption := '';
963             BoghandlerNavnST.Caption := 'Fejl i urls';             BoghandlerNavnST.Caption := 'Fejl i urls';
964             KommentarST.Caption := 'Se log vinduet';             KommentarST.Caption := 'Se log vinduet';
965             PakkeshopNulstil.Visible := true;             btnNulstil.Visible := true;
966             exit;             exit;
967          end;          end;
968      end      end
# Line 1000  begin Line 1005  begin
1005      if Pakketype = '1' then      if Pakketype = '1' then
1006      begin      begin
1007        Storepakker1.Checked := true;        Storepakker1.Checked := true;
1008        RadioButton1.Checked := true;        radioStorPakke.Checked := true;
1009      end      end
1010      else      else
1011      begin      begin
1012        Smpakker1.Checked := true;        Smpakker1.Checked := true;
1013        RadioButton2.Checked := true;        radioLillePakke.Checked := true;
1014      end;      end;
1015    
1016      if TestFunktionen = '1' then      if TestFunktionen = '1' then
# Line 1045  begin Line 1050  begin
1050        ScannetOkStorLyd := '';        ScannetOkStorLyd := '';
1051      end;      end;
1052    
1053  // 20150317: start  
1054      if not FileExists(ScannetOkTilTjekkodeLyd) then      if not FileExists(ScannetOkTilTjekkodeLyd) then
1055      begin      begin
1056        ScannetOkTilTjekkodeLyd := '';        ScannetOkTilTjekkodeLyd := '';
1057      end;      end;
1058  // 20150317: slut  
1059    
1060      if (PrinterNavn <> '') then      if (PrinterNavn <> '') then
1061      begin      begin
# Line 1083  begin Line 1088  begin
1088          InitBladhus();          InitBladhus();
1089        end;        end;
1090    
1091  // 20150310: start  
1092      // Opbygger PanelManglendePakker information      // Opbygger PanelManglendePakker information
1093      gemScanningtype := Scanningtype;      gemScanningtype := Scanningtype;
1094    
# Line 1124  begin Line 1129  begin
1129      end;      end;
1130    
1131      Scanningtype := gemScanningtype;      Scanningtype := gemScanningtype;
 // 20150310: slut  
1132    
1133      SendInfoTilServer(Sted, Scanningtype, 'Begin', '');      SendInfoTilServer(Sted, Scanningtype, 'Begin', '');
1134      SendInfoTilServer(Sted, Scanningtype, 'ProgramVersion', Sto_GetFmtFileVersion('',''));      SendInfoTilServer(Sted, Scanningtype, 'ProgramVersion', Sto_GetFmtFileVersion(''));
1135    
1136  end;  end;
1137    
# Line 1145  var Line 1149  var
1149    BoghandlerNavn : String;    BoghandlerNavn : String;
1150    Koreliste : String;    Koreliste : String;
1151    PrintNyLabel : Boolean;    PrintNyLabel : Boolean;
   List1msg : String;  
1152    pakkeErScannet : Integer;    pakkeErScannet : Integer;
1153    pakkeForkertSted : Integer;    pakkeForkertSted : Integer;
1154    tjekkodeMangler : Integer;    tjekkodeMangler : Integer;
# Line 1170  begin Line 1173  begin
1173      ClipboardData := Clipboard.AsText;      ClipboardData := Clipboard.AsText;
1174      numberString := ClipboardData;      numberString := ClipboardData;
1175      Val(numberString, float, errorPos);      Val(numberString, float, errorPos);
1176  // 20150311: start  
1177  //    if (ClipboardData <> '') and (errorPos = 0) then      //    if (ClipboardData <> '') and (errorPos = 0) then
1178      if (ClipboardData <> '') and (errorPos = 0)      if (ClipboardData <> '') and (errorPos = 0)
1179      or (NumberString = 'Nulstil')      or (NumberString = 'Nulstil')
1180      or (NumberString = 'Indtast kundenummer')      or (NumberString = 'Indtast kundenummer')
# Line 1186  begin Line 1189  begin
1189      or (NumberString = 'DAO DIREKTE')      or (NumberString = 'DAO DIREKTE')
1190      or (NumberString = 'DAO PAKKESHOP')      or (NumberString = 'DAO PAKKESHOP')
1191      or (NumberString = 'Retur fra pakkeshop') then      or (NumberString = 'Retur fra pakkeshop') then
1192  // 20150311: slut  
1193      begin      begin
1194        Stregkode := Stregkode + ClipboardData;        Stregkode := Stregkode + ClipboardData;
1195        StregkodeST.Caption := StregKode;        StregkodeST.Caption := StregKode;
# Line 1199  begin Line 1202  begin
1202    
1203    if Key = #13 then     // Enter    if Key = #13 then     // Enter
1204    begin    begin
 // 20150306: start  
1205      if (Length(Trim(Stregkode)) = 0) then      if (Length(Trim(Stregkode)) = 0) then
1206      begin      begin
1207        PlaySound(PWideChar(AlarmLyd));        VisAlarmSkaerm( 'Der skal scannes en stregkode...' );
1208        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;  
1209        exit;        exit;
1210      end;      end;
 // 20150306: slut  
1211    
 // 20150311: start  
1212      if StregKode = 'Nulstil' then      if StregKode = 'Nulstil' then
1213      begin      begin
1214         PakkeshopNulstil.Click();         btnNulstil.Click();
1215         exit;         exit;
1216      end;      end;
1217    
1218      if PakkeshopNulstil.Visible then      if btnNulstil.Visible then
1219      begin      begin
1220         PlaySound(PWideChar(AlarmLyd));        VisAlarmSkaerm( 'HUSK at klikke Nulstil før ny scanning...' );
1221  // 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  
1222         exit;         exit;
1223      end;      end;
1224    
1225      if StregKode = 'Lille pakke' then      if StregKode = 'Lille pakke' then
1226      begin      begin
1227         if RadioButton2.Enabled = true then         if radioLillePakke.Enabled = true then
1228         begin         begin
1229            InitLillePakke();            InitLillePakke();
1230         end         end
1231         else         else
1232         begin         begin
1233          //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;  
1234         end;         end;
1235         Stregkode := '';         Stregkode := '';
1236         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1268  begin Line 1239  begin
1239    
1240      if StregKode = 'Stor pakke' then      if StregKode = 'Stor pakke' then
1241      begin      begin
1242         if RadioButton1.Enabled = true then         if radioStorPakke.Enabled = true then
1243         begin         begin
1244            InitStorPakke();            InitStorPakke();
1245         end         end
1246         else         else
1247         begin         begin
1248          //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;  
1249         end;         end;
1250         Stregkode := '';         Stregkode := '';
1251         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1307  begin Line 1267  begin
1267         end         end
1268         else         else
1269         begin         begin
1270          //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;  
1271         end;         end;
1272         Stregkode := '';         Stregkode := '';
1273         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1327  begin Line 1276  begin
1276    
1277      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
1278      begin      begin
1279        if CheckBox3.Enabled = true then        if chkScanTjekkode.Enabled = true then
1280        begin        begin
1281           if (CheckBox3.State = cbChecked) then           if (chkScanTjekkode.State = cbChecked) then
1282           begin           begin
1283            CheckBox3.State := cbUnchecked;            chkScanTjekkode.State := cbUnchecked;
1284           end           end
1285           else           else
1286           begin           begin
1287            CheckBox3.State := cbChecked;            chkScanTjekkode.State := cbChecked;
1288           end;           end;
1289        end        end
1290        else        else
1291        begin        begin
1292          //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;  
1293        end;        end;
1294        Stregkode := '';        Stregkode := '';
1295        StregkodeST.Caption := StregKode;        StregkodeST.Caption := StregKode;
# Line 1366  begin Line 1304  begin
1304         end         end
1305         else         else
1306         begin         begin
1307          //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;  
1308         end;         end;
1309         Stregkode := '';         Stregkode := '';
1310         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
1311         exit;         exit;
1312      end;      end;
1313    
1314  // 20150323: start  
 //    if StregKode = 'DAO NAT X-PRESS' then  
1315      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  
1316      begin      begin
1317         if (PanelValg1.Enabled = true) then         if (PanelValg1.Enabled = true) then
1318         begin         begin
# Line 1395  begin Line 1320  begin
1320         end         end
1321         else         else
1322         begin         begin
1323          //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;  
1324         end;         end;
1325         Stregkode := '';         Stregkode := '';
1326         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1421  begin Line 1335  begin
1335         end         end
1336         else         else
1337         begin         begin
1338          //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;  
1339         end;         end;
1340         Stregkode := '';         Stregkode := '';
1341         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1447  begin Line 1350  begin
1350         end         end
1351         else         else
1352         begin         begin
1353          //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;  
1354         end;         end;
1355         Stregkode := '';         Stregkode := '';
1356         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1473  begin Line 1365  begin
1365         end         end
1366         else         else
1367         begin         begin
1368          //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;  
1369         end;         end;
1370         Stregkode := '';         Stregkode := '';
1371         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1499  begin Line 1380  begin
1380         end         end
1381         else         else
1382         begin         begin
1383          //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;  
1384         end;         end;
1385         Stregkode := '';         Stregkode := '';
1386         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
# Line 1525  begin Line 1395  begin
1395         end         end
1396         else         else
1397         begin         begin
1398          //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;  
1399         end;         end;
1400         Stregkode := '';         Stregkode := '';
1401         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
1402         exit;         exit;
1403      end;      end;
1404  // 20150311: slut  
1405    
1406      if (Length(Stregkode) > 8) then      if (Length(Stregkode) > 8) then
1407      begin      begin
# Line 1597  begin Line 1456  begin
1456          or (Pakkescanningtype = '5') and (PanelValg5.Enabled = false)          or (Pakkescanningtype = '5') and (PanelValg5.Enabled = false)
1457          or (Pakkescanningtype = '6') and (PanelValg6.Enabled = false)  ) then          or (Pakkescanningtype = '6') and (PanelValg6.Enabled = false)  ) then
1458      begin   // Her skal komme en alarm og rød skærm      begin   // Her skal komme en alarm og rød skærm
1459         PlaySound(PWideChar(AlarmLyd));          VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
1460         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  
1461         exit;         exit;
1462      end;      end;
1463    
# Line 1626  begin Line 1473  begin
1473              end;              end;
1474            end            end
1475        // Retur kan ikke scannes med 'Automatisk valg'        // Retur kan ikke scannes med 'Automatisk valg'
1476  (*  
       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  
 *)  
1477        else if Pakketype = 'Direkte' then        else if Pakketype = 'Direkte' then
1478            begin            begin
1479              if Scanningtype <> '4' then              if Scanningtype <> '4' then
# Line 1661  begin Line 1491  begin
1491              end;              end;
1492            end            end
1493        // Retur kan ikke scannes med 'Automatisk valg'        // Retur kan ikke scannes med 'Automatisk valg'
1494  (*  
       else if Pakketype = 'PakkeshopRetur' then  
           begin  
             if Scanningtype <> '6' then  
             begin  
               Scanningtype := '6';  
               InitReturFraPakkeshop();  
             end;  
           end  
 *)  
1495        else        else
1496            begin   // Her skal komme en alarm og rød skærm            begin
1497               PlaySound(PWideChar(AlarmLyd));            // Her skal komme en alarm og rød skærm
1498               List1msg := 'Pakken kan ikke scannes med automatisk valg';              VisAlarmSkaerm( Stregkode + ' kan ikke vælges på dette scanningsted' );
1499               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  
1500               exit;               exit;
1501            end;            end;
1502        Stregkode := GemStregkode;        Stregkode := GemStregkode;
1503      end      end
1504      else if Automatiskvalg1.Checked and (PakkeshopText1.Caption = 'Stregkode') then      else if Automatiskvalg1.Checked and (PakkeshopText1.Caption = 'Stregkode') then
1505      begin      begin
1506        PlaySound(PWideChar(AlarmLyd));        VisAlarmSkaerm( 'Pakkenummer ikke gyldigt (for kort)' );
1507        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  
1508        exit;        exit;
1509      end;      end;
1510    
# Line 1714  begin Line 1512  begin
1512      begin      begin
1513        if ( (Pakkescanningtype <> Scanningtype) and (Scanningtype <> '2') and (Scanningtype <> '3') ) then        if ( (Pakkescanningtype <> Scanningtype) and (Scanningtype <> '2') and (Scanningtype <> '3') ) then
1514        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;  
1515    
1516  // 20150311: start          VisAlarmSkaerm( 'Pakke findes som pakketype: ' + Pakketype );
 (*  
     if StregKode = 'Nulstil' then  
     begin  
        PakkeshopNulstil.Click();  
        exit;  
     end;  
1517    
1518      if PakkeshopNulstil.Visible then          exit;
1519      begin        end;
        PlaySound(PWideChar(AlarmLyd));  
        List1msg := 'HUSK at trykke Nulstil før ny scanning...';  
        ListBox1.Items.Insert(0,List1Msg);  
        MainForm.Color := clRed;  
        KommentarST.Caption := List1msg;  
        exit;  
1520      end;      end;
1521    
     if StregKode = 'Lille pakke' then  
     begin  
        InitLillePakke();  
        exit;  
     end;  
   
     if StregKode = 'Stor pakke' then  
     begin  
        InitStorPakke();  
        exit;  
     end;  
   
     if StregKode = 'Indtast kundenummer' then  
     begin  
        if (CheckBox1.State = cbChecked) then  
        begin  
         CheckBox1.State := cbUnchecked;  
        end  
        else  
        begin  
         CheckBox1.State := cbChecked;  
        end;  
        Stregkode := '';  
        exit;  
     end;  
   
     if (Stregkode = 'Scan tjekkode') or (PakkeshopStregkode = 'Scan tjekkode') or (BoghandlerStregkode = 'Scan tjekkode') then  
     begin  
        if (CheckBox3.State = cbChecked) then  
        begin  
         CheckBox3.State := cbUnchecked;  
        end  
        else  
        begin  
         CheckBox3.State := cbChecked;  
        end;  
        Stregkode := '';  
        exit;  
     end;  
 *)  
 // 20150311: slut  
1522    
1523    
1524      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and Automatisktjekkodestyring1.Checked then      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and Automatisktjekkodestyring1.Checked then
1525      begin      begin
1526        CheckBox3.Checked := false;        chkScanTjekkode.Checked := false;
1527        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do
1528        begin        begin
1529          if (Stregkode=stregkoderMedTjekkodeArray[i]) then          if (Stregkode=stregkoderMedTjekkodeArray[i]) then
1530          begin          begin
1531              CheckBox3.Checked := true;              chkScanTjekkode.Checked := true;
1532              Scanogstjekkoden1.Checked := true;              Scanogstjekkoden1.Checked := true;
1533          end;          end;
1534        end;        end;
# Line 1812  begin Line 1540  begin
1540             BoghandlerStregkode := Stregkode;             BoghandlerStregkode := Stregkode;
1541             BoghandlerTjekkode := '';             BoghandlerTjekkode := '';
1542             PakkeshopText1.Caption := 'Stregkode';             PakkeshopText1.Caption := 'Stregkode';
1543             PakkeshopNulstil.Visible := false;             btnNulstil.Visible := false;
1544             Stregkode := '';             Stregkode := '';
1545             InitScreen();             InitScreen();
1546        end        end
# Line 1824  begin Line 1552  begin
1552             BoghandlerStregkode := Stregkode;             BoghandlerStregkode := Stregkode;
1553             BoghandlerTjekkode := '-1';             BoghandlerTjekkode := '-1';
1554             PakkeshopText1.Caption := 'Stregkode';             PakkeshopText1.Caption := 'Stregkode';
1555             PakkeshopNulstil.Visible := false;             btnNulstil.Visible := false;
1556             Stregkode := '';             Stregkode := '';
1557             InitScreen();             InitScreen();
1558        end        end
# Line 1836  begin Line 1564  begin
1564              PakkeshopStregkode := Stregkode;              PakkeshopStregkode := Stregkode;
1565              BoghandlerStregkode := Stregkode;              BoghandlerStregkode := Stregkode;
1566              PakkeshopText1.Caption := 'Tjekkode';              PakkeshopText1.Caption := 'Tjekkode';
1567  // 20150317: start  
1568              PlaySound(PWideChar(ScannetOkTilTjekkodeLyd));              PlaySound(PWideChar(ScannetOkTilTjekkodeLyd));
1569  // 20150317: slut  
1570             end             end
1571            else            else
1572             begin             begin
1573                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;  
1574             end;             end;
1575            Stregkode := '';            Stregkode := '';
1576            InitScreen();            InitScreen();
# Line 1861  begin Line 1583  begin
1583             BoghandlerTjekkode := Stregkode;             BoghandlerTjekkode := Stregkode;
1584             PakkeshopText1.Caption := 'Stregkode';             PakkeshopText1.Caption := 'Stregkode';
1585             if (PakkeshopLevering1.Checked) then             if (PakkeshopLevering1.Checked) then
1586                MainForm.Color := HexToTColor(FarvePakkeshoplevering);                MainForm.Color := TUtils.HexToTColor(FarvePakkeshoplevering);
1587             if (Pakkernormal1.Checked) then             if (Pakkernormal1.Checked) then
1588                MainForm.Color := HexToTColor(FarveNormal);                MainForm.Color := TUtils.HexToTColor(FarveNormal);
1589             PakkeshopNulstil.Visible := false;             btnNulstil.Visible := false;
1590           end           end
1591          else          else
1592           begin           begin
1593                if (PakkeshopLevering1.Checked) then                if (PakkeshopLevering1.Checked) then
1594                  List1msg := 'Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode;                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode);
1595                if (Pakkernormal1.Checked) then                if (Pakkernormal1.Checked) then
1596                  List1msg := 'Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode;                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode);
1597                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  
1598                StregKode := '';                StregKode := '';
1599                StregkodeST.Caption := StregKode;                StregkodeST.Caption := StregKode;
1600  // 20150323: slut  
1601                exit;                exit;
1602           end;           end;
1603          Stregkode := '';          Stregkode := '';
# Line 1903  begin Line 1618  begin
1618            // Hvis der var sql fejl i opdateringen skal dette fejlmeldes her            // Hvis der var sql fejl i opdateringen skal dette fejlmeldes her
1619            if Rutenummer = 'sql fejl' then            if Rutenummer = 'sql fejl' then
1620            begin   // Her skal komme en alarm og rød skærm            begin   // Her skal komme en alarm og rød skærm
1621               PlaySound(PWideChar(AlarmLyd));               VisAlarmSkaerm( 'SQL fejl: ' + Kommentar );
1622               //List1msg := 'SQL fejl: ' + Kommentar;  
              //ListBox1.Items.Insert(0,List1Msg);  
              MainForm.Color := clRed;  
              //KommentarST.Caption := List1msg;  
              PakkeshopNulstil.Visible := true;  
1623              exit;              exit;
1624            end;            end;
1625            if (Pakkernormal1.Checked or Budlevering1.Checked or PakkeshopLevering1.Checked) then            if (Pakkernormal1.Checked or Budlevering1.Checked or PakkeshopLevering1.Checked) then
# Line 1928  begin Line 1639  begin
1639              if (pakkeErScannet > 0) or (pakkeForkertSted > 0) or (tjekkodemangler > 0) then              if (pakkeErScannet > 0) or (pakkeForkertSted > 0) or (tjekkodemangler > 0) then
1640              begin              begin
1641                PlaySound(PWideChar(AlarmLyd));                PlaySound(PWideChar(AlarmLyd));
1642                PakkeshopNulstil.Visible := true;                btnNulstil.Visible := true;
1643                MainForm.Color := clRed;                MainForm.Color := clRed;
1644              end;              end;
1645           end;           end;
1646            if ( Pakkernormal1.Checked and (pakkeErScannet = 0) and (pakkeForkertSted = 0) and (tjekkodemangler = 0) and (RuteNummerST.Caption <> 'Ukendt') ) or (Copy(Kommentar,1,2) = 'Ok') then            if ( Pakkernormal1.Checked and (pakkeErScannet = 0) and (pakkeForkertSted = 0) and (tjekkodemangler = 0) and (RuteNummerST.Caption <> 'Ukendt') ) or (Copy(Kommentar,1,2) = 'Ok') then
1647            begin            begin
1648              MainForm.Color := HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1649              if Storepakker1.Checked then              if Storepakker1.Checked then
1650              begin              begin
1651                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(ScannetOkStorLyd));
# Line 1943  begin Line 1654  begin
1654              begin              begin
1655                PlaySound(PWideChar(ScannetOkLyd));                PlaySound(PWideChar(ScannetOkLyd));
1656              end;              end;
1657              PakkeshopNulstil.Visible := false;              btnNulstil.Visible := false;
1658            end            end
1659            else if (Returpakkerfradao1.Checked or Returpakkerfraboghandler1.Checked) then            else if (Returpakkerfradao1.Checked or Returpakkerfraboghandler1.Checked) then
1660            begin            begin
1661              MainForm.Color := HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1662              if Storepakker1.Checked then              if Storepakker1.Checked then
1663              begin              begin
1664                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(ScannetOkStorLyd));
# Line 1956  begin Line 1667  begin
1667              begin              begin
1668                PlaySound(PWideChar(ScannetOkLyd));                PlaySound(PWideChar(ScannetOkLyd));
1669              end;              end;
1670              PakkeshopNulstil.Visible := false;              btnNulstil.Visible := false;
1671            end            end
1672            else if Copy(Kommentar,1,8) = 'OPRETTET' then            else if Copy(Kommentar,1,8) = 'OPRETTET' then
1673            begin            begin
1674              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;  
1675            end            end
1676            else if Kommentar = StregKode then    // budlevering  til 'Ukendt tur'            else if Kommentar = StregKode then    // budlevering  til 'Ukendt tur'
1677            begin            begin
1678            end            end
1679            else            else
1680            begin            begin
1681              MainForm.Color := clRed;              VisAlarmSkaerm('');
             PlaySound(PWideChar(AlarmLyd));  
             PakkeshopNulstil.Visible := true;  
1682            end;            end;
1683           if not PakkeshopNulstil.Visible then           if not btnNulstil.Visible then
1684            begin            begin
1685  // 20150310: start  
 //            SletStregkodelinieFraListboks2(StregKode);  
 // 20150310: slut  
1686              If (Budlevering1.Checked) then              If (Budlevering1.Checked) then
1687              begin              begin
1688                if Storepakker1.Checked then                if Storepakker1.Checked then
# Line 1993  begin Line 1696  begin
1696                InitLillePakke();                InitLillePakke();
1697              end;              end;
1698            end;            end;
1699  // 20150310: start  
1700            SletStregkodelinieFraListboks2(StregKode);            SletStregkodelinieFraListboks2(StregKode);
1701  // 20150310: slut  
1702            PakkeshopStregkode := '';            PakkeshopStregkode := '';
1703            PakkeshopTjekkode := '';            PakkeshopTjekkode := '';
1704            BoghandlerStregkode := '';            BoghandlerStregkode := '';
# Line 2026  begin Line 1729  begin
1729    
1730    Key := #0;    Key := #0;
1731    
1732  end;  end; //End of OnKeyPress
1733    
1734  procedure TMainForm.SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);  procedure TMainForm.SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);
1735  const  const
# Line 2063  end; Line 1766  end;
1766    
1767  procedure TMainForm.SletStregkodelinieFraListboks2(StregKode : String);  procedure TMainForm.SletStregkodelinieFraListboks2(StregKode : String);
1768  var  var
 // 20150309: start  
 //  i:integer;  
1769    i : Integer;    i : Integer;
1770    wrkAntal : String;    wrkAntal : String;
1771    wrkAntalIdag, wrkAntalSenere : Integer;    wrkAntalIdag, wrkAntalSenere : Integer;
1772  // 20150309: slut  
1773    
1774  begin  begin
1775      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 1777  begin
1777        for i := ListBox2.items.count-1 downto 0 do        for i := ListBox2.items.count-1 downto 0 do
1778          if pos(StregKode,ListBox2.items[i]) <> 0 then          if pos(StregKode,ListBox2.items[i]) <> 0 then
1779          begin          begin
1780  // 20150309: start  
1781            // Ajourføring af tæller for manglende pakker (scanninger)            // Ajourføring af tæller for manglende pakker (scanninger)
1782            wrkAntal := StaticTextManglendePakker.Caption;            wrkAntal := StaticTextManglendePakker.Caption;
1783            if (pos('/', wrkAntal) > 0) then  // både pakker idag og senere            if (pos('/', wrkAntal) > 0) then  // både pakker idag og senere
1784            begin            begin
1785              wrkAntal := wrkAntal + '/';   // tilføjer '/' sidst i feltet af hensyn til split funktionen              wrkAntal := wrkAntal + '/';   // tilføjer '/' sidst i feltet af hensyn til split funktionen
1786              wrkAntalIdag := StrToInt(split(wrkAntal, '/', 2));              wrkAntalIdag := StrToInt( TUtils.split(wrkAntal, '/', 2));
1787  //            ShowMessage(SPLIT('data/another/yet/again/more/','/',3));  //            ShowMessage(SPLIT('data/another/yet/again/more/','/',3));
1788  //            ShowMessage(SPLIT('data/another/','/',3));  //            ShowMessage(SPLIT('data/another/','/',3));
1789  //            ShowMessage(SPLIT('data/another','/',3));  //            ShowMessage(SPLIT('data/another','/',3));
1790              wrkAntalSenere := StrToInt(split(wrkAntal, '/', 3));              wrkAntalSenere := StrToInt( TUtils.split(wrkAntal, '/', 3));
1791            end            end
1792            else     // kun idag            else     // kun idag
1793            begin            begin
# Line 2112  begin Line 1813  begin
1813            begin            begin
1814              StaticTextManglendePakker.Caption := IntToStr(wrkAntalIdag);              StaticTextManglendePakker.Caption := IntToStr(wrkAntalIdag);
1815            end;            end;
 // 20150309: slut  
1816    
 // 20150310: start  
1817            if (Scanningtype = '1') then            if (Scanningtype = '1') then
1818            begin            begin
1819              PanelManglendePakker1.Caption := IntToStr(wrkAntalIdag + wrkAntalSenere);              PanelManglendePakker1.Caption := IntToStr(wrkAntalIdag + wrkAntalSenere);
# Line 2219  begin Line 1918  begin
1918  end;  end;
1919    
1920  procedure TMainForm.InitBladhus();  procedure TMainForm.InitBladhus();
 var  
   LogFilnavn : string;  
1921    
1922  begin  begin
1923    Altidprintepakkelabel1.Enabled := false;    Altidprintepakkelabel1.Enabled := false;
# Line 2283  begin Line 1980  begin
1980      01 :      01 :
1981            begin;      // NS            begin;      // NS
1982              Testprinter1.Visible := true;              Testprinter1.Visible := true;
1983              DownloadButton01.Enabled := true;              BtnDownloadKontrolfil.Enabled := true;
1984              OpdaterListenButton01.Enabled := true;              OpdaterListenButton01.Enabled := true;
1985              IdFTP1.Passive := true;              IdFTP1.Passive := true;
1986              IdFTP1.PassiveUseControlHost := true;              IdFTP1.PassiveUseControlHost := true;
# Line 2297  begin Line 1994  begin
1994              Testprinter1.Visible := true;              Testprinter1.Visible := true;
1995              Smpakker1.Enabled := true;              Smpakker1.Enabled := true;
1996              Storepakker1.Enabled := true;              Storepakker1.Enabled := true;
1997              RadioButton1.Enabled := true;              radioStorPakke.Enabled := true;
1998              RadioButton2.Enabled := true;              radioLillePakke.Enabled := true;
1999              DownloadButton01.Enabled := false;     // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her
2000              OpdaterListenButton01.Enabled := true;              OpdaterListenButton01.Enabled := true;
2001              IdFTP1.Passive := true;              IdFTP1.Passive := true;
2002              IdFTP1.PassiveUseControlHost := true;              IdFTP1.PassiveUseControlHost := true;
# Line 2316  begin Line 2013  begin
2013              begin              begin
2014                DownloadButton03.Visible := false;                DownloadButton03.Visible := false;
2015              end;              end;
2016              DownloadButton01.Enabled := true;              BtnDownloadKontrolfil.Enabled := true;
2017              OpdaterListenButton01.Enabled := true;              OpdaterListenButton01.Enabled := true;
2018              IdFTP1.Passive := true;              IdFTP1.Passive := true;
2019              IdFTP1.PassiveUseControlHost := true;              IdFTP1.PassiveUseControlHost := true;
# Line 2335  begin Line 2032  begin
2032              Testprinter1.Visible := true;              Testprinter1.Visible := true;
2033              Smpakker1.Enabled := true;              Smpakker1.Enabled := true;
2034              Storepakker1.Enabled := true;              Storepakker1.Enabled := true;
2035              RadioButton1.Enabled := true;              radioStorPakke.Enabled := true;
2036              RadioButton2.Enabled := true;              radioLillePakke.Enabled := true;
2037              DownloadButton01.Enabled := false;    // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her
2038              OpdaterListenButton01.Enabled := true;              OpdaterListenButton01.Enabled := true;
2039              IdFTP1.Passive := true;              IdFTP1.Passive := true;
2040              IdFTP1.PassiveUseControlHost := true;              IdFTP1.PassiveUseControlHost := true;
# Line 2354  var Line 2051  var
2051    URLStr : String;    URLStr : String;
2052    pakkestorrelse : String;    pakkestorrelse : String;
2053    PrintNyLabelInteger : Integer;    PrintNyLabelInteger : Integer;
2054    
2055      PakkeshopLabel: TPakkeshopLabel;
2056  begin  begin
2057    if RadioButton1.Checked then    if radioStorPakke.Checked then
2058    begin    begin
2059      pakkestorrelse := 'Stor';      pakkestorrelse := 'Stor';
2060    end;    end;
2061    if RadioButton2.Checked then    if radioLillePakke.Checked then
2062    begin    begin
2063      pakkestorrelse := 'Lille';      pakkestorrelse := 'Lille';
2064    end;    end;
2065    
2066    
2067    if Pakkernormal1.Checked then    if Pakkernormal1.Checked then
2068    begin    begin
2069       if (BoghandlerTjekkode = '') then       if (BoghandlerTjekkode = '') then
# Line 2391  begin Line 2092  begin
2092    begin    begin
2093       URLStr := Format(UrlReturPakkeshop,[Sted, PakkeNr]);       URLStr := Format(UrlReturPakkeshop,[Sted, PakkeNr]);
2094    end    end
2095      else if menuIndlevering.Checked then
2096      begin
2097        URLStr := Format(UrlIndleveringsPakke,[Sted, PakkeNr]);
2098      end
2099    else    else
2100    begin    begin
2101      exit;      exit;
# Line 2425  begin Line 2130  begin
2130        BoghandlerNavn := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNr').Text;        BoghandlerNavn := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNr').Text;
2131        BoghandlerNavn := BoghandlerNavn + ' ' + XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;        BoghandlerNavn := BoghandlerNavn + ' ' + XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;
2132        PrintNyLabel := False;        PrintNyLabel := False;
2133  // 20150310: start  
2134        if Pakkeshoplevering1.Checked then        if Pakkeshoplevering1.Checked then
2135        begin        begin
 // 20150310: slut  
2136          try          try
2137            PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text);            PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text);
2138          except on e:exception do          except on e:exception do
# Line 2438  begin Line 2142  begin
2142          begin          begin
2143            PrintNyLabel := True;            PrintNyLabel := True;
2144          end;          end;
 // 20150310: start  
2145        end;        end;
 // 20150310: slut  
2146       end       end
2147        else if menuIndlevering.Checked then
2148        begin
2149    
2150    
2151    
2152    
2153         Kommentar := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Stregkodematch').Text;
2154         if (Kommentar = 'Ok') then
2155         begin
2156           PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label
2157           PakkeshopLabel := TPakkeshopLabel.Create( XMLDocument1 ); //Opret struct og parse xml doc
2158           RuteNummer := PakkeshopLabel.Koreliste;
2159    
2160           PrintPakkeshopLabel( PakkeshopLabel );
2161    
2162         end;
2163    
2164    
2165        end
2166      else      else
2167       begin       begin
2168        RuteNummer := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('TurId').Text;        RuteNummer := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('TurId').Text;
# Line 2474  begin Line 2195  begin
2195          PrintNyLabel := True;          PrintNyLabel := True;
2196        end;        end;
2197      end;      end;
2198    
2199    
2200      if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then      if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then
2201      begin      begin
2202        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then
# Line 2514  begin Line 2237  begin
2237    if Pakkeshoplevering1.Checked then    if Pakkeshoplevering1.Checked then
2238      List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; ';      List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; ';
2239    List1Pakkestorrelse := '';    List1Pakkestorrelse := '';
2240    if RadioButton1.Checked then    if radioStorPakke.Checked then
2241    begin    begin
2242      List1Pakkestorrelse := 'Stor pakke';      List1Pakkestorrelse := 'Stor pakke';
2243    end;    end;
2244    if RadioButton2.Checked then    if radioLillePakke.Checked then
2245    begin    begin
2246      List1Pakkestorrelse := 'Lille pakke';      List1Pakkestorrelse := 'Lille pakke';
2247    end;    end;
# Line 2540  begin Line 2263  begin
2263    if Budlevering1.Checked then    if Budlevering1.Checked then
2264    begin    begin
2265       List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn;       List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn;
2266        if (RadioButton1.Checked) then        if (radioStorPakke.Checked) then
2267        begin        begin
2268          List1msg := List1msg + '; Stor pakke';          List1msg := List1msg + '; Stor pakke';
2269        end;        end;
2270        if (RadioButton2.Checked) then        if (radioLillePakke.Checked) then
2271        begin        begin
2272          List1msg := List1msg + '; Lille pakke';          List1msg := List1msg + '; Lille pakke';
2273        end;        end;
# Line 2588  pakkeForkertSted : Integer; Line 2311  pakkeForkertSted : Integer;
2311    nytRuteNummer, nyFarve : String;    nytRuteNummer, nyFarve : String;
2312  begin  begin
2313    if Budlevering1.Checked then    if Budlevering1.Checked then
2314       RuteNummerST.Color := HexToTColor(Farve);       RuteNummerST.Color := TUtils.HexToTColor(Farve);
2315    
2316    pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);    pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);
2317    if pakkeErScannet = 0 then    if pakkeErScannet = 0 then
# Line 2601  begin Line 2324  begin
2324    end;    end;
2325    pakkeForkertSted := pos('burde være hos', Kommentar);    pakkeForkertSted := pos('burde være hos', Kommentar);
2326    
2327  // 20150306: start  
 //  if Sprgefterboghandlernummer1.Enabled and CheckBox1.Checked and (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) or (pakkeForkertSted > 0) then  
2328    if Sprgefterboghandlernummer1.Enabled and chkSporgEfterKunde.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
2329  // 20150306: slut  
2330    begin    begin
2331        if (RuteNummer = 'Ukendt') then        if (RuteNummer = 'Ukendt') then
2332        begin        begin
# Line 2631  begin Line 2353  begin
2353       if (BoghandlerNavn = 'Ukendt pakke') then       if (BoghandlerNavn = 'Ukendt pakke') then
2354       begin       begin
2355          PrintNyLabel := false;          PrintNyLabel := false;
2356  // 20150306: start  
 //        PlaySound(PWideChar(AlarmLyd));  
2357          PlaySound(PWideChar(AlarmLyd));          PlaySound(PWideChar(AlarmLyd));
2358          MainForm.Color := clRed;          MainForm.Color := clRed;
2359          PakkeshopNulstil.Visible := true;          btnNulstil.Visible := true;
2360  // 20150306: slut  
2361       end       end
2362       else       else
2363       begin       begin
# Line 2646  begin Line 2367  begin
2367            PrintNyLabel := true;            PrintNyLabel := true;
2368            RuteNummerST.Caption := RuteNummer+' -> ny rute: '+nytRuteNummer;            RuteNummerST.Caption := RuteNummer+' -> ny rute: '+nytRuteNummer;
2369            nyFarve := Farve;            nyFarve := Farve;
2370            RuteNummerST.Color := HexToTColor(nyFarve);            RuteNummerST.Color := TUtils.HexToTColor(nyFarve);
2371            List1msg := TimeToStr(now) + '; ' + RuteNummer+' -> ny rute: '+nytRuteNummer;            List1msg := TimeToStr(now) + '; ' + RuteNummer+' -> ny rute: '+nytRuteNummer;
2372            RuteNummer := nytRuteNummer;            RuteNummer := nytRuteNummer;
2373            ListBox1.Items.Insert(0,List1Msg);            ListBox1.Items.Insert(0,List1Msg);
2374            logTekst := RightStr(List1Msg, Length(List1Msg)-10);            logTekst := RightStr(List1Msg, Length(List1Msg)-10);
2375            SkrivScanningLogFil(logTekst);            SkrivScanningLogFil(logTekst);
2376  // 20150213: start  
2377            if (PrinterNavn = 'Ingen') then            if (PrinterNavn = 'Ingen') then
2378            begin            begin
2379               PrintNyLabel := false;               PrintNyLabel := false;
2380            end;            end;
2381  // 20150313: slut  
 // 20150306: start  
 //          PlaySound(PWideChar(AlarmLyd));  
2382            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
2383            begin            begin
2384              PlaySound(PWideChar(AlarmLyd));              PlaySound(PWideChar(AlarmLyd));
2385              MainForm.Color := clRed;              MainForm.Color := clRed;
2386              PakkeshopNulstil.Visible := true;              btnNulstil.Visible := true;
2387            end;            end;
2388  // 20150306: slut  
2389         end;         end;
2390         kontrolKoreliste := TjekKoreliste(RuteNummer, Koreliste);         kontrolKoreliste := TjekKoreliste(RuteNummer, Koreliste);
2391         if (kontrolKoreliste <> RuteNummer) then         if (kontrolKoreliste <> RuteNummer) then
# Line 2685  begin Line 2404  begin
2404            ListBox1.Items.Insert(0,List1Msg);            ListBox1.Items.Insert(0,List1Msg);
2405            logTekst := RightStr(List1Msg, Length(List1Msg)-10);            logTekst := RightStr(List1Msg, Length(List1Msg)-10);
2406            SkrivScanningLogFil(logTekst);            SkrivScanningLogFil(logTekst);
2407  // 20150306: start  
 //          PlaySound(PWideChar(AlarmLyd));  
2408            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
2409            begin            begin
2410              PlaySound(PWideChar(AlarmLyd));              PlaySound(PWideChar(AlarmLyd));
2411              MainForm.Color := clRed;              MainForm.Color := clRed;
2412              PakkeshopNulstil.Visible := true;              btnNulstil.Visible := true;
2413            end;            end;
2414  // 20150306: slut  
 // 20150306: start  
 //       end  
 //       else  
 //       begin  
2415         end;         end;
2416       end;       end;
2417    
# Line 2719  begin Line 2433  begin
2433                end;                end;
2434              end;              end;
2435        01 :  begin;        01 :  begin;
2436               if PrintNyLabel and ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then               if PrintNyLabel or ( (kontrolKoreliste <> '') and (kontrolKoreliste <> RuteNummer) ) or (RuteNummer = 'Rutenr') then
2437                    // 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
2438                    // 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')
2439                begin                begin
# Line 2733  begin Line 2447  begin
2447                end;                end;
2448              end;              end;
2449        03 :  begin;        03 :  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 2832  begin Line 2546  begin
2546          Canvas.TextOut(XPosSorteringsfelt2,YPosSorteringsfelt2, Leveringssted);   // sorteringsoplysning 2          Canvas.TextOut(XPosSorteringsfelt2,YPosSorteringsfelt2, Leveringssted);   // sorteringsoplysning 2
2547        end;        end;
2548        Canvas.Font.Size := FontSizeKommentar;        Canvas.Font.Size := FontSizeKommentar;
2549    
2550        Kommentar := StringReplace(Kommentar, #$A, ' - ', [rfReplaceAll, rfIgnoreCase]);        Kommentar := StringReplace(Kommentar, #$A, ' - ', [rfReplaceAll, rfIgnoreCase]);
 // 20150304: start  
2551        Kommentar := StringReplace(Kommentar, 'PAKKE ER SCANNET', '', [rfReplaceAll, rfIgnoreCase]);        Kommentar := StringReplace(Kommentar, 'PAKKE ER SCANNET', '', [rfReplaceAll, rfIgnoreCase]);
2552  // 20150304: slut  
2553        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)
2554        if SmsKode <> '' then        if SmsKode <> '' then
2555        begin        begin
# Line 2849  begin Line 2563  begin
2563  end;  end;
2564    
2565    
2566  procedure TMainForm.RadioButton1Click(Sender: TObject);  procedure TMainForm.radioStorPakkeClick(Sender: TObject);
2567  begin  begin
2568      Storepakker1.Checked := true;      Storepakker1.Checked := true;
2569      RadioButton1.Checked := true;      radioStorPakke.Checked := true;
2570  end;  end;
2571    
2572  procedure TMainForm.RadioButton2Click(Sender: TObject);  procedure TMainForm.radioLillePakkeClick(Sender: TObject);
2573  begin  begin
2574      Smpakker1.Checked := true;      Smpakker1.Checked := true;
2575      RadioButton2.Checked := true;      radioLillePakke.Checked := true;
2576  end;  end;
2577    
2578    
# Line 2888  begin Line 2602  begin
2602    
2603  end;  end;
2604    
2605  procedure TMainForm.CheckBox3Click(Sender: TObject);  procedure TMainForm.chkScanTjekkodeClick(Sender: TObject);
2606  begin  begin
2607    if CheckBox3.Checked then    if chkScanTjekkode.Checked then
2608    begin    begin
2609       Scanogstjekkoden1.Checked := true;       Scanogstjekkoden1.Checked := true;
2610    end    end
# Line 2912  begin Line 2626  begin
2626      Automatiskvalg1.Checked := false;      Automatiskvalg1.Checked := false;
2627      PanelValgA.Color := clBtnFace;      PanelValgA.Color := clBtnFace;
2628      PanelValgA.Font.Color := clWindowText;      PanelValgA.Font.Color := clWindowText;
2629  // 20150317: start  
2630      if (SpecialVersionSted = '01')      if (SpecialVersionSted = '01')
2631      or (SpecialVersionSted = '02')        or (SpecialVersionSted = '02')
2632      or (SpecialVersionSted = '03')        or (SpecialVersionSted = '03')
2633      or (SpecialVersionSted = '04') then        or (SpecialVersionSted = '04') then
2634      begin      begin
2635        // 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)
2636        PanelValgA.Enabled := false;        PanelValgA.Enabled := false;
# Line 3195  begin Line 2909  begin
2909            end;            end;
2910          end;          end;
2911    
2912           // Tjekker UrlIndleveringsPakke og UrlIndleveringsPakkeManglendeScanninger
2913            if PanelValg7.Enabled = true then
2914            begin
2915              if CheckUrl(UrlIndleveringsPakke) then
2916              begin
2917                logTekst := 'UrlIndleveringsPakke accepteret: ' + UrlIndleveringsPakke;
2918                SkrivScanningLogFil(logTekst);
2919              end
2920              else
2921              begin
2922                inc(urlFejl);   // Optæller antal fejl
2923                logTekst := 'UrlIndleveringsPakke svarer ikke: ' + UrlIndleveringsPakke;
2924                ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
2925                if TjekUrls = '1' then
2926                begin
2927                  logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
2928                end;
2929                SkrivScanningLogFil(logTekst);
2930                if TjekUrls = '1' then
2931                begin
2932                  ShowMessage(logTekst);
2933                  UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
2934                  Application.Terminate;
2935                  exit;
2936                end;
2937              end;
2938    
2939              if CheckUrl(UrlIndleveringsPakkeManglendeScanninger) then
2940              begin
2941                logTekst := 'UrlIndleveringsPakkeManglendeScanninger accepteret: ' + UrlIndleveringsPakkeManglendeScanninger;
2942                SkrivScanningLogFil(logTekst);
2943              end
2944              else
2945              begin
2946                inc(urlFejl);   // Optæller antal fejl
2947                logTekst := 'UrlIndleveringsPakkeManglendeScanninger svarer ikke: ' + UrlIndleveringsPakkeManglendeScanninger;
2948                ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
2949                if TjekUrls = '1' then
2950                begin
2951                  logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
2952                end;
2953                SkrivScanningLogFil(logTekst);
2954                if TjekUrls = '1' then
2955                begin
2956                  ShowMessage(logTekst);
2957                  UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
2958                  Application.Terminate;
2959                  exit;
2960                end;
2961              end;
2962            end;
2963    
2964          // Tjekker UrlEKLoverforsel          // Tjekker UrlEKLoverforsel
2965          if PanelValg1.Enabled = true then          if PanelValg1.Enabled = true then
2966          begin          begin
# Line 3223  begin Line 2989  begin
2989            end;            end;
2990          end;          end;
2991    
2992  // 20150330: start  
2993          // Tjekker UrlEKLoverforselPakkeshop          // Tjekker UrlEKLoverforselPakkeshop
2994          if PanelValg5.Enabled = true then          if PanelValg5.Enabled = true then
2995          begin          begin
# Line 3251  begin Line 3017  begin
3017              end;              end;
3018            end;            end;
3019          end;          end;
3020  // 20150330: slut  
3021    
3022          // Tjekker UrlFindPakketype          // Tjekker UrlFindPakketype
3023          if CheckUrl(UrlFindPakketype) then          if CheckUrl(UrlFindPakketype) then
# Line 3342  begin Line 3108  begin
3108      repeat      repeat
3109        if (SR.Attr <> faDirectory) then        if (SR.Attr <> faDirectory) then
3110        begin        begin
3111    
3112          dt := fileDateToDateTime(SR.Time);  // finder filens timestamp for seneste ændring          dt := fileDateToDateTime(SR.Time);  // finder filens timestamp for seneste ændring
3113          CreationTime := SR.FindData.ftCreationTime;  // finder filens timestamp for oprettelse          CreationTime := SR.FindData.ftCreationTime;  // finder filens timestamp for oprettelse
3114          dtCreation := FileTime2DateTime(CreationTime);   // finder filens timestamp for oprettelse          dtCreation := FileTime2DateTime(CreationTime);   // finder filens timestamp for oprettelse
# Line 3381  begin Line 3148  begin
3148    end;    end;
3149  end;  end;
3150    
3151  procedure TMainForm.PakkeshopNulstilClick(Sender: TObject);  procedure TMainForm.btnNulstilClick(Sender: TObject);
3152  begin  begin
3153    PakkeshopStregkode := '';    PakkeshopStregkode := '';
3154    PakkeshopTjekkode := '';    PakkeshopTjekkode := '';
3155    PakkeshopNulstil.Visible := false;    btnNulstil.Visible := false;
3156    PakkeshopText1.Caption := 'Stregkode';    PakkeshopText1.Caption := 'Stregkode';
3157    BoghandlerStregkode := '';    BoghandlerStregkode := '';
3158    BoghandlerTjekkode := '';    BoghandlerTjekkode := '';
# Line 3403  begin Line 3170  begin
3170  //  MainForm.Color := HexToTColor(Farve);  //  MainForm.Color := HexToTColor(Farve);
3171    if Farve <> '' then    if Farve <> '' then
3172    begin    begin
3173       MainForm.Color := HexToTColor(Farve);       MainForm.Color := TUtils.HexToTColor(Farve);
3174  // 20150312: start  // 20150312: start
3175  (*  (*
3176    end    end
# Line 3477  end; Line 3244  end;
3244    
3245  procedure TMainForm.PanelValgAClick(Sender: TObject);  procedure TMainForm.PanelValgAClick(Sender: TObject);
3246  begin  begin
 // 20150311: start  
 (*  
   if PanelValgA.Color = clBtnFace then  
   begin  
      AutomatiskValg1.Checked := true;  
      PanelValgA.Color := clGreen;  
      PanelValgA.Font.Color := clWhite;  
   end  
   else  
   begin  
      AutomatiskValg1.Checked := false;  
      PanelValgA.Color := clBtnFace;  
      PanelValgA.Font.Color := clWindowText;  
   end;  
 *)  
3247  // Skal ikke toggle men bare sætte funktionen on  // Skal ikke toggle men bare sætte funktionen on
3248  // Fravælges ved at vælge en scanningstype  // Fravælges ved at vælge en scanningstype
3249       AutomatiskValg1.Checked := true;    AutomatiskValg1.Checked := true;
3250       PanelValgA.Color := clGreen;    PanelValgA.Color := clGreen;
3251       PanelValgA.Font.Color := clWhite;    PanelValgA.Font.Color := clWhite;
3252  // 20150311: slut  
3253    
3254    
3255  end;  end;
3256    
3257  procedure TMainForm.Pakkernormal1Click(Sender: TObject);  procedure TMainForm.Pakkernormal1Click(Sender: TObject);
# Line 3514  var Line 3268  var
3268    BoghandlerNavn : String;    BoghandlerNavn : String;
3269    Koreliste : String;    Koreliste : String;
3270    Falsk : Boolean;    Falsk : Boolean;
   Sand : Boolean;  
3271    SmsKode : String;    SmsKode : String;
3272    DBKbane : String;    DBKbane : String;
3273    Leveringssted : String;    Leveringssted : String;
# Line 3536  begin Line 3289  begin
3289      // Her kommer en alarm og rød skærm      // Her kommer en alarm og rød skærm
3290      PlaySound(PWideChar(AlarmLyd));      PlaySound(PWideChar(AlarmLyd));
3291      MainForm.Color := clRed;      MainForm.Color := clRed;
3292      PakkeshopNulstil.Visible := true;      btnNulstil.Visible := true;
3293    end    end
3294    else    else
3295    begin    begin
3296      Falsk := False;      Falsk := False;
3297      Sand := True;  
3298      HentPakkeInfoFraServer(Sted,'111111111100000', RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk, '');      HentPakkeInfoFraServer(Sted,'111111111100000', RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk, '');
3299      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');
3300      SmsKode := '999999';      SmsKode := '999999';
# Line 3561  var Line 3314  var
3314    BoghandlerNavn : String;    BoghandlerNavn : String;
3315    Koreliste : String;    Koreliste : String;
3316    Falsk : Boolean;    Falsk : Boolean;
   Sand : Boolean;  
3317    SmsKode : String;    SmsKode : String;
3318    DBKbane : String;    DBKbane : String;
3319    Leveringssted : String;    Leveringssted : String;
# Line 3570  begin Line 3322  begin
3322    Kommentar := '***** Kommentar *****';    Kommentar := '***** Kommentar *****';
3323    BoghandlerNavn := 'Modtagernavn';    BoghandlerNavn := 'Modtagernavn';
3324    Falsk := False;    Falsk := False;
3325    Sand := True;  
3326    
3327    if (Printer.Printers.Count = 0) then    if (Printer.Printers.Count = 0) then
3328    begin    begin
# Line 3605  begin Line 3357  begin
3357    end;    end;
3358  end;  end;
3359    
3360  {  
  VERY fast split function  
  this function returns part of a string based on  
  constant defineable delimiters, such as ";". So  
  SPLIT('this is a test ',' ',3) = 'is' or  
  SPLIT('data;another;yet;again;more;',';',4) = 'yet'  
   
  Split function shifts index integer by two to  
  be compatible with commonly used PD split function  
  gpl 2004 / Juhani Suhonen  
 }  
 function TMainForm.split(input: string; schar: Char; s: Integer): string;  
 var  
   c: array of Integer;  
   b, t: Integer;  
 begin  
   Dec(s, 2);  // for compatibility with very old & slow split function  
   t := 0;     // variable T needs to be initialized...  
   setlength(c, Length(input));  
   for b := 0 to pred(High(c)) do  
   begin  
     c[b + 1] := posex(schar, input, succ(c[b]));  
     // BREAK LOOP if posex looped (position before previous)  
     // or wanted position reached..  
     if (c[b + 1] < c[b]) or (s < t) then break  
     else  
       Inc(t);  
   end;  
   Result := Copy(input, succ(c[s]), pred(c[s + 1] - c[s]));  
 end;  
3361    
3362  procedure TMainForm.Om1Click(Sender: TObject);  procedure TMainForm.Om1Click(Sender: TObject);
3363  const  const
# Line 3643  var Line 3366  var
3366   tekst, filversion : String;   tekst, filversion : String;
3367  begin  begin
3368    
3369    filversion := Sto_GetFmtFileVersion('','');    filversion := Sto_GetFmtFileVersion('');
3370    tekst := 'Program til indscanning af pakker'+crlf+'Version '+filversion+crlf+crlf+'Udviklet af it afdelingen, DAO';    tekst := 'Program til indscanning af pakker'+crlf+'Version '+filversion+crlf+crlf+'Udviklet af it afdelingen, DAO';
3371    
3372    tekst := tekst+crlf+crlf;    tekst := tekst+crlf+crlf;
# Line 3665  begin Line 3388  begin
3388          end          end
3389          else          else
3390          begin          begin
3391            tekst := tekst+crlf+crlf+'Speciel version til: '+split(Titel, ':', 2)+' ('+Sted+')';            tekst := tekst+crlf+crlf+'Speciel version til: ' + TUtils.split(Titel, ':', 2) + ' ('+Sted+')';
3392          end;          end;
3393      end      end
3394      else      else
3395      begin      begin
3396        tekst := tekst+crlf+crlf+'Speciel version til: '+split(Titel, ':', 2)+' ('+SpecialVersionSted+')';        tekst := tekst+crlf+crlf+'Speciel version til: ' + TUtils.split(Titel, ':', 2) + ' ('+SpecialVersionSted+')';
3397      end;      end;
3398    end;    end;
3399    
# Line 3738  begin Line 3461  begin
3461    
3462    if FileExists(fileName) then    if FileExists(fileName) then
3463    begin    begin
3464      if AdobeReaderExists then      if TUtils.AdobeReaderExists then
3465      begin      begin
3466        //ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL);        //ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL);
3467        ShellExecute(Handle,'open',PChar(fileName), nil, nil, SW_SHOWNORMAL);        ShellExecute(Handle,'open',PChar(fileName), nil, nil, SW_SHOWNORMAL);
# Line 3762  begin Line 3485  begin
3485    
3486    if FileExists(fileName) then    if FileExists(fileName) then
3487    begin    begin
3488      if AdobeReaderExists then      if TUtils.AdobeReaderExists then
3489      begin      begin
3490        //ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL);        //ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL);
3491        ShellExecute(Handle,'open',PChar(fileName), nil, nil, SW_SHOWNORMAL);        ShellExecute(Handle,'open',PChar(fileName), nil, nil, SW_SHOWNORMAL);
# Line 3778  begin Line 3501  begin
3501    end;    end;
3502  end;  end;
3503    
3504    procedure TMainForm.menuIndleveringClick(Sender: TObject);
3505    begin
3506      Scanningtype := '7';
3507      NulstilAutomatiskValg();
3508      InitIndleveringskode();
3509    end;
3510    
3511  procedure TMainForm.Sprgefterboghandlernummer1Click(Sender: TObject);  procedure TMainForm.Sprgefterboghandlernummer1Click(Sender: TObject);
3512  begin  begin
3513    
# Line 3810  end; Line 3540  end;
3540  procedure TMainForm.InitNatxpresslevering();  procedure TMainForm.InitNatxpresslevering();
3541  begin  begin
3542        AutomatiskTjekkodeStyring1.Enabled := true;        AutomatiskTjekkodeStyring1.Enabled := true;
3543        PakkeshopNulstil.Visible := false;        btnNulstil.Visible := false;
3544        Pakkernormal1.Checked := true;        Pakkernormal1.Checked := true;
3545        InitForm(FarveNormal,TitelNormal,UrlNormal);        InitForm(FarveNormal,TitelNormal,UrlNormal);
3546        PanelValg1.Color := clGreen;        PanelValg1.Color := clGreen;
# Line 3825  begin Line 3555  begin
3555        Sprgefterboghandlernummer1.Enabled := true;        Sprgefterboghandlernummer1.Enabled := true;
3556        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3557        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
3558        RadioButton1.Enabled := false;        radioStorPakke.Enabled := false;
3559        RadioButton2.Enabled := false;        radioLillePakke.Enabled := false;
3560        ListBox1.Visible := true;        ListBox1.Visible := true;
3561        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3562        EKLoverforsel.Enabled := true;        EKLoverforsel.Enabled := true;
# Line 3843  procedure TMainForm.InitReturFraDao(); Line 3573  procedure TMainForm.InitReturFraDao();
3573  begin  begin
3574        AutomatiskTjekkodeStyring1.Enabled := false;        AutomatiskTjekkodeStyring1.Enabled := false;
3575        ReturpakkerfraDAO1.Checked := true;        ReturpakkerfraDAO1.Checked := true;
3576        PakkeshopNulstil.Visible := false;        btnNulstil.Visible := false;
3577        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);
3578        PanelValg2.Color := clGreen;        PanelValg2.Color := clGreen;
3579        PanelValg2.Font.Color := clWhite;        PanelValg2.Font.Color := clWhite;
# Line 3857  begin Line 3587  begin
3587        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3588        Smpakker1.Enabled := true;        Smpakker1.Enabled := true;
3589        Storepakker1.Enabled := true;        Storepakker1.Enabled := true;
3590        RadioButton1.Enabled := true;        radioStorPakke.Enabled := true;
3591        RadioButton2.Enabled := true;        radioLillePakke.Enabled := true;
3592        ListBox1.Visible := true;        ListBox1.Visible := true;
3593        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3594        ListBox2.Items.Clear;        ListBox2.Items.Clear;
# Line 3870  procedure TMainForm.InitReturFraKunde(); Line 3600  procedure TMainForm.InitReturFraKunde();
3600  begin  begin
3601        AutomatiskTjekkodeStyring1.Enabled := false;        AutomatiskTjekkodeStyring1.Enabled := false;
3602        Returpakkerfraboghandler1.Checked := true;        Returpakkerfraboghandler1.Checked := true;
3603        PakkeshopNulstil.Visible := false;        btnNulstil.Visible := false;
3604        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);
3605        PanelValg3.Color := clGreen;        PanelValg3.Color := clGreen;
3606        PanelValg3.Font.Color := clWhite;        PanelValg3.Font.Color := clWhite;
# Line 3883  begin Line 3613  begin
3613        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3614        Smpakker1.Enabled := true;        Smpakker1.Enabled := true;
3615        Storepakker1.Enabled := true;        Storepakker1.Enabled := true;
3616        RadioButton1.Enabled := true;        radioStorPakke.Enabled := true;
3617        RadioButton2.Enabled := true;        radioLillePakke.Enabled := true;
3618        ListBox1.Visible := true;        ListBox1.Visible := true;
3619        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3620        ListBox2.Items.Clear;        ListBox2.Items.Clear;
# Line 3896  procedure TMainForm.InitDirektelevering( Line 3626  procedure TMainForm.InitDirektelevering(
3626  begin  begin
3627        AutomatiskTjekkodeStyring1.Enabled := false;        AutomatiskTjekkodeStyring1.Enabled := false;
3628        Budlevering1.Checked := true;        Budlevering1.Checked := true;
3629        PakkeshopNulstil.Visible := false;        btnNulstil.Visible := false;
3630        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);
3631        PanelValg4.Color := clGreen;        PanelValg4.Color := clGreen;
3632        PanelValg4.Font.Color := clWhite;        PanelValg4.Font.Color := clWhite;
# Line 3910  begin Line 3640  begin
3640        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3641        Smpakker1.Enabled := true;        Smpakker1.Enabled := true;
3642        Storepakker1.Enabled := true;        Storepakker1.Enabled := true;
3643        RadioButton1.Enabled := true;        radioStorPakke.Enabled := true;
3644        RadioButton2.Enabled := true;        radioLillePakke.Enabled := true;
3645        ListBox1.Visible := true;        ListBox1.Visible := true;
3646        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3647        DownloadButton01.Enabled := false;        BtnDownloadKontrolfil.Enabled := false;
3648        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3649        DownloadButton03.Visible := false;        DownloadButton03.Visible := false;
3650        EKLoverforsel.Enabled := false;        EKLoverforsel.Enabled := false;
# Line 3932  procedure TMainForm.InitPakkeshopleverin Line 3662  procedure TMainForm.InitPakkeshopleverin
3662  begin  begin
3663        AutomatiskTjekkodeStyring1.Enabled := true;        AutomatiskTjekkodeStyring1.Enabled := true;
3664        Pakkeshoplevering1.Checked := true;        Pakkeshoplevering1.Checked := true;
3665        PakkeshopNulstil.Visible := false;        btnNulstil.Visible := false;
3666        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);
3667        PanelValg5.Color := clGreen;        PanelValg5.Color := clGreen;
3668        PanelValg5.Font.Color := clWhite;        PanelValg5.Font.Color := clWhite;
# Line 3946  begin Line 3676  begin
3676        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3677        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3678        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
3679        RadioButton1.Enabled := false;        radioStorPakke.Enabled := false;
3680        RadioButton2.Enabled := false;        radioLillePakke.Enabled := false;
3681        ListBox1.Visible := true;        ListBox1.Visible := true;
3682        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3683        DownloadButton01.Enabled := false;        BtnDownloadKontrolfil.Enabled := false;
3684        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3685  // 20150330: start  
 //      EKLoverforsel.Enabled := false;  
3686        EKLoverforsel.Enabled := true;        EKLoverforsel.Enabled := true;
3687  // 20150330: slut  
3688        InitLillePakke();        InitLillePakke();
3689        IndlesScanningLogFil();        IndlesScanningLogFil();
3690        if BladhusSted = 0 then        if BladhusSted = 0 then
# Line 3970  procedure TMainForm.InitReturFraPakkesho Line 3699  procedure TMainForm.InitReturFraPakkesho
3699  begin  begin
3700        AutomatiskTjekkodeStyring1.Enabled := false;        AutomatiskTjekkodeStyring1.Enabled := false;
3701        Returpakkerfrapakkeshop1.Checked := true;        Returpakkerfrapakkeshop1.Checked := true;
3702        PakkeshopNulstil.Visible := false;        btnNulstil.Visible := false;
3703        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);
3704        PanelValg6.Color := clGreen;        PanelValg6.Color := clGreen;
3705        PanelValg6.Font.Color := clWhite;        PanelValg6.Font.Color := clWhite;
# Line 3984  begin Line 3713  begin
3713        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3714        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3715        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
3716        RadioButton1.Enabled := false;        radioStorPakke.Enabled := false;
3717        RadioButton2.Enabled := false;        radioLillePakke.Enabled := false;
3718        ListBox1.Visible := true;        ListBox1.Visible := true;
3719        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3720        DownloadButton01.Enabled := false;        BtnDownloadKontrolfil.Enabled := false;
3721        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3722        EKLoverforsel.Enabled := false;        EKLoverforsel.Enabled := false;
3723        InitLillePakke();        InitLillePakke();
# Line 4010  end; Line 3739  end;
3739    
3740  procedure TMainForm.InitIndleveringskode();  procedure TMainForm.InitIndleveringskode();
3741  begin  begin
3742          menuIndlevering.Checked := true;
3743        AutomatiskTjekkodeStyring1.Enabled := false;        AutomatiskTjekkodeStyring1.Enabled := false;
3744        Returpakkerfrapakkeshop1.Checked := true;  
3745        PakkeshopNulstil.Visible := false;        btnNulstil.Visible := false;
3746        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);
3747        PanelValg7.Color := clGreen;        PanelValg7.Color := clGreen;
3748        PanelValg7.Font.Color := clWhite;        PanelValg7.Font.Color := clWhite;
3749    
# Line 4022  begin Line 3752  begin
3752    
3753        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3754        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
       chkSporgEfterKunde.Checked := false;  
3755        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3756          chkSporgEfterKunde.Checked := false;
3757    
3758    
3759    
3760        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3761        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
3762        RadioButton1.Enabled := false;        radioStorPakke.Enabled := false;
3763        RadioButton2.Enabled := false;        radioLillePakke.Enabled := false;
3764        ListBox1.Visible := true;        ListBox1.Visible := true;
3765        ListBox1.Items.Clear;        ListBox1.Items.Clear();
3766        DownloadButton01.Enabled := false;  
3767          BtnDownloadKontrolfil.Enabled := false;
3768        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3769        EKLoverforsel.Enabled := false;        EKLoverforsel.Enabled := false;
3770        InitLillePakke();        InitLillePakke();
# Line 4056  end; Line 3790  end;
3790    
3791  procedure TMainForm.InitLillePakke();  procedure TMainForm.InitLillePakke();
3792  begin  begin
3793    RadioButton2.Checked := true;    radioLillePakke.Checked := true;
3794    Smpakker1.Checked := true;    Smpakker1.Checked := true;
 // 20150310: start  
3795  //  Stregkode := '';  //  Stregkode := '';
 // 20150310: slut  
3796  end;  end;
3797    
3798  procedure TMainForm.InitStorPakke();  procedure TMainForm.InitStorPakke();
3799  begin  begin
3800    RadioButton1.Checked := true;    radioStorPakke.Checked := true;
3801    Storepakker1.Checked := true;    Storepakker1.Checked := true;
3802  // 20150310: start  // 20150310: start
3803  //  Stregkode := '';  //  Stregkode := '';
# Line 4088  end; Line 3820  end;
3820  ///   values.</param>  ///   values.</param>
3821  /// <returns>Formatted version number of file, '' if no version  /// <returns>Formatted version number of file, '' if no version
3822  ///   resource found.</returns>  ///   resource found.</returns>
3823  function TMainForm.Sto_GetFmtFileVersion(const FileName: String = '';  function TMainForm.Sto_GetFmtFileVersion(const FileName: String = ''): String;
   const Fmt: String = '%d.%d.%d.%d'): String;  
3824  var  var
3825    sFileName: String;    sFileName: String;
3826    iBufferSize: DWORD;    iBufferSize: DWORD;
3827    iDummy: DWORD;    iDummy: DWORD;
3828    pBuffer: Pointer;    pBuffer: Pointer;
3829    pFileInfo: Pointer;    pFileInfo: Pointer;
3830    iVer: array[1..4] of Word;    iVer: array[1..4] of Integer;
   S : String;  
3831  begin  begin
3832    // set default value    // set default value
3833    Result := '';    Result := '';
# Line 4122  begin Line 3852  begin
3852      finally      finally
3853        FreeMem(pBuffer);        FreeMem(pBuffer);
3854      end;      end;
3855    
3856      // format result string      // format result string
3857      Result := Format(Fmt, [iVer[1], iVer[2], iVer[3], iVer[4]]);      Result := Format('%d.%d.%d.%d', [iVer[1], iVer[2], iVer[3], iVer[4]]);
3858    
     // Hvorfor virker ovenstående ikke ???  
     S := '';  
     Str(iVer[1],Result);  
     S := S+Result+'.';  
     Str(iVer[2],Result);  
     S := S+Result+'.';  
     Str(iVer[3],Result);  
     S := S+Result+'.';  
     Str(iVer[4],Result);  
     S := S+Result+'';  
     Result := S;  
3859    end;    end;
3860  end;  end;
3861    
# Line 4162  end; Line 3882  end;
3882    
3883  procedure TMainForm.Testlyd2Click(Sender: TObject);  procedure TMainForm.Testlyd2Click(Sender: TObject);
3884  begin  begin
 // 20150317: start  
3885    if (PakkeshopText1.Caption = 'Tjekkode') then    if (PakkeshopText1.Caption = 'Tjekkode') then
3886    begin    begin
3887       if ScannetOkTilTjekkodeLyd  <> '' then       if ScannetOkTilTjekkodeLyd  <> '' then
# Line 4175  begin Line 3894  begin
3894       end;       end;
3895       exit;       exit;
3896    end;    end;
 // 20150317: slut  
3897    
3898    if Smpakker1.Checked then    if Smpakker1.Checked then
3899       if ScannetOkLyd  <> '' then       if ScannetOkLyd  <> '' then
# Line 4184  begin Line 3902  begin
3902       end       end
3903       else       else
3904       begin       begin
 // 20150317: start  
 //       MessageBox(Handle, PWideChar('Lyd fil ikke fundet (scannet)'), 'Information', MB_OK);  
3905         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);
 // 20150317: slut  
3906       end;       end;
3907    if Storepakker1.Checked then    if Storepakker1.Checked then
3908       if ScannetOkStorLyd  <> '' then       if ScannetOkStorLyd  <> '' then
# Line 4196  begin Line 3911  begin
3911       end       end
3912       else       else
3913       begin       begin
 // 20150317: start  
 //       MessageBox(Handle, PWideChar('Lyd fil ikke fundet (scannet stor)'), 'Information', MB_OK);  
3914         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkStorLyd)'), 'Information', MB_OK);         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkStorLyd)'), 'Information', MB_OK);
 // 20150317: slut  
3915       end;       end;
3916  end;  end;
3917    
# Line 4306  begin Line 4018  begin
4018           BoghandlerNavnST.Caption := 'Prøv venligst igen om lidt...';           BoghandlerNavnST.Caption := 'Prøv venligst igen om lidt...';
4019         end;         end;
4020         KommentarST.Caption := Kommentar;         KommentarST.Caption := Kommentar;
4021         PakkeshopNulstil.Visible := true;         btnNulstil.Visible := true;
4022      end;      end;
4023    
4024  end;  end;
# Line 4330  begin Line 4042  begin
4042    else    else
4043      MessageBox(Handle, 'fejl', 'Stregkode', MB_OK);      MessageBox(Handle, 'fejl', 'Stregkode', MB_OK);
4044  }  }
4045    Svar := 'Beregnet: '+CheckSumModulo10(LeftStr(Barcode,Length(Barcode)-1))+', Indtastet: '+Barcode;    Svar := 'Beregnet: ' + TUtils.CheckSumModulo10(LeftStr(Barcode,Length(Barcode)-1))+', Indtastet: '+Barcode;
4046    
4047    MessageBox(Handle, PWideChar(Svar), 'Stregkode', MB_OK);    MessageBox(Handle, PWideChar(Svar), 'Stregkode', MB_OK);
4048    CheckCode();    CheckCode();
# Line 4338  end; Line 4050  end;
4050    
4051  end;  end;
4052    
 function TMainForm.BarCodeValid (ACode: string): boolean;  
 var  
    I: integer;  
    SumOdd, SumEven: integer;  
    ADigit, AChecksumDigit: integer;  
 begin  
    SumOdd := 0;  
    SumEven := 0;  
    for I := 1 to (Length (ACode) - 1) do begin  
       ADigit := StrToIntDef (ACode [I], 0);  
       if (I MOD 2 = 0) then begin  
          SumEven := SumEven + ADigit;  
       end else begin  
          SumOdd := SumOdd + ADigit;  
       end; {if}  
    end; {for}  
    AChecksumDigit := StrToIntDef (ACode [Length (ACode)], 0);  
    Result := ((SumOdd*3 + SumEven + AChecksumDigit) MOD 10 = 0);  
 end; {--BarCodeValid--}  
   
 { used for EAN 8/13 }  
 function TMainForm.CheckSumModulo10(const data:string):string;  
         var i,fak,sum : Integer;  
 begin  
         sum := 0;  
         fak := Length(data);  
         for i:=1 to Length(data) do  
         begin  
                 if (fak mod 2) = 0 then  
                         sum := sum + (StrToInt(data[i])*1)  
                 else  
                         sum := sum + (StrToInt(data[i])*3);  
                 dec(fak);  
         end;  
         if (sum mod 10) = 0 then  
                 result := data+'0'  
         else  
                 result := data+IntToStr(10-(sum mod 10));  
 end;  
4053    
4054  //  //
4055  // Bladhus ***  // Bladhus ***
# Line 4854  begin Line 4527  begin
4527    ListBox1.SetFocus;  // for at flytte fokus væk fra upload knappen så denne ikke aktiveres ved scanning / indtastning af stregkode    ListBox1.SetFocus;  // for at flytte fokus væk fra upload knappen så denne ikke aktiveres ved scanning / indtastning af stregkode
4528  end;  end;
4529    
4530  procedure TMainForm.DownloadButton01Click(Sender: TObject);  procedure TMainForm.BtnDownloadKontrolfilClick(Sender: TObject);
4531  begin  begin
4532      DownloadBladhusKontrolfil();      DownloadBladhusKontrolfil();
4533      ListBox1.SetFocus;  // for at flytte fokus væk fra download knappen så denne ikke aktiveres ved scanning / indtastning af stregkode      ListBox1.SetFocus;  // for at flytte fokus væk fra download knappen så denne ikke aktiveres ved scanning / indtastning af stregkode
# Line 4878  begin Line 4551  begin
4551      ListBox1.SetFocus;  // for at flytte fokus væk fra download knappen så denne ikke aktiveres ved scanning / indtastning af stregkode      ListBox1.SetFocus;  // for at flytte fokus væk fra download knappen så denne ikke aktiveres ved scanning / indtastning af stregkode
4552  end;  end;
4553    
4554  function TMainForm.Explode(var a: TStrArray; Border, S: string): Integer;  
4555    // ToDo: PrintPakkeshopLabel()
4556    procedure TMainForm.PrintPakkeshopLabel( PakkeshopLabel : TPakkeshopLabel);
4557  var  var
4558    S2: string;    XForm, XFormOld: TXForm; //Bruges til rotate X-formation
4559      Angle: integer;
4560      gMode: integer;
4561      Dirigering: string;
4562    
4563  begin  begin
4564    Result  := 0;      with Printer do
4565    S2 := S + Border;      begin
4566    repeat        BeginDoc();
4567      SetLength(A, Length(A) + 1);  
4568      a[Result] := Copy(S2, 0,Pos(Border, S2) - 1);  
4569      Delete(S2, 1,Length(a[Result] + Border));        Canvas.Font.Size := 16;
4570      Inc(Result);        Canvas.TextOut(15,10, 'Code: ' + PakkeshopLabel.Tjekkode + '     '  + PakkeshopLabel.Overskrift);
4571    until S2 = '';  
4572    
4573    
4574          Canvas.TextOut(25, 90, PakkeshopLabel.Navn );
4575          Canvas.TextOut(25, 135, PakkeshopLabel.Vejnavn );
4576          Canvas.TextOut(25, 180, PakkeshopLabel.Postnr );
4577    
4578    
4579          Canvas.Font.Size := 9;
4580          Canvas.TextOut(110, 240, 'Pakkeshop:');
4581          Canvas.TextOut(110, 270, PakkeshopLabel.PakkeshopNavn);
4582          Canvas.TextOut(110, 300, PakkeshopLabel.PakkeshopAddr);
4583          Canvas.TextOut(110, 330, PakkeshopLabel.PakkeshopPostnr);
4584    
4585          Canvas.TextOut(350, 240, 'Afsender:');
4586          Canvas.TextOut(350, 270, PakkeshopLabel.AfsenderNavn);
4587          Canvas.TextOut(350, 300, PakkeshopLabel.AfsenderAdresse);
4588          Canvas.TextOut(350, 330, PakkeshopLabel.AfsenderPostnr);
4589    
4590          Dirigering := PakkeshopLabel.PakkeshopSted + ' | ' + PakkeshopLabel.PakkeshopTurid + ' | ' + PakkeshopLabel.PakkeshopNr;
4591          if ( PakkeshopLabel.Koreliste <> '') then
4592          begin
4593            Dirigering := Dirigering + ' > ' + PakkeshopLabel.Koreliste;
4594          end;
4595    
4596    
4597          Canvas.Font.Size := 12;
4598          Canvas.TextOut(15, 370, Dirigering);
4599    
4600    
4601    
4602    
4603    
4604          //Tegn adskillelses linier
4605          Canvas.Pen.Width := 2;
4606          //Øverste linie
4607          Canvas.MoveTo(20,80);
4608          Canvas.LineTo(600,80);
4609    
4610          // Midterste linie
4611          Canvas.MoveTo( 20, 240);
4612          Canvas.LineTo(600, 240);
4613    
4614          //Nederste linie
4615          Canvas.MoveTo( 20, 370);
4616          Canvas.LineTo(600, 370);
4617    
4618    
4619          //Tegn skrå streger over afsender
4620          Canvas.Pen.Width := 1;
4621          Canvas.MoveTo(600, 250);
4622          Canvas.LineTo(350, 360);
4623          Canvas.MoveTo(600, 360);
4624          Canvas.LineTo(350, 250);
4625    
4626    
4627    
4628    
4629          // Resten af rutinen vedr genering og placering af Barcode
4630    
4631          BarCode.BarCodeType := bcCode128;
4632          BarCode.Code128Subset := csCodeC;
4633          BarCode.Code := PakkeshopLabel.Stregkode;
4634          BarCode.Validate(True);
4635    
4636          //Start X-formation
4637          //ShowMessage( Format('%d %d', [PageWidth, PageHeight]) );
4638          GetWorldTransform(Canvas.Handle, XFormOld);
4639    
4640          Angle := 270;
4641          XForm.eM11 := Cos(DegToRad(Angle));
4642          XForm.eM12 := Sin(DegToRad(Angle));
4643          XForm.eM21 := -Sin(DegToRad(Angle));
4644          XForm.eM22 := Cos(DegToRad(Angle));
4645          XForm.eDx := 0;
4646          XForm.eDy := 0;
4647    
4648          gMode := SetGraphicsMode(Canvas.Handle, GM_ADVANCED);
4649          SetWorldTransform(Canvas.Handle, XForm);
4650    
4651          // PaintToCanvasSize arbejder i Inches
4652          // Første pos argument bliver nu Y og skal være negativ for at rykke den ned
4653          //Anden pos er X og skal være positiv for at justere ind fra venstre mod højre
4654    
4655          BarCode.PaintToCanvasSize(Printer.Canvas, -1.8, 3.3, 0.4);
4656    
4657    
4658          SetWorldTransform(Canvas.Handle, XFormOld);
4659          SetGraphicsMode(Canvas.Handle, gMode);
4660    
4661          EndDoc();
4662        end;
4663    
4664    
4665  end;  end;
4666    
4667    function GetPixelsPerInchX(): Integer;
4668    begin
4669      Result := GetDeviceCaps(Printer.Handle, LOGPIXELSX)
4670    end;
4671    
4672    function GetPixelsPerInchY(): Integer;
4673    begin
4674      Result := GetDeviceCaps(Printer.Handle, LOGPIXELSY)
4675    end;
4676    
4677    
4678  procedure TMainForm.IndlesManglendeScanninger();  procedure TMainForm.IndlesManglendeScanninger();
4679  var  var
4680    WebSvar : String;    WebSvar : String;
# Line 4904  var Line 4687  var
4687    pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer;    pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer;
4688    pakketyper : TStrings;    pakketyper : TStrings;
4689    antlin : Integer;    antlin : Integer;
4690  // 20150306: start  
4691    antlinIdag, antlinSenere : Integer;    antlinIdag, antlinSenere : Integer;
4692  // 20150306: slut  
4693    XmlFelter : TStrings;    XmlFelter : TStrings;
4694    
4695   begin   begin
# Line 4926  var Line 4709  var
4709          StedKode := Sted;          StedKode := Sted;
4710        end;        end;
4711    
4712  // 20150310: start  
4713  (*  
4714      if Returpakkerfrapakkeshop1.Checked then      if (Scanningtype = '7') then
      begin  
       URLStr := Format(UrlPakkeshopManglendeReturScanninger,[StedKode]);  
      end  
     else if Pakkeshoplevering1.Checked then  
      begin  
       URLStr := Format(UrlPakkeshopManglendeScanninger,[StedKode]);  
      end  
     else if Pakkernormal1.Checked then  
4715       begin       begin
4716        URLStr := Format(UrlManglendeScanninger,[StedKode,'B2']);        URLStr := Format(UrlIndleveringsPakkeManglendeScanninger, [StedKode]);
4717       end       end
4718      else      else if (Scanningtype = '6') then
      begin  
       URLStr := Format(UrlManglendeScanninger,[StedKode,'A2']);    // Budleveringer  
      end;  
 *)  
     if (Scanningtype = '6') then  
4719       begin       begin
4720        URLStr := Format(UrlPakkeshopManglendeReturScanninger,[StedKode]);        URLStr := Format(UrlPakkeshopManglendeReturScanninger, [StedKode]);
4721       end       end
4722      else if (Scanningtype = '5') then      else if (Scanningtype = '5') then
4723       begin       begin
4724        URLStr := Format(UrlPakkeshopManglendeScanninger,[StedKode]);        URLStr := Format(UrlPakkeshopManglendeScanninger, [StedKode]);
4725       end       end
4726      else if (Scanningtype = '1') then      else if (Scanningtype = '1') then
4727       begin       begin
# Line 4988  var Line 4758  var
4758      try      try
4759        XMLDocument1.LoadFromXML(WebSvar);        XMLDocument1.LoadFromXML(WebSvar);
4760    
4761  // 20150206: start  
4762        antlin := 0;        antlin := 0;
4763        antlinIdag := 0;        antlinIdag := 0;
4764        antlinSenere := 0;        antlinSenere := 0;
4765  // 20150306: slut  
       antalFelterFundet := 0;  
4766        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin
4767            Node:= XMLDocument1.DocumentElement.ChildNodes[I];            Node:= XMLDocument1.DocumentElement.ChildNodes[I];
4768            if Node.NodeType = ntElement then begin            if Node.NodeType = ntElement then begin
# Line 5025  var Line 4794  var
4794        antalFelterFundet := 0;        antalFelterFundet := 0;
4795        SetLength(stregkoderMedTjekkodeArray, 0);    // reset fra tidligere brug        SetLength(stregkoderMedTjekkodeArray, 0);    // reset fra tidligere brug
4796        SetLength(stregkoderMedTjekkodeArray, antlin);  // sæt antal elementer i array        SetLength(stregkoderMedTjekkodeArray, antlin);  // sæt antal elementer i array
4797  // 20150206: start  
 //      logTekst := 'Der er '+IntToStr(antlin)+' pakker, der endnu ikke er modtaget.';  
4798        logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget';        logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget';
4799        if (antlinSenere > 0) then        if (antlinSenere > 0) then
4800        begin        begin
4801          logTekst := logTekst + ' (' + IntToStr(antlinIdag) + ' til i dag og ' + IntToStr(antlinSenere) + ' til senere)';          logTekst := logTekst + ' (' + IntToStr(antlinIdag) + ' til i dag og ' + IntToStr(antlinSenere) + ' til senere)';
4802        end;        end;
4803        logTekst := logTekst + '.';        logTekst := logTekst + '.';
4804  // 20150306: slut  
4805        SkrivScanningLogFil(logTekst);        SkrivScanningLogFil(logTekst);
4806        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin
4807            Node:= XMLDocument1.DocumentElement.ChildNodes[I];            Node:= XMLDocument1.DocumentElement.ChildNodes[I];
# Line 5077  var Line 4845  var
4845  //                    stregkoderMedTjekkodeArray[linienr] := stregkode;  //                    stregkoderMedTjekkodeArray[linienr] := stregkode;
4846                    if (pos(' ', stregkode) > 0) then                    if (pos(' ', stregkode) > 0) then
4847                    begin                    begin
4848                      stregkoderMedTjekkodeArray[linienr] := split(stregkode, ' ', 2);  // Fjerner lige en evt. fremtidig dato fra feltet                      stregkoderMedTjekkodeArray[linienr] := TUtils.split(stregkode, ' ', 2);  // Fjerner lige en evt. fremtidig dato fra feltet
4849                    end                    end
4850                    else                    else
4851                    begin                    begin
4852                      stregkoderMedTjekkodeArray[linienr] := stregkode;                      stregkoderMedTjekkodeArray[linienr] := stregkode;
4853                    end;                    end;
4854  // 20150306: slut                    linienr := linienr + 1;
                     linienr := linienr + 1;  
4855                  end;                  end;
4856              end;              end;
4857              if antalFelterFundet = antalLiniefelter then              if antalFelterFundet = antalLiniefelter then
# Line 5109  var Line 4876  var
4876    
4877          // Free up the list object          // Free up the list object
4878        pakketyper.Free;        pakketyper.Free;
 // 20150306: start  
4879  //      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.');
4880        logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget';        logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget';
4881        if (antlinSenere > 0) then        if (antlinSenere > 0) then
# Line 5118  var Line 4884  var
4884        end;        end;
4885        logTekst := logTekst + '.';        logTekst := logTekst + '.';
4886        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
 // 20150306: slut  
 // 20150309: start  
4887        if (antlinSenere > 0) then        if (antlinSenere > 0) then
4888        begin        begin
4889          StaticTextManglendePakker.Caption := IntToStr(antlinIdag) + '/' + IntToStr(antlinSenere);          StaticTextManglendePakker.Caption := IntToStr(antlinIdag) + '/' + IntToStr(antlinSenere);
# Line 5128  var Line 4892  var
4892        begin        begin
4893          StaticTextManglendePakker.Caption := IntToStr(antlinIdag);          StaticTextManglendePakker.Caption := IntToStr(antlinIdag);
4894        end;        end;
 // 20150309: slut  
4895    
 // 20150310: start  
4896        if (Scanningtype = '1') then        if (Scanningtype = '1') then
4897        begin        begin
4898          //antlinIdag := 9876;  // til test af boksens udseende ved stort tal          //antlinIdag := 9876;  // til test af boksens udseende ved stort tal
# Line 5209  var Line 4971  var
4971            PanelManglendePakker6.Visible := false;            PanelManglendePakker6.Visible := false;
4972          end;          end;
4973        end;        end;
 // 20150310: slut  
4974    
4975      except on e:exception do      except on e:exception do
4976        begin        begin
# Line 5271  end; Line 5032  end;
5032  procedure TMainForm.SkrivScanningLogFil(var tekst : string);  procedure TMainForm.SkrivScanningLogFil(var tekst : string);
5033  var  var
5034     SomeTxtFile : TextFile;     SomeTxtFile : TextFile;
    buffer : string;  
    S: string;  
5035     idag, imorgen : TDateTime;     idag, imorgen : TDateTime;
5036     imorgenYmd : string;     imorgenYmd : string;
5037     logFilnavn : string;     logFilnavn : string;
5038      error : Integer;     //error : Integer;
5039    
5040  begin  begin
5041    if (SkrivLog = '1') then    if (SkrivLog = '1') then
# Line 5368  begin Line 5127  begin
5127          ReadLn(SomeTxtFile, buffer) ;          ReadLn(SomeTxtFile, buffer) ;
5128          S := buffer;          S := buffer;
5129          SetLength(A,0);          SetLength(A,0);
5130          Explode(A, ';', S);          TUtils.Explode(A, ';', S);
5131          if (length(A) < 2) then          if (length(A) < 2) then
5132          begin          begin
5133            Explode(A, ',', S);            TUtils.Explode(A, ',', S);
5134          end;          end;
5135            if (length(A) > 1) then            if (length(A) > 1) then
5136            begin            begin
# Line 5445  begin Line 5204  begin
5204          ReadLn(SomeTxtFile, buffer) ;          ReadLn(SomeTxtFile, buffer) ;
5205          S := buffer;          S := buffer;
5206          SetLength(A,0);          SetLength(A,0);
5207          Explode(A, ';', S);          TUtils.Explode(A, ';', S);
5208          if (length(A) < 3) then          if (length(A) < 3) then
5209          begin          begin
5210            Explode(A, ',', S);            TUtils.Explode(A, ',', S);
5211          end;          end;
5212          if (A[0]=imorgenYmd) then          if (A[0]=imorgenYmd) then
5213          begin          begin
# Line 5540  begin Line 5299  begin
5299    result := svar;    result := svar;
5300  end;  end;
5301    
5302    procedure TMainForm.VisAlarmSkaerm(strMessage: string);
5303    begin
5304      //ShowMessage('Ændring ikke tilladt');
5305      // Her skal komme en 'rød skærm' alarm
5306      PlaySound(PWideChar(AlarmLyd));
5307      MainForm.Color := clRed;
5308    
5309    
5310      RuteNummerST.Caption := '';
5311      BoghandlerNavnST.Caption := '';
5312      btnNulstil.Visible := true;
5313    
5314      if (strMessage <> '') then
5315      begin
5316        ListBox1.Items.Insert(0, strMessage);
5317        KommentarST.Caption := strMessage;
5318      end;
5319    
5320    end;
5321    
5322  function TMainForm.getProddato() : TDate;  function TMainForm.getProddato() : TDate;
5323  var  var
5324     idag, imorgen : TDateTime;     idag, imorgen : TDateTime;
# Line 5621  procedure TMainForm.Scanogstjekkoden1Cli Line 5400  procedure TMainForm.Scanogstjekkoden1Cli
5400  begin  begin
5401    if Scanogstjekkoden1.Checked then    if Scanogstjekkoden1.Checked then
5402    begin    begin
5403       CheckBox3.Checked := true;       chkScanTjekkode.Checked := true;
5404    end    end
5405    else    else
5406    begin    begin
5407       CheckBox3.Checked := false;       chkScanTjekkode.Checked := false;
5408    end;    end;
5409  end;  end;
5410    
5411  function TMainForm.AdobeReaderExists: Boolean;  
5412    
5413    
5414    function TMainForm.CheckUrl(url:string):boolean;
5415  var  var
5416    AReg: TRegistry;    hSession, hfile: hInternet;
5417      dwindex,dwcodelen :dword;
5418      dwcode:array[1..20] of char;
5419      res : pchar;
5420  begin  begin
5421    result:= false;    if pos('http://',lowercase(url))=0 then
5422    AReg := TRegistry.Create;      url := 'http://'+url;
5423    AReg.RootKey := HKEY_LOCAL_MACHINE;    Result := false;
5424    if AReg.KeyExists('\SOFTWARE\Adobe\Acrobat Reader') then    hSession := InternetOpen('InetURL:/1.0',
5425      result:= True;                              INTERNET_OPEN_TYPE_PRECONFIG,
5426    AReg.Free;                              nil,
5427                                nil,
5428                                0);
5429      if assigned(hsession) then
5430      begin
5431        hfile := InternetOpenUrl(hsession,
5432                                 pchar(url),
5433                                 nil,
5434                                 0,
5435                                 INTERNET_FLAG_RELOAD,
5436                                 0);
5437        dwIndex := 0;
5438        dwCodeLen := 10;
5439        HttpQueryInfo(hfile,
5440                      HTTP_QUERY_STATUS_CODE,
5441                      @dwcode,
5442                      dwcodeLen,
5443                      dwIndex);
5444        res := pchar(@dwcode);
5445        result:= (res ='200') or (res ='302');
5446        if assigned(hfile) then
5447          InternetCloseHandle(hfile);
5448        InternetCloseHandle(hsession);
5449      end;
5450    
5451  end;  end;
5452    
5453    
5454  procedure TMainForm.CheckPrintQue(tjektype : string);  procedure TMainForm.CheckPrintQue(tjektype : string);
5455  type  type
5456    TJobs  = array [0..1000] of JOB_INFO_1;    TJobs  = array [0..1000] of JOB_INFO_1;
# Line 5744  begin Line 5554  begin
5554    end;    end;
5555  end;  end;
5556    
 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  
5557    
5558  end.  end.
5559    
Legend:
Removed from v.2653  
changed lines
  Added in v.2692
  ViewVC Help
Powered by ViewVC 1.1.20