inv_opvendormonthsumqry_c.pas

一个MRPII系统源代码版本

unit Inv_OpVendorMonthSumQry_C;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Condition, Db, AdODB, StdCtrls, Mask, ExtEdit;

Type
  TFrm_Inv_OpVendorMonthSumQry_C = Class(TFrm_Base_Condition)
    Label1: TLabel;
    Label2: TLabel;
    MEdt_Month: TMaskEdit;
    ExtEdt_VendorCode: TExtEdit;
    Lbl_VendorName: TLabel;
    procedure btn_okClick(Sender: TObject);
    procedure MonthCheck(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Inv_OpVendorMonthSumQry_C: TFrm_Inv_OpVendorMonthSumQry_C;

implementation

uses Sys_Global,Inv_Global;

{$R *.DFM}

procedure TFrm_Inv_OpVendorMonthSumQry_C.btn_okClick(Sender: TObject);
begin
  inherited;
  Condition:='Select OpMonthSum.ItemCode'
    +',Item.ItemName'
    +',OpMonthSum.ItemCode+'' ''+Item.ItemName As ItemCodeName,0 flag'
    +',Uom.UomName'
    +',OpMonthSum.InvLMQty'
    +',OpMonthSum.InvLMPrice'
    +',OpMonthSum.InvLMAmount'
    +',OpMonthSum.InvInQty'
    +',OpMonthSum.InvInPrice'
    +',OpMonthSum.InvInAmount'
    +',OpMonthSum.InvOutQty'
    +',OpMonthSum.InvOutPrice'
    +',OpMonthSum.InvOutAmount'
    +',OpMonthSum.Invtzqty'
    +',OpMonthSum.InvtzAmount'
    +',OpMonthSum.InvBlncQty'
    +',OpMonthSum.InvBlncPrice'
    +',OpMonthSum.InvBlncAmount'
    +' From OpMonthSum Join Item On OpMonthSum.ItemCode=Item.ItemCode'
    +' Join Uom On Item.UomCode=Uom.UomCode'
    +' Where (InvLMQty<>0 or InvLMAmount<>0 or InvInQty<>0 or InvInAmount<>0 or Invtzqty<>0 '
    +' or InvtzAmount<>0 or InvOutQty<>0 or InvOutAmount<>0 or InvBlncQty<>0 or InvBlncAmount<>0) '
    +'  and OpMonthSum.VendorCode='''+ExtEdt_VendorCode.Text+''''
    +' And OpMonthSum.InvMonth='''+MEdt_Month.Text+'''';
  ConditionHint:='月份:'+MEdt_Month.Text+', 供应商:'+
                ExtEdt_VendorCode.Text+' '+Lbl_VendorName.Caption;
  ModalResult:=mrOk;
end;

procedure TFrm_Inv_OpVendorMonthSumQry_C.MonthCheck(Sender: TObject);
begin
  inherited;
  InvDataChangeCheck(AdoQry_Tmp,TEdit(Sender).Text);
end;

procedure TFrm_Inv_OpVendorMonthSumQry_C.FormCreate(Sender: TObject);
begin
  inherited;
  MEdt_Month.Text:=FormatDateTime('yyyy.mm',Now);
end;

end.