inv_oppurchinaudit_d.pas

一个MRPII系统源代码版本

unit Inv_OpPurchInAudit_D;

Interface

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

Type
  TFrm_Inv_OpPurchInAudit_D = Class(TFrm_Base_Detail)
    Label1: TLabel;
    Lbl_Ite_ItemCode: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    ExtEdt_RealOpQty: TExtEdit;
    ExtEdt_RealOPScrAp_Percent: TExtEdit;
    ExtEdt_ItemCode: TExtEdit;
    Label2: TLabel;
    Lbl_ItemName: TLabel;
    procedure InvItemCodeCheck(Sender: TObject);
  private
    { Private declarations }
    InvBillId{单据ID号},InvBillLineNo{行号},ItemCode{物料代码}:string;
  public
    { Public declarations }
    procedure SetFormParam(FrmParam1,FrmParam2,FrmParam3,FrmParam4,FrmParam5,FrmParam6:String);Override;
    procedure InitControls;Override;
    procedure SaveData;Override;
    procedure SetStatus(CurrentStatus:String;var EnableControls:String);Override;
  end;

var
  Frm_Inv_OpPurchInAudit_D: TFrm_Inv_OpPurchInAudit_D;

implementation

{$R *.DFM}

uses Sys_Global;

procedure TFrm_Inv_OpPurchInAudit_D.SetFormParam(FrmParam1,FrmParam2,FrmParam3,FrmParam4,FrmParam5,FrmParam6:String);
begin
  inherited;
  InvBillId:=FrmParam1;
  InvBillLineNo:=FrmParam2;
  ItemCode:=FrmParam3;
end;

procedure TFrm_Inv_OpPurchInAudit_D.InitControls;
begin//初始化控件值
  inherited;
  with AdoQry_Maintain do
  begin
    ExtEdt_ItemCode.Text:=fieldbyname('ItemCode').AsString;
    Lbl_ItemName.Caption:=fieldbyname('ItemName').AsString;
    Lbl_Ite_ItemCode.Caption:=ItemCode;
    ExtEdt_RealOpQty.Text:=fieldbyname('RealOpQtyNew').AsString;
    ExtEdt_RealOPScrAp_Percent.Text:=fieldbyname('RealOPScrAp_PercentNew').AsString;
  end;
end;

procedure TFrm_Inv_OpPurchInAudit_D.SaveData;
begin//写入缓存
  inherited;
  with AdoQry_Maintain do
  begin
    if Status='Add' then
    begin
      fieldbyname('InvBillId').AsString:=InvBillId;
      fieldbyname('InvBillLineNo').AsString:=InvBillLineNo;
      fieldbyname('ItemCode').AsString:=ExtEdt_ItemCode.Text;
      fieldbyname('ItemName').AsString:=Lbl_ItemName.Caption;
      fieldbyname('RealOpQty').AsString:='0';
      fieldbyname('RealOPScrAp_Percent').AsString:='0';
      fieldbyname('Ite_ItemCode').AsString:=ItemCode;
    end;
    fieldbyname('RealOpQtyNew').AsString:=ExtEdt_RealOpQty.Text;
    fieldbyname('RealOPScrAp_PercentNew').AsString:=ExtEdt_RealOPScrAp_Percent.Text;
    Post;
  end;
end;

procedure TFrm_Inv_OpPurchInAudit_D.InvItemCodeCheck(Sender: TObject);
var
  BookmArk:TBookmArk;
begin
  inherited;
  if ActiveControl.Name='btn_Cancel' then
    Exit;
  if Status='Add' then
  begin
    AdoQry_Maintain.DisableControls;
    BookmArk:=AdoQry_Maintain.GetBookmArk;
    AdoQry_Maintain.First;
    while not AdoQry_Maintain.Eof do
    begin
      if AdoQry_Maintain.fieldbyname('ItemCode').AsString=ExtEdt_ItemCode.Text then
      begin
        DispInfo('子物料代码重复！',1);
        TWinControl(Sender).SetFocus;
        AdoQry_Maintain.GotoBookmArk(BookmArk);
        AdoQry_Maintain.FreeBookmArk(BookmArk);
        AdoQry_Maintain.EnableControls;
        Abort;
      end;
      AdoQry_Maintain.Next;
    end;
    AdoQry_Maintain.GotoBookmArk(BookmArk);
    AdoQry_Maintain.FreeBookmArk(BookmArk);
    AdoQry_Maintain.EnableControls;
  end
end;

procedure TFrm_Inv_OpPurchInAudit_D.SetStatus(CurrentStatus:String;
  var EnableControls:String);
begin//状态设置
  if CurrentStatus='Edit' then
    EnableControls:='ExtEdt_RealOpQty,ExtEdt_RealOPScrAp_Percent,'
  else if CurrentStatus='Add' then
    EnableControls:='ExtEdt_ItemCode,ExtEdt_RealOpQty,ExtEdt_RealOPScrAp_Percent,';
  if Status='Add' then
    SetFocus_Control:=ExtEdt_ItemCode
  else
    SetFocus_Control:=ExtEdt_RealOpQty;
end;

end.