inv_saleproduct_h.pas

一个MRPII系统源代码版本

unit Inv_SaleProduct_H;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Entry_Head, Menus, Db, ActnList, AdODB, Grids, DBGridEh, StdCtrls,
  ExtCtrls, ComCtrls, ToolWin;

Type
  TFrm_Inv_SaleProduct_H = Class(TFrm_Base_Entry_Head)
    AdoQry_HeadWHCodeName: TStringField;
    AdoQry_HeadWHCode: TStringField;
    AdoQry_HeadWHName: TStringField;
    AdoQry_HeadInvBillNo: TStringField;
    AdoQry_HeadInvBillDate: TDateTimeField;
    AdoQry_HeadCustomerCode: TStringField;
    AdoQry_HeadCustomerName: TStringField;
    AdoQry_HeadWhPositionCodeName: TStringField;
    AdoQry_HeadWhPositionCode: TStringField;
    AdoQry_HeadWhPositionName: TStringField;
    AdoQry_HeadInvBillTAXRATE: TFloatField;
    AdoQry_HeadInvBillId: TBCDField;
    AdoQry_HeadInvBillRemArk: TStringField;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
  end;

var
  Frm_Inv_SaleProduct_H: TFrm_Inv_SaleProduct_H;

implementation

uses Inv_SaleProduct_B;

{$R *.DFM}

{ TFrm_Inv_SaleMaterial_H }

procedure TFrm_Inv_SaleProduct_H.InitForm(AdOConnection: TAdOConnection;
  ReadOnly: Boolean);
begin
  inherited;
  if Param2='NoMps' then
  begin
    Caption:='非主计划销售发货单制单';
    Pnl_Title.Caption:='非主计划销售发货单制单';
    ConditionUserDefine:='InvOutBill.BillTypeCode='''+Param1+''''
      +' And InvOutBill.InvBillWHChck=0'
      +' And InvOutBill.MpsSale=0';
  end
  else
  begin
    Caption:='主计划销售发货单制单';
    Pnl_Title.Caption:='主计划销售发货单制单';
    ConditionUserDefine:='InvOutBill.BillTypeCode='''+Param1+''''
      +' And InvOutBill.InvBillWHChck=0'
      +' And InvOutBill.MpsSale=1';
  end;
  SelectFromSQL:='Select InvOutBill.WHCode+'' ''+Warehouse.WHName As WHCodeName'
    +',InvOutBill.WHCode'
    +',Warehouse.WHName'
    +',InvOutBill.InvBillNo'
    +',InvOutBill.InvBillId'
    +',InvOutBill.InvBillTAXRATE'
    +',InvOutBill.InvBillDate'
    +',InvOutBill.CustomerCode'
    +',Customer.CustomerName'
    +',InvOutBill.WhPositionCode+'' ''+WhPosition.WhPositionName As WhPositionCodeName'
    +',InvOutBill.WhPositionCode'
    +',InvOutBill.InvBillRemArk'
    +',WhPosition.WhPositionName'
    +' From InvOutBill'
    +' Join Warehouse On InvOutBill.WHCode=Warehouse.WHCode'
    +' Join Customer On InvOutBill.CustomerCode=Customer.CustomerCode'
    +' Join WhPosition On InvOutBill.WhPositionCode=WhPosition.WhPositionCode'
    +' And InvOutBill.WHCode=WhPosition.WHCode';
  OrderByFields:='WHCode,InvBillNo';
  GetData;
  Frm_Entry_Body:=TFrm_Inv_SaleProduct_B.Create(Self);
end;

end.