/[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 3089 by torben, Mon Aug 15 19:09:21 2016 UTC revision 3096 by torben, Sun Aug 21 21:56:01 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;
217      ScanTjekkode : String;  
     ScanTjekkodeAutomatik : string;  
218    
219      Url : String;      Url : String;
220    
# Line 222  type Line 222  type
222    
223      Titel : String;      Titel : String;
224    
     AlarmLyd : String;  
     ScannetOkLyd : String;  
     ScannetOkStorLyd : String;  
   
     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 242  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 413  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 546  begin Line 539  begin
539    
540  // Sætter lige en default panel størrelse  // Sætter lige en default panel størrelse
541    MainForm.ClientWidth := 1000;    MainForm.ClientWidth := 1000;
542    MainForm.ClientHeight := 820;    MainForm.ClientHeight := 920;
543    
544    Config := TConfiguration.Create();    Config := TConfiguration.Create();
545    Config.ReadFromInifile( TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) );    //ToDo: clean up duplicate ini ref    Config.ReadFromInifile( TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) );    //ToDo: clean up duplicate ini ref
# Line 561  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    
# Line 591  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 602  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 613  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 858  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 919  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 941  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;  
   
   
     if not FileExists(ScannetOkTilTjekkodeLyd) then  
     begin  
       ScannetOkTilTjekkodeLyd := '';  
     end;  
940    
941    
942    
943    
944      LabelPrint := TLabelPrint.Create( self, Config, PrinterNavn );      LabelPrint := TLabelPrint.Create( self, Config, Config.PrinterNavn );
945      LabelPrint.CheckPrintQue('Opstart', PrinterNavn);      LabelPrint.CheckPrintQue('Opstart', Config.PrinterNavn);
946    
947    finally    finally
948      Free;      Free;
# Line 1454  begin Line 1430  begin
1430        end;        end;
1431      end;      end;
1432    
1433        // EmballageRepareret skal bare sætte reklamationkoden,
1434        // og så ellers fortsætte med scanning som normalt
1435        if (chkEmballageRepareret.Checked = True) then
1436        begin
1437          URLStr := Format(Config.UrlEmballageRepareret,[Sted,Stregkode]);
1438          WebSvar := IdHTTP1.Get(URLStr);
1439          ShowMessage( WebSvar );
1440    
1441          chkEmballageRepareret.Checked := False;
1442        end;
1443    
1444    
1445    
1446      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and menuAutomatiskTjekkodeStyring.Checked then      if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and menuAutomatiskTjekkodeStyring.Checked then
# Line 1500  begin Line 1487  begin
1487              BoghandlerStregkode := Stregkode;              BoghandlerStregkode := Stregkode;
1488              PakkeshopText1.Caption := 'Tjekkode';              PakkeshopText1.Caption := 'Tjekkode';
1489    
1490              PlaySound(PWideChar(ScannetOkTilTjekkodeLyd));              PlaySound(PWideChar(Config.ScannetOkTilTjekkodeLyd));
1491    
1492             end             end
1493            else            else
# Line 1574  begin Line 1561  begin
1561              tjekkodemangler := pos('Tjekkode mangler', Kommentar);              tjekkodemangler := pos('Tjekkode mangler', Kommentar);
1562              if (pakkeErScannet > 0) or (pakkeForkertSted > 0) or (tjekkodemangler > 0) then              if (pakkeErScannet > 0) or (pakkeForkertSted > 0) or (tjekkodemangler > 0) then
1563              begin              begin
1564                PlaySound(PWideChar(AlarmLyd));                PlaySound(PWideChar(Config.AlarmLyd));
1565                btnNulstil.Visible := true;                btnNulstil.Visible := true;
1566                MainForm.Color := clRed;                MainForm.Color := clRed;
1567              end;              end;
# Line 1584  begin Line 1571  begin
1571              MainForm.Color := TUtils.HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1572              if menuStorePakker.Checked then              if menuStorePakker.Checked then
1573              begin              begin
1574                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(Config.ScannetOkStorLyd));
1575              end              end
1576              else              else
1577              begin              begin
1578                PlaySound(PWideChar(ScannetOkLyd));                PlaySound(PWideChar(Config.ScannetOkLyd));
1579              end;              end;
1580              btnNulstil.Visible := false;              btnNulstil.Visible := false;
1581            end            end
# Line 1597  begin Line 1584  begin
1584              MainForm.Color := TUtils.HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1585              if menuStorePakker.Checked then              if menuStorePakker.Checked then
1586              begin              begin
1587                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(Config.ScannetOkStorLyd));
1588              end              end
1589              else              else
1590              begin              begin
1591                PlaySound(PWideChar(ScannetOkLyd));                PlaySound(PWideChar(Config.ScannetOkLyd));
1592              end;              end;
1593              btnNulstil.Visible := false;              btnNulstil.Visible := false;
1594            end            end
# Line 1624  begin Line 1611  begin
1611              begin              begin
1612                if menuStorePakker.Checked then                if menuStorePakker.Checked then
1613                begin                begin
1614                  PlaySound(PWideChar(ScannetOkStorLyd));                  PlaySound(PWideChar(Config.ScannetOkStorLyd));
1615                end                end
1616                else                else
1617                begin                begin
1618                  PlaySound(PWideChar(ScannetOkLyd));                  PlaySound(PWideChar(Config.ScannetOkLyd));
1619                end;                end;
1620                InitLillePakke();                InitLillePakke();
1621              end;              end;
# Line 1957  var Line 1944  var
1944    pakkestorrelse : String;    pakkestorrelse : String;
1945    PrintNyLabelInteger : Integer;    PrintNyLabelInteger : Integer;
1946    
1947    PakkeshopLabel: TPakkeshopLabel;    PakkeshopLabel: TLabelData;
1948  begin  begin
1949    if radioStorPakke.Checked then    if radioStorPakke.Checked then
1950    begin    begin
# Line 2066  begin Line 2053  begin
2053       if (Kommentar = 'Ok') then       if (Kommentar = 'Ok') then
2054       begin       begin
2055         PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label         PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label
2056         PakkeshopLabel := TPakkeshopLabel.Create( XMLDocument1 ); //Opret struct og parse xml doc         PakkeshopLabel := TLabelData.Create( XMLDocument1 ); //Opret struct og parse xml doc
2057         RuteNummer := PakkeshopLabel.Koreliste + '  ->  ' +  PakkeshopLabel.PakkeshopTurid;         RuteNummer := PakkeshopLabel.Koreliste + '  ->  ' +  PakkeshopLabel.PakkeshopTurid;
2058         Stregkode := PakkeshopLabel.Stregkode;         Stregkode := PakkeshopLabel.Stregkode;
2059    
# Line 2115  begin Line 2102  begin
2102      begin      begin
2103        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then
2104        begin        begin
2105            Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted;            Kommentar := Kommentar + ' Pakke burde være hos ' + Leveringssted;
2106            PrintNyLabel := False;            //PrintNyLabel := False; //ved fuld-daekning / X-ruter skal vi altid skrive label alligevel
2107        end;        end;
2108      end      end
2109      else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) And (Leveringssted <> '') then      else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) And (Leveringssted <> '') then
2110      begin      begin
2111         if (Leveringssted = 'E') and (Sted = 'DBK') then        Kommentar := Kommentar + ' Pakke burde være hos ' + Leveringssted;
2112         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;  
2113      end;      end;
2114    except on e:exception do    except on e:exception do
2115      raise exception.CreateFmt('Fejl i XML-format: %s',[e.Message]);      raise exception.CreateFmt('Fejl i XML-format: %s',[e.Message]);
# Line 2274  begin Line 2254  begin
2254       begin       begin
2255          PrintNyLabel := false;          PrintNyLabel := false;
2256    
2257          PlaySound(PWideChar(AlarmLyd));          PlaySound(PWideChar(Config.AlarmLyd));
2258          MainForm.Color := clRed;          MainForm.Color := clRed;
2259          btnNulstil.Visible := true;          btnNulstil.Visible := true;
2260    
# Line 2294  begin Line 2274  begin
2274            logTekst := RightStr(List1Msg, Length(List1Msg)-10);            logTekst := RightStr(List1Msg, Length(List1Msg)-10);
2275            SkrivScanningLogFil(logTekst);            SkrivScanningLogFil(logTekst);
2276    
2277            if (PrinterNavn = 'Ingen') then            if (Config.PrinterNavn = 'Ingen') then
2278            begin            begin
2279               PrintNyLabel := false;               PrintNyLabel := false;
2280            end;            end;
2281    
2282            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
2283            begin            begin
2284              PlaySound(PWideChar(AlarmLyd));              PlaySound(PWideChar(Config.AlarmLyd));
2285              MainForm.Color := clRed;              MainForm.Color := clRed;
2286              btnNulstil.Visible := true;              btnNulstil.Visible := true;
2287            end;            end;
# Line 2327  begin Line 2307  begin
2307    
2308            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
2309            begin            begin
2310              PlaySound(PWideChar(AlarmLyd));              PlaySound(PWideChar(Config.AlarmLyd));
2311              MainForm.Color := clRed;              MainForm.Color := clRed;
2312              btnNulstil.Visible := true;              btnNulstil.Visible := true;
2313            end;            end;
# Line 2396  begin Line 2376  begin
2376    end    end
2377    else    else
2378    begin    begin
2379      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
2380      begin      begin
2381        logTekst := 'Printer label type ';        logTekst := 'Printer label type ';
2382        if (chkAltidPrintLabel.Checked) then        if (chkAltidPrintLabel.Checked) then
# Line 2606  begin Line 2586  begin
2586      SkrivScanningLogFil(logTekst);      SkrivScanningLogFil(logTekst);
2587    
2588    Except    Except
2589      TjekUrls := '-';   // markerer at der var fejl      Config.TjekUrls := '-';   // markerer at der var fejl
2590    
2591    end;    end;
2592  end;  end;
# Line 2626  begin Line 2606  begin
2606      inc(urlFejl);   // Optæller antal fejl      inc(urlFejl);   // Optæller antal fejl
2607      logTekst := UrlNavn + ' svarer ikke: ' + Url;      logTekst := UrlNavn + ' svarer ikke: ' + Url;
2608      ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);      ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
2609      if TjekUrls = '1' then      if Config.TjekUrls = '1' then
2610      begin      begin
2611        logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';        logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
2612      end;      end;
2613    
2614      SkrivScanningLogFil(logTekst);      SkrivScanningLogFil(logTekst);
2615    
2616      if TjekUrls = '1' then      if Config.TjekUrls = '1' then
2617      begin      begin
2618        ShowMessage(logTekst);        ShowMessage(logTekst);
2619        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 2819  var Line 2799  var
2799    Leveringssted : String;    Leveringssted : String;
2800    orgTjekUrls : String;    orgTjekUrls : String;
2801  begin  begin
2802    orgTjekUrls := TjekUrls;    orgTjekUrls := Config.TjekUrls;
2803    if (TjekUrls = '1') or (TjekUrls = '2') then    if (Config.TjekUrls = '1') or (Config.TjekUrls = '2') then
2804    begin    begin
2805      TjekkerUrls();      TjekkerUrls();
2806    end;    end;
2807    if TjekUrls = '-' then    if Config.TjekUrls = '-' then
2808    begin    begin
2809      //ShowMessage('Der var fejl i een eller flere urls - se logvinduet');      //ShowMessage('Der var fejl i een eller flere urls - se logvinduet');
2810      RuteNummer := '';      RuteNummer := '';
# Line 2833  begin Line 2813  begin
2813      Koreliste := '';      Koreliste := '';
2814      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');
2815      // Her kommer en alarm og rød skærm      // Her kommer en alarm og rød skærm
2816      PlaySound(PWideChar(AlarmLyd));      PlaySound(PWideChar(Config.AlarmLyd));
2817      MainForm.Color := clRed;      MainForm.Color := clRed;
2818      btnNulstil.Visible := true;      btnNulstil.Visible := true;
2819    end    end
# Line 2849  begin Line 2829  begin
2829      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);
2830      FocusControl(StregkodeST);      FocusControl(StregkodeST);
2831    end;    end;
2832    TjekUrls := orgTjekUrls;    Config.TjekUrls := orgTjekUrls;
2833    
2834  end;  end;
2835    
# Line 2874  begin Line 2854  begin
2854    begin    begin
2855      ShowMessage('Der er ikke installeret en printer på denne PC.');      ShowMessage('Der er ikke installeret en printer på denne PC.');
2856    end    end
2857    else if PrinterNavn = 'Ingen' then    else if Config.PrinterNavn = 'Ingen' then
2858    begin    begin
2859      ShowMessage('Der er fravalgt printer i dette program.');      ShowMessage('Der er fravalgt printer i dette program.');
2860    end    end
# Line 2885  begin Line 2865  begin
2865      DBKbane := '999';      DBKbane := '999';
2866      Leveringssted := 'XXX';      Leveringssted := 'XXX';
2867      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);
2868      LabelPrint.CheckPrintQue('Test', PrinterNavn);      LabelPrint.CheckPrintQue('Test', Config.PrinterNavn);
2869    end;    end;
2870    FocusControl(StregkodeST);    FocusControl(StregkodeST);
2871  end;  end;
2872    
2873  procedure TMainForm.Timer1Timer(Sender: TObject);  procedure TMainForm.Timer1Timer(Sender: TObject);
2874  begin  begin
2875    if (TjekPrinter = '1') then    if (Config.TjekPrinter = '1') then
2876    begin    begin
2877      LabelPrint.CheckPrintQue('Timer', PrinterNavn);      LabelPrint.CheckPrintQue('Timer', Config.PrinterNavn);
2878    end    end
2879    else    else
2880    begin    begin
# Line 3393  end; Line 3373  end;
3373    
3374  procedure TMainForm.Testlyd1Click(Sender: TObject);  procedure TMainForm.Testlyd1Click(Sender: TObject);
3375  begin  begin
3376     if AlarmLyd  <> '' then     if Config.AlarmLyd  <> '' then
3377     begin     begin
3378       PlaySound(PWideChar(AlarmLyd));       PlaySound(PWideChar(Config.AlarmLyd));
3379     end     end
3380     else     else
3381     begin     begin
# Line 3407  procedure TMainForm.Testlyd2Click(Sender Line 3387  procedure TMainForm.Testlyd2Click(Sender
3387  begin  begin
3388    if (PakkeshopText1.Caption = 'Tjekkode') then    if (PakkeshopText1.Caption = 'Tjekkode') then
3389    begin    begin
3390       if ScannetOkTilTjekkodeLyd  <> '' then       if Config.ScannetOkTilTjekkodeLyd  <> '' then
3391       begin       begin
3392         PlaySound(PWideChar(ScannetOkTilTjekkodeLyd));         PlaySound(PWideChar(Config.ScannetOkTilTjekkodeLyd));
3393       end       end
3394       else       else
3395       begin       begin
# Line 3419  begin Line 3399  begin
3399    end;    end;
3400    
3401    if menuSmaaPakker.Checked then    if menuSmaaPakker.Checked then
3402       if ScannetOkLyd  <> '' then       if Config.ScannetOkLyd  <> '' then
3403       begin       begin
3404         PlaySound(PWideChar(ScannetOkLyd));         PlaySound(PWideChar(Config.ScannetOkLyd));
3405       end       end
3406       else       else
3407       begin       begin
3408         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);
3409       end;       end;
3410    if menuStorePakker.Checked then    if menuStorePakker.Checked then
3411       if ScannetOkStorLyd  <> '' then       if Config.ScannetOkStorLyd  <> '' then
3412       begin       begin
3413         PlaySound(PWideChar(ScannetOkStorLyd));         PlaySound(PWideChar(Config.ScannetOkStorLyd));
3414       end       end
3415       else       else
3416       begin       begin
# Line 3531  begin Line 3511  begin
3511      // Hvis der var fejl i overførslen skal dette fejlmeldes her      // Hvis der var fejl i overførslen skal dette fejlmeldes her
3512      if status = 'Fejl' then      if status = 'Fejl' then
3513      begin   // Her skal komme en alarm og rød skærm      begin   // Her skal komme en alarm og rød skærm
3514         PlaySound(PWideChar(AlarmLyd));         PlaySound(PWideChar(Config.AlarmLyd));
3515         MainForm.Color := clRed;         MainForm.Color := clRed;
3516         RutenummerST.Caption := 'EKL overførsel';         RutenummerST.Caption := 'EKL overførsel';
3517         BoghandlerNavnST.Caption := 'Fejl:';         BoghandlerNavnST.Caption := 'Fejl:';
# Line 4614  begin Line 4594  begin
4594          ListBox1.Items.Insert(0,TimeToStr(now) + ': ' +'Fandt ingen linier til '+imorgenYmd+'.');          ListBox1.Items.Insert(0,TimeToStr(now) + ': ' +'Fandt ingen linier til '+imorgenYmd+'.');
4595          logTekst := 'Fandt ingen linier til '+imorgenYmd+'.';          logTekst := 'Fandt ingen linier til '+imorgenYmd+'.';
4596          SkrivScanningLogFil(logTekst);          SkrivScanningLogFil(logTekst);
4597          PlaySound(PWideChar(AlarmLyd));          PlaySound(PWideChar(Config.AlarmLyd));
4598        end;        end;
4599      end;      end;
4600    end    end
# Line 4623  begin Line 4603  begin
4603        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Ruteskift fil '+filnavn+' findes ikke.');        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Ruteskift fil '+filnavn+' findes ikke.');
4604        logTekst := 'Ruteskift fil '+filnavn+' findes ikke.';        logTekst := 'Ruteskift fil '+filnavn+' findes ikke.';
4605        SkrivScanningLogFil(logTekst);        SkrivScanningLogFil(logTekst);
4606        PlaySound(PWideChar(AlarmLyd));        PlaySound(PWideChar(Config.AlarmLyd));
4607    end;    end;
4608  end;  end;
4609    
# Line 4694  begin Line 4674  begin
4674          ListBox1.Items.Insert(0,TimeToStr(now) + ': ' +'Fandt ingen linier til '+imorgenYmd+'.');          ListBox1.Items.Insert(0,TimeToStr(now) + ': ' +'Fandt ingen linier til '+imorgenYmd+'.');
4675          logTekst := 'Fandt ingen linier til '+imorgenYmd+'.';          logTekst := 'Fandt ingen linier til '+imorgenYmd+'.';
4676          SkrivScanningLogFil(logTekst);          SkrivScanningLogFil(logTekst);
4677          PlaySound(PWideChar(AlarmLyd));          PlaySound(PWideChar(Config.AlarmLyd));
4678        end;        end;
4679      end;      end;
4680    end    end
# Line 4703  begin Line 4683  begin
4683        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Kontrol fil '+filnavn+' findes ikke.');        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Kontrol fil '+filnavn+' findes ikke.');
4684        logTekst := 'Kontrol fil '+filnavn+' findes ikke.';        logTekst := 'Kontrol fil '+filnavn+' findes ikke.';
4685        SkrivScanningLogFil(logTekst);        SkrivScanningLogFil(logTekst);
4686        PlaySound(PWideChar(AlarmLyd));        PlaySound(PWideChar(Config.AlarmLyd));
4687    end;    end;
4688  end;  end;
4689    
# Line 4761  procedure TMainForm.VisAlarmSkaerm(strMe Line 4741  procedure TMainForm.VisAlarmSkaerm(strMe
4741  begin  begin
4742    //ShowMessage('Ændring ikke tilladt');    //ShowMessage('Ændring ikke tilladt');
4743    // Her skal komme en 'rød skærm' alarm    // Her skal komme en 'rød skærm' alarm
4744    PlaySound(PWideChar(AlarmLyd));    PlaySound(PWideChar(Config.AlarmLyd));
4745    MainForm.Color := clRed;    MainForm.Color := clRed;
4746    
4747    
# Line 4889  begin Line 4869  begin
4869    Result := self;    Result := self;
4870  end;  end;
4871    
4872    //Nedarvet fra IParentForm
4873    function TMainForm.GetXMLDocument() : TXMLDocument;
4874    begin
4875      Result := XMLDocument1
4876    end;
4877    
4878    
4879  end.  end.
4880    
Legend:
Removed from v.3089  
changed lines
  Added in v.3096
  ViewVC Help
Powered by ViewVC 1.1.20