/[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 3077 by torben, Thu Jul 28 21:25:58 2016 UTC revision 3095 by torben, Sun Aug 21 20:51:45 2016 UTC
# Line 20  uses Line 20  uses
20    IdExplicitTLSClientServerBase, IdFTP, IdException,    IdExplicitTLSClientServerBase, IdFTP, IdException,
21    ShellApi, ClipBrd, Buttons, wininet,    ShellApi, ClipBrd, Buttons, wininet,
22    UITypes,    UITypes,
23    PakkeshopLabels,    LabelData,
24    Utils,    Utils,
25    ParentForm,    ParentForm,
26    LabelPrint,    LabelPrint,
# Line 202  type Line 202  type
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      function GetXMLDocument() : TXMLDocument;
206    
207    
208    
# Line 211  type Line 212  type
212      SkrivLog : String;      SkrivLog : String;
213      Sted : String;      Sted : String;
214      StedNavn : String;      StedNavn : String;
     Url, UrlNormal, UrlReturDAO, UrlReturBoghandler, UrlBudlevering, UrlManglendeScanninger, UrlPakkeshoplevering,  
             UrlReturPakkeshop, UrlPakkeshopManglendeScanninger, UrlPakkeshopManglendeReturScanninger,UrlIndleveringsPakke,  
             UrlIndleveringsPakkeManglendeScanninger,UrlEKLoverforsel, URLOmdirigerTilPakkeshop : String;  
215    
216      UrlEKLoverforselPakkeshop : String;      Scanningtype,  Pakketype : String;
217    
     UrlFindPakketype, UrlSendPrograminfo: String;  
     Scanningtype, TestFunktionen, Pakketype, SporgEfterBoghandler : String;  
     ScanTjekkode : String;  
     ScanTjekkodeAutomatik : string;  
218    
219      Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop,      Url : String;
           FarveIndlevering : String;  
220    
221      Titel, TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop,      Farve : String;
           TitelIndlevering : String;  
222    
223      AlarmLyd : String;      Titel : String;
     ScannetOkLyd : String;  
     ScannetOkStorLyd : String;  
224    
     ScannetOkTilTjekkodeLyd : String;  
225    
     PrinterNavn : String;  
     TjekPrinter : String;  
226    
227      Org_RuteNummerST, Org_BoghandlerNavnST, Org_KommentarST : String;      Org_RuteNummerST, Org_BoghandlerNavnST, Org_KommentarST : String;
228      BladhusSted : Integer;      BladhusSted : Integer;
# Line 248  type Line 235  type
235      logTekst : string;      logTekst : string;
236      PakkeshopStregkode, PakkeshopTjekkode : String;      PakkeshopStregkode, PakkeshopTjekkode : String;
237      BoghandlerStregkode, BoghandlerTjekkode : String;      BoghandlerStregkode, BoghandlerTjekkode : String;
238      TjekUrls : String;  
239      Config : TConfiguration;      Config : TConfiguration;
240    
241    
# Line 265  type Line 252  type
252      procedure SkrivScanningLogFil(var tekst : string);      procedure SkrivScanningLogFil(var tekst : string);
253      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;      function TjekKoreliste(var RuteNummer, Koreliste : string) : string;
254      procedure VisAlarmSkaerm(strMessage: string);      procedure VisAlarmSkaerm(strMessage: string);
255      function InjectURL(Url : String) : String;  
256    
257    public    public
258      { Public declarations }      { Public declarations }
# Line 419  begin Line 406  begin
406    
407      if (Scanningtype = '1') or (Scanningtype = '5') then      if (Scanningtype = '1') or (Scanningtype = '5') then
408      begin      begin
409        if (ScanTjekkode = '1') then        if (Config.ScanTjekkode = '1') then
410        begin        begin
411          chkScanTjekkode.Checked := true;          chkScanTjekkode.Checked := true;
412          chkScanTjekkode.Enabled := true;          chkScanTjekkode.Enabled := true;
# Line 515  begin Line 502  begin
502       PanelValgA.Font.Color := clWhite;       PanelValgA.Font.Color := clWhite;
503  end;  end;
504    
 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());  
505    
   Result := Url;  
 end;  
506    
507  //InitForm kaldes før FormCreate  //InitForm kaldes før FormCreate
508  procedure TMainForm.FormCreate(Sender: TObject);  procedure TMainForm.FormCreate(Sender: TObject);
# Line 575  begin Line 554  begin
554      Sted := ReadString('Settings','Sted','');      Sted := ReadString('Settings','Sted','');
555      StedNavn := ReadString('Settings','Stednavn','');      StedNavn := ReadString('Settings','Stednavn','');
556    
557      UrlFindPakketype := ReadString('Settings','UrlFindPakketype','http://omdeling.info/webservices/bogpakkekontrol/FindPakketype.php?stregkode=%s');      Scanningtype := 'A'; //hardcoded
558      UrlFindPakketype := InjectURL(UrlFindPakketype);      Pakketype := '0';
   
     UrlSendPrograminfo := ReadString('Settings','UrlSendPrograminfo','http://omdeling.info/webservices/bogpakkekontrol/SendPrograminfo.php?programnavn=%s&sted=%s&scanningtype=%s&infotype=%s&info=%s');  
     UrlSendPrograminfo := InjectURL(UrlSendPrograminfo);  
   
     UrlNormal := ReadString('Settings','UrlNormal','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&tjekkode=%s');  
     UrlNormal := InjectURL(UrlNormal);  
   
     UrlReturDAO := ReadString('Settings','UrlReturDAO','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&returpakketype=%s&pakkestorrelse=%s');  
     UrlReturDAO := InjectURL(UrlReturDAO);  
   
     UrlReturBoghandler := ReadString('Settings','UrlReturBoghandler','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&returpakketype=%s&pakkestorrelse=%s');  
     UrlReturBoghandler := InjectURL(UrlReturBoghandler);  
   
     UrlBudlevering := ReadString('Settings','UrlBudlevering','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&leveringstype=%s&pakkestorrelse=%s');  
     UrlBudlevering := InjectURL(UrlBudlevering);  
   
     UrlManglendeScanninger := ReadString('Settings','UrlManglendeScanninger','http://omdeling.info/webservices/bogpakkekontrol/bogpakkemanglendescanninger.php?sted=%s&type=%s');  
     UrlManglendeScanninger := InjectURL(UrlManglendeScanninger);  
   
     UrlEKLoverforsel := ReadString('Settings','UrlEKLoverforsel','http://omdeling.info/webservices/bogpakkekontrol/bogpakkertilekl.php?sted=%s');  
     UrlEKLoverforsel := InjectURL(UrlEKLoverforsel);  
   
     UrlEKLoverforselPakkeshop := ReadString('Settings','UrlEKLoverforselPakkeshop','http://omdeling.info/webservices/pakkeshop/pakkertilekl.php?sted=%s');  
     UrlEKLoverforselPakkeshop := InjectURL(UrlEKLoverforselPakkeshop);  
   
     UrlPakkeshoplevering := ReadString('Settings','UrlPakkeshoplevering','http://omdeling.info/webservices/pakkeshop/pakkekontrol.php?sted=%s&stregkode=%s&tjekkode=%s');  
     UrlPakkeshoplevering := InjectURL(UrlPakkeshoplevering);  
   
     UrlReturPakkeshop := ReadString('Settings','UrlReturPakkeshop','http://omdeling.info/webservices/pakkeshop/returpakkekontrol.php?sted=%s&stregkode=%s');  
     UrlReturPakkeshop := InjectURL(UrlReturPakkeshop);  
   
     UrlPakkeshopManglendeScanninger := ReadString('Settings','UrlPakkeshopManglendeScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendescanninger.php?sted=%s');  
     UrlPakkeshopManglendeScanninger := InjectURL(UrlPakkeshopManglendeScanninger);  
   
     UrlPakkeshopManglendeReturScanninger := ReadString('Settings','UrlPakkeshopManglendeReturScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendereturscanninger.php?sted=%s');  
     UrlPakkeshopManglendeReturScanninger := InjectURL(UrlPakkeshopManglendeReturScanninger);  
   
     UrlIndleveringsPakke := ReadString('Settings','UrlIndleveringsPakke','http://omdeling.info/webservices/pakkeshop/PakkekontrolIndleveringskode.php?sted=%s&pakkekode=%s');  
     UrlIndleveringsPakke := InjectURL(UrlIndleveringsPakke);  
   
     UrlIndleveringsPakkeManglendeScanninger := ReadString('Settings', 'UrlIndleveringsPakkeManglendeScanninger','http://omdeling.info/webservices/pakkeshop/IndleveringsPakkeManglendeScanninger.php?sted=%s');  
     UrlIndleveringsPakkeManglendeScanninger := InjectURL(UrlIndleveringsPakkeManglendeScanninger);  
   
     URLOmdirigerTilPakkeshop := ReadString('Settings', 'URLOmdirigerTilPakkeshop','http://omdeling.info/webservices/pakkeshop/PakkeKontrolOmdirigerTilPakkeshop.php?sted=%s&stregkode=%s');  
     URLOmdirigerTilPakkeshop := InjectURL(URLOmdirigerTilPakkeshop);  
   
   
   
     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');  
559    
     FarveIndlevering := ReadString('Settings', 'FarveIndlevering', 'E5B2CB');  
     TitelIndlevering := ReadString('Settings', 'TitelIndlevering', 'Indleveringskode');  
560    
561    
     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');  
562    
     ScannetOkTilTjekkodeLyd := ReadString('Settings','ScannetOkTilTjekkodeLyd','Sounds\Ok_til_tjekkode.wav');  
   
     PrinterNavn := ReadString('Settings','PrinterNavn','');  
     TjekPrinter := ReadString('Settings','TjekPrinter','1');  
     TjekUrls := ReadString('Settings','TjekUrls','2');  
563    
564      if (SkrivLog = '1') then      if (SkrivLog = '1') then
565      begin      begin
# Line 685  begin Line 587  begin
587    
588    
589    
590      if SporgEfterBoghandler = '1' then      if Config.SporgEfterBoghandler = '1' then
591      begin      begin
592        chkSporgEfterKunde.Checked := true;        chkSporgEfterKunde.Checked := true;
593        Sprgefterboghandlernummer1.Checked := true;        Sprgefterboghandlernummer1.Checked := true;
# Line 696  begin Line 598  begin
598        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
599      end;      end;
600    
601      if ScanTjekkode = '1' then      if Config.ScanTjekkode = '1' then
602      begin      begin
603        chkScanTjekkode.Checked := true;        chkScanTjekkode.Checked := true;
604        Scanogstjekkoden1.Checked := true;        Scanogstjekkoden1.Checked := true;
# Line 707  begin Line 609  begin
609        Scanogstjekkoden1.Checked := false;        Scanogstjekkoden1.Checked := false;
610      end;      end;
611    
612      if ScanTjekkodeAutomatik = '1' then      if Config.ScanTjekkodeAutomatik = '1' then
613      begin      begin
614        menuAutomatiskTjekkodeStyring.Checked := true;        menuAutomatiskTjekkodeStyring.Checked := true;
615        chkScanTjekkode.Enabled := false;        chkScanTjekkode.Enabled := false;
# Line 952  begin Line 854  begin
854          Application.Terminate;          Application.Terminate;
855      end;      end;
856    
857      if TjekUrls = '1' then    // Tjekker urls      if Config.TjekUrls = '1' then    // Tjekker urls
858      begin      begin
859          TjekkerUrls();          TjekkerUrls();
860          if TjekUrls = '-' then  // så var der fejl i url - så vi stopper her          if Config.TjekUrls = '-' then  // så var der fejl i url - så vi stopper her
861          begin          begin
862             PlaySound(PWideChar(AlarmLyd));             PlaySound(PWideChar(Config.AlarmLyd));
863             MainForm.Color := clRed;             MainForm.Color := clRed;
864             RutenummerST.Caption := '';             RutenummerST.Caption := '';
865             BoghandlerNavnST.Caption := 'Fejl i urls';             BoghandlerNavnST.Caption := 'Fejl i urls';
# Line 1013  begin Line 915  begin
915        radioLillePakke.Checked := true;        radioLillePakke.Checked := true;
916      end;      end;
917    
918      if TestFunktionen = '1' then      if Config.TestFunktionen = '1' then
919      begin      begin
920        Testforbindelsen1.Visible := true;        Testforbindelsen1.Visible := true;
921        Testprinter1.Visible := true;        Testprinter1.Visible := true;
922        Testlyd1.Visible := true;        Testlyd1.Visible := true;
923        Testlyd2.Visible := true;        Testlyd2.Visible := true;
924      end      end
925      else if TestFunktionen = '2' then      else if Config.TestFunktionen = '2' then
926      begin      begin
927        Testforbindelsen1.Enabled := false;        Testforbindelsen1.Enabled := false;
928        Testprinter1.Enabled := false;        Testprinter1.Enabled := false;
# Line 1035  begin Line 937  begin
937        Testlyd2.Visible := false;        Testlyd2.Visible := false;
938      end;      end;
939    
     if not FileExists(AlarmLyd) then  
     begin  
       AlarmLyd := '';  
     end;  
   
     if not FileExists(ScannetOkLyd) then  
     begin  
       ScannetOkLyd := '';  
     end;  
   
     if not FileExists(ScannetOkStorLyd) then  
     begin  
       ScannetOkStorLyd := '';  
     end;  
   
940    
     if not FileExists(ScannetOkTilTjekkodeLyd) then  
     begin  
       ScannetOkTilTjekkodeLyd := '';  
     end;  
941    
942    
943    
944        LabelPrint := TLabelPrint.Create( self, Config, Config.PrinterNavn );
945      LabelPrint := TLabelPrint.Create( self, Config, PrinterNavn );      LabelPrint.CheckPrintQue('Opstart', Config.PrinterNavn);
     LabelPrint.CheckPrintQue('Opstart', PrinterNavn);  
946    
947    finally    finally
948      Free;      Free;
# Line 1425  begin Line 1307  begin
1307      if (Length(Stregkode) > 8) then      if (Length(Stregkode) > 8) then
1308      begin      begin
1309        // Her skal vi så forespørge pakketype på serveren udfra stregkode feltet        // Her skal vi så forespørge pakketype på serveren udfra stregkode feltet
1310        URLStr := Format(UrlFindPakketype,[Stregkode]);        URLStr := Format(Config.UrlFindPakketype,[Stregkode]);
1311        try        try
1312          //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST          //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST
1313          WebSvar := IdHTTP1.Get(URLStr);          WebSvar := IdHTTP1.Get(URLStr);
# Line 1594  begin Line 1476  begin
1476              BoghandlerStregkode := Stregkode;              BoghandlerStregkode := Stregkode;
1477              PakkeshopText1.Caption := 'Tjekkode';              PakkeshopText1.Caption := 'Tjekkode';
1478    
1479              PlaySound(PWideChar(ScannetOkTilTjekkodeLyd));              PlaySound(PWideChar(Config.ScannetOkTilTjekkodeLyd));
1480    
1481             end             end
1482            else            else
# Line 1612  begin Line 1494  begin
1494             BoghandlerTjekkode := Stregkode;             BoghandlerTjekkode := Stregkode;
1495             PakkeshopText1.Caption := 'Stregkode';             PakkeshopText1.Caption := 'Stregkode';
1496             if (menuPakkeshop1.Checked) then             if (menuPakkeshop1.Checked) then
1497                MainForm.Color := TUtils.HexToTColor(FarvePakkeshoplevering);                MainForm.Color := TUtils.HexToTColor(Config.FarvePakkeshoplevering);
1498             if (menuNatXpress1.Checked) then             if (menuNatXpress1.Checked) then
1499                MainForm.Color := TUtils.HexToTColor(FarveNormal);                MainForm.Color := TUtils.HexToTColor(Config.FarveNormal);
1500             btnNulstil.Visible := false;             btnNulstil.Visible := false;
1501           end           end
1502          else          else
# Line 1668  begin Line 1550  begin
1550              tjekkodemangler := pos('Tjekkode mangler', Kommentar);              tjekkodemangler := pos('Tjekkode mangler', Kommentar);
1551              if (pakkeErScannet > 0) or (pakkeForkertSted > 0) or (tjekkodemangler > 0) then              if (pakkeErScannet > 0) or (pakkeForkertSted > 0) or (tjekkodemangler > 0) then
1552              begin              begin
1553                PlaySound(PWideChar(AlarmLyd));                PlaySound(PWideChar(Config.AlarmLyd));
1554                btnNulstil.Visible := true;                btnNulstil.Visible := true;
1555                MainForm.Color := clRed;                MainForm.Color := clRed;
1556              end;              end;
# Line 1678  begin Line 1560  begin
1560              MainForm.Color := TUtils.HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1561              if menuStorePakker.Checked then              if menuStorePakker.Checked then
1562              begin              begin
1563                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(Config.ScannetOkStorLyd));
1564              end              end
1565              else              else
1566              begin              begin
1567                PlaySound(PWideChar(ScannetOkLyd));                PlaySound(PWideChar(Config.ScannetOkLyd));
1568              end;              end;
1569              btnNulstil.Visible := false;              btnNulstil.Visible := false;
1570            end            end
# Line 1691  begin Line 1573  begin
1573              MainForm.Color := TUtils.HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1574              if menuStorePakker.Checked then              if menuStorePakker.Checked then
1575              begin              begin
1576                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(Config.ScannetOkStorLyd));
1577              end              end
1578              else              else
1579              begin              begin
1580                PlaySound(PWideChar(ScannetOkLyd));                PlaySound(PWideChar(Config.ScannetOkLyd));
1581              end;              end;
1582              btnNulstil.Visible := false;              btnNulstil.Visible := false;
1583            end            end
# Line 1718  begin Line 1600  begin
1600              begin              begin
1601                if menuStorePakker.Checked then                if menuStorePakker.Checked then
1602                begin                begin
1603                  PlaySound(PWideChar(ScannetOkStorLyd));                  PlaySound(PWideChar(Config.ScannetOkStorLyd));
1604                end                end
1605                else                else
1606                begin                begin
1607                  PlaySound(PWideChar(ScannetOkLyd));                  PlaySound(PWideChar(Config.ScannetOkLyd));
1608                end;                end;
1609                InitLillePakke();                InitLillePakke();
1610              end;              end;
# Line 1776  var Line 1658  var
1658    WebSvar : String;    WebSvar : String;
1659    URLStr : String;    URLStr : String;
1660  begin  begin
1661    if UrlSendPrograminfo <> '' then    if Config.UrlSendPrograminfo <> '' then
1662    begin    begin
1663      URLStr := Format(UrlSendPrograminfo,[ExtractFileName(ParamStr(0)), Sted, Scanningtype, Infotype, Info]);      URLStr := Format(Config.UrlSendPrograminfo,[ExtractFileName(ParamStr(0)), Sted, Scanningtype, Infotype, Info]);
1664      try      try
1665        //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST        //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST
1666        WebSvar := IdHTTP1.Get(URLStr);        WebSvar := IdHTTP1.Get(URLStr);
# Line 1791  begin Line 1673  begin
1673        ShowMessage(logTekst);        ShowMessage(logTekst);
1674        SkrivScanningLogFil(logTekst);        SkrivScanningLogFil(logTekst);
1675        // 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
1676        UrlSendPrograminfo := '';        Config.UrlSendPrograminfo := '';
1677        Application.Terminate;        Application.Terminate;
1678      end;      end;
1679      end;      end;
# Line 2051  var Line 1933  var
1933    pakkestorrelse : String;    pakkestorrelse : String;
1934    PrintNyLabelInteger : Integer;    PrintNyLabelInteger : Integer;
1935    
1936    PakkeshopLabel: TPakkeshopLabel;    PakkeshopLabel: TLabelData;
1937  begin  begin
1938    if radioStorPakke.Checked then    if radioStorPakke.Checked then
1939    begin    begin
# Line 2069  begin Line 1951  begin
1951       begin       begin
1952         BoghandlerTjekkode := '-1';         BoghandlerTjekkode := '-1';
1953       end;       end;
1954       URLStr := Format(UrlNormal,[Sted, PakkeNr, BoghandlerNummer, BoghandlerTjekkode]);       URLStr := Format(Config.UrlNormal,[Sted, PakkeNr, BoghandlerNummer, BoghandlerTjekkode]);
1955    end    end
1956    else if menuNatxpressReturDAO1.Checked then    else if menuNatxpressReturDAO1.Checked then
1957    begin    begin
1958       URLStr := Format(UrlReturDAO,[Sted, PakkeNr, BoghandlerNummer, 'DAO', pakkestorrelse]);       URLStr := Format(Config.UrlReturDAO,[Sted, PakkeNr, BoghandlerNummer, 'DAO', pakkestorrelse]);
1959    end    end
1960    else if menuNatxpressReturfraKunde1.Checked then    else if menuNatxpressReturfraKunde1.Checked then
1961    begin    begin
1962       URLStr := Format(UrlReturBoghandler,[Sted, PakkeNr, BoghandlerNummer, 'Boghandler', pakkestorrelse]);       URLStr := Format(Config.UrlReturBoghandler,[Sted, PakkeNr, BoghandlerNummer, 'Boghandler', pakkestorrelse]);
1963    end    end
1964    else if menuDaoDirekte1.Checked then    else if menuDaoDirekte1.Checked then
1965    begin    begin
1966       URLStr := Format(UrlBudlevering,[Sted, PakkeNr, 'bud', pakkestorrelse]);       URLStr := Format(Config.UrlBudlevering,[Sted, PakkeNr, 'bud', pakkestorrelse]);
1967    end    end
1968    else if menuPakkeshop1.Checked then    else if menuPakkeshop1.Checked then
1969    begin    begin
1970       URLStr := Format(UrlPakkeshoplevering,[Sted, PakkeNr, PakkeshopTjekkode]);       URLStr := Format(Config.UrlPakkeshoplevering,[Sted, PakkeNr, PakkeshopTjekkode]);
1971    end    end
1972    else if menuPakkeshopRetur1.Checked then    else if menuPakkeshopRetur1.Checked then
1973    begin    begin
1974       URLStr := Format(UrlReturPakkeshop,[Sted, PakkeNr]);       URLStr := Format(Config.UrlReturPakkeshop,[Sted, PakkeNr]);
1975    end    end
1976    else if menuIndlevering.Checked then    else if menuIndlevering.Checked then
1977    begin    begin
1978      URLStr := Format(UrlIndleveringsPakke,[Sted, PakkeNr]);      URLStr := Format(Config.UrlIndleveringsPakke,[Sted, PakkeNr]);
1979    end    end
1980    else    else
1981    begin    begin
# Line 2102  begin Line 1984  begin
1984    
1985    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
1986    begin    begin
1987      URLStr := Format(URLOmdirigerTilPakkeshop,[Sted, PakkeNr]);      URLStr := Format(Config.URLOmdirigerTilPakkeshop,[Sted, PakkeNr]);
1988    end;    end;
1989    
1990    try    try
# Line 2160  begin Line 2042  begin
2042       if (Kommentar = 'Ok') then       if (Kommentar = 'Ok') then
2043       begin       begin
2044         PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label         PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label
2045         PakkeshopLabel := TPakkeshopLabel.Create( XMLDocument1 ); //Opret struct og parse xml doc         PakkeshopLabel := TLabelData.Create( XMLDocument1 ); //Opret struct og parse xml doc
2046         RuteNummer := PakkeshopLabel.Koreliste + '  ->  ' +  PakkeshopLabel.PakkeshopTurid;         RuteNummer := PakkeshopLabel.Koreliste + '  ->  ' +  PakkeshopLabel.PakkeshopTurid;
2047         Stregkode := PakkeshopLabel.Stregkode;         Stregkode := PakkeshopLabel.Stregkode;
2048    
# Line 2209  begin Line 2091  begin
2091      begin      begin
2092        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then
2093        begin        begin
2094            Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted;            Kommentar := Kommentar + ' Pakke burde være hos ' + Leveringssted;
2095            PrintNyLabel := False;            //PrintNyLabel := False; //ved fuld-daekning / X-ruter skal vi altid skrive label alligevel
2096        end;        end;
2097      end      end
2098      else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) And (Leveringssted <> '') then      else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) And (Leveringssted <> '') then
2099      begin      begin
2100         if (Leveringssted = 'E') and (Sted = 'DBK') then        Kommentar := Kommentar + ' Pakke burde være hos ' + Leveringssted;
2101         begin        //PrintNyLabel := False;  //ved fuld-daekning / X-ruter skal vi altid skrive label alligevel
           // Det er ok at DBK scanner pakker til E     (Schenker)  
        end  
        else  
        begin  
           Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted;  
           PrintNyLabel := False;  
        end;  
2102      end;      end;
2103    except on e:exception do    except on e:exception do
2104      raise exception.CreateFmt('Fejl i XML-format: %s',[e.Message]);      raise exception.CreateFmt('Fejl i XML-format: %s',[e.Message]);
# Line 2368  begin Line 2243  begin
2243       begin       begin
2244          PrintNyLabel := false;          PrintNyLabel := false;
2245    
2246          PlaySound(PWideChar(AlarmLyd));          PlaySound(PWideChar(Config.AlarmLyd));
2247          MainForm.Color := clRed;          MainForm.Color := clRed;
2248          btnNulstil.Visible := true;          btnNulstil.Visible := true;
2249    
# Line 2388  begin Line 2263  begin
2263            logTekst := RightStr(List1Msg, Length(List1Msg)-10);            logTekst := RightStr(List1Msg, Length(List1Msg)-10);
2264            SkrivScanningLogFil(logTekst);            SkrivScanningLogFil(logTekst);
2265    
2266            if (PrinterNavn = 'Ingen') then            if (Config.PrinterNavn = 'Ingen') then
2267            begin            begin
2268               PrintNyLabel := false;               PrintNyLabel := false;
2269            end;            end;
2270    
2271            if (PrintNyLabel = false) then  // Hvis vi ikke printer label skal vi vise en 'rød skærm' alarm            if (PrintNyLabel = false) then  // Hvis vi ikke printer label skal vi vise en 'rød skærm' alarm
2272            begin            begin
2273              PlaySound(PWideChar(AlarmLyd));              PlaySound(PWideChar(Config.AlarmLyd));
2274              MainForm.Color := clRed;              MainForm.Color := clRed;
2275              btnNulstil.Visible := true;              btnNulstil.Visible := true;
2276            end;            end;
# Line 2421  begin Line 2296  begin
2296    
2297            if (PrintNyLabel = false) then  // Hvis vi ikke printer label skal vi vise en 'rød skærm' alarm            if (PrintNyLabel = false) then  // Hvis vi ikke printer label skal vi vise en 'rød skærm' alarm
2298            begin            begin
2299              PlaySound(PWideChar(AlarmLyd));              PlaySound(PWideChar(Config.AlarmLyd));
2300              MainForm.Color := clRed;              MainForm.Color := clRed;
2301              btnNulstil.Visible := true;              btnNulstil.Visible := true;
2302            end;            end;
# Line 2490  begin Line 2365  begin
2365    end    end
2366    else    else
2367    begin    begin
2368      if ( (PrinterNavn <> 'Ingen') and (PrintNyLabel or chkAltidPrintLabel.Checked) and (RuteNummer <> 'Ukendt') or (RuteNummer = 'Rutenr')) then      if ( (Config.PrinterNavn <> 'Ingen') and (PrintNyLabel or chkAltidPrintLabel.Checked) and (RuteNummer <> 'Ukendt') or (RuteNummer = 'Rutenr')) then
2369      begin      begin
2370        logTekst := 'Printer label type ';        logTekst := 'Printer label type ';
2371        if (chkAltidPrintLabel.Checked) then        if (chkAltidPrintLabel.Checked) then
# Line 2615  begin Line 2490  begin
2490      // Tjekker UrlNormal      // Tjekker UrlNormal
2491      if PanelValg1.Enabled = true then      if PanelValg1.Enabled = true then
2492      begin      begin
2493        TjekkerEnkeltUrl('UrlNormal', UrlNormal, urlFejl);        TjekkerEnkeltUrl('UrlNormal', Config.UrlNormal, urlFejl);
2494      end;      end;
2495    
2496      // Tjekker UrlReturDAO      // Tjekker UrlReturDAO
2497      if PanelValg2.Enabled = true then      if PanelValg2.Enabled = true then
2498      begin      begin
2499        TjekkerEnkeltUrl('UrlReturDAO', UrlReturDAO, urlFejl);        TjekkerEnkeltUrl('UrlReturDAO', Config.UrlReturDAO, urlFejl);
2500      end;      end;
2501    
2502      // Tjekker UrlReturBoghandler      // Tjekker UrlReturBoghandler
2503      if PanelValg3.Enabled = true then      if PanelValg3.Enabled = true then
2504      begin      begin
2505        TjekkerEnkeltUrl('UrlReturBoghandler', UrlReturBoghandler, urlFejl);        TjekkerEnkeltUrl('UrlReturBoghandler', Config.UrlReturBoghandler, urlFejl);
2506      end;      end;
2507    
2508      // Tjekker UrlBudlevering      // Tjekker UrlBudlevering
2509      if PanelValg4.Enabled = true then      if PanelValg4.Enabled = true then
2510      begin      begin
2511        TjekkerEnkeltUrl('UrlBudlevering', UrlBudlevering, urlFejl);        TjekkerEnkeltUrl('UrlBudlevering', Config.UrlBudlevering, urlFejl);
2512      end;      end;
2513    
2514      // Tjekker UrlPakkeshoplevering      // Tjekker UrlPakkeshoplevering
2515      if PanelValg5.Enabled = true then      if PanelValg5.Enabled = true then
2516      begin      begin
2517        TjekkerEnkeltUrl('UrlPakkeshoplevering', UrlPakkeshoplevering, urlFejl);        TjekkerEnkeltUrl('UrlPakkeshoplevering', Config.UrlPakkeshoplevering, urlFejl);
2518      end;      end;
2519    
2520      // Tjekker UrlReturPakkeshop      // Tjekker UrlReturPakkeshop
2521      if PanelValg6.Enabled = true then      if PanelValg6.Enabled = true then
2522      begin      begin
2523        TjekkerEnkeltUrl('UrlReturPakkeshop', UrlReturPakkeshop, urlFejl);        TjekkerEnkeltUrl('UrlReturPakkeshop', Config.UrlReturPakkeshop, urlFejl);
2524      end;      end;
2525    
2526      // Tjekker UrlManglendeScanninger      // Tjekker UrlManglendeScanninger
2527      if (PanelValg1.Enabled = true) or (PanelValg4.Enabled = true) then      if (PanelValg1.Enabled = true) or (PanelValg4.Enabled = true) then
2528      begin      begin
2529        TjekkerEnkeltUrl('UrlManglendeScanninger', UrlManglendeScanninger, urlFejl);        TjekkerEnkeltUrl('UrlManglendeScanninger', Config.UrlManglendeScanninger, urlFejl);
2530      end;      end;
2531    
2532      // Tjekker UrlPakkeshopManglendeScanninger      // Tjekker UrlPakkeshopManglendeScanninger
2533      if PanelValg5.Enabled = true then      if PanelValg5.Enabled = true then
2534      begin      begin
2535        TjekkerEnkeltUrl('UrlPakkeshopManglendeScanninger', UrlPakkeshopManglendeScanninger, urlFejl);        TjekkerEnkeltUrl('UrlPakkeshopManglendeScanninger', Config.UrlPakkeshopManglendeScanninger, urlFejl);
2536      end;      end;
2537    
2538      // Tjekker UrlPakkeshopManglendeReturScanninger      // Tjekker UrlPakkeshopManglendeReturScanninger
2539      if PanelValg6.Enabled = true then      if PanelValg6.Enabled = true then
2540      begin      begin
2541        TjekkerEnkeltUrl('UrlPakkeshopManglendeReturScanninger', UrlPakkeshopManglendeReturScanninger, urlFejl);        TjekkerEnkeltUrl('UrlPakkeshopManglendeReturScanninger', Config.UrlPakkeshopManglendeReturScanninger, urlFejl);
2542      end;      end;
2543    
2544     // Tjekker UrlIndleveringsPakke og UrlIndleveringsPakkeManglendeScanninger     // Tjekker UrlIndleveringsPakke og UrlIndleveringsPakkeManglendeScanninger
2545      if PanelValg7.Enabled = true then      if PanelValg7.Enabled = true then
2546      begin      begin
2547        TjekkerEnkeltUrl('UrlIndleveringsPakke', UrlIndleveringsPakke, urlFejl);        TjekkerEnkeltUrl('UrlIndleveringsPakke', Config.UrlIndleveringsPakke, urlFejl);
2548        TjekkerEnkeltUrl('UrlIndleveringsPakkeManglendeScanninger', UrlIndleveringsPakkeManglendeScanninger, urlFejl);        TjekkerEnkeltUrl('UrlIndleveringsPakkeManglendeScanninger', Config.UrlIndleveringsPakkeManglendeScanninger, urlFejl);
2549      end;      end;
2550    
2551      // Tjekker UrlEKLoverforsel      // Tjekker UrlEKLoverforsel
2552      if PanelValg1.Enabled = true then      if PanelValg1.Enabled = true then
2553      begin      begin
2554        TjekkerEnkeltUrl('UrlEKLoverforsel', UrlEKLoverforsel, urlFejl);        TjekkerEnkeltUrl('UrlEKLoverforsel', Config.UrlEKLoverforsel, urlFejl);
2555      end;      end;
2556    
2557    
2558      // Tjekker UrlEKLoverforselPakkeshop      // Tjekker UrlEKLoverforselPakkeshop
2559      if PanelValg5.Enabled = true then      if PanelValg5.Enabled = true then
2560      begin      begin
2561        TjekkerEnkeltUrl('UrlEKLoverforselPakkeshop', UrlEKLoverforselPakkeshop, urlFejl);        TjekkerEnkeltUrl('UrlEKLoverforselPakkeshop', Config.UrlEKLoverforselPakkeshop, urlFejl);
2562      end;      end;
2563    
2564    
2565      // Tjekker UrlFindPakketype      // Tjekker UrlFindPakketype
2566      TjekkerEnkeltUrl('UrlFindPakketype', UrlFindPakketype, urlFejl);      TjekkerEnkeltUrl('UrlFindPakketype', Config.UrlFindPakketype, urlFejl);
2567    
2568      // Tjekker UrlSendPrograminfo      // Tjekker UrlSendPrograminfo
2569      TjekkerEnkeltUrl('UrlSendPrograminfo', UrlSendPrograminfo, urlFejl);      TjekkerEnkeltUrl('UrlSendPrograminfo', Config.UrlSendPrograminfo, urlFejl);
2570    
2571    
2572    
# Line 2700  begin Line 2575  begin
2575      SkrivScanningLogFil(logTekst);      SkrivScanningLogFil(logTekst);
2576    
2577    Except    Except
2578      TjekUrls := '-';   // markerer at der var fejl      Config.TjekUrls := '-';   // markerer at der var fejl
2579    
2580    end;    end;
2581  end;  end;
# Line 2720  begin Line 2595  begin
2595      inc(urlFejl);   // Optæller antal fejl      inc(urlFejl);   // Optæller antal fejl
2596      logTekst := UrlNavn + ' svarer ikke: ' + Url;      logTekst := UrlNavn + ' svarer ikke: ' + Url;
2597      ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);      ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
2598      if TjekUrls = '1' then      if Config.TjekUrls = '1' then
2599      begin      begin
2600        logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';        logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
2601      end;      end;
2602    
2603      SkrivScanningLogFil(logTekst);      SkrivScanningLogFil(logTekst);
2604    
2605      if TjekUrls = '1' then      if Config.TjekUrls = '1' then
2606      begin      begin
2607        ShowMessage(logTekst);        ShowMessage(logTekst);
2608        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
2609        Application.Terminate;        Application.Terminate;
2610    
2611        raise Exception.Create('UrlFejl');        raise Exception.Create('UrlFejl');
# Line 2811  begin Line 2686  begin
2686    if BoghandlerNavnST.Caption = 'Fejl i forbindelse til server' then    if BoghandlerNavnST.Caption = 'Fejl i forbindelse til server' then
2687    begin    begin
2688       ShowMessage('Programmet afbrydes...');       ShowMessage('Programmet afbrydes...');
2689       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
2690       Application.Terminate;       Application.Terminate;
2691       exit;       exit;
2692    end;    end;
# Line 2913  var Line 2788  var
2788    Leveringssted : String;    Leveringssted : String;
2789    orgTjekUrls : String;    orgTjekUrls : String;
2790  begin  begin
2791    orgTjekUrls := TjekUrls;    orgTjekUrls := Config.TjekUrls;
2792    if (TjekUrls = '1') or (TjekUrls = '2') then    if (Config.TjekUrls = '1') or (Config.TjekUrls = '2') then
2793    begin    begin
2794      TjekkerUrls();      TjekkerUrls();
2795    end;    end;
2796    if TjekUrls = '-' then    if Config.TjekUrls = '-' then
2797    begin    begin
2798      //ShowMessage('Der var fejl i een eller flere urls - se logvinduet');      //ShowMessage('Der var fejl i een eller flere urls - se logvinduet');
2799      RuteNummer := '';      RuteNummer := '';
# Line 2927  begin Line 2802  begin
2802      Koreliste := '';      Koreliste := '';
2803      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');
2804      // Her kommer en alarm og rød skærm      // Her kommer en alarm og rød skærm
2805      PlaySound(PWideChar(AlarmLyd));      PlaySound(PWideChar(Config.AlarmLyd));
2806      MainForm.Color := clRed;      MainForm.Color := clRed;
2807      btnNulstil.Visible := true;      btnNulstil.Visible := true;
2808    end    end
# Line 2943  begin Line 2818  begin
2818      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);
2819      FocusControl(StregkodeST);      FocusControl(StregkodeST);
2820    end;    end;
2821    TjekUrls := orgTjekUrls;    Config.TjekUrls := orgTjekUrls;
2822    
2823  end;  end;
2824    
# Line 2968  begin Line 2843  begin
2843    begin    begin
2844      ShowMessage('Der er ikke installeret en printer på denne PC.');      ShowMessage('Der er ikke installeret en printer på denne PC.');
2845    end    end
2846    else if PrinterNavn = 'Ingen' then    else if Config.PrinterNavn = 'Ingen' then
2847    begin    begin
2848      ShowMessage('Der er fravalgt printer i dette program.');      ShowMessage('Der er fravalgt printer i dette program.');
2849    end    end
# Line 2979  begin Line 2854  begin
2854      DBKbane := '999';      DBKbane := '999';
2855      Leveringssted := 'XXX';      Leveringssted := 'XXX';
2856      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);
2857      LabelPrint.CheckPrintQue('Test', PrinterNavn);      LabelPrint.CheckPrintQue('Test', Config.PrinterNavn);
2858    end;    end;
2859    FocusControl(StregkodeST);    FocusControl(StregkodeST);
2860  end;  end;
2861    
2862  procedure TMainForm.Timer1Timer(Sender: TObject);  procedure TMainForm.Timer1Timer(Sender: TObject);
2863  begin  begin
2864    if (TjekPrinter = '1') then    if (Config.TjekPrinter = '1') then
2865    begin    begin
2866      LabelPrint.CheckPrintQue('Timer', PrinterNavn);      LabelPrint.CheckPrintQue('Timer', Config.PrinterNavn);
2867    end    end
2868    else    else
2869    begin    begin
# Line 3042  begin Line 2917  begin
2917      tekst := tekst+crlf+crlf;      tekst := tekst+crlf+crlf;
2918      tekst := tekst+crlf+crlf+'          **********  DETTE ER KUN EN TEST VERSION  **********';      tekst := tekst+crlf+crlf+'          **********  DETTE ER KUN EN TEST VERSION  **********';
2919      tekst := tekst+crlf+crlf;      tekst := tekst+crlf+crlf;
2920      tekst := tekst+crlf+crlf+'Url: '+url;      tekst := tekst+crlf+crlf+'Url: ' + Url;
2921    end;    end;
2922    
2923    MessageBox(Handle, PWideChar(tekst), 'Information', MB_OK);    MessageBox(Handle, PWideChar(tekst), 'Information', MB_OK);
# Line 3183  begin Line 3058  begin
3058        menuAutomatiskTjekkodeStyring.Enabled := true;        menuAutomatiskTjekkodeStyring.Enabled := true;
3059        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3060        menuNatXpress1.Checked := true;        menuNatXpress1.Checked := true;
3061        InitForm(FarveNormal,TitelNormal,UrlNormal);        InitForm(Config.FarveNormal,Config.TitelNormal,Config.UrlNormal);
3062        PanelValg1.Color := clGreen;        PanelValg1.Color := clGreen;
3063        PanelValg1.Font.Color := clWhite;        PanelValg1.Font.Color := clWhite;
3064    
# Line 3219  begin Line 3094  begin
3094        menuAutomatiskTjekkodeStyring.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3095        menuNatxpressReturDAO1.Checked := true;        menuNatxpressReturDAO1.Checked := true;
3096        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3097        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);        InitForm(Config.FarveReturDAO, Config.TitelReturDAO, Config.UrlReturDAO);
3098        PanelValg2.Color := clGreen;        PanelValg2.Color := clGreen;
3099        PanelValg2.Font.Color := clWhite;        PanelValg2.Font.Color := clWhite;
3100    
# Line 3250  begin Line 3125  begin
3125        menuAutomatiskTjekkodeStyring.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3126        menuNatxpressReturfraKunde1.Checked := true;        menuNatxpressReturfraKunde1.Checked := true;
3127        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3128        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);        InitForm(Config.FarveReturBoghandler, Config.TitelReturBoghandler, Config.UrlReturBoghandler);
3129        PanelValg3.Color := clGreen;        PanelValg3.Color := clGreen;
3130        PanelValg3.Font.Color := clWhite;        PanelValg3.Font.Color := clWhite;
3131    
# Line 3280  begin Line 3155  begin
3155        menuAutomatiskTjekkodeStyring.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3156        menuDaoDirekte1.Checked := true;        menuDaoDirekte1.Checked := true;
3157        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3158        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);        InitForm(Config.FarveBudlevering, Config.TitelBudlevering, Config.UrlBudlevering);
3159        PanelValg4.Color := clGreen;        PanelValg4.Color := clGreen;
3160        PanelValg4.Font.Color := clWhite;        PanelValg4.Font.Color := clWhite;
3161    
# Line 3320  begin Line 3195  begin
3195        menuAutomatiskTjekkodeStyring.Enabled := true;        menuAutomatiskTjekkodeStyring.Enabled := true;
3196        menuPakkeshop1.Checked := true;        menuPakkeshop1.Checked := true;
3197        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3198        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);        InitForm(Config.FarvePakkeshoplevering, Config.TitelPakkeshoplevering, Config.UrlPakkeshoplevering);
3199        PanelValg5.Color := clGreen;        PanelValg5.Color := clGreen;
3200        PanelValg5.Font.Color := clWhite;        PanelValg5.Font.Color := clWhite;
3201    
# Line 3360  begin Line 3235  begin
3235        menuAutomatiskTjekkodeStyring.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3236        menuPakkeshopRetur1.Checked := true;        menuPakkeshopRetur1.Checked := true;
3237        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3238        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);        InitForm(Config.FarveReturPakkeshop, Config.TitelReturPakkeshop, Config.UrlReturPakkeshop);
3239        PanelValg6.Color := clGreen;        PanelValg6.Color := clGreen;
3240        PanelValg6.Font.Color := clWhite;        PanelValg6.Font.Color := clWhite;
3241    
# Line 3408  begin Line 3283  begin
3283        menuAutomatiskTjekkodeStyring.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3284    
3285        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3286        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);        InitForm(Config.FarveIndlevering, Config.TitelIndlevering, Config.UrlReturPakkeshop);
3287        PanelValg7.Color := clGreen;        PanelValg7.Color := clGreen;
3288        PanelValg7.Font.Color := clWhite;        PanelValg7.Font.Color := clWhite;
3289    
# Line 3487  end; Line 3362  end;
3362    
3363  procedure TMainForm.Testlyd1Click(Sender: TObject);  procedure TMainForm.Testlyd1Click(Sender: TObject);
3364  begin  begin
3365     if AlarmLyd  <> '' then     if Config.AlarmLyd  <> '' then
3366     begin     begin
3367       PlaySound(PWideChar(AlarmLyd));       PlaySound(PWideChar(Config.AlarmLyd));
3368     end     end
3369     else     else
3370     begin     begin
# Line 3501  procedure TMainForm.Testlyd2Click(Sender Line 3376  procedure TMainForm.Testlyd2Click(Sender
3376  begin  begin
3377    if (PakkeshopText1.Caption = 'Tjekkode') then    if (PakkeshopText1.Caption = 'Tjekkode') then
3378    begin    begin
3379       if ScannetOkTilTjekkodeLyd  <> '' then       if Config.ScannetOkTilTjekkodeLyd  <> '' then
3380       begin       begin
3381         PlaySound(PWideChar(ScannetOkTilTjekkodeLyd));         PlaySound(PWideChar(Config.ScannetOkTilTjekkodeLyd));
3382       end       end
3383       else       else
3384       begin       begin
# Line 3513  begin Line 3388  begin
3388    end;    end;
3389    
3390    if menuSmaaPakker.Checked then    if menuSmaaPakker.Checked then
3391       if ScannetOkLyd  <> '' then       if Config.ScannetOkLyd  <> '' then
3392       begin       begin
3393         PlaySound(PWideChar(ScannetOkLyd));         PlaySound(PWideChar(Config.ScannetOkLyd));
3394       end       end
3395       else       else
3396       begin       begin
3397         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);
3398       end;       end;
3399    if menuStorePakker.Checked then    if menuStorePakker.Checked then
3400       if ScannetOkStorLyd  <> '' then       if Config.ScannetOkStorLyd  <> '' then
3401       begin       begin
3402         PlaySound(PWideChar(ScannetOkStorLyd));         PlaySound(PWideChar(Config.ScannetOkStorLyd));
3403       end       end
3404       else       else
3405       begin       begin
# Line 3561  begin Line 3436  begin
3436      logTekst := 'Overfører de scannede pakker til EKL';      logTekst := 'Overfører de scannede pakker til EKL';
3437      SkrivScanningLogFil(logTekst);      SkrivScanningLogFil(logTekst);
3438      StedKode := Sted;      StedKode := Sted;
3439      URLStr := Format(UrlEKLoverforsel,[StedKode,Sted]);      URLStr := Format(Config.UrlEKLoverforsel,[StedKode,Sted]);
3440    
3441      if PanelValg5.Color = clGreen then      if PanelValg5.Color = clGreen then
3442      begin      begin
3443        URLStr := Format(UrlEKLoverforselPakkeshop,[StedKode,Sted]);        URLStr := Format(Config.UrlEKLoverforselPakkeshop,[StedKode,Sted]);
3444      end;      end;
3445    
3446    
# Line 3625  begin Line 3500  begin
3500      // Hvis der var fejl i overførslen skal dette fejlmeldes her      // Hvis der var fejl i overførslen skal dette fejlmeldes her
3501      if status = 'Fejl' then      if status = 'Fejl' then
3502      begin   // Her skal komme en alarm og rød skærm      begin   // Her skal komme en alarm og rød skærm
3503         PlaySound(PWideChar(AlarmLyd));         PlaySound(PWideChar(Config.AlarmLyd));
3504         MainForm.Color := clRed;         MainForm.Color := clRed;
3505         RutenummerST.Caption := 'EKL overførsel';         RutenummerST.Caption := 'EKL overførsel';
3506         BoghandlerNavnST.Caption := 'Fejl:';         BoghandlerNavnST.Caption := 'Fejl:';
# Line 4220  var Line 4095  var
4095    
4096      if (Scanningtype = '7') then      if (Scanningtype = '7') then
4097       begin       begin
4098        URLStr := Format(UrlIndleveringsPakkeManglendeScanninger, [StedKode]);        URLStr := Format(Config.UrlIndleveringsPakkeManglendeScanninger, [StedKode]);
4099       end       end
4100      else if (Scanningtype = '6') then      else if (Scanningtype = '6') then
4101       begin       begin
4102        URLStr := Format(UrlPakkeshopManglendeReturScanninger, [StedKode]);        URLStr := Format(Config.UrlPakkeshopManglendeReturScanninger, [StedKode]);
4103       end       end
4104      else if (Scanningtype = '5') then      else if (Scanningtype = '5') then
4105       begin       begin
4106        URLStr := Format(UrlPakkeshopManglendeScanninger, [StedKode]);        URLStr := Format(Config.UrlPakkeshopManglendeScanninger, [StedKode]);
4107       end       end
4108      else if (Scanningtype = '1') then      else if (Scanningtype = '1') then
4109       begin       begin
4110        URLStr := Format(UrlManglendeScanninger,[StedKode,'B2']);        URLStr := Format(Config.UrlManglendeScanninger,[StedKode,'B2']);
4111       end       end
4112      else if (Scanningtype = '4') then      else if (Scanningtype = '4') then
4113       begin       begin
4114        URLStr := Format(UrlManglendeScanninger,[StedKode,'A2']);    // Budleveringer        URLStr := Format(Config.UrlManglendeScanninger,[StedKode,'A2']);    // Budleveringer
4115       end       end
4116      else      else
4117       begin       begin
# Line 4708  begin Line 4583  begin
4583          ListBox1.Items.Insert(0,TimeToStr(now) + ': ' +'Fandt ingen linier til '+imorgenYmd+'.');          ListBox1.Items.Insert(0,TimeToStr(now) + ': ' +'Fandt ingen linier til '+imorgenYmd+'.');
4584          logTekst := 'Fandt ingen linier til '+imorgenYmd+'.';          logTekst := 'Fandt ingen linier til '+imorgenYmd+'.';
4585          SkrivScanningLogFil(logTekst);          SkrivScanningLogFil(logTekst);
4586          PlaySound(PWideChar(AlarmLyd));          PlaySound(PWideChar(Config.AlarmLyd));
4587        end;        end;
4588      end;      end;
4589    end    end
# Line 4717  begin Line 4592  begin
4592        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Ruteskift fil '+filnavn+' findes ikke.');        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Ruteskift fil '+filnavn+' findes ikke.');
4593        logTekst := 'Ruteskift fil '+filnavn+' findes ikke.';        logTekst := 'Ruteskift fil '+filnavn+' findes ikke.';
4594        SkrivScanningLogFil(logTekst);        SkrivScanningLogFil(logTekst);
4595        PlaySound(PWideChar(AlarmLyd));        PlaySound(PWideChar(Config.AlarmLyd));
4596    end;    end;
4597  end;  end;
4598    
# Line 4788  begin Line 4663  begin
4663          ListBox1.Items.Insert(0,TimeToStr(now) + ': ' +'Fandt ingen linier til '+imorgenYmd+'.');          ListBox1.Items.Insert(0,TimeToStr(now) + ': ' +'Fandt ingen linier til '+imorgenYmd+'.');
4664          logTekst := 'Fandt ingen linier til '+imorgenYmd+'.';          logTekst := 'Fandt ingen linier til '+imorgenYmd+'.';
4665          SkrivScanningLogFil(logTekst);          SkrivScanningLogFil(logTekst);
4666          PlaySound(PWideChar(AlarmLyd));          PlaySound(PWideChar(Config.AlarmLyd));
4667        end;        end;
4668      end;      end;
4669    end    end
# Line 4797  begin Line 4672  begin
4672        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Kontrol fil '+filnavn+' findes ikke.');        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Kontrol fil '+filnavn+' findes ikke.');
4673        logTekst := 'Kontrol fil '+filnavn+' findes ikke.';        logTekst := 'Kontrol fil '+filnavn+' findes ikke.';
4674        SkrivScanningLogFil(logTekst);        SkrivScanningLogFil(logTekst);
4675        PlaySound(PWideChar(AlarmLyd));        PlaySound(PWideChar(Config.AlarmLyd));
4676    end;    end;
4677  end;  end;
4678    
# Line 4855  procedure TMainForm.VisAlarmSkaerm(strMe Line 4730  procedure TMainForm.VisAlarmSkaerm(strMe
4730  begin  begin
4731    //ShowMessage('Ændring ikke tilladt');    //ShowMessage('Ændring ikke tilladt');
4732    // Her skal komme en 'rød skærm' alarm    // Her skal komme en 'rød skærm' alarm
4733    PlaySound(PWideChar(AlarmLyd));    PlaySound(PWideChar(Config.AlarmLyd));
4734    MainForm.Color := clRed;    MainForm.Color := clRed;
4735    
4736    
# Line 4983  begin Line 4858  begin
4858    Result := self;    Result := self;
4859  end;  end;
4860    
4861    //Nedarvet fra IParentForm
4862    function TMainForm.GetXMLDocument() : TXMLDocument;
4863    begin
4864      Result := XMLDocument1
4865    end;
4866    
4867    
4868  end.  end.
4869    
Legend:
Removed from v.3077  
changed lines
  Added in v.3095
  ViewVC Help
Powered by ViewVC 1.1.20