faedassetreduce.pas

详细的ERP设计资料

unit FAEdAssetReduce;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseVoucherEditA, Menus, ActnList, DB, ComCtrls, StdCtrls, Mask,
  DBCtrls, ExtCtrls, ToolWin, Grids, DBGrids, QLDBGrid, ADODB, GEdit,
  QLDBLkp, Buttons, BaseVoucherEdit;

type
  TFAEdAssetReduceForm = class(TBaseVoucherEditAForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ClientName: TADODataSet;
    EmployeeName: TADODataSet;
    GoodName: TADODataSet;
    PackUnit: TADODataSet;
    DSClientName: TDataSource;
    DSEmployeeName: TDataSource;
    ClientQLDBLookup: TQLDBLookupComboBox;
    LookupEmployee: TQLDBLookupComboBox;
    Label6: TLabel;
    TempAds: TADODataSet;
    adsMaster: TADODataSet;
    adsDetail: TADODataSet;
    adsDetailID: TAutoIncField;
    adsDetailMasterID: TIntegerField;
    adsDetailGoodsID: TIntegerField;
    adsDetailQuantity: TBCDField;
    adsDetailQuantityPcs: TBCDField;
    adsDetailPackUnitID: TIntegerField;
    adsDetailPriceBase: TBCDField;
    adsDetailAmount: TBCDField;
    adsDetailDiscount: TBCDField;
    adsDetailGoalQuantity: TBCDField;
    adsDetailSundryFee: TBCDField;
    adsDetailGoalUnitID: TIntegerField;
    adsMasterID: TAutoIncField;
    adsMasterCreateDate: TDateTimeField;
    adsMasterCreateUserID: TIntegerField;
    adsMasterRecordState: TStringField;
    adsMasterDate: TDateTimeField;
    adsMasterCode: TStringField;
    adsMasterClientID: TIntegerField;
    adsMasterBillMode: TStringField;
    adsMasterPeriodID: TIntegerField;
    adsMasterClearDate: TDateTimeField;
    adsMasterMemo: TStringField;
    adsMasterSundryFee: TBCDField;
    Label8: TLabel;
    adsMasterClientName: TStringField;
    adsDetailGoodsName: TStringField;
    adsDetailPackUnit: TStringField;
    DiscountMode: TAction;
    adsMasterEmployeeID: TIntegerField;
    adsMasterApportion: TStringField;
    adsMasterDeliver: TStringField;
    adsMasterOriginID: TIntegerField;
    adsMasterOriginTable: TStringField;
    adsMasterBillAffix: TBytesField;
    adsDetailMemo: TStringField;
    adsMasterBrief: TStringField;
    Label9: TLabel;
    DBEdit1: TDBEdit;
    Label10: TLabel;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    Label4: TLabel;
    adsDetailTaxAmount: TBCDField;
    adsDetailGoodsSpec: TStringField;
    adsGoodsSpec: TADODataSet;
    adsMasterEmployee: TStringField;
    StockQuerry: TAction;
    adsMasterWarehouseID: TIntegerField;
    adsWarehouse: TADODataSet;
    dsWarehouse: TDataSource;
    adsMasterModeDC: TIntegerField;
    adsMasterModeC: TIntegerField;
    ReduceMode: TDBComboBox;
    QLDBLookupComboBox1: TQLDBLookupComboBox;
    BitBtn1: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Open(VoucherID: Integer); override;
    procedure New; override;
  end;

var
  FAEdAssetReduceForm: TFAEdAssetReduceForm;

implementation

uses CommonDM, WSUtils, WSSecurity;
{$R *.dfm}
procedure TFAEdAssetReduceForm.New;
begin
  inherited;
  adsMaster.FieldByName('Date').AsDateTime :=date;
  adsMaster.FieldByName('Code').AsString:=GetMaxCode('Code','FAAssetReduceMaster',number);
  adsMaster.FieldByName('CreateUserID').AsInteger :=Guarder.UserID;
//  adsMaster.FieldByName('BillMode').ReadOnly :=False;
  adsMaster.FieldByName('BillMode').AsString:='资产处置';
  adsMaster.FieldByName('ModeDC').AsInteger:=1;
  adsMaster.FieldByName('ModeC').AsInteger:=1;
  adsMaster.FieldByName('OriginTable').AsString:='FAAssetReduceMaster';
  adsMaster.FieldByName('Apportion').AsString:='--';
end;

procedure TFAEdAssetReduceForm.Open(VoucherID: Integer);
begin
  inherited Open(VoucherID);
end;


procedure TFAEdAssetReduceForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  adsMaster.Close;
  adsDetail.Close;
  ClientName.Close;
  EmployeeName.Close;
  GoodName.Close;
  PackUnit.Close;
  adsWarehouse.Close;
  adsGoodsSpec.Close;
end;

procedure TFAEdAssetReduceForm.FormCreate(Sender: TObject);
var GoodsSpecStr:string;
begin
  inherited;
  VoucherTableName := 'FAAssetReduce';
  ClientName.Open;
  EmployeeName.Open;
  GoodName.Open;
  PackUnit.Open;
  adsWarehouse.Open;
  TempAds.close;
  TempAds.CommandText :='select distinct levelcode from DAAttribute'
      +' where name like'+Quotedstr('%商品%')+' and upid=-1';
  TempAds.open;
  TempAds.First;
  GoodsSpecStr :=' where (1<>1 ';
  while not TempAds.Eof do
  begin
    GoodsSpecStr :=GoodsSpecStr+' or Levelcode like '+Quotedstr('%'+
        Trim(TempAds.fieldbyname('Levelcode').AsString)+'%') ;
    TempAds.Next;
  end;
  GoodsSpecStr :=' select * from DAAttribute '+ GoodsSpecStr
      +' ) and (upid<>-1 and Recordstate<>'+Quotedstr('删除')+')';
  adsGoodsSpec.Close;
  adsGoodsSpec.CommandText :=GoodsSpecStr;
  adsGoodsSpec.Open;
  TempAds.Close;
  TempAds.CommandText :=' select Distinct Deliver from FAAssetReduceMaster';
  TempAds.Open;
  TempAds.First;
  while not TempAds.Eof do
  begin
    ReduceMode.Items.Add(TempAds.FieldByName('Deliver').AsString);
    TempAds.Next;
  end;
  if  TempAds.IsEmpty then  ReduceMode.Items.Add('资产报废');
end;

procedure TFAEdAssetReduceForm.FormActivate(Sender: TObject);
begin
  inherited;
  ClientQLDBLookup.SetFocus;
//  DBGrid.Enabled :=False;
end;

procedure TFAEdAssetReduceForm.BitBtn1Click(Sender: TObject);
var AssetID:string;
begin
  inherited;
  if adsMaster.fieldbyname('OriginID').IsNull then AssetID :='0'
     else AssetID :=adsMaster.fieldbyname('OriginID').AsString;
  TempAds.Close;
  TempAds.CommandText := ' select a.GoodsId,a.GoodsSpec,a.Quantity, '
    +' a.PackUnitID,a.Amount, b.Amount as SundryFee '
    +' from FAAssetAddDetail a     '
    +' left outer join             '
    +' (  select b.ID, a.goodsID, sum(isnull(a.Amount,0)) as  Amount '
    +' from FADepreciationDetail  a                                  '
    +' left outer join  FADepreciationMaster b on b.ID=a.MasterID    '
    +' where b.RecordState<>'+Quotedstr('删除')
    +' Group by b.ID,a.goodsID  ) b on b.ID=a.MasterID '
    +' where a.GoodsID <>0 and A.MasterID='+ AssetID;
  TempAds.Open;

  if  TempAds.IsEmpty then Exit  else TempAds.First;
  adsDetail.First;
//  adsDetail.FieldByName('GoodsID').ReadOnly :=false;
//  adsDetail.FieldByName('GoodsSpec').ReadOnly :=false;
//  adsDetail.FieldByName('Quantity').ReadOnly :=false;
//  adsDetail.FieldByName('PackUnitID').ReadOnly :=false;
//  adsDetail.FieldByName('Amount').ReadOnly :=false;
//  adsDetail.FieldByName('SundryFee').ReadOnly :=false;
//  adsDetail.FieldByName('GoalQuantity').ReadOnly :=false;
//  adsDetail.FieldByName('Memo').ReadOnly :=false;
  while not TempAds.Eof do
  begin
    if adsDetail.Eof then adsDetail.Append
    else adsDetail.Edit;
    adsDetail.FieldByName('GoodsID').AsInteger :=TempAds.FieldByName('GoodsID').AsInteger;
    adsDetail.FieldByName('GoodsSpec').AsString :=TempAds.FieldByName('GoodsSpec').AsString;
    adsDetail.FieldByName('Quantity').AsFloat :=TempAds.FieldByName('Quantity').AsFloat;
    adsDetail.FieldByName('PackUnitID').AsInteger :=TempAds.FieldByName('PackUnitID').AsInteger;
    adsDetail.FieldByName('Amount').AsFloat :=TempAds.FieldByName('Amount').AsFloat;
    adsDetail.FieldByName('SundryFee').AsFloat :=TempAds.FieldByName('SundryFee').AsFloat;
    adsDetail.FieldByName('GoalQuantity').AsFloat :=
      TempAds.FieldByName('Amount').AsFloat-TempAds.FieldByName('SundryFee').AsFloat;
    TempAds.Next;
    adsDetail.Next;
  end;
//  adsDetail.FieldByName('GoodsID').ReadOnly :=True;
//  adsDetail.FieldByName('GoodsSpec').ReadOnly :=True;
//  adsDetail.FieldByName('Quantity').ReadOnly :=True;
//  adsDetail.FieldByName('PackUnitID').ReadOnly :=True;
//  adsDetail.FieldByName('Amount').ReadOnly :=True;
//  adsDetail.FieldByName('SundryFee').ReadOnly :=True;
//  adsDetail.FieldByName('GoalQuantity').ReadOnly :=True;
//  adsDetail.FieldByName('Memo').ReadOnly :=True;
end;

end.