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

Diff of /dao/DelphiScanner/Main.pas

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

revision 2650 by torben, Thu Aug 20 20:58:26 2015 UTC revision 2691 by torben, Thu Sep 3 14:16:31 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 20  type Line 25  type
25      IdHTTP1: TIdHTTP;      IdHTTP1: TIdHTTP;
26      XMLDocument1: TXMLDocument;      XMLDocument1: TXMLDocument;
27      ApplicationEvents1: TApplicationEvents;      ApplicationEvents1: TApplicationEvents;
28      CheckBox1: TCheckBox;      chkSporgEfterKunde: TCheckBox;
29      KommentarST: TStaticText;      KommentarST: TStaticText;
30      MainMenu1: TMainMenu;      MainMenu1: TMainMenu;
31      N1: TMenuItem;      N1: TMenuItem;
# 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      CheckBox2: TCheckBox;      chkAltidPrintLabel: TCheckBox;
68      EKLoverforsel: TButton;      EKLoverforsel: TButton;
69      N5: TMenuItem;      N5: TMenuItem;
70      Uploadlogfil1: TMenuItem;      Uploadlogfil1: TMenuItem;
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 CheckBox1Click(Sender: TObject);    procedure chkSporgEfterKundeClick(Sender: TObject);
122    procedure Pakkernormal1Click(Sender: TObject);    procedure Pakkernormal1Click(Sender: TObject);
123    procedure Testforbindelsen1Click(Sender: TObject);    procedure Testforbindelsen1Click(Sender: TObject);
124    procedure Testprinter1Click(Sender: TObject);    procedure Testprinter1Click(Sender: TObject);
# Line 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 154  type Line 157  type
157    procedure InitIndleveringskode();    procedure InitIndleveringskode();
158    
159    procedure Altidprintepakkelabel1Click(Sender: TObject);    procedure Altidprintepakkelabel1Click(Sender: TObject);
160    procedure CheckBox2Click(Sender: TObject);    procedure chkAltidPrintLabelClick(Sender: TObject);
161    procedure EKLoverforselClick(Sender: TObject);    procedure EKLoverforselClick(Sender: TObject);
162    procedure Uploadlogfil1Click(Sender: TObject);    procedure Uploadlogfil1Click(Sender: TObject);
163    procedure Manual1Click(Sender: TObject);    procedure Manual1Click(Sender: TObject);
   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 472  begin Line 467  begin
467    
468    if Altidprintepakkelabel1.Checked then    if Altidprintepakkelabel1.Checked then
469    begin    begin
470       CheckBox2.Checked := true;       chkAltidPrintLabel.Checked := true;
471    end    end
472    else    else
473    begin    begin
474       CheckBox2.Checked := false;       chkAltidPrintLabel.Checked := false;
475    end;    end;
476    
477  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 711  begin Line 699  begin
699    
700      if SporgEfterBoghandler = '1' then      if SporgEfterBoghandler = '1' then
701      begin      begin
702        CheckBox1.Checked := true;        chkSporgEfterKunde.Checked := true;
703        Sprgefterboghandlernummer1.Checked := true;        Sprgefterboghandlernummer1.Checked := true;
704      end      end
705      else      else
706      begin      begin
707        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
708        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
709      end;      end;
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 1294  begin Line 1254  begin
1254    
1255      if StregKode = 'Indtast kundenummer' then      if StregKode = 'Indtast kundenummer' then
1256      begin      begin
1257         if CheckBox1.Enabled = true then         if chkSporgEfterKunde.Enabled = true then
1258         begin         begin
1259           if (CheckBox1.State = cbChecked) then           if (chkSporgEfterKunde.State = cbChecked) then
1260           begin           begin
1261            CheckBox1.State := cbUnchecked;            chkSporgEfterKunde.State := cbUnchecked;
1262           end           end
1263           else           else
1264           begin           begin
1265            CheckBox1.State := cbChecked;            chkSporgEfterKunde.State := cbChecked;
1266           end;           end;
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;  
     end;  
   
     if StregKode = 'Lille pakke' then  
     begin  
        InitLillePakke();  
        exit;  
     end;  
   
     if StregKode = 'Stor pakke' then  
     begin  
        InitStorPakke();  
        exit;  
     end;  
   
     if StregKode = 'Indtast kundenummer' then  
     begin  
        if (CheckBox1.State = cbChecked) then  
        begin  
         CheckBox1.State := cbUnchecked;  
        end  
        else  
        begin  
         CheckBox1.State := cbChecked;  
        end;  
        Stregkode := '';  
        exit;  
1520      end;      end;
1521    
     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  
2328  //  if Sprgefterboghandlernummer1.Enabled and CheckBox1.Checked and (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) or (pakkeForkertSted > 0) then    if Sprgefterboghandlernummer1.Enabled and chkSporgEfterKunde.Checked and ( (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) or (pakkeForkertSted > 0) ) then
2329    if Sprgefterboghandlernummer1.Enabled and CheckBox1.Checked and ( (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) or (pakkeForkertSted > 0) ) then  
 // 20150306: slut  
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 2757  begin Line 2471  begin
2471      exit;      exit;
2472    end;    end;
2473    
2474    if Budlevering1.Checked or ( Sprgefterboghandlernummer1.Enabled and CheckBox1.Checked and ( (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) ) and (printNyLabel = false) ) then    if Budlevering1.Checked or ( Sprgefterboghandlernummer1.Enabled and chkSporgEfterKunde.Checked and ( (RuteNummer = 'Ukendt') or (RuteNummer = 'Ukendt tur') or (RuteNummer = 'Retur ukendt') or (pakkeErScannet > 0) ) and (printNyLabel = false) ) then
2475    begin    begin
2476    end    end
2477    else    else
2478    begin    begin
2479      if ( (PrinterNavn <> 'Ingen') and (PrintNyLabel or CheckBox2.Checked) and (RuteNummer <> 'Ukendt') or (RuteNummer = 'Rutenr')) then      if ( (PrinterNavn <> 'Ingen') and (PrintNyLabel or chkAltidPrintLabel.Checked) and (RuteNummer <> 'Ukendt') or (RuteNummer = 'Rutenr')) then
2480      begin      begin
2481        logTekst := 'Printer label type ';        logTekst := 'Printer label type ';
2482        if (CheckBox2.Checked) then        if (chkAltidPrintLabel.Checked) then
2483        begin        begin
2484          logTekst := logTekst + 'Alle ';          logTekst := logTekst + 'Alle ';
2485        end        end
# 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    
2579  procedure TMainForm.CheckBox1Click(Sender: TObject);  procedure TMainForm.chkSporgEfterKundeClick(Sender: TObject);
2580  begin  begin
2581    if CheckBox1.Checked then    if chkSporgEfterKunde.Checked then
2582    begin    begin
2583       Sprgefterboghandlernummer1.Checked := true;       Sprgefterboghandlernummer1.Checked := true;
2584    end    end
# Line 2875  begin Line 2589  begin
2589  end;  end;
2590    
2591    
2592  procedure TMainForm.CheckBox2Click(Sender: TObject);  procedure TMainForm.chkAltidPrintLabelClick(Sender: TObject);
2593  begin  begin
2594    if CheckBox2.Checked then    if chkAltidPrintLabel.Checked then
2595    begin    begin
2596       Altidprintepakkelabel1.Checked := true;       Altidprintepakkelabel1.Checked := true;
2597    end    end
# 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 3514  var Line 3281  var
3281    BoghandlerNavn : String;    BoghandlerNavn : String;
3282    Koreliste : String;    Koreliste : String;
3283    Falsk : Boolean;    Falsk : Boolean;
   Sand : Boolean;  
3284    SmsKode : String;    SmsKode : String;
3285    DBKbane : String;    DBKbane : String;
3286    Leveringssted : String;    Leveringssted : String;
# Line 3536  begin Line 3302  begin
3302      // Her kommer en alarm og rød skærm      // Her kommer en alarm og rød skærm
3303      PlaySound(PWideChar(AlarmLyd));      PlaySound(PWideChar(AlarmLyd));
3304      MainForm.Color := clRed;      MainForm.Color := clRed;
3305      PakkeshopNulstil.Visible := true;      btnNulstil.Visible := true;
3306    end    end
3307    else    else
3308    begin    begin
3309      Falsk := False;      Falsk := False;
3310      Sand := True;  
3311      HentPakkeInfoFraServer(Sted,'111111111100000', RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk, '');      HentPakkeInfoFraServer(Sted,'111111111100000', RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk, '');
3312      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');
3313      SmsKode := '999999';      SmsKode := '999999';
# Line 3561  var Line 3327  var
3327    BoghandlerNavn : String;    BoghandlerNavn : String;
3328    Koreliste : String;    Koreliste : String;
3329    Falsk : Boolean;    Falsk : Boolean;
   Sand : Boolean;  
3330    SmsKode : String;    SmsKode : String;
3331    DBKbane : String;    DBKbane : String;
3332    Leveringssted : String;    Leveringssted : String;
# Line 3570  begin Line 3335  begin
3335    Kommentar := '***** Kommentar *****';    Kommentar := '***** Kommentar *****';
3336    BoghandlerNavn := 'Modtagernavn';    BoghandlerNavn := 'Modtagernavn';
3337    Falsk := False;    Falsk := False;
3338    Sand := True;  
3339    
3340    if (Printer.Printers.Count = 0) then    if (Printer.Printers.Count = 0) then
3341    begin    begin
# Line 3605  begin Line 3370  begin
3370    end;    end;
3371  end;  end;
3372    
3373  {  
  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;  
3374    
3375  procedure TMainForm.Om1Click(Sender: TObject);  procedure TMainForm.Om1Click(Sender: TObject);
3376  const  const
# Line 3643  var Line 3379  var
3379   tekst, filversion : String;   tekst, filversion : String;
3380  begin  begin
3381    
3382    filversion := Sto_GetFmtFileVersion('','');    filversion := Sto_GetFmtFileVersion('');
3383    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';
3384    
3385    tekst := tekst+crlf+crlf;    tekst := tekst+crlf+crlf;
# Line 3665  begin Line 3401  begin
3401          end          end
3402          else          else
3403          begin          begin
3404            tekst := tekst+crlf+crlf+'Speciel version til: '+split(Titel, ':', 2)+' ('+Sted+')';            tekst := tekst+crlf+crlf+'Speciel version til: ' + TUtils.split(Titel, ':', 2) + ' ('+Sted+')';
3405          end;          end;
3406      end      end
3407      else      else
3408      begin      begin
3409        tekst := tekst+crlf+crlf+'Speciel version til: '+split(Titel, ':', 2)+' ('+SpecialVersionSted+')';        tekst := tekst+crlf+crlf+'Speciel version til: ' + TUtils.split(Titel, ':', 2) + ' ('+SpecialVersionSted+')';
3410      end;      end;
3411    end;    end;
3412    
# Line 3738  begin Line 3474  begin
3474    
3475    if FileExists(fileName) then    if FileExists(fileName) then
3476    begin    begin
3477      if AdobeReaderExists then      if TUtils.AdobeReaderExists then
3478      begin      begin
3479        //ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL);        //ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL);
3480        ShellExecute(Handle,'open',PChar(fileName), nil, nil, SW_SHOWNORMAL);        ShellExecute(Handle,'open',PChar(fileName), nil, nil, SW_SHOWNORMAL);
# Line 3762  begin Line 3498  begin
3498    
3499    if FileExists(fileName) then    if FileExists(fileName) then
3500    begin    begin
3501      if AdobeReaderExists then      if TUtils.AdobeReaderExists then
3502      begin      begin
3503        //ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL);        //ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL);
3504        ShellExecute(Handle,'open',PChar(fileName), nil, nil, SW_SHOWNORMAL);        ShellExecute(Handle,'open',PChar(fileName), nil, nil, SW_SHOWNORMAL);
# Line 3778  begin Line 3514  begin
3514    end;    end;
3515  end;  end;
3516    
3517    procedure TMainForm.menuIndleveringClick(Sender: TObject);
3518    begin
3519      Scanningtype := '7';
3520      NulstilAutomatiskValg();
3521      InitIndleveringskode();
3522    end;
3523    
3524  procedure TMainForm.Sprgefterboghandlernummer1Click(Sender: TObject);  procedure TMainForm.Sprgefterboghandlernummer1Click(Sender: TObject);
3525  begin  begin
3526    
3527    if Sprgefterboghandlernummer1.Checked then    if Sprgefterboghandlernummer1.Checked then
3528    begin    begin
3529       CheckBox1.Checked := true;       chkSporgEfterKunde.Checked := true;
3530    end    end
3531    else    else
3532    begin    begin
3533       CheckBox1.Checked := false;       chkSporgEfterKunde.Checked := false;
3534    end;    end;
3535    
3536    
# Line 3810  end; Line 3553  end;
3553  procedure TMainForm.InitNatxpresslevering();  procedure TMainForm.InitNatxpresslevering();
3554  begin  begin
3555        AutomatiskTjekkodeStyring1.Enabled := true;        AutomatiskTjekkodeStyring1.Enabled := true;
3556        PakkeshopNulstil.Visible := false;        btnNulstil.Visible := false;
3557        Pakkernormal1.Checked := true;        Pakkernormal1.Checked := true;
3558        InitForm(FarveNormal,TitelNormal,UrlNormal);        InitForm(FarveNormal,TitelNormal,UrlNormal);
3559        PanelValg1.Color := clGreen;        PanelValg1.Color := clGreen;
3560        PanelValg1.Font.Color := clWhite;        PanelValg1.Font.Color := clWhite;
3561        CheckBox1.Enabled := true;  
3562        CheckBox2.Enabled := true;        chkAltidPrintLabel.Enabled := true;
3563        Altidprintepakkelabel1.Enabled := true;        Altidprintepakkelabel1.Enabled := true;
3564        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3565        CheckBox2.Checked := false;        chkAltidPrintLabel.Checked := false;
3566        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3567        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
3568        Sprgefterboghandlernummer1.Enabled := true;        Sprgefterboghandlernummer1.Enabled := true;
3569        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3570        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
3571        RadioButton1.Enabled := false;        radioStorPakke.Enabled := false;
3572        RadioButton2.Enabled := false;        radioLillePakke.Enabled := false;
3573        ListBox1.Visible := true;        ListBox1.Visible := true;
3574        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3575        EKLoverforsel.Enabled := true;        EKLoverforsel.Enabled := true;
# Line 3843  procedure TMainForm.InitReturFraDao(); Line 3586  procedure TMainForm.InitReturFraDao();
3586  begin  begin
3587        AutomatiskTjekkodeStyring1.Enabled := false;        AutomatiskTjekkodeStyring1.Enabled := false;
3588        ReturpakkerfraDAO1.Checked := true;        ReturpakkerfraDAO1.Checked := true;
3589        PakkeshopNulstil.Visible := false;        btnNulstil.Visible := false;
3590        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);
3591        PanelValg2.Color := clGreen;        PanelValg2.Color := clGreen;
3592        PanelValg2.Font.Color := clWhite;        PanelValg2.Font.Color := clWhite;
3593        CheckBox1.Enabled := false;  
3594        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3595        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
3596        CheckBox2.Checked := false;  
3597        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3598        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3599        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
3600        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3601        Smpakker1.Enabled := true;        Smpakker1.Enabled := true;
3602        Storepakker1.Enabled := true;        Storepakker1.Enabled := true;
3603        RadioButton1.Enabled := true;        radioStorPakke.Enabled := true;
3604        RadioButton2.Enabled := true;        radioLillePakke.Enabled := true;
3605        ListBox1.Visible := true;        ListBox1.Visible := true;
3606        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3607        ListBox2.Items.Clear;        ListBox2.Items.Clear;
# Line 3870  procedure TMainForm.InitReturFraKunde(); Line 3613  procedure TMainForm.InitReturFraKunde();
3613  begin  begin
3614        AutomatiskTjekkodeStyring1.Enabled := false;        AutomatiskTjekkodeStyring1.Enabled := false;
3615        Returpakkerfraboghandler1.Checked := true;        Returpakkerfraboghandler1.Checked := true;
3616        PakkeshopNulstil.Visible := false;        btnNulstil.Visible := false;
3617        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);
3618        PanelValg3.Color := clGreen;        PanelValg3.Color := clGreen;
3619        PanelValg3.Font.Color := clWhite;        PanelValg3.Font.Color := clWhite;
3620        CheckBox1.Enabled := false;  
3621        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3622        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
       CheckBox2.Checked := false;  
3623        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3624        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3625        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
3626        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3627        Smpakker1.Enabled := true;        Smpakker1.Enabled := true;
3628        Storepakker1.Enabled := true;        Storepakker1.Enabled := true;
3629        RadioButton1.Enabled := true;        radioStorPakke.Enabled := true;
3630        RadioButton2.Enabled := true;        radioLillePakke.Enabled := true;
3631        ListBox1.Visible := true;        ListBox1.Visible := true;
3632        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3633        ListBox2.Items.Clear;        ListBox2.Items.Clear;
# Line 3897  procedure TMainForm.InitDirektelevering( Line 3639  procedure TMainForm.InitDirektelevering(
3639  begin  begin
3640        AutomatiskTjekkodeStyring1.Enabled := false;        AutomatiskTjekkodeStyring1.Enabled := false;
3641        Budlevering1.Checked := true;        Budlevering1.Checked := true;
3642        PakkeshopNulstil.Visible := false;        btnNulstil.Visible := false;
3643        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);
3644        PanelValg4.Color := clGreen;        PanelValg4.Color := clGreen;
3645        PanelValg4.Font.Color := clWhite;        PanelValg4.Font.Color := clWhite;
3646        CheckBox1.Enabled := false;  
3647        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3648        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
3649        CheckBox2.Checked := false;  
3650        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3651        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3652        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
3653        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3654        Smpakker1.Enabled := true;        Smpakker1.Enabled := true;
3655        Storepakker1.Enabled := true;        Storepakker1.Enabled := true;
3656        RadioButton1.Enabled := true;        radioStorPakke.Enabled := true;
3657        RadioButton2.Enabled := true;        radioLillePakke.Enabled := true;
3658        ListBox1.Visible := true;        ListBox1.Visible := true;
3659        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3660        DownloadButton01.Enabled := false;        BtnDownloadKontrolfil.Enabled := false;
3661        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3662        DownloadButton03.Visible := false;        DownloadButton03.Visible := false;
3663        EKLoverforsel.Enabled := false;        EKLoverforsel.Enabled := false;
# Line 3933  procedure TMainForm.InitPakkeshopleverin Line 3675  procedure TMainForm.InitPakkeshopleverin
3675  begin  begin
3676        AutomatiskTjekkodeStyring1.Enabled := true;        AutomatiskTjekkodeStyring1.Enabled := true;
3677        Pakkeshoplevering1.Checked := true;        Pakkeshoplevering1.Checked := true;
3678        PakkeshopNulstil.Visible := false;        btnNulstil.Visible := false;
3679        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);
3680        PanelValg5.Color := clGreen;        PanelValg5.Color := clGreen;
3681        PanelValg5.Font.Color := clWhite;        PanelValg5.Font.Color := clWhite;
3682        CheckBox1.Enabled := false;  
3683        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3684        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
3685        CheckBox2.Checked := false;  
3686        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3687        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3688        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
3689        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3690        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3691        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
3692        RadioButton1.Enabled := false;        radioStorPakke.Enabled := false;
3693        RadioButton2.Enabled := false;        radioLillePakke.Enabled := false;
3694        ListBox1.Visible := true;        ListBox1.Visible := true;
3695        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3696        DownloadButton01.Enabled := false;        BtnDownloadKontrolfil.Enabled := false;
3697        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3698  // 20150330: start  
 //      EKLoverforsel.Enabled := false;  
3699        EKLoverforsel.Enabled := true;        EKLoverforsel.Enabled := true;
3700  // 20150330: slut  
3701        InitLillePakke();        InitLillePakke();
3702        IndlesScanningLogFil();        IndlesScanningLogFil();
3703        if BladhusSted = 0 then        if BladhusSted = 0 then
# Line 3971  procedure TMainForm.InitReturFraPakkesho Line 3712  procedure TMainForm.InitReturFraPakkesho
3712  begin  begin
3713        AutomatiskTjekkodeStyring1.Enabled := false;        AutomatiskTjekkodeStyring1.Enabled := false;
3714        Returpakkerfrapakkeshop1.Checked := true;        Returpakkerfrapakkeshop1.Checked := true;
3715        PakkeshopNulstil.Visible := false;        btnNulstil.Visible := false;
3716        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);
3717        PanelValg6.Color := clGreen;        PanelValg6.Color := clGreen;
3718        PanelValg6.Font.Color := clWhite;        PanelValg6.Font.Color := clWhite;
3719        CheckBox1.Enabled := false;  
3720        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3721        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
3722        CheckBox2.Checked := false;  
3723        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3724        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3725        CheckBox1.Checked := false;        chkSporgEfterKunde.Checked := false;
3726        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3727        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3728        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
3729        RadioButton1.Enabled := false;        radioStorPakke.Enabled := false;
3730        RadioButton2.Enabled := false;        radioLillePakke.Enabled := false;
3731        ListBox1.Visible := true;        ListBox1.Visible := true;
3732        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3733        DownloadButton01.Enabled := false;        BtnDownloadKontrolfil.Enabled := false;
3734        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3735        EKLoverforsel.Enabled := false;        EKLoverforsel.Enabled := false;
3736        InitLillePakke();        InitLillePakke();
# Line 4011  end; Line 3752  end;
3752    
3753  procedure TMainForm.InitIndleveringskode();  procedure TMainForm.InitIndleveringskode();
3754  begin  begin
3755          menuIndlevering.Checked := true;
3756        AutomatiskTjekkodeStyring1.Enabled := false;        AutomatiskTjekkodeStyring1.Enabled := false;
3757        Returpakkerfrapakkeshop1.Checked := true;  
3758        PakkeshopNulstil.Visible := false;        btnNulstil.Visible := false;
3759        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);
3760        PanelValg7.Color := clGreen;        PanelValg7.Color := clGreen;
3761        PanelValg7.Font.Color := clWhite;        PanelValg7.Font.Color := clWhite;
3762        CheckBox1.Enabled := false;  
3763        CheckBox2.Enabled := false;        chkAltidPrintLabel.Enabled := false;
3764        Altidprintepakkelabel1.Enabled := false;        Altidprintepakkelabel1.Enabled := false;
3765        CheckBox2.Checked := false;  
3766        Altidprintepakkelabel1.Checked := false;        Altidprintepakkelabel1.Checked := false;
3767        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
       CheckBox1.Checked := false;  
3768        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3769          chkSporgEfterKunde.Checked := false;
3770    
3771    
3772    
3773        Smpakker1.Enabled := false;        Smpakker1.Enabled := false;
3774        Storepakker1.Enabled := false;        Storepakker1.Enabled := false;
3775        RadioButton1.Enabled := false;        radioStorPakke.Enabled := false;
3776        RadioButton2.Enabled := false;        radioLillePakke.Enabled := false;
3777        ListBox1.Visible := true;        ListBox1.Visible := true;
3778        ListBox1.Items.Clear;        ListBox1.Items.Clear();
3779        DownloadButton01.Enabled := false;  
3780          BtnDownloadKontrolfil.Enabled := false;
3781        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3782        EKLoverforsel.Enabled := false;        EKLoverforsel.Enabled := false;
3783        InitLillePakke();        InitLillePakke();
# Line 4057  end; Line 3803  end;
3803    
3804  procedure TMainForm.InitLillePakke();  procedure TMainForm.InitLillePakke();
3805  begin  begin
3806    RadioButton2.Checked := true;    radioLillePakke.Checked := true;
3807    Smpakker1.Checked := true;    Smpakker1.Checked := true;
 // 20150310: start  
3808  //  Stregkode := '';  //  Stregkode := '';
 // 20150310: slut  
3809  end;  end;
3810    
3811  procedure TMainForm.InitStorPakke();  procedure TMainForm.InitStorPakke();
3812  begin  begin
3813    RadioButton1.Checked := true;    radioStorPakke.Checked := true;
3814    Storepakker1.Checked := true;    Storepakker1.Checked := true;
3815  // 20150310: start  // 20150310: start
3816  //  Stregkode := '';  //  Stregkode := '';
# Line 4089  end; Line 3833  end;
3833  ///   values.</param>  ///   values.</param>
3834  /// <returns>Formatted version number of file, '' if no version  /// <returns>Formatted version number of file, '' if no version
3835  ///   resource found.</returns>  ///   resource found.</returns>
3836  function TMainForm.Sto_GetFmtFileVersion(const FileName: String = '';  function TMainForm.Sto_GetFmtFileVersion(const FileName: String = ''): String;
   const Fmt: String = '%d.%d.%d.%d'): String;  
3837  var  var
3838    sFileName: String;    sFileName: String;
3839    iBufferSize: DWORD;    iBufferSize: DWORD;
3840    iDummy: DWORD;    iDummy: DWORD;
3841    pBuffer: Pointer;    pBuffer: Pointer;
3842    pFileInfo: Pointer;    pFileInfo: Pointer;
3843    iVer: array[1..4] of Word;    iVer: array[1..4] of Integer;
   S : String;  
3844  begin  begin
3845    // set default value    // set default value
3846    Result := '';    Result := '';
# Line 4123  begin Line 3865  begin
3865      finally      finally
3866        FreeMem(pBuffer);        FreeMem(pBuffer);
3867      end;      end;
3868    
3869      // format result string      // format result string
3870      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]]);
3871    
     // 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;  
3872    end;    end;
3873  end;  end;
3874    
# Line 4163  end; Line 3895  end;
3895    
3896  procedure TMainForm.Testlyd2Click(Sender: TObject);  procedure TMainForm.Testlyd2Click(Sender: TObject);
3897  begin  begin
 // 20150317: start  
3898    if (PakkeshopText1.Caption = 'Tjekkode') then    if (PakkeshopText1.Caption = 'Tjekkode') then
3899    begin    begin
3900       if ScannetOkTilTjekkodeLyd  <> '' then       if ScannetOkTilTjekkodeLyd  <> '' then
# Line 4176  begin Line 3907  begin
3907       end;       end;
3908       exit;       exit;
3909    end;    end;
 // 20150317: slut  
3910    
3911    if Smpakker1.Checked then    if Smpakker1.Checked then
3912       if ScannetOkLyd  <> '' then       if ScannetOkLyd  <> '' then
# Line 4185  begin Line 3915  begin
3915       end       end
3916       else       else
3917       begin       begin
 // 20150317: start  
 //       MessageBox(Handle, PWideChar('Lyd fil ikke fundet (scannet)'), 'Information', MB_OK);  
3918         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);
 // 20150317: slut  
3919       end;       end;
3920    if Storepakker1.Checked then    if Storepakker1.Checked then
3921       if ScannetOkStorLyd  <> '' then       if ScannetOkStorLyd  <> '' then
# Line 4197  begin Line 3924  begin
3924       end       end
3925       else       else
3926       begin       begin
 // 20150317: start  
 //       MessageBox(Handle, PWideChar('Lyd fil ikke fundet (scannet stor)'), 'Information', MB_OK);  
3927         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkStorLyd)'), 'Information', MB_OK);         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkStorLyd)'), 'Information', MB_OK);
 // 20150317: slut  
3928       end;       end;
3929  end;  end;
3930    
# Line 4307  begin Line 4031  begin
4031           BoghandlerNavnST.Caption := 'Prøv venligst igen om lidt...';           BoghandlerNavnST.Caption := 'Prøv venligst igen om lidt...';
4032         end;         end;
4033         KommentarST.Caption := Kommentar;         KommentarST.Caption := Kommentar;
4034         PakkeshopNulstil.Visible := true;         btnNulstil.Visible := true;
4035      end;      end;
4036    
4037  end;  end;
# Line 4331  begin Line 4055  begin
4055    else    else
4056      MessageBox(Handle, 'fejl', 'Stregkode', MB_OK);      MessageBox(Handle, 'fejl', 'Stregkode', MB_OK);
4057  }  }
4058    Svar := 'Beregnet: '+CheckSumModulo10(LeftStr(Barcode,Length(Barcode)-1))+', Indtastet: '+Barcode;    Svar := 'Beregnet: ' + TUtils.CheckSumModulo10(LeftStr(Barcode,Length(Barcode)-1))+', Indtastet: '+Barcode;
4059    
4060    MessageBox(Handle, PWideChar(Svar), 'Stregkode', MB_OK);    MessageBox(Handle, PWideChar(Svar), 'Stregkode', MB_OK);
4061    CheckCode();    CheckCode();
# Line 4339  end; Line 4063  end;
4063    
4064  end;  end;
4065    
 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;  
4066    
4067  //  //
4068  // Bladhus ***  // Bladhus ***
# Line 4855  begin Line 4540  begin
4540    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
4541  end;  end;
4542    
4543  procedure TMainForm.DownloadButton01Click(Sender: TObject);  procedure TMainForm.BtnDownloadKontrolfilClick(Sender: TObject);
4544  begin  begin
4545      DownloadBladhusKontrolfil();      DownloadBladhusKontrolfil();
4546      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 4879  begin Line 4564  begin
4564      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
4565  end;  end;
4566    
4567  function TMainForm.Explode(var a: TStrArray; Border, S: string): Integer;  
4568    // ToDo: PrintPakkeshopLabel()
4569    procedure TMainForm.PrintPakkeshopLabel( PakkeshopLabel : TPakkeshopLabel);
4570  var  var
4571    S2: string;    XForm, XFormOld: TXForm; //Bruges til rotate X-formation
4572      Angle: integer;
4573      gMode: integer;
4574      Dirigering: string;
4575    
4576    begin
4577        with Printer do
4578        begin
4579          BeginDoc();
4580    
4581    
4582          Canvas.Font.Size := 16;
4583          Canvas.TextOut(15,10, 'Code: ' + PakkeshopLabel.Tjekkode + '     '  + PakkeshopLabel.Overskrift);
4584    
4585    
4586    
4587          Canvas.TextOut(25, 90, PakkeshopLabel.Navn );
4588          Canvas.TextOut(25, 135, PakkeshopLabel.Vejnavn );
4589          Canvas.TextOut(25, 180, PakkeshopLabel.Postnr );
4590    
4591    
4592          Canvas.Font.Size := 9;
4593          Canvas.TextOut(110, 240, 'Pakkeshop:');
4594          Canvas.TextOut(110, 270, PakkeshopLabel.PakkeshopNavn);
4595          Canvas.TextOut(110, 300, PakkeshopLabel.PakkeshopAddr);
4596          Canvas.TextOut(110, 330, PakkeshopLabel.PakkeshopPostnr);
4597    
4598          Canvas.TextOut(350, 240, 'Afsender:');
4599          Canvas.TextOut(350, 270, PakkeshopLabel.AfsenderNavn);
4600          Canvas.TextOut(350, 300, PakkeshopLabel.AfsenderAdresse);
4601          Canvas.TextOut(350, 330, PakkeshopLabel.AfsenderPostnr);
4602    
4603          Dirigering := PakkeshopLabel.PakkeshopSted + ' | ' + PakkeshopLabel.PakkeshopTurid + ' | ' + PakkeshopLabel.PakkeshopNr;
4604          if ( PakkeshopLabel.Koreliste <> '') then
4605          begin
4606            Dirigering := Dirigering + ' > ' + PakkeshopLabel.Koreliste;
4607          end;
4608    
4609    
4610          Canvas.Font.Size := 12;
4611          Canvas.TextOut(15, 370, Dirigering);
4612    
4613    
4614    
4615    
4616    
4617          //Tegn adskillelses linier
4618          Canvas.Pen.Width := 2;
4619          //Øverste linie
4620          Canvas.MoveTo(20,80);
4621          Canvas.LineTo(600,80);
4622    
4623          // Midterste linie
4624          Canvas.MoveTo( 20, 240);
4625          Canvas.LineTo(600, 240);
4626    
4627          //Nederste linie
4628          Canvas.MoveTo( 20, 370);
4629          Canvas.LineTo(600, 370);
4630    
4631    
4632          //Tegn skrå streger over afsender
4633          Canvas.Pen.Width := 1;
4634          Canvas.MoveTo(600, 250);
4635          Canvas.LineTo(350, 360);
4636          Canvas.MoveTo(600, 360);
4637          Canvas.LineTo(350, 250);
4638    
4639    
4640    
4641    
4642          // Resten af rutinen vedr genering og placering af Barcode
4643    
4644          BarCode.BarCodeType := bcCode128;
4645          BarCode.Code128Subset := csCodeC;
4646          BarCode.Code := PakkeshopLabel.Stregkode;
4647          BarCode.Validate(True);
4648    
4649          //Start X-formation
4650          //ShowMessage( Format('%d %d', [PageWidth, PageHeight]) );
4651          GetWorldTransform(Canvas.Handle, XFormOld);
4652    
4653          Angle := 270;
4654          XForm.eM11 := Cos(DegToRad(Angle));
4655          XForm.eM12 := Sin(DegToRad(Angle));
4656          XForm.eM21 := -Sin(DegToRad(Angle));
4657          XForm.eM22 := Cos(DegToRad(Angle));
4658          XForm.eDx := 0;
4659          XForm.eDy := 0;
4660    
4661          gMode := SetGraphicsMode(Canvas.Handle, GM_ADVANCED);
4662          SetWorldTransform(Canvas.Handle, XForm);
4663    
4664          // PaintToCanvasSize arbejder i Inches
4665          // Første pos argument bliver nu Y og skal være negativ for at rykke den ned
4666          //Anden pos er X og skal være positiv for at justere ind fra venstre mod højre
4667    
4668          BarCode.PaintToCanvasSize(Printer.Canvas, -1.8, 3.3, 0.4);
4669    
4670    
4671          SetWorldTransform(Canvas.Handle, XFormOld);
4672          SetGraphicsMode(Canvas.Handle, gMode);
4673    
4674          EndDoc();
4675        end;
4676    
4677    
4678    end;
4679    
4680    function GetPixelsPerInchX(): Integer;
4681    begin
4682      Result := GetDeviceCaps(Printer.Handle, LOGPIXELSX)
4683    end;
4684    
4685    function GetPixelsPerInchY(): Integer;
4686  begin  begin
4687    Result  := 0;    Result := GetDeviceCaps(Printer.Handle, LOGPIXELSY)
   S2 := S + Border;  
   repeat  
     SetLength(A, Length(A) + 1);  
     a[Result] := Copy(S2, 0,Pos(Border, S2) - 1);  
     Delete(S2, 1,Length(a[Result] + Border));  
     Inc(Result);  
   until S2 = '';  
4688  end;  end;
4689    
4690    
4691  procedure TMainForm.IndlesManglendeScanninger();  procedure TMainForm.IndlesManglendeScanninger();
4692  var  var
4693    WebSvar : String;    WebSvar : String;
# Line 4905  var Line 4700  var
4700    pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer;    pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer;
4701    pakketyper : TStrings;    pakketyper : TStrings;
4702    antlin : Integer;    antlin : Integer;
4703  // 20150306: start  
4704    antlinIdag, antlinSenere : Integer;    antlinIdag, antlinSenere : Integer;
4705  // 20150306: slut  
4706    XmlFelter : TStrings;    XmlFelter : TStrings;
4707    
4708   begin   begin
# Line 4927  var Line 4722  var
4722          StedKode := Sted;          StedKode := Sted;
4723        end;        end;
4724    
4725  // 20150310: start  
4726  (*  
4727      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  
4728       begin       begin
4729        URLStr := Format(UrlManglendeScanninger,[StedKode,'B2']);        URLStr := Format(UrlIndleveringsPakkeManglendeScanninger, [StedKode]);
4730       end       end
4731      else      else if (Scanningtype = '6') then
      begin  
       URLStr := Format(UrlManglendeScanninger,[StedKode,'A2']);    // Budleveringer  
      end;  
 *)  
     if (Scanningtype = '6') then  
4732       begin       begin
4733        URLStr := Format(UrlPakkeshopManglendeReturScanninger,[StedKode]);        URLStr := Format(UrlPakkeshopManglendeReturScanninger, [StedKode]);
4734       end       end
4735      else if (Scanningtype = '5') then      else if (Scanningtype = '5') then
4736       begin       begin
4737        URLStr := Format(UrlPakkeshopManglendeScanninger,[StedKode]);        URLStr := Format(UrlPakkeshopManglendeScanninger, [StedKode]);
4738       end       end
4739      else if (Scanningtype = '1') then      else if (Scanningtype = '1') then
4740       begin       begin
# Line 4989  var Line 4771  var
4771      try      try
4772        XMLDocument1.LoadFromXML(WebSvar);        XMLDocument1.LoadFromXML(WebSvar);
4773    
4774  // 20150206: start  
4775        antlin := 0;        antlin := 0;
4776        antlinIdag := 0;        antlinIdag := 0;
4777        antlinSenere := 0;        antlinSenere := 0;
4778  // 20150306: slut  
       antalFelterFundet := 0;  
4779        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin
4780            Node:= XMLDocument1.DocumentElement.ChildNodes[I];            Node:= XMLDocument1.DocumentElement.ChildNodes[I];
4781            if Node.NodeType = ntElement then begin            if Node.NodeType = ntElement then begin
# Line 5026  var Line 4807  var
4807        antalFelterFundet := 0;        antalFelterFundet := 0;
4808        SetLength(stregkoderMedTjekkodeArray, 0);    // reset fra tidligere brug        SetLength(stregkoderMedTjekkodeArray, 0);    // reset fra tidligere brug
4809        SetLength(stregkoderMedTjekkodeArray, antlin);  // sæt antal elementer i array        SetLength(stregkoderMedTjekkodeArray, antlin);  // sæt antal elementer i array
4810  // 20150206: start  
 //      logTekst := 'Der er '+IntToStr(antlin)+' pakker, der endnu ikke er modtaget.';  
4811        logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget';        logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget';
4812        if (antlinSenere > 0) then        if (antlinSenere > 0) then
4813        begin        begin
4814          logTekst := logTekst + ' (' + IntToStr(antlinIdag) + ' til i dag og ' + IntToStr(antlinSenere) + ' til senere)';          logTekst := logTekst + ' (' + IntToStr(antlinIdag) + ' til i dag og ' + IntToStr(antlinSenere) + ' til senere)';
4815        end;        end;
4816        logTekst := logTekst + '.';        logTekst := logTekst + '.';
4817  // 20150306: slut  
4818        SkrivScanningLogFil(logTekst);        SkrivScanningLogFil(logTekst);
4819        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin
4820            Node:= XMLDocument1.DocumentElement.ChildNodes[I];            Node:= XMLDocument1.DocumentElement.ChildNodes[I];
# Line 5078  var Line 4858  var
4858  //                    stregkoderMedTjekkodeArray[linienr] := stregkode;  //                    stregkoderMedTjekkodeArray[linienr] := stregkode;
4859                    if (pos(' ', stregkode) > 0) then                    if (pos(' ', stregkode) > 0) then
4860                    begin                    begin
4861                      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
4862                    end                    end
4863                    else                    else
4864                    begin                    begin
4865                      stregkoderMedTjekkodeArray[linienr] := stregkode;                      stregkoderMedTjekkodeArray[linienr] := stregkode;
4866                    end;                    end;
4867  // 20150306: slut                    linienr := linienr + 1;
                     linienr := linienr + 1;  
4868                  end;                  end;
4869              end;              end;
4870              if antalFelterFundet = antalLiniefelter then              if antalFelterFundet = antalLiniefelter then
# Line 5110  var Line 4889  var
4889    
4890          // Free up the list object          // Free up the list object
4891        pakketyper.Free;        pakketyper.Free;
 // 20150306: start  
4892  //      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.');
4893        logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget';        logTekst := 'Der er ' + IntToStr(antlin) + ' pakker, der endnu ikke er modtaget';
4894        if (antlinSenere > 0) then        if (antlinSenere > 0) then
# Line 5119  var Line 4897  var
4897        end;        end;
4898        logTekst := logTekst + '.';        logTekst := logTekst + '.';
4899        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
 // 20150306: slut  
 // 20150309: start  
4900        if (antlinSenere > 0) then        if (antlinSenere > 0) then
4901        begin        begin
4902          StaticTextManglendePakker.Caption := IntToStr(antlinIdag) + '/' + IntToStr(antlinSenere);          StaticTextManglendePakker.Caption := IntToStr(antlinIdag) + '/' + IntToStr(antlinSenere);
# Line 5129  var Line 4905  var
4905        begin        begin
4906          StaticTextManglendePakker.Caption := IntToStr(antlinIdag);          StaticTextManglendePakker.Caption := IntToStr(antlinIdag);
4907        end;        end;
 // 20150309: slut  
4908    
 // 20150310: start  
4909        if (Scanningtype = '1') then        if (Scanningtype = '1') then
4910        begin        begin
4911          //antlinIdag := 9876;  // til test af boksens udseende ved stort tal          //antlinIdag := 9876;  // til test af boksens udseende ved stort tal
# Line 5210  var Line 4984  var
4984            PanelManglendePakker6.Visible := false;            PanelManglendePakker6.Visible := false;
4985          end;          end;
4986        end;        end;
 // 20150310: slut  
4987    
4988      except on e:exception do      except on e:exception do
4989        begin        begin
# Line 5272  end; Line 5045  end;
5045  procedure TMainForm.SkrivScanningLogFil(var tekst : string);  procedure TMainForm.SkrivScanningLogFil(var tekst : string);
5046  var  var
5047     SomeTxtFile : TextFile;     SomeTxtFile : TextFile;
    buffer : string;  
    S: string;  
5048     idag, imorgen : TDateTime;     idag, imorgen : TDateTime;
5049     imorgenYmd : string;     imorgenYmd : string;
5050     logFilnavn : string;     logFilnavn : string;
5051      error : Integer;     //error : Integer;
5052    
5053  begin  begin
5054    if (SkrivLog = '1') then    if (SkrivLog = '1') then
# Line 5369  begin Line 5140  begin
5140          ReadLn(SomeTxtFile, buffer) ;          ReadLn(SomeTxtFile, buffer) ;
5141          S := buffer;          S := buffer;
5142          SetLength(A,0);          SetLength(A,0);
5143          Explode(A, ';', S);          TUtils.Explode(A, ';', S);
5144          if (length(A) < 2) then          if (length(A) < 2) then
5145          begin          begin
5146            Explode(A, ',', S);            TUtils.Explode(A, ',', S);
5147          end;          end;
5148            if (length(A) > 1) then            if (length(A) > 1) then
5149            begin            begin
# Line 5446  begin Line 5217  begin
5217          ReadLn(SomeTxtFile, buffer) ;          ReadLn(SomeTxtFile, buffer) ;
5218          S := buffer;          S := buffer;
5219          SetLength(A,0);          SetLength(A,0);
5220          Explode(A, ';', S);          TUtils.Explode(A, ';', S);
5221          if (length(A) < 3) then          if (length(A) < 3) then
5222          begin          begin
5223            Explode(A, ',', S);            TUtils.Explode(A, ',', S);
5224          end;          end;
5225          if (A[0]=imorgenYmd) then          if (A[0]=imorgenYmd) then
5226          begin          begin
# Line 5541  begin Line 5312  begin
5312    result := svar;    result := svar;
5313  end;  end;
5314    
5315    procedure TMainForm.VisAlarmSkaerm(strMessage: string);
5316    begin
5317      //ShowMessage('Ændring ikke tilladt');
5318      // Her skal komme en 'rød skærm' alarm
5319      PlaySound(PWideChar(AlarmLyd));
5320      MainForm.Color := clRed;
5321    
5322    
5323      RuteNummerST.Caption := '';
5324      BoghandlerNavnST.Caption := '';
5325      btnNulstil.Visible := true;
5326    
5327      if (strMessage <> '') then
5328      begin
5329        ListBox1.Items.Insert(0, strMessage);
5330        KommentarST.Caption := strMessage;
5331      end;
5332    
5333    end;
5334    
5335  function TMainForm.getProddato() : TDate;  function TMainForm.getProddato() : TDate;
5336  var  var
5337     idag, imorgen : TDateTime;     idag, imorgen : TDateTime;
# Line 5622  procedure TMainForm.Scanogstjekkoden1Cli Line 5413  procedure TMainForm.Scanogstjekkoden1Cli
5413  begin  begin
5414    if Scanogstjekkoden1.Checked then    if Scanogstjekkoden1.Checked then
5415    begin    begin
5416       CheckBox3.Checked := true;       chkScanTjekkode.Checked := true;
5417    end    end
5418    else    else
5419    begin    begin
5420       CheckBox3.Checked := false;       chkScanTjekkode.Checked := false;
5421    end;    end;
5422  end;  end;
5423    
5424  function TMainForm.AdobeReaderExists: Boolean;  
5425    
5426    
5427    function TMainForm.CheckUrl(url:string):boolean;
5428  var  var
5429    AReg: TRegistry;    hSession, hfile: hInternet;
5430      dwindex,dwcodelen :dword;
5431      dwcode:array[1..20] of char;
5432      res : pchar;
5433  begin  begin
5434    result:= false;    if pos('http://',lowercase(url))=0 then
5435    AReg := TRegistry.Create;      url := 'http://'+url;
5436    AReg.RootKey := HKEY_LOCAL_MACHINE;    Result := false;
5437    if AReg.KeyExists('\SOFTWARE\Adobe\Acrobat Reader') then    hSession := InternetOpen('InetURL:/1.0',
5438      result:= True;                              INTERNET_OPEN_TYPE_PRECONFIG,
5439    AReg.Free;                              nil,
5440                                nil,
5441                                0);
5442      if assigned(hsession) then
5443      begin
5444        hfile := InternetOpenUrl(hsession,
5445                                 pchar(url),
5446                                 nil,
5447                                 0,
5448                                 INTERNET_FLAG_RELOAD,
5449                                 0);
5450        dwIndex := 0;
5451        dwCodeLen := 10;
5452        HttpQueryInfo(hfile,
5453                      HTTP_QUERY_STATUS_CODE,
5454                      @dwcode,
5455                      dwcodeLen,
5456                      dwIndex);
5457        res := pchar(@dwcode);
5458        result:= (res ='200') or (res ='302');
5459        if assigned(hfile) then
5460          InternetCloseHandle(hfile);
5461        InternetCloseHandle(hsession);
5462      end;
5463    
5464  end;  end;
5465    
5466    
5467  procedure TMainForm.CheckPrintQue(tjektype : string);  procedure TMainForm.CheckPrintQue(tjektype : string);
5468  type  type
5469    TJobs  = array [0..1000] of JOB_INFO_1;    TJobs  = array [0..1000] of JOB_INFO_1;
# Line 5745  begin Line 5567  begin
5567    end;    end;
5568  end;  end;
5569    
 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  
5570    
5571  end.  end.
5572    
Legend:
Removed from v.2650  
changed lines
  Added in v.2691
  ViewVC Help
Powered by ViewVC 1.1.20