📄 sledreturn.pas

📁 详细的ERP设计资料
💻 PAS
字号:
unit SLEdReturn;

interface

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

type
  TSLReturnEditForm = class(TBaseVoucherEditForm)
    Label1: TLabel;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    DBCheckBox3: TDBCheckBox;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    Label5: TLabel;
    DBCheckBox4: TDBCheckBox;
    DBLookupComboBox1: TDBLookupComboBox;
    DBComboBox1: TDBComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    adsSalesMaster: TADODataSet;
    adsSalesDetail: TADODataSet;
    adsSalesDetailID: TAutoIncField;
    adsSalesDetailMasterID: TIntegerField;
    adsSalesDetailGoodsID: TIntegerField;
    adsSalesDetailQuantity: TBCDField;
    adsSalesDetailPackUnitID: TIntegerField;
    adsSalesDetailPriceBase: TBCDField;
    adsSalesDetailAmount: TBCDField;
    adsSalesDetailDiscountRate: TBCDField;
    adsSalesDetailDiscount: TBCDField;
    adsSalesDetailNetAmount: TBCDField;
    adsSalesDetailTexrate: TBCDField;
    adsSalesDetailTaxAmount: TBCDField;
    adsSalesDetailSalesMode: TStringField;
    adsSalesDetailGoalQuantity: TBCDField;
    adsSalesMasterID: TAutoIncField;
    adsSalesMasterCreateDate: TDateTimeField;
    adsSalesMasterCreateUserID: TIntegerField;
    adsSalesMasterRecordState: TStringField;
    adsSalesMasterDate: TDateTimeField;
    adsSalesMasterCode: TStringField;
    adsSalesMasterClientID: TIntegerField;
    adsSalesMasterEmployeID: TIntegerField;
    adsSalesMasterIsDiscount: TStringField;
    adsSalesMasterDiscountRate: TBCDField;
    adsSalesMasterIsTax: TStringField;
    adsSalesMasterTaxRate: TBCDField;
    adsSalesMasterIsDeliver: TStringField;
    adsSalesMasterSaleMode: TStringField;
    adsSalesMasterOriginBillID: TIntegerField;
    adsSalesMasterOriginBillTypeID: TIntegerField;
    adsSalesMasterPeriodID: TIntegerField;
    adsSalesMasterClearDate: TDateTimeField;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    ADOTable2: TADOTable;
    ADOTable3: TADOTable;
    ADOTable4: TADOTable;
    adsSalesDetailStringField1: TStringField;
    adsSalesDetailSaleDangWei: TStringField;
    adsSalesMasterMemo: TStringField;
    Label6: TLabel;
    DBEdit1: TDBEdit;
    ADOTable3ID: TAutoIncField;
    ADOTable3CreateDate: TDateTimeField;
    ADOTable3CreateUserID: TIntegerField;
    ADOTable3RecordState: TStringField;
    ADOTable3Name: TStringField;
    ADOTable3Code: TStringField;
    ADOTable3Spec: TStringField;
    ADOTable3BarCode: TStringField;
    ADOTable3GoodsClassID: TIntegerField;
    ADOTable3UnitID: TIntegerField;
    ADOTable3StockMax: TBCDField;
    ADOTable3StockMin: TBCDField;
    ADOTable3PricePurchase: TBCDField;
    ADOTable3PriceSales: TBCDField;
    ADOTable4ID: TAutoIncField;
    ADOTable4Name: TStringField;
    ADOTable4ExchangeRate: TStringField;
    ADOTable4GoalUnitID: TIntegerField;
    ADOTable4IsGoalUnit: TBooleanField;
    ADOTable4RecordState: TStringField;
    DataSource3: TDataSource;
    ADOTable3GoodsPictrue2: TBlobField;
    adsSalesMasterSundryFee: TBCDField;
    adsSalesMasterIsApportion: TStringField;
    Label7: TLabel;
    DBEdit4: TDBEdit;
    N7: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    DBComboBox2: TDBComboBox;
    adsSalesDetailSundryFee: TBCDField;
    procedure FormCreate(Sender: TObject);
    procedure ImportActionExecute(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure adsSalesMasterBeforePost(DataSet: TDataSet);
    procedure adsSalesDetailBeforePost(DataSet: TDataSet);
    procedure ADOTable3FilterRecord(DataSet: TDataSet;
      var Accept: Boolean);
    procedure adsSalesMasterFilterRecord(DataSet: TDataSet;
      var Accept: Boolean);
    procedure adsSalesMasterAfterInsert(DataSet: TDataSet);
    procedure adsSalesDetailAfterInsert(DataSet: TDataSet);
    procedure FormShow(Sender: TObject);
    procedure adsSalesDetailQuantityChange(Sender: TField);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure adsSalesDetailGoodsIDChange(Sender: TField);
  private
    { Private declarations }
    procedure SetColumnAttributes;
  public
    { Public declarations }
    procedure Open(VoucherID: Integer); override;
    procedure New; override;
  end;

var
  SLReturnEditForm: TSLReturnEditForm;

implementation

uses WSUtils, PkVoucher, CommonDM, WSSecurity, SLSaleSearch;

{$R *.dfm}

procedure TSLReturnEditForm.FormCreate(Sender: TObject);
//var
//tempquery:tadoquery;
begin
  adotable1.Open;
  adotable2.Open;
  adotable3.Open;
  adotable4.Open;
  inherited;
  VoucherTableName := 'SLSale';
   dbcombobox1.Items.Clear;
   dbcombobox1.Items.Add('销售退货');
 // tempquery:=tadoquery.Create(self);
 // try
//    tempquery.Connection:=adsSalesMaster.Connection;
  //  tempquery.Close;
 //   tempquery.SQL.Clear;
  //  tempquery.SQL.Add('select DISTINCT Name From DABillType '
               //        +' Where BillFlagSL= 1');
  //  tempquery.Open;
 //   tempquery.First;
 //   dbcombobox1.Items.Clear;
 //   dbcombobox1.Items.Add(tempquery.fieldbyname('Name').asstring);
 //   while not tempquery.Eof do
 //   begin
 //    tempquery.Next;
 //     dbcombobox1.Items.Add(tempquery.fieldbyname('Name').asstring);
//     end;
 //  finally
 //   tempquery.Close;
 //    tempquery.Free;
 // end;
end;

procedure TSLReturnEditForm.New;
begin
  inherited;
  SetColumnAttributes;
end;

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

procedure TSLReturnEditForm.SetColumnAttributes;
//var
  //Column: TColumn;
begin
 { with adotable4 do
  begin
    Open;
    Column := ColumnByFieldName(DBGrid, 'GoodsID');
    First;
    while not Eof do
    begin
      Column.PickList.Add(FieldByName('Name').AsString);
      Next;
    end;
  end; }
 { with CommonData.adsBaseUnits do
  begin
    Open;
    Column := ColumnByFieldName(DBGrid, 'Units');
    First;
    while not Eof do
    begin
      Column.PickList.Add(FieldByName('fUnitName').AsString);
      Next;
    end;
  end;}
end;

procedure TSLReturnEditForm.ImportActionExecute(Sender: TObject);
begin
  inherited;
  Application.CreateForm(TVoucherPickForm, VoucherPickForm);
  VoucherPickForm.ShowModal ;
end;

procedure TSLReturnEditForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  adotable1.close;
  adotable2.close;
  adotable3.close;
  adotable4.close;

end;

procedure TSLReturnEditForm.adsSalesMasterBeforePost(DataSet: TDataSet);
begin
  inherited;
if dataset.State=dsinsert then
dataset.FieldByName('CreateUserID').Value:=Guarder.UserID;
end;

procedure TSLReturnEditForm.adsSalesDetailBeforePost(DataSet: TDataSet);
begin
  inherited;
//dataset.FieldByName('MasterID').Value:=adsSalesMaster.fieldbyname('ID').Value;
dataset.FieldByName('SalesMode').Value:= adsSalesMaster.FieldByName('SaleMode').Value;


end;

procedure TSLReturnEditForm.ADOTable3FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  inherited;
accept:=not (dataset.FieldByName('RecordState').AsString='删除')  ;
end;

procedure TSLReturnEditForm.adsSalesMasterFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  inherited;
//accept:=(not (DataSet.FieldByName('RecordState').AsString='删除'));// and  ((adsSalesMaster.FieldByName('SaleMode').AsString)='退货');

end;

procedure TSLReturnEditForm.adsSalesMasterAfterInsert(DataSet: TDataSet);
begin
  inherited;
dataset.FieldByName('Date').Value:=date;
dataset.FieldByName('IsDeliver').Value:=false;

dataset.FieldByName('IsDiscount').Value:=false;
dataset.FieldByName('IsTax').Value:=false;
dataset.FieldByName('Code').AsString:=GetMaxCode('Code','STHouseOutMaster',Ascii);

end;

procedure TSLReturnEditForm.adsSalesDetailAfterInsert(DataSet: TDataSet);
begin
  inherited;
   adsSalesDetail.FieldByName('DiscountRate').Value:=adsSalesMaster.FieldByName('DiscountRate').Value;


  adsSalesDetail.FieldByName('Texrate').Value:=adsSalesMaster.FieldByName('TaxRate').Value;



end;

procedure TSLReturnEditForm.FormShow(Sender: TObject);
begin
  inherited;
dblookupcombobox1.SetFocus;

end;

procedure TSLReturnEditForm.adsSalesDetailQuantityChange(Sender: TField);
begin
  inherited;

adssalesdetailNetAmount.ReadOnly:=false;
 adssalesdetailTaxAmount.ReadOnly:=false;
  adsSalesdetailDiscount.ReadOnly:=false;
  adsSalesdetailAmount.ReadOnly:=false;

if adsSalesMaster.FieldByName('IsDiscount').AsBoolean
then  adsSalesDetail.FieldByName('Discount').AsFloat:=
         adsSalesDetail.FieldByName('PriceBase').AsFloat
           * (adsSalesDetail.FieldByName('DiscountRate').AsFloat /100)
               * adsSalesDetail.FieldByName('Quantity').AsInteger

else  adsSalesDetail.FieldByName('Discount').AsFloat:=0 ;    //折扣金额

adsSalesDetail.FieldByName('Amount').AsFloat:=adsSalesDetail.FieldByName('PriceBase').AsFloat
                                                * adsSalesDetail.FieldByName('Quantity').AsInteger;
if  not adsSalesMaster.FieldByName('IsTax').AsBoolean
then begin     //不含税
       adsSalesDetail.FieldByName('NetAmount').AsFloat:=adsSalesDetail.FieldByName('Amount').AsFloat
                                                         - adsSalesDetail.FieldByName('Discount').AsFloat;        //销售净价
       adsSalesDetail.FieldByName('TaxAmount').AsFloat:=adsSalesDetail.FieldByName('NetAmount').AsFloat
                                                          * (adsSalesDetail.FieldByName('Texrate').AsFloat/100);
                                               //税金
 end
 else begin
         adsSalesDetail.FieldByName('NetAmount').AsFloat:=(adsSalesDetail.FieldByName('Amount').AsFloat
                                                       - adsSalesDetail.FieldByName('Discount').AsFloat)
                                                    /((100+adsSalesDetail.FieldByName('Texrate').AsFloat)/100);
        adsSalesDetail.FieldByName('TaxAmount').AsFloat:=adsSalesDetail.FieldByName('NetAmount').AsFloat
                                                 * ( adsSalesDetail.FieldByName('Texrate').AsFloat / 100);
      end;

 adssalesdetailNetAmount.ReadOnly:=true;
 adssalesdetailTaxAmount.ReadOnly:=true;
 adsSalesdetailDiscount.ReadOnly:=true;
  adsSalesdetailAmount.ReadOnly:=true;

end;

procedure TSLReturnEditForm.N13Click(Sender: TObject);
var
tempquery:tadoquery;
Menory:single;
ID:integer;
begin
  inherited;
  try
    tempquery:=tadoquery.Create(self);
    tempquery.Connection:=adsSalesMaster.Connection;
    tempquery.Close;
    tempquery.SQL.Clear;
    tempquery.SQL.Add('select Sum(NetAmount+TaxAmount) as Menory'
                    + ' From SLSaleDetail'
                    + ' Where MasterID = '+adsSalesMaster.fieldbyname('ID').AsString);
    tempquery.Open;
    Menory:=tempquery.fieldbyname('Menory').AsFloat;

    tempquery.Close;
    tempquery.SQL.Clear;
    tempquery.SQL.Add('select ID from DABillType '
                      +' where Name = '+'''销售开单''');
    tempquery.Open;
    ID:=tempquery.fieldbyname('ID').AsInteger;

    tempquery.Close;
    tempquery.SQL.Clear;
    tempquery.SQL.Add('select * From SLClearBillMaster where OriginBillID = '
                       + adsSalesMaster.FieldByName('ID').AsString);
    tempquery.Open;
    if tempquery.IsEmpty
    then tempquery.Insert
    else tempquery.Edit;
    tempquery.FieldByName('OriginBillID').Value           :=    adsSalesMaster.FieldByName('ID').AsString;

    tempquery.FieldByName('EmployeID').Value              :=    adsSalesMaster.FieldByName('EmployeID').AsString;

    tempquery.FieldByName('CreateUserID').Value           :=    0;

    tempquery.FieldByName('AcceptAmount').Value           :=    Menory        ;

    tempquery.FieldByName('OriginBillTypeID').AsInteger   :=     ID      ;
    tempquery.Post;
  finally
    tempquery.Free;
  end;
end;

procedure TSLReturnEditForm.N14Click(Sender: TObject);
begin
  inherited;
if (not  adsSalesMaster.FieldByName('ClientID').IsNull ) and (not  adsSalesDetail.FieldByName('GoodsID').IsNull )
then begin
       SLSaleSearchForm:=tSLSaleSearchForm.Create(self);
       with SLSaleSearchForm  do
       begin
         tblSaleSearcher.Close;
         tblSaleSearcher.CommandText:='select M.CreateDate,D.* from SLSaleDetail D ,SLSaleMaster M '
                                       +'  where D.MasterID=M.ID and M.CLientID=:CLientID'
                                       +'  and D.GoodsID=:GoodsID';
          tblSaleSearcher.Parameters.ParamByName('ClientID').Value
                    :=adsSalesMaster.FieldByName('ClientID').Value;
          tblSaleSearcher.Parameters.ParamByName('GoodsID').Value
                    :=adsSalesDetail.FieldByName('GoodsID').Value;

          tblSaleSearcher.Open;
          SLSaleSearchForm.Show;
      end;
     end
    else begin
           if (not  adsSalesMaster.FieldByName('ClientID').IsNull ) and   adsSalesDetail.FieldByName('GoodsID').IsNull
           then begin
                   SLSaleSearchForm:=tSLSaleSearchForm.Create(self);
                   with SLSaleSearchForm  do
                     begin
                        tblSaleSearcher.Close;
                        tblSaleSearcher.CommandText:='select M.CreateDate,D.* from SLSaleDetail D ,SLSaleMaster M '
                                               +'  where D.MasterID=M.ID and M.CLientID=:CLientID';

                          tblSaleSearcher.Parameters.ParamByName('ClientID').Value
                            :=adsSalesMaster.FieldByName('ClientID').Value;


                        tblSaleSearcher.Open;
                          SLSaleSearchForm.Show;
                        end;
                    end;
         end;
end;

procedure TSLReturnEditForm.adsSalesDetailGoodsIDChange(Sender: TField);
begin
  inherited;
  adsSalesDetailSaleDangWei.Value:='';
end;

end.
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -