oreturn.pas

飞恒进销存(超市批发)管理系统V5.1（含源程序） 语言：Delphi 6/7 相关控件：FastReport 2.4以上, Ehlib 3.4以上 1.数据库为fhe2db_V51.da

unit Oreturn;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Unitmb, StdCtrls, Grids, DBGridEh, Buttons, ComCtrls, ExtCtrls,
  ToolWin, ImgList, Menus,adodb, FR_Ctrls;

type
  TOReturnForm = class(TmbForm)
    Label1: TLabel;
    frComboEdit1: TfrComboEdit;
    frComboEdit2: TfrComboEdit;
    Label2: TLabel;
    Edit1: TEdit;
    procedure cmdSaveClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
  private
    { Private declarations }
     procedure InsertDetail;override;
  public
    { Public declarations }
  end;

var
  OReturnForm: TOReturnForm;

implementation

uses datamodule1, report2;

{$R *.dfm}

procedure TOReturnForm.InsertDetail;
var
  sSql:string;
begin
  with dataE2 do
  begin
    sSql:='( :billid, :itemno, :goodsid, :qty, :price,0,0, :xBillId, :xItemNo, :memo1)';
    adoCmd.commandtext:='insert into '+myTable+'D values '+sSql;
    adoCmd.parameters[0].value:=nBillId;
    adoCmd.parameters[1].value:=queryDetail.fieldbyname('itemno').asinteger;
    adoCmd.parameters[2].value:=nGoodsId;
    adoCmd.parameters[3].value:=nQty;
    adoCmd.parameters[4].value:=queryDetail.fieldbyname('price').ascurrency;
    adoCmd.parameters[5].value:=queryDetail.fieldbyname('xBillId').asinteger;
    adoCmd.parameters[6].value:=queryDetail.fieldbyname('xItemNo').asinteger;
    adoCmd.parameters[7].value:=queryDetail.fieldbyname('memo1').asstring;

    adoCmd.execute;

    //修改instoreD.RtnQty
    adoCmd.commandtext:='update O_OUTSTORED set RtnQty= :RtnQty where Billid= :billId and ItemNo= :ItemNo';
    adoCmd.parameters[0].value:=nQty;
    adoCmd.parameters[1].value:=queryDetail.fieldbyname('xBillId').asinteger;
    adoCmd.parameters[2].value:=queryDetail.fieldbyname('xItemNo').asinteger;

    adoCmd.Execute ;
  end;
end;

procedure TOReturnForm.cmdSaveClick(Sender: TObject);
var
  sStatus:TRecordStatusset;
  sInvono:string;
begin
  inherited;
  with  DataE2  do
  begin
    queryDetail.First;
    while not queryDetail.eof do
    begin
      sStatus:=queryDetail.RecordStatus;
      UpdateBatchDetail(sStatus);
      queryDetail.Next;
    end;
    DeleteDetail;
    sInvoNo:=getInvono(mytable,'NEW');
    //queryDetail.updatebatch;
    if bNew then
      InsertIReturn(nBillid,nCusid,nEmployid,nStoreid,edtBillDate.date,edtInvoNo.text,'',edtmemo.text,myTable);

  end;
end;

procedure TOReturnForm.FormShow(Sender: TObject);
begin
  inherited;
  mySql:='select o.*,s.code,s.name,s.units from O_RETURND o inner join GOODS s  on o.goodsId=s.goodsid where  billid= :billid  ';
  myTable:='O_RETURN';
  nTableid:=12;
  with DataE2 do
  begin
    nBillId:=8888888;
    if queryDetail.active then queryDetail.close;
    querydetail.sql.clear;
    queryDetail.sql.add(mySql);
  end;
//  DatePicker.Date:=now;
end;

procedure TOReturnForm.cmdPrintClick(Sender: TObject);
begin
  inherited;
    tablename:='S_sendRD';
    sName:='销售退货单';
    //FormRpt1.Printporder(false);
end;

end.