inv_opadjustbill_d.pas

一个MRPII系统源代码版本

unit Inv_OpAdjustBill_D;

Interface

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

Type
  TFrm_Inv_OpAdjustBill_D = Class(TFrm_Base_Entry_Detail)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ledt_ItemCode: TLinkEdit;
    edt_ItemName: TEdit;
    edt_tzqty: TEdit;
    edt_tzAmount: TEdit;
    Label4: TLabel;
    Label7: TLabel;
    lbl_Uom: TLabel;
    Label8: TLabel;
    edt_memo: TEdit;
    procedure ledt_ItemCodeExit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitControls; Override;
    procedure SaveBodyData; Override;
  end;

var
  Frm_Inv_OpAdjustBill_D: TFrm_Inv_OpAdjustBill_D;

implementation
uses Sys_Global;
{$R *.DFM}

procedure TFrm_Inv_OpAdjustBill_D.InitControls;
begin
  inherited;
  with AdoQry_Body do
  begin
    lEdt_ItemCode.Text:=fieldbyname('ItemCode').AsString;
    edt_ItemName.text:=fieldbyname('ItemName').AsString;
    edt_tzqty.Text:=fieldbyname('opBillqty').asstring;
    edt_tzAmount.Text:=fieldbyname('opBillnotaxAmount').AsString;
    Lbl_Uom.Caption:=fieldbyname('UomName').AsString;
    Edt_memo.Text:=fieldbyname('BillLineRemArk').AsString;
  end;
  edt_ItemName.Enabled:=False;
end;



procedure TFrm_Inv_OpAdjustBill_D.ledt_ItemCodeExit(Sender: TObject);
begin
  inherited;
  if ledt_ItemCode.Text<>'' then
  begin
    with AdoQry_Tmp do
    begin
      Close;
      sql.text:='select i.ItemName,Uom.UomName from Item i '+
                'left join Uom on Uom.UomCode=i.UomCode '+
                ' where i.ItemCode='+QuotedStr(ledt_ItemCode.Text);
      open;
      if not eof then
      begin
         lbl_Uom.Caption:=fieldbyname('UomName').AsString;
         edt_ItemName.Text:=fieldbyname('ItemName').AsString;
      end
      else
      begin
          showmessage('物料代码有误，请重新输入！');
          ledt_ItemCode.SetFocus;
          exit;
      end;
    end;
  end;
end;

procedure TFrm_Inv_OpAdjustBill_D.SaveBodyData;
begin
   inherited;
   if  ledt_ItemCode.text='' then
   begin
     DispInfo('物料代码不可为空！',1);
     ledt_ItemCode.SetFocus;
     Abort;
   end;
   with   AdoQry_Body do
   begin
     fieldbyname('ItemCode').asstring:=ledt_ItemCode.text;
     fieldbyname('ItemName').asstring:=edt_ItemName.text;
     fieldbyname('UomName').asstring:=lbl_Uom.Caption;
     if Trim(edt_tzqty.Text)='' then edt_tzqty.Text:='0';
     fieldbyname('opBillqty').AsString:=edt_tzqty.Text;
     if Trim(edt_tzAmount.Text)='' then edt_tzAmount.Text:='0';
     fieldbyname('opBillnotaxAmount').AsString:=edt_tzAmount.Text;
     fieldbyname('BilllineremArk').asstring:=edt_memo.Text;
     post;
   end;

end;

end.