/[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 3095 by torben, Sun Aug 21 20:51:45 2016 UTC revision 3117 by torben, Thu Sep 22 13:12:23 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 539  begin Line 541  begin
541    
542  // Sætter lige en default panel størrelse  // Sætter lige en default panel størrelse
543    MainForm.ClientWidth := 1000;    MainForm.ClientWidth := 1000;
544    MainForm.ClientHeight := 820;    MainForm.ClientHeight := 920;
545    
546    Config := TConfiguration.Create();    Config := TConfiguration.Create();
547    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 1430  begin Line 1432  begin
1432        end;        end;
1433      end;      end;
1434    
1435        // EmballageRepareret skal bare sætte reklamationkoden,
1436        // og så ellers fortsætte med scanning som normalt
1437        if (chkEmballageRepareret.Checked = True) then
1438        begin
1439          URLStr := Format(Config.UrlEmballageRepareret,[Sted,Stregkode]);
1440          WebSvar := IdHTTP1.Get(URLStr);
1441    
1442          chkEmballageRepareret.Checked := False;
1443        end;
1444    
1445        if (chkUdenforSpecifikation.Checked = True) then
1446        begin
1447          URLStr := Format(Config.URLUdenforSpecifikation,[Sted,Stregkode]);
1448          //InputBox( '1', '1', URLStr);
1449    
1450          WebSvar := IdHTTP1.Get(URLStr);
1451          //InputBox( '2', '2', WebSvar );
1452    
1453          chkUdenforSpecifikation.Checked := False;
1454          LabelPrint.PrintLabel(Stregkode);
1455    
1456          StregkodeST.Caption := '';
1457          Stregkode := '';
1458    
1459          RuteNummerST.Caption := '';
1460          BoghandlerNavnST.Caption := '';
1461          KommentarST.Caption := 'Retur til leverandør';
1462    
1463    
1464    
1465    
1466          exit;   //leave procedure
1467        end;
1468    
1469    
1470    
1471    
1472      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 2199  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
2240      begin
2241        LabelPrint.PrintLabel( Stregkode );
2242      end;
2243    
2244    
2245      exit;
2246    
2247    if menuDaoDirekte1.Checked then    if menuDaoDirekte1.Checked then
2248       RuteNummerST.Color := TUtils.HexToTColor(Farve);       RuteNummerST.Color := TUtils.HexToTColor(Farve);
2249    
# Line 2263  begin Line 2308  begin
2308            logTekst := RightStr(List1Msg, Length(List1Msg)-10);            logTekst := RightStr(List1Msg, Length(List1Msg)-10);
2309            SkrivScanningLogFil(logTekst);            SkrivScanningLogFil(logTekst);
2310    
2311            if (Config.PrinterNavn = 'Ingen') then  //          if (Config.PrinterNavn = 'Ingen') then
2312            begin  //          begin
2313               PrintNyLabel := false;  //             PrintNyLabel := false;
2314            end;  //          end;
2315    
2316            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
2317            begin            begin
# Line 2384  begin Line 2429  begin
2429        SkrivScanningLogFil(logTekst);        SkrivScanningLogFil(logTekst);
2430    
2431        LabelPrint.PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn) ;        LabelPrint.PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn) ;
2432          
2433      end;      end;
2434    end;    end;
2435    
# Line 2418  begin Line 2463  begin
2463  end;  end;
2464    
2465    
2466    procedure TMainForm.chkUdenforSpecifikationClick(Sender: TObject);
2467    begin
2468      if (chkUdenforSpecifikation.Checked = true) then
2469      begin
2470        chkEmballageRepareret.Checked := false;
2471      end;
2472    end;
2473    
2474    procedure TMainForm.chkEmballageRepareretClick(Sender: TObject);
2475    begin
2476      if (chkEmballageRepareret.Checked = true) then
2477      begin
2478        chkUdenforSpecifikation.Checked := false;
2479      end;
2480    end;
2481    
2482  procedure TMainForm.chkAltidPrintLabelClick(Sender: TObject);  procedure TMainForm.chkAltidPrintLabelClick(Sender: TObject);
2483  begin  begin
2484    if chkAltidPrintLabel.Checked then    if chkAltidPrintLabel.Checked then
# Line 2431  begin Line 2492  begin
2492    
2493  end;  end;
2494    
2495    
2496    
2497  procedure TMainForm.chkScanTjekkodeClick(Sender: TObject);  procedure TMainForm.chkScanTjekkodeClick(Sender: TObject);
2498  begin  begin
2499    if chkScanTjekkode.Checked then    if chkScanTjekkode.Checked then
# Line 2815  begin Line 2878  begin
2878      SmsKode := '999999';      SmsKode := '999999';
2879      DBKbane := '999';      DBKbane := '999';
2880      Leveringssted := 'XXX';      Leveringssted := 'XXX';
2881    
2882    
2883      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);
2884      FocusControl(StregkodeST);      FocusControl(StregkodeST);
2885    end;    end;
# Line 2832  var Line 2897  var
2897    SmsKode : String;    SmsKode : String;
2898    DBKbane : String;    DBKbane : String;
2899    Leveringssted : String;    Leveringssted : String;
2900      LabelData : TLabelData;
2901  begin  begin
2902    RuteNummer := 'Rutenr';    RuteNummer := 'Rutenr';
2903    Kommentar := '***** Kommentar *****';    Kommentar := '***** Kommentar *****';
# Line 2843  begin Line 2909  begin
2909    begin    begin
2910      ShowMessage('Der er ikke installeret en printer på denne PC.');      ShowMessage('Der er ikke installeret en printer på denne PC.');
2911    end    end
2912    else if Config.PrinterNavn = 'Ingen' then  //  else if Config.PrinterNavn = 'Ingen' then //Det giver ikke længere mening at kunne fravælge printer
2913    begin  //  begin
2914      ShowMessage('Der er fravalgt printer i dette program.');  //    ShowMessage('Der er fravalgt printer i dette program.');
2915    end  //  end
2916    else    else
2917    begin    begin
2918      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');      UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');
2919      SmsKode := '999999';  //    SmsKode := '999999';
2920      DBKbane := '999';  //    DBKbane := '999';
2921      Leveringssted := 'XXX';  //    Leveringssted := 'XXX';
2922      PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);  //    PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);
2923    
2924    
2925        LabelData := TLabelData.Create(nil);
2926        LabelData.LabelType := 'simpel';
2927        LabelData.SimpelLinie1 := '999999';
2928        LabelData.SimpelLinie2 := '999';
2929        LabelData.SimpelLinie3 := 'xxx';
2930        LabelPrint.PrintLabelData(Labeldata);
2931    
2932      LabelPrint.CheckPrintQue('Test', Config.PrinterNavn);      LabelPrint.CheckPrintQue('Test', Config.PrinterNavn);
2933    
2934        LabelData.Free();
2935    
2936    end;    end;
2937    FocusControl(StregkodeST);    FocusControl(StregkodeST);
2938  end;  end;
Legend:
Removed from v.3095  
changed lines
  Added in v.3117
  ViewVC Help
Powered by ViewVC 1.1.20