inv_whpmove_d.pas

一个MRPII系统源代码版本

unit Inv_WhPMove_D;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Entry_Detail, Db, AdODB, ExtCtrls, StdCtrls, ExtEdit;

Type
  TFrm_Inv_WhPMove_D = Class(TFrm_Base_Entry_Detail)
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Lbl_ItemName: TLabel;
    Edt_BillQty: TEdit;
    Lbl_UomName: TLabel;
    ExtEdt_ItemCode: TExtEdit;
    Label6: TLabel;
    Edt_RemArk: TEdit;
    Label7: TLabel;
    Edt_BatchNo: TEdit;
    procedure Edt_BillQtyExit(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edt_BatchNoExit(Sender: TObject);
    procedure Edt_BatchNoKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure InOutItemCodeCheck(Sender: TObject);
  private
    { Private declarations }
    LineCount:Integer;
  public
    { Public declarations }
    procedure InitControls; Override;
    procedure SaveBodyData; Override;
    procedure SetStatus(CurrentStatus:String;var EnableControls:String); Override;
  end;

var
  Frm_Inv_WhPMove_D: TFrm_Inv_WhPMove_D;

implementation

uses Sys_Global,Inv_Global;

{$R *.DFM}

{ TFrm_Inv_SaleMaterial_D }

procedure TFrm_Inv_WhPMove_D.InitControls;
begin
  inherited;
  with AdoQry_Body do
  begin
    ExtEdt_ItemCode.Text:=fieldbyname('ItemCode').AsString;
    Lbl_ItemName.Caption:=fieldbyname('ItemName').AsString;
    Lbl_UomName.Caption:=fieldbyname('UomName').AsString;
    Edt_BatchNo.Text:=fieldbyname('BatchNo').AsString;
    Edt_RemArk.Text:=fieldbyname('BillLineRemArk').AsString;
    if (Status='Add')and(AdoQry_Body.IsEmpty) then
    begin
      Edt_BillQty.Text:='0';
    end
    else
    begin
      Edt_BillQty.Text:=fieldbyname('InvBillQty').AsString;
    end;
  end;
end;

procedure TFrm_Inv_WhPMove_D.SaveBodyData;
begin
  inherited;
  with AdoQry_Body do
  begin
    fieldbyname('ItemCode').AsString:=ExtEdt_ItemCode.Text;
    fieldbyname('ItemName').AsString:=Lbl_ItemName.Caption;
    fieldbyname('UomName').AsString:=Lbl_UomName.Caption;
    fieldbyname('BatchNo').AsString:=Edt_BatchNo.Text;
    fieldbyname('InvBillQty').AsString:=Edt_BillQty.Text;
    fieldbyname('BillLineRemArk').AsString:=Edt_RemArk.Text;
    Post;
  end;
end;

procedure TFrm_Inv_WhPMove_D.SetStatus(CurrentStatus: String;
  var EnableControls: String);
begin
  inherited;
  if CurrentStatus='Add' then
  begin
    if LineCount=-1 then
    begin
      AdoQry_Tmp.Close;
      AdoQry_Tmp.SQL.Text:='Select BillLines'
        +' From BillType'
        +' Where BillTypeCode='''+Param1+'''';
      AdoQry_Tmp.Open;
      LineCount:=AdoQry_Tmp.fieldbyname('BillLines').AsInteger;
    end;
    if AdoQry_Body.RecordCount>=LineCount then
    begin
      EnableControls:='None';
      DispInfo('本单据最多只允许输入'+IntToStr(LineCount)+'条单据行',3);
    end;
  end;
end;

procedure TFrm_Inv_WhPMove_D.Edt_BillQtyExit(Sender: TObject);
var
  NeedChangePrice:Boolean;
begin
  inherited;
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  if TEdit(Sender).Text='0' then
  begin
    DispInfo(' 移动数量不允许为零！',3);
    TWinControl(Sender).SetFocus;
    Abort;
  end;
  if (not AdoQry_Body.IsEmpty)and(AdoQry_Body.fieldbyname('InvBillQty').AsFloat
    *StrToFloat(TEdit(Sender).Text)<0) then
  begin
    DispInfo('同一次移动，不能出现正负数量混合的情况!',3);
    TWinControl(Sender).SetFocus;
    Abort;
  end;
  NeedChangePrice:=NeedChangeAveragePrice(AdoQry_Tmp,FormatDateTime('yyyy.mm',
    AdoQry_Head.fieldbyname('InvBillDate').AsDateTime));
  if InvQtyCheck(NeedChangePrice,AdoQry_Body,AdoQry_Tmp,AdoQry_Head.fieldbyname('WHCode').AsString,
    AdoQry_Head.fieldbyname('WhPositionCode').AsString,ExtEdt_ItemCode.Text,
    'InvBillQty',StrToFloat(TEdit(Sender).Text),False,Status='Add')=False then
  begin
    TWinControl(Sender).SetFocus;
    Abort;
  end;
  if InvQtyCheck(NeedChangePrice,AdoQry_Body,AdoQry_Tmp,AdoQry_Head.fieldbyname('WHCode').AsString,
    AdoQry_Head.fieldbyname('OWhPositionCode').AsString,ExtEdt_ItemCode.Text,
    'InvBillQty',StrToFloat(TEdit(Sender).Text),True,Status='Add')=False then
  begin
    TWinControl(Sender).SetFocus;
    Abort;
  end;
end;

procedure TFrm_Inv_WhPMove_D.FormCreate(Sender: TObject);
begin
  inherited;
  LineCount:=-1;
  SetFocus_Control:=ExtEdt_ItemCode;
end;

procedure TFrm_Inv_WhPMove_D.Edt_BatchNoExit(Sender: TObject);
begin
  inherited;
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  if TEdit(Sender).ReadOnly=False then
  begin
    if not BatchNoCheck(AdoQry_Tmp,TEdit(Sender).Text,ExtEdt_ItemCode.Text
      ,'',AdoQry_Head.fieldbyname('InvBillDate').AsString) then
    begin
      TWinControl(Sender).SetFocus;
      Abort;
    end;
  end;
end;

procedure TFrm_Inv_WhPMove_D.Edt_BatchNoKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  inherited;
  if(Key=120)and(TEdit(Sender).ReadOnly=False)then
    TEdit(Sender).Text:=BatchHint(DBConnect,ExtEdt_ItemCode.Text
      ,'',AdoQry_Head.fieldbyname('WHCode').AsString
      ,AdoQry_Head.fieldbyname('WhPositionCode').AsString);
end;

procedure TFrm_Inv_WhPMove_D.InOutItemCodeCheck(Sender: TObject);
begin
  inherited;
  if(ActiveControl.Name='btn_Cancel')then
    Exit;
  with AdoQry_Tmp do
  begin
    Close;
    SQL.clear;
    SQL.Add('Select Uom.UomName From Item Join Uom On Item.UomCode=Uom.UomCode '+
            'Where Item.ItemCode='''+TEdit(Sender).Text+'''');
    Open;
    Lbl_UomName.Caption:=fieldbyname('UomName').AsString;
  end;
  if not BatchCtrl(AdoQry_Tmp,ExtEdt_ItemCode.Text) then
  begin
    Edt_BatchNo.Text:='';
    Edt_BatchNo.ReadOnly:=True;
  end
  else
  begin
    Edt_BatchNo.ReadOnly:=False;
  end;
end;

end.