unit CX_YFZLFXB;
{
  部件名称：应付(YF3.MFC)
  单元名称：应付帐款帐龄分析
  功能说明：
  技术说明：支持多会计单位查询
  使用方法：
  注意事项：
  支持平台：SQL Server 2000 + Oracle
  更新记录：
    2004-11-11 yuxianming
     增加查询条件‘分析预付账款’，选中后只分析应付账款有借方余额的单位。
    2005-06-29 喻忠超
     允许按记账日期进行分析。
    2006-11-16 linfeng
    调整程序，原来账龄期是根据ZLQ表的记录进行账龄分析的，
     账龄期的取数调整为根据根据SFZLQ表获得账龄期
}
interface

uses
  CX_YFZLFXB_d, CX_YFZLFXB_m, Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  BaseQryCard, marsCap, Db, DBTables, gtQuery, RXCalc, Menus, RXCtrls, ExtCtrls,
  DBSBtn, Grids, DBGrids, RXDBCtrl, Buttons, StdCtrls, COMCtrls,
  RxDBCOMb, DBCtrls, Mask, ToolEdit, ImgList, ToolWin, RxDBGrid,
  gtReportBuilder, gtrClasses, gtReportDocument, gtCheckedCombo, gtStandard, gtDBControls, gtEdit,
  gtSystem, gtToolBar, Datetime, xmldom, XMLIntf, msxmldom, XMLDoc, DBAccess,
  Uni, gtDB_Uni, MemDS, DateUtils, MISPROUtils;

type
   TfrmCX_YFZLFXB = class (TfrmBaseQryCard)
    qryTmp: TgtQuery;
    qryZHKZ: TgtQuery;
    lblCKRQ: TgtLabel;
    Label1: TgtLabel;
    Label2: TgtLabel;
    lbl1: TgtLabel;
    chkOutputMX: TgtDBCheckBox;
    datCKRQ: TgtDBDateEdit;
    edtGYSID: TgtDBEdit;
    cbxKJDW: TgtDBCheckedCombo;
    cbxPXFS: TgtDBComboBox;
    cbxHB: TgtDBComboBox;
    lblPXFS: TgtLabel;
    lblTitle: TgtLabel;
    chkBL: TgtDBCheckBox;
    qryZLQ: TgtQuery;
    dsZLQ: TgtDataSource;
    qryZLQSFZLQ_ZLXH: TFloatField;
    qryZLQSFZLQ_ZLMC: TStringField;
    qryZLQSFZLQ_ZLQ: TFloatField;
    lbl2: TgtLabel;
    cbxGYSFL: TgtDBCheckedCombo;
    Label4: TgtLabel;
    cbxFXDX: TgtDBCheckedCombo;
    edtGYSMC: TgtDBEdit;
    gtLabel1: TgtLabel;
    cbxKM: TgtDBComboBox;
    Label5: TgtLabel;
    cbxZRZX: TgtDBCheckedCombo;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure grdGriDDblCliCK(Sender: TObject);
    procedure grdGridGetRowState(Sender: TObject; Field: TField;
      var BackgroundColor: string; var RowInSum: TInSum);
  private
    { Private dEClarations }
    FXByJZRQ: Boolean;          //是否按记账日期进行分析
    bInit: Boolean;
    function MultiKJDW:Boolean;
    function GetKJDWs:String;
    property sKJDWs: String read GetKJDWs;
    procedure CreatGridColumns;
    procedure GetKM;
  public
    dmlCX_YFZLFXB_m: TdmlCX_YFZLFXB_m;
    dmlCX_YFZLFXB_d: TdmlCX_YFZLFXB_d;
    procedure FormInit; override;
    function  ConditionValid:Boolean;override;
    procedure Run; override;
    function CallBack(aID: TCallBackID; aParam: String=''): String; override;
    function GetSYSID:string;
    { Public dEClarations }
  end;

implementation

uses JsERPUtils,CWUtils, BaseNavigator, BaseQry1, BaseTlb;

{$R *.DFM}

function AddFloatField(DataSet: TDataSet; FieldName,
  DisplayLabel: string): TFloatField;
begin
  Result := TFloatField.Create(DataSet);
  Result.FieldName := FieldName;
  Result.DisplayLabel := DisplayLabel;
  Result.FieldKind := fkData;
  Result.Size := 0;
  Result.DataSet := DataSet;
end;

function AddStringField(DataSet: TDataSet; FieldName,
  DisplayLabel: string; FieldSize: Integer): TStringField;
begin
  Result := TStringField.Create(DataSet);
  Result.FieldName := FieldName;
  Result.DisplayLabel := DisplayLabel;
  Result.FieldKind := fkData;
  Result.Size := FieldSize;
  Result.DataSet := DataSet;
end;

//==============================================================================
{ 内部过程/函数 }
//==============================================================================
function TfrmCX_YFZLFXB.GetKJDWs: String;
begin
  Result:=Trim(cbxKJDW.Text);
end;

function TfrmCX_YFZLFXB.GetSYSID:string;
begin
  Result:='';
  with qryTool do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select SYSID from system  where 1=1 ');
    Open;
    First;
    if not IsEmpty then
    begin   
      Result:=FieldByName('SYSID').AsString;
    end;
  end;

end;


procedure TfrmCX_YFZLFXB.GetKM;
var
  sKM,sSQL: string;
  iYear: Integer;
begin
  if bInit then exit;

  if (pos(',',dmlCX_YFZLFXB_m.memTableKJDWID.AsString)<=0)
    and (Trim(dmlCX_YFZLFXB_m.memTableKJDWID.AsString) <> '') then
  begin
    iYear := YEAROf(dmlCX_YFZLFXB_m.memTablECKRQ.AsDateTime);
    sKM:=CWUtils.GetZHKZ(iYear,dmlCX_YFZLFXB_m.memTableKJDWID.AsString,'CW0002',False);
    sSQL:='select distinct KJKM_KMID ,KJKM_MC from KJKM where KJKM_YEAR='+intToStr(iYear)
        + ' and KJKM_KJDWID='''+dmlCX_YFZLFXB_m.memTableKJDWID.AsString+'''';
    if Trim(sKM)<>'' then
      sSQL:=sSQL+' and '+GetWhereLead('KJKM_KMID',sKM)+'order by KJKM_KMID'
    else
      sSQL:=sSQL+' and 1<>1 order by KJKM_KMID';
    JsERPUtils.TCBX.SetRxCBX(sSQL,True,cbxKM);
    dmlCX_YFZLFXB_m.memTableKMID.AsString :=' ';
  end
  else
  begin
    cbxKM.BeginUpdate;
    try
      cbxKM.Items.Clear;
      cbxKM.Values.Clear;
    finally
      cbxKM.EndUpdate;
    end;
  end;
end;

function TfrmCX_YFZLFXB.MultiKJDW: Boolean;
begin
  if pos(',',cbxKJDW.Text)>0 then Result:=True
  else Result:=False;
end;

procedure TfrmCX_YFZLFXB.CreatGridColumns;
var
  aColumn: TRxDBGridColumn;
  iLoop: Integer;
  i: Integer;
begin
  // 获得帐龄期天数和名称
  qryZLQ.Close;
  qryZLQ.Open;
  grdGrid.Columns.BeginUpdate;
  try
    grdGrid.Columns.Clear;

    dmlCX_YFZLFXB_d.qryResult.Close;
    for i := dmlCX_YFZLFXB_d.qryResult.FieldCount - 1 downto 0 do
    begin
      dmlCX_YFZLFXB_d.qryResult.Fields[i].Destroy;
    end;

    aColumn := grdGrid.Columns.Add;
    aColumn.FieldName := 'XH';
    aColumn.Title.Alignment := taCenter;
    aColumn.Title.Caption := '序号\C';
    aColumn.Visible := False;
    aColumn.EditorType := etNumber;
    aColumn.Width := 64;
    AddFloatField(dmlCX_YFZLFXB_d.qryResult, 'XH', '序号');
    dmlCX_YFZLFXB_d.qryResult.FieldByName('XH').DisplayWidth := 10;

    aColumn := grdGrid.Columns.Add;
    aColumn.FieldName := 'XH1';
    aColumn.Title.Alignment := taCenter;
    aColumn.Title.Caption := '序号1\C';
    aColumn.Visible := False;
    aColumn.EditorType := etNumber;
    aColumn.Width := 64;
    AddFloatField(dmlCX_YFZLFXB_d.qryResult, 'XH1', '序号');
    dmlCX_YFZLFXB_d.qryResult.FieldByName('XH1').DisplayWidth := 10;

    aColumn := grdGrid.Columns.Add;
    aColumn.FieldName := 'FLAG';
    aColumn.Title.Alignment := taCenter;
    aColumn.Title.Caption := '标志\C';
    aColumn.Visible := False;
    aColumn.Width := 64;
    AddStringField(dmlCX_YFZLFXB_d.qryResult,'FLAG','标志',1);
    dmlCX_YFZLFXB_d.qryResult.FieldByName('FLAG').DisplayWidth := 10;

    aColumn := grdGrid.Columns.Add;
    aColumn.FieldName := 'GYS';
    aColumn.Title.Alignment := taCenter;
    aColumn.Title.Caption := '供应商\C';
    aColumn.Width := 64;
    AddStringField(dmlCX_YFZLFXB_d.qryResult,'GYS','供应商',80);
    dmlCX_YFZLFXB_d.qryResult.FieldByName('GYS').DisplayWidth := 50;

    aColumn := grdGrid.Columns.Add;
    aColumn.FieldName := 'GYSID';
    aColumn.Title.Alignment := taCenter;
    aColumn.Title.Caption := '供应商编码\C';
    aColumn.Width := 64;
    aColumn.Visible := False;
    AddStringField(dmlCX_YFZLFXB_d.qryResult,'GYSID','供应商编码',8);
    dmlCX_YFZLFXB_d.qryResult.FieldByName('GYSID').DisplayWidth := 15;


    aColumn := grdGrid.Columns.Add;
    aColumn.FieldName := 'GYSMC';
    aColumn.Title.Alignment := taCenter;
    aColumn.Title.Caption := '供应商名称\C';
    aColumn.Width := 64;
    aColumn.Visible := False;
    AddStringField(dmlCX_YFZLFXB_d.qryResult,'GYSMC','供应商名称',120);
    dmlCX_YFZLFXB_d.qryResult.FieldByName('GYSMC').DisplayWidth := 40;

    aColumn := grdGrid.Columns.Add;
    aColumn.FieldName := 'ZY';
    aColumn.Title.Alignment := taCenter;
    aColumn.Title.Caption := '摘要\C';
    aColumn.Width := 64;
    aColumn.Visible := False;
    AddStringField(dmlCX_YFZLFXB_d.qryResult,'ZY','摘要',250);
    dmlCX_YFZLFXB_d.qryResult.FieldByName('ZY').DisplayWidth := 50;

    aColumn := grdGrid.Columns.Add;
    aColumn.FieldName := 'KJDW';
    aColumn.Title.Alignment := taCenter;
    aColumn.Title.Caption := '会计单位\C';
    aColumn.EditorType := etDropDown;
    aColumn.Visible := False;
    aColumn.Width := 64;
    TGRD.SetGridColumn(grdGrid.FindColumnByField('KJDW'),'select KJDW_KJDWID, KJDW_JC from KJDW order by KJDW_KJDWID');
    AddStringField(dmlCX_YFZLFXB_d.qryResult,'KJDW','会计单位',20);
    dmlCX_YFZLFXB_d.qryResult.FieldByName('KJDW').DisplayWidth := 20;

    aColumn := grdGrid.Columns.Add;
    aColumn.FieldName := 'ZPZH';
    aColumn.Title.Alignment := taCenter;
    aColumn.Title.Caption := '总凭证号\C';
    aColumn.EditorType := etDropDown;
    aColumn.Visible := False;
    aColumn.Width := 64;
    AddFloatField(dmlCX_YFZLFXB_d.qryResult, 'ZPZH', '总凭证号');
    dmlCX_YFZLFXB_d.qryResult.FieldByName('ZPZH').DisplayWidth := 10;

    iLoop := 0;
    while not qryZLQ.Eof do
    begin
      aColumn := grdGrid.Columns.Add;
      aColumn.FieldName := 'ZLQ'+FloatToStr(iLoop);
      aColumn.Title.Alignment := taCenter;
      aColumn.Title.Caption := qryZLQSFZLQ_ZLMC.AsString+'\R\r\n金额\C';
      aColumn.EditorType := etNumber;
      aColumn.Width := 64;
      AddFloatField(dmlCX_YFZLFXB_d.qryResult, 'ZLQ'+FloatToStr(iLoop), qryZLQSFZLQ_ZLMC.AsString);
      dmlCX_YFZLFXB_d.qryResult.FieldByName('ZLQ'+FloatToStr(iLoop)).DisplayWidth := 15;

      aColumn := grdGrid.Columns.Add;
      aColumn.FieldName := 'BL'+FloatToStr(iLoop);
      aColumn.Title.Alignment := taCenter;
      aColumn.Title.Caption := '\n%\C';
      aColumn.EditorType := etNumber;
      aColumn.Width := 64;
      AddFloatField(dmlCX_YFZLFXB_d.qryResult, 'BL'+FloatToStr(iLoop), '%');
      dmlCX_YFZLFXB_d.qryResult.FieldByName('BL'+FloatToStr(iLoop)).DisplayWidth := 6;

      inc(iLoop);
      qryZLQ.Next;
    end;

    aColumn := grdGrid.Columns.Add;
    aColumn.FieldName := 'HJ';
    aColumn.Title.Alignment := taCenter;
    aColumn.Title.Caption := '合计\C';
    aColumn.EditorType := etNumber;
    aColumn.Width := 64;
    AddFloatField(dmlCX_YFZLFXB_d.qryResult, 'HJ', '合计');
    dmlCX_YFZLFXB_d.qryResult.FieldByName('HJ').DisplayWidth := 15;

    aColumn := grdGrid.Columns.Add;
    aColumn.FieldName := 'XYQN';
    aColumn.Title.Alignment := taCenter;
    aColumn.Title.Caption := '付款期内\C';
    aColumn.EditorType := etNumber;
    aColumn.Width := 64;
    AddFloatField(dmlCX_YFZLFXB_d.qryResult, 'XYQN', '付款期内');
    dmlCX_YFZLFXB_d.qryResult.FieldByName('XYQN').DisplayWidth := 15;


    aColumn := grdGrid.Columns.Add;
    aColumn.FieldName := 'XYQW';
    aColumn.Title.Alignment := taCenter;
    aColumn.Title.Caption := '付款期外\C';
    aColumn.EditorType := etNumber;
    aColumn.Width := 64;
    AddFloatField(dmlCX_YFZLFXB_d.qryResult, 'XYQW', '付款期外');
    dmlCX_YFZLFXB_d.qryResult.FieldByName('XYQW').DisplayWidth := 15;

    iLoop := 0;
    qryZLQ.First;
    while not qryZLQ.Eof do
    begin
      if dmlCX_YFZLFXB_m.memTableBL.AsString = 'Y' then
      begin
        grdGrid.FindColumnByField('BL'+FloatToStr(iLoop)).Visible := True;
        grdGrid.FindColumnByField('ZLQ'+FloatToStr(iLoop)).Title.Caption := qryZLQSFZLQ_ZLMC.AsString+'\R\r\n金额\C';
      end
      else
      begin
        grdGrid.FindColumnByField('BL'+FloatToStr(iLoop)).Visible := False;
        grdGrid.FindColumnByField('ZLQ'+FloatToStr(iLoop)).Title.Caption := qryZLQSFZLQ_ZLMC.AsString;
      end;
      inc(iLoop);
      qryZLQ.Next;
    end;
  finally
    grdGrid.Columns.EndUpdate;
  end;
end;

//==============================================================================
{ 模板相关事件/过程/函数 }
//==============================================================================
procedure TfrmCX_YFZLFXB.FormInit;
begin
  inherited;

  CWUtils.GetKJDW(cbxKJDW,CO_QUERYKJDW,GetUserOption('ZZU003'),False);
  TCBX.SetRxCBX('select GYSFL_FLID,GYSFL_FLMC from GYSFL where 1=1 order by GYSFL_FLID', cbxGYSFL);
  TCBX.SetRxCBX('select HB_HBID,HB_MC from HB order by HB_HBID',True,cbxHB);
  FXByJZRQ := (GetUserOption('YFU001') = 'Y');

  bInit := False;
  GetKM;

end;

procedure TfrmCX_YFZLFXB.FormCreate(Sender: TObject);
begin
  inherited;
  bInit := True;
  dmlCX_YFZLFXB_d := TdmlCX_YFZLFXB_d.Create(self);
  dmlCX_YFZLFXB_m := TdmlCX_YFZLFXB_m.Create(self);
  dmlResult := dmlCX_YFZLFXB_D;
  dmlCondition := dmlCX_YFZLFXB_M;
//  dmlMain:=dmlCondition;
  grdGrid.DataSource := dmlCX_YFZLFXB_D.dsData;


  AddReadOnlyComponent(edtGYSMC);
end;

procedure TfrmCX_YFZLFXB.FormDestroy(Sender: TObject);
begin
  bInit := True;
  FreeAndNil(dmlCX_YFZLFXB_d);
  FreeAndNil(dmlcx_YFZLFXB_M);
  inherited;
end;

function TfrmCX_YFZLFXB.CallBack(aID: TCallBackID; aParam: String): String;
var
  sSQL: String;
begin
  Result := Inherited CallBack(aID, aParam);
  if aID=CBID_FieldChanged then
  begin
    if aParam='KJDWID' then
    begin
      sSQL := 'select ZRZX_ZRZXID, ZRZX_MC from ZRZX where ZRZX_MJBZ=''Y'' ';
      if MultiKJDW then
        sSQL := sSQL + ' and ZRZX_KJDWID='' '' '
      else
        sSQL := sSQL + ' and (ZRZX_KJDWID='' '' or ZRZX_KJDWID='''+dmlCX_YFZLFXB_m.memTableKJDWID.AsString+''') ';
      sSQL := sSQL + ' order by ZRZX_ZRZXID ';
      LoadRxCbx(sSQL, cbxZRZX);
      dmlCX_YFZLFXB_m.memTableZRZXID.AsString := '';

      GetKM;
    end;
    if aParam='SETKM' then
    begin
      GetKM;
    end;
  end;
end;

function TfrmCX_YFZLFXB.ConditionValid: Boolean;
begin
  Result := inherited ConditionValid;
  if not Result then Exit;
  if trim(dmlCX_YFZLFXB_m.memTableKJDWID.AsString) = '' then
  begin
    WarningMessageBox('会计单位不允许为空！');
    cbxKJDW.SetFocus;
    Result := False;
    Exit;
  end;
  if trim(dmlCX_YFZLFXB_M.memTableHBID.AsString) ='' then
  begin
    WarningMessageBox('请选择货币！');
    cbxHB.SetFocus;
    Result := False;
    exit;
  end;
  if dmlCX_YFZLFXB_M.memTableCKRQ.AsDateTime =0 then
  begin
    WarningMessageBox('参考日期不允许为空！');
    datCKRQ.SetFocus;
    Result := False;
    exit;
  end;
end;

//按供应商输出帐龄分析表，
procedure TfrmCX_YFZLFXB.Run;
var
  iLoop: Integer;
  iYear: Integer;
  fPriZLQ : Extended;
  SYSID:string;
  iflag:Extended;  //锐洋系统
begin
  inherited;
  //查询时判断列表是否已经创建，如果未创建，且未设置账龄期，则提示，否则根据设置的账龄期创建列表
  SYSID:=GetSYSID;
  iflag:=1;
  if SYSID='0413000101' then
    iflag:=-1;
  

  qryZLQ.Close;
  qryZLQ.Open;
  if qryZLQ.IsEmpty then
  begin
    WarningMessageBox('请先设置账龄期！');
    Exit;
  end
  else
  begin
    CreatGridColumns;
  end;

  iYear := TKJQJ.GetYear(dmlCX_YFZLFXB_m.memTablECKRQ.AsDateTime, False);
  if dmlCX_YFZLFXB_M.memTableSCMX.AsBoolean then
  begin
    grdGRID.ShowHint := True;
    grdGrid.FindColumnByField('ZY').Visible := True;
    grdGrid.FindColumnByField('ZY').Tag := 0;
  end
  else
  begin
    grdGRID.ShowHint := False;
    grdGrid.FindColumnByField('ZY').Visible := False;
    grdGrid.FindColumnByField('ZY').Tag := -1;
  end;
  grdGrid.FindColumnByField('KJDW').Visible :=MultiKJDW;


  qryZLQ.Close;
  qryZLQ.Open;

  iLoop := 0;
  qryZLQ.First;
  while not qryZLQ.Eof do
  begin
    if dmlCX_YFZLFXB_m.memTableBL.AsString = 'Y' then
    begin
      grdGrid.FindColumnByField('BL'+FloatToStr(iLoop)).Visible := True;
      grdGrid.FindColumnByField('ZLQ'+FloatToStr(iLoop)).Title.Caption := qryZLQSFZLQ_ZLMC.AsString+'\R\r\n金额\C';
    end
    else
    begin
      grdGrid.FindColumnByField('BL'+FloatToStr(iLoop)).Visible := False;
      grdGrid.FindColumnByField('ZLQ'+FloatToStr(iLoop)).Title.Caption := qryZLQSFZLQ_ZLMC.AsString;
    end;
    inc(iLoop);
    qryZLQ.Next;
  end;

  with dmlcx_YFZLFXB_d.qryResult do
  begin

    iLoop := 0;
    Close;
    SQL.Clear;
    SQL.Add('select 0.0 as XH,1.0 as XH1,''Y'' as FLAG,YFZK_GYSID||''|''||GYS_MC as GYS ,YFZK_GYSID as GYSID,GYS_MC as GYSMC, ');
    SQL.Add(' '' '' as ZY,'' '' as KJDW,0.0 as ZPZH,  ');
    //循环账龄期
    qryZLQ.First;
    fPriZLQ := 0;
    while not qryZLQ.Eof do
    begin
      //计算账龄期数据
      SQL.Add('round( ');
      SQL.Add('sum(' );
      if FXByJZRQ then
      begin
        if iLoop=0 then
          SQL.Add('  case when datediff(day,YFZK_JZRQ,:pCKRQ)<='+FloatToStr(qryZLQSFZLQ_ZLQ.AsFloat)+' then ')
        else
          SQL.Add('  case when datediff(day,YFZK_JZRQ,:pCKRQ)>'+FloatToStr(fPriZLQ)+' and datediff(day,YFZK_JZRQ,:pCKRQ)<= '+FloatToStr(qryZLQSFZLQ_ZLQ.AsFloat)+' then ');
      end
      else
      begin
        if iLoop=0 then
          SQL.Add('  case when datediff(day,YFZK_YWRQ,:pCKRQ)<='+FloatToStr(qryZLQSFZLQ_ZLQ.AsFloat)+' then ')
        else
          SQL.Add('  case when datediff(day,YFZK_YWRQ,:pCKRQ)>'+FloatToStr(fPriZLQ)+' and datediff(day,YFZK_YWRQ,:pCKRQ)<= '+FloatToStr(qryZLQSFZLQ_ZLQ.AsFloat)+' then ');
      end;
      if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'B' then
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and GT(YFZK_WFPJE,0) then :iflag*(YFZK_WFPJE-YFZK_YFPJE) ')
      else if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'Y' then
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and LT(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ')
      else
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and NE(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ');
      SQL.Add('    else 0 end + isnull(a.WJYSJE,0) ');
      SQL.Add('  else 0 end) ');
      SQL.Add(',2)  as ZLQ'+FloatToStr(iLoop) +',');
      //计算比例:各账龄期除以合计
      SQL.Add('case  ');
      SQL.Add('round(       ');
      SQL.Add('sum( ');
      if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'B' then
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and GT(YFZK_WFPJE,0) then :iflag*(YFZK_WFPJE-YFZK_YFPJE) ')
      else if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'Y' then
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and LT(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ')
      else
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and NE(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ');
      SQL.Add('    else 0 end +isnull(a.WJYSJE,0))  ');
      SQL.Add(' ,2) ' );
      SQL.Add(' when 0 then 0 else ');

      SQL.Add('round((round( ');
      SQL.Add('sum(' );
      if FXByJZRQ then
      begin
        if iLoop=0 then
          SQL.Add('  case when datediff(day,YFZK_JZRQ,:pCKRQ)<='+FloatToStr(qryZLQSFZLQ_ZLQ.AsFloat)+' then ')
        else
          SQL.Add('  case when datediff(day,YFZK_JZRQ,:pCKRQ)>'+FloatToStr(fPriZLQ)+' and datediff(day,YFZK_JZRQ,:pCKRQ)<= '+FloatToStr(qryZLQSFZLQ_ZLQ.AsFloat)+' then ');
      end
      else
      begin
        if iLoop=0 then
          SQL.Add('  case when datediff(day,YFZK_YWRQ,:pCKRQ)<='+FloatToStr(qryZLQSFZLQ_ZLQ.AsFloat)+' then ')
        else
          SQL.Add('  case when datediff(day,YFZK_YWRQ,:pCKRQ)>'+FloatToStr(fPriZLQ)+' and datediff(day,YFZK_YWRQ,:pCKRQ)<= '+FloatToStr(qryZLQSFZLQ_ZLQ.AsFloat)+' then ');
      end;
      if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'B' then
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and GT(YFZK_WFPJE,0) then :iflag*(YFZK_WFPJE-YFZK_YFPJE) ')
      else if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'Y' then
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and LT(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ')
      else
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and NE(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ');
      SQL.Add('    else 0 end + isnull(a.WJYSJE,0) ');
      SQL.Add('  else 0 end) ');
      SQL.Add(',2)');
      SQL.Add(' /');
      SQL.Add('round(       ');
      SQL.Add('sum( ');
      if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'B' then
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and GT(YFZK_WFPJE,0) then :iflag*(YFZK_WFPJE-YFZK_YFPJE) ')
      else if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'Y' then
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and LT(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ')
      else
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and NE(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ');
      SQL.Add('    else 0 end +isnull(a.WJYSJE,0))  ');
      SQL.Add(' ,2))*100,2) end ' );
      sql.Add(' as BL'+FloatToStr(iLoop) +',');

      fPriZLQ  := qryZLQSFZLQ_ZLQ.AsFloat;
      inc(iLoop);
      qryZLQ.Next;
    end;
    //收款期内金额
    SQL.Add('round(   ');
    SQL.Add('sum(' );
    SQL.Add('  case       ');
    SQL.Add('  when datediff(day,YFZK_DQRQ,:pCKRQ)>=0 then ');
    if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'B' then
      SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and GT(YFZK_WFPJE,0) then :iflag*(YFZK_WFPJE-YFZK_YFPJE) ')
    else if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'Y' then
      SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and LT(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ')
    else
      SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and NE(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ');
    SQL.Add('    else 0 end                                                                               ');
    SQL.Add('    +isnull(a.WJYSJE,0)                                                                      ');
    SQL.Add(' else 0 end)                                                                                 ');
    SQL.Add(',2) as XYQN,    ');

        //收款期外金额
    SQL.Add('round(   ');
    SQL.Add('sum(' );
    SQL.Add('  case       ');
    SQL.Add('  when datediff(day,YFZK_DQRQ,:pCKRQ)<0 then ');
    if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'B' then
      SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and GT(YFZK_WFPJE,0) then :iflag*(YFZK_WFPJE-YFZK_YFPJE) ')
    else if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'Y' then
      SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and LT(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ')
    else
      SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and NE(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ');
    SQL.Add('    else 0 end                                                                               ');
    SQL.Add('    +isnull(a.WJYSJE,0)                                                                      ');
    SQL.Add(' else 0 end)                                                                                 ');
    SQL.Add(',2) as XYQW,    ');
    //取出总的金额
    SQL.Add('round(       ');
    SQL.Add('sum( ');
    if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'B' then
      SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and GT(YFZK_WFPJE,0) then :iflag*(YFZK_WFPJE-YFZK_YFPJE) ')
    else if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'Y' then
      SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and LT(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ')
    else
      SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and NE(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ');
    SQL.Add('    else 0 end +isnull(a.WJYSJE,0))  ');
    SQL.Add(' ,2)as HJ, ');
    //排序使用的金额
    SQL.Add('round(       ');
    SQL.Add('sum( ');
    if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'B' then
      SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and GT(YFZK_WFPJE,0) then :iflag*(YFZK_WFPJE-YFZK_YFPJE) ')
    else if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'Y' then
      SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and LT(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ')
    else
      SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and NE(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ');
    SQL.Add('    else 0 end +isnull(a.WJYSJE,0))  ');
    SQL.Add(' ,2)as PXJE ');
    SQL.Add(' from YFZK ');
    SQL.Add(' left join GYS on GYS_GYSID=YFZK_GYSID ');
    SQL.Add(' left join ( ');
    SQL.Add(' select FLNBH,sum(WJYSJE) as WJYSJE ');
    SQL.Add('from (');
    //应付账款
    if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'Y'  then
    begin
      SQL.Add(' select YFZK_FLNBH as FLNBH, ');
      SQL.Add('    round(sum(isnull(:iflag*-1*YFZKFP_FPJE,0)),2) as WJYSJE ');
      SQL.Add(' from YFZK ');
      SQL.Add(' left join GYS on GYS_GYSID=YFZK_GYSID ');
      SQL.Add(' ,YFZKFP ');
      SQL.Add(' where YFZK_FLNBH=YFZKFP_FLNBH1 ');
      if FXByJZRQ then
        SQL.Add('      and YFZKFP_JFJZRQ<=:pCKRQ and YFZKFP_DFJZRQ>:pCKRQ ')
      else
        SQL.Add('      and YFZKFP_JFYWRQ<=:pCKRQ and YFZKFP_DFYWRQ>:pCKRQ ');
      SQL.Add('        and ' + GetWhereEqual('YFZK_KJDWID', sKJDWs, True));
      SQL.Add('        and YFZK_YEAR=:pYEAR ');
      if trim(dmlCX_YFZLFXB_M.memTableHBID.AsString) <> '' then
      begin
        SQL.Add('      and YFZK_HBID= :pHBID ');
        ParamByName('pHBID').AsString := dmlCX_YFZLFXB_m.memTableHBID.AsString;
      end;
      if Trim(dmlCX_YFZLFXB_m.memTableGYSID.AsString) <> '' then
      begin
        SQL.Add('      and YFZK_GYSID= :pGYSID ');
        ParamByName('pGYSID').AsString := dmlCX_YFZLFXB_m.memTableGYSID.AsString;
      end;
      if Trim(dmlCX_YFZLFXB_m.memTableGYSFL.AsString) <> '' then
      begin
        SQL.Add(' and ' + GetWhereLead('GYS_FL', dmlCX_YFZLFXB_m.memTableGYSFL.AsString));
      end;
      if trim(dmlCX_YFZLFXB_m.memTableKMID.AsString) <> '' then
      begin
        SQL.Add(' and ' + GetWhereLead('YFZK_KMID', dmlCX_YFZLFXB_m.memTableKMID.AsString));
      end;
      if (Trim(dmlCX_YFZLFXB_m.memtableZRZXID.AsString) <> '') then
        SQL.Add('    and '+GetWhereEqual('YFZK_ZRZXID',dmlCX_YFZLFXB_m.memtableZRZXID.AsString));
      SQL.Add(' group by YFZK_FLNBH ');
    end
    //预付账款
    else if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'B'  then
    begin
      SQL.Add(' select YFZK_FLNBH as FLNBH, ');
      SQL.Add('    round(sum(isnull(-1*YFZKFP_FPJE,0)),2) as WJYSJE ');
      SQL.Add(' from YFZK ');
      SQL.Add(' left join GYS on GYS_GYSID=YFZK_GYSID ');
      SQL.Add(' ,YFZKFP ');
      SQL.Add(' where YFZK_FLNBH=YFZKFP_FLNBH2 ');
      if FXByJZRQ then
        SQL.Add('      and YFZKFP_JFJZRQ>:pCKRQ and YFZKFP_DFJZRQ<=:pCKRQ ')
      else
        SQL.Add('      and YFZKFP_JFYWRQ>:pCKRQ and YFZKFP_DFYWRQ<=:pCKRQ ');
      SQL.Add('        and ' + GetWhereEqual('YFZK_KJDWID', sKJDWs, True));
      SQL.Add('        and YFZK_YEAR=:pYEAR ');
      if trim(dmlCX_YFZLFXB_M.memTableHBID.AsString) <> '' then
      begin
        SQL.Add('      and YFZK_HBID= :pHBID ');
        ParamByName('pHBID').AsString := dmlCX_YFZLFXB_m.memTableHBID.AsString;
      end;
      if Trim(dmlCX_YFZLFXB_m.memTableGYSID.AsString) <> '' then
      begin
        SQL.Add('      and YFZK_GYSID= :pGYSID ');
        ParamByName('pGYSID').AsString := dmlCX_YFZLFXB_m.memTableGYSID.AsString;
      end;
      if Trim(dmlCX_YFZLFXB_m.memTableGYSFL.AsString) <> '' then
      begin
        SQL.Add(' and ' + GetWhereLead('GYS_FL', dmlCX_YFZLFXB_m.memTableGYSFL.AsString));
      end;
      if trim(dmlCX_YFZLFXB_m.memTableKMID.AsString) <> '' then
      begin
        SQL.Add(' and ' + GetWhereLead('YFZK_KMID', dmlCX_YFZLFXB_m.memTableKMID.AsString));
      end;
      if (Trim(dmlCX_YFZLFXB_m.memtableZRZXID.AsString) <> '') then
        SQL.Add('    and '+GetWhereEqual('YFZK_ZRZXID',dmlCX_YFZLFXB_m.memtableZRZXID.AsString));

      SQL.Add(' group by YFZK_FLNBH');
    end
    else
    begin
        //应付账款
        SQL.Add(' select YFZK_FLNBH as FLNBH, ');
        SQL.Add('    round(sum(isnull(:iflag*-1*YFZKFP_FPJE,0)),2) as WJYSJE ');
        SQL.Add(' from YFZK ');
        SQL.Add(' left join GYS on GYS_GYSID=YFZK_GYSID ');
        SQL.Add(' ,YFZKFP ');
        SQL.Add(' where YFZK_FLNBH=YFZKFP_FLNBH1 ');
        if FXByJZRQ then
          SQL.Add('      and YFZKFP_JFJZRQ<=:pCKRQ and YFZKFP_DFJZRQ>:pCKRQ ')
        else
          SQL.Add('      and YFZKFP_JFYWRQ<=:pCKRQ and YFZKFP_DFYWRQ>:pCKRQ ');
        SQL.Add('        and ' + GetWhereEqual('YFZK_KJDWID', sKJDWs, True));
        SQL.Add('        and YFZK_YEAR=:pYEAR ');
        if trim(dmlCX_YFZLFXB_M.memTableHBID.AsString) <> '' then
        begin
          SQL.Add('      and YFZK_HBID= :pHBID ');
          ParamByName('pHBID').AsString := dmlCX_YFZLFXB_m.memTableHBID.AsString;
        end;
        if Trim(dmlCX_YFZLFXB_m.memTableGYSID.AsString) <> '' then
        begin
          SQL.Add('      and YFZK_GYSID= :pGYSID ');
          ParamByName('pGYSID').AsString := dmlCX_YFZLFXB_m.memTableGYSID.AsString;
        end;
        if Trim(dmlCX_YFZLFXB_m.memTableGYSFL.AsString) <> '' then
        begin
          SQL.Add(' and ' + GetWhereLead('GYS_FL', dmlCX_YFZLFXB_m.memTableGYSFL.AsString));
        end;
        if trim(dmlCX_YFZLFXB_m.memTableKMID.AsString) <> '' then
        begin
          SQL.Add(' and ' + GetWhereLead('YFZK_KMID', dmlCX_YFZLFXB_m.memTableKMID.AsString));
        end;
        if (Trim(dmlCX_YFZLFXB_m.memtableZRZXID.AsString) <> '') then
          SQL.Add('    and '+GetWhereEqual('YFZK_ZRZXID',dmlCX_YFZLFXB_m.memtableZRZXID.AsString));
        SQL.Add(' group by YFZK_FLNBH ');
        SQL.Add(' union all ');
        //预付账款
        SQL.Add(' select YFZK_FLNBH as FLNBH, ');
        SQL.Add('    round(sum(isnull(:iflag*YFZKFP_FPJE,0)),2) as WJYSJE ');
        SQL.Add(' from YFZK ');
        SQL.Add(' left join GYS on GYS_GYSID=YFZK_GYSID ');
        SQL.Add(' ,YFZKFP ');
        SQL.Add(' where YFZK_FLNBH=YFZKFP_FLNBH2 ');
        if FXByJZRQ then
          SQL.Add('      and YFZKFP_JFJZRQ>:pCKRQ and YFZKFP_DFJZRQ<=:pCKRQ ')
        else
          SQL.Add('      and YFZKFP_JFYWRQ>:pCKRQ and YFZKFP_DFYWRQ<=:pCKRQ ');
        SQL.Add('        and ' + GetWhereEqual('YFZK_KJDWID', sKJDWs, True));
        SQL.Add('        and YFZK_YEAR=:pYEAR ');
        if trim(dmlCX_YFZLFXB_M.memTableHBID.AsString) <> '' then
        begin
          SQL.Add('      and YFZK_HBID= :pHBID ');
          ParamByName('pHBID').AsString := dmlCX_YFZLFXB_m.memTableHBID.AsString;
        end;
        if Trim(dmlCX_YFZLFXB_m.memTableGYSID.AsString) <> '' then
        begin
          SQL.Add('      and YFZK_GYSID= :pGYSID ');
          ParamByName('pGYSID').AsString := dmlCX_YFZLFXB_m.memTableGYSID.AsString;
        end;
        if Trim(dmlCX_YFZLFXB_m.memTableGYSFL.AsString) <> '' then
        begin
          SQL.Add(' and ' + GetWhereLead('GYS_FL', dmlCX_YFZLFXB_m.memTableGYSFL.AsString));
        end;
        if trim(dmlCX_YFZLFXB_m.memTableKMID.AsString) <> '' then
        begin
          SQL.Add(' and ' + GetWhereLead('YFZK_KMID', dmlCX_YFZLFXB_m.memTableKMID.AsString));
        end;
        if (Trim(dmlCX_YFZLFXB_m.memtableZRZXID.AsString) <> '') then
          SQL.Add('    and '+GetWhereEqual('YFZK_ZRZXID',dmlCX_YFZLFXB_m.memtableZRZXID.AsString));
        SQL.Add(' group by YFZK_FLNBH');
    end;

    SQL.Add(' )YFXX ');
    SQL.Add(' group by FLNBH ');

    SQL.Add(' )a on a.FLNBH=YFZK_FLNBH ');

    SQL.Add('       where 1=1 ');
    if FXByJZRQ then
      SQL.Add('      and YFZK_JZRQ<=:pCKRQ')
    else
      SQL.Add('      and YFZK_YWRQ<=:pCKRQ');
    SQL.ADD('       and ' + GetWhereEqual('YFZK_KJDWID', sKJDWs, True));
    SQL.Add('        and YFZK_YEAR=:pYEAR');
    if trim(dmlCX_YFZLFXB_M.memTableHBID.AsString) <> '' then
    begin
      SQL.Add('      and YFZK_HBID= :pHBID');
      ParamByName('pHBID').AsString := dmlCX_YFZLFXB_m.memTableHBID.AsString;
    end;
    if trim(dmlCX_YFZLFXB_m.memTableGYSID.AsString) <> '' then
    begin
      SQL.Add('      and YFZK_GYSID= :pGYSID');
      ParamByName('pGYSID').AsString := trim(dmlCX_YFZLFXB_m.memTableGYSID.AsString);
    end;
    if Trim(dmlCX_YFZLFXB_m.memTableGYSFL.AsString) <> '' then
    begin
      SQL.Add(' and ' + GetWhereLead('GYS_FL', dmlCX_YFZLFXB_m.memTableGYSFL.AsString));
    end;
    if trim(dmlCX_YFZLFXB_m.memTableKMID.AsString) <> '' then
    begin
      SQL.Add(' and ' + GetWhereLead('YFZK_KMID', dmlCX_YFZLFXB_m.memTableKMID.AsString));
    end;
    if (Trim(dmlCX_YFZLFXB_m.memtableZRZXID.AsString) <> '') then
      SQL.Add('    and '+GetWhereEqual('YFZK_ZRZXID',dmlCX_YFZLFXB_m.memtableZRZXID.AsString));
    SQL.Add(' group by YFZK_GYSID,GYS_MC ');
    if dmlCX_YFZLFXB_M.memTableFXDX.AsString='B' then       //借方有余额
    begin
      SQL.Add ('having LT(');
      SQL.Add('round(sum(           ');
      SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and GT(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ');
      SQL.Add('    else 0 end +isnull(a.WJYSJE,0))  ');
      SQL.Add(' ,2) ');
      SQL.Add('  ,0)');
    end
    else if dmlCX_YFZLFXB_M.memTableFXDX.AsString='Y' then  //贷方有余额
    begin
      SQL.Add ('having GT(');
      SQL.Add('round(sum(           ');
      SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and LT(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ');
      SQL.Add('    else 0 end +isnull(a.WJYSJE,0))  ');
      SQL.Add(' ,2) ');
      SQL.Add('  ,0)');
    end
    else
    begin
      SQL.Add ('having NE(');
      SQL.Add('round(sum(           ');
      SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and NE(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ');
      SQL.Add('    else 0 end +isnull(a.WJYSJE,0))  ');
      SQL.Add(' ,2) ');
      SQL.Add('  ,0)');
    end;
    if dmlCX_YFZLFXB_m.memTableSCMX.AsBoolean then
    begin
      SQL.Add(' union all ');
      //一次性查出各账龄期得值
      iLoop := 0;
      if FXByJZRQ then
      begin
         SQL.Add('select 0.0 as XH,2.0 as XH1,''N'' as FLAG,case when ltrim(rtrim(YFZK_GHFPID)) <> '''' then convert(char(10),YFZK_JZRQ)||''#''||YFZK_GHFPID else convert(char(10),YFZK_JZRQ) end  as GYS,YFZK_GYSID as GYSID,GYS_MC as GYSMC, ')
      end
      else
      begin
        SQL.Add('select 0.0 as XH,2.0 as XH1,''N'' as FLAG,case when ltrim(rtrim(YFZK_GHFPID)) <> '''' then convert(char(10),YFZK_YWRQ)||''#''||YFZK_GHFPID else convert(char(10),YFZK_YWRQ) end as GYS, ');
        SQL.Add('YFZK_GYSID as GYSID,GYS_MC as GYSMC, ');
      end;
      SQL.Add(' YFZK_ZY as ZY,YFZK_KJDWID as KJDW,YFZK_PZNBH as ZPZH, ');
      //循环账龄期
      qryZLQ.First;
      fPriZLQ := 0;
      while not qryZLQ.Eof do
      begin
        SQL.Add('round( ');
        if FXByJZRQ then
        begin
          if iLoop=0 then
            SQL.Add('  case when datediff(day,YFZK_JZRQ,:pCKRQ)<='+FloatToStr(qryZLQSFZLQ_ZLQ.AsFloat)+' then ')
          else
            SQL.Add('  case when datediff(day,YFZK_JZRQ,:pCKRQ)>'+FloatToStr(fPriZLQ)+'  and datediff(day,YFZK_JZRQ,:pCKRQ)<='+FloatToStr(qryZLQSFZLQ_ZLQ.AsFloat)+' then ');
        end
        else
        begin
          if iLoop=0 then
            SQL.Add('  case when datediff(day,YFZK_YWRQ,:pCKRQ)<='+FloatToStr(qryZLQSFZLQ_ZLQ.AsFloat)+' then ')
          else
            SQL.Add('  case when datediff(day,YFZK_YWRQ,:pCKRQ)>'+FloatToStr(fPriZLQ)+'  and datediff(day,YFZK_YWRQ,:pCKRQ)<='+FloatToStr(qryZLQSFZLQ_ZLQ.AsFloat)+' then ');
        end;
        if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'B' then
          SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and GT(YFZK_WFPJE,0) then :iflag*(YFZK_WFPJE-YFZK_YFPJE) ')
        else if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'Y' then
          SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and LT(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ')
        else
          SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and NE(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ');
        SQL.Add('    else 0 end + isnull(a.WJYSJE,0) ');
        SQL.Add('  else 0 end ');
        SQL.Add(',2)  as ZLQ'+FloatToStr(iLoop) +',');

        //计算比例:各账龄期除以合计
        SQL.Add('case  ');
        SQL.Add('round(       ');
//        SQL.Add('sum( ');
        if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'B' then
          SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and GT(YFZK_WFPJE,0) then :iflag*(YFZK_WFPJE-YFZK_YFPJE) ')
        else if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'Y' then
          SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and LT(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ')
        else
          SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and NE(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ');
        SQL.Add('    else 0 end +isnull(a.WJYSJE,0)  ');
        SQL.Add(' ,2) ' );
        SQL.Add(' when 0 then 0 else ');

        SQL.Add('round((round( ');
        if FXByJZRQ then
        begin
          if iLoop=0 then
            SQL.Add('  case when datediff(day,YFZK_JZRQ,:pCKRQ)<='+FloatToStr(qryZLQSFZLQ_ZLQ.AsFloat)+' then ')
          else
            SQL.Add('  case when datediff(day,YFZK_JZRQ,:pCKRQ)>'+FloatToStr(fPriZLQ)+' and datediff(day,YFZK_JZRQ,:pCKRQ)<= '+FloatToStr(qryZLQSFZLQ_ZLQ.AsFloat)+' then ');
        end
        else
        begin
          if iLoop=0 then
            SQL.Add('  case when datediff(day,YFZK_YWRQ,:pCKRQ)<='+FloatToStr(qryZLQSFZLQ_ZLQ.AsFloat)+' then ')
          else
            SQL.Add('  case when datediff(day,YFZK_YWRQ,:pCKRQ)>'+FloatToStr(fPriZLQ)+' and datediff(day,YFZK_YWRQ,:pCKRQ)<= '+FloatToStr(qryZLQSFZLQ_ZLQ.AsFloat)+' then ');
        end;
        if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'B' then
          SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and GT(YFZK_WFPJE,0) then :iflag*(YFZK_WFPJE-YFZK_YFPJE) ')
        else if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'Y' then
          SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and LT(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ')
        else
          SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and NE(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ');
        SQL.Add('    else 0 end + isnull(a.WJYSJE,0) ');
        SQL.Add('  else 0 end ');
        SQL.Add(',2)');
        SQL.Add(' /');
        SQL.Add('round(       ');
//        SQL.Add('sum( ');
        if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'B' then
          SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and GT(YFZK_WFPJE,0) then :iflag*(YFZK_WFPJE-YFZK_YFPJE) ')
        else if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'Y' then
          SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and LT(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ')
        else
          SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and NE(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ');
        SQL.Add('    else 0 end +isnull(a.WJYSJE,0)  ');
        SQL.Add(' ,2))*100,2) end as BL'+FloatToStr(iLoop) +',' );

        fPriZLQ  := qryZLQSFZLQ_ZLQ.AsFloat;
        inc(iLoop);
        qryZLQ.Next;
      end;
      //收款期内金额
      SQL.Add('round(   ');
      SQL.Add('  case       ');
      SQL.Add('  when datediff(day,YFZK_DQRQ,:pCKRQ)>=0 then ');
      if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'B' then
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and GT(YFZK_WFPJE,0) then :iflag*(YFZK_WFPJE-YFZK_YFPJE) ')
      else if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'Y' then
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and LT(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ')
      else
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and NE(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ');
      SQL.Add('    else 0 end                                                                               ');
      SQL.Add('    +isnull(a.WJYSJE,0)                                                                      ');
      SQL.Add(' else 0 end                                                                                  ');
      SQL.Add(',2) as XYQN,    ');

          //收款期外金额
      SQL.Add('round(   ');
      SQL.Add('  case       ');
      SQL.Add('  when datediff(day,YFZK_DQRQ,:pCKRQ)<0 then ');
      if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'B' then
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and GT(YFZK_WFPJE,0) then :iflag*(YFZK_WFPJE-YFZK_YFPJE) ')
      else if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'Y' then
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and LT(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ')
      else
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and NE(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ');
      SQL.Add('    else 0 end                                                                               ');
      SQL.Add('    +isnull(a.WJYSJE,0)                                                                      ');
      SQL.Add(' else 0 end                                                                                 ');
      SQL.Add(',2) as XYQW,    ');
      //取出总的金额
      SQL.Add('round(       ');
      if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'B' then
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and GT(YFZK_WFPJE,0) then :iflag*(YFZK_WFPJE-YFZK_YFPJE) ')
      else if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'Y' then
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and LT(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ')
      else
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and NE(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ');
      SQL.Add('    else 0 end +isnull(a.WJYSJE,0)  ');
      SQL.Add(' ,2)as HJ, ');
      SQL.Add('  PX.PXJE as PXJE ');
      SQL.Add(' from YFZK ');
      SQL.Add(' left join GYS on GYS_GYSID=YFZK_GYSID ');
      SQL.Add(' left join ( ');
      SQL.Add(' select FLNBH,sum(WJYSJE) as WJYSJE ');
      SQL.Add('from (');
          //应付账款
      if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'Y'  then
      begin
        SQL.Add(' select YFZK_FLNBH as FLNBH, ');
        SQL.Add('    round(sum(isnull(:iflag*-1*YFZKFP_FPJE,0)),2) as WJYSJE ');
        SQL.Add(' from YFZK ');
        SQL.Add(' left join GYS on GYS_GYSID=YFZK_GYSID ');
        SQL.Add(' ,YFZKFP ');
        SQL.Add(' where YFZK_FLNBH=YFZKFP_FLNBH1 ');
        if FXByJZRQ then
          SQL.Add('      and YFZKFP_JFJZRQ<=:pCKRQ and YFZKFP_DFJZRQ>:pCKRQ ')
        else
          SQL.Add('      and YFZKFP_JFYWRQ<=:pCKRQ and YFZKFP_DFYWRQ>:pCKRQ ');
        SQL.Add('        and ' + GetWhereEqual('YFZK_KJDWID', sKJDWs, True));
        SQL.Add('        and YFZK_YEAR=:pYEAR ');
        if trim(dmlCX_YFZLFXB_M.memTableHBID.AsString) <> '' then
        begin
          SQL.Add('      and YFZK_HBID= :pHBID ');
          ParamByName('pHBID').AsString := dmlCX_YFZLFXB_m.memTableHBID.AsString;
        end;
        if Trim(dmlCX_YFZLFXB_m.memTableGYSID.AsString) <> '' then
        begin
          SQL.Add('      and YFZK_GYSID= :pGYSID ');
          ParamByName('pGYSID').AsString := dmlCX_YFZLFXB_m.memTableGYSID.AsString;
        end;
        if Trim(dmlCX_YFZLFXB_m.memTableGYSFL.AsString) <> '' then
        begin
          SQL.Add(' and ' + GetWhereLead('GYS_FL', dmlCX_YFZLFXB_m.memTableGYSFL.AsString));
        end;
        if trim(dmlCX_YFZLFXB_m.memTableKMID.AsString) <> '' then
        begin
          SQL.Add(' and ' + GetWhereLead('YFZK_KMID', dmlCX_YFZLFXB_m.memTableKMID.AsString));
        end;
        if (Trim(dmlCX_YFZLFXB_m.memtableZRZXID.AsString) <> '') then
          SQL.Add('    and '+GetWhereEqual('YFZK_ZRZXID',dmlCX_YFZLFXB_m.memtableZRZXID.AsString));
        SQL.Add(' group by YFZK_FLNBH ');
      end
      //预付账款
      else if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'B'  then
      begin
        SQL.Add(' select YFZK_FLNBH as FLNBH, ');
        SQL.Add('    round(sum(isnull(:iflag*YFZKFP_FPJE,0)),2) as WJYSJE ');
        SQL.Add(' from YFZK ');
        SQL.Add(' left join GYS on GYS_GYSID=YFZK_GYSID ');
        SQL.Add(' ,YFZKFP ');
        SQL.Add(' where YFZK_FLNBH=YFZKFP_FLNBH2 ');
        if FXByJZRQ then
          SQL.Add('      and YFZKFP_JFJZRQ>:pCKRQ and YFZKFP_DFJZRQ<=:pCKRQ ')
        else
          SQL.Add('      and YFZKFP_JFYWRQ>:pCKRQ and YFZKFP_DFYWRQ<=:pCKRQ ');
        SQL.Add('        and ' + GetWhereEqual('YFZK_KJDWID', sKJDWs, True));
        SQL.Add('        and YFZK_YEAR=:pYEAR ');
        if trim(dmlCX_YFZLFXB_M.memTableHBID.AsString) <> '' then
        begin
          SQL.Add('      and YFZK_HBID= :pHBID ');
          ParamByName('pHBID').AsString := dmlCX_YFZLFXB_m.memTableHBID.AsString;
        end;
        if Trim(dmlCX_YFZLFXB_m.memTableGYSID.AsString) <> '' then
        begin
          SQL.Add('      and YFZK_GYSID= :pGYSID ');
          ParamByName('pGYSID').AsString := dmlCX_YFZLFXB_m.memTableGYSID.AsString;
        end;
        if Trim(dmlCX_YFZLFXB_m.memTableGYSFL.AsString) <> '' then
        begin
          SQL.Add(' and ' + GetWhereLead('GYS_FL', dmlCX_YFZLFXB_m.memTableGYSFL.AsString));
        end;
        if trim(dmlCX_YFZLFXB_m.memTableKMID.AsString) <> '' then
        begin
          SQL.Add(' and ' + GetWhereLead('YFZK_KMID', dmlCX_YFZLFXB_m.memTableKMID.AsString));
        end;
        if (Trim(dmlCX_YFZLFXB_m.memtableZRZXID.AsString) <> '') then
          SQL.Add('    and '+GetWhereEqual('YFZK_ZRZXID',dmlCX_YFZLFXB_m.memtableZRZXID.AsString));

        SQL.Add(' group by YFZK_FLNBH');
      end
      else
      begin
          //应付账款
        SQL.Add(' select YFZK_FLNBH as FLNBH, ');
        SQL.Add('    round(sum(isnull(:iflag*-1*YFZKFP_FPJE,0)),2) as WJYSJE ');
        SQL.Add(' from YFZK ');
        SQL.Add(' left join GYS on GYS_GYSID=YFZK_GYSID ');
        SQL.Add(' ,YFZKFP ');
        SQL.Add(' where YFZK_FLNBH=YFZKFP_FLNBH1 ');
        if FXByJZRQ then
          SQL.Add('      and YFZKFP_JFJZRQ<=:pCKRQ and YFZKFP_DFJZRQ>:pCKRQ ')
        else
          SQL.Add('      and YFZKFP_JFYWRQ<=:pCKRQ and YFZKFP_DFYWRQ>:pCKRQ ');
        SQL.Add('        and ' + GetWhereEqual('YFZK_KJDWID', sKJDWs, True));
        SQL.Add('        and YFZK_YEAR=:pYEAR ');
        if trim(dmlCX_YFZLFXB_M.memTableHBID.AsString) <> '' then
        begin
          SQL.Add('      and YFZK_HBID= :pHBID ');
          ParamByName('pHBID').AsString := dmlCX_YFZLFXB_m.memTableHBID.AsString;
        end;
        if Trim(dmlCX_YFZLFXB_m.memTableGYSID.AsString) <> '' then
        begin
          SQL.Add('      and YFZK_GYSID= :pGYSID ');
          ParamByName('pGYSID').AsString := dmlCX_YFZLFXB_m.memTableGYSID.AsString;
        end;
        if Trim(dmlCX_YFZLFXB_m.memTableGYSFL.AsString) <> '' then
        begin
          SQL.Add(' and ' + GetWhereLead('GYS_FL', dmlCX_YFZLFXB_m.memTableGYSFL.AsString));
        end;
        if trim(dmlCX_YFZLFXB_m.memTableKMID.AsString) <> '' then
        begin
          SQL.Add(' and ' + GetWhereLead('YFZK_KMID', dmlCX_YFZLFXB_m.memTableKMID.AsString));
        end;
        if (Trim(dmlCX_YFZLFXB_m.memtableZRZXID.AsString) <> '') then
          SQL.Add('    and '+GetWhereEqual('YFZK_ZRZXID',dmlCX_YFZLFXB_m.memtableZRZXID.AsString));
        SQL.Add(' group by YFZK_FLNBH ');
        SQL.Add(' union all ');
          //预付账款
        SQL.Add(' select YFZK_FLNBH as FLNBH, ');
        SQL.Add('    round(sum(isnull(:iflag*YFZKFP_FPJE,0)),2) as WJYSJE ');
        SQL.Add(' from YFZK ');
        SQL.Add(' left join GYS on GYS_GYSID=YFZK_GYSID ');
        SQL.Add(' ,YFZKFP ');
        SQL.Add(' where YFZK_FLNBH=YFZKFP_FLNBH2 ');
        if FXByJZRQ then
          SQL.Add('      and YFZKFP_JFJZRQ>:pCKRQ and YFZKFP_DFJZRQ<=:pCKRQ ')
        else
          SQL.Add('      and YFZKFP_JFYWRQ>:pCKRQ and YFZKFP_DFYWRQ<=:pCKRQ ');
        SQL.Add('        and ' + GetWhereEqual('YFZK_KJDWID', sKJDWs, True));
        SQL.Add('        and YFZK_YEAR=:pYEAR ');
        if trim(dmlCX_YFZLFXB_M.memTableHBID.AsString) <> '' then
        begin
          SQL.Add('      and YFZK_HBID= :pHBID ');
          ParamByName('pHBID').AsString := dmlCX_YFZLFXB_m.memTableHBID.AsString;
        end;
        if Trim(dmlCX_YFZLFXB_m.memTableGYSID.AsString) <> '' then
        begin
          SQL.Add('      and YFZK_GYSID= :pGYSID ');
          ParamByName('pGYSID').AsString := dmlCX_YFZLFXB_m.memTableGYSID.AsString;
        end;
        if Trim(dmlCX_YFZLFXB_m.memTableGYSFL.AsString) <> '' then
        begin
          SQL.Add(' and ' + GetWhereLead('GYS_FL', dmlCX_YFZLFXB_m.memTableGYSFL.AsString));
        end;
        if trim(dmlCX_YFZLFXB_m.memTableKMID.AsString) <> '' then
        begin
          SQL.Add(' and ' + GetWhereLead('YFZK_KMID', dmlCX_YFZLFXB_m.memTableKMID.AsString));
        end;
        if (Trim(dmlCX_YFZLFXB_m.memtableZRZXID.AsString) <> '') then
          SQL.Add('    and '+GetWhereEqual('YFZK_ZRZXID',dmlCX_YFZLFXB_m.memtableZRZXID.AsString));
        SQL.Add(' group by YFZK_FLNBH');
      end;

      SQL.Add(' )YFXX ');
      SQL.Add(' group by FLNBH ');

      SQL.Add(' )a on a.FLNBH=YFZK_FLNBH ');
      SQL.Add(' left join (');
      //用于查询出总金额后，支持按金额大小排序
      SQL.Add('select YFZK_GYSID as GYSID, ');
      //取出总的金额
      SQL.Add('round(       ');
      SQL.Add('sum( ');
      if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'B' then
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and GT(YFZK_WFPJE,0) then :iflag*(YFZK_WFPJE-YFZK_YFPJE) ')
      else if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'Y' then
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and LT(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ')
      else
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and NE(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ');
      SQL.Add('    else 0 end +isnull(a.WJYSJE,0))  ');
      SQL.Add(' ,2)as PXJE ');
      SQL.Add(' from YFZK ');
      SQL.Add(' left join GYS on GYS_GYSID=YFZK_GYSID ');
      SQL.Add(' left join ( ');
      SQL.Add(' select FLNBH,sum(WJYSJE) as WJYSJE ');
      SQL.Add('from (');
          //应付账款
      if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'Y'  then
      begin
        SQL.Add(' select YFZK_FLNBH as FLNBH, ');
        SQL.Add('    round(sum(isnull(:iflag*-1*YFZKFP_FPJE,0)),2) as WJYSJE ');
        SQL.Add(' from YFZK ');
        SQL.Add(' left join GYS on GYS_GYSID=YFZK_GYSID ');
        SQL.Add(' ,YFZKFP ');
        SQL.Add(' where YFZK_FLNBH=YFZKFP_FLNBH1 ');
        if FXByJZRQ then
          SQL.Add('      and YFZKFP_JFJZRQ<=:pCKRQ and YFZKFP_DFJZRQ>:pCKRQ ')
        else
          SQL.Add('      and YFZKFP_JFYWRQ<=:pCKRQ and YFZKFP_DFYWRQ>:pCKRQ ');
        SQL.Add('        and ' + GetWhereEqual('YFZK_KJDWID', sKJDWs, True));
        SQL.Add('        and YFZK_YEAR=:pYEAR ');
        if trim(dmlCX_YFZLFXB_M.memTableHBID.AsString) <> '' then
        begin
          SQL.Add('      and YFZK_HBID= :pHBID ');
          ParamByName('pHBID').AsString := dmlCX_YFZLFXB_m.memTableHBID.AsString;
        end;
        if Trim(dmlCX_YFZLFXB_m.memTableGYSID.AsString) <> '' then
        begin
          SQL.Add('      and YFZK_GYSID= :pGYSID ');
          ParamByName('pGYSID').AsString := dmlCX_YFZLFXB_m.memTableGYSID.AsString;
        end;
        if Trim(dmlCX_YFZLFXB_m.memTableGYSFL.AsString) <> '' then
        begin
          SQL.Add(' and ' + GetWhereLead('GYS_FL', dmlCX_YFZLFXB_m.memTableGYSFL.AsString));
        end;
        if trim(dmlCX_YFZLFXB_m.memTableKMID.AsString) <> '' then
        begin
          SQL.Add(' and ' + GetWhereLead('YFZK_KMID', dmlCX_YFZLFXB_m.memTableKMID.AsString));
        end;
        if (Trim(dmlCX_YFZLFXB_m.memtableZRZXID.AsString) <> '') then
          SQL.Add('    and '+GetWhereEqual('YFZK_ZRZXID',dmlCX_YFZLFXB_m.memtableZRZXID.AsString));
        SQL.Add(' group by YFZK_FLNBH ');
      end
      //预付账款
      else if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'B'  then
      begin
        SQL.Add(' select YFZK_FLNBH as FLNBH, ');
        SQL.Add('    round(sum(isnull(:iflag*YFZKFP_FPJE,0)),2) as WJYSJE ');
        SQL.Add(' from YFZK ');
        SQL.Add(' left join GYS on GYS_GYSID=YFZK_GYSID ');
        SQL.Add(' ,YFZKFP ');
        SQL.Add(' where YFZK_FLNBH=YFZKFP_FLNBH2 ');
        if FXByJZRQ then
          SQL.Add('      and YFZKFP_JFJZRQ>:pCKRQ and YFZKFP_DFJZRQ<=:pCKRQ ')
        else
          SQL.Add('      and YFZKFP_JFYWRQ>:pCKRQ and YFZKFP_DFYWRQ<=:pCKRQ ');
        SQL.Add('        and ' + GetWhereEqual('YFZK_KJDWID', sKJDWs, True));
        SQL.Add('        and YFZK_YEAR=:pYEAR ');
        if trim(dmlCX_YFZLFXB_M.memTableHBID.AsString) <> '' then
        begin
          SQL.Add('      and YFZK_HBID= :pHBID ');
          ParamByName('pHBID').AsString := dmlCX_YFZLFXB_m.memTableHBID.AsString;
        end;
        if Trim(dmlCX_YFZLFXB_m.memTableGYSID.AsString) <> '' then
        begin
          SQL.Add('      and YFZK_GYSID= :pGYSID ');
          ParamByName('pGYSID').AsString := dmlCX_YFZLFXB_m.memTableGYSID.AsString;
        end;
        if Trim(dmlCX_YFZLFXB_m.memTableGYSFL.AsString) <> '' then
        begin
          SQL.Add(' and ' + GetWhereLead('GYS_FL', dmlCX_YFZLFXB_m.memTableGYSFL.AsString));
        end;
        if trim(dmlCX_YFZLFXB_m.memTableKMID.AsString) <> '' then
        begin
          SQL.Add(' and ' + GetWhereLead('YFZK_KMID', dmlCX_YFZLFXB_m.memTableKMID.AsString));
        end;
        if (Trim(dmlCX_YFZLFXB_m.memtableZRZXID.AsString) <> '') then
          SQL.Add('    and '+GetWhereEqual('YFZK_ZRZXID',dmlCX_YFZLFXB_m.memtableZRZXID.AsString));

        SQL.Add(' group by YFZK_FLNBH');
      end
      else
      begin
          //应付账款
        SQL.Add(' select YFZK_FLNBH as FLNBH, ');
        SQL.Add('    round(sum(isnull(:iflag*-1*YFZKFP_FPJE,0)),2) as WJYSJE ');
        SQL.Add(' from YFZK ');
        SQL.Add(' left join GYS on GYS_GYSID=YFZK_GYSID ');
        SQL.Add(' ,YFZKFP ');
        SQL.Add(' where YFZK_FLNBH=YFZKFP_FLNBH1 ');
        if FXByJZRQ then
          SQL.Add('      and YFZKFP_JFJZRQ<=:pCKRQ and YFZKFP_DFJZRQ>:pCKRQ ')
        else
          SQL.Add('      and YFZKFP_JFYWRQ<=:pCKRQ and YFZKFP_DFYWRQ>:pCKRQ ');
        SQL.Add('        and ' + GetWhereEqual('YFZK_KJDWID', sKJDWs, True));
        SQL.Add('        and YFZK_YEAR=:pYEAR ');
        if trim(dmlCX_YFZLFXB_M.memTableHBID.AsString) <> '' then
        begin
          SQL.Add('      and YFZK_HBID= :pHBID ');
          ParamByName('pHBID').AsString := dmlCX_YFZLFXB_m.memTableHBID.AsString;
        end;
        if Trim(dmlCX_YFZLFXB_m.memTableGYSID.AsString) <> '' then
        begin
          SQL.Add('      and YFZK_GYSID= :pGYSID ');
          ParamByName('pGYSID').AsString := dmlCX_YFZLFXB_m.memTableGYSID.AsString;
        end;
        if Trim(dmlCX_YFZLFXB_m.memTableGYSFL.AsString) <> '' then
        begin
          SQL.Add(' and ' + GetWhereLead('GYS_FL', dmlCX_YFZLFXB_m.memTableGYSFL.AsString));
        end;
        if trim(dmlCX_YFZLFXB_m.memTableKMID.AsString) <> '' then
        begin
          SQL.Add(' and ' + GetWhereLead('YFZK_KMID', dmlCX_YFZLFXB_m.memTableKMID.AsString));
        end;
        if (Trim(dmlCX_YFZLFXB_m.memtableZRZXID.AsString) <> '') then
          SQL.Add('    and '+GetWhereEqual('YFZK_ZRZXID',dmlCX_YFZLFXB_m.memtableZRZXID.AsString));
        SQL.Add(' group by YFZK_FLNBH ');
        SQL.Add(' union all ');
          //预付账款
        SQL.Add(' select YFZK_FLNBH as FLNBH, ');
        SQL.Add('    round(sum(isnull(:iflag*YFZKFP_FPJE,0)),2) as WJYSJE ');
        SQL.Add(' from YFZK ');
        SQL.Add(' left join GYS on GYS_GYSID=YFZK_GYSID ');
        SQL.Add(' ,YFZKFP ');
        SQL.Add(' where YFZK_FLNBH=YFZKFP_FLNBH2 ');
        if FXByJZRQ then
          SQL.Add('      and YFZKFP_JFJZRQ>:pCKRQ and YFZKFP_DFJZRQ<=:pCKRQ ')
        else
          SQL.Add('      and YFZKFP_JFYWRQ>:pCKRQ and YFZKFP_DFYWRQ<=:pCKRQ ');
        SQL.Add('        and ' + GetWhereEqual('YFZK_KJDWID', sKJDWs, True));
        SQL.Add('        and YFZK_YEAR=:pYEAR ');
        if trim(dmlCX_YFZLFXB_M.memTableHBID.AsString) <> '' then
        begin
          SQL.Add('      and YFZK_HBID= :pHBID ');
          ParamByName('pHBID').AsString := dmlCX_YFZLFXB_m.memTableHBID.AsString;
        end;
        if Trim(dmlCX_YFZLFXB_m.memTableGYSID.AsString) <> '' then
        begin
          SQL.Add('      and YFZK_GYSID= :pGYSID ');
          ParamByName('pGYSID').AsString := dmlCX_YFZLFXB_m.memTableGYSID.AsString;
        end;
        if Trim(dmlCX_YFZLFXB_m.memTableGYSFL.AsString) <> '' then
        begin
          SQL.Add(' and ' + GetWhereLead('GYS_FL', dmlCX_YFZLFXB_m.memTableGYSFL.AsString));
        end;
        if trim(dmlCX_YFZLFXB_m.memTableKMID.AsString) <> '' then
        begin
          SQL.Add(' and ' + GetWhereLead('YFZK_KMID', dmlCX_YFZLFXB_m.memTableKMID.AsString));
        end;
        if (Trim(dmlCX_YFZLFXB_m.memtableZRZXID.AsString) <> '') then
          SQL.Add('    and '+GetWhereEqual('YFZK_ZRZXID',dmlCX_YFZLFXB_m.memtableZRZXID.AsString));
        SQL.Add(' group by YFZK_FLNBH');
      end;

      SQL.Add(' )YFXX ');
      SQL.Add(' group by FLNBH ');

      SQL.Add(' )a on a.FLNBH=YFZK_FLNBH ');

      SQL.Add('       where 1=1 ');
      if FXByJZRQ then
        SQL.Add('      and YFZK_JZRQ<=:pCKRQ')
      else
        SQL.Add('      and YFZK_YWRQ<=:pCKRQ');
      SQL.ADD('       and ' + GetWhereEqual('YFZK_KJDWID', sKJDWs, True));
      SQL.Add('        and YFZK_YEAR=:pYEAR');
      if trim(dmlCX_YFZLFXB_M.memTableHBID.AsString) <> '' then
      begin
        SQL.Add('      and YFZK_HBID= :pHBID');
        ParamByName('pHBID').AsString := dmlCX_YFZLFXB_m.memTableHBID.AsString;
      end;
      if trim(dmlCX_YFZLFXB_m.memTableGYSID.AsString) <> '' then
      begin
        SQL.Add('      and YFZK_GYSID= :pGYSID');
        ParamByName('pGYSID').AsString := trim(dmlCX_YFZLFXB_m.memTableGYSID.AsString);
      end;
      if Trim(dmlCX_YFZLFXB_m.memTableGYSFL.AsString) <> '' then
      begin
        SQL.Add(' and ' + GetWhereLead('GYS_FL', dmlCX_YFZLFXB_m.memTableGYSFL.AsString));
      end;
      if trim(dmlCX_YFZLFXB_m.memTableKMID.AsString) <> '' then
      begin
        SQL.Add(' and ' + GetWhereLead('YFZK_KMID', dmlCX_YFZLFXB_m.memTableKMID.AsString));
      end;
      if (Trim(dmlCX_YFZLFXB_m.memtableZRZXID.AsString) <> '') then
          SQL.Add('    and '+GetWhereEqual('YFZK_ZRZXID',dmlCX_YFZLFXB_m.memtableZRZXID.AsString));
      SQL.Add(' group by YFZK_GYSID ');
      if dmlCX_YFZLFXB_M.memTableFXDX.AsString='B' then       //借方有余额
      begin
        SQL.Add ('having LT(');
        SQL.Add('round(sum(           ');
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and GT(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ');
        SQL.Add('    else 0 end +isnull(a.WJYSJE,0))  ');
        SQL.Add(' ,2) ');
        SQL.Add('  ,0)');
      end
      else if dmlCX_YFZLFXB_M.memTableFXDX.AsString='Y' then  //贷方有余额
      begin
        SQL.Add ('having GT(');
        SQL.Add('round(sum(           ');
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and LT(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ');
        SQL.Add('    else 0 end +isnull(a.WJYSJE,0))  ');
        SQL.Add(' ,2) ');
        SQL.Add('  ,0)');
      end
      else
      begin
        SQL.Add ('having NE(');
        SQL.Add('round(sum(           ');
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and NE(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ');
        SQL.Add('    else 0 end +isnull(a.WJYSJE,0))  ');
        SQL.Add(' ,2) ');
        SQL.Add('  ,0)');
      end;
      //排序金额统计完成
      SQL.Add(' )PX on PX.GYSID = YFZK_GYSID ');
      SQL.Add('       where 1=1 ');
      if FXByJZRQ then
        SQL.Add('      and YFZK_JZRQ<=:pCKRQ')
      else
        SQL.Add('      and YFZK_YWRQ<=:pCKRQ');
      SQL.ADD('       and ' + GetWhereEqual('YFZK_KJDWID', sKJDWs, True));
      SQL.Add('        and YFZK_YEAR=:pYEAR');
      if trim(dmlCX_YFZLFXB_M.memTableHBID.AsString) <> '' then
      begin
        SQL.Add('      and YFZK_HBID= :pHBID');
        ParamByName('pHBID').AsString := dmlCX_YFZLFXB_m.memTableHBID.AsString;
      end;
      if trim(dmlCX_YFZLFXB_m.memTableGYSID.AsString) <> '' then
      begin
        SQL.Add('      and YFZK_GYSID= :pGYSID');
        ParamByName('pGYSID').AsString := trim(dmlCX_YFZLFXB_m.memTableGYSID.AsString);
      end;
      if Trim(dmlCX_YFZLFXB_m.memTableGYSFL.AsString) <> '' then
      begin
        SQL.Add(' and ' + GetWhereLead('GYS_FL', dmlCX_YFZLFXB_m.memTableGYSFL.AsString));
      end;
      if trim(dmlCX_YFZLFXB_m.memTableKMID.AsString) <> '' then
      begin
        SQL.Add(' and ' + GetWhereLead('YFZK_KMID', dmlCX_YFZLFXB_m.memTableKMID.AsString));
      end;
      if (Trim(dmlCX_YFZLFXB_m.memtableZRZXID.AsString) <> '') then
        SQL.Add('    and '+GetWhereEqual('YFZK_ZRZXID',dmlCX_YFZLFXB_m.memtableZRZXID.AsString));
      if dmlCX_YFZLFXB_M.memTableFXDX.AsString='B' then       //借方有余额
      begin
        SQL.Add(' and LT(round(       ');
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and GT(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ');
        SQL.Add('    else 0 end +isnull(a.WJYSJE,0)  ');
        SQL.Add(' ,2),0)');
      end
      else if dmlCX_YFZLFXB_M.memTableFXDX.AsString='Y' then  //贷方有余额
      begin
        SQL.Add(' and GT(round(       ');
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and LT(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ');
        SQL.Add('    else 0 end +isnull(a.WJYSJE,0)  ');
        SQL.Add(' ,2),0)');
      end
      else
      begin
        SQL.Add(' and NE(round(       ');
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and NE(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ');
        SQL.Add('    else 0 end +isnull(a.WJYSJE,0)  ');
        SQL.Add(' ,2),0)');
      end;
    end;
    SQL.Add(' union all ');
    iLoop := 0;
    SQL.Add('select 3.0 as XH,3.0 as XH1,''H'' as FLAG,''合计'' as GYS,'' '' as GYSID,'' '' as GYSMC, ');
    SQL.Add(' '' '' as ZY,'' '' as KJDW,0.0 as ZPZH, ');
    //循环账龄期
    qryZLQ.First;
    while not qryZLQ.Eof do
    begin
      SQL.Add('round(sum(ZLQ'+FloatToStr(iLoop)+'),2) as ZLQ'+FloatToStr(iLoop) +',');
      //计算比例:各账龄期除以合计
      SQL.Add('round(round(sum(ZLQ'+FloatToStr(iLoop)+'),2)/');
      SQL.Add('round(sum(HJ),2)*100.0,2) as BL'+FloatToStr(iLoop) +',');
      inc(iLoop);
      qryZLQ.Next;
    end;
    //收款期内金额
    SQL.Add('round(sum(XYQN),2) as XYQN,    ');
    //收款期外金额
    SQL.Add('round(sum(XYQW),2) as XYQW,    ');
    //取出总的金额
    SQL.Add('round(sum(HJ),2) as HJ,       ');
    SQL.Add(' 0 as PXJE');
    SQL.Add(' from (');

    SQL.Add('select 3.0 as XH,3.0 as XH1,''H'' as FLAG,''合计'' as GYS,YFZK_GYSID as GYSID,'' '' as GYSMC, ');
    SQL.Add(' '' '' as ZY,'' '' as KJDW,0.0 as ZPZH, ');
    //循环账龄期
    qryZLQ.First;
    fPriZLQ := 0;
    iLoop := 0;
    while not qryZLQ.Eof do
    begin
      SQL.Add('round( ');
      SQL.Add('sum(' );
      if FXByJZRQ then
      begin
        if iLoop=0 then
          SQL.Add('  case when datediff(day,YFZK_JZRQ,:pCKRQ)<='+FloatToStr(qryZLQSFZLQ_ZLQ.AsFloat)+' then ')
        else
          SQL.Add('  case when datediff(day,YFZK_JZRQ,:pCKRQ)>'+FloatToStr(fPriZLQ)+'  and datediff(day,YFZK_JZRQ,:pCKRQ)<='+FloatToStr(qryZLQSFZLQ_ZLQ.AsFloat)+' then ');
      end
      else
      begin
        if iLoop=0 then
          SQL.Add('  case when datediff(day,YFZK_YWRQ,:pCKRQ)<='+FloatToStr(qryZLQSFZLQ_ZLQ.AsFloat)+' then ')
        else
          SQL.Add('  case when datediff(day,YFZK_YWRQ,:pCKRQ)>'+FloatToStr(fPriZLQ)+'  and datediff(day,YFZK_YWRQ,:pCKRQ)<='+FloatToStr(qryZLQSFZLQ_ZLQ.AsFloat)+' then ');
      end;
      if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'B' then
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and GT(YFZK_WFPJE,0) then :iflag*(YFZK_WFPJE-YFZK_YFPJE) ')
      else if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'Y' then
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and LT(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ')
      else
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and NE(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ');
      SQL.Add('    else 0 end + isnull(a.WJYSJE,0) ');
      SQL.Add('  else 0 end) ');
      SQL.Add(',2)  as ZLQ'+FloatToStr(iLoop) +',');

      //计算比例:各账龄期除以合计
      SQL.Add('case  ');
      SQL.Add('round(       ');
      SQL.Add('sum( ');
      if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'B' then
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and GT(YFZK_WFPJE,0) then :iflag*(YFZK_WFPJE-YFZK_YFPJE) ')
      else if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'Y' then
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and LT(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ')
      else
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and NE(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ');
      SQL.Add('    else 0 end +isnull(a.WJYSJE,0))  ');
      SQL.Add(' ,2) ' );
      SQL.Add(' when 0 then 0 else ');

      SQL.Add('round((round( ');
      SQL.Add('sum(' );
      if FXByJZRQ then
      begin
        if iLoop=0 then
          SQL.Add('  case when datediff(day,YFZK_JZRQ,:pCKRQ)<='+FloatToStr(qryZLQSFZLQ_ZLQ.AsFloat)+' then ')
        else
          SQL.Add('  case when datediff(day,YFZK_JZRQ,:pCKRQ)>'+FloatToStr(fPriZLQ)+' and datediff(day,YFZK_JZRQ,:pCKRQ)<= '+FloatToStr(qryZLQSFZLQ_ZLQ.AsFloat)+' then ');
      end
      else
      begin
        if iLoop=0 then
          SQL.Add('  case when datediff(day,YFZK_YWRQ,:pCKRQ)<='+FloatToStr(qryZLQSFZLQ_ZLQ.AsFloat)+' then ')
        else
          SQL.Add('  case when datediff(day,YFZK_YWRQ,:pCKRQ)>'+FloatToStr(fPriZLQ)+' and datediff(day,YFZK_YWRQ,:pCKRQ)<= '+FloatToStr(qryZLQSFZLQ_ZLQ.AsFloat)+' then ');
      end;
      if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'B' then
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and GT(YFZK_WFPJE,0) then :iflag*(YFZK_WFPJE-YFZK_YFPJE) ')
      else if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'Y' then
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and LT(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ')
      else
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and NE(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ');
      SQL.Add('    else 0 end + isnull(a.WJYSJE,0) ');
      SQL.Add('  else 0 end) ');
      SQL.Add(',2)');
      SQL.Add(' /');
      SQL.Add('round(       ');
      SQL.Add('sum( ');
      if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'B' then
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and GT(YFZK_WFPJE,0) then :iflag*(YFZK_WFPJE-YFZK_YFPJE) ')
      else if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'Y' then
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and LT(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ')
      else
        SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and NE(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ');
      SQL.Add('    else 0 end +isnull(a.WJYSJE,0))  ');
      SQL.Add(' ,2))*100,2) end as BL'+FloatToStr(iLoop) +',' );
      
      fPriZLQ  := qryZLQSFZLQ_ZLQ.AsFloat;
      inc(iLoop);
      qryZLQ.Next;
    end;
    //收款期内金额
    SQL.Add('round(   ');
    SQL.Add('sum(' );
    SQL.Add('  case       ');
    SQL.Add('  when datediff(day,YFZK_DQRQ,:pCKRQ)>=0 then ');
    if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'B' then
      SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and GT(YFZK_WFPJE,0) then :iflag*(YFZK_WFPJE-YFZK_YFPJE) ')
    else if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'Y' then
      SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and LT(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ')
    else
      SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and NE(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ');
    SQL.Add('    else 0 end                                                                               ');
    SQL.Add('    +isnull(a.WJYSJE,0)                                                                      ');
    SQL.Add(' else 0 end)                                                                                 ');
    SQL.Add(',2) as XYQN,    ');

    //收款期外金额
    SQL.Add('round(   ');
    SQL.Add('sum(' );
    SQL.Add('  case       ');
    SQL.Add('  when datediff(day,YFZK_DQRQ,:pCKRQ)<0 then ');
    if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'B' then
      SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and GT(YFZK_WFPJE,0) then :iflag*(YFZK_WFPJE-YFZK_YFPJE) ')
    else if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'Y' then
      SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and LT(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ')
    else
      SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and NE(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ');
    SQL.Add('    else 0 end                                                                               ');
    SQL.Add('    +isnull(a.WJYSJE,0)                                                                      ');
    SQL.Add(' else 0 end)                                                                                 ');
    SQL.Add(',2) as XYQW,    ');
    //取出总的金额
    SQL.Add('round(       ');
    SQL.Add('sum( ');
    if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'B' then
      SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and GT(YFZK_WFPJE,0) then :iflag*(YFZK_WFPJE-YFZK_YFPJE) ')
    else if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'Y' then
      SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and LT(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ')
    else
      SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and NE(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ');
    SQL.Add('    else 0 end +isnull(a.WJYSJE,0))  ');
    SQL.Add(' ,2)as HJ, ');
    SQL.Add(' 0 as PXJE');
    SQL.Add(' from YFZK ');
    SQL.Add(' left join GYS on GYS_GYSID=YFZK_GYSID ');
    SQL.Add(' left join ( ');
    SQL.Add(' select FLNBH,sum(WJYSJE) as WJYSJE ');
    SQL.Add('from (');
        //应付账款
    if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'Y'  then
    begin
      SQL.Add(' select YFZK_FLNBH as FLNBH, ');
      SQL.Add('    round(sum(isnull(:iflag*-1*YFZKFP_FPJE,0)),2) as WJYSJE ');
      SQL.Add(' from YFZK ');
      SQL.Add(' left join GYS on GYS_GYSID=YFZK_GYSID ');
      SQL.Add(' ,YFZKFP ');
      SQL.Add(' where YFZK_FLNBH=YFZKFP_FLNBH1 ');
      if FXByJZRQ then
        SQL.Add('      and YFZKFP_JFJZRQ<=:pCKRQ and YFZKFP_DFJZRQ>:pCKRQ ')
      else
        SQL.Add('      and YFZKFP_JFYWRQ<=:pCKRQ and YFZKFP_DFYWRQ>:pCKRQ ');
      SQL.Add('        and ' + GetWhereEqual('YFZK_KJDWID', sKJDWs, True));
      SQL.Add('        and YFZK_YEAR=:pYEAR ');
      if trim(dmlCX_YFZLFXB_M.memTableHBID.AsString) <> '' then
      begin
        SQL.Add('      and YFZK_HBID= :pHBID ');
        ParamByName('pHBID').AsString := dmlCX_YFZLFXB_m.memTableHBID.AsString;
      end;
      if Trim(dmlCX_YFZLFXB_m.memTableGYSID.AsString) <> '' then
      begin
        SQL.Add('      and YFZK_GYSID= :pGYSID ');
        ParamByName('pGYSID').AsString := dmlCX_YFZLFXB_m.memTableGYSID.AsString;
      end;
      if Trim(dmlCX_YFZLFXB_m.memTableGYSFL.AsString) <> '' then
      begin
        SQL.Add(' and ' + GetWhereLead('GYS_FL', dmlCX_YFZLFXB_m.memTableGYSFL.AsString));
      end;
      if trim(dmlCX_YFZLFXB_m.memTableKMID.AsString) <> '' then
      begin
        SQL.Add(' and ' + GetWhereLead('YFZK_KMID', dmlCX_YFZLFXB_m.memTableKMID.AsString));
      end;
      if (Trim(dmlCX_YFZLFXB_m.memtableZRZXID.AsString) <> '') then
        SQL.Add('    and '+GetWhereEqual('YFZK_ZRZXID',dmlCX_YFZLFXB_m.memtableZRZXID.AsString));
      SQL.Add(' group by YFZK_FLNBH ');
    end
    //预付账款
    else if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'B'  then
    begin
      SQL.Add(' select YFZK_FLNBH as FLNBH, ');
      SQL.Add('    round(sum(isnull(:iflag*YFZKFP_FPJE,0)),2) as WJYSJE ');
      SQL.Add(' from YFZK ');
      SQL.Add(' left join GYS on GYS_GYSID=YFZK_GYSID ');
      SQL.Add(' ,YFZKFP ');
      SQL.Add(' where YFZK_FLNBH=YFZKFP_FLNBH2 ');
      if FXByJZRQ then
        SQL.Add('      and YFZKFP_JFJZRQ>:pCKRQ and YFZKFP_DFJZRQ<=:pCKRQ ')
      else
        SQL.Add('      and YFZKFP_JFYWRQ>:pCKRQ and YFZKFP_DFYWRQ<=:pCKRQ ');
      SQL.Add('        and ' + GetWhereEqual('YFZK_KJDWID', sKJDWs, True));
      SQL.Add('        and YFZK_YEAR=:pYEAR ');
      if trim(dmlCX_YFZLFXB_M.memTableHBID.AsString) <> '' then
      begin
        SQL.Add('      and YFZK_HBID= :pHBID ');
        ParamByName('pHBID').AsString := dmlCX_YFZLFXB_m.memTableHBID.AsString;
      end;
      if Trim(dmlCX_YFZLFXB_m.memTableGYSID.AsString) <> '' then
      begin
        SQL.Add('      and YFZK_GYSID= :pGYSID ');
        ParamByName('pGYSID').AsString := dmlCX_YFZLFXB_m.memTableGYSID.AsString;
      end;
      if Trim(dmlCX_YFZLFXB_m.memTableGYSFL.AsString) <> '' then
      begin
        SQL.Add(' and ' + GetWhereLead('GYS_FL', dmlCX_YFZLFXB_m.memTableGYSFL.AsString));
      end;
      if trim(dmlCX_YFZLFXB_m.memTableKMID.AsString) <> '' then
      begin
        SQL.Add(' and ' + GetWhereLead('YFZK_KMID', dmlCX_YFZLFXB_m.memTableKMID.AsString));
      end;
      if (Trim(dmlCX_YFZLFXB_m.memtableZRZXID.AsString) <> '') then
        SQL.Add('    and '+GetWhereEqual('YFZK_ZRZXID',dmlCX_YFZLFXB_m.memtableZRZXID.AsString));

      SQL.Add(' group by YFZK_FLNBH');
    end
    else
    begin
        //应付账款
      SQL.Add(' select YFZK_FLNBH as FLNBH, ');
      SQL.Add('    round(sum(isnull(:iflag*-1*YFZKFP_FPJE,0)),2) as WJYSJE ');
      SQL.Add(' from YFZK ');
      SQL.Add(' left join GYS on GYS_GYSID=YFZK_GYSID ');
      SQL.Add(' ,YFZKFP ');
      SQL.Add(' where YFZK_FLNBH=YFZKFP_FLNBH1 ');
      if FXByJZRQ then
        SQL.Add('      and YFZKFP_JFJZRQ<=:pCKRQ and YFZKFP_DFJZRQ>:pCKRQ ')
      else
        SQL.Add('      and YFZKFP_JFYWRQ<=:pCKRQ and YFZKFP_DFYWRQ>:pCKRQ ');
      SQL.Add('        and ' + GetWhereEqual('YFZK_KJDWID', sKJDWs, True));
      SQL.Add('        and YFZK_YEAR=:pYEAR ');
      if trim(dmlCX_YFZLFXB_M.memTableHBID.AsString) <> '' then
      begin
        SQL.Add('      and YFZK_HBID= :pHBID ');
        ParamByName('pHBID').AsString := dmlCX_YFZLFXB_m.memTableHBID.AsString;
      end;
      if Trim(dmlCX_YFZLFXB_m.memTableGYSID.AsString) <> '' then
      begin
        SQL.Add('      and YFZK_GYSID= :pGYSID ');
        ParamByName('pGYSID').AsString := dmlCX_YFZLFXB_m.memTableGYSID.AsString;
      end;
      if Trim(dmlCX_YFZLFXB_m.memTableGYSFL.AsString) <> '' then
      begin
        SQL.Add(' and ' + GetWhereLead('GYS_FL', dmlCX_YFZLFXB_m.memTableGYSFL.AsString));
      end;
      if trim(dmlCX_YFZLFXB_m.memTableKMID.AsString) <> '' then
      begin
        SQL.Add(' and ' + GetWhereLead('YFZK_KMID', dmlCX_YFZLFXB_m.memTableKMID.AsString));
      end;
      if (Trim(dmlCX_YFZLFXB_m.memtableZRZXID.AsString) <> '') then
        SQL.Add('    and '+GetWhereEqual('YFZK_ZRZXID',dmlCX_YFZLFXB_m.memtableZRZXID.AsString));
      SQL.Add(' group by YFZK_FLNBH ');
      SQL.Add(' union all ');
        //预付账款
      SQL.Add(' select YFZK_FLNBH as FLNBH, ');
      SQL.Add('    round(sum(isnull(:iflag*YFZKFP_FPJE,0)),2) as WJYSJE ');
      SQL.Add(' from YFZK ');
      SQL.Add(' left join GYS on GYS_GYSID=YFZK_GYSID ');
      SQL.Add(' ,YFZKFP ');
      SQL.Add(' where YFZK_FLNBH=YFZKFP_FLNBH2 ');
      if FXByJZRQ then
        SQL.Add('      and YFZKFP_JFJZRQ>:pCKRQ and YFZKFP_DFJZRQ<=:pCKRQ ')
      else
        SQL.Add('      and YFZKFP_JFYWRQ>:pCKRQ and YFZKFP_DFYWRQ<=:pCKRQ ');
      SQL.Add('        and ' + GetWhereEqual('YFZK_KJDWID', sKJDWs, True));
      SQL.Add('        and YFZK_YEAR=:pYEAR ');
      if trim(dmlCX_YFZLFXB_M.memTableHBID.AsString) <> '' then
      begin
        SQL.Add('      and YFZK_HBID= :pHBID ');
        ParamByName('pHBID').AsString := dmlCX_YFZLFXB_m.memTableHBID.AsString;
      end;
      if Trim(dmlCX_YFZLFXB_m.memTableGYSID.AsString) <> '' then
      begin
        SQL.Add('      and YFZK_GYSID= :pGYSID ');
        ParamByName('pGYSID').AsString := dmlCX_YFZLFXB_m.memTableGYSID.AsString;
      end;
      if Trim(dmlCX_YFZLFXB_m.memTableGYSFL.AsString) <> '' then
      begin
        SQL.Add(' and ' + GetWhereLead('GYS_FL', dmlCX_YFZLFXB_m.memTableGYSFL.AsString));
      end;
      if trim(dmlCX_YFZLFXB_m.memTableKMID.AsString) <> '' then
      begin
        SQL.Add(' and ' + GetWhereLead('YFZK_KMID', dmlCX_YFZLFXB_m.memTableKMID.AsString));
      end;
      if (Trim(dmlCX_YFZLFXB_m.memtableZRZXID.AsString) <> '') then
        SQL.Add('    and '+GetWhereEqual('YFZK_ZRZXID',dmlCX_YFZLFXB_m.memtableZRZXID.AsString));
      SQL.Add(' group by YFZK_FLNBH');
    end;

    SQL.Add(' )YFXX ');
    SQL.Add(' group by FLNBH ');
    SQL.Add(' )a on a.FLNBH=YFZK_FLNBH ');

    SQL.Add('       where 1=1 ');
    if FXByJZRQ then
      SQL.Add('      and YFZK_JZRQ<=:pCKRQ')
    else
      SQL.Add('      and YFZK_YWRQ<=:pCKRQ');
    SQL.ADD('       and ' + GetWhereEqual('YFZK_KJDWID', sKJDWs, True));
    SQL.Add('        and YFZK_YEAR=:pYEAR');
    if trim(dmlCX_YFZLFXB_M.memTableHBID.AsString) <> '' then
    begin
      SQL.Add('      and YFZK_HBID= :pHBID');
      ParamByName('pHBID').AsString := dmlCX_YFZLFXB_m.memTableHBID.AsString;
    end;
    if trim(dmlCX_YFZLFXB_m.memTableGYSID.AsString) <> '' then
    begin
      SQL.Add('      and YFZK_GYSID= :pGYSID');
      ParamByName('pGYSID').AsString := trim(dmlCX_YFZLFXB_m.memTableGYSID.AsString);
    end;
    if Trim(dmlCX_YFZLFXB_m.memTableGYSFL.AsString) <> '' then
    begin
      SQL.Add(' and ' + GetWhereLead('GYS_FL', dmlCX_YFZLFXB_m.memTableGYSFL.AsString));
    end;
    if trim(dmlCX_YFZLFXB_m.memTableKMID.AsString) <> '' then
    begin
      SQL.Add(' and ' + GetWhereLead('YFZK_KMID', dmlCX_YFZLFXB_m.memTableKMID.AsString));
    end;
    if (Trim(dmlCX_YFZLFXB_m.memtableZRZXID.AsString) <> '') then
      SQL.Add('    and '+GetWhereEqual('YFZK_ZRZXID',dmlCX_YFZLFXB_m.memtableZRZXID.AsString));
    SQL.Add(' group by YFZK_GYSID ');
    if dmlCX_YFZLFXB_M.memTableFXDX.AsString='B' then       //借方有余额
    begin
      SQL.Add ('having LT(');
      SQL.Add('round(sum(           ');
      SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and GT(YFZK_WFPJE,0) then :iflag*(YFZK_WFPJE-YFZK_YFPJE) ');
      SQL.Add('    else 0 end +isnull(a.WJYSJE,0))  ');
      SQL.Add(' ,2) ');
      SQL.Add('  ,0)');
    end
    else if dmlCX_YFZLFXB_M.memTableFXDX.AsString='Y' then  //贷方有余额
    begin
      SQL.Add ('having GT(');
      SQL.Add('round(sum(           ');
      SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and LT(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ');
      SQL.Add('    else 0 end +isnull(a.WJYSJE,0))  ');
      SQL.Add(' ,2) ');
      SQL.Add('  ,0)');
    end
    else
    begin
      SQL.Add ('having NE(');
      SQL.Add('round(sum(           ');
      SQL.Add('    case when isnull(YFZK_YFP,'' '')<>''Y'' and NE(YFZK_WFPJE,0) then -1*(YFZK_WFPJE-YFZK_YFPJE) ');
      SQL.Add('    else 0 end +isnull(a.WJYSJE,0))  ');
      SQL.Add(' ,2) ');
      SQL.Add('  ,0)');
    end;
    SQL.Add(' ) ZHHJ ');
    //排序
    if dmlCX_YFZLFXB_M.memTablePXFS.AsString = 'A' then
      SQL.ADD('order by XH,GYSID,XH1 ');
    if dmlCX_YFZLFXB_M.memTablePXFS.AsString = 'B' then// 应付金额由大到小排序
    begin
      if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'B' then
        SQL.Add('order by XH,PXJE,XH1 ')
      else
        SQL.Add('order by XH,PXJE Desc,XH1 ');
    end
    else if dmlCX_YFZLFXB_M.memTablePXFS.AsString = 'C' then
    begin
      if dmlCX_YFZLFXB_M.memTableFXDX.AsString = 'B' then
        SQL.Add('order by XH,PXJE desc,XH1 ')
      else
        SQL.Add('order by XH,PXJE,XH1  ');
    end;
    ParamByName('pYEAR').AsInteger := iYear;
    ParamByName('pCKRQ').AsDateTime := dmlCX_YFZLFXB_M.memTableCKRQ.AsDateTime;
    Open;
  end;

end;

//==============================================================================
{ 数据记录处理 }
//==============================================================================
//==============================================================================
{ 控件事件 }
//==============================================================================

//双击记录显示凭证
procedure TfrmCX_YFZLFXB.grdGriDDblCliCK(Sender: TObject);
begin
  inherited;
  if grdGrid.DataSource.DataSet.fieldByName('ZPZH').AsInteger <> 0 then
    DisPLayPZ(grdGrid.DataSource.DataSet.fieldByName('KJDW').AsString,
      grdGrid.DataSOurce.DataSet.FieldByName('ZPZH').AsInteger,Self);
end;

//底色
procedure TfrmCX_YFZLFXB.grdGridGetRowState(Sender: TObject; Field: TField;
  var BackgroundColor: string; var RowInSum: TInSum);
begin
  inherited;
  if grdGrid.DataSource.DataSet.fieldByName('FLAG').AsString = 'Y' then
    BaCKgroundColor := 'YFU005'
  else if grdGrid.DataSource.DataSet.fieldByName('FLAG').AsString ='H' then//合计
    BaCKgroundColor := 'XTS100';
end;

//==============================================================================
{ 查询条件 }
//==============================================================================
//==============================================================================
{ 局部菜单 }
//==============================================================================

end.