/[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 3094 by torben, Fri Aug 19 14:35:39 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 212  type Line 212  type
212      Sted : String;      Sted : String;
213      StedNavn : String;      StedNavn : String;
214    
215      Scanningtype, TestFunktionen, Pakketype, SporgEfterBoghandler : String;      Scanningtype,  Pakketype : String;
     ScanTjekkode : String;  
     ScanTjekkodeAutomatik : string;  
216    
     Url : String;  
217    
218      Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop,      Url : String;
           FarveIndlevering : String;  
219    
220      Titel, TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop,      Farve : String;
           TitelIndlevering : String;  
221    
222      AlarmLyd : String;      Titel : String;
     ScannetOkLyd : String;  
     ScannetOkStorLyd : String;  
223    
     ScannetOkTilTjekkodeLyd : String;  
224    
     PrinterNavn : String;  
     TjekPrinter : String;  
225    
226      Org_RuteNummerST, Org_BoghandlerNavnST, Org_KommentarST : String;      Org_RuteNummerST, Org_BoghandlerNavnST, Org_KommentarST : String;
227      BladhusSted : Integer;      BladhusSted : Integer;
# Line 244  type Line 234  type
234      logTekst : string;      logTekst : string;
235      PakkeshopStregkode, PakkeshopTjekkode : String;      PakkeshopStregkode, PakkeshopTjekkode : String;
236      BoghandlerStregkode, BoghandlerTjekkode : String;      BoghandlerStregkode, BoghandlerTjekkode : String;
237      TjekUrls : String;  
238      Config : TConfiguration;      Config : TConfiguration;
239    
240    
# Line 415  begin Line 405  begin
405    
406      if (Scanningtype = '1') or (Scanningtype = '5') then      if (Scanningtype = '1') or (Scanningtype = '5') then
407      begin      begin
408        if (ScanTjekkode = '1') then        if (Config.ScanTjekkode = '1') then
409        begin        begin
410          chkScanTjekkode.Checked := true;          chkScanTjekkode.Checked := true;
411          chkScanTjekkode.Enabled := true;          chkScanTjekkode.Enabled := true;
# Line 563  begin Line 553  begin
553      Sted := ReadString('Settings','Sted','');      Sted := ReadString('Settings','Sted','');
554      StedNavn := ReadString('Settings','Stednavn','');      StedNavn := ReadString('Settings','Stednavn','');
555    
556        Scanningtype := 'A'; //hardcoded
557        Pakketype := '0';
558    
559    
560    
561    
     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');  
562    
563      if (SkrivLog = '1') then      if (SkrivLog = '1') then
564      begin      begin
# Line 626  begin Line 586  begin
586    
587    
588    
589      if SporgEfterBoghandler = '1' then      if Config.SporgEfterBoghandler = '1' then
590      begin      begin
591        chkSporgEfterKunde.Checked := true;        chkSporgEfterKunde.Checked := true;
592        Sprgefterboghandlernummer1.Checked := true;        Sprgefterboghandlernummer1.Checked := true;
# Line 637  begin Line 597  begin
597        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
598      end;      end;
599    
600      if ScanTjekkode = '1' then      if Config.ScanTjekkode = '1' then
601      begin      begin
602        chkScanTjekkode.Checked := true;        chkScanTjekkode.Checked := true;
603        Scanogstjekkoden1.Checked := true;        Scanogstjekkoden1.Checked := true;
# Line 648  begin Line 608  begin
608        Scanogstjekkoden1.Checked := false;        Scanogstjekkoden1.Checked := false;
609      end;      end;
610    
611      if ScanTjekkodeAutomatik = '1' then      if Config.ScanTjekkodeAutomatik = '1' then
612      begin      begin
613        menuAutomatiskTjekkodeStyring.Checked := true;        menuAutomatiskTjekkodeStyring.Checked := true;
614        chkScanTjekkode.Enabled := false;        chkScanTjekkode.Enabled := false;
# Line 893  begin Line 853  begin
853          Application.Terminate;          Application.Terminate;
854      end;      end;
855    
856      if TjekUrls = '1' then    // Tjekker urls      if Config.TjekUrls = '1' then    // Tjekker urls
857      begin      begin
858          TjekkerUrls();          TjekkerUrls();
859          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
860          begin          begin
861             PlaySound(PWideChar(AlarmLyd));             PlaySound(PWideChar(Config.AlarmLyd));
862             MainForm.Color := clRed;             MainForm.Color := clRed;
863             RutenummerST.Caption := '';             RutenummerST.Caption := '';
864             BoghandlerNavnST.Caption := 'Fejl i urls';             BoghandlerNavnST.Caption := 'Fejl i urls';
# Line 954  begin Line 914  begin
914        radioLillePakke.Checked := true;        radioLillePakke.Checked := true;
915      end;      end;
916    
917      if TestFunktionen = '1' then      if Config.TestFunktionen = '1' then
918      begin      begin
919        Testforbindelsen1.Visible := true;        Testforbindelsen1.Visible := true;
920        Testprinter1.Visible := true;        Testprinter1.Visible := true;
921        Testlyd1.Visible := true;        Testlyd1.Visible := true;
922        Testlyd2.Visible := true;        Testlyd2.Visible := true;
923      end      end
924      else if TestFunktionen = '2' then      else if Config.TestFunktionen = '2' then
925      begin      begin
926        Testforbindelsen1.Enabled := false;        Testforbindelsen1.Enabled := false;
927        Testprinter1.Enabled := false;        Testprinter1.Enabled := false;
# Line 976  begin Line 936  begin
936        Testlyd2.Visible := false;        Testlyd2.Visible := false;
937      end;      end;
938    
     if not FileExists(AlarmLyd) then  
     begin  
       AlarmLyd := '';  
     end;  
939    
     if not FileExists(ScannetOkLyd) then  
     begin  
       ScannetOkLyd := '';  
     end;  
940    
     if not FileExists(ScannetOkStorLyd) then  
     begin  
       ScannetOkStorLyd := '';  
     end;  
941    
942    
943      if not FileExists(ScannetOkTilTjekkodeLyd) then      LabelPrint := TLabelPrint.Create( self, Config, Config.PrinterNavn );
944      begin      LabelPrint.CheckPrintQue('Opstart', Config.PrinterNavn);
       ScannetOkTilTjekkodeLyd := '';  
     end;  
   
   
   
   
     LabelPrint := TLabelPrint.Create( self, Config, PrinterNavn );  
     LabelPrint.CheckPrintQue('Opstart', PrinterNavn);  
945    
946    finally    finally
947      Free;      Free;
# Line 1535  begin Line 1475  begin
1475              BoghandlerStregkode := Stregkode;              BoghandlerStregkode := Stregkode;
1476              PakkeshopText1.Caption := 'Tjekkode';              PakkeshopText1.Caption := 'Tjekkode';
1477    
1478              PlaySound(PWideChar(ScannetOkTilTjekkodeLyd));              PlaySound(PWideChar(Config.ScannetOkTilTjekkodeLyd));
1479    
1480             end             end
1481            else            else
# Line 1553  begin Line 1493  begin
1493             BoghandlerTjekkode := Stregkode;             BoghandlerTjekkode := Stregkode;
1494             PakkeshopText1.Caption := 'Stregkode';             PakkeshopText1.Caption := 'Stregkode';
1495             if (menuPakkeshop1.Checked) then             if (menuPakkeshop1.Checked) then
1496                MainForm.Color := TUtils.HexToTColor(FarvePakkeshoplevering);                MainForm.Color := TUtils.HexToTColor(Config.FarvePakkeshoplevering);
1497             if (menuNatXpress1.Checked) then             if (menuNatXpress1.Checked) then
1498                MainForm.Color := TUtils.HexToTColor(FarveNormal);                MainForm.Color := TUtils.HexToTColor(Config.FarveNormal);
1499             btnNulstil.Visible := false;             btnNulstil.Visible := false;
1500           end           end
1501          else          else
# Line 1609  begin Line 1549  begin
1549              tjekkodemangler := pos('Tjekkode mangler', Kommentar);              tjekkodemangler := pos('Tjekkode mangler', Kommentar);
1550              if (pakkeErScannet > 0) or (pakkeForkertSted > 0) or (tjekkodemangler > 0) then              if (pakkeErScannet > 0) or (pakkeForkertSted > 0) or (tjekkodemangler > 0) then
1551              begin              begin
1552                PlaySound(PWideChar(AlarmLyd));                PlaySound(PWideChar(Config.AlarmLyd));
1553                btnNulstil.Visible := true;                btnNulstil.Visible := true;
1554                MainForm.Color := clRed;                MainForm.Color := clRed;
1555              end;              end;
# Line 1619  begin Line 1559  begin
1559              MainForm.Color := TUtils.HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1560              if menuStorePakker.Checked then              if menuStorePakker.Checked then
1561              begin              begin
1562                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(Config.ScannetOkStorLyd));
1563              end              end
1564              else              else
1565              begin              begin
1566                PlaySound(PWideChar(ScannetOkLyd));                PlaySound(PWideChar(Config.ScannetOkLyd));
1567              end;              end;
1568              btnNulstil.Visible := false;              btnNulstil.Visible := false;
1569            end            end
# Line 1632  begin Line 1572  begin
1572              MainForm.Color := TUtils.HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1573              if menuStorePakker.Checked then              if menuStorePakker.Checked then
1574              begin              begin
1575                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(Config.ScannetOkStorLyd));
1576              end              end
1577              else              else
1578              begin              begin
1579                PlaySound(PWideChar(ScannetOkLyd));                PlaySound(PWideChar(Config.ScannetOkLyd));
1580              end;              end;
1581              btnNulstil.Visible := false;              btnNulstil.Visible := false;
1582            end            end
# Line 1659  begin Line 1599  begin
1599              begin              begin
1600                if menuStorePakker.Checked then                if menuStorePakker.Checked then
1601                begin                begin
1602                  PlaySound(PWideChar(ScannetOkStorLyd));                  PlaySound(PWideChar(Config.ScannetOkStorLyd));
1603                end                end
1604                else                else
1605                begin                begin
1606                  PlaySound(PWideChar(ScannetOkLyd));                  PlaySound(PWideChar(Config.ScannetOkLyd));
1607                end;                end;
1608                InitLillePakke();                InitLillePakke();
1609              end;              end;
# Line 1992  var Line 1932  var
1932    pakkestorrelse : String;    pakkestorrelse : String;
1933    PrintNyLabelInteger : Integer;    PrintNyLabelInteger : Integer;
1934    
1935    PakkeshopLabel: TPakkeshopLabel;    PakkeshopLabel: TLabelData;
1936  begin  begin
1937    if radioStorPakke.Checked then    if radioStorPakke.Checked then
1938    begin    begin
# Line 2101  begin Line 2041  begin
2041       if (Kommentar = 'Ok') then       if (Kommentar = 'Ok') then
2042       begin       begin
2043         PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label         PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label
2044         PakkeshopLabel := TPakkeshopLabel.Create( XMLDocument1 ); //Opret struct og parse xml doc         PakkeshopLabel := TLabelData.Create( XMLDocument1 ); //Opret struct og parse xml doc
2045         RuteNummer := PakkeshopLabel.Koreliste + '  ->  ' +  PakkeshopLabel.PakkeshopTurid;         RuteNummer := PakkeshopLabel.Koreliste + '  ->  ' +  PakkeshopLabel.PakkeshopTurid;
2046         Stregkode := PakkeshopLabel.Stregkode;         Stregkode := PakkeshopLabel.Stregkode;
2047    
# Line 2150  begin Line 2090  begin
2090      begin      begin
2091        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then
2092        begin        begin
2093            Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted;            Kommentar := Kommentar + ' Pakke burde være hos ' + Leveringssted;
2094            PrintNyLabel := False;            //PrintNyLabel := False; //ved fuld-daekning / X-ruter skal vi altid skrive label alligevel
2095        end;        end;
2096      end      end
2097      else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) And (Leveringssted <> '') then      else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) And (Leveringssted <> '') then
2098      begin      begin
2099         if (Leveringssted = 'E') and (Sted = 'DBK') then        Kommentar := Kommentar + ' Pakke burde være hos ' + Leveringssted;
2100         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;  
2101      end;      end;
2102    except on e:exception do    except on e:exception do
2103      raise exception.CreateFmt('Fejl i XML-format: %s',[e.Message]);      raise exception.CreateFmt('Fejl i XML-format: %s',[e.Message]);
# Line 2309  begin Line 2242  begin
2242       begin       begin
2243          PrintNyLabel := false;          PrintNyLabel := false;
2244    
2245          PlaySound(PWideChar(AlarmLyd));          PlaySound(PWideChar(Config.AlarmLyd));
2246          MainForm.Color := clRed;          MainForm.Color := clRed;
2247          btnNulstil.Visible := true;          btnNulstil.Visible := true;
2248    
# Line 2329  begin Line 2262  begin
2262            logTekst := RightStr(List1Msg, Length(List1Msg)-10);            logTekst := RightStr(List1Msg, Length(List1Msg)-10);
2263            SkrivScanningLogFil(logTekst);            SkrivScanningLogFil(logTekst);
2264    
2265            if (PrinterNavn = 'Ingen') then            if (Config.PrinterNavn = 'Ingen') then
2266            begin            begin
2267               PrintNyLabel := false;               PrintNyLabel := false;
2268            end;            end;
2269    
2270            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
2271            begin            begin
2272              PlaySound(PWideChar(AlarmLyd));              PlaySound(PWideChar(Config.AlarmLyd));
2273              MainForm.Color := clRed;              MainForm.Color := clRed;
2274              btnNulstil.Visible := true;              btnNulstil.Visible := true;
2275            end;            end;
# Line 2362  begin Line 2295  begin
2295    
2296            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
2297            begin            begin
2298              PlaySound(PWideChar(AlarmLyd));              PlaySound(PWideChar(Config.AlarmLyd));
2299              MainForm.Color := clRed;              MainForm.Color := clRed;
2300              btnNulstil.Visible := true;              btnNulstil.Visible := true;
2301            end;            end;
# Line 2431  begin Line 2364  begin
2364    end    end
2365    else    else
2366    begin    begin
2367      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
2368      begin      begin
2369        logTekst := 'Printer label type ';        logTekst := 'Printer label type ';
2370        if (chkAltidPrintLabel.Checked) then        if (chkAltidPrintLabel.Checked) then
# Line 2641  begin Line 2574  begin
2574      SkrivScanningLogFil(logTekst);      SkrivScanningLogFil(logTekst);
2575    
2576    Except    Except
2577      TjekUrls := '-';   // markerer at der var fejl      Config.TjekUrls := '-';   // markerer at der var fejl
2578    
2579    end;    end;
2580  end;  end;
# Line 2661  begin Line 2594  begin
2594      inc(urlFejl);   // Optæller antal fejl      inc(urlFejl);   // Optæller antal fejl
2595      logTekst := UrlNavn + ' svarer ikke: ' + Url;      logTekst := UrlNavn + ' svarer ikke: ' + Url;
2596      ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);      ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
2597      if TjekUrls = '1' then      if Config.TjekUrls = '1' then
2598      begin      begin
2599        logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';        logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
2600      end;      end;
2601    
2602      SkrivScanningLogFil(logTekst);      SkrivScanningLogFil(logTekst);
2603    
2604      if TjekUrls = '1' then      if Config.TjekUrls = '1' then
2605      begin      begin
2606        ShowMessage(logTekst);        ShowMessage(logTekst);
2607        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 2787  var
2787    Leveringssted : String;    Leveringssted : String;
2788    orgTjekUrls : String;    orgTjekUrls : String;
2789  begin  begin
2790    orgTjekUrls := TjekUrls;    orgTjekUrls := Config.TjekUrls;
2791    if (TjekUrls = '1') or (TjekUrls = '2') then    if (Config.TjekUrls = '1') or (Config.TjekUrls = '2') then
2792    begin    begin
2793      TjekkerUrls();      TjekkerUrls();
2794    end;    end;
2795    if TjekUrls = '-' then    if Config.TjekUrls = '-' then
2796    begin    begin
2797      //ShowMessage('Der var fejl i een eller flere urls - se logvinduet');      //ShowMessage('Der var fejl i een eller flere urls - se logvinduet');
2798      RuteNummer := '';      RuteNummer := '';
# Line 2868  begin Line 2801  begin
2801      Koreliste := '';      Koreliste := '';
2802      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');
2803      // Her kommer en alarm og rød skærm      // Her kommer en alarm og rød skærm
2804      PlaySound(PWideChar(AlarmLyd));      PlaySound(PWideChar(Config.AlarmLyd));
2805      MainForm.Color := clRed;      MainForm.Color := clRed;
2806      btnNulstil.Visible := true;      btnNulstil.Visible := true;
2807    end    end
# Line 2884  begin Line 2817  begin
2817      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);
2818      FocusControl(StregkodeST);      FocusControl(StregkodeST);
2819    end;    end;
2820    TjekUrls := orgTjekUrls;    Config.TjekUrls := orgTjekUrls;
2821    
2822  end;  end;
2823    
# Line 2909  begin Line 2842  begin
2842    begin    begin
2843      ShowMessage('Der er ikke installeret en printer på denne PC.');      ShowMessage('Der er ikke installeret en printer på denne PC.');
2844    end    end
2845    else if PrinterNavn = 'Ingen' then    else if Config.PrinterNavn = 'Ingen' then
2846    begin    begin
2847      ShowMessage('Der er fravalgt printer i dette program.');      ShowMessage('Der er fravalgt printer i dette program.');
2848    end    end
# Line 2920  begin Line 2853  begin
2853      DBKbane := '999';      DBKbane := '999';
2854      Leveringssted := 'XXX';      Leveringssted := 'XXX';
2855      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);
2856      LabelPrint.CheckPrintQue('Test', PrinterNavn);      LabelPrint.CheckPrintQue('Test', Config.PrinterNavn);
2857    end;    end;
2858    FocusControl(StregkodeST);    FocusControl(StregkodeST);
2859  end;  end;
2860    
2861  procedure TMainForm.Timer1Timer(Sender: TObject);  procedure TMainForm.Timer1Timer(Sender: TObject);
2862  begin  begin
2863    if (TjekPrinter = '1') then    if (Config.TjekPrinter = '1') then
2864    begin    begin
2865      LabelPrint.CheckPrintQue('Timer', PrinterNavn);      LabelPrint.CheckPrintQue('Timer', Config.PrinterNavn);
2866    end    end
2867    else    else
2868    begin    begin
# Line 3124  begin Line 3057  begin
3057        menuAutomatiskTjekkodeStyring.Enabled := true;        menuAutomatiskTjekkodeStyring.Enabled := true;
3058        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3059        menuNatXpress1.Checked := true;        menuNatXpress1.Checked := true;
3060        InitForm(FarveNormal,TitelNormal,Config.UrlNormal);        InitForm(Config.FarveNormal,Config.TitelNormal,Config.UrlNormal);
3061        PanelValg1.Color := clGreen;        PanelValg1.Color := clGreen;
3062        PanelValg1.Font.Color := clWhite;        PanelValg1.Font.Color := clWhite;
3063    
# Line 3160  begin Line 3093  begin
3093        menuAutomatiskTjekkodeStyring.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3094        menuNatxpressReturDAO1.Checked := true;        menuNatxpressReturDAO1.Checked := true;
3095        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3096        InitForm(FarveReturDAO,TitelReturDAO, Config.UrlReturDAO);        InitForm(Config.FarveReturDAO, Config.TitelReturDAO, Config.UrlReturDAO);
3097        PanelValg2.Color := clGreen;        PanelValg2.Color := clGreen;
3098        PanelValg2.Font.Color := clWhite;        PanelValg2.Font.Color := clWhite;
3099    
# Line 3191  begin Line 3124  begin
3124        menuAutomatiskTjekkodeStyring.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3125        menuNatxpressReturfraKunde1.Checked := true;        menuNatxpressReturfraKunde1.Checked := true;
3126        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3127        InitForm(FarveReturBoghandler,TitelReturBoghandler, Config.UrlReturBoghandler);        InitForm(Config.FarveReturBoghandler, Config.TitelReturBoghandler, Config.UrlReturBoghandler);
3128        PanelValg3.Color := clGreen;        PanelValg3.Color := clGreen;
3129        PanelValg3.Font.Color := clWhite;        PanelValg3.Font.Color := clWhite;
3130    
# Line 3221  begin Line 3154  begin
3154        menuAutomatiskTjekkodeStyring.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3155        menuDaoDirekte1.Checked := true;        menuDaoDirekte1.Checked := true;
3156        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3157        InitForm(FarveBudlevering,TitelBudlevering, Config.UrlBudlevering);        InitForm(Config.FarveBudlevering, Config.TitelBudlevering, Config.UrlBudlevering);
3158        PanelValg4.Color := clGreen;        PanelValg4.Color := clGreen;
3159        PanelValg4.Font.Color := clWhite;        PanelValg4.Font.Color := clWhite;
3160    
# Line 3261  begin Line 3194  begin
3194        menuAutomatiskTjekkodeStyring.Enabled := true;        menuAutomatiskTjekkodeStyring.Enabled := true;
3195        menuPakkeshop1.Checked := true;        menuPakkeshop1.Checked := true;
3196        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3197        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering, Config.UrlPakkeshoplevering);        InitForm(Config.FarvePakkeshoplevering, Config.TitelPakkeshoplevering, Config.UrlPakkeshoplevering);
3198        PanelValg5.Color := clGreen;        PanelValg5.Color := clGreen;
3199        PanelValg5.Font.Color := clWhite;        PanelValg5.Font.Color := clWhite;
3200    
# Line 3301  begin Line 3234  begin
3234        menuAutomatiskTjekkodeStyring.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3235        menuPakkeshopRetur1.Checked := true;        menuPakkeshopRetur1.Checked := true;
3236        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3237        InitForm(FarveReturPakkeshop,TitelReturPakkeshop, Config.UrlReturPakkeshop);        InitForm(Config.FarveReturPakkeshop, Config.TitelReturPakkeshop, Config.UrlReturPakkeshop);
3238        PanelValg6.Color := clGreen;        PanelValg6.Color := clGreen;
3239        PanelValg6.Font.Color := clWhite;        PanelValg6.Font.Color := clWhite;
3240    
# Line 3349  begin Line 3282  begin
3282        menuAutomatiskTjekkodeStyring.Enabled := false;        menuAutomatiskTjekkodeStyring.Enabled := false;
3283    
3284        btnNulstil.Visible := false;        btnNulstil.Visible := false;
3285        InitForm(FarveIndlevering, TitelIndlevering, Config.UrlReturPakkeshop);        InitForm(Config.FarveIndlevering, Config.TitelIndlevering, Config.UrlReturPakkeshop);
3286        PanelValg7.Color := clGreen;        PanelValg7.Color := clGreen;
3287        PanelValg7.Font.Color := clWhite;        PanelValg7.Font.Color := clWhite;
3288    
# Line 3428  end; Line 3361  end;
3361    
3362  procedure TMainForm.Testlyd1Click(Sender: TObject);  procedure TMainForm.Testlyd1Click(Sender: TObject);
3363  begin  begin
3364     if AlarmLyd  <> '' then     if Config.AlarmLyd  <> '' then
3365     begin     begin
3366       PlaySound(PWideChar(AlarmLyd));       PlaySound(PWideChar(Config.AlarmLyd));
3367     end     end
3368     else     else
3369     begin     begin
# Line 3442  procedure TMainForm.Testlyd2Click(Sender Line 3375  procedure TMainForm.Testlyd2Click(Sender
3375  begin  begin
3376    if (PakkeshopText1.Caption = 'Tjekkode') then    if (PakkeshopText1.Caption = 'Tjekkode') then
3377    begin    begin
3378       if ScannetOkTilTjekkodeLyd  <> '' then       if Config.ScannetOkTilTjekkodeLyd  <> '' then
3379       begin       begin
3380         PlaySound(PWideChar(ScannetOkTilTjekkodeLyd));         PlaySound(PWideChar(Config.ScannetOkTilTjekkodeLyd));
3381       end       end
3382       else       else
3383       begin       begin
# Line 3454  begin Line 3387  begin
3387    end;    end;
3388    
3389    if menuSmaaPakker.Checked then    if menuSmaaPakker.Checked then
3390       if ScannetOkLyd  <> '' then       if Config.ScannetOkLyd  <> '' then
3391       begin       begin
3392         PlaySound(PWideChar(ScannetOkLyd));         PlaySound(PWideChar(Config.ScannetOkLyd));
3393       end       end
3394       else       else
3395       begin       begin
3396         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);
3397       end;       end;
3398    if menuStorePakker.Checked then    if menuStorePakker.Checked then
3399       if ScannetOkStorLyd  <> '' then       if Config.ScannetOkStorLyd  <> '' then
3400       begin       begin
3401         PlaySound(PWideChar(ScannetOkStorLyd));         PlaySound(PWideChar(Config.ScannetOkStorLyd));
3402       end       end
3403       else       else
3404       begin       begin
# Line 3566  begin Line 3499  begin
3499      // Hvis der var fejl i overførslen skal dette fejlmeldes her      // Hvis der var fejl i overførslen skal dette fejlmeldes her
3500      if status = 'Fejl' then      if status = 'Fejl' then
3501      begin   // Her skal komme en alarm og rød skærm      begin   // Her skal komme en alarm og rød skærm
3502         PlaySound(PWideChar(AlarmLyd));         PlaySound(PWideChar(Config.AlarmLyd));
3503         MainForm.Color := clRed;         MainForm.Color := clRed;
3504         RutenummerST.Caption := 'EKL overførsel';         RutenummerST.Caption := 'EKL overførsel';
3505         BoghandlerNavnST.Caption := 'Fejl:';         BoghandlerNavnST.Caption := 'Fejl:';
# Line 4649  begin Line 4582  begin
4582          ListBox1.Items.Insert(0,TimeToStr(now) + ': ' +'Fandt ingen linier til '+imorgenYmd+'.');          ListBox1.Items.Insert(0,TimeToStr(now) + ': ' +'Fandt ingen linier til '+imorgenYmd+'.');
4583          logTekst := 'Fandt ingen linier til '+imorgenYmd+'.';          logTekst := 'Fandt ingen linier til '+imorgenYmd+'.';
4584          SkrivScanningLogFil(logTekst);          SkrivScanningLogFil(logTekst);
4585          PlaySound(PWideChar(AlarmLyd));          PlaySound(PWideChar(Config.AlarmLyd));
4586        end;        end;
4587      end;      end;
4588    end    end
# Line 4658  begin Line 4591  begin
4591        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Ruteskift fil '+filnavn+' findes ikke.');        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Ruteskift fil '+filnavn+' findes ikke.');
4592        logTekst := 'Ruteskift fil '+filnavn+' findes ikke.';        logTekst := 'Ruteskift fil '+filnavn+' findes ikke.';
4593        SkrivScanningLogFil(logTekst);        SkrivScanningLogFil(logTekst);
4594        PlaySound(PWideChar(AlarmLyd));        PlaySound(PWideChar(Config.AlarmLyd));
4595    end;    end;
4596  end;  end;
4597    
# Line 4729  begin Line 4662  begin
4662          ListBox1.Items.Insert(0,TimeToStr(now) + ': ' +'Fandt ingen linier til '+imorgenYmd+'.');          ListBox1.Items.Insert(0,TimeToStr(now) + ': ' +'Fandt ingen linier til '+imorgenYmd+'.');
4663          logTekst := 'Fandt ingen linier til '+imorgenYmd+'.';          logTekst := 'Fandt ingen linier til '+imorgenYmd+'.';
4664          SkrivScanningLogFil(logTekst);          SkrivScanningLogFil(logTekst);
4665          PlaySound(PWideChar(AlarmLyd));          PlaySound(PWideChar(Config.AlarmLyd));
4666        end;        end;
4667      end;      end;
4668    end    end
# Line 4738  begin Line 4671  begin
4671        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Kontrol fil '+filnavn+' findes ikke.');        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Kontrol fil '+filnavn+' findes ikke.');
4672        logTekst := 'Kontrol fil '+filnavn+' findes ikke.';        logTekst := 'Kontrol fil '+filnavn+' findes ikke.';
4673        SkrivScanningLogFil(logTekst);        SkrivScanningLogFil(logTekst);
4674        PlaySound(PWideChar(AlarmLyd));        PlaySound(PWideChar(Config.AlarmLyd));
4675    end;    end;
4676  end;  end;
4677    
# Line 4796  procedure TMainForm.VisAlarmSkaerm(strMe Line 4729  procedure TMainForm.VisAlarmSkaerm(strMe
4729  begin  begin
4730    //ShowMessage('Ændring ikke tilladt');    //ShowMessage('Ændring ikke tilladt');
4731    // Her skal komme en 'rød skærm' alarm    // Her skal komme en 'rød skærm' alarm
4732    PlaySound(PWideChar(AlarmLyd));    PlaySound(PWideChar(Config.AlarmLyd));
4733    MainForm.Color := clRed;    MainForm.Color := clRed;
4734    
4735    
Legend:
Removed from v.3087  
changed lines
  Added in v.3094
  ViewVC Help
Powered by ViewVC 1.1.20