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,
  DB, ADODB;

type
  TFrmBoxIncome = class(TGBKPForm)
    GroupBox1: TGroupBox;
    MemoBarcodeS: TMemo;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    DBEditBarCode: TDBEdit;
    Label2: TLabel;
    DBEditOrderID: TDBEdit;
    Label3: TLabel;
    DBEditDevName: TDBEdit;
    Label4: TLabel;
    DBEditCustomerName: TDBEdit;
    Label5: TLabel;
    DBEditpostdate: TDBEdit;
    EdtBarCodeEnter: TEdit;
    LabelMessage: TLabel;
    RvProjectShipLabel: TRvProject;
    RvSystemShipLabel: TRvSystem;
    RvDataSetConnectionPack: TRvDataSetConnection;
    Label6: TLabel;
    DBMemoMemo: TDBMemo;
    Label7: TLabel;
    Label8: TLabel;
    LabelThisCount: TLabel;
    LabelTodayCount: TLabel;
    QToday: TADOQuery;
    ChkPreview: TCheckBox;
    procedure EdtBarCodeEnterKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure MemoBarcodeSDblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    OrderIDstr: string;
    DevNamestr: string;
    CustomerNamestr: string;
    postdatestr: string;
    Memostr: string;
    { Private declarations }
  public
    function MessageAndSaveBarcodeInfo(infoType: string; OldInfo, newInfo: string): boolean;
    function ContrastBarcodeInfo: boolean;
    procedure SaveBarcodeInfo;
    { Public declarations }
  end;

var
  FrmBoxIncome: TFrmBoxIncome;

implementation

uses StockDataModel, PublicParameter;

{$R *.dfm}

procedure TFrmBoxIncome.EdtBarCodeEnterKeyPress(Sender: TObject;
  var Key: Char);
var BarCodeTemp: string;
  nums: string;
  MyPage: TRavePage;
  MyText: TRaveText;
  I2of5BarCodeBoxPackBarcode: TRaveI2of5BarCode;
  TextDevHardOptionS: TRavetext;
begin
  inherited;
  LabelMessage.Caption := '';
  LabelMessage.Refresh;
  if key = #13 then //條碼完畢
  begin
    BarCodeTemp := copy(trim(EdtBarCodeEnter.Text), length(trim(EdtBarCodeEnter.Text)) - 15 + 1, 15); //掃描時前面多一個0????
    if BarCodeTemp = '' then
    begin
      LabelMessage.Caption := '掃描失敗,請重新掃描!';
      exit;
    end;

    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;

    if StockDM.QBarCodefind.FieldValues['IsPack'] then
    begin
      LabelMessage.Caption := '此機器已經包裝，請重新掃描!';
      exit;
    end;
    //進行其他檢查
    if MemoBarcodeS.Lines.Count = 0 then
    begin //是第一個時記下
      if Application.MessageBox(pchar('請確定包裝機器是否正確?'), pchar('提示'), MB_YESNO) = IDYES then
      begin
     //記下原來所有值
        SaveBarcodeInfo;
      end;
    end else
    begin
      if ContrastBarcodeInfo then
        SaveBarcodeInfo //有改變并認為是正確的就記下
      else exit; //是錯的就退出
    end;
    nums := StockDM.QBarCodefind.Fieldbyname('devHardOptions').AsString;

    MemoBarcodeS.Lines.Add(BarCodeTemp);
     //自動 打印
    RvProjectShipLabel.ProjectFile := CurPath + '\條碼\BoxPackBarCode.rav';
    RvProjectShipLabel.Open;
    with RvProjectShipLabel.ProjMan do
    begin

      MyPage := FindRaveComponent('ReportMain.Page1', nil) as TRavePage;
      I2of5BarCodeBoxPackBarcode := FindRaveComponent('I2of5BarCodeBoxPackBarcode', MyPage) as TRaveI2of5BarCode;
      I2of5BarCodeBoxPackBarcode.Text := BarCodeTemp; //條碼

      //I2of5BarCode3.Reflect;
      TextDevHardOptionS := FindRaveComponent('TextDevHardOptionS', MyPage) as TRaveText;
      TextDevHardOptionS.Text := nums; //條碼

    end;
    if ChkPreview.Checked then RvSystemShipLabel.DefaultDest := rdPreview
    else RvSystemShipLabel.DefaultDest := rdPrinter;

     //RvSystemShipLabel.SystemSetups:=rdPrinter;
    try //Canvas does not allow drawing //因為系統沒有打印機
      RvProjectShipLabel.Execute; //是因為TCanvas的FHandle還沒有分配的時候就要求執行必須有FHandle才能進行的操作引起的，
    except
      ShowMessage('打印失敗請重新打印!');
      Abort;
    end;
    StockDM.QBarCodefind.Edit; //已經定位
    StockDM.QBarCodefind.FieldValues['IsPack'] := true;
    StockDM.QBarCodefind.FieldValues['PackDate'] := date;
    StockDM.QBarCodefind.FieldValues['PackTime'] := time;
    StockDM.QBarCodefind.Post;
    with QToday do
    begin
      close;
      parameters.ParamByName('PackDate').Value := date;
      open;
      labeltodaycount.Caption := inttostr(RecordCount);
    end;


    labelThiscount.Caption := inttostr(MemoBarcodeS.Lines.Count);

    EdtBarCodeEnter.text := '';
  end;
  EdtBarCodeEnter.SetFocus;
end;
//判斷值是否改變

function TFrmBoxIncome.ContrastBarcodeInfo: boolean;
begin
  Result := true;
  if OrderIDstr <> DBEditOrderID.Text then //訂單號不同
  begin
    if MessageAndSaveBarcodeInfo('訂單號', OrderIDstr, DBEditOrderID.Text) then

      Result := true else Result := false;
    exit;

  end
  else if CustomerNamestr <> DBEditCustomerName.Text then //客戶名稱
  begin
    if MessageAndSaveBarcodeInfo('客戶名稱', CustomerNamestr, DBEditCustomerName.Text) then

      Result := true else Result := false;
    exit;

  end
  else if DevNamestr <> DBEditDevName.Text then //機型
  begin
    if MessageAndSaveBarcodeInfo('機型', DevNamestr, DBEditDevName.Text) then

      Result := true else Result := false;
    exit;

  end else if postdatestr <> DBEditpostdate.Text then //生產日期
  begin
    if MessageAndSaveBarcodeInfo('生產日期', postdatestr, DBEditpostdate.Text) then

      Result := true else Result := false;
    exit;

  end
  else if Memostr <> DBMemoMemo.Text then //配置說明
  begin
    if MessageAndSaveBarcodeInfo('配置說明', Memostr, DBMemoMemo.Text) then

      Result := true else Result := false;
    exit;

  end
end;

function TFrmBoxIncome.MessageAndSaveBarcodeInfo(infoType: string; OldInfo, newInfo: string): boolean;
begin
  Result := false;
  if Application.MessageBox(pchar(infoType + '將由' + #13 + OldInfo + #13 + '改變為' + #13 + newInfo + #13 + '請確定包裝機器正確?'), pchar('提示'), MB_YESNO) = IDYES then
  begin
    Result := true;
//記下原來所有值
    SaveBarcodeInfo;
  end;
end;
//記下原來所有值

procedure TFrmBoxIncome.SaveBarcodeInfo;
begin
  OrderIDstr := DBEditOrderID.Text;
  DevNamestr := DBEditDevName.Text;
  CustomerNamestr := DBEditCustomerName.Text;
  postdatestr := DBEditpostdate.Text;
  Memostr := DBMemoMemo.Text;
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;
  ActiveControl := EdtBarCodeEnter;
end;

procedure TFrmBoxIncome.BitBtn1Click(Sender: TObject);
begin
  inherited;
  close;
end;

end.