unit BoxIncome;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, NEOFORM, ExtCtrls, ToolWin, ComCtrls, StdCtrls, Buttons, Mask,
  DBCtrls, RpBase, RpSystem, RpDefine, RpRave,RpCon, RpConDS, rvclass, rvcsstd, RvCsBars;

type
  TFrmBoxIncome = class(TGBKPForm)
    GroupBox1: TGroupBox;
    MemoBarcodeS: TMemo;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    EdtBarCodeEnter: TEdit;
    LabelMessage: TLabel;
    RvProjectShipLabel: TRvProject;
    RvSystemShipLabel: TRvSystem;
    RvDataSetConnectionShipLabel: TRvDataSetConnection;
    procedure EdtBarCodeEnterKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure MemoBarcodeSDblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmBoxIncome: TFrmBoxIncome;

implementation

uses StockDataModel, PublicParameter;

{$R *.dfm}

procedure TFrmBoxIncome.EdtBarCodeEnterKeyPress(Sender: TObject;
  var Key: Char);
 var BarCodeTemp: string;
 MyPage:   TRavePage;
 MyText:   TRaveText;
 I2of5BarCode3:TRaveI2of5BarCode;
begin
  inherited;

  if key = #13 then //條碼完畢
  begin
    BarCodeTemp :=copy(trim(EdtBarCodeEnter.Text),2,15) ;//掃描時前面多一個0
    if BarCodeTemp = '' then
    begin
      LabelMessage.Caption := '掃描失敗,請重新掃描!';
      exit;
    end;
    EdtBarCodeEnter.text:='';
    if MemoBarcodeS.Lines.IndexOf( BarCodeTemp)>=0 then
    begin
      LabelMessage.Caption := '此條碼剛掃描過,請重新掃描!';
      exit;
    end;


    if not StockDM.QBarCodefind.Locate('BarCode', BarCodeTemp, []) then
    begin //定位
      LabelMessage.Caption := '此條碼機器還未生產,請重新掃描!';
      exit;
    end;
     MemoBarcodeS.Lines.Add(BarCodeTemp);
     //自動 打印
       RvProjectShipLabel.Open;
       With   RvProjectShipLabel.ProjMan do
           begin
             
              MyPage :=  FindRaveComponent('ReportMain.Page1',nil) as TRavePage;
              I2of5BarCode3 := FindRaveComponent('I2of5BarCodeBoxIncomBarcode',MyPage) as TRaveI2of5BarCode;
              I2of5BarCode3.Text:=BarCodeTemp;
           end;
       RvSystemShipLabel.DefaultDest:=rdPrinter;
      // RvSystemShipLabel.SystemSetups.:=rdPrinter;
  try                              //Canvas does not allow drawing //因為系統沒有打印機
    RvProjectShipLabel.Execute;   //是因為TCanvas的FHandle還沒有分配的時候就要求執行必須有FHandle才能進行的操作引起的，
  except
    ShowMessage('打印失敗請重新打印!');
    Abort;
  end;
   EdtBarCodeEnter.text:='';
  end;

  EdtBarCodeEnter.SetFocus;
end;

procedure TFrmBoxIncome.FormCreate(Sender: TObject);
begin
  inherited;
 //RvProjectShipLabel.ProjectFile := CurPath + '\條碼\BoxIncomeBarCode.rav';
 if StockDM.QBarCodefind.Active=false then StockDM.QBarCodefind.Active:=true;
 
end;

procedure TFrmBoxIncome.MemoBarcodeSDblClick(Sender: TObject);
begin
  inherited;
  StockDM.QBarCodefind.Locate('BarCode', MemoBarcodeS.SelText, []);

end;

procedure TFrmBoxIncome.FormShow(Sender: TObject);
begin
  inherited;
EdtBarCodeEnter.SetFocus;
end;

end.