/[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 3090 by torben, Mon Aug 15 19:26:48 2016 UTC
# 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;
216      ScanTjekkode : String;  
     ScanTjekkodeAutomatik : string;  
217    
218      Url : String;      Url : String;
219    
# Line 222  type Line 221  type
221    
222      Titel : String;      Titel : String;
223    
     AlarmLyd : String;  
     ScannetOkLyd : String;  
     ScannetOkStorLyd : String;  
   
     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 242  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 413  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 591  begin Line 583  begin
583    
584    
585    
586      if SporgEfterBoghandler = '1' then      if Config.SporgEfterBoghandler = '1' then
587      begin      begin
588        chkSporgEfterKunde.Checked := true;        chkSporgEfterKunde.Checked := true;
589        Sprgefterboghandlernummer1.Checked := true;        Sprgefterboghandlernummer1.Checked := true;
# Line 602  begin Line 594  begin
594        Sprgefterboghandlernummer1.Checked := false;        Sprgefterboghandlernummer1.Checked := false;
595      end;      end;
596    
597      if ScanTjekkode = '1' then      if Config.ScanTjekkode = '1' then
598      begin      begin
599        chkScanTjekkode.Checked := true;        chkScanTjekkode.Checked := true;
600        Scanogstjekkoden1.Checked := true;        Scanogstjekkoden1.Checked := true;
# Line 613  begin Line 605  begin
605        Scanogstjekkoden1.Checked := false;        Scanogstjekkoden1.Checked := false;
606      end;      end;
607    
608      if ScanTjekkodeAutomatik = '1' then      if Config.ScanTjekkodeAutomatik = '1' then
609      begin      begin
610        menuAutomatiskTjekkodeStyring.Checked := true;        menuAutomatiskTjekkodeStyring.Checked := true;
611        chkScanTjekkode.Enabled := false;        chkScanTjekkode.Enabled := false;
# Line 858  begin Line 850  begin
850          Application.Terminate;          Application.Terminate;
851      end;      end;
852    
853      if TjekUrls = '1' then    // Tjekker urls      if Config.TjekUrls = '1' then    // Tjekker urls
854      begin      begin
855          TjekkerUrls();          TjekkerUrls();
856          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
857          begin          begin
858             PlaySound(PWideChar(AlarmLyd));             PlaySound(PWideChar(Config.AlarmLyd));
859             MainForm.Color := clRed;             MainForm.Color := clRed;
860             RutenummerST.Caption := '';             RutenummerST.Caption := '';
861             BoghandlerNavnST.Caption := 'Fejl i urls';             BoghandlerNavnST.Caption := 'Fejl i urls';
# Line 919  begin Line 911  begin
911        radioLillePakke.Checked := true;        radioLillePakke.Checked := true;
912      end;      end;
913    
914      if TestFunktionen = '1' then      if Config.TestFunktionen = '1' then
915      begin      begin
916        Testforbindelsen1.Visible := true;        Testforbindelsen1.Visible := true;
917        Testprinter1.Visible := true;        Testprinter1.Visible := true;
918        Testlyd1.Visible := true;        Testlyd1.Visible := true;
919        Testlyd2.Visible := true;        Testlyd2.Visible := true;
920      end      end
921      else if TestFunktionen = '2' then      else if Config.TestFunktionen = '2' then
922      begin      begin
923        Testforbindelsen1.Enabled := false;        Testforbindelsen1.Enabled := false;
924        Testprinter1.Enabled := false;        Testprinter1.Enabled := false;
# Line 941  begin Line 933  begin
933        Testlyd2.Visible := false;        Testlyd2.Visible := false;
934      end;      end;
935    
     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;  
936    
937    
938    
939    
940      LabelPrint := TLabelPrint.Create( self, Config, PrinterNavn );      LabelPrint := TLabelPrint.Create( self, Config, Config.PrinterNavn );
941      LabelPrint.CheckPrintQue('Opstart', PrinterNavn);      LabelPrint.CheckPrintQue('Opstart', Config.PrinterNavn);
942    
943    finally    finally
944      Free;      Free;
# Line 1500  begin Line 1472  begin
1472              BoghandlerStregkode := Stregkode;              BoghandlerStregkode := Stregkode;
1473              PakkeshopText1.Caption := 'Tjekkode';              PakkeshopText1.Caption := 'Tjekkode';
1474    
1475              PlaySound(PWideChar(ScannetOkTilTjekkodeLyd));              PlaySound(PWideChar(Config.ScannetOkTilTjekkodeLyd));
1476    
1477             end             end
1478            else            else
# Line 1574  begin Line 1546  begin
1546              tjekkodemangler := pos('Tjekkode mangler', Kommentar);              tjekkodemangler := pos('Tjekkode mangler', Kommentar);
1547              if (pakkeErScannet > 0) or (pakkeForkertSted > 0) or (tjekkodemangler > 0) then              if (pakkeErScannet > 0) or (pakkeForkertSted > 0) or (tjekkodemangler > 0) then
1548              begin              begin
1549                PlaySound(PWideChar(AlarmLyd));                PlaySound(PWideChar(Config.AlarmLyd));
1550                btnNulstil.Visible := true;                btnNulstil.Visible := true;
1551                MainForm.Color := clRed;                MainForm.Color := clRed;
1552              end;              end;
# Line 1584  begin Line 1556  begin
1556              MainForm.Color := TUtils.HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1557              if menuStorePakker.Checked then              if menuStorePakker.Checked then
1558              begin              begin
1559                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(Config.ScannetOkStorLyd));
1560              end              end
1561              else              else
1562              begin              begin
1563                PlaySound(PWideChar(ScannetOkLyd));                PlaySound(PWideChar(Config.ScannetOkLyd));
1564              end;              end;
1565              btnNulstil.Visible := false;              btnNulstil.Visible := false;
1566            end            end
# Line 1597  begin Line 1569  begin
1569              MainForm.Color := TUtils.HexToTColor(Farve);              MainForm.Color := TUtils.HexToTColor(Farve);
1570              if menuStorePakker.Checked then              if menuStorePakker.Checked then
1571              begin              begin
1572                PlaySound(PWideChar(ScannetOkStorLyd));                PlaySound(PWideChar(Config.ScannetOkStorLyd));
1573              end              end
1574              else              else
1575              begin              begin
1576                PlaySound(PWideChar(ScannetOkLyd));                PlaySound(PWideChar(Config.ScannetOkLyd));
1577              end;              end;
1578              btnNulstil.Visible := false;              btnNulstil.Visible := false;
1579            end            end
# Line 1624  begin Line 1596  begin
1596              begin              begin
1597                if menuStorePakker.Checked then                if menuStorePakker.Checked then
1598                begin                begin
1599                  PlaySound(PWideChar(ScannetOkStorLyd));                  PlaySound(PWideChar(Config.ScannetOkStorLyd));
1600                end                end
1601                else                else
1602                begin                begin
1603                  PlaySound(PWideChar(ScannetOkLyd));                  PlaySound(PWideChar(Config.ScannetOkLyd));
1604                end;                end;
1605                InitLillePakke();                InitLillePakke();
1606              end;              end;
# Line 2274  begin Line 2246  begin
2246       begin       begin
2247          PrintNyLabel := false;          PrintNyLabel := false;
2248    
2249          PlaySound(PWideChar(AlarmLyd));          PlaySound(PWideChar(Config.AlarmLyd));
2250          MainForm.Color := clRed;          MainForm.Color := clRed;
2251          btnNulstil.Visible := true;          btnNulstil.Visible := true;
2252    
# Line 2294  begin Line 2266  begin
2266            logTekst := RightStr(List1Msg, Length(List1Msg)-10);            logTekst := RightStr(List1Msg, Length(List1Msg)-10);
2267            SkrivScanningLogFil(logTekst);            SkrivScanningLogFil(logTekst);
2268    
2269            if (PrinterNavn = 'Ingen') then            if (Config.PrinterNavn = 'Ingen') then
2270            begin            begin
2271               PrintNyLabel := false;               PrintNyLabel := false;
2272            end;            end;
2273    
2274            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
2275            begin            begin
2276              PlaySound(PWideChar(AlarmLyd));              PlaySound(PWideChar(Config.AlarmLyd));
2277              MainForm.Color := clRed;              MainForm.Color := clRed;
2278              btnNulstil.Visible := true;              btnNulstil.Visible := true;
2279            end;            end;
# Line 2327  begin Line 2299  begin
2299    
2300            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
2301            begin            begin
2302              PlaySound(PWideChar(AlarmLyd));              PlaySound(PWideChar(Config.AlarmLyd));
2303              MainForm.Color := clRed;              MainForm.Color := clRed;
2304              btnNulstil.Visible := true;              btnNulstil.Visible := true;
2305            end;            end;
# Line 2396  begin Line 2368  begin
2368    end    end
2369    else    else
2370    begin    begin
2371      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
2372      begin      begin
2373        logTekst := 'Printer label type ';        logTekst := 'Printer label type ';
2374        if (chkAltidPrintLabel.Checked) then        if (chkAltidPrintLabel.Checked) then
# Line 2606  begin Line 2578  begin
2578      SkrivScanningLogFil(logTekst);      SkrivScanningLogFil(logTekst);
2579    
2580    Except    Except
2581      TjekUrls := '-';   // markerer at der var fejl      Config.TjekUrls := '-';   // markerer at der var fejl
2582    
2583    end;    end;
2584  end;  end;
# Line 2626  begin Line 2598  begin
2598      inc(urlFejl);   // Optæller antal fejl      inc(urlFejl);   // Optæller antal fejl
2599      logTekst := UrlNavn + ' svarer ikke: ' + Url;      logTekst := UrlNavn + ' svarer ikke: ' + Url;
2600      ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);      ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
2601      if TjekUrls = '1' then      if Config.TjekUrls = '1' then
2602      begin      begin
2603        logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';        logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
2604      end;      end;
2605    
2606      SkrivScanningLogFil(logTekst);      SkrivScanningLogFil(logTekst);
2607    
2608      if TjekUrls = '1' then      if Config.TjekUrls = '1' then
2609      begin      begin
2610        ShowMessage(logTekst);        ShowMessage(logTekst);
2611        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 2791  var
2791    Leveringssted : String;    Leveringssted : String;
2792    orgTjekUrls : String;    orgTjekUrls : String;
2793  begin  begin
2794    orgTjekUrls := TjekUrls;    orgTjekUrls := Config.TjekUrls;
2795    if (TjekUrls = '1') or (TjekUrls = '2') then    if (Config.TjekUrls = '1') or (Config.TjekUrls = '2') then
2796    begin    begin
2797      TjekkerUrls();      TjekkerUrls();
2798    end;    end;
2799    if TjekUrls = '-' then    if Config.TjekUrls = '-' then
2800    begin    begin
2801      //ShowMessage('Der var fejl i een eller flere urls - se logvinduet');      //ShowMessage('Der var fejl i een eller flere urls - se logvinduet');
2802      RuteNummer := '';      RuteNummer := '';
# Line 2833  begin Line 2805  begin
2805      Koreliste := '';      Koreliste := '';
2806      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');
2807      // Her kommer en alarm og rød skærm      // Her kommer en alarm og rød skærm
2808      PlaySound(PWideChar(AlarmLyd));      PlaySound(PWideChar(Config.AlarmLyd));
2809      MainForm.Color := clRed;      MainForm.Color := clRed;
2810      btnNulstil.Visible := true;      btnNulstil.Visible := true;
2811    end    end
# Line 2849  begin Line 2821  begin
2821      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);
2822      FocusControl(StregkodeST);      FocusControl(StregkodeST);
2823    end;    end;
2824    TjekUrls := orgTjekUrls;    Config.TjekUrls := orgTjekUrls;
2825    
2826  end;  end;
2827    
# Line 2874  begin Line 2846  begin
2846    begin    begin
2847      ShowMessage('Der er ikke installeret en printer på denne PC.');      ShowMessage('Der er ikke installeret en printer på denne PC.');
2848    end    end
2849    else if PrinterNavn = 'Ingen' then    else if Config.PrinterNavn = 'Ingen' then
2850    begin    begin
2851      ShowMessage('Der er fravalgt printer i dette program.');      ShowMessage('Der er fravalgt printer i dette program.');
2852    end    end
# Line 2885  begin Line 2857  begin
2857      DBKbane := '999';      DBKbane := '999';
2858      Leveringssted := 'XXX';      Leveringssted := 'XXX';
2859      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);
2860      LabelPrint.CheckPrintQue('Test', PrinterNavn);      LabelPrint.CheckPrintQue('Test', Config.PrinterNavn);
2861    end;    end;
2862    FocusControl(StregkodeST);    FocusControl(StregkodeST);
2863  end;  end;
2864    
2865  procedure TMainForm.Timer1Timer(Sender: TObject);  procedure TMainForm.Timer1Timer(Sender: TObject);
2866  begin  begin
2867    if (TjekPrinter = '1') then    if (Config.TjekPrinter = '1') then
2868    begin    begin
2869      LabelPrint.CheckPrintQue('Timer', PrinterNavn);      LabelPrint.CheckPrintQue('Timer', Config.PrinterNavn);
2870    end    end
2871    else    else
2872    begin    begin
# Line 3393  end; Line 3365  end;
3365    
3366  procedure TMainForm.Testlyd1Click(Sender: TObject);  procedure TMainForm.Testlyd1Click(Sender: TObject);
3367  begin  begin
3368     if AlarmLyd  <> '' then     if Config.AlarmLyd  <> '' then
3369     begin     begin
3370       PlaySound(PWideChar(AlarmLyd));       PlaySound(PWideChar(Config.AlarmLyd));
3371     end     end
3372     else     else
3373     begin     begin
# Line 3407  procedure TMainForm.Testlyd2Click(Sender Line 3379  procedure TMainForm.Testlyd2Click(Sender
3379  begin  begin
3380    if (PakkeshopText1.Caption = 'Tjekkode') then    if (PakkeshopText1.Caption = 'Tjekkode') then
3381    begin    begin
3382       if ScannetOkTilTjekkodeLyd  <> '' then       if Config.ScannetOkTilTjekkodeLyd  <> '' then
3383       begin       begin
3384         PlaySound(PWideChar(ScannetOkTilTjekkodeLyd));         PlaySound(PWideChar(Config.ScannetOkTilTjekkodeLyd));
3385       end       end
3386       else       else
3387       begin       begin
# Line 3419  begin Line 3391  begin
3391    end;    end;
3392    
3393    if menuSmaaPakker.Checked then    if menuSmaaPakker.Checked then
3394       if ScannetOkLyd  <> '' then       if Config.ScannetOkLyd  <> '' then
3395       begin       begin
3396         PlaySound(PWideChar(ScannetOkLyd));         PlaySound(PWideChar(Config.ScannetOkLyd));
3397       end       end
3398       else       else
3399       begin       begin
3400         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);         MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK);
3401       end;       end;
3402    if menuStorePakker.Checked then    if menuStorePakker.Checked then
3403       if ScannetOkStorLyd  <> '' then       if Config.ScannetOkStorLyd  <> '' then
3404       begin       begin
3405         PlaySound(PWideChar(ScannetOkStorLyd));         PlaySound(PWideChar(Config.ScannetOkStorLyd));
3406       end       end
3407       else       else
3408       begin       begin
# Line 3531  begin Line 3503  begin
3503      // Hvis der var fejl i overførslen skal dette fejlmeldes her      // Hvis der var fejl i overførslen skal dette fejlmeldes her
3504      if status = 'Fejl' then      if status = 'Fejl' then
3505      begin   // Her skal komme en alarm og rød skærm      begin   // Her skal komme en alarm og rød skærm
3506         PlaySound(PWideChar(AlarmLyd));         PlaySound(PWideChar(Config.AlarmLyd));
3507         MainForm.Color := clRed;         MainForm.Color := clRed;
3508         RutenummerST.Caption := 'EKL overførsel';         RutenummerST.Caption := 'EKL overførsel';
3509         BoghandlerNavnST.Caption := 'Fejl:';         BoghandlerNavnST.Caption := 'Fejl:';
# Line 4614  begin Line 4586  begin
4586          ListBox1.Items.Insert(0,TimeToStr(now) + ': ' +'Fandt ingen linier til '+imorgenYmd+'.');          ListBox1.Items.Insert(0,TimeToStr(now) + ': ' +'Fandt ingen linier til '+imorgenYmd+'.');
4587          logTekst := 'Fandt ingen linier til '+imorgenYmd+'.';          logTekst := 'Fandt ingen linier til '+imorgenYmd+'.';
4588          SkrivScanningLogFil(logTekst);          SkrivScanningLogFil(logTekst);
4589          PlaySound(PWideChar(AlarmLyd));          PlaySound(PWideChar(Config.AlarmLyd));
4590        end;        end;
4591      end;      end;
4592    end    end
# Line 4623  begin Line 4595  begin
4595        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Ruteskift fil '+filnavn+' findes ikke.');        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Ruteskift fil '+filnavn+' findes ikke.');
4596        logTekst := 'Ruteskift fil '+filnavn+' findes ikke.';        logTekst := 'Ruteskift fil '+filnavn+' findes ikke.';
4597        SkrivScanningLogFil(logTekst);        SkrivScanningLogFil(logTekst);
4598        PlaySound(PWideChar(AlarmLyd));        PlaySound(PWideChar(Config.AlarmLyd));
4599    end;    end;
4600  end;  end;
4601    
# Line 4694  begin Line 4666  begin
4666          ListBox1.Items.Insert(0,TimeToStr(now) + ': ' +'Fandt ingen linier til '+imorgenYmd+'.');          ListBox1.Items.Insert(0,TimeToStr(now) + ': ' +'Fandt ingen linier til '+imorgenYmd+'.');
4667          logTekst := 'Fandt ingen linier til '+imorgenYmd+'.';          logTekst := 'Fandt ingen linier til '+imorgenYmd+'.';
4668          SkrivScanningLogFil(logTekst);          SkrivScanningLogFil(logTekst);
4669          PlaySound(PWideChar(AlarmLyd));          PlaySound(PWideChar(Config.AlarmLyd));
4670        end;        end;
4671      end;      end;
4672    end    end
# Line 4703  begin Line 4675  begin
4675        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Kontrol fil '+filnavn+' findes ikke.');        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Kontrol fil '+filnavn+' findes ikke.');
4676        logTekst := 'Kontrol fil '+filnavn+' findes ikke.';        logTekst := 'Kontrol fil '+filnavn+' findes ikke.';
4677        SkrivScanningLogFil(logTekst);        SkrivScanningLogFil(logTekst);
4678        PlaySound(PWideChar(AlarmLyd));        PlaySound(PWideChar(Config.AlarmLyd));
4679    end;    end;
4680  end;  end;
4681    
# Line 4761  procedure TMainForm.VisAlarmSkaerm(strMe Line 4733  procedure TMainForm.VisAlarmSkaerm(strMe
4733  begin  begin
4734    //ShowMessage('Ændring ikke tilladt');    //ShowMessage('Ændring ikke tilladt');
4735    // Her skal komme en 'rød skærm' alarm    // Her skal komme en 'rød skærm' alarm
4736    PlaySound(PWideChar(AlarmLyd));    PlaySound(PWideChar(Config.AlarmLyd));
4737    MainForm.Color := clRed;    MainForm.Color := clRed;
4738    
4739    
Legend:
Removed from v.3089  
changed lines
  Added in v.3090
  ViewVC Help
Powered by ViewVC 1.1.20