/[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 3089 by torben, Mon Aug 15 19:09:21 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;  
   
     UrlEKLoverforselPakkeshop : String;  
214    
     UrlFindPakketype, UrlSendPrograminfo: String;  
215      Scanningtype, TestFunktionen, Pakketype, SporgEfterBoghandler : String;      Scanningtype, TestFunktionen, Pakketype, SporgEfterBoghandler : String;
216      ScanTjekkode : String;      ScanTjekkode : String;
217      ScanTjekkodeAutomatik : string;      ScanTjekkodeAutomatik : string;
218    
219      Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop,      Url : String;
220            FarveIndlevering : String;  
221        Farve : String;
222    
223      Titel, TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop,      Titel : String;
           TitelIndlevering : String;  
224    
225      AlarmLyd : String;      AlarmLyd : String;
226      ScannetOkLyd : String;      ScannetOkLyd : String;
# Line 260  type Line 259  type
259      procedure SkrivScanningLogFil(var tekst : string);      procedure SkrivScanningLogFil(var tekst : string);
260      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;
261      procedure VisAlarmSkaerm(strMessage: string);      procedure VisAlarmSkaerm(strMessage: string);
262      function InjectURL(Url : String) : String;  
263    
264    public    public
265      { Public declarations }      { Public declarations }
# Line 286  implementation Line 285  implementation
285  procedure TMainForm.InitForm(Farve,Titel,Url : String);  procedure TMainForm.InitForm(Farve,Titel,Url : String);
286  begin  begin
287    
288        IdHTTP1.ConnectTimeout := 5000; // Vent max 5 sek på connect
289        IdHTTP1.ReadTimeout := 10000; // Vent max 10 sek på read
290    
291    
292    
293    
294      StaticTextManglendePakker.Caption := '';      StaticTextManglendePakker.Caption := '';
295    
296    
# Line 397  begin Line 402  begin
402        PrinterstatusStaticText1.Color := MainForm.Color;        PrinterstatusStaticText1.Color := MainForm.Color;
403      end;      end;
404    
405      if PakkeshopLevering1.Checked or Pakkernormal1.Checked then      if menuPakkeshop1.Checked or menuNatXpress1.Checked then
406        PakkeshopText1.Visible := true        PakkeshopText1.Visible := true
407      else      else
408        PakkeshopText1.Visible := false;        PakkeshopText1.Visible := false;
# Line 422  begin Line 427  begin
427        end;        end;
428      end;      end;
429    
430      if Automatisktjekkodestyring1.Checked then      if menuAutomatiskTjekkodeStyring.Checked then
431      begin      begin
432        chkScanTjekkode.Enabled := false;        chkScanTjekkode.Enabled := false;
433        Scanogstjekkoden1.Enabled := false;        Scanogstjekkoden1.Enabled := false;
# Line 480  begin Line 485  begin
485    StregkodeST.Caption := Stregkode;    StregkodeST.Caption := Stregkode;
486  end;  end;
487    
488  procedure TMainForm.Automatisktjekkodestyring1Click(Sender: TObject);  procedure TMainForm.menuAutomatiskTjekkodeStyringClick(Sender: TObject);
489  begin  begin
490    if Automatisktjekkodestyring1.Checked then    if menuAutomatiskTjekkodeStyring.Checked then
491    begin    begin
492       chkScanTjekkode.Enabled := false;       chkScanTjekkode.Enabled := false;
493       Scanogstjekkoden1.Enabled := false;       Scanogstjekkoden1.Enabled := false;
# Line 495  begin Line 500  begin
500    
501  end;  end;
502    
503  procedure TMainForm.Automatiskvalg1Click(Sender: TObject);  procedure TMainForm.menuAutomatiskvalg1Click(Sender: TObject);
504  begin  begin
505  // Skal ikke toggle men bare sætte funktionen on  // Skal ikke toggle men bare sætte funktionen on
506  // Fravælges ved at vælge en scanningstype  // Fravælges ved at vælge en scanningstype
507       AutomatiskValg1.Checked := true;       menuAutomatiskvalg1.Checked := true;
508       PanelValgA.Color := clGreen;       PanelValgA.Color := clGreen;
509       PanelValgA.Font.Color := clWhite;       PanelValgA.Font.Color := clWhite;
510  end;  end;
511    
 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());  
512    
   Result := Url;  
 end;  
513    
514  //InitForm kaldes før FormCreate  //InitForm kaldes før FormCreate
515  procedure TMainForm.FormCreate(Sender: TObject);  procedure TMainForm.FormCreate(Sender: TObject);
# Line 549  begin Line 546  begin
546    
547  // Sætter lige en default panel størrelse  // Sætter lige en default panel størrelse
548    MainForm.ClientWidth := 1000;    MainForm.ClientWidth := 1000;
549    MainForm.ClientHeight := 750;    MainForm.ClientHeight := 820;
550    
551    Config := TConfiguration.Create();    Config := TConfiguration.Create();
552    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 561  begin
561      Sted := ReadString('Settings','Sted','');      Sted := ReadString('Settings','Sted','');
562      StedNavn := ReadString('Settings','Stednavn','');      StedNavn := ReadString('Settings','Stednavn','');
563    
     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);  
564    
     UrlIndleveringsPakkeManglendeScanninger := ReadString('Settings', 'UrlIndleveringsPakkeManglendeScanninger','http://omdeling.info/webservices/pakkeshop/IndleveringsPakkeManglendeScanninger.php?sted=%s');  
     UrlIndleveringsPakkeManglendeScanninger := InjectURL(UrlIndleveringsPakkeManglendeScanninger);  
565    
     URLOmdirigerTilPakkeshop := ReadString('Settings', 'URLOmdirigerTilPakkeshop','http://omdeling.info/webservices/pakkeshop/PakkeKontrolOmdirigerTilPakkeshop.php?sted=%s&stregkode=%s');  
     URLOmdirigerTilPakkeshop := InjectURL(URLOmdirigerTilPakkeshop);  
566    
567    
   
     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');  
   
     FarveReturPakkeshop := ReadString('Settings','FarveReturPakkeshop','99FFCC');  
     TitelReturPakkeshop := ReadString('Settings','TitelReturPakkeshop','Returforsendelse fra pakkeshop');  
   
     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');  
   
568      if (SkrivLog = '1') then      if (SkrivLog = '1') then
569      begin      begin
570        logTekst := 'Program start (Version: ' + TUtils.Sto_GetFmtFileVersion('') + ') Dato: ' + FormatDateTime('yyyy-mm-dd hh:nn:ss',now);        logTekst := 'Program start (Version: ' + TUtils.Sto_GetFmtFileVersion('') + ') Dato: ' + FormatDateTime('yyyy-mm-dd hh:nn:ss',now);
# Line 666  begin Line 583  begin
583    
584      if Scanningtype = 'A' then      if Scanningtype = 'A' then
585      begin      begin
586        Automatiskvalg1.Checked := true;        menuAutomatiskvalg1.Checked := true;
587        Scanningtype := '1';        Scanningtype := '1';
588        PanelValgA.Color := clGreen;        PanelValgA.Color := clGreen;
589        PanelValgA.Font.Color := clWhite;        PanelValgA.Font.Color := clWhite;
# Line 698  begin Line 615  begin
615    
616      if ScanTjekkodeAutomatik = '1' then      if ScanTjekkodeAutomatik = '1' then
617      begin      begin
618        Automatisktjekkodestyring1.Checked := true;        menuAutomatiskTjekkodeStyring.Checked := true;
619        chkScanTjekkode.Enabled := false;        chkScanTjekkode.Enabled := false;
620        Scanogstjekkoden1.Enabled := false;        Scanogstjekkoden1.Enabled := false;
621      end;      end;
# Line 741  begin Line 658  begin
658      SpecialVersionSted := 'NS';      SpecialVersionSted := 'NS';
659  {$EndIf}  {$EndIf}
660    
   
661      //SpecialVersionSted := '01';  // NS - bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE)      //SpecialVersionSted := '01';  // NS - bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE)
662      //SpecialVersionSted := '02';  // BK - BRUGES IKKE (brug i stedet ovenstående SpecialVersionSted BK)      //SpecialVersionSted := '02';  // BK - BRUGES IKKE (brug i stedet ovenstående SpecialVersionSted BK)
663      //SpecialVersionSted := '03';  // FD - (bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE)      //SpecialVersionSted := '03';  // FD - (bruges sammen med nedenstående SpecialVersionScanningtype DIREKTE)
# Line 759  begin Line 675  begin
675    
676      if SpecialVersionSted = 'NS' then      if SpecialVersionSted = 'NS' then
677      begin      begin
678         SpecialVersionSted := '01';         //SpecialVersionSted := '01'; // Fra før NS overtog scanning løssalg
679         SpecialVersionScanningtype := '4';         //SpecialVersionScanningtype := '4';
680    
681          //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil
682          Sted := SpecialVersionSted;
683         // her skal vi også disable de knapper BK ikke kan bruge
684          PanelValg2.Enabled := false;
685          PanelValg2.Font.Color := clInactiveCaption;
686          PanelValg3.Enabled := false;
687          PanelValg3.Font.Color := clInactiveCaption;
688          //PanelValg6.Enabled := false;
689          //PanelValg6.Font.Color := clInactiveCaption;
690    
691         // her skal vi også disable de menupunkter FD ikke kan bruge
692          menuNatxpressReturDAO1.Enabled := false;
693          menuNatxpressReturfraKunde1.Enabled := false;
694    
695          //Returpakkerfrapakkeshop1.Enabled := false;
696      end;      end;
697    
698      if SpecialVersionSted = 'FD' then      if SpecialVersionSted = 'FD' then
# Line 780  begin Line 712  begin
712        //PanelValg6.Font.Color := clInactiveCaption;        //PanelValg6.Font.Color := clInactiveCaption;
713    
714       // her skal vi også disable de menupunkter FD ikke kan bruge       // her skal vi også disable de menupunkter FD ikke kan bruge
715        ReturpakkerfraDAO1.Enabled := false;        menuNatxpressReturDAO1.Enabled := false;
716        Returpakkerfraboghandler1.Enabled := false;        menuNatxpressReturfraKunde1.Enabled := false;
717    
718        //Returpakkerfrapakkeshop1.Enabled := false;        //Returpakkerfrapakkeshop1.Enabled := false;
719    
# Line 800  begin Line 732  begin
732        //PanelValg6.Font.Color := clInactiveCaption;        //PanelValg6.Font.Color := clInactiveCaption;
733    
734       // her skal vi også disable de menupunkter BK ikke kan bruge       // her skal vi også disable de menupunkter BK ikke kan bruge
735        ReturpakkerfraDAO1.Enabled := false;        menuNatxpressReturDAO1.Enabled := false;
736        Returpakkerfraboghandler1.Enabled := false;        menuNatxpressReturfraKunde1.Enabled := false;
737    
738        //Returpakkerfrapakkeshop1.Enabled := false;        //Returpakkerfrapakkeshop1.Enabled := false;
739    
# Line 817  begin Line 749  begin
749    
750      if SpecialVersionSted = 'DBK' then      if SpecialVersionSted = 'DBK' then
751      begin      begin
       //FarveNormal := 'A9F5A9';  // her kan vi evt. overrule ini fil  
752        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;  
753      end;      end;
754    
755      if (SpecialVersionSted = '01')      if (SpecialVersionSted = '01')
# Line 870  begin Line 775  begin
775        PanelValg7.Font.Color := clInactiveCaption;        PanelValg7.Font.Color := clInactiveCaption;
776       // 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
777    
778        Automatiskvalg1.Enabled := false;        menuAutomatiskvalg1.Enabled := false;
779    
780        Pakkernormal1.Enabled := false;        menuNatXpress1.Enabled := false;
781        ReturpakkerfraDAO1.Enabled := false;        menuNatxpressReturDAO1.Enabled := false;
782        Returpakkerfraboghandler1.Enabled := false;        menuNatxpressReturfraKunde1.Enabled := false;
783        Budlevering1.Enabled := false;        menuDaoDirekte1.Enabled := false;
784        Pakkeshoplevering1.Enabled := false;        menuPakkeshop1.Enabled := false;
785        Returpakkerfrapakkeshop1.Enabled := false;        menuPakkeshopRetur1.Enabled := false;
786        if SpecialVersionScanningtype = 'A' then        if SpecialVersionScanningtype = 'A' then
787        begin        begin
788          Scanningtype := '4';          Scanningtype := '4';
789          Budlevering1.Enabled := true;          menuDaoDirekte1.Enabled := true;
790          PanelValg4.Font.Color := clWindowText;          PanelValg4.Font.Color := clWindowText;
791          PanelValg4.Enabled := true;          PanelValg4.Enabled := true;
792        end        end
# Line 890  begin Line 795  begin
795          Scanningtype := SpecialVersionScanningtype;          Scanningtype := SpecialVersionScanningtype;
796          PanelValgA.Enabled := false;          PanelValgA.Enabled := false;
797          PanelValgA.Font.Color := clInactiveCaption;          PanelValgA.Font.Color := clInactiveCaption;
798          AutomatiskValg1.Checked := false;          menuAutomatiskvalg1.Checked := false;
799          PanelValgA.Color := clBtnFace;          PanelValgA.Color := clBtnFace;
800          if Scanningtype = '1' then          if Scanningtype = '1' then
801          begin          begin
802            Pakkernormal1.Enabled := true;            menuNatXpress1.Enabled := true;
803            PanelValg1.Enabled := true;            PanelValg1.Enabled := true;
804            PanelValg1.Font.Color := clWindowText;            PanelValg1.Font.Color := clWindowText;
805          end;          end;
806          if Scanningtype = '2' then          if Scanningtype = '2' then
807          begin          begin
808            ReturpakkerfraDAO1.Enabled := true;            menuNatxpressReturDAO1.Enabled := true;
809            PanelValg2.Enabled := true;            PanelValg2.Enabled := true;
810            PanelValg2.Font.Color := clWindowText;            PanelValg2.Font.Color := clWindowText;
811          end;          end;
812          if Scanningtype = '3' then          if Scanningtype = '3' then
813          begin          begin
814            Returpakkerfraboghandler1.Enabled := true;            menuNatxpressReturfraKunde1.Enabled := true;
815            PanelValg3.Enabled := true;            PanelValg3.Enabled := true;
816            PanelValg3.Font.Color := clWindowText;            PanelValg3.Font.Color := clWindowText;
817          end;          end;
818          if Scanningtype = '4' then          if Scanningtype = '4' then
819          begin          begin
820            Budlevering1.Enabled := true;            menuDaoDirekte1.Enabled := true;
821            PanelValg4.Enabled := true;            PanelValg4.Enabled := true;
822            PanelValg4.Font.Color := clWindowText;            PanelValg4.Font.Color := clWindowText;
823          end;          end;
824          if Scanningtype = '5' then          if Scanningtype = '5' then
825          begin          begin
826            Pakkeshoplevering1.Enabled := true;            menuPakkeshop1.Enabled := true;
827            PanelValg5.Enabled := true;            PanelValg5.Enabled := true;
828            PanelValg5.Font.Color := clWindowText;            PanelValg5.Font.Color := clWindowText;
829          end;          end;
830          if Scanningtype = '6' then          if Scanningtype = '6' then
831          begin          begin
832            Returpakkerfrapakkeshop1.Enabled := true;            menuPakkeshopRetur1.Enabled := true;
833            PanelValg6.Enabled := true;            PanelValg6.Enabled := true;
834            PanelValg6.Font.Color := clWindowText;            PanelValg6.Font.Color := clWindowText;
835          end;          end;
# Line 1005  begin Line 910  begin
910    
911      if Pakketype = '1' then      if Pakketype = '1' then
912      begin      begin
913        Storepakker1.Checked := true;        menuStorePakker.Checked := true;
914        radioStorPakke.Checked := true;        radioStorPakke.Checked := true;
915      end      end
916      else      else
917      begin      begin
918        Smpakker1.Checked := true;        menuSmaaPakker.Checked := true;
919        radioLillePakke.Checked := true;        radioLillePakke.Checked := true;
920      end;      end;
921    
# Line 1070  begin Line 975  begin
975      // UBD skal p.t. ikke have adgang til flg. funktioner      // UBD skal p.t. ikke have adgang til flg. funktioner
976      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
977      begin      begin
978        ReturpakkerfraDAO1.Visible := false;        menuNatxpressReturDAO1.Visible := false;
979        Returpakkerfraboghandler1.Visible := false;        menuNatxpressReturfraKunde1.Visible := false;
980        Budlevering1.Visible := false;        menuDaoDirekte1.Visible := false;
981        Storepakker1.Visible := false;        menuStorePakker.Visible := false;
982        Smpakker1.Visible := false;        menuSmaaPakker.Visible := false;
983        Testprinter1.Visible := false;        Testprinter1.Visible := false;
984        Pakkeshoplevering1.Visible := false;        menuPakkeshop1.Visible := false;
985        Returpakkerfrapakkeshop1.Visible := false;        menuPakkeshopRetur1.Visible := false;
986      end;      end;
987    
988      if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then      if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then
# Line 1426  begin Line 1331  begin
1331      if (Length(Stregkode) > 8) then      if (Length(Stregkode) > 8) then
1332      begin      begin
1333        // Her skal vi så forespørge pakketype på serveren udfra stregkode feltet        // Her skal vi så forespørge pakketype på serveren udfra stregkode feltet
1334        URLStr := Format(UrlFindPakketype,[Stregkode]);        URLStr := Format(Config.UrlFindPakketype,[Stregkode]);
1335        try        try
1336          //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST          //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST
1337          WebSvar := IdHTTP1.Get(URLStr);          WebSvar := IdHTTP1.Get(URLStr);
# Line 1481  begin Line 1386  begin
1386         exit;         exit;
1387      end;      end;
1388    
1389      if (Automatiskvalg1.Checked and (Length(Stregkode) > 8) ) then      if (menuAutomatiskvalg1.Checked and (Length(Stregkode) > 8) ) then
1390      begin      begin
1391        GemStregkode := Stregkode;        GemStregkode := Stregkode;
1392        if Pakketype = 'NatXpress' then        if Pakketype = 'NatXpress' then
# Line 1510  begin Line 1415  begin
1415                InitPakkeshoplevering();                InitPakkeshoplevering();
1416              end;              end;
1417            end            end
1418        // Retur kan ikke scannes med 'Automatisk valg'       else if Pakketype = 'PakkeshopRetur' then
1419              begin
1420                if Scanningtype <> '6' then
1421                begin
1422                 VisAlarmSkaerm( Stregkode + ' Pakkeshop retur,'#13#10' kan ikke bruges med automatisk valg' );
1423    
1424                 exit;
1425                end;
1426              end
1427    
1428    
1429        else        else
1430            begin            begin
# Line 1522  begin Line 1436  begin
1436            end;            end;
1437        Stregkode := GemStregkode;        Stregkode := GemStregkode;
1438      end      end
1439      else if Automatiskvalg1.Checked and (PakkeshopText1.Caption = 'Stregkode') then      else if menuAutomatiskvalg1.Checked and (PakkeshopText1.Caption = 'Stregkode') then
1440      begin      begin
1441        VisAlarmSkaerm( 'Pakkenummer ikke gyldigt (for kort)' );        VisAlarmSkaerm( 'Pakkenummer ikke gyldigt (for kort)' );
1442    
1443        exit;        exit;
1444      end;      end;
1445    
1446      if not Automatiskvalg1.Checked then      if not menuAutomatiskvalg1.Checked then
1447      begin      begin
1448        if ( (Pakkescanningtype <> Scanningtype) and (Scanningtype <> '2') and (Scanningtype <> '3') ) then        if ( (Pakkescanningtype <> Scanningtype) and (Scanningtype <> '2') and (Scanningtype <> '3') ) then
1449        begin        begin
# Line 1542  begin Line 1456  begin
1456    
1457    
1458    
1459      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and Automatisktjekkodestyring1.Checked then      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and menuAutomatiskTjekkodeStyring.Checked then
1460      begin      begin
1461        chkScanTjekkode.Checked := false;        chkScanTjekkode.Checked := false;
1462        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do        for i := 0 to length(stregkoderMedTjekkodeArray)-1 do
# Line 1555  begin Line 1469  begin
1469        end;        end;
1470      end;      end;
1471    
1472      if Pakkernormal1.Checked and not Scanogstjekkoden1.Checked then      if menuNatXpress1.Checked and not Scanogstjekkoden1.Checked then
1473        begin        begin
1474          // Når vi ikke kræver tjekkode er alt ok her          // Når vi ikke kræver tjekkode er alt ok her
1475             BoghandlerStregkode := Stregkode;             BoghandlerStregkode := Stregkode;
# Line 1565  begin Line 1479  begin
1479             Stregkode := '';             Stregkode := '';
1480             InitScreen();             InitScreen();
1481        end        end
1482      else if (PakkeshopLevering1.Checked or Pakkernormal1.Checked) and not Scanogstjekkoden1.Checked then      else if (menuPakkeshop1.Checked or menuNatXpress1.Checked) and not Scanogstjekkoden1.Checked then
1483        begin        begin
1484          // Når vi ikke kræver tjekkode er alt ok her          // Når vi ikke kræver tjekkode er alt ok her
1485             PakkeshopStregkode := Stregkode;             PakkeshopStregkode := Stregkode;
# Line 1577  begin Line 1491  begin
1491             Stregkode := '';             Stregkode := '';
1492             InitScreen();             InitScreen();
1493        end        end
1494      else if PakkeshopLevering1.Checked or Pakkernormal1.Checked then      else if menuPakkeshop1.Checked or menuNatXpress1.Checked then
1495        if PakkeshopText1.Caption = 'Stregkode' then        if PakkeshopText1.Caption = 'Stregkode' then
1496         begin         begin
1497            if length(Stregkode) > 5 then            if length(Stregkode) > 5 then
# Line 1603  begin Line 1517  begin
1517             PakkeshopTjekkode := Stregkode;             PakkeshopTjekkode := Stregkode;
1518             BoghandlerTjekkode := Stregkode;             BoghandlerTjekkode := Stregkode;
1519             PakkeshopText1.Caption := 'Stregkode';             PakkeshopText1.Caption := 'Stregkode';
1520             if (PakkeshopLevering1.Checked) then             if (menuPakkeshop1.Checked) then
1521                MainForm.Color := TUtils.HexToTColor(FarvePakkeshoplevering);                MainForm.Color := TUtils.HexToTColor(Config.FarvePakkeshoplevering);
1522             if (Pakkernormal1.Checked) then             if (menuNatXpress1.Checked) then
1523                MainForm.Color := TUtils.HexToTColor(FarveNormal);                MainForm.Color := TUtils.HexToTColor(Config.FarveNormal);
1524             btnNulstil.Visible := false;             btnNulstil.Visible := false;
1525           end           end
1526          else          else
1527           begin           begin
1528                if (PakkeshopLevering1.Checked) then                if (menuPakkeshop1.Checked) then
1529                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode);                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + PakkeshopStregkode);
1530                if (Pakkernormal1.Checked) then                if (menuNatXpress1.Checked) then
1531                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode);                  VisAlarmSkaerm('Du skal scanne en tjekkode til stregkode ' + BoghandlerStregkode);
1532                                    
1533                StregKode := '';                StregKode := '';
# Line 1625  begin Line 1539  begin
1539          InitScreen();          InitScreen();
1540       end;       end;
1541    
1542      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
1543      begin      begin
1544    
1545         if PakkeshopLevering1.Checked and (PakkeshopStregkode <> '') and (PakkeshopTjekkode <> '') then         if menuPakkeshop1.Checked and (PakkeshopStregkode <> '') and (PakkeshopTjekkode <> '') then
1546            StregKode := PakkeshopStregkode;            StregKode := PakkeshopStregkode;
1547         if Pakkernormal1.Checked and ((BoghandlerStregkode <> '') and (BoghandlerTjekkode <> '') or not Scanogstjekkoden1.Checked) then         if menuNatXpress1.Checked and ((BoghandlerStregkode <> '') and (BoghandlerTjekkode <> '') or not Scanogstjekkoden1.Checked) then
1548            StregKode := BoghandlerStregkode;            StregKode := BoghandlerStregkode;
1549         StregkodeST.Caption := StregKode;         StregkodeST.Caption := StregKode;
1550         try         try
# Line 1644  begin Line 1558  begin
1558    
1559              exit;              exit;
1560            end;            end;
1561            if (Pakkernormal1.Checked or Budlevering1.Checked or PakkeshopLevering1.Checked) then            if (menuNatXpress1.Checked or menuDaoDirekte1.Checked or menuPakkeshop1.Checked) then
1562            begin            begin
1563              PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel);              PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel);
1564              pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);              pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);
# Line 1665  begin Line 1579  begin
1579                MainForm.Color := clRed;                MainForm.Color := clRed;
1580              end;              end;
1581           end;           end;
1582            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
1583            begin            begin
1584              MainForm.Color := TUtils.HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1585              if Storepakker1.Checked then              if menuStorePakker.Checked then
1586              begin              begin
1587                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(ScannetOkStorLyd));
1588              end              end
# Line 1678  begin Line 1592  begin
1592              end;              end;
1593              btnNulstil.Visible := false;              btnNulstil.Visible := false;
1594            end            end
1595            else if (Returpakkerfradao1.Checked or Returpakkerfraboghandler1.Checked) then            else if (menuNatxpressReturDAO1.Checked or menuNatxpressReturfraKunde1.Checked) then
1596            begin            begin
1597              MainForm.Color := TUtils.HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1598              if Storepakker1.Checked then              if menuStorePakker.Checked then
1599              begin              begin
1600                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(ScannetOkStorLyd));
1601              end              end
# Line 1706  begin Line 1620  begin
1620           if not btnNulstil.Visible then           if not btnNulstil.Visible then
1621            begin            begin
1622    
1623              If (Budlevering1.Checked) then              If (menuDaoDirekte1.Checked) then
1624              begin              begin
1625                if Storepakker1.Checked then                if menuStorePakker.Checked then
1626                begin                begin
1627                  PlaySound(PWideChar(ScannetOkStorLyd));                  PlaySound(PWideChar(ScannetOkStorLyd));
1628                end                end
# Line 1768  var Line 1682  var
1682    WebSvar : String;    WebSvar : String;
1683    URLStr : String;    URLStr : String;
1684  begin  begin
1685    if UrlSendPrograminfo <> '' then    if Config.UrlSendPrograminfo <> '' then
1686    begin    begin
1687      URLStr := Format(UrlSendPrograminfo,[ExtractFileName(ParamStr(0)), Sted, Scanningtype, Infotype, Info]);      URLStr := Format(Config.UrlSendPrograminfo,[ExtractFileName(ParamStr(0)), Sted, Scanningtype, Infotype, Info]);
1688      try      try
1689        //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST        //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST
1690        WebSvar := IdHTTP1.Get(URLStr);        WebSvar := IdHTTP1.Get(URLStr);
# Line 1783  begin Line 1697  begin
1697        ShowMessage(logTekst);        ShowMessage(logTekst);
1698        SkrivScanningLogFil(logTekst);        SkrivScanningLogFil(logTekst);
1699        // 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
1700        UrlSendPrograminfo := '';        Config.UrlSendPrograminfo := '';
1701        Application.Terminate;        Application.Terminate;
1702      end;      end;
1703      end;      end;
# Line 1802  var Line 1716  var
1716    
1717    
1718  begin  begin
1719      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
1720      begin      begin
1721        for i := ListBox2.items.count-1 downto 0 do        for i := ListBox2.items.count-1 downto 0 do
1722          if pos(StregKode,ListBox2.items[i]) <> 0 then          if pos(StregKode,ListBox2.items[i]) <> 0 then
1723          begin          begin
1724              wrkAntalSenere := 0;//initial Value
1725    
1726            // Ajourføring af tæller for manglende pakker (scanninger)            // Ajourføring af tæller for manglende pakker (scanninger)
1727            wrkAntal := StaticTextManglendePakker.Caption;            wrkAntal := StaticTextManglendePakker.Caption;
# Line 1951  procedure TMainForm.InitBladhus(); Line 1866  procedure TMainForm.InitBladhus();
1866    
1867  begin  begin
1868    Altidprintepakkelabel1.Enabled := false;    Altidprintepakkelabel1.Enabled := false;
1869    Pakkernormal1.Visible := false;    menuNatXpress1.Visible := false;
1870    ReturpakkerfraDAO1.Visible := false;    menuNatxpressReturDAO1.Visible := false;
1871    Returpakkerfraboghandler1.Visible := false;    menuNatxpressReturfraKunde1.Visible := false;
1872    Sprgefterboghandlernummer1.Enabled := false;    Sprgefterboghandlernummer1.Enabled := false;
1873    ListBox1.Visible := true;    ListBox1.Visible := true;
1874  //  TestFunktionen := '1';  //  TestFunktionen := '1';
1875    
1876    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
1877    begin    begin
1878      IndlesScanningLogFil();      IndlesScanningLogFil();
1879    end;    end;
# Line 1982  begin Line 1897  begin
1897      02 :      02 :
1898            begin;    // BK            begin;    // BK
1899              Testprinter1.Visible := true;              Testprinter1.Visible := true;
1900              Smpakker1.Enabled := true;              menuSmaaPakker.Enabled := true;
1901              Storepakker1.Enabled := true;              menuStorePakker.Enabled := true;
1902              radioStorPakke.Enabled := true;              radioStorPakke.Enabled := true;
1903              radioLillePakke.Enabled := true;              radioLillePakke.Enabled := true;
1904              BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her
# Line 2020  begin Line 1935  begin
1935            end;            end;
1936      04 :  begin;           // DBK      04 :  begin;           // DBK
1937              Testprinter1.Visible := true;              Testprinter1.Visible := true;
1938              Smpakker1.Enabled := true;              menuSmaaPakker.Enabled := true;
1939              Storepakker1.Enabled := true;              menuStorePakker.Enabled := true;
1940              radioStorPakke.Enabled := true;              radioStorPakke.Enabled := true;
1941              radioLillePakke.Enabled := true;              radioLillePakke.Enabled := true;
1942              BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her
# Line 2054  begin Line 1969  begin
1969    end;    end;
1970    
1971    
1972    if Pakkernormal1.Checked then    if menuNatXpress1.Checked then
1973    begin    begin
1974       if (BoghandlerTjekkode = '') then       if (BoghandlerTjekkode = '') then
1975       begin       begin
1976         BoghandlerTjekkode := '-1';         BoghandlerTjekkode := '-1';
1977       end;       end;
1978       URLStr := Format(UrlNormal,[Sted, PakkeNr, BoghandlerNummer, BoghandlerTjekkode]);       URLStr := Format(Config.UrlNormal,[Sted, PakkeNr, BoghandlerNummer, BoghandlerTjekkode]);
1979    end    end
1980    else if ReturpakkerfraDAO1.Checked then    else if menuNatxpressReturDAO1.Checked then
1981    begin    begin
1982       URLStr := Format(UrlReturDAO,[Sted, PakkeNr, BoghandlerNummer, 'DAO', pakkestorrelse]);       URLStr := Format(Config.UrlReturDAO,[Sted, PakkeNr, BoghandlerNummer, 'DAO', pakkestorrelse]);
1983    end    end
1984    else if Returpakkerfraboghandler1.Checked then    else if menuNatxpressReturfraKunde1.Checked then
1985    begin    begin
1986       URLStr := Format(UrlReturBoghandler,[Sted, PakkeNr, BoghandlerNummer, 'Boghandler', pakkestorrelse]);       URLStr := Format(Config.UrlReturBoghandler,[Sted, PakkeNr, BoghandlerNummer, 'Boghandler', pakkestorrelse]);
1987    end    end
1988    else if Budlevering1.Checked then    else if menuDaoDirekte1.Checked then
1989    begin    begin
1990       URLStr := Format(UrlBudlevering,[Sted, PakkeNr, 'bud', pakkestorrelse]);       URLStr := Format(Config.UrlBudlevering,[Sted, PakkeNr, 'bud', pakkestorrelse]);
1991    end    end
1992    else if Pakkeshoplevering1.Checked then    else if menuPakkeshop1.Checked then
1993    begin    begin
1994       URLStr := Format(UrlPakkeshoplevering,[Sted, PakkeNr, PakkeshopTjekkode]);       URLStr := Format(Config.UrlPakkeshoplevering,[Sted, PakkeNr, PakkeshopTjekkode]);
1995    end    end
1996    else if Returpakkerfrapakkeshop1.Checked then    else if menuPakkeshopRetur1.Checked then
1997    begin    begin
1998       URLStr := Format(UrlReturPakkeshop,[Sted, PakkeNr]);       URLStr := Format(Config.UrlReturPakkeshop,[Sted, PakkeNr]);
1999    end    end
2000    else if menuIndlevering.Checked then    else if menuIndlevering.Checked then
2001    begin    begin
2002      URLStr := Format(UrlIndleveringsPakke,[Sted, PakkeNr]);      URLStr := Format(Config.UrlIndleveringsPakke,[Sted, PakkeNr]);
2003    end    end
2004    else    else
2005    begin    begin
# Line 2093  begin Line 2008  begin
2008    
2009    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
2010    begin    begin
2011      URLStr := Format(URLOmdirigerTilPakkeshop,[Sted, PakkeNr]);      URLStr := Format(Config.URLOmdirigerTilPakkeshop,[Sted, PakkeNr]);
2012    end;    end;
2013    
2014    try    try
# Line 2120  begin Line 2035  begin
2035    
2036    XMLDocument1.LoadFromXML(WebSvar);    XMLDocument1.LoadFromXML(WebSvar);
2037    try    try
2038      if Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked then      if menuPakkeshop1.Checked or menuPakkeshopRetur1.Checked then
2039       begin       begin
2040        RuteNummer := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopTurid').Text;        RuteNummer := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopTurid').Text;
2041        Kommentar := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Stregkodematch').Text;        Kommentar := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Stregkodematch').Text;
# Line 2128  begin Line 2043  begin
2043        BoghandlerNavn := BoghandlerNavn + ' ' + XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;        BoghandlerNavn := BoghandlerNavn + ' ' + XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopNavn').Text;
2044        PrintNyLabel := False;        PrintNyLabel := False;
2045    
2046        if Pakkeshoplevering1.Checked then        if menuPakkeshop1.Checked then
2047        begin        begin
2048          try          try
2049            PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text);            PrintNyLabelInteger := StrToInt(XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('PakkeshopPrintPakkeLabel').Text);
# Line 2155  begin Line 2070  begin
2070         RuteNummer := PakkeshopLabel.Koreliste + '  ->  ' +  PakkeshopLabel.PakkeshopTurid;         RuteNummer := PakkeshopLabel.Koreliste + '  ->  ' +  PakkeshopLabel.PakkeshopTurid;
2071         Stregkode := PakkeshopLabel.Stregkode;         Stregkode := PakkeshopLabel.Stregkode;
2072    
2073         LabelPrint.PrintPakkeshopLabel( PakkeshopLabel );         LabelPrint.PrintFuldPakkeLabel( PakkeshopLabel );
2074         chkForstorTilDirekte.Checked := false;         chkForstorTilDirekte.Checked := false;
2075    
2076       end;       end;
# Line 2169  begin Line 2084  begin
2084        Kommentar := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('Kommentar').Text;        Kommentar := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('Kommentar').Text;
2085        BoghandlerNavn := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('BoghandlerNavn').Text;        BoghandlerNavn := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('BoghandlerNavn').Text;
2086        Leveringssted := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('Leveringssted').Text;        Leveringssted := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('Leveringssted').Text;
2087        if Budlevering1.Checked then        if menuDaoDirekte1.Checked then
2088          begin          begin
2089          try          try
2090            SmsKode := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('SmsKode').Text;            SmsKode := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('SmsKode').Text;
# Line 2200  begin Line 2115  begin
2115      begin      begin
2116        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then
2117        begin        begin
2118            Kommentar := Kommentar + ' Pakke burde være hos DAO Distribution';            Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted;
2119            PrintNyLabel := False;            PrintNyLabel := False;
2120        end;        end;
2121      end      end
2122      else if (Budlevering1.Checked) and (Leveringssted <> Sted) then      else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) And (Leveringssted <> '') then
2123      begin      begin
2124         if (Leveringssted = 'E') and (Sted = 'DBK') then         if (Leveringssted = 'E') and (Sted = 'DBK') then
2125         begin         begin
# Line 2212  begin Line 2127  begin
2127         end         end
2128         else         else
2129         begin         begin
2130            Kommentar := Kommentar + ' Pakke burde være hos DAO Distribution';            Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted;
2131            PrintNyLabel := False;            PrintNyLabel := False;
2132         end;         end;
2133      end;      end;
# Line 2233  begin Line 2148  begin
2148    //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
2149    BoghandlerNavnST.Caption := StringReplace(BoghandlerNavn, ' & ', ' && ', [rfReplaceAll, rfIgnoreCase]);    BoghandlerNavnST.Caption := StringReplace(BoghandlerNavn, ' & ', ' && ', [rfReplaceAll, rfIgnoreCase]);
2150    List1msg := TimeToStr(now) + '; ';    List1msg := TimeToStr(now) + '; ';
2151    if Pakkeshoplevering1.Checked then    if menuPakkeshop1.Checked then
2152      List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; ';      List1msg := List1msg + PakkeshopStregkode + ' ' + PakkeshopTjekkode + '; ' + KommentarST.Caption + '; ';
2153    List1Pakkestorrelse := '';    List1Pakkestorrelse := '';
2154    if radioStorPakke.Checked then    if radioStorPakke.Checked then
# Line 2245  begin Line 2160  begin
2160      List1Pakkestorrelse := 'Lille pakke';      List1Pakkestorrelse := 'Lille pakke';
2161    end;    end;
2162    List1msg := List1msg + BoghandlerNavn + '; ';    List1msg := List1msg + BoghandlerNavn + '; ';
2163    if ReturpakkerfraDAO1.Checked then    if menuNatxpressReturDAO1.Checked then
2164    begin    begin
2165      List1msg := List1msg + RightStr(Kommentar, Length(Kommentar)-8);      List1msg := List1msg + RightStr(Kommentar, Length(Kommentar)-8);
2166    end;    end;
2167    if Returpakkerfraboghandler1.Checked then    if menuNatxpressReturfraKunde1.Checked then
2168    begin    begin
2169      List1msg := List1msg + RightStr(Kommentar, Length(Kommentar)-16);      List1msg := List1msg + RightStr(Kommentar, Length(Kommentar)-16);
2170    end;    end;
2171    if ReturpakkerfraDAO1.Checked or Returpakkerfraboghandler1.Checked then    if menuNatxpressReturDAO1.Checked or menuNatxpressReturfraKunde1.Checked then
2172       List1msg := List1msg + '; ' + List1Pakkestorrelse;       List1msg := List1msg + '; ' + List1Pakkestorrelse;
2173    if length(BoghNr) > 0 then    if length(BoghNr) > 0 then
2174    begin    begin
2175      List1Msg := List1Msg + '; Indtastet ' + BoghNr;      List1Msg := List1Msg + '; Indtastet ' + BoghNr;
2176    end;    end;
2177    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
2178    begin    begin
2179       List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn;       List1msg := TimeToStr(now) + '; ' + Kommentar + '; ' + BoghandlerNavn;
2180        if (radioStorPakke.Checked) then        if (radioStorPakke.Checked) then
# Line 2271  begin Line 2186  begin
2186          List1msg := List1msg + '; Lille pakke';          List1msg := List1msg + '; Lille pakke';
2187        end;        end;
2188    end;    end;
2189    if Returpakkerfrapakkeshop1.Checked then    if menuPakkeshopRetur1.Checked then
2190    begin    begin
2191      List1msg := List1msg + Stregkode + ' ' + RightStr(Kommentar, Length(Kommentar)-6);      List1msg := List1msg + Stregkode + ' ' + RightStr(Kommentar, Length(Kommentar)-6);
2192    end;    end;
2193    if Pakkernormal1.Checked then    if menuNatXpress1.Checked then
2194    begin    begin
2195      if (Kommentar = '***** Kommentar *****')                       // fra test printer funktionen      if (Kommentar = '***** Kommentar *****')                       // fra test printer funktionen
2196      or (BoghandlerNavn = 'Forbindelse ok')                         // fra test forbindelse funktionen      or (BoghandlerNavn = 'Forbindelse ok')                         // fra test forbindelse funktionen
# Line 2315  pakkeForkertSted : Integer; Line 2230  pakkeForkertSted : Integer;
2230    kontrolKoreliste : string;    kontrolKoreliste : string;
2231    nytRuteNummer, nyFarve : String;    nytRuteNummer, nyFarve : String;
2232  begin  begin
2233    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
2234       RuteNummerST.Color := TUtils.HexToTColor(Farve);       RuteNummerST.Color := TUtils.HexToTColor(Farve);
2235    
2236    pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);    pakkeErScannet := pos('PAKKEN ER SCANNET', BoghandlerNavn);
# Line 2353  begin Line 2268  begin
2268        end;        end;
2269    end    end
2270    else    else
2271    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
2272    begin    begin
2273       if (BoghandlerNavn = 'Ukendt pakke') then       if (BoghandlerNavn = 'Ukendt pakke') then
2274       begin       begin
# Line 2422  begin Line 2337  begin
2337    
2338    end;    end;
2339    
2340    if Budlevering1.Checked then    if menuDaoDirekte1.Checked then
2341    begin    begin
2342      case BladhusSted of      case BladhusSted of
2343        00 :  begin;        00 :  begin;
# Line 2471  begin Line 2386  begin
2386    end;    end;
2387    
2388  // 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
2389    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
2390    begin    begin
2391      exit;      exit;
2392    end;    end;
2393    
2394    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
2395    begin    begin
2396    end    end
2397    else    else
# Line 2510  end; Line 2425  end;
2425    
2426  procedure TMainForm.radioStorPakkeClick(Sender: TObject);  procedure TMainForm.radioStorPakkeClick(Sender: TObject);
2427  begin  begin
2428      Storepakker1.Checked := true;      menuStorePakker.Checked := true;
2429      radioStorPakke.Checked := true;      radioStorPakke.Checked := true;
2430  end;  end;
2431    
2432  procedure TMainForm.radioLillePakkeClick(Sender: TObject);  procedure TMainForm.radioLillePakkeClick(Sender: TObject);
2433  begin  begin
2434      Smpakker1.Checked := true;      menuSmaaPakker.Checked := true;
2435      radioLillePakke.Checked := true;      radioLillePakke.Checked := true;
2436  end;  end;
2437    
# Line 2559  begin Line 2474  begin
2474    end;    end;
2475  end;  end;
2476    
2477  procedure TMainForm.Pakkeshoplevering1Click(Sender: TObject);  procedure TMainForm.menuPakkeshop1Click(Sender: TObject);
2478  begin  begin
2479        Scanningtype := '5';        Scanningtype := '5';
2480        InitPakkeshoplevering();        InitPakkeshoplevering();
# Line 2568  end; Line 2483  end;
2483    
2484  procedure TMainForm.NulstilAutomatiskValg();  procedure TMainForm.NulstilAutomatiskValg();
2485  begin  begin
2486      Automatiskvalg1.Checked := false;      menuAutomatiskvalg1.Checked := false;
2487      PanelValgA.Color := clBtnFace;      PanelValgA.Color := clBtnFace;
2488      PanelValgA.Font.Color := clWindowText;      PanelValgA.Font.Color := clWindowText;
2489    
# Line 2580  begin Line 2495  begin
2495        // 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)
2496        PanelValgA.Enabled := false;        PanelValgA.Enabled := false;
2497        PanelValgA.Font.Color := clInactiveCaption;        PanelValgA.Font.Color := clInactiveCaption;
2498        Automatiskvalg1.Enabled := false;        menuAutomatiskvalg1.Enabled := false;
2499      end;      end;
2500  // 20150317: slut  // 20150317: slut
2501  end;  end;
# Line 2606  begin Line 2521  begin
2521      // Tjekker UrlNormal      // Tjekker UrlNormal
2522      if PanelValg1.Enabled = true then      if PanelValg1.Enabled = true then
2523      begin      begin
2524        TjekkerEnkeltUrl('UrlNormal', UrlNormal, urlFejl);        TjekkerEnkeltUrl('UrlNormal', Config.UrlNormal, urlFejl);
2525      end;      end;
2526    
2527      // Tjekker UrlReturDAO      // Tjekker UrlReturDAO
2528      if PanelValg2.Enabled = true then      if PanelValg2.Enabled = true then
2529      begin      begin
2530        TjekkerEnkeltUrl('UrlReturDAO', UrlReturDAO, urlFejl);        TjekkerEnkeltUrl('UrlReturDAO', Config.UrlReturDAO, urlFejl);
2531      end;      end;
2532    
2533      // Tjekker UrlReturBoghandler      // Tjekker UrlReturBoghandler
2534      if PanelValg3.Enabled = true then      if PanelValg3.Enabled = true then
2535      begin      begin
2536        TjekkerEnkeltUrl('UrlReturBoghandler', UrlReturBoghandler, urlFejl);        TjekkerEnkeltUrl('UrlReturBoghandler', Config.UrlReturBoghandler, urlFejl);
2537      end;      end;
2538    
2539      // Tjekker UrlBudlevering      // Tjekker UrlBudlevering
2540      if PanelValg4.Enabled = true then      if PanelValg4.Enabled = true then
2541      begin      begin
2542        TjekkerEnkeltUrl('UrlBudlevering', UrlBudlevering, urlFejl);        TjekkerEnkeltUrl('UrlBudlevering', Config.UrlBudlevering, urlFejl);
2543      end;      end;
2544    
2545      // Tjekker UrlPakkeshoplevering      // Tjekker UrlPakkeshoplevering
2546      if PanelValg5.Enabled = true then      if PanelValg5.Enabled = true then
2547      begin      begin
2548        TjekkerEnkeltUrl('UrlPakkeshoplevering', UrlPakkeshoplevering, urlFejl);        TjekkerEnkeltUrl('UrlPakkeshoplevering', Config.UrlPakkeshoplevering, urlFejl);
2549      end;      end;
2550    
2551      // Tjekker UrlReturPakkeshop      // Tjekker UrlReturPakkeshop
2552      if PanelValg6.Enabled = true then      if PanelValg6.Enabled = true then
2553      begin      begin
2554        TjekkerEnkeltUrl('UrlReturPakkeshop', UrlReturPakkeshop, urlFejl);        TjekkerEnkeltUrl('UrlReturPakkeshop', Config.UrlReturPakkeshop, urlFejl);
2555      end;      end;
2556    
2557      // Tjekker UrlManglendeScanninger      // Tjekker UrlManglendeScanninger
2558      if (PanelValg1.Enabled = true) or (PanelValg4.Enabled = true) then      if (PanelValg1.Enabled = true) or (PanelValg4.Enabled = true) then
2559      begin      begin
2560        TjekkerEnkeltUrl('UrlManglendeScanninger', UrlManglendeScanninger, urlFejl);        TjekkerEnkeltUrl('UrlManglendeScanninger', Config.UrlManglendeScanninger, urlFejl);
2561      end;      end;
2562    
2563      // Tjekker UrlPakkeshopManglendeScanninger      // Tjekker UrlPakkeshopManglendeScanninger
2564      if PanelValg5.Enabled = true then      if PanelValg5.Enabled = true then
2565      begin      begin
2566        TjekkerEnkeltUrl('UrlPakkeshopManglendeScanninger', UrlPakkeshopManglendeScanninger, urlFejl);        TjekkerEnkeltUrl('UrlPakkeshopManglendeScanninger', Config.UrlPakkeshopManglendeScanninger, urlFejl);
2567      end;      end;
2568    
2569      // Tjekker UrlPakkeshopManglendeReturScanninger      // Tjekker UrlPakkeshopManglendeReturScanninger
2570      if PanelValg6.Enabled = true then      if PanelValg6.Enabled = true then
2571      begin      begin
2572        TjekkerEnkeltUrl('UrlPakkeshopManglendeReturScanninger', UrlPakkeshopManglendeReturScanninger, urlFejl);        TjekkerEnkeltUrl('UrlPakkeshopManglendeReturScanninger', Config.UrlPakkeshopManglendeReturScanninger, urlFejl);
2573      end;      end;
2574    
2575     // Tjekker UrlIndleveringsPakke og UrlIndleveringsPakkeManglendeScanninger     // Tjekker UrlIndleveringsPakke og UrlIndleveringsPakkeManglendeScanninger
2576      if PanelValg7.Enabled = true then      if PanelValg7.Enabled = true then
2577      begin      begin
2578        TjekkerEnkeltUrl('UrlIndleveringsPakke', UrlIndleveringsPakke, urlFejl);        TjekkerEnkeltUrl('UrlIndleveringsPakke', Config.UrlIndleveringsPakke, urlFejl);
2579        TjekkerEnkeltUrl('UrlIndleveringsPakkeManglendeScanninger', UrlIndleveringsPakkeManglendeScanninger, urlFejl);        TjekkerEnkeltUrl('UrlIndleveringsPakkeManglendeScanninger', Config.UrlIndleveringsPakkeManglendeScanninger, urlFejl);
2580      end;      end;
2581    
2582      // Tjekker UrlEKLoverforsel      // Tjekker UrlEKLoverforsel
2583      if PanelValg1.Enabled = true then      if PanelValg1.Enabled = true then
2584      begin      begin
2585        TjekkerEnkeltUrl('UrlEKLoverforsel', UrlEKLoverforsel, urlFejl);        TjekkerEnkeltUrl('UrlEKLoverforsel', Config.UrlEKLoverforsel, urlFejl);
2586      end;      end;
2587    
2588    
2589      // Tjekker UrlEKLoverforselPakkeshop      // Tjekker UrlEKLoverforselPakkeshop
2590      if PanelValg5.Enabled = true then      if PanelValg5.Enabled = true then
2591      begin      begin
2592        TjekkerEnkeltUrl('UrlEKLoverforselPakkeshop', UrlEKLoverforselPakkeshop, urlFejl);        TjekkerEnkeltUrl('UrlEKLoverforselPakkeshop', Config.UrlEKLoverforselPakkeshop, urlFejl);
2593      end;      end;
2594    
2595    
2596      // Tjekker UrlFindPakketype      // Tjekker UrlFindPakketype
2597      TjekkerEnkeltUrl('UrlFindPakketype', UrlFindPakketype, urlFejl);      TjekkerEnkeltUrl('UrlFindPakketype', Config.UrlFindPakketype, urlFejl);
2598    
2599      // Tjekker UrlSendPrograminfo      // Tjekker UrlSendPrograminfo
2600      TjekkerEnkeltUrl('UrlSendPrograminfo', UrlSendPrograminfo, urlFejl);      TjekkerEnkeltUrl('UrlSendPrograminfo', Config.UrlSendPrograminfo, urlFejl);
2601    
2602    
2603    
# Line 2721  begin Line 2636  begin
2636      if TjekUrls = '1' then      if TjekUrls = '1' then
2637      begin      begin
2638        ShowMessage(logTekst);        ShowMessage(logTekst);
2639        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
2640        Application.Terminate;        Application.Terminate;
2641    
2642        raise Exception.Create('UrlFejl');        raise Exception.Create('UrlFejl');
# Line 2802  begin Line 2717  begin
2717    if BoghandlerNavnST.Caption = 'Fejl i forbindelse til server' then    if BoghandlerNavnST.Caption = 'Fejl i forbindelse til server' then
2718    begin    begin
2719       ShowMessage('Programmet afbrydes...');       ShowMessage('Programmet afbrydes...');
2720       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
2721       Application.Terminate;       Application.Terminate;
2722       exit;       exit;
2723    end;    end;
# Line 2813  begin Line 2728  begin
2728    begin    begin
2729       MainForm.Color := TUtils.HexToTColor(Farve);       MainForm.Color := TUtils.HexToTColor(Farve);
2730    end;    end;
2731    if (Budlevering1.Checked) then    if (menuDaoDirekte1.Checked) then
2732    begin    begin
2733       InitLillePakke();       InitLillePakke();
2734    end;    end;
# Line 2877  procedure TMainForm.PanelValgAClick(Send Line 2792  procedure TMainForm.PanelValgAClick(Send
2792  begin  begin
2793  // Skal ikke toggle men bare sætte funktionen on  // Skal ikke toggle men bare sætte funktionen on
2794  // Fravælges ved at vælge en scanningstype  // Fravælges ved at vælge en scanningstype
2795    AutomatiskValg1.Checked := true;    menuAutomatiskvalg1.Checked := true;
2796    PanelValgA.Color := clGreen;    PanelValgA.Color := clGreen;
2797    PanelValgA.Font.Color := clWhite;    PanelValgA.Font.Color := clWhite;
2798    
# Line 2885  begin Line 2800  begin
2800    
2801  end;  end;
2802    
2803  procedure TMainForm.Pakkernormal1Click(Sender: TObject);  procedure TMainForm.menuNatXpress1Click(Sender: TObject);
2804  begin  begin
2805        Scanningtype := '1';        Scanningtype := '1';
2806        NulstilAutomatiskValg();        NulstilAutomatiskValg();
# Line 3033  begin Line 2948  begin
2948      tekst := tekst+crlf+crlf;      tekst := tekst+crlf+crlf;
2949      tekst := tekst+crlf+crlf+'          **********  DETTE ER KUN EN TEST VERSION  **********';      tekst := tekst+crlf+crlf+'          **********  DETTE ER KUN EN TEST VERSION  **********';
2950      tekst := tekst+crlf+crlf;      tekst := tekst+crlf+crlf;
2951      tekst := tekst+crlf+crlf+'Url: '+url;      tekst := tekst+crlf+crlf+'Url: ' + Url;
2952    end;    end;
2953    
2954    MessageBox(Handle, PWideChar(tekst), 'Information', MB_OK);    MessageBox(Handle, PWideChar(tekst), 'Information', MB_OK);
2955    
2956  end;  end;
2957    
2958    
2959  procedure TMainForm.ListBox1DrawItem(Control: TWinControl; Index: Integer;  procedure TMainForm.ListBox1DrawItem(Control: TWinControl; Index: Integer;
2960    Rect: TRect; State: TOwnerDrawState);    Rect: TRect; State: TOwnerDrawState);
2961  var  var
# Line 3154  begin Line 3070  begin
3070    
3071  end;  end;
3072    
3073  procedure TMainForm.ReturpakkerfraDAO1Click(Sender: TObject);  procedure TMainForm.menuNatxpressReturDAO1Click(Sender: TObject);
3074  begin  begin
3075        Scanningtype := '2';        Scanningtype := '2';
3076        NulstilAutomatiskValg();        NulstilAutomatiskValg();
3077        InitReturFraDao();        InitReturFraDao();
3078  end;  end;
3079    
3080  procedure TMainForm.Returpakkerfrapakkeshop1Click(Sender: TObject);  procedure TMainForm.menuPakkeshopRetur1Click(Sender: TObject);
3081  begin  begin
3082        Scanningtype := '6';        Scanningtype := '6';
3083        InitReturFraPakkeshop();        InitReturFraPakkeshop();
# Line 3170  end; Line 3086  end;
3086    
3087  procedure TMainForm.InitNatxpresslevering();  procedure TMainForm.InitNatxpresslevering();
3088  begin  begin
3089        AutomatiskTjekkodeStyring1.Enabled := true;        menuAutomatiskTjekkodeStyring.Enabled := true;
3090        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3091        Pakkernormal1.Checked := true;        menuNatXpress1.Checked := true;
3092        InitForm(FarveNormal,TitelNormal,UrlNormal);        InitForm(Config.FarveNormal,Config.TitelNormal,Config.UrlNormal);
3093        PanelValg1.Color := clGreen;        PanelValg1.Color := clGreen;
3094        PanelValg1.Font.Color := clWhite;        PanelValg1.Font.Color := clWhite;
3095    
# Line 3184  begin Line 3100  begin
3100        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3101        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3102        Sprgefterboghandlernummer1.Enabled := true;        Sprgefterboghandlernummer1.Enabled := true;
3103        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3104        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3105        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3106        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3107        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3206  end; Line 3122  end;
3122    
3123  procedure TMainForm.InitReturFraDao();  procedure TMainForm.InitReturFraDao();
3124  begin  begin
3125        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3126        ReturpakkerfraDAO1.Checked := true;        menuNatxpressReturDAO1.Checked := true;
3127        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3128        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);        InitForm(Config.FarveReturDAO, Config.TitelReturDAO, Config.UrlReturDAO);
3129        PanelValg2.Color := clGreen;        PanelValg2.Color := clGreen;
3130        PanelValg2.Font.Color := clWhite;        PanelValg2.Font.Color := clWhite;
3131    
# Line 3220  begin Line 3136  begin
3136        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3137        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3138        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3139        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3140        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3141        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3142        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3143        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3237  end; Line 3153  end;
3153    
3154  procedure TMainForm.InitReturFraKunde();  procedure TMainForm.InitReturFraKunde();
3155  begin  begin
3156        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3157        Returpakkerfraboghandler1.Checked := true;        menuNatxpressReturfraKunde1.Checked := true;
3158        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3159        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);        InitForm(Config.FarveReturBoghandler, Config.TitelReturBoghandler, Config.UrlReturBoghandler);
3160        PanelValg3.Color := clGreen;        PanelValg3.Color := clGreen;
3161        PanelValg3.Font.Color := clWhite;        PanelValg3.Font.Color := clWhite;
3162    
# Line 3250  begin Line 3166  begin
3166        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3167        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3168        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3169        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3170        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3171        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3172        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3173        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3267  end; Line 3183  end;
3183    
3184  procedure TMainForm.InitDirektelevering();  procedure TMainForm.InitDirektelevering();
3185  begin  begin
3186        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3187        Budlevering1.Checked := true;        menuDaoDirekte1.Checked := true;
3188        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3189        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);        InitForm(Config.FarveBudlevering, Config.TitelBudlevering, Config.UrlBudlevering);
3190        PanelValg4.Color := clGreen;        PanelValg4.Color := clGreen;
3191        PanelValg4.Font.Color := clWhite;        PanelValg4.Font.Color := clWhite;
3192    
# Line 3281  begin Line 3197  begin
3197        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3198        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3199        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3200        Smpakker1.Enabled := true;        menuSmaaPakker.Enabled := true;
3201        Storepakker1.Enabled := true;        menuStorePakker.Enabled := true;
3202        radioStorPakke.Enabled := true;        radioStorPakke.Enabled := true;
3203        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3204        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3307  end; Line 3223  end;
3223    
3224  procedure TMainForm.InitPakkeshoplevering();  procedure TMainForm.InitPakkeshoplevering();
3225  begin  begin
3226        AutomatiskTjekkodeStyring1.Enabled := true;        menuAutomatiskTjekkodeStyring.Enabled := true;
3227        Pakkeshoplevering1.Checked := true;        menuPakkeshop1.Checked := true;
3228        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3229        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);        InitForm(Config.FarvePakkeshoplevering, Config.TitelPakkeshoplevering, Config.UrlPakkeshoplevering);
3230        PanelValg5.Color := clGreen;        PanelValg5.Color := clGreen;
3231        PanelValg5.Font.Color := clWhite;        PanelValg5.Font.Color := clWhite;
3232    
# Line 3321  begin Line 3237  begin
3237        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3238        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3239        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3240        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3241        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3242        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3243        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3244        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3347  end; Line 3263  end;
3263    
3264  procedure TMainForm.InitReturFraPakkeshop();  procedure TMainForm.InitReturFraPakkeshop();
3265  begin  begin
3266        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3267        Returpakkerfrapakkeshop1.Checked := true;        menuPakkeshopRetur1.Checked := true;
3268        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3269        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);        InitForm(Config.FarveReturPakkeshop, Config.TitelReturPakkeshop, Config.UrlReturPakkeshop);
3270        PanelValg6.Color := clGreen;        PanelValg6.Color := clGreen;
3271        PanelValg6.Font.Color := clWhite;        PanelValg6.Font.Color := clWhite;
3272    
# Line 3361  begin Line 3277  begin
3277        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
3278        chkSporgEfterKunde.Checked := false;        chkSporgEfterKunde.Checked := false;
3279        Sprgefterboghandlernummer1.Enabled := false;        Sprgefterboghandlernummer1.Enabled := false;
3280        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3281        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3282        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3283        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3284        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3385  begin Line 3301  begin
3301        IdFTP1.PassiveUseControlHost := true;        IdFTP1.PassiveUseControlHost := true;
3302  end;  end;
3303    
3304  procedure TMainForm.Returpakkerfraboghandler1Click(Sender: TObject);  procedure TMainForm.menuNatxpressReturfraKunde1Click(Sender: TObject);
3305  begin  begin
3306        Scanningtype := '3';        Scanningtype := '3';
3307        NulstilAutomatiskValg();        NulstilAutomatiskValg();
# Line 3395  end; Line 3311  end;
3311  procedure TMainForm.InitIndleveringskode();  procedure TMainForm.InitIndleveringskode();
3312  begin  begin
3313        menuIndlevering.Checked := true;        menuIndlevering.Checked := true;
3314        AutomatiskTjekkodeStyring1.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3315    
3316        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3317        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);        InitForm(Config.FarveIndlevering, Config.TitelIndlevering, Config.UrlReturPakkeshop);
3318        PanelValg7.Color := clGreen;        PanelValg7.Color := clGreen;
3319        PanelValg7.Font.Color := clWhite;        PanelValg7.Font.Color := clWhite;
3320    
# Line 3412  begin Line 3328  begin
3328    
3329    
3330    
3331        Smpakker1.Enabled := false;        menuSmaaPakker.Enabled := false;
3332        Storepakker1.Enabled := false;        menuStorePakker.Enabled := false;
3333        radioStorPakke.Enabled := false;        radioStorPakke.Enabled := false;
3334        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3335        ListBox1.Visible := true;        ListBox1.Visible := true;
# Line 3438  begin Line 3354  begin
3354  end;  end;
3355    
3356    
3357  procedure TMainForm.Storepakker1Click(Sender: TObject);  procedure TMainForm.menuStorePakkerClick(Sender: TObject);
3358  begin  begin
3359    InitStorPakke();    InitStorPakke();
3360  end;  end;
3361    
3362  procedure TMainForm.Smpakker1Click(Sender: TObject);  procedure TMainForm.menuSmaaPakkerClick(Sender: TObject);
3363  begin  begin
3364    InitLillePakke();    InitLillePakke();
3365  end;  end;
# Line 3451  end; Line 3367  end;
3367  procedure TMainForm.InitLillePakke();  procedure TMainForm.InitLillePakke();
3368  begin  begin
3369    radioLillePakke.Checked := true;    radioLillePakke.Checked := true;
3370    Smpakker1.Checked := true;    menuSmaaPakker.Checked := true;
3371  //  Stregkode := '';  //  Stregkode := '';
3372  end;  end;
3373    
3374  procedure TMainForm.InitStorPakke();  procedure TMainForm.InitStorPakke();
3375  begin  begin
3376    radioStorPakke.Checked := true;    radioStorPakke.Checked := true;
3377    Storepakker1.Checked := true;    menuStorePakker.Checked := true;
3378  // 20150310: start  // 20150310: start
3379  //  Stregkode := '';  //  Stregkode := '';
3380  // 20150310: slut  // 20150310: slut
# Line 3502  begin Line 3418  begin
3418       exit;       exit;
3419    end;    end;
3420    
3421    if Smpakker1.Checked then    if menuSmaaPakker.Checked then
3422       if ScannetOkLyd  <> '' then       if ScannetOkLyd  <> '' then
3423       begin       begin
3424         PlaySound(PWideChar(ScannetOkLyd));         PlaySound(PWideChar(ScannetOkLyd));
# Line 3511  begin Line 3427  begin
3427       begin       begin
3428         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);
3429       end;       end;
3430    if Storepakker1.Checked then    if menuStorePakker.Checked then
3431       if ScannetOkStorLyd  <> '' then       if ScannetOkStorLyd  <> '' then
3432       begin       begin
3433         PlaySound(PWideChar(ScannetOkStorLyd));         PlaySound(PWideChar(ScannetOkStorLyd));
# Line 3523  begin Line 3439  begin
3439  end;  end;
3440    
3441    
3442  procedure TMainForm.Budlevering1Click(Sender: TObject);  procedure TMainForm.menuDaoDirekte1Click(Sender: TObject);
3443  begin  begin
3444        Scanningtype := '4';        Scanningtype := '4';
3445        NulstilAutomatiskValg();        NulstilAutomatiskValg();
# Line 3551  begin Line 3467  begin
3467      logTekst := 'Overfører de scannede pakker til EKL';      logTekst := 'Overfører de scannede pakker til EKL';
3468      SkrivScanningLogFil(logTekst);      SkrivScanningLogFil(logTekst);
3469      StedKode := Sted;      StedKode := Sted;
3470      URLStr := Format(UrlEKLoverforsel,[StedKode,Sted]);      URLStr := Format(Config.UrlEKLoverforsel,[StedKode,Sted]);
3471    
3472      if PanelValg5.Color = clGreen then      if PanelValg5.Color = clGreen then
3473      begin      begin
3474        URLStr := Format(UrlEKLoverforselPakkeshop,[StedKode,Sted]);        URLStr := Format(Config.UrlEKLoverforselPakkeshop,[StedKode,Sted]);
3475      end;      end;
3476    
3477    
# Line 4169  var Line 4085  var
4085    I: Integer;    I: Integer;
4086    stregkode, modtagernavn, modtageradresse, kommentar : string;    stregkode, modtagernavn, modtageradresse, kommentar : string;
4087    pakketype, tjekkodestatus : String;    pakketype, tjekkodestatus : String;
4088    pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer;    antalLiniefelter, antalFelterFundet, linienr : Integer;
4089    //pakketyper : TStrings;    //pakketyper : TStrings;
4090    pakketyper : TDictionary<String, Integer>;    pakketyper : TDictionary<String, Integer>;
4091    tmpAntal : Integer;    tmpAntal : Integer;
4092    
4093     time, timeSamlet : TTimingHelper;
4094    
4095    
4096    antlin : Integer;    antlin : Integer;
# Line 4209  var Line 4126  var
4126    
4127      if (Scanningtype = '7') then      if (Scanningtype = '7') then
4128       begin       begin
4129        URLStr := Format(UrlIndleveringsPakkeManglendeScanninger, [StedKode]);        URLStr := Format(Config.UrlIndleveringsPakkeManglendeScanninger, [StedKode]);
4130       end       end
4131      else if (Scanningtype = '6') then      else if (Scanningtype = '6') then
4132       begin       begin
4133        URLStr := Format(UrlPakkeshopManglendeReturScanninger, [StedKode]);        URLStr := Format(Config.UrlPakkeshopManglendeReturScanninger, [StedKode]);
4134       end       end
4135      else if (Scanningtype = '5') then      else if (Scanningtype = '5') then
4136       begin       begin
4137        URLStr := Format(UrlPakkeshopManglendeScanninger, [StedKode]);        URLStr := Format(Config.UrlPakkeshopManglendeScanninger, [StedKode]);
4138       end       end
4139      else if (Scanningtype = '1') then      else if (Scanningtype = '1') then
4140       begin       begin
4141        URLStr := Format(UrlManglendeScanninger,[StedKode,'B2']);        URLStr := Format(Config.UrlManglendeScanninger,[StedKode,'B2']);
4142       end       end
4143      else if (Scanningtype = '4') then      else if (Scanningtype = '4') then
4144       begin       begin
4145        URLStr := Format(UrlManglendeScanninger,[StedKode,'A2']);    // Budleveringer        URLStr := Format(Config.UrlManglendeScanninger,[StedKode,'A2']);    // Budleveringer
4146       end       end
4147      else      else
4148       begin       begin
# Line 4233  var Line 4150  var
4150       end;       end;
4151  // 20150310: slut  // 20150310: slut
4152    
4153        time := TTimingHelper.create();        //DEBUG
4154        timeSamlet := TTimingHelper.create();        //DEBUG
4155    
4156      try      try
4157      //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST      //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST
4158  //    URLStr := string(Utf8Encode(URLStr));  //    URLStr := string(Utf8Encode(URLStr));
# Line 4242  var Line 4162  var
4162        begin        begin
4163          // 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
4164          WebSvar := IdHTTP1.Get(URLStr);          WebSvar := IdHTTP1.Get(URLStr);
4165    
4166    
4167    
4168        end;        end;
4169        on e:exception do        on e:exception do
4170        begin        begin
# Line 4252  var Line 4175  var
4175        end;        end;
4176      end;      end;
4177      try      try
4178          time.stop('HTTP Load');     //DEBUG
4179    
4180        XMLDocument1.LoadFromXML(WebSvar);        XMLDocument1.LoadFromXML(WebSvar);
4181    
4182          time.stop('XML Load');     //DEBUG
4183    
4184    
4185    
4186    
4187    
4188    
4189        antlin := 0;        antlin := 0;
4190        antlinIdag := 0;        antlinIdag := 0;
# Line 4296  var Line 4227  var
4227        SetLength(stregkoderMedTjekkodeArray, 0);    // reset fra tidligere brug        SetLength(stregkoderMedTjekkodeArray, 0);    // reset fra tidligere brug
4228        SetLength(stregkoderMedTjekkodeArray, antlin);  // sæt antal elementer i array        SetLength(stregkoderMedTjekkodeArray, antlin);  // sæt antal elementer i array
4229    
4230          time.stop('Antal Linier');//DEBUG
4231    
4232        Application.Processmessages; //Ugly Hack to improve User Experience when switching modes        Application.Processmessages; //Ugly Hack to improve User Experience when switching modes
4233    
# Line 4381  var Line 4313  var
4313        end;        end;
4314    
4315    
4316          time.stop('Fyld Listbox2');//DEBUG
4317    
4318    
4319        Application.Processmessages; //Ugly Hack to improve User Experience when switching modes        Application.Processmessages; //Ugly Hack to improve User Experience when switching modes
4320    
4321    
# Line 4500  var Line 4435  var
4435        end;        end;
4436      end;      end;
4437    
4438        time.stop('Done');//DEBUG
4439        timeSamlet.stop('SamletTid');//DEBUG
4440    
4441    
4442  end;  end;
4443    
4444  procedure TMainForm.IndlesScanningLogFil();  procedure TMainForm.IndlesScanningLogFil();
# Line 4911  begin Line 4850  begin
4850  end;  end;
4851    
4852    
4853    //Nedarvet fra IParentForm
4854    procedure TMainForm.Msg( msg : string);
4855    begin
4856      ShowMessage(msg);
4857    end;
4858    
4859  //Nedarvet fra IParentForm  //Nedarvet fra IParentForm
4860  procedure TMainForm.LogMessage( msg : string);  procedure TMainForm.LogMessage( msg : string);
Legend:
Removed from v.3036  
changed lines
  Added in v.3089
  ViewVC Help
Powered by ViewVC 1.1.20