/[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 3036 by torben, Mon May 23 13:03:49 2016 UTC revision 3090 by torben, Mon Aug 15 19:26:48 2016 UTC
# Line 26  uses Line 26  uses
26    LabelPrint,    LabelPrint,
27    Configuration,    Configuration,
28    Vcl.Imaging.pngimage,    Vcl.Imaging.pngimage,
29    Generics.Collections    Generics.Collections,
30      TimingHelper
31    
32    ;    ;
33    
# Line 39  type Line 40  type
40      XMLDocument1: TXMLDocument;      XMLDocument1: TXMLDocument;
41      ApplicationEvents1: TApplicationEvents;      ApplicationEvents1: TApplicationEvents;
42      chkSporgEfterKunde: TCheckBox;      chkSporgEfterKunde: TCheckBox;
     KommentarST: TStaticText;  
43      MainMenu1: TMainMenu;      MainMenu1: TMainMenu;
44      N1: TMenuItem;      N1: TMenuItem;
45      Pakkernormal1: TMenuItem;      menuNatXpress1: TMenuItem;
46      ReturpakkerfraDAO1: TMenuItem;      menuNatxpressReturDAO1: TMenuItem;
47      Returpakkerfraboghandler1: TMenuItem;      menuNatxpressReturfraKunde1: TMenuItem;
48      Hjlp1: TMenuItem;      Hjlp1: TMenuItem;
49      Om1: TMenuItem;      Om1: TMenuItem;
50      Testforbindelsen1: TMenuItem;      Testforbindelsen1: TMenuItem;
# Line 57  type Line 57  type
57      radioStorPakke: TRadioButton;      radioStorPakke: TRadioButton;
58      radioLillePakke: TRadioButton;      radioLillePakke: TRadioButton;
59      N4: TMenuItem;      N4: TMenuItem;
60      Storepakker1: TMenuItem;      menuStorePakker: TMenuItem;
61      Smpakker1: TMenuItem;      menuSmaaPakker: TMenuItem;
62      Panel1: TPanel;      Panel1: TPanel;
63      Testlyd2: TMenuItem;      Testlyd2: TMenuItem;
64      Button1: TButton;      Button1: TButton;
65      Testlyd1: TMenuItem;      Testlyd1: TMenuItem;
66      ListBox1: TListBox;      ListBox1: TListBox;
67      Budlevering1: TMenuItem;      menuDaoDirekte1: TMenuItem;
68      BtnDownloadKontrolfil: TButton;      BtnDownloadKontrolfil: TButton;
69      IdFTP1: TIdFTP;      IdFTP1: TIdFTP;
70      Image1: TImage;      Image1: TImage;
# Line 72  type Line 72  type
72      BtnOpdaterListen: TButton;      BtnOpdaterListen: TButton;
73      BtnUploadLogfil: TButton;      BtnUploadLogfil: TButton;
74      BtnDownloadRuteskiftFil: TButton;      BtnDownloadRuteskiftFil: TButton;
75      Pakkeshoplevering1: TMenuItem;      menuPakkeshop1: TMenuItem;
76      PakkeshopText1: TStaticText;      PakkeshopText1: TStaticText;
77      btnNulstil: TButton;      btnNulstil: TButton;
78      Returpakkerfrapakkeshop1: TMenuItem;      menuPakkeshopRetur1: TMenuItem;
79      Altidprintepakkelabel1: TMenuItem;      Altidprintepakkelabel1: TMenuItem;
80      chkAltidPrintLabel: TCheckBox;      chkAltidPrintLabel: TCheckBox;
81      BtnEKLoverforsel: TButton;      BtnEKLoverforsel: TButton;
# Line 86  type Line 86  type
86      Timer1: TTimer;      Timer1: TTimer;
87      chkScanTjekkode: TCheckBox;      chkScanTjekkode: TCheckBox;
88      Scanogstjekkoden1: TMenuItem;      Scanogstjekkoden1: TMenuItem;
89      Automatisktjekkodestyring1: TMenuItem;      menuAutomatiskTjekkodeStyring: TMenuItem;
90      Automatiskvalg1: TMenuItem;      menuAutomatiskvalg1: TMenuItem;
91      PanelValgA: TPanel;      PanelValgA: TPanel;
92      PanelValg1: TPanel;      PanelValg1: TPanel;
93      PanelValg2: TPanel;      PanelValg2: TPanel;
# Line 106  type Line 106  type
106      PanelManglendePakker6: TPanel;      PanelManglendePakker6: TPanel;
107      menuIndlevering: TMenuItem;      menuIndlevering: TMenuItem;
108      chkForstorTilDirekte: TCheckBox;      chkForstorTilDirekte: TCheckBox;
109        chkEmballageRepareret: TCheckBox;
110        KommentarST: TLabel;
111        chkUdenforSpecifikation: TCheckBox;
112    
113    
114    
# Line 127  type Line 130  type
130    procedure radioStorPakkeClick(Sender: TObject);    procedure radioStorPakkeClick(Sender: TObject);
131    procedure radioLillePakkeClick(Sender: TObject);    procedure radioLillePakkeClick(Sender: TObject);
132    procedure chkSporgEfterKundeClick(Sender: TObject);    procedure chkSporgEfterKundeClick(Sender: TObject);
133    procedure Pakkernormal1Click(Sender: TObject);    procedure menuNatXpress1Click(Sender: TObject);
134    procedure Testforbindelsen1Click(Sender: TObject);    procedure Testforbindelsen1Click(Sender: TObject);
135    procedure Testprinter1Click(Sender: TObject);    procedure Testprinter1Click(Sender: TObject);
136    procedure Om1Click(Sender: TObject);    procedure Om1Click(Sender: TObject);
137    procedure Lukprogrammet1Click(Sender: TObject);    procedure Lukprogrammet1Click(Sender: TObject);
138    procedure Sprgefterboghandlernummer1Click(Sender: TObject);    procedure Sprgefterboghandlernummer1Click(Sender: TObject);
139    procedure ReturpakkerfraDAO1Click(Sender: TObject);    procedure menuNatxpressReturDAO1Click(Sender: TObject);
140    procedure Returpakkerfraboghandler1Click(Sender: TObject);    procedure menuNatxpressReturfraKunde1Click(Sender: TObject);
141    procedure Storepakker1Click(Sender: TObject);    procedure menuStorePakkerClick(Sender: TObject);
142    procedure Smpakker1Click(Sender: TObject);    procedure menuSmaaPakkerClick(Sender: TObject);
143    procedure Testlyd1Click(Sender: TObject);    procedure Testlyd1Click(Sender: TObject);
144    procedure Testlyd2Click(Sender: TObject);    procedure Testlyd2Click(Sender: TObject);
145    procedure Button1Click(Sender: TObject);    procedure Button1Click(Sender: TObject);
146    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
147    procedure Budlevering1Click(Sender: TObject);    procedure menuDaoDirekte1Click(Sender: TObject);
148    procedure BtnDownloadKontrolfilClick(Sender: TObject);    procedure BtnDownloadKontrolfilClick(Sender: TObject);
149    procedure BtnOpdaterListenClick(Sender: TObject);    procedure BtnOpdaterListenClick(Sender: TObject);
150    procedure DownloadBladhusRuteskiftfil();    procedure DownloadBladhusRuteskiftfil();
# Line 153  type Line 156  type
156    procedure FormDestroy(Sender: TObject);    procedure FormDestroy(Sender: TObject);
157    procedure BtnUploadLogfilClick(Sender: TObject);    procedure BtnUploadLogfilClick(Sender: TObject);
158    procedure BtnDownloadRuteskiftFilClick(Sender: TObject);    procedure BtnDownloadRuteskiftFilClick(Sender: TObject);
159    procedure Pakkeshoplevering1Click(Sender: TObject);    procedure menuPakkeshop1Click(Sender: TObject);
160    procedure btnNulstilClick(Sender: TObject);    procedure btnNulstilClick(Sender: TObject);
161    procedure Returpakkerfrapakkeshop1Click(Sender: TObject);    procedure menuPakkeshopRetur1Click(Sender: TObject);
162    procedure InitNatxpresslevering();    procedure InitNatxpresslevering();
163    procedure InitReturFraDao();    procedure InitReturFraDao();
164    procedure InitReturFraKunde();    procedure InitReturFraKunde();
# Line 172  type Line 175  type
175    procedure Timer1Timer(Sender: TObject);    procedure Timer1Timer(Sender: TObject);
176    procedure Scanogstjekkoden1Click(Sender: TObject);    procedure Scanogstjekkoden1Click(Sender: TObject);
177    procedure chkScanTjekkodeClick(Sender: TObject);    procedure chkScanTjekkodeClick(Sender: TObject);
178    procedure Automatisktjekkodestyring1Click(Sender: TObject);    procedure menuAutomatiskTjekkodeStyringClick(Sender: TObject);
179    procedure SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);    procedure SendInfoTilServer(Sted, Scanningtype, Infotype, Info : String);
180    procedure Automatiskvalg1Click(Sender: TObject);    procedure menuAutomatiskvalg1Click(Sender: TObject);
181    procedure PanelValgAClick(Sender: TObject);    procedure PanelValgAClick(Sender: TObject);
182    procedure PanelValg1Click(Sender: TObject);    procedure PanelValg1Click(Sender: TObject);
183    procedure PanelValg2Click(Sender: TObject);    procedure PanelValg2Click(Sender: TObject);
# Line 195  type Line 198  type
198    
199    
200    //Nedarvet fra IParentForm    //Nedarvet fra IParentForm
201      procedure Msg( msg : string);
202    procedure LogMessage( msg : string);    procedure LogMessage( msg : string);
203    procedure SetPrinterstatusText( txt: string; alert: boolean);    procedure SetPrinterstatusText( txt: string; alert: boolean);
204    function GetFormObject() : TForm;    function GetFormObject() : TForm;
205    
206    
207    
208    private    private
209      SpecialVersionSted, SpecialVersionScanningtype: String;    // Bruges når programmet skal bruges udenfor DAO scanningssteder      SpecialVersionSted, SpecialVersionScanningtype: String;    // Bruges når programmet skal bruges udenfor DAO scanningssteder
210      Stregkode : String;      Stregkode : String;
211      SkrivLog : String;      SkrivLog : String;
212      Sted : String;      Sted : String;
213      StedNavn : String;      StedNavn : String;
     Url, UrlNormal, UrlReturDAO, UrlReturBoghandler, UrlBudlevering, UrlManglendeScanninger, UrlPakkeshoplevering,  
             UrlReturPakkeshop, UrlPakkeshopManglendeScanninger, UrlPakkeshopManglendeReturScanninger,UrlIndleveringsPakke,  
             UrlIndleveringsPakkeManglendeScanninger,UrlEKLoverforsel, URLOmdirigerTilPakkeshop : String;  
214    
215      UrlEKLoverforselPakkeshop : String;      Scanningtype,  Pakketype : String;
216    
     UrlFindPakketype, UrlSendPrograminfo: String;  
     Scanningtype, TestFunktionen, Pakketype, SporgEfterBoghandler : String;  
     ScanTjekkode : String;  
     ScanTjekkodeAutomatik : string;  
217    
218      Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop,      Url : String;
           FarveIndlevering : String;  
219    
220      Titel, TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop,      Farve : String;
           TitelIndlevering : String;  
221    
222      AlarmLyd : String;      Titel : String;
     ScannetOkLyd : String;  
     ScannetOkStorLyd : String;  
223    
     ScannetOkTilTjekkodeLyd : String;  
224    
     PrinterNavn : String;  
     TjekPrinter : String;  
225    
226      Org_RuteNummerST, Org_BoghandlerNavnST, Org_KommentarST : String;      Org_RuteNummerST, Org_BoghandlerNavnST, Org_KommentarST : String;
227      BladhusSted : Integer;      BladhusSted : Integer;
# Line 243  type Line 234  type
234      logTekst : string;      logTekst : string;
235      PakkeshopStregkode, PakkeshopTjekkode : String;      PakkeshopStregkode, PakkeshopTjekkode : String;
236      BoghandlerStregkode, BoghandlerTjekkode : String;      BoghandlerStregkode, BoghandlerTjekkode : String;
237      TjekUrls : String;  
238      Config : TConfiguration;      Config : TConfiguration;
239    
240    
# Line 260  type Line 251  type
251      procedure SkrivScanningLogFil(var tekst : string);      procedure SkrivScanningLogFil(var tekst : string);
252      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;
253      procedure VisAlarmSkaerm(strMessage: string);      procedure VisAlarmSkaerm(strMessage: string);
254      function InjectURL(Url : String) : String;  
255    
256    public    public
257      { Public declarations }      { Public declarations }
# Line 286  implementation Line 277  implementation
277  procedure TMainForm.InitForm(Farve,Titel,Url : String);  procedure TMainForm.InitForm(Farve,Titel,Url : String);
278  begin  begin
279    
280        IdHTTP1.ConnectTimeout := 5000; // Vent max 5 sek på connect
281        IdHTTP1.ReadTimeout := 10000; // Vent max 10 sek på read
282    
283    
284    
285    
286      StaticTextManglendePakker.Caption := '';      StaticTextManglendePakker.Caption := '';
287    
288    
# Line 397  begin Line 394  begin
394        PrinterstatusStaticText1.Color := MainForm.Color;        PrinterstatusStaticText1.Color := MainForm.Color;
395      end;      end;
396    
397      if PakkeshopLevering1.Checked or Pakkernormal1.Checked then      if menuPakkeshop1.Checked or menuNatXpress1.Checked then
398        PakkeshopText1.Visible := true        PakkeshopText1.Visible := true
399      else      else
400        PakkeshopText1.Visible := false;        PakkeshopText1.Visible := false;
# Line 408  begin Line 405  begin
405    
406      if (Scanningtype = '1') or (Scanningtype = '5') then      if (Scanningtype = '1') or (Scanningtype = '5') then
407      begin      begin
408        if (ScanTjekkode = '1') then        if (Config.ScanTjekkode = '1') then
409        begin        begin
410          chkScanTjekkode.Checked := true;          chkScanTjekkode.Checked := true;
411          chkScanTjekkode.Enabled := true;          chkScanTjekkode.Enabled := true;
# Line 422  begin Line 419  begin
419        end;        end;
420      end;      end;
421    
422      if Automatisktjekkodestyring1.Checked then      if menuAutomatiskTjekkodeStyring.Checked then
423      begin      begin
424        chkScanTjekkode.Enabled := false;        chkScanTjekkode.Enabled := false;
425        Scanogstjekkoden1.Enabled := false;        Scanogstjekkoden1.Enabled := false;
# Line 480  begin Line 477  begin
477    StregkodeST.Caption := Stregkode;    StregkodeST.Caption := Stregkode;
478  end;  end;
479    
480  procedure TMainForm.Automatisktjekkodestyring1Click(Sender: TObject);  procedure TMainForm.menuAutomatiskTjekkodeStyringClick(Sender: TObject);
481  begin  begin
482    if Automatisktjekkodestyring1.Checked then    if menuAutomatiskTjekkodeStyring.Checked then
483    begin    begin
484       chkScanTjekkode.Enabled := false;       chkScanTjekkode.Enabled := false;
485       Scanogstjekkoden1.Enabled := false;       Scanogstjekkoden1.Enabled := false;
# Line 495  begin Line 492  begin
492    
493  end;  end;
494    
495  procedure TMainForm.Automatiskvalg1Click(Sender: TObject);  procedure TMainForm.menuAutomatiskvalg1Click(Sender: TObject);
496  begin  begin
497  // Skal ikke toggle men bare sætte funktionen on  // Skal ikke toggle men bare sætte funktionen on
498  // Fravælges ved at vælge en scanningstype  // Fravælges ved at vælge en scanningstype
499       AutomatiskValg1.Checked := true;       menuAutomatiskvalg1.Checked := true;
500       PanelValgA.Color := clGreen;       PanelValgA.Color := clGreen;
501       PanelValgA.Font.Color := clWhite;       PanelValgA.Font.Color := clWhite;
502  end;  end;
503    
 function TMainForm.InjectURL(Url : String) : String;  
 begin  
   
   Url := Url + '&ver=' + TUtils.URLEncode( TUtils.Sto_GetFmtFileVersion(''));  
   Url := Url + '&host=' + TUtils.URLEncode( TUtils.GetComputerNameHelper());  
   Url := Url + '&user=' + TUtils.URLEncode( TUtils.GetCurrentUserName());  
504    
   Result := Url;  
 end;  
505    
506  //InitForm kaldes før FormCreate  //InitForm kaldes før FormCreate
507  procedure TMainForm.FormCreate(Sender: TObject);  procedure TMainForm.FormCreate(Sender: TObject);
# Line 549  begin Line 538  begin
538    
539  // Sætter lige en default panel størrelse  // Sætter lige en default panel størrelse
540    MainForm.ClientWidth := 1000;    MainForm.ClientWidth := 1000;
541    MainForm.ClientHeight := 750;    MainForm.ClientHeight := 820;
542    
543    Config := TConfiguration.Create();    Config := TConfiguration.Create();
544    Config.ReadFromInifile( TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) );    //ToDo: clean up duplicate ini ref    Config.ReadFromInifile( TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) );    //ToDo: clean up duplicate ini ref
# Line 564  begin Line 553  begin
553      Sted := ReadString('Settings','Sted','');      Sted := ReadString('Settings','Sted','');
554      StedNavn := ReadString('Settings','Stednavn','');      StedNavn := ReadString('Settings','Stednavn','');
555    
     UrlFindPakketype := ReadString('Settings','UrlFindPakketype','http://omdeling.info/webservices/bogpakkekontrol/FindPakketype.php?stregkode=%s');  
     UrlFindPakketype := InjectURL(UrlFindPakketype);  
   
     UrlSendPrograminfo := ReadString('Settings','UrlSendPrograminfo','http://omdeling.info/webservices/bogpakkekontrol/SendPrograminfo.php?programnavn=%s&sted=%s&scanningtype=%s&infotype=%s&info=%s');  
     UrlSendPrograminfo := InjectURL(UrlSendPrograminfo);  
   
     UrlNormal := ReadString('Settings','UrlNormal','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&tjekkode=%s');  
     UrlNormal := InjectURL(UrlNormal);  
   
     UrlReturDAO := ReadString('Settings','UrlReturDAO','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&returpakketype=%s&pakkestorrelse=%s');  
     UrlReturDAO := InjectURL(UrlReturDAO);  
   
     UrlReturBoghandler := ReadString('Settings','UrlReturBoghandler','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&returpakketype=%s&pakkestorrelse=%s');  
     UrlReturBoghandler := InjectURL(UrlReturBoghandler);  
   
     UrlBudlevering := ReadString('Settings','UrlBudlevering','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&leveringstype=%s&pakkestorrelse=%s');  
     UrlBudlevering := InjectURL(UrlBudlevering);  
   
     UrlManglendeScanninger := ReadString('Settings','UrlManglendeScanninger','http://omdeling.info/webservices/bogpakkekontrol/bogpakkemanglendescanninger.php?sted=%s&type=%s');  
     UrlManglendeScanninger := InjectURL(UrlManglendeScanninger);  
   
     UrlEKLoverforsel := ReadString('Settings','UrlEKLoverforsel','http://omdeling.info/webservices/bogpakkekontrol/bogpakkertilekl.php?sted=%s');  
     UrlEKLoverforsel := InjectURL(UrlEKLoverforsel);  
   
     UrlEKLoverforselPakkeshop := ReadString('Settings','UrlEKLoverforselPakkeshop','http://omdeling.info/webservices/pakkeshop/pakkertilekl.php?sted=%s');  
     UrlEKLoverforselPakkeshop := InjectURL(UrlEKLoverforselPakkeshop);  
   
     UrlPakkeshoplevering := ReadString('Settings','UrlPakkeshoplevering','http://omdeling.info/webservices/pakkeshop/pakkekontrol.php?sted=%s&stregkode=%s&tjekkode=%s');  
     UrlPakkeshoplevering := InjectURL(UrlPakkeshoplevering);  
   
     UrlReturPakkeshop := ReadString('Settings','UrlReturPakkeshop','http://omdeling.info/webservices/pakkeshop/returpakkekontrol.php?sted=%s&stregkode=%s');  
     UrlReturPakkeshop := InjectURL(UrlReturPakkeshop);  
   
     UrlPakkeshopManglendeScanninger := ReadString('Settings','UrlPakkeshopManglendeScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendescanninger.php?sted=%s');  
     UrlPakkeshopManglendeScanninger := InjectURL(UrlPakkeshopManglendeScanninger);  
   
     UrlPakkeshopManglendeReturScanninger := ReadString('Settings','UrlPakkeshopManglendeReturScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendereturscanninger.php?sted=%s');  
     UrlPakkeshopManglendeReturScanninger := InjectURL(UrlPakkeshopManglendeReturScanninger);  
   
     UrlIndleveringsPakke := ReadString('Settings','UrlIndleveringsPakke','http://omdeling.info/webservices/pakkeshop/PakkekontrolIndleveringskode.php?sted=%s&pakkekode=%s');  
     UrlIndleveringsPakke := InjectURL(UrlIndleveringsPakke);  
   
     UrlIndleveringsPakkeManglendeScanninger := ReadString('Settings', 'UrlIndleveringsPakkeManglendeScanninger','http://omdeling.info/webservices/pakkeshop/IndleveringsPakkeManglendeScanninger.php?sted=%s');  
     UrlIndleveringsPakkeManglendeScanninger := InjectURL(UrlIndleveringsPakkeManglendeScanninger);  
   
     URLOmdirigerTilPakkeshop := ReadString('Settings', 'URLOmdirigerTilPakkeshop','http://omdeling.info/webservices/pakkeshop/PakkeKontrolOmdirigerTilPakkeshop.php?sted=%s&stregkode=%s');  
     URLOmdirigerTilPakkeshop := InjectURL(URLOmdirigerTilPakkeshop);  
   
   
556    
     FarveNormal := ReadString('Settings','FarveNormal','D8D8D8');  
     TitelNormal := ReadString('Settings','TitelNormal','Modtagelse af DAO NAT X-PRESS pakker');  
     FarveReturDAO := ReadString('Settings','FarveReturDAO','A9F5A9');  
     TitelReturDAO := ReadString('Settings','TitelReturDAO','Returforsendelse fra DAO');  
     FarveReturBoghandler := ReadString('Settings','FarveReturBoghandler','F2F5A9');  
     TitelReturBoghandler := ReadString('Settings','TitelReturBoghandler','Returforsendelse fra boghandler');  
     FarveBudlevering := ReadString('Settings','FarveBudlevering','2E9AFE');  
     TitelBudlevering := ReadString('Settings','TitelBudlevering','Modtagelse af DAO DIREKTE pakker');  
     FarvePakkeshoplevering := ReadString('Settings','FarvePakkeshoplevering','99FFFF');  
     TitelPakkeshoplevering := ReadString('Settings','TitelPakkeshoplevering','Modtagelse af DAO PAKKESHOP pakker');  
557    
     FarveReturPakkeshop := ReadString('Settings','FarveReturPakkeshop','99FFCC');  
     TitelReturPakkeshop := ReadString('Settings','TitelReturPakkeshop','Returforsendelse fra pakkeshop');  
558    
     FarveIndlevering := ReadString('Settings', 'FarveIndlevering', 'E5B2CB');  
     TitelIndlevering := ReadString('Settings', 'TitelIndlevering', 'Indleveringskode');  
   
   
     SporgEfterBoghandler := ReadString('Settings','SporgEfterBoghandler','0');  
     ScanTjekkode := ReadString('Settings','ScanTjekkode','0');  
     ScanTjekkodeAutomatik := ReadString('Settings','ScanTjekkodeAutomatik','1');  
     Scanningtype := ReadString('Settings','Scanningtype','A');  
     Pakketype := ReadString('Settings','Pakketype','0');  
     TestFunktionen := ReadString('Settings','TestFunktion','0');  
     AlarmLyd := ReadString('Settings','AlarmLyd','Sounds\Alarm.wav');  
     ScannetOkLyd := ReadString('Settings','ScannetOkLyd','Sounds\Ok.wav');  
     ScannetOkStorLyd := ReadString('Settings','ScannetOkStorLyd','Sounds\Ok_stor.wav');  
   
     ScannetOkTilTjekkodeLyd := ReadString('Settings','ScannetOkTilTjekkodeLyd','Sounds\Ok_til_tjekkode.wav');  
   
     PrinterNavn := ReadString('Settings','PrinterNavn','');  
     TjekPrinter := ReadString('Settings','TjekPrinter','1');  
     TjekUrls := ReadString('Settings','TjekUrls','2');  
559    
560      if (SkrivLog = '1') then      if (SkrivLog = '1') then
561      begin      begin
# Line 666  begin Line 575  begin
575    
576      if Scanningtype = 'A' then      if Scanningtype = 'A' then
577      begin      begin
578        Automatiskvalg1.Checked := true;        menuAutomatiskvalg1.Checked := true;
579        Scanningtype := '1';        Scanningtype := '1';
580        PanelValgA.Color := clGreen;        PanelValgA.Color := clGreen;
581        PanelValgA.Font.Color := clWhite;        PanelValgA.Font.Color := clWhite;
# Line 674  begin Line 583  begin
583    
584    
585    
586      if SporgEfterBoghandler = '1' then      if Config.SporgEfterBoghandler = '1' then
587      begin      begin
588        chkSporgEfterKunde.Checked := true;        chkSporgEfterKunde.Checked := true;
589        Sprgefterboghandlernummer1.Checked := true;        Sprgefterboghandlernummer1.Checked := true;
# Line 685  begin Line 594  begin
594        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
595      end;      end;
596    
597      if ScanTjekkode = '1' then      if Config.ScanTjekkode = '1' then
598      begin      begin
599        chkScanTjekkode.Checked := true;        chkScanTjekkode.Checked := true;
600        Scanogstjekkoden1.Checked := true;        Scanogstjekkoden1.Checked := true;
# Line 696  begin Line 605  begin
605        Scanogstjekkoden1.Checked := false;        Scanogstjekkoden1.Checked := false;
606      end;      end;
607    
608      if ScanTjekkodeAutomatik = '1' then      if Config.ScanTjekkodeAutomatik = '1' then
609      begin      begin
610        Automatisktjekkodestyring1.Checked := true;        menuAutomatiskTjekkodeStyring.Checked := true;
611        chkScanTjekkode.Enabled := false;        chkScanTjekkode.Enabled := false;
612        Scanogstjekkoden1.Enabled := false;        Scanogstjekkoden1.Enabled := false;
613      end;      end;
# Line 741  begin Line 650  begin
650      SpecialVersionSted := 'NS';      SpecialVersionSted := 'NS';
651  {$EndIf}  {$EndIf}
652    
   
653      //SpecialVersionSted := '01';  // NS - bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE)      //SpecialVersionSted := '01';  // NS - bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE)
654      //SpecialVersionSted := '02';  // BK - BRUGES IKKE (brug i stedet ovenstående SpecialVersionSted BK)      //SpecialVersionSted := '02';  // BK - BRUGES IKKE (brug i stedet ovenstående SpecialVersionSted BK)
655      //SpecialVersionSted := '03';  // FD - (bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE)      //SpecialVersionSted := '03';  // FD - (bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE)
# Line 759  begin Line 667  begin
667    
668      if SpecialVersionSted = 'NS' then      if SpecialVersionSted = 'NS' then
669      begin      begin
670         SpecialVersionSted := '01';         //SpecialVersionSted := '01'; // Fra før NS overtog scanning løssalg
671         SpecialVersionScanningtype := '4';         //SpecialVersionScanningtype := '4';
672    
673          //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil
674          Sted := SpecialVersionSted;
675         // her skal vi også disable de knapper BK ikke kan bruge
676          PanelValg2.Enabled := false;
677          PanelValg2.Font.Color := clInactiveCaption;
678          PanelValg3.Enabled := false;
679          PanelValg3.Font.Color := clInactiveCaption;
680          //PanelValg6.Enabled := false;
681          //PanelValg6.Font.Color := clInactiveCaption;
682    
683         // her skal vi også disable de menupunkter FD ikke kan bruge
684          menuNatxpressReturDAO1.Enabled := false;
685          menuNatxpressReturfraKunde1.Enabled := false;
686    
687          //Returpakkerfrapakkeshop1.Enabled := false;
688      end;      end;
689    
690      if SpecialVersionSted = 'FD' then      if SpecialVersionSted = 'FD' then
# Line 780  begin Line 704  begin
704        //PanelValg6.Font.Color := clInactiveCaption;        //PanelValg6.Font.Color := clInactiveCaption;
705    
706       // her skal vi også disable de menupunkter FD ikke kan bruge       // her skal vi også disable de menupunkter FD ikke kan bruge
707        ReturpakkerfraDAO1.Enabled := false;        menuNatxpressReturDAO1.Enabled := false;
708        Returpakkerfraboghandler1.Enabled := false;        menuNatxpressReturfraKunde1.Enabled := false;
709    
710        //Returpakkerfrapakkeshop1.Enabled := false;        //Returpakkerfrapakkeshop1.Enabled := false;
711    
# Line 800  begin Line 724  begin
724        //PanelValg6.Font.Color := clInactiveCaption;        //PanelValg6.Font.Color := clInactiveCaption;
725    
726       // her skal vi også disable de menupunkter BK ikke kan bruge       // her skal vi også disable de menupunkter BK ikke kan bruge
727        ReturpakkerfraDAO1.Enabled := false;        menuNatxpressReturDAO1.Enabled := false;
728        Returpakkerfraboghandler1.Enabled := false;        menuNatxpressReturfraKunde1.Enabled := false;
729    
730        //Returpakkerfrapakkeshop1.Enabled := false;        //Returpakkerfrapakkeshop1.Enabled := false;
731    
# Line 817  begin Line 741  begin
741    
742      if SpecialVersionSted = 'DBK' then      if SpecialVersionSted = 'DBK' then
743      begin      begin
       //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil  
744        Sted := SpecialVersionSted;        Sted := SpecialVersionSted;
       // her skal vi også disable de knapper DBK ikke kan bruge  
       PanelValg2.Enabled := false;  
       PanelValg2.Font.Color := clInactiveCaption;  
       PanelValg3.Enabled := false;  
       PanelValg3.Font.Color := clInactiveCaption;  
       PanelValg5.Enabled := false;  
       PanelValg5.Font.Color := clInactiveCaption;  
       PanelValg6.Enabled := false;  
       PanelValg6.Font.Color := clInactiveCaption;  
   
   
      // her skal vi også disable de menupunkter DBK ikke kan bruge  
       ReturpakkerfraDAO1.Enabled := false;  
       Returpakkerfraboghandler1.Enabled := false;  
   
       Pakkeshoplevering1.Enabled := false;  
       Returpakkerfrapakkeshop1.Enabled := false;  
   
       if SpecialVersionScanningtype = 'A' then  
       begin  
          Scanningtype := '1';  
       end  
       else  
       begin  
         Scanningtype := SpecialVersionScanningtype;  
       end;  
745      end;      end;
746    
747      if (SpecialVersionSted = '01')      if (SpecialVersionSted = '01')
# Line 870  begin Line 767  begin
767        PanelValg7.Font.Color := clInactiveCaption;        PanelValg7.Font.Color := clInactiveCaption;
768       // 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
769    
770        Automatiskvalg1.Enabled := false;        menuAutomatiskvalg1.Enabled := false;
771    
772        Pakkernormal1.Enabled := false;        menuNatXpress1.Enabled := false;
773        ReturpakkerfraDAO1.Enabled := false;        menuNatxpressReturDAO1.Enabled := false;
774        Returpakkerfraboghandler1.Enabled := false;        menuNatxpressReturfraKunde1.Enabled := false;
775        Budlevering1.Enabled := false;        menuDaoDirekte1.Enabled := false;
776        Pakkeshoplevering1.Enabled := false;        menuPakkeshop1.Enabled := false;
777        Returpakkerfrapakkeshop1.Enabled := false;        menuPakkeshopRetur1.Enabled := false;
778        if SpecialVersionScanningtype = 'A' then        if SpecialVersionScanningtype = 'A' then
779        begin        begin
780          Scanningtype := '4';          Scanningtype := '4';
781          Budlevering1.Enabled := true;          menuDaoDirekte1.Enabled := true;
782          PanelValg4.Font.Color := clWindowText;          PanelValg4.Font.Color := clWindowText;
783          PanelValg4.Enabled := true;          PanelValg4.Enabled := true;
784        end        end
# Line 890  begin Line 787  begin
787          Scanningtype := SpecialVersionScanningtype;          Scanningtype := SpecialVersionScanningtype;
788          PanelValgA.Enabled := false;          PanelValgA.Enabled := false;
789          PanelValgA.Font.Color := clInactiveCaption;          PanelValgA.Font.Color := clInactiveCaption;
790          AutomatiskValg1.Checked := false;          menuAutomatiskvalg1.Checked := false;
791          PanelValgA.Color := clBtnFace;          PanelValgA.Color := clBtnFace;
792          if Scanningtype = '1' then          if Scanningtype = '1' then
793          begin          begin
794            Pakkernormal1.Enabled := true;            menuNatXpress1.Enabled := true;
795            PanelValg1.Enabled := true;            PanelValg1.Enabled := true;
796            PanelValg1.Font.Color := clWindowText;            PanelValg1.Font.Color := clWindowText;
797          end;          end;
798          if Scanningtype = '2' then          if Scanningtype = '2' then
799          begin          begin
800            ReturpakkerfraDAO1.Enabled := true;            menuNatxpressReturDAO1.Enabled := true;
801            PanelValg2.Enabled := true;            PanelValg2.Enabled := true;
802            PanelValg2.Font.Color := clWindowText;            PanelValg2.Font.Color := clWindowText;
803          end;          end;
804          if Scanningtype = '3' then          if Scanningtype = '3' then
805          begin          begin
806            Returpakkerfraboghandler1.Enabled := true;            menuNatxpressReturfraKunde1.Enabled := true;
807            PanelValg3.Enabled := true;            PanelValg3.Enabled := true;
808            PanelValg3.Font.Color := clWindowText;            PanelValg3.Font.Color := clWindowText;
809          end;          end;
810          if Scanningtype = '4' then          if Scanningtype = '4' then
811          begin          begin
812            Budlevering1.Enabled := true;            menuDaoDirekte1.Enabled := true;
813            PanelValg4.Enabled := true;            PanelValg4.Enabled := true;
814            PanelValg4.Font.Color := clWindowText;            PanelValg4.Font.Color := clWindowText;
815          end;          end;
816          if Scanningtype = '5' then          if Scanningtype = '5' then
817          begin          begin
818            Pakkeshoplevering1.Enabled := true;            menuPakkeshop1.Enabled := true;
819            PanelValg5.Enabled := true;            PanelValg5.Enabled := true;
820            PanelValg5.Font.Color := clWindowText;            PanelValg5.Font.Color := clWindowText;
821          end;          end;
822          if Scanningtype = '6' then          if Scanningtype = '6' then
823          begin          begin
824            Returpakkerfrapakkeshop1.Enabled := true;            menuPakkeshopRetur1.Enabled := true;
825            PanelValg6.Enabled := true;            PanelValg6.Enabled := true;
826            PanelValg6.Font.Color := clWindowText;            PanelValg6.Font.Color := clWindowText;
827          end;          end;
# Line 953  begin Line 850  begin
850          Application.Terminate;          Application.Terminate;
851      end;      end;
852    
853      if TjekUrls = '1' then    // Tjekker urls      if Config.TjekUrls = '1' then    // Tjekker urls
854      begin      begin
855          TjekkerUrls();          TjekkerUrls();
856          if TjekUrls = '-' then  // så var der fejl i url - så vi stopper her          if Config.TjekUrls = '-' then  // så var der fejl i url - så vi stopper her
857          begin          begin
858             PlaySound(PWideChar(AlarmLyd));             PlaySound(PWideChar(Config.AlarmLyd));
859             MainForm.Color := clRed;             MainForm.Color := clRed;
860             RutenummerST.Caption := '';             RutenummerST.Caption := '';
861             BoghandlerNavnST.Caption := 'Fejl i urls';             BoghandlerNavnST.Caption := 'Fejl i urls';
# Line 1005  begin Line 902  begin
902    
903      if Pakketype = '1' then      if Pakketype = '1' then
904      begin      begin
905        Storepakker1.Checked := true;        menuStorePakker.Checked := true;
906        radioStorPakke.Checked := true;        radioStorPakke.Checked := true;
907      end      end
908      else      else
909      begin      begin
910        Smpakker1.Checked := true;        menuSmaaPakker.Checked := true;
911        radioLillePakke.Checked := true;        radioLillePakke.Checked := true;
912      end;      end;
913    
914      if TestFunktionen = '1' then      if Config.TestFunktionen = '1' then
915      begin      begin
916        Testforbindelsen1.Visible := true;        Testforbindelsen1.Visible := true;
917        Testprinter1.Visible := true;        Testprinter1.Visible := true;
918        Testlyd1.Visible := true;        Testlyd1.Visible := true;
919        Testlyd2.Visible := true;        Testlyd2.Visible := true;
920      end      end
921      else if TestFunktionen = '2' then      else if Config.TestFunktionen = '2' then
922      begin      begin
923        Testforbindelsen1.Enabled := false;        Testforbindelsen1.Enabled := false;
924        Testprinter1.Enabled := false;        Testprinter1.Enabled := false;
# Line 1036  begin Line 933  begin
933        Testlyd2.Visible := false;        Testlyd2.Visible := false;
934      end;      end;
935    
     if not FileExists(AlarmLyd) then  
     begin  
       AlarmLyd := '';  
     end;  
   
     if not FileExists(ScannetOkLyd) then  
     begin  
       ScannetOkLyd := '';  
     end;  
   
     if not FileExists(ScannetOkStorLyd) then  
     begin  
       ScannetOkStorLyd := '';  
     end;  
   
   
     if not FileExists(ScannetOkTilTjekkodeLyd) then  
     begin  
       ScannetOkTilTjekkodeLyd := '';  
     end;  
936    
937    
938    
939    
940      LabelPrint := TLabelPrint.Create( self, Config, PrinterNavn );      LabelPrint := TLabelPrint.Create( self, Config, Config.PrinterNavn );
941      LabelPrint.CheckPrintQue('Opstart', PrinterNavn);      LabelPrint.CheckPrintQue('Opstart', Config.PrinterNavn);
942    
943    finally    finally
944      Free;      Free;
# Line 1070  begin Line 947  begin
947      // UBD skal p.t. ikke have adgang til flg. funktioner      // UBD skal p.t. ikke have adgang til flg. funktioner
948      if ( (Sted = '1') or (Sted = '2') or (Sted = '3') or (Sted = '4') ) then      if ( (Sted = '1') or (Sted = '2') or (Sted = '3') or (Sted = '4') ) then
949      begin      begin
950        ReturpakkerfraDAO1.Visible := false;        menuNatxpressReturDAO1.Visible := false;
951        Returpakkerfraboghandler1.Visible := false;        menuNatxpressReturfraKunde1.Visible := false;
952        Budlevering1.Visible := false;        menuDaoDirekte1.Visible := false;
953        Storepakker1.Visible := false;        menuStorePakker.Visible := false;
954        Smpakker1.Visible := false;        menuSmaaPakker.Visible := false;
955        Testprinter1.Visible := false;        Testprinter1.Visible := false;
956        Pakkeshoplevering1.Visible := false;        menuPakkeshop1.Visible := false;
957        Returpakkerfrapakkeshop1.Visible := false;        menuPakkeshopRetur1.Visible := false;
958      end;      end;
959    
960      if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then      if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then
# Line 1426  begin Line 1303  begin
1303      if (Length(Stregkode) > 8) then      if (Length(Stregkode) > 8) then
1304      begin      begin
1305        // Her skal vi så forespørge pakketype på serveren udfra stregkode feltet        // Her skal vi så forespørge pakketype på serveren udfra stregkode feltet
1306        URLStr := Format(UrlFindPakketype,[Stregkode]);        URLStr := Format(Config.UrlFindPakketype,[Stregkode]);
1307        try        try
1308          //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST          //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST
1309          WebSvar := IdHTTP1.Get(URLStr);          WebSvar := IdHTTP1.Get(URLStr);
# Line 1481  begin Line 1358  begin
1358         exit;         exit;
1359      end;      end;
1360    
1361      if (Automatiskvalg1.Checked and (Length(Stregkode) > 8) ) then      if (menuAutomatiskvalg1.Checked and (Length(Stregkode) > 8) ) then
1362      begin      begin
1363        GemStregkode := Stregkode;        GemStregkode := Stregkode;
1364        if Pakketype = 'NatXpress' then        if Pakketype = 'NatXpress' then
# Line 1510  begin Line 1387  begin
1387                InitPakkeshoplevering();                InitPakkeshoplevering();
1388              end;              end;
1389            end            end
1390        // Retur kan ikke scannes med 'Automatisk valg'       else if Pakketype = 'PakkeshopRetur' then
1391              begin
1392                if Scanningtype <> '6' then
1393                begin
1394                 VisAlarmSkaerm( Stregkode + ' Pakkeshop retur,'#13#10' kan ikke bruges med automatisk valg' );
1395    
1396                 exit;
1397                end;
1398              end
1399    
1400    
1401        else        else
1402            begin            begin
# Line 1522  begin Line 1408  begin
1408            end;            end;
1409        Stregkode := GemStregkode;        Stregkode := GemStregkode;
1410      end      end
1411      else if Automatiskvalg1.Checked and (PakkeshopText1.Caption = 'Stregkode') then      else if menuAutomatiskvalg1.Checked and (PakkeshopText1.Caption = 'Stregkode') then
1412      begin      begin
1413        VisAlarmSkaerm( 'Pakkenummer ikke gyldigt (for kort)' );        VisAlarmSkaerm( 'Pakkenummer ikke gyldigt (for kort)' );
1414    
1415        exit;        exit;
1416      end;      end;
1417    
1418      if not Automatiskvalg1.Checked then      if not menuAutomatiskvalg1.Checked then
1419      begin      begin
1420        if ( (Pakkescanningtype <> Scanningtype) and (Scanningtype <> '2') and (Scanningtype <> '3') ) then        if ( (Pakkescanningtype <> Scanningtype) and (Scanningtype <> '2') and (Scanningtype <> '3') ) then
1421        begin        begin
# Line 1542  begin Line 1428  begin
1428    
1429    
1430    
1431      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and Automatisktjekkodestyring1.Checked then      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and menuAutomatiskTjekkodeStyring.Checked then
1432      begin      begin
1433        chkScanTjekkode.Checked := false;        chkScanTjekkode.Checked := false;
1434        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do
# Line 1555  begin Line 1441  begin
1441        end;        end;
1442      end;      end;
1443    
1444      if Pakkernormal1.Checked and not Scanogstjekkoden1.Checked then      if menuNatXpress1.Checked and not Scanogstjekkoden1.Checked then
1445        begin        begin
1446          // Når vi ikke kræver tjekkode er alt ok her          // Når vi ikke kræver tjekkode er alt ok her
1447             BoghandlerStregkode := Stregkode;             BoghandlerStregkode := Stregkode;
# Line 1565  begin Line 1451  begin
1451             Stregkode := '';             Stregkode := '';
1452             InitScreen();             InitScreen();
1453        end        end
1454      else if (PakkeshopLevering1.Checked or Pakkernormal1.Checked) and not Scanogstjekkoden1.Checked then      else if (menuPakkeshop1.Checked or menuNatXpress1.Checked) and not Scanogstjekkoden1.Checked then
1455        begin        begin
1456          // Når vi ikke kræver tjekkode er alt ok her          // Når vi ikke kræver tjekkode er alt ok her
1457             PakkeshopStregkode := Stregkode;             PakkeshopStregkode := Stregkode;
# Line 1577  begin Line 1463  begin
1463             Stregkode := '';             Stregkode := '';
1464             InitScreen();             InitScreen();
1465        end        end
1466      else if PakkeshopLevering1.Checked or Pakkernormal1.Checked then      else if menuPakkeshop1.Checked or menuNatXpress1.Checked then
1467        if PakkeshopText1.Caption = 'Stregkode' then        if PakkeshopText1.Caption = 'Stregkode' then
1468         begin         begin
1469            if length(Stregkode) > 5 then            if length(Stregkode) > 5 then
# Line 1586  begin Line 1472  begin
1472              BoghandlerStregkode := Stregkode;              BoghandlerStregkode := Stregkode;
1473              PakkeshopText1.Caption := 'Tjekkode';              PakkeshopText1.Caption := 'Tjekkode';
1474    
1475              PlaySound(PWideChar(ScannetOkTilTjekkodeLyd));              PlaySound(PWideChar(Config.ScannetOkTilTjekkodeLyd));
1476    
1477             end             end
1478            else            else
# Line 1603  begin Line 1489  begin
1489             PakkeshopTjekkode := Stregkode;             PakkeshopTjekkode := Stregkode;
1490             BoghandlerTjekkode := Stregkode;             BoghandlerTjekkode := Stregkode;
1491             PakkeshopText1.Caption := 'Stregkode';             PakkeshopText1.Caption := 'Stregkode';
1492             if (PakkeshopLevering1.Checked) then             if (menuPakkeshop1.Checked) then
1493                MainForm.Color := TUtils.HexToTColor(FarvePakkeshoplevering);                MainForm.Color := TUtils.HexToTColor(Config.FarvePakkeshoplevering);
1494             if (Pakkernormal1.Checked) then             if (menuNatXpress1.Checked) then
1495                MainForm.Color := TUtils.HexToTColor(FarveNormal);                MainForm.Color := TUtils.HexToTColor(Config.FarveNormal);
1496             btnNulstil.Visible := false;             btnNulstil.Visible := false;
1497           end           end
1498          else          else
1499           begin           begin
1500                if (PakkeshopLevering1.Checked) then                if (menuPakkeshop1.Checked) then
1501                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode);                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode);
1502                if (Pakkernormal1.Checked) then                if (menuNatXpress1.Checked) then
1503                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode);                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode);
1504                                    
1505                StregKode := '';                StregKode := '';
# Line 1625  begin Line 1511  begin
1511          InitScreen();          InitScreen();
1512       end;       end;
1513    
1514      if not PakkeshopLevering1.Checked and not Pakkernormal1.Checked or (PakkeshopLevering1.Checked and (PakkeshopStregkode <> '') and (PakkeshopTjekkode <> '')) or (Pakkernormal1.Checked and (Scanogstjekkoden1.Checked and (BoghandlerStregkode <> '') and (BoghandlerTjekkode <> '') or not Scanogstjekkoden1.Checked)) then      if not menuPakkeshop1.Checked and not menuNatXpress1.Checked or (menuPakkeshop1.Checked and (PakkeshopStregkode <> '') and (PakkeshopTjekkode <> '')) or (menuNatXpress1.Checked and (Scanogstjekkoden1.Checked and (BoghandlerStregkode <> '') and (BoghandlerTjekkode <> '') or not Scanogstjekkoden1.Checked)) then
1515      begin      begin
1516    
1517         if PakkeshopLevering1.Checked and (PakkeshopStregkode <> '') and (PakkeshopTjekkode <> '') then         if menuPakkeshop1.Checked and (PakkeshopStregkode <> '') and (PakkeshopTjekkode <> '') then
1518            StregKode := PakkeshopStregkode;            StregKode := PakkeshopStregkode;
1519         if Pakkernormal1.Checked and ((BoghandlerStregkode <> '') and (BoghandlerTjekkode <> '') or not Scanogstjekkoden1.Checked) then         if menuNatXpress1.Checked and ((BoghandlerStregkode <> '') and (BoghandlerTjekkode <> '') or not Scanogstjekkoden1.Checked) then
1520            StregKode := BoghandlerStregkode;            StregKode := BoghandlerStregkode;
1521         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
1522         try         try
# Line 1644  begin Line 1530  begin
1530    
1531              exit;              exit;
1532            end;            end;
1533            if (Pakkernormal1.Checked or Budlevering1.Checked or PakkeshopLevering1.Checked) then            if (menuNatXpress1.Checked or menuDaoDirekte1.Checked or menuPakkeshop1.Checked) then
1534            begin            begin
1535              PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel);              PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel);
1536              pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);              pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);
# Line 1660  begin Line 1546  begin
1546              tjekkodemangler := pos('Tjekkode mangler', Kommentar);              tjekkodemangler := pos('Tjekkode mangler', Kommentar);
1547              if (pakkeErScannet > 0) or (pakkeForkertSted > 0) or (tjekkodemangler > 0) then              if (pakkeErScannet > 0) or (pakkeForkertSted > 0) or (tjekkodemangler > 0) then
1548              begin              begin
1549                PlaySound(PWideChar(AlarmLyd));                PlaySound(PWideChar(Config.AlarmLyd));
1550                btnNulstil.Visible := true;                btnNulstil.Visible := true;
1551                MainForm.Color := clRed;                MainForm.Color := clRed;
1552              end;              end;
1553           end;           end;
1554            if ( Pakkernormal1.Checked and (pakkeErScannet = 0) and (pakkeForkertSted = 0) and (tjekkodemangler = 0) and (RuteNummerST.Caption <> 'Ukendt') ) or (Copy(Kommentar,1,2) = 'Ok') then            if ( menuNatXpress1.Checked and (pakkeErScannet = 0) and (pakkeForkertSted = 0) and (tjekkodemangler = 0) and (RuteNummerST.Caption <> 'Ukendt') ) or (Copy(Kommentar,1,2) = 'Ok') then
1555            begin            begin
1556              MainForm.Color := TUtils.HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1557              if Storepakker1.Checked then              if menuStorePakker.Checked then
1558              begin              begin
1559                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(Config.ScannetOkStorLyd));
1560              end              end
1561              else              else
1562              begin              begin
1563                PlaySound(PWideChar(ScannetOkLyd));                PlaySound(PWideChar(Config.ScannetOkLyd));
1564              end;              end;
1565              btnNulstil.Visible := false;              btnNulstil.Visible := false;
1566            end            end
1567            else if (Returpakkerfradao1.Checked or Returpakkerfraboghandler1.Checked) then            else if (menuNatxpressReturDAO1.Checked or menuNatxpressReturfraKunde1.Checked) then
1568            begin            begin
1569              MainForm.Color := TUtils.HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1570              if Storepakker1.Checked then              if menuStorePakker.Checked then
1571              begin              begin
1572                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(Config.ScannetOkStorLyd));
1573              end              end
1574              else              else
1575              begin              begin
1576                PlaySound(PWideChar(ScannetOkLyd));                PlaySound(PWideChar(Config.ScannetOkLyd));
1577              end;              end;
1578              btnNulstil.Visible := false;              btnNulstil.Visible := false;
1579            end            end
# Line 1706  begin Line 1592  begin
1592           if not btnNulstil.Visible then           if not btnNulstil.Visible then
1593            begin            begin
1594    
1595              If (Budlevering1.Checked) then              If (menuDaoDirekte1.Checked) then
1596              begin              begin
1597                if Storepakker1.Checked then                if menuStorePakker.Checked then
1598                begin                begin
1599                  PlaySound(PWideChar(ScannetOkStorLyd));                  PlaySound(PWideChar(Config.ScannetOkStorLyd));
1600                end                end
1601                else                else
1602                begin                begin
1603                  PlaySound(PWideChar(ScannetOkLyd));                  PlaySound(PWideChar(Config.ScannetOkLyd));
1604                end;                end;
1605                InitLillePakke();                InitLillePakke();
1606              end;              end;
# Line 1768  var Line 1654  var
1654    WebSvar : String;    WebSvar : String;
1655    URLStr : String;    URLStr : String;
1656  begin  begin
1657    if UrlSendPrograminfo <> '' then    if Config.UrlSendPrograminfo <> '' then
1658    begin    begin
1659      URLStr := Format(UrlSendPrograminfo,[ExtractFileName(ParamStr(0)), Sted, Scanningtype, Infotype, Info]);      URLStr := Format(Config.UrlSendPrograminfo,[ExtractFileName(ParamStr(0)), Sted, Scanningtype, Infotype, Info]);
1660      try      try
1661        //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST        //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST
1662        WebSvar := IdHTTP1.Get(URLStr);        WebSvar := IdHTTP1.Get(URLStr);
# Line 1783  begin Line 1669  begin
1669        ShowMessage(logTekst);        ShowMessage(logTekst);
1670        SkrivScanningLogFil(logTekst);        SkrivScanningLogFil(logTekst);
1671        // Vi nulstiller lige url feltet så rutinen ikke kaldes igen i forbindelse med lukning af programmet        // Vi nulstiller lige url feltet så rutinen ikke kaldes igen i forbindelse med lukning af programmet
1672        UrlSendPrograminfo := '';        Config.UrlSendPrograminfo := '';
1673        Application.Terminate;        Application.Terminate;
1674      end;      end;
1675      end;      end;
# Line 1802  var Line 1688  var
1688    
1689    
1690  begin  begin
1691      if Budlevering1.Checked or Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked or Pakkernormal1.Checked or menuIndlevering.Checked then      if menuDaoDirekte1.Checked or menuPakkeshop1.Checked or menuPakkeshopRetur1.Checked or menuNatXpress1.Checked or menuIndlevering.Checked then
1692      begin      begin
1693        for i := ListBox2.items.count-1 downto 0 do        for i := ListBox2.items.count-1 downto 0 do
1694          if pos(StregKode,ListBox2.items[i]) <> 0 then          if pos(StregKode,ListBox2.items[i]) <> 0 then
1695          begin          begin
1696              wrkAntalSenere := 0;//initial Value
1697    
1698            // Ajourføring af tæller for manglende pakker (scanninger)            // Ajourføring af tæller for manglende pakker (scanninger)
1699            wrkAntal := StaticTextManglendePakker.Caption;            wrkAntal := StaticTextManglendePakker.Caption;
# Line 1951  procedure TMainForm.InitBladhus(); Line 1838  procedure TMainForm.InitBladhus();
1838    
1839  begin  begin
1840    Altidprintepakkelabel1.Enabled := false;    Altidprintepakkelabel1.Enabled := false;
1841    Pakkernormal1.Visible := false;    menuNatXpress1.Visible := false;
1842    ReturpakkerfraDAO1.Visible := false;    menuNatxpressReturDAO1.Visible := false;
1843    Returpakkerfraboghandler1.Visible := false;    menuNatxpressReturfraKunde1.Visible := false;
1844    Sprgefterboghandlernummer1.Enabled := false;    Sprgefterboghandlernummer1.Enabled := false;
1845    ListBox1.Visible := true;    ListBox1.Visible := true;
1846  //  TestFunktionen := '1';  //  TestFunktionen := '1';
1847    
1848    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
1849    begin    begin
1850      IndlesScanningLogFil();      IndlesScanningLogFil();
1851    end;    end;
# Line 1982  begin Line 1869  begin
1869      02 :      02 :
1870            begin;    // BK            begin;    // BK
1871              Testprinter1.Visible := true;              Testprinter1.Visible := true;
1872              Smpakker1.Enabled := true;              menuSmaaPakker.Enabled := true;
1873              Storepakker1.Enabled := true;              menuStorePakker.Enabled := true;
1874              radioStorPakke.Enabled := true;              radioStorPakke.Enabled := true;
1875              radioLillePakke.Enabled := true;              radioLillePakke.Enabled := true;
1876              BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her
# Line 2020  begin Line 1907  begin
1907            end;            end;
1908      04 :  begin;           // DBK      04 :  begin;           // DBK
1909              Testprinter1.Visible := true;              Testprinter1.Visible := true;
1910              Smpakker1.Enabled := true;              menuSmaaPakker.Enabled := true;
1911              Storepakker1.Enabled := true;              menuStorePakker.Enabled := true;
1912              radioStorPakke.Enabled := true;              radioStorPakke.Enabled := true;
1913              radioLillePakke.Enabled := true;              radioLillePakke.Enabled := true;
1914              BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her
# Line 2054  begin Line 1941  begin
1941    end;    end;
1942    
1943    
1944    if Pakkernormal1.Checked then    if menuNatXpress1.Checked then
1945    begin    begin
1946       if (BoghandlerTjekkode = '') then       if (BoghandlerTjekkode = '') then
1947       begin       begin
1948         BoghandlerTjekkode := '-1';         BoghandlerTjekkode := '-1';
1949       end;       end;
1950       URLStr := Format(UrlNormal,[Sted, PakkeNr, BoghandlerNummer, BoghandlerTjekkode]);       URLStr := Format(Config.UrlNormal,[Sted, PakkeNr, BoghandlerNummer, BoghandlerTjekkode]);
1951    end    end
1952    else if ReturpakkerfraDAO1.Checked then    else if menuNatxpressReturDAO1.Checked then
1953    begin    begin
1954       URLStr := Format(UrlReturDAO,[Sted, PakkeNr, BoghandlerNummer, 'DAO', pakkestorrelse]);       URLStr := Format(Config.UrlReturDAO,[Sted, PakkeNr, BoghandlerNummer, 'DAO', pakkestorrelse]);
1955    end    end
1956    else if Returpakkerfraboghandler1.Checked then    else if menuNatxpressReturfraKunde1.Checked then
1957    begin    begin
1958       URLStr := Format(UrlReturBoghandler,[Sted, PakkeNr, BoghandlerNummer, 'Boghandler', pakkestorrelse]);       URLStr := Format(Config.UrlReturBoghandler,[Sted, PakkeNr, BoghandlerNummer, 'Boghandler', pakkestorrelse]);
1959    end    end
1960    else if Budlevering1.Checked then    else if menuDaoDirekte1.Checked then
1961    begin    begin
1962       URLStr := Format(UrlBudlevering,[Sted, PakkeNr, 'bud', pakkestorrelse]);       URLStr := Format(Config.UrlBudlevering,[Sted, PakkeNr, 'bud', pakkestorrelse]);
1963    end    end
1964    else if Pakkeshoplevering1.Checked then    else if menuPakkeshop1.Checked then
1965    begin    begin
1966       URLStr := Format(UrlPakkeshoplevering,[Sted, PakkeNr, PakkeshopTjekkode]);       URLStr := Format(Config.UrlPakkeshoplevering,[Sted, PakkeNr, PakkeshopTjekkode]);
1967    end    end
1968    else if Returpakkerfrapakkeshop1.Checked then    else if menuPakkeshopRetur1.Checked then
1969    begin    begin
1970       URLStr := Format(UrlReturPakkeshop,[Sted, PakkeNr]);       URLStr := Format(Config.UrlReturPakkeshop,[Sted, PakkeNr]);
1971    end    end
1972    else if menuIndlevering.Checked then    else if menuIndlevering.Checked then
1973    begin    begin
1974      URLStr := Format(UrlIndleveringsPakke,[Sted, PakkeNr]);      URLStr := Format(Config.UrlIndleveringsPakke,[Sted, PakkeNr]);
1975    end    end
1976    else    else
1977    begin    begin
# Line 2093  begin Line 1980  begin
1980    
1981    if chkForstorTilDirekte.Checked then  // Denne skal være efter if/else kæden da den overrider de øvrige URL'er    if chkForstorTilDirekte.Checked then  // Denne skal være efter if/else kæden da den overrider de øvrige URL'er
1982    begin    begin
1983      URLStr := Format(URLOmdirigerTilPakkeshop,[Sted, PakkeNr]);      URLStr := Format(Config.URLOmdirigerTilPakkeshop,[Sted, PakkeNr]);
1984    end;    end;
1985    
1986    try    try
# Line 2120  begin Line 2007  begin
2007    
2008    XMLDocument1.LoadFromXML(WebSvar);    XMLDocument1.LoadFromXML(WebSvar);
2009    try    try
2010      if Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked then      if menuPakkeshop1.Checked or menuPakkeshopRetur1.Checked then
2011       begin       begin
2012        RuteNummer := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopTurid').Text;        RuteNummer := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopTurid').Text;
2013        Kommentar := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Stregkodematch').Text;        Kommentar := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Stregkodematch').Text;
# Line 2128  begin Line 2015  begin
2015        BoghandlerNavn := BoghandlerNavn + ' ' + XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;        BoghandlerNavn := BoghandlerNavn + ' ' + XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;
2016        PrintNyLabel := False;        PrintNyLabel := False;
2017    
2018        if Pakkeshoplevering1.Checked then        if menuPakkeshop1.Checked then
2019        begin        begin
2020          try          try
2021            PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text);            PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text);
# Line 2155  begin Line 2042  begin
2042         RuteNummer := PakkeshopLabel.Koreliste + '  ->  ' +  PakkeshopLabel.PakkeshopTurid;         RuteNummer := PakkeshopLabel.Koreliste + '  ->  ' +  PakkeshopLabel.PakkeshopTurid;
2043         Stregkode := PakkeshopLabel.Stregkode;         Stregkode := PakkeshopLabel.Stregkode;
2044    
2045         LabelPrint.PrintPakkeshopLabel( PakkeshopLabel );         LabelPrint.PrintFuldPakkeLabel( PakkeshopLabel );
2046         chkForstorTilDirekte.Checked := false;         chkForstorTilDirekte.Checked := false;
2047    
2048       end;       end;
# Line 2169  begin Line 2056  begin
2056        Kommentar := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('Kommentar').Text;        Kommentar := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('Kommentar').Text;
2057        BoghandlerNavn := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('BoghandlerNavn').Text;        BoghandlerNavn := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('BoghandlerNavn').Text;
2058        Leveringssted := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('Leveringssted').Text;        Leveringssted := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('Leveringssted').Text;
2059        if Budlevering1.Checked then        if menuDaoDirekte1.Checked then
2060          begin          begin
2061          try          try
2062            SmsKode := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('SmsKode').Text;            SmsKode := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('SmsKode').Text;
# Line 2200  begin Line 2087  begin
2087      begin      begin
2088        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then
2089        begin        begin
2090            Kommentar := Kommentar + ' Pakke burde være hos DAO Distribution';            Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted;
2091            PrintNyLabel := False;            PrintNyLabel := False;
2092        end;        end;
2093      end      end
2094      else if (Budlevering1.Checked) and (Leveringssted <> Sted) then      else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) And (Leveringssted <> '') then
2095      begin      begin
2096         if (Leveringssted = 'E') and (Sted = 'DBK') then         if (Leveringssted = 'E') and (Sted = 'DBK') then
2097         begin         begin
# Line 2212  begin Line 2099  begin
2099         end         end
2100         else         else
2101         begin         begin
2102            Kommentar := Kommentar + ' Pakke burde være hos DAO Distribution';            Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted;
2103            PrintNyLabel := False;            PrintNyLabel := False;
2104         end;         end;
2105      end;      end;
# Line 2233  begin Line 2120  begin
2120    //Label1.Caption := Kommentar;   // bruges hvis der skal vises linieskift - det kan man ikke i en staticText    //Label1.Caption := Kommentar;   // bruges hvis der skal vises linieskift - det kan man ikke i en staticText
2121    BoghandlerNavnST.Caption := StringReplace(BoghandlerNavn, ' & ', ' && ', [rfReplaceAll, rfIgnoreCase]);    BoghandlerNavnST.Caption := StringReplace(BoghandlerNavn, ' & ', ' && ', [rfReplaceAll, rfIgnoreCase]);
2122    List1msg := TimeToStr(now) + '; ';    List1msg := TimeToStr(now) + '; ';
2123    if Pakkeshoplevering1.Checked then    if menuPakkeshop1.Checked then
2124      List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; ';      List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; ';
2125    List1Pakkestorrelse := '';    List1Pakkestorrelse := '';
2126    if radioStorPakke.Checked then    if radioStorPakke.Checked then
# Line 2245  begin Line 2132  begin
2132      List1Pakkestorrelse := 'Lille pakke';      List1Pakkestorrelse := 'Lille pakke';
2133    end;    end;
2134    List1msg := List1msg + BoghandlerNavn + '; ';    List1msg := List1msg + BoghandlerNavn + '; ';
2135    if ReturpakkerfraDAO1.Checked then    if menuNatxpressReturDAO1.Checked then
2136    begin    begin
2137      List1msg := List1msg + RightStr(Kommentar, Length(Kommentar)-8);      List1msg := List1msg + RightStr(Kommentar, Length(Kommentar)-8);
2138    end;    end;
2139    if Returpakkerfraboghandler1.Checked then    if menuNatxpressReturfraKunde1.Checked then
2140    begin    begin
2141      List1msg := List1msg + RightStr(Kommentar, Length(Kommentar)-16);      List1msg := List1msg + RightStr(Kommentar, Length(Kommentar)-16);
2142    end;    end;
2143    if ReturpakkerfraDAO1.Checked or Returpakkerfraboghandler1.Checked then    if menuNatxpressReturDAO1.Checked or menuNatxpressReturfraKunde1.Checked then
2144       List1msg := List1msg + '; ' + List1Pakkestorrelse;       List1msg := List1msg + '; ' + List1Pakkestorrelse;
2145    if length(BoghNr) > 0 then    if length(BoghNr) > 0 then
2146    begin    begin
2147      List1Msg := List1Msg + '; Indtastet ' + BoghNr;      List1Msg := List1Msg + '; Indtastet ' + BoghNr;
2148    end;    end;
2149    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
2150    begin    begin
2151       List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn;       List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn;
2152        if (radioStorPakke.Checked) then        if (radioStorPakke.Checked) then
# Line 2271  begin Line 2158  begin
2158          List1msg := List1msg + '; Lille pakke';          List1msg := List1msg + '; Lille pakke';
2159        end;        end;
2160    end;    end;
2161    if Returpakkerfrapakkeshop1.Checked then    if menuPakkeshopRetur1.Checked then
2162    begin    begin
2163      List1msg := List1msg + Stregkode + ' ' + RightStr(Kommentar, Length(Kommentar)-6);      List1msg := List1msg + Stregkode + ' ' + RightStr(Kommentar, Length(Kommentar)-6);
2164    end;    end;
2165    if Pakkernormal1.Checked then    if menuNatXpress1.Checked then
2166    begin    begin
2167      if (Kommentar = '***** Kommentar *****')                       // fra test printer funktionen      if (Kommentar = '***** Kommentar *****')                       // fra test printer funktionen
2168      or (BoghandlerNavn = 'Forbindelse ok')                         // fra test forbindelse funktionen      or (BoghandlerNavn = 'Forbindelse ok')                         // fra test forbindelse funktionen
# Line 2315  pakkeForkertSted : Integer; Line 2202  pakkeForkertSted : Integer;
2202    kontrolKoreliste : string;    kontrolKoreliste : string;
2203    nytRuteNummer, nyFarve : String;    nytRuteNummer, nyFarve : String;
2204  begin  begin
2205    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
2206       RuteNummerST.Color := TUtils.HexToTColor(Farve);       RuteNummerST.Color := TUtils.HexToTColor(Farve);
2207    
2208    pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);    pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);
# Line 2353  begin Line 2240  begin
2240        end;        end;
2241    end    end
2242    else    else
2243    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
2244    begin    begin
2245       if (BoghandlerNavn = 'Ukendt pakke') then       if (BoghandlerNavn = 'Ukendt pakke') then
2246       begin       begin
2247          PrintNyLabel := false;          PrintNyLabel := false;
2248    
2249          PlaySound(PWideChar(AlarmLyd));          PlaySound(PWideChar(Config.AlarmLyd));
2250          MainForm.Color := clRed;          MainForm.Color := clRed;
2251          btnNulstil.Visible := true;          btnNulstil.Visible := true;
2252    
# Line 2379  begin Line 2266  begin
2266            logTekst := RightStr(List1Msg, Length(List1Msg)-10);            logTekst := RightStr(List1Msg, Length(List1Msg)-10);
2267            SkrivScanningLogFil(logTekst);            SkrivScanningLogFil(logTekst);
2268    
2269            if (PrinterNavn = 'Ingen') then            if (Config.PrinterNavn = 'Ingen') then
2270            begin            begin
2271               PrintNyLabel := false;               PrintNyLabel := false;
2272            end;            end;
2273    
2274            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
2275            begin            begin
2276              PlaySound(PWideChar(AlarmLyd));              PlaySound(PWideChar(Config.AlarmLyd));
2277              MainForm.Color := clRed;              MainForm.Color := clRed;
2278              btnNulstil.Visible := true;              btnNulstil.Visible := true;
2279            end;            end;
# Line 2412  begin Line 2299  begin
2299    
2300            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
2301            begin            begin
2302              PlaySound(PWideChar(AlarmLyd));              PlaySound(PWideChar(Config.AlarmLyd));
2303              MainForm.Color := clRed;              MainForm.Color := clRed;
2304              btnNulstil.Visible := true;              btnNulstil.Visible := true;
2305            end;            end;
# Line 2422  begin Line 2309  begin
2309    
2310    end;    end;
2311    
2312    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
2313    begin    begin
2314      case BladhusSted of      case BladhusSted of
2315        00 :  begin;        00 :  begin;
# Line 2471  begin Line 2358  begin
2358    end;    end;
2359    
2360  // Hvis det er normal bogpakke modtagelse til UBD skal vi p.t. ikke printe - men stopper her  // Hvis det er normal bogpakke modtagelse til UBD skal vi p.t. ikke printe - men stopper her
2361    if Pakkernormal1.Checked and ( (Sted = '1') or (Sted = '2') or (Sted = '3') or (Sted = '4') ) then    if menuNatXpress1.Checked and ( (Sted = '1') or (Sted = '2') or (Sted = '3') or (Sted = '4') ) then
2362    begin    begin
2363      exit;      exit;
2364    end;    end;
2365    
2366    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    if menuDaoDirekte1.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
2367    begin    begin
2368    end    end
2369    else    else
2370    begin    begin
2371      if ( (PrinterNavn <> 'Ingen') and (PrintNyLabel or chkAltidPrintLabel.Checked) and (RuteNummer <> 'Ukendt') or (RuteNummer = 'Rutenr')) then      if ( (Config.PrinterNavn <> 'Ingen') and (PrintNyLabel or chkAltidPrintLabel.Checked) and (RuteNummer <> 'Ukendt') or (RuteNummer = 'Rutenr')) then
2372      begin      begin
2373        logTekst := 'Printer label type ';        logTekst := 'Printer label type ';
2374        if (chkAltidPrintLabel.Checked) then        if (chkAltidPrintLabel.Checked) then
# Line 2510  end; Line 2397  end;
2397    
2398  procedure TMainForm.radioStorPakkeClick(Sender: TObject);  procedure TMainForm.radioStorPakkeClick(Sender: TObject);
2399  begin  begin
2400      Storepakker1.Checked := true;      menuStorePakker.Checked := true;
2401      radioStorPakke.Checked := true;      radioStorPakke.Checked := true;
2402  end;  end;
2403    
2404  procedure TMainForm.radioLillePakkeClick(Sender: TObject);  procedure TMainForm.radioLillePakkeClick(Sender: TObject);
2405  begin  begin
2406      Smpakker1.Checked := true;      menuSmaaPakker.Checked := true;
2407      radioLillePakke.Checked := true;      radioLillePakke.Checked := true;
2408  end;  end;
2409    
# Line 2559  begin Line 2446  begin
2446    end;    end;
2447  end;  end;
2448    
2449  procedure TMainForm.Pakkeshoplevering1Click(Sender: TObject);  procedure TMainForm.menuPakkeshop1Click(Sender: TObject);
2450  begin  begin
2451        Scanningtype := '5';        Scanningtype := '5';
2452        InitPakkeshoplevering();        InitPakkeshoplevering();
# Line 2568  end; Line 2455  end;
2455    
2456  procedure TMainForm.NulstilAutomatiskValg();  procedure TMainForm.NulstilAutomatiskValg();
2457  begin  begin
2458      Automatiskvalg1.Checked := false;      menuAutomatiskvalg1.Checked := false;
2459      PanelValgA.Color := clBtnFace;      PanelValgA.Color := clBtnFace;
2460      PanelValgA.Font.Color := clWindowText;      PanelValgA.Font.Color := clWindowText;
2461    
# Line 2580  begin Line 2467  begin
2467        // 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)
2468        PanelValgA.Enabled := false;        PanelValgA.Enabled := false;
2469        PanelValgA.Font.Color := clInactiveCaption;        PanelValgA.Font.Color := clInactiveCaption;
2470        Automatiskvalg1.Enabled := false;        menuAutomatiskvalg1.Enabled := false;
2471      end;      end;
2472  // 20150317: slut  // 20150317: slut
2473  end;  end;
# Line 2606  begin Line 2493  begin
2493      // Tjekker UrlNormal      // Tjekker UrlNormal
2494      if PanelValg1.Enabled = true then      if PanelValg1.Enabled = true then
2495      begin      begin
2496        TjekkerEnkeltUrl('UrlNormal', UrlNormal, urlFejl);        TjekkerEnkeltUrl('UrlNormal', Config.UrlNormal, urlFejl);
2497      end;      end;
2498    
2499      // Tjekker UrlReturDAO      // Tjekker UrlReturDAO
2500      if PanelValg2.Enabled = true then      if PanelValg2.Enabled = true then
2501      begin      begin
2502        TjekkerEnkeltUrl('UrlReturDAO', UrlReturDAO, urlFejl);        TjekkerEnkeltUrl('UrlReturDAO', Config.UrlReturDAO, urlFejl);
2503      end;      end;
2504    
2505      // Tjekker UrlReturBoghandler      // Tjekker UrlReturBoghandler
2506      if PanelValg3.Enabled = true then      if PanelValg3.Enabled = true then
2507      begin      begin
2508        TjekkerEnkeltUrl('UrlReturBoghandler', UrlReturBoghandler, urlFejl);        TjekkerEnkeltUrl('UrlReturBoghandler', Config.UrlReturBoghandler, urlFejl);
2509      end;      end;
2510    
2511      // Tjekker UrlBudlevering      // Tjekker UrlBudlevering
2512      if PanelValg4.Enabled = true then      if PanelValg4.Enabled = true then
2513      begin      begin
2514        TjekkerEnkeltUrl('UrlBudlevering', UrlBudlevering, urlFejl);        TjekkerEnkeltUrl('UrlBudlevering', Config.UrlBudlevering, urlFejl);
2515      end;      end;
2516    
2517      // Tjekker UrlPakkeshoplevering      // Tjekker UrlPakkeshoplevering
2518      if PanelValg5.Enabled = true then      if PanelValg5.Enabled = true then
2519      begin      begin
2520        TjekkerEnkeltUrl('UrlPakkeshoplevering', UrlPakkeshoplevering, urlFejl);        TjekkerEnkeltUrl('UrlPakkeshoplevering', Config.UrlPakkeshoplevering, urlFejl);
2521      end;      end;
2522    
2523      // Tjekker UrlReturPakkeshop      // Tjekker UrlReturPakkeshop
2524      if PanelValg6.Enabled = true then      if PanelValg6.Enabled = true then
2525      begin      begin
2526        TjekkerEnkeltUrl('UrlReturPakkeshop', UrlReturPakkeshop, urlFejl);        TjekkerEnkeltUrl('UrlReturPakkeshop', Config.UrlReturPakkeshop, urlFejl);
2527      end;      end;
2528    
2529      // Tjekker UrlManglendeScanninger      // Tjekker UrlManglendeScanninger
2530      if (PanelValg1.Enabled = true) or (PanelValg4.Enabled = true) then      if (PanelValg1.Enabled = true) or (PanelValg4.Enabled = true) then
2531      begin      begin
2532        TjekkerEnkeltUrl('UrlManglendeScanninger', UrlManglendeScanninger, urlFejl);        TjekkerEnkeltUrl('UrlManglendeScanninger', Config.UrlManglendeScanninger, urlFejl);
2533      end;      end;
2534    
2535      // Tjekker UrlPakkeshopManglendeScanninger      // Tjekker UrlPakkeshopManglendeScanninger
2536      if PanelValg5.Enabled = true then      if PanelValg5.Enabled = true then
2537      begin      begin
2538        TjekkerEnkeltUrl('UrlPakkeshopManglendeScanninger', UrlPakkeshopManglendeScanninger, urlFejl);        TjekkerEnkeltUrl('UrlPakkeshopManglendeScanninger', Config.UrlPakkeshopManglendeScanninger, urlFejl);
2539      end;      end;
2540    
2541      // Tjekker UrlPakkeshopManglendeReturScanninger      // Tjekker UrlPakkeshopManglendeReturScanninger
2542      if PanelValg6.Enabled = true then      if PanelValg6.Enabled = true then
2543      begin      begin
2544        TjekkerEnkeltUrl('UrlPakkeshopManglendeReturScanninger', UrlPakkeshopManglendeReturScanninger, urlFejl);        TjekkerEnkeltUrl('UrlPakkeshopManglendeReturScanninger', Config.UrlPakkeshopManglendeReturScanninger, urlFejl);
2545      end;      end;
2546    
2547     // Tjekker UrlIndleveringsPakke og UrlIndleveringsPakkeManglendeScanninger     // Tjekker UrlIndleveringsPakke og UrlIndleveringsPakkeManglendeScanninger
2548      if PanelValg7.Enabled = true then      if PanelValg7.Enabled = true then
2549      begin      begin
2550        TjekkerEnkeltUrl('UrlIndleveringsPakke', UrlIndleveringsPakke, urlFejl);        TjekkerEnkeltUrl('UrlIndleveringsPakke', Config.UrlIndleveringsPakke, urlFejl);
2551        TjekkerEnkeltUrl('UrlIndleveringsPakkeManglendeScanninger', UrlIndleveringsPakkeManglendeScanninger, urlFejl);        TjekkerEnkeltUrl('UrlIndleveringsPakkeManglendeScanninger', Config.UrlIndleveringsPakkeManglendeScanninger, urlFejl);
2552      end;      end;
2553    
2554      // Tjekker UrlEKLoverforsel      // Tjekker UrlEKLoverforsel
2555      if PanelValg1.Enabled = true then      if PanelValg1.Enabled = true then
2556      begin      begin
2557        TjekkerEnkeltUrl('UrlEKLoverforsel', UrlEKLoverforsel, urlFejl);        TjekkerEnkeltUrl('UrlEKLoverforsel', Config.UrlEKLoverforsel, urlFejl);
2558      end;      end;
2559    
2560    
2561      // Tjekker UrlEKLoverforselPakkeshop      // Tjekker UrlEKLoverforselPakkeshop
2562      if PanelValg5.Enabled = true then      if PanelValg5.Enabled = true then
2563      begin      begin
2564        TjekkerEnkeltUrl('UrlEKLoverforselPakkeshop', UrlEKLoverforselPakkeshop, urlFejl);        TjekkerEnkeltUrl('UrlEKLoverforselPakkeshop', Config.UrlEKLoverforselPakkeshop, urlFejl);
2565      end;      end;
2566    
2567    
2568      // Tjekker UrlFindPakketype      // Tjekker UrlFindPakketype
2569      TjekkerEnkeltUrl('UrlFindPakketype', UrlFindPakketype, urlFejl);      TjekkerEnkeltUrl('UrlFindPakketype', Config.UrlFindPakketype, urlFejl);
2570    
2571      // Tjekker UrlSendPrograminfo      // Tjekker UrlSendPrograminfo
2572      TjekkerEnkeltUrl('UrlSendPrograminfo', UrlSendPrograminfo, urlFejl);      TjekkerEnkeltUrl('UrlSendPrograminfo', Config.UrlSendPrograminfo, urlFejl);
2573    
2574    
2575    
# Line 2691  begin Line 2578  begin
2578      SkrivScanningLogFil(logTekst);      SkrivScanningLogFil(logTekst);
2579    
2580    Except    Except
2581      TjekUrls := '-';   // markerer at der var fejl      Config.TjekUrls := '-';   // markerer at der var fejl
2582    
2583    end;    end;
2584  end;  end;
# Line 2711  begin Line 2598  begin
2598      inc(urlFejl);   // Optæller antal fejl      inc(urlFejl);   // Optæller antal fejl
2599      logTekst := UrlNavn + ' svarer ikke: ' + Url;      logTekst := UrlNavn + ' svarer ikke: ' + Url;
2600      ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);      ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
2601      if TjekUrls = '1' then      if Config.TjekUrls = '1' then
2602      begin      begin
2603        logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';        logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
2604      end;      end;
2605    
2606      SkrivScanningLogFil(logTekst);      SkrivScanningLogFil(logTekst);
2607    
2608      if TjekUrls = '1' then      if Config.TjekUrls = '1' then
2609      begin      begin
2610        ShowMessage(logTekst);        ShowMessage(logTekst);
2611        UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut        Config.UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
2612        Application.Terminate;        Application.Terminate;
2613    
2614        raise Exception.Create('UrlFejl');        raise Exception.Create('UrlFejl');
# Line 2802  begin Line 2689  begin
2689    if BoghandlerNavnST.Caption = 'Fejl i forbindelse til server' then    if BoghandlerNavnST.Caption = 'Fejl i forbindelse til server' then
2690    begin    begin
2691       ShowMessage('Programmet afbrydes...');       ShowMessage('Programmet afbrydes...');
2692       UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut       Config.UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
2693       Application.Terminate;       Application.Terminate;
2694       exit;       exit;
2695    end;    end;
# Line 2813  begin Line 2700  begin
2700    begin    begin
2701       MainForm.Color := TUtils.HexToTColor(Farve);       MainForm.Color := TUtils.HexToTColor(Farve);
2702    end;    end;
2703    if (Budlevering1.Checked) then    if (menuDaoDirekte1.Checked) then
2704    begin    begin
2705       InitLillePakke();       InitLillePakke();
2706    end;    end;
# Line 2877  procedure TMainForm.PanelValgAClick(Send Line 2764  procedure TMainForm.PanelValgAClick(Send
2764  begin  begin
2765  // Skal ikke toggle men bare sætte funktionen on  // Skal ikke toggle men bare sætte funktionen on
2766  // Fravælges ved at vælge en scanningstype  // Fravælges ved at vælge en scanningstype
2767    AutomatiskValg1.Checked := true;    menuAutomatiskvalg1.Checked := true;
2768    PanelValgA.Color := clGreen;    PanelValgA.Color := clGreen;
2769    PanelValgA.Font.Color := clWhite;    PanelValgA.Font.Color := clWhite;
2770    
# Line 2885  begin Line 2772  begin
2772    
2773  end;  end;
2774    
2775  procedure TMainForm.Pakkernormal1Click(Sender: TObject);  procedure TMainForm.menuNatXpress1Click(Sender: TObject);
2776  begin  begin
2777        Scanningtype := '1';        Scanningtype := '1';
2778        NulstilAutomatiskValg();        NulstilAutomatiskValg();
# Line 2904  var Line 2791  var
2791    Leveringssted : String;    Leveringssted : String;
2792    orgTjekUrls : String;    orgTjekUrls : String;
2793  begin  begin
2794    orgTjekUrls := TjekUrls;    orgTjekUrls := Config.TjekUrls;
2795    if (TjekUrls = '1') or (TjekUrls = '2') then    if (Config.TjekUrls = '1') or (Config.TjekUrls = '2') then
2796    begin    begin
2797      TjekkerUrls();      TjekkerUrls();
2798    end;    end;
2799    if TjekUrls = '-' then    if Config.TjekUrls = '-' then
2800    begin    begin
2801      //ShowMessage('Der var fejl i een eller flere urls - se logvinduet');      //ShowMessage('Der var fejl i een eller flere urls - se logvinduet');
2802      RuteNummer := '';      RuteNummer := '';
# Line 2918  begin Line 2805  begin
2805      Koreliste := '';      Koreliste := '';
2806      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');
2807      // Her kommer en alarm og rød skærm      // Her kommer en alarm og rød skærm
2808      PlaySound(PWideChar(AlarmLyd));      PlaySound(PWideChar(Config.AlarmLyd));
2809      MainForm.Color := clRed;      MainForm.Color := clRed;
2810      btnNulstil.Visible := true;      btnNulstil.Visible := true;
2811    end    end
# Line 2934  begin Line 2821  begin
2821      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);
2822      FocusControl(StregkodeST);      FocusControl(StregkodeST);
2823    end;    end;
2824    TjekUrls := orgTjekUrls;    Config.TjekUrls := orgTjekUrls;
2825    
2826  end;  end;
2827    
# Line 2959  begin Line 2846  begin
2846    begin    begin
2847      ShowMessage('Der er ikke installeret en printer på denne PC.');      ShowMessage('Der er ikke installeret en printer på denne PC.');
2848    end    end
2849    else if PrinterNavn = 'Ingen' then    else if Config.PrinterNavn = 'Ingen' then
2850    begin    begin
2851      ShowMessage('Der er fravalgt printer i dette program.');      ShowMessage('Der er fravalgt printer i dette program.');
2852    end    end
# Line 2970  begin Line 2857  begin
2857      DBKbane := '999';      DBKbane := '999';
2858      Leveringssted := 'XXX';      Leveringssted := 'XXX';
2859      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);
2860      LabelPrint.CheckPrintQue('Test', PrinterNavn);      LabelPrint.CheckPrintQue('Test', Config.PrinterNavn);
2861    end;    end;
2862    FocusControl(StregkodeST);    FocusControl(StregkodeST);
2863  end;  end;
2864    
2865  procedure TMainForm.Timer1Timer(Sender: TObject);  procedure TMainForm.Timer1Timer(Sender: TObject);
2866  begin  begin
2867    if (TjekPrinter = '1') then    if (Config.TjekPrinter = '1') then
2868    begin    begin
2869      LabelPrint.CheckPrintQue('Timer', PrinterNavn);      LabelPrint.CheckPrintQue('Timer', Config.PrinterNavn);
2870    end    end
2871    else    else
2872    begin    begin
# Line 3033  begin Line 2920  begin
2920      tekst := tekst+crlf+crlf;      tekst := tekst+crlf+crlf;
2921      tekst := tekst+crlf+crlf+'          **********  DETTE ER KUN EN TEST VERSION  **********';      tekst := tekst+crlf+crlf+'          **********  DETTE ER KUN EN TEST VERSION  **********';
2922      tekst := tekst+crlf+crlf;      tekst := tekst+crlf+crlf;
2923      tekst := tekst+crlf+crlf+'Url: '+url;      tekst := tekst+crlf+crlf+'Url: ' + Url;
2924    end;    end;
2925    
2926    MessageBox(Handle, PWideChar(tekst), 'Information', MB_OK);    MessageBox(Handle, PWideChar(tekst), 'Information', MB_OK);
2927    
2928  end;  end;
2929    
2930    
2931  procedure TMainForm.ListBox1DrawItem(Control: TWinControl; Index: Integer;  procedure TMainForm.ListBox1DrawItem(Control: TWinControl; Index: Integer;
2932    Rect: TRect; State: TOwnerDrawState);    Rect: TRect; State: TOwnerDrawState);
2933  var  var
# Line 3154  begin Line 3042  begin
3042    
3043  end;  end;
3044    
3045  procedure TMainForm.ReturpakkerfraDAO1Click(Sender: TObject);  procedure TMainForm.menuNatxpressReturDAO1Click(Sender: TObject);
3046  begin  begin
3047        Scanningtype := '2';        Scanningtype := '2';
3048        NulstilAutomatiskValg();        NulstilAutomatiskValg();
3049        InitReturFraDao();        InitReturFraDao();
3050  end;  end;
3051    
3052  procedure TMainForm.Returpakkerfrapakkeshop1Click(Sender: TObject);  procedure TMainForm.menuPakkeshopRetur1Click(Sender: TObject);
3053  begin  begin
3054        Scanningtype := '6';        Scanningtype := '6';
3055        InitReturFraPakkeshop();        InitReturFraPakkeshop();
# Line 3170  end; Line 3058  end;
3058    
3059  procedure TMainForm.InitNatxpresslevering();  procedure TMainForm.InitNatxpresslevering();
3060  begin  begin
3061        AutomatiskTjekkodeStyring1.Enabled := true;        menuAutomatiskTjekkodeStyring.Enabled := true;
3062        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3063        Pakkernormal1.Checked := true;        menuNatXpress1.Checked := true;
3064        InitForm(FarveNormal,TitelNormal,UrlNormal);        InitForm(Config.FarveNormal,Config.TitelNormal,Config.UrlNormal);
3065        PanelValg1.Color := clGreen;        PanelValg1.Color := clGreen;
3066        PanelValg1.Font.Color := clWhite;        PanelValg1.Font.Color := clWhite;
3067    
# Line 3184  begin Line 3072  begin
3072        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3073        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3074        Sprgefterboghandlernummer1.Enabled := true;        Sprgefterboghandlernummer1.Enabled := true;
3075        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3076        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3077        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3078        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3079        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3206  end; Line 3094  end;
3094    
3095  procedure TMainForm.InitReturFraDao();  procedure TMainForm.InitReturFraDao();
3096  begin  begin
3097        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3098        ReturpakkerfraDAO1.Checked := true;        menuNatxpressReturDAO1.Checked := true;
3099        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3100        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);        InitForm(Config.FarveReturDAO, Config.TitelReturDAO, Config.UrlReturDAO);
3101        PanelValg2.Color := clGreen;        PanelValg2.Color := clGreen;
3102        PanelValg2.Font.Color := clWhite;        PanelValg2.Font.Color := clWhite;
3103    
# Line 3220  begin Line 3108  begin
3108        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3109        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3110        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3111        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3112        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3113        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3114        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3115        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3237  end; Line 3125  end;
3125    
3126  procedure TMainForm.InitReturFraKunde();  procedure TMainForm.InitReturFraKunde();
3127  begin  begin
3128        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3129        Returpakkerfraboghandler1.Checked := true;        menuNatxpressReturfraKunde1.Checked := true;
3130        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3131        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);        InitForm(Config.FarveReturBoghandler, Config.TitelReturBoghandler, Config.UrlReturBoghandler);
3132        PanelValg3.Color := clGreen;        PanelValg3.Color := clGreen;
3133        PanelValg3.Font.Color := clWhite;        PanelValg3.Font.Color := clWhite;
3134    
# Line 3250  begin Line 3138  begin
3138        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3139        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3140        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3141        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3142        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3143        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3144        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3145        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3267  end; Line 3155  end;
3155    
3156  procedure TMainForm.InitDirektelevering();  procedure TMainForm.InitDirektelevering();
3157  begin  begin
3158        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3159        Budlevering1.Checked := true;        menuDaoDirekte1.Checked := true;
3160        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3161        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);        InitForm(Config.FarveBudlevering, Config.TitelBudlevering, Config.UrlBudlevering);
3162        PanelValg4.Color := clGreen;        PanelValg4.Color := clGreen;
3163        PanelValg4.Font.Color := clWhite;        PanelValg4.Font.Color := clWhite;
3164    
# Line 3281  begin Line 3169  begin
3169        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3170        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3171        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3172        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3173        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3174        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3175        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3176        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3307  end; Line 3195  end;
3195    
3196  procedure TMainForm.InitPakkeshoplevering();  procedure TMainForm.InitPakkeshoplevering();
3197  begin  begin
3198        AutomatiskTjekkodeStyring1.Enabled := true;        menuAutomatiskTjekkodeStyring.Enabled := true;
3199        Pakkeshoplevering1.Checked := true;        menuPakkeshop1.Checked := true;
3200        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3201        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);        InitForm(Config.FarvePakkeshoplevering, Config.TitelPakkeshoplevering, Config.UrlPakkeshoplevering);
3202        PanelValg5.Color := clGreen;        PanelValg5.Color := clGreen;
3203        PanelValg5.Font.Color := clWhite;        PanelValg5.Font.Color := clWhite;
3204    
# Line 3321  begin Line 3209  begin
3209        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3210        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3211        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3212        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3213        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3214        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3215        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3216        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3347  end; Line 3235  end;
3235    
3236  procedure TMainForm.InitReturFraPakkeshop();  procedure TMainForm.InitReturFraPakkeshop();
3237  begin  begin
3238        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3239        Returpakkerfrapakkeshop1.Checked := true;        menuPakkeshopRetur1.Checked := true;
3240        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3241        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);        InitForm(Config.FarveReturPakkeshop, Config.TitelReturPakkeshop, Config.UrlReturPakkeshop);
3242        PanelValg6.Color := clGreen;        PanelValg6.Color := clGreen;
3243        PanelValg6.Font.Color := clWhite;        PanelValg6.Font.Color := clWhite;
3244    
# Line 3361  begin Line 3249  begin
3249        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3250        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3251        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3252        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3253        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3254        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3255        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3256        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3385  begin Line 3273  begin
3273        IdFTP1.PassiveUseControlHost := true;        IdFTP1.PassiveUseControlHost := true;
3274  end;  end;
3275    
3276  procedure TMainForm.Returpakkerfraboghandler1Click(Sender: TObject);  procedure TMainForm.menuNatxpressReturfraKunde1Click(Sender: TObject);
3277  begin  begin
3278        Scanningtype := '3';        Scanningtype := '3';
3279        NulstilAutomatiskValg();        NulstilAutomatiskValg();
# Line 3395  end; Line 3283  end;
3283  procedure TMainForm.InitIndleveringskode();  procedure TMainForm.InitIndleveringskode();
3284  begin  begin
3285        menuIndlevering.Checked := true;        menuIndlevering.Checked := true;
3286        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3287    
3288        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3289        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);        InitForm(Config.FarveIndlevering, Config.TitelIndlevering, Config.UrlReturPakkeshop);
3290        PanelValg7.Color := clGreen;        PanelValg7.Color := clGreen;
3291        PanelValg7.Font.Color := clWhite;        PanelValg7.Font.Color := clWhite;
3292    
# Line 3412  begin Line 3300  begin
3300    
3301    
3302    
3303        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3304        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3305        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3306        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3307        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3438  begin Line 3326  begin
3326  end;  end;
3327    
3328    
3329  procedure TMainForm.Storepakker1Click(Sender: TObject);  procedure TMainForm.menuStorePakkerClick(Sender: TObject);
3330  begin  begin
3331    InitStorPakke();    InitStorPakke();
3332  end;  end;
3333    
3334  procedure TMainForm.Smpakker1Click(Sender: TObject);  procedure TMainForm.menuSmaaPakkerClick(Sender: TObject);
3335  begin  begin
3336    InitLillePakke();    InitLillePakke();
3337  end;  end;
# Line 3451  end; Line 3339  end;
3339  procedure TMainForm.InitLillePakke();  procedure TMainForm.InitLillePakke();
3340  begin  begin
3341    radioLillePakke.Checked := true;    radioLillePakke.Checked := true;
3342    Smpakker1.Checked := true;    menuSmaaPakker.Checked := true;
3343  //  Stregkode := '';  //  Stregkode := '';
3344  end;  end;
3345    
3346  procedure TMainForm.InitStorPakke();  procedure TMainForm.InitStorPakke();
3347  begin  begin
3348    radioStorPakke.Checked := true;    radioStorPakke.Checked := true;
3349    Storepakker1.Checked := true;    menuStorePakker.Checked := true;
3350  // 20150310: start  // 20150310: start
3351  //  Stregkode := '';  //  Stregkode := '';
3352  // 20150310: slut  // 20150310: slut
# Line 3477  end; Line 3365  end;
3365    
3366  procedure TMainForm.Testlyd1Click(Sender: TObject);  procedure TMainForm.Testlyd1Click(Sender: TObject);
3367  begin  begin
3368     if AlarmLyd  <> '' then     if Config.AlarmLyd  <> '' then
3369     begin     begin
3370       PlaySound(PWideChar(AlarmLyd));       PlaySound(PWideChar(Config.AlarmLyd));
3371     end     end
3372     else     else
3373     begin     begin
# Line 3491  procedure TMainForm.Testlyd2Click(Sender Line 3379  procedure TMainForm.Testlyd2Click(Sender
3379  begin  begin
3380    if (PakkeshopText1.Caption = 'Tjekkode') then    if (PakkeshopText1.Caption = 'Tjekkode') then
3381    begin    begin
3382       if ScannetOkTilTjekkodeLyd  <> '' then       if Config.ScannetOkTilTjekkodeLyd  <> '' then
3383       begin       begin
3384         PlaySound(PWideChar(ScannetOkTilTjekkodeLyd));         PlaySound(PWideChar(Config.ScannetOkTilTjekkodeLyd));
3385       end       end
3386       else       else
3387       begin       begin
# Line 3502  begin Line 3390  begin
3390       exit;       exit;
3391    end;    end;
3392    
3393    if Smpakker1.Checked then    if menuSmaaPakker.Checked then
3394       if ScannetOkLyd  <> '' then       if Config.ScannetOkLyd  <> '' then
3395       begin       begin
3396         PlaySound(PWideChar(ScannetOkLyd));         PlaySound(PWideChar(Config.ScannetOkLyd));
3397       end       end
3398       else       else
3399       begin       begin
3400         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);
3401       end;       end;
3402    if Storepakker1.Checked then    if menuStorePakker.Checked then
3403       if ScannetOkStorLyd  <> '' then       if Config.ScannetOkStorLyd  <> '' then
3404       begin       begin
3405         PlaySound(PWideChar(ScannetOkStorLyd));         PlaySound(PWideChar(Config.ScannetOkStorLyd));
3406       end       end
3407       else       else
3408       begin       begin
# Line 3523  begin Line 3411  begin
3411  end;  end;
3412    
3413    
3414  procedure TMainForm.Budlevering1Click(Sender: TObject);  procedure TMainForm.menuDaoDirekte1Click(Sender: TObject);
3415  begin  begin
3416        Scanningtype := '4';        Scanningtype := '4';
3417        NulstilAutomatiskValg();        NulstilAutomatiskValg();
# Line 3551  begin Line 3439  begin
3439      logTekst := 'Overfører de scannede pakker til EKL';      logTekst := 'Overfører de scannede pakker til EKL';
3440      SkrivScanningLogFil(logTekst);      SkrivScanningLogFil(logTekst);
3441      StedKode := Sted;      StedKode := Sted;
3442      URLStr := Format(UrlEKLoverforsel,[StedKode,Sted]);      URLStr := Format(Config.UrlEKLoverforsel,[StedKode,Sted]);
3443    
3444      if PanelValg5.Color = clGreen then      if PanelValg5.Color = clGreen then
3445      begin      begin
3446        URLStr := Format(UrlEKLoverforselPakkeshop,[StedKode,Sted]);        URLStr := Format(Config.UrlEKLoverforselPakkeshop,[StedKode,Sted]);
3447      end;      end;
3448    
3449    
# Line 3615  begin Line 3503  begin
3503      // Hvis der var fejl i overførslen skal dette fejlmeldes her      // Hvis der var fejl i overførslen skal dette fejlmeldes her
3504      if status = 'Fejl' then      if status = 'Fejl' then
3505      begin   // Her skal komme en alarm og rød skærm      begin   // Her skal komme en alarm og rød skærm
3506         PlaySound(PWideChar(AlarmLyd));         PlaySound(PWideChar(Config.AlarmLyd));
3507         MainForm.Color := clRed;         MainForm.Color := clRed;
3508         RutenummerST.Caption := 'EKL overførsel';         RutenummerST.Caption := 'EKL overførsel';
3509         BoghandlerNavnST.Caption := 'Fejl:';         BoghandlerNavnST.Caption := 'Fejl:';
# Line 4169  var Line 4057  var
4057    I: Integer;    I: Integer;
4058    stregkode, modtagernavn, modtageradresse, kommentar : string;    stregkode, modtagernavn, modtageradresse, kommentar : string;
4059    pakketype, tjekkodestatus : String;    pakketype, tjekkodestatus : String;
4060    pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer;    antalLiniefelter, antalFelterFundet, linienr : Integer;
4061    //pakketyper : TStrings;    //pakketyper : TStrings;
4062    pakketyper : TDictionary<String, Integer>;    pakketyper : TDictionary<String, Integer>;
4063    tmpAntal : Integer;    tmpAntal : Integer;
4064    
4065     time, timeSamlet : TTimingHelper;
4066    
4067    
4068    antlin : Integer;    antlin : Integer;
# Line 4209  var Line 4098  var
4098    
4099      if (Scanningtype = '7') then      if (Scanningtype = '7') then
4100       begin       begin
4101        URLStr := Format(UrlIndleveringsPakkeManglendeScanninger, [StedKode]);        URLStr := Format(Config.UrlIndleveringsPakkeManglendeScanninger, [StedKode]);
4102       end       end
4103      else if (Scanningtype = '6') then      else if (Scanningtype = '6') then
4104       begin       begin
4105        URLStr := Format(UrlPakkeshopManglendeReturScanninger, [StedKode]);        URLStr := Format(Config.UrlPakkeshopManglendeReturScanninger, [StedKode]);
4106       end       end
4107      else if (Scanningtype = '5') then      else if (Scanningtype = '5') then
4108       begin       begin
4109        URLStr := Format(UrlPakkeshopManglendeScanninger, [StedKode]);        URLStr := Format(Config.UrlPakkeshopManglendeScanninger, [StedKode]);
4110       end       end
4111      else if (Scanningtype = '1') then      else if (Scanningtype = '1') then
4112       begin       begin
4113        URLStr := Format(UrlManglendeScanninger,[StedKode,'B2']);        URLStr := Format(Config.UrlManglendeScanninger,[StedKode,'B2']);
4114       end       end
4115      else if (Scanningtype = '4') then      else if (Scanningtype = '4') then
4116       begin       begin
4117        URLStr := Format(UrlManglendeScanninger,[StedKode,'A2']);    // Budleveringer        URLStr := Format(Config.UrlManglendeScanninger,[StedKode,'A2']);    // Budleveringer
4118       end       end
4119      else      else
4120       begin       begin
# Line 4233  var Line 4122  var
4122       end;       end;
4123  // 20150310: slut  // 20150310: slut
4124    
4125        time := TTimingHelper.create();        //DEBUG
4126        timeSamlet := TTimingHelper.create();        //DEBUG
4127    
4128      try      try
4129      //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST      //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST
4130  //    URLStr := string(Utf8Encode(URLStr));  //    URLStr := string(Utf8Encode(URLStr));
# Line 4242  var Line 4134  var
4134        begin        begin
4135          // Her skal vi ikke gøre noget - men vi skal forespørge igen          // Her skal vi ikke gøre noget - men vi skal forespørge igen
4136          WebSvar := IdHTTP1.Get(URLStr);          WebSvar := IdHTTP1.Get(URLStr);
4137    
4138    
4139    
4140        end;        end;
4141        on e:exception do        on e:exception do
4142        begin        begin
# Line 4252  var Line 4147  var
4147        end;        end;
4148      end;      end;
4149      try      try
4150          time.stop('HTTP Load');     //DEBUG
4151    
4152        XMLDocument1.LoadFromXML(WebSvar);        XMLDocument1.LoadFromXML(WebSvar);
4153    
4154          time.stop('XML Load');     //DEBUG
4155    
4156    
4157    
4158    
4159    
4160    
4161        antlin := 0;        antlin := 0;
4162        antlinIdag := 0;        antlinIdag := 0;
# Line 4296  var Line 4199  var
4199        SetLength(stregkoderMedTjekkodeArray, 0);    // reset fra tidligere brug        SetLength(stregkoderMedTjekkodeArray, 0);    // reset fra tidligere brug
4200        SetLength(stregkoderMedTjekkodeArray, antlin);  // sæt antal elementer i array        SetLength(stregkoderMedTjekkodeArray, antlin);  // sæt antal elementer i array
4201    
4202          time.stop('Antal Linier');//DEBUG
4203    
4204        Application.Processmessages; //Ugly Hack to improve User Experience when switching modes        Application.Processmessages; //Ugly Hack to improve User Experience when switching modes
4205    
# Line 4381  var Line 4285  var
4285        end;        end;
4286    
4287    
4288          time.stop('Fyld Listbox2');//DEBUG
4289    
4290    
4291        Application.Processmessages; //Ugly Hack to improve User Experience when switching modes        Application.Processmessages; //Ugly Hack to improve User Experience when switching modes
4292    
4293    
# Line 4500  var Line 4407  var
4407        end;        end;
4408      end;      end;
4409    
4410        time.stop('Done');//DEBUG
4411        timeSamlet.stop('SamletTid');//DEBUG
4412    
4413    
4414  end;  end;
4415    
4416  procedure TMainForm.IndlesScanningLogFil();  procedure TMainForm.IndlesScanningLogFil();
# Line 4675  begin Line 4586  begin
4586          ListBox1.Items.Insert(0,TimeToStr(now) + ': ' +'Fandt ingen linier til '+imorgenYmd+'.');          ListBox1.Items.Insert(0,TimeToStr(now) + ': ' +'Fandt ingen linier til '+imorgenYmd+'.');
4587          logTekst := 'Fandt ingen linier til '+imorgenYmd+'.';          logTekst := 'Fandt ingen linier til '+imorgenYmd+'.';
4588          SkrivScanningLogFil(logTekst);          SkrivScanningLogFil(logTekst);
4589          PlaySound(PWideChar(AlarmLyd));          PlaySound(PWideChar(Config.AlarmLyd));
4590        end;        end;
4591      end;      end;
4592    end    end
# Line 4684  begin Line 4595  begin
4595        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Ruteskift fil '+filnavn+' findes ikke.');        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Ruteskift fil '+filnavn+' findes ikke.');
4596        logTekst := 'Ruteskift fil '+filnavn+' findes ikke.';        logTekst := 'Ruteskift fil '+filnavn+' findes ikke.';
4597        SkrivScanningLogFil(logTekst);        SkrivScanningLogFil(logTekst);
4598        PlaySound(PWideChar(AlarmLyd));        PlaySound(PWideChar(Config.AlarmLyd));
4599    end;    end;
4600  end;  end;
4601    
# Line 4755  begin Line 4666  begin
4666          ListBox1.Items.Insert(0,TimeToStr(now) + ': ' +'Fandt ingen linier til '+imorgenYmd+'.');          ListBox1.Items.Insert(0,TimeToStr(now) + ': ' +'Fandt ingen linier til '+imorgenYmd+'.');
4667          logTekst := 'Fandt ingen linier til '+imorgenYmd+'.';          logTekst := 'Fandt ingen linier til '+imorgenYmd+'.';
4668          SkrivScanningLogFil(logTekst);          SkrivScanningLogFil(logTekst);
4669          PlaySound(PWideChar(AlarmLyd));          PlaySound(PWideChar(Config.AlarmLyd));
4670        end;        end;
4671      end;      end;
4672    end    end
# Line 4764  begin Line 4675  begin
4675        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Kontrol fil '+filnavn+' findes ikke.');        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Kontrol fil '+filnavn+' findes ikke.');
4676        logTekst := 'Kontrol fil '+filnavn+' findes ikke.';        logTekst := 'Kontrol fil '+filnavn+' findes ikke.';
4677        SkrivScanningLogFil(logTekst);        SkrivScanningLogFil(logTekst);
4678        PlaySound(PWideChar(AlarmLyd));        PlaySound(PWideChar(Config.AlarmLyd));
4679    end;    end;
4680  end;  end;
4681    
# Line 4822  procedure TMainForm.VisAlarmSkaerm(strMe Line 4733  procedure TMainForm.VisAlarmSkaerm(strMe
4733  begin  begin
4734    //ShowMessage('Ændring ikke tilladt');    //ShowMessage('Ændring ikke tilladt');
4735    // Her skal komme en 'rød skærm' alarm    // Her skal komme en 'rød skærm' alarm
4736    PlaySound(PWideChar(AlarmLyd));    PlaySound(PWideChar(Config.AlarmLyd));
4737    MainForm.Color := clRed;    MainForm.Color := clRed;
4738    
4739    
# Line 4911  begin Line 4822  begin
4822  end;  end;
4823    
4824    
4825    //Nedarvet fra IParentForm
4826    procedure TMainForm.Msg( msg : string);
4827    begin
4828      ShowMessage(msg);
4829    end;
4830    
4831  //Nedarvet fra IParentForm  //Nedarvet fra IParentForm
4832  procedure TMainForm.LogMessage( msg : string);  procedure TMainForm.LogMessage( msg : string);
Legend:
Removed from v.3036  
changed lines
  Added in v.3090
  ViewVC Help
Powered by ViewVC 1.1.20