/[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 3087 by torben, Mon Aug 15 14:14:14 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 212  type Line 213  type
213      Sted : String;      Sted : String;
214      StedNavn : String;      StedNavn : String;
215    
216      Scanningtype, TestFunktionen, Pakketype, SporgEfterBoghandler : String;      Scanningtype,  Pakketype : String;
     ScanTjekkode : String;  
     ScanTjekkodeAutomatik : string;  
217    
     Url : 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 244  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 415  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 563  begin Line 554  begin
554      Sted := ReadString('Settings','Sted','');      Sted := ReadString('Settings','Sted','');
555      StedNavn := ReadString('Settings','Stednavn','');      StedNavn := ReadString('Settings','Stednavn','');
556    
557        Scanningtype := 'A'; //hardcoded
558        Pakketype := '0';
559    
560    
561    
562    
     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');  
563    
564      if (SkrivLog = '1') then      if (SkrivLog = '1') then
565      begin      begin
# Line 626  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 637  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 648  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 893  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 954  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 976  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 1535  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 1553  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 1609  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 1619  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 1632  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 1659  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 1992  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 2101  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 2150  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 2309  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 2329  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 2362  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 2431  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 2641  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 2661  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        Config.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
# Line 2854  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 2868  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 2884  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 2909  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 2920  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 3124  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,Config.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 3160  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, Config.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 3191  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, Config.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 3221  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, Config.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 3261  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, Config.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 3301  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, Config.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 3349  begin Line 3283  begin
3283        menuAutomatiskTjekkodeStyring.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3284    
3285        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3286        InitForm(FarveIndlevering, TitelIndlevering, Config.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 3428  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 3442  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 3454  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 3566  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 4649  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 4658  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 4729  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 4738  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 4796  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 4924  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.3087  
changed lines
  Added in v.3095
  ViewVC Help
Powered by ViewVC 1.1.20