inv_saleproductaudit_h.pas

一个MRPII系统源代码版本

unit Inv_SaleProductAudit_H;

Interface

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

Type
  TFrm_Inv_SaleProductAudit_H = Class(TFrm_Base_Check_Head)
    AdoQry_HeadInvBillNo: TStringField;
    AdoQry_HeadInvBillId: TBCDField;
    AdoQry_HeadInvBillTAXRATE: TFloatField;
    AdoQry_HeadInvBillDate: TDateTimeField;
    AdoQry_HeadCustomerCode: TStringField;
    AdoQry_HeadCustomerName: TStringField;
    AdoQry_HeadWhPositionCodeName: TStringField;
    AdoQry_HeadWhPositionCode: TStringField;
    AdoQry_HeadInvBillRemArk: TStringField;
    AdoQry_HeadWhPositionName: TStringField;
    AdoQry_HeadWHCodeName: TStringField;
    AdoQry_HeadWHCode: TStringField;
    AdoQry_HeadWHName: TStringField;
    AdoQry_HeadInvBillWHChck: TIntegerField;
    AdoQry_HeadInvBillWHChck_1: TIntegerField;
    AdoQry_HeadMpsSale: TIntegerField;
    procedure Act_LookExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
  end;

var
  Frm_Inv_SaleProductAudit_H: TFrm_Inv_SaleProductAudit_H;

implementation

uses Inv_SaleProductAudit_B,Sys_Global;

{$R *.DFM}

{ TFrm_Inv_SaleMaterialAudit_H }

procedure TFrm_Inv_SaleProductAudit_H.InitForm(
  AdOConnection: TAdOConnection; ReadOnly: Boolean);
begin
  inherited;
  SelectFromSQL:='Select InvOutBill.WHCode+'' ''+Warehouse.WHName As WHCodeName'
    +',InvOutBill.WHCode'
    +',Warehouse.WHName'
    +',InvOutBill.InvBillNo'
    +',InvOutBill.InvBillWHChck'
    +',InvOutBill.InvBillId'
    +',InvOutBill.InvBillTaxRate'
    +',InvOutBill.InvBillDate'
    +',InvOutBill.CustomerCode'
    +',InvOutBill.InvBillWHChck'
    +',Customer.CustomerName'
    +',InvOutBill.WhPositionCode+'' ''+WhPosition.WhPositionName As WhPositionCodeName'
    +',InvOutBill.WhPositionCode'
    +',InvOutBill.InvBillRemArk'
    +',WhPosition.WhPositionName'
    +',InvOutBill.MpsSale'
    +' 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:='InvBillNo';
  ConditionUserDefine:='InvOutBill.BillTypeCode='''+Param1+''''
    +' And InvOutBill.InvBillWHChck=0'
    +' And InvOutBill.WHCode In'
    +' (Select WHCode From WHAccessCtrl Where EmployeeCode='''+UserCode+''')';
  GetData;
  Frm_Check_Body:=TFrm_Inv_SaleProductAudit_B.Create(Self);
end;

procedure TFrm_Inv_SaleProductAudit_H.Act_LookExecute(Sender: TObject);
begin//自动和不自动冲销主计划结合点的处理
  if AdoQry_Head.fieldbyname('MpsSale').AsString='1' then
  begin
    AdoQry_Tmp.Close;
    AdoQry_Tmp.SQL.Text:='Select MrpParamValueN From MrpParam'
      +' Where MrpParamCode=''autoBalanceMps''';
    AdoQry_Tmp.Open;
    if AdoQry_Tmp.fieldbyname('MrpParamValueN').AsString='0' then
    begin
      AdoQry_Tmp.Close;
      AdoQry_Tmp.SQL.Text:='Select MpsId'
        +' From InvOutBillLine'
        +' Where InvBillId='+AdoQry_Head.fieldbyname('InvBillId').AsString+'';
      AdoQry_Tmp.Open;
      if AdoQry_Tmp.fieldbyname('MpsId').AsString='' then
      begin
        DispInfo('本单据是在"自动冲销主计划"设置时制单的'+#13+#10
          +'请将冲销主计划的方式改成"自动"后,再核定本单据!',1);
        Abort;
      end;
    end;
  end;
  inherited;
end;

end.