/[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 3097 by torben, Sun Aug 21 22:34:01 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 1443  begin Line 1445  begin
1445      if (chkUdenforSpecifikation.Checked = True) then      if (chkUdenforSpecifikation.Checked = True) then
1446      begin      begin
1447        URLStr := Format(Config.URLUdenforSpecifikation,[Sted,Stregkode]);        URLStr := Format(Config.URLUdenforSpecifikation,[Sted,Stregkode]);
1448        //ShowMessage( URLStr);        //InputBox( '1', '1', URLStr);
1449    
1450        WebSvar := IdHTTP1.Get(Config.URLUdenforSpecifikation);        WebSvar := IdHTTP1.Get(URLStr);
1451        //ShowMessage( WebSvar );        //InputBox( '2', '2', WebSvar );
1452    
1453        chkUdenforSpecifikation.Checked := False;        chkUdenforSpecifikation.Checked := False;
1454        LabelPrint.PrintLabel(Stregkode);        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        exit;   //leave procedure
1467      end;      end;
1468    
# Line 2223  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 2287  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 2408  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 2442  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 2455  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 2839  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 2856  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 2867  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.3097  
changed lines
  Added in v.3117
  ViewVC Help
Powered by ViewVC 1.1.20