inv_safeinvqry_c.pas

一个MRPII系统源代码版本

unit Inv_SafeInvQry_C;

Interface

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

Type
  TFrm_Inv_SafeInvQry_C = Class(TFrm_Base_Condition)
    CheckBox: TCheckBox;
    procedure btn_okClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Inv_SafeInvQry_C: TFrm_Inv_SafeInvQry_C;

implementation

Uses Sys_Global;

{$R *.DFM}

procedure TFrm_Inv_SafeInvQry_C.btn_okClick(Sender: TObject);
var
  StrTemp1,StrTemp2,StrTemp3,StrTemp4,StrTemp5:String;
begin
  inherited;
  StrTemp1:='';
  StrTemp2:='';
  StrTemp3:='';
  if CheckBox.Checked then
  begin
    StrTemp1:=',ss.AOnCheckInv As 待检库存';
    StrTemp2:='+OnCheckInv';
  end;
  if Param1='Safe' then
  begin
    StrTemp3:='<Item.MinQty Or ((ss.TatolQty Is Null)And(Item.MinQty>0))';
    StrTemp4:=',Item.MinQty As 安全库存'  
      +',ss.TatolQty As 库存总量'
      +',Item.MinQty-IsNull(ss.TatolQty,0) As 差额';
    StrTemp5:=',Item.MinQty';
  end
  else if Param1='Over' then
  begin
    StrTemp3:='>Item.MaxQty And Item.MaxQty<>0';
    StrTemp4:=',Item.MaxQty As 最大库存' 
      +',ss.TatolQty As 库存总量'
      +',Item.MaxQty-ss.TatolQty As 差额';
    StrTemp5:=',Item.MaxQty';
  end;
  Condition:='Select Item.ItemCode As 物料代码'
    +',Item.ItemName As 物料名称'
    +',Item.ItemCode+'' ''+Item.ItemName As 物料标识'
    
    +StrTemp4
    +',ss.AOnHandInv As 可用库存'
    +StrTemp1
    +',ss.AFreezeInv As 冻结库存'
    +',ss.AWasterInv As 废品库存'
    +',ss.AOnShipInv As 在运库存'
    +' From Item Left Join (Select ItemCode,Sum(OnHandInv) As AOnHandInv'
    +',Sum(OnCheckInv) As AOnCheckInv,Sum(FreezeInv) As AFreezeInv'
    +',Sum(WasterInv) As AWasterInv,Sum(OnShipInv) As AOnShipInv'
    +',Sum(OnHandInv+FreezeInv'+StrTemp2+'+WasterInv+OnShipInv) As TatolQty'
    +' From CurrentInv Group By ItemCode)'
    +' ss On Item.ItemCode=ss.ItemCode'
    +' Where ss.TatolQty'+StrTemp3;
  ModalResult:=mrOk;
end;

end.