/[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 3108 by torben, Mon Aug 29 14:03:14 2016 UTC revision 3123 by torben, Tue Oct 18 13:57:46 2016 UTC
# Line 203  type Line 203  type
203    procedure SetPrinterstatusText( txt: string; alert: boolean);    procedure SetPrinterstatusText( txt: string; alert: boolean);
204    function GetFormObject() : TForm;    function GetFormObject() : TForm;
205    function GetXMLDocument() : TXMLDocument;    function GetXMLDocument() : TXMLDocument;
206        procedure chkEmballageRepareretClick(Sender: TObject);
207        procedure chkUdenforSpecifikationClick(Sender: TObject);
208    
209    
210    
# Line 2234  pakkeForkertSted : Integer; Line 2236  pakkeForkertSted : Integer;
2236    kontrolKoreliste : string;    kontrolKoreliste : string;
2237    nytRuteNummer, nyFarve : String;    nytRuteNummer, nyFarve : String;
2238  begin  begin
2239    if (PrintNyLabel = True OR chkAltidPrintLabel.Checked = True) then  //  if (PrintNyLabel = True OR chkAltidPrintLabel.Checked = True) then
2240    begin  //  begin
2241      LabelPrint.PrintLabel( Stregkode );  //    LabelPrint.PrintLabel( Stregkode );
2242    end;  //  end;
2243    //
2244    //  exit;
   exit;  
2245    
2246    if menuDaoDirekte1.Checked then    if menuDaoDirekte1.Checked then
2247       RuteNummerST.Color := TUtils.HexToTColor(Farve);       RuteNummerST.Color := TUtils.HexToTColor(Farve);
# Line 2361  begin Line 2362  begin
2362               if PrintNyLabel or (RuteNummer = 'Rutenr') then               if PrintNyLabel or (RuteNummer = 'Rutenr') then
2363  // 20150304: slut  // 20150304: slut
2364                begin                begin
2365                  LabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel, BoghandlerNummer);                  //LabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel, BoghandlerNummer);
2366                    LabelPrint.PrintLabel( Stregkode );
2367                end;                end;
2368              end;              end;
2369        01 :  begin;        01 :  begin;
# Line 2369  begin Line 2371  begin
2371                    // Ovenstående test er lidt speciel fordi der i programmet nogle steder er byttet rundt på rute og køreliste                    // Ovenstående test er lidt speciel fordi der i programmet nogle steder er byttet rundt på rute og køreliste
2372                    // Meningen er at der kun skal printes hvis der er forskel i kørelisterne eller ruterne - eller vi kommer fra test funktionen (Rutenr = 'Rutenr')                    // Meningen er at der kun skal printes hvis der er forskel i kørelisterne eller ruterne - eller vi kommer fra test funktionen (Rutenr = 'Rutenr')
2373                begin                begin
2374                  LabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel, BoghandlerNummer);                  //LabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel, BoghandlerNummer);
2375                    LabelPrint.PrintLabel( Stregkode );
2376                end;                end;
2377              end;              end;
2378        02 :  begin;        02 :  begin;
2379                if PrintNyLabel or (RuteNummer = 'Rutenr') then   // Hvis RuteNummer = 'Rutenr' er vi igang med en printer test                if PrintNyLabel or (RuteNummer = 'Rutenr') then   // Hvis RuteNummer = 'Rutenr' er vi igang med en printer test
2380                begin                begin
2381                  LabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel, BoghandlerNummer);                  //LabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel, BoghandlerNummer);
2382                    LabelPrint.PrintLabel( Stregkode );
2383                end;                end;
2384              end;              end;
2385        03 :  begin;        03 :  begin;
# Line 2383  begin Line 2387  begin
2387                    // Ovenstående test er lidt speciel fordi der i programmet nogle steder er byttet rundt på rute og køreliste                    // Ovenstående test er lidt speciel fordi der i programmet nogle steder er byttet rundt på rute og køreliste
2388                    // Meningen er at der kun skal printes hvis der er forskel i kørelisterne eller ruterne - eller vi kommer fra test funktionen (Rutenr = 'Rutenr')                    // Meningen er at der kun skal printes hvis der er forskel i kørelisterne eller ruterne - eller vi kommer fra test funktionen (Rutenr = 'Rutenr')
2389               begin               begin
2390                  LabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel, BoghandlerNummer);                  //LabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel, BoghandlerNummer);
2391                    LabelPrint.PrintLabel( Stregkode );
2392               end;               end;
2393              end;              end;
2394        04 :  begin;        04 :  begin;
2395                if PrintNyLabel or (RuteNummer = 'Rutenr') then   // Hvis RuteNummer = 'Rutenr' er vi igang med en printer test                if PrintNyLabel or (RuteNummer = 'Rutenr') then   // Hvis RuteNummer = 'Rutenr' er vi igang med en printer test
2396                begin                begin
2397                  LabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel, BoghandlerNummer);                  //LabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, PrintNyLabel, BoghandlerNummer);
2398                    LabelPrint.PrintLabel( Stregkode );
2399                end;                end;
2400              end;              end;
2401        else        else
# Line 2426  begin Line 2432  begin
2432        logTekst := logTekst + ' for '+BoghandlerNavn;        logTekst := logTekst + ' for '+BoghandlerNavn;
2433        SkrivScanningLogFil(logTekst);        SkrivScanningLogFil(logTekst);
2434    
2435        LabelPrint.PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn) ;        //LabelPrint.PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn) ;
2436          LabelPrint.PrintLabel( Stregkode );
2437    
2438      end;      end;
2439    end;    end;
# Line 2461  begin Line 2468  begin
2468  end;  end;
2469    
2470    
2471    procedure TMainForm.chkUdenforSpecifikationClick(Sender: TObject);
2472    begin
2473      if (chkUdenforSpecifikation.Checked = true) then
2474      begin
2475        chkEmballageRepareret.Checked := false;
2476      end;
2477    end;
2478    
2479    procedure TMainForm.chkEmballageRepareretClick(Sender: TObject);
2480    begin
2481      if (chkEmballageRepareret.Checked = true) then
2482      begin
2483        chkUdenforSpecifikation.Checked := false;
2484      end;
2485    end;
2486    
2487  procedure TMainForm.chkAltidPrintLabelClick(Sender: TObject);  procedure TMainForm.chkAltidPrintLabelClick(Sender: TObject);
2488  begin  begin
2489    if chkAltidPrintLabel.Checked then    if chkAltidPrintLabel.Checked then
# Line 2474  begin Line 2497  begin
2497    
2498  end;  end;
2499    
2500    
2501    
2502  procedure TMainForm.chkScanTjekkodeClick(Sender: TObject);  procedure TMainForm.chkScanTjekkodeClick(Sender: TObject);
2503  begin  begin
2504    if chkScanTjekkode.Checked then    if chkScanTjekkode.Checked then
# Line 4266  var Line 4291  var
4291        logTekst := logTekst + '.';        logTekst := logTekst + '.';
4292    
4293        SkrivScanningLogFil(logTekst);        SkrivScanningLogFil(logTekst);
4294          time.stop('Antal Linier2');//DEBUG
4295    
4296    
4297        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin        for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin
# Line 4326  var Line 4352  var
4352              if antalFelterFundet = antalLiniefelter then              if antalFelterFundet = antalLiniefelter then
4353              begin              begin
4354                if (ScanningType = '1') then                if (ScanningType = '1') then
4355                  ListBox2.Items.Add(pakketype+'; '+stregkode+'; '+modtagernavn+'; '+modtageradresse+'; '+kommentar+'; '+tjekkodestatus)                  //ListBox2.Items.Add(pakketype+'; '+stregkode+'; '+modtagernavn+'; '+modtageradresse+'; '+kommentar+'; '+tjekkodestatus)
4356                else if (ScanningType = '4') then                else if (ScanningType = '4') then
4357                  ListBox2.Items.Add(pakketype+'; '+stregkode+'; '+modtagernavn+'; '+modtageradresse+'; '+kommentar)                  //ListBox2.Items.Add(pakketype+'; '+stregkode+'; '+modtagernavn+'; '+modtageradresse+'; '+kommentar)
4358                else if (ScanningType = '5') then                else if (ScanningType = '5') then
4359                  ListBox2.Items.Add(stregkode+'; '+modtagernavn+'; '+modtageradresse+'; '+kommentar+'; '+tjekkodestatus)                  //ListBox2.Items.Add(stregkode+'; '+modtagernavn+'; '+modtageradresse+'; '+kommentar+'; '+tjekkodestatus)
4360                else                else
4361                  ListBox2.Items.Add(stregkode+'; '+modtagernavn+'; '+modtageradresse+'; '+kommentar);                  //ListBox2.Items.Add(stregkode+'; '+modtagernavn+'; '+modtageradresse+'; '+kommentar);
4362                antalFelterFundet := 0;                antalFelterFundet := 0;
4363                tjekkodestatus := '';                tjekkodestatus := '';
4364              end;              end;
Legend:
Removed from v.3108  
changed lines
  Added in v.3123
  ViewVC Help
Powered by ViewVC 1.1.20