<?xml version="1.0" encoding="utf-8" standalone="no"?>
<TfrxReport Version="5.4.6" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="40602,6690597801" ReportOptions.Description.Text="" ReportOptions.LastChange="43894,4906133449" ScriptLanguage="PascalScript" ScriptText.Text="procedure HideFields(VlrTagPri: Integer); // Mônica Lima 250713&#13;&#10;  procedure HideObjectBand(Band:TfrxBand; VlrTag:integer);&#13;&#10;    var i:integer;&#13;&#10;  begin&#13;&#10;    with Band do&#13;&#10;    begin&#13;&#10;      for i:=0 to Objects.Count-1 do&#13;&#10;      begin&#13;&#10;        if (Objects[i] is TfrxMemoView) and (TfrxMemoView(Objects[i]).Tag = VlrTag) then&#13;&#10;        begin&#13;&#10;           TfrxMemoView(Objects[i]).Visible:= False;&#13;&#10;        end&#13;&#10;        else&#13;&#10;        begin&#13;&#10;           TfrxMemoView(Objects[i]).Visible:= True;   // Mônica Lima 250713&#13;&#10;        end;&#13;&#10;      end;&#13;&#10;    end;&#13;&#10;  end;&#13;&#10;begin&#13;&#10;  HideObjectBand(CabecalhoMD,VlrTagPri);&#13;&#10;  HideObjectBand(MDPrincipal,VlrTagPri);&#13;&#10;  HideObjectBand(DD1,VlrTagPri);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure DD1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;   QDetalheCTP_VALPAG.visible := True;&#13;&#10;   mm_total_pago.visible      := True;&#13;&#10;&#13;&#10;&#13;&#10;&#13;&#10;&#13;&#10;end;&#13;&#10;&#13;&#10;&#13;&#10; var faux:string; //variavel para montar filtro&#13;&#10;begin&#13;&#10;  //Teste - Descomente as linhas  abaixo para teste e acrescente suas variáveis&#13;&#10;  //Não esqueça de comentar ao término do relatório&#13;&#10;{&#13;&#10;  Set('CodEmpresa','1');&#13;&#10;  Set('RelReferencia','''????''');&#13;&#10;  Set('Filtros','''????''');&#13;&#10;&#13;&#10;  Set('DtIni',StrToDate('01/01/13'));&#13;&#10;  Set('DtFin',StrToDate('10/06/13'));&#13;&#10;  Set('CodEmp','0');&#13;&#10;  Set('CodCli','0');&#13;&#10;  Set('CodMod','0');&#13;&#10;  Set('FiltroData','0');&#13;&#10;  Set('Ordem','1');&#13;&#10;&#13;&#10;  Set('TipoAnalitico','0');&#13;&#10;  Set('QuebraPagina','1');&#13;&#10;&#13;&#10;{Checagem de dados - Não remova as linhas abaixo}&#13;&#10;   QPrincipal.Open;&#13;&#10;     if QPrincipal.IsEmpty then&#13;&#10;     begin&#13;&#10;        CreateError('Não exitem registros para os filtros selecionados.');&#13;&#10;     end;&#13;&#10;&#13;&#10;&#13;&#10;  if &#60;Tipo&#62; = 0 then&#13;&#10;  begin&#13;&#10;     Em_Pago.Visible := True;&#13;&#10;     Lis_Titulos_Em_Aberto.Visible := False;&#13;&#10;&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;     Em_Pago.Visible := True;&#13;&#10;    // Lis_Titulos_Em_Aberto.Visible := True;&#13;&#10;  end;&#13;&#10;&#13;&#10;{fim}&#13;&#10;//===========================================&#13;&#10; if &#60;TipoAnalitico&#62;=0 then //se for Analítico simples&#13;&#10; begin&#13;&#10;   HideFields(1);&#13;&#10;  // Em_Aberto_Analitico.Orientation:=poPortrait;&#13;&#10;&#13;&#10;&#13;&#10;&#13;&#10;//   &#60;QPrincipal.&#34;FOR_OBS_01&#34;&#62;.Width :=700;&#13;&#10; end&#13;&#10; else&#13;&#10; begin&#13;&#10;   HideFields(99);&#13;&#10;  // Em_Aberto_Analitico.Orientation:=poLandscape;   // Mônica Lima 250713&#13;&#10;  // QPrincipalFOR_OBS_01.Width := 1000;&#13;&#10; end;&#13;&#10;&#13;&#10; if (&#60;Tipo&#62; = 0) or (&#60;Tipo&#62; = 1) or (&#60;Tipo&#62; = 2) then&#13;&#10; begin&#13;&#10;    faux:='Período de '+DateToStr(&#60;Dtini&#62;)+' até '+DateToStr(&#60;DtFin&#62;);&#13;&#10; end&#13;&#10; else&#13;&#10; begin&#13;&#10;    faux:='';&#13;&#10; end;&#13;&#10;&#13;&#10; if &#60;CodEmp&#62;&#62;0 then&#13;&#10;   faux:=faux+' - Empresa: '+PegaValorCampoTabela('cademp','EMP_NOMEMP','EMP_CODIGO='+IntToStr(&#60;CodEmp&#62;));&#13;&#10; if &#60;CodCli&#62;&#62;0 then&#13;&#10;   faux:=faux+' - Fornecedor: '+PegaValorCampoTabela('cadfor','FOR_NOMFOR','FOR_CODIGO='+IntToStr(&#60;CodCli&#62;));&#13;&#10; if &#60;CodMod&#62;&#62;0 then&#13;&#10;   faux:=faux+' - Modalidade: '+PegaValorCampoTabela('cadmod','MOD_DESCRI','MOD_CODIGO='+IntToStr(&#60;CodMod&#62;));&#13;&#10;&#13;&#10;&#13;&#10; if &#60;Tipo&#62; = 0 then&#13;&#10; begin&#13;&#10;    faux:=faux+' - Por data de ';&#13;&#10;    case &#60;FiltroData&#62; of&#13;&#10;       0:faux:=faux+'Entrada';&#13;&#10;       1:faux:=faux+'Vencimento';&#13;&#10;       2:faux:=faux+'recebimento';&#13;&#10;    end;&#13;&#10; end;&#13;&#10;&#13;&#10; faux:=faux+' - Ordem: ';&#13;&#10; case &#60;Ordem&#62; of&#13;&#10;  0:faux:=faux+'Código';&#13;&#10;  1:faux:=faux+'Nome';&#13;&#10;  2:faux:=faux+'Bairro';&#13;&#10;  3:faux:=faux+'Vencimento';&#13;&#10; end;&#13;&#10;&#13;&#10; faux:=faux+' Tipo: Pago';&#13;&#10;&#13;&#10; Set('Filtros',''''+faux+'''');&#13;&#10; MDPrincipal.StartNewPage:=(&#60;QuebraPagina&#62;=1);&#13;&#10; //*QPrincipalFOR_OBS_01.Visible := (&#60;ObsCli&#62;=1);// Mônica Lima 180713&#13;&#10;end.">
  <Datasets>
    <item DataSet="QEmpresa" DataSetName="QEmpresa"/>
    <item DataSet="QPrincipal" DataSetName="QPrincipal"/>
    <item DataSet="QDetalhe" DataSetName="QDetalhe"/>
    <item DataSet="QryLisTitAbe" DataSetName="QryLisTitAbe"/>
  </Datasets>
  <Variables>
    <item Name="CodEmpresa" Value="1"/>
    <item Name="Filtros" Value="''"/>
    <item Name="RelReferencia" Value="'2300'"/>
    <item Name="DtIni" Value="43811"/>
    <item Name="DtFin" Value="43811"/>
    <item Name="CodEmp" Value="0"/>
    <item Name="CodCli" Value="0"/>
    <item Name="CodMod" Value="0"/>
    <item Name="NPedImp" Value="0"/>
    <item Name="TipoAnalitico" Value="0"/>
    <item Name="FiltroData" Value="2"/>
    <item Name="Ordem" Value="0"/>
    <item Name="QuebraPagina" Value="0"/>
    <item Name="ObsCli" Value="0"/>
    <item Name="Tipo" Value="1"/>
    <item Name="CodConvenio" Value="0"/>
    <item Name="CodVendedor" Value="'0'"/>
    <item Name="Centro_Custo" Value="''"/>
    <item Name="Codcta" Value="6"/>
    <item Name="Oculta_sem_financeiro"/>
  </Variables>
  <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000">
    <TfrxADOQuery Name="QPrincipal" UserName="QPrincipal" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="declare @DtIni             date = :DtIni,&#13;&#10;        @DtFin             date = :DtFin,&#13;&#10;        @CodEmp             int = :CodEmp,&#13;&#10;        @CodCli             int = :CodCli,&#13;&#10;        @CodMod             int = :CodMod,                 &#13;&#10;        @FitroData          int = :FiltroData,&#13;&#10;        @Ordem              int = :Ordem,  &#13;&#10;        @NPedImp            int = :NPedImp, &#13;&#10;        @CodConvenio        int = :Codconvenio,&#13;&#10;        @Centro_Custo varchar(20) = :Centro_Custo,&#13;&#10;        @CodVendedor varchar(3) = :CodVendedor,  &#13;&#10;        @Oculta_sem_finance int = :Oculta_sem_financeiro                                                           &#13;&#10;                   &#13;&#10;&#13;&#10;select FOR_CODIGO as CodCli, FOR_NOMFOR, FOR_OBS_01,&#13;&#10;       FOR_BAIRRO, FOR_FANTAS, 0 AS CTP_SALDO_,&#13;&#10;      0 as CTP_VALDUP&#13;&#10;from CADPAG &#13;&#10;left join cadfor          on CTP_CODFOR = FOR_CODIGO &#13;&#10;left join cadmod          on CTP_CODMOD = MOD_CODIGO&#13;&#10;left join cadcus on cadcus.cus_codigo = cadpag.ctp_codcus    &#13;&#10;where 1 = 1&#13;&#10;and ((@CodEmp=0) or (CTP_CODEMP = @CodEmp))&#13;&#10;and ((@CodMod=0) or (CTP_CODMOD = @CodMod))&#13;&#10;    &#13;&#10;&#13;&#10;  &#13;&#10;and (CTP_VALPAG &#62; 0 or (CTP_VALPAG &#60; 0 AND CTP_ESPDUP = 'DV') or (CTP_VALPAG &#60; 0 AND CTP_ESPDUP = 'CC'&#13;&#10;))&#13;&#10;&#13;&#10;&#13;&#10;&#13;&#10;&#13;&#10;&#13;&#10;&#13;&#10;and CTP_NUMDUP NOT LIKE 'PG%'&#13;&#10;and CTP_DTACAN is null&#13;&#10;and cast(&#13;&#10;         case @FitroData &#13;&#10;         when 0 then CTP_DTAENT&#13;&#10;         when 1 then CTP_DTAVEN&#13;&#10;         when 2 then CTP_DTAPAG&#13;&#10;end as DATE) between @DtIni and @DtFin  &#13;&#10;and ((@CodCli=0) or (CTP_CODFOR = @CodCli))&#13;&#10;and ((@Centro_Custo='') or (CUS_CODIGO = @Centro_Custo))&#13;&#10;&#13;&#10;and                &#13;&#10;cast(  &#13;&#10;case @Oculta_sem_finance   -- ocultar check-&#62; 1  nao check-&#62; 0                                               &#13;&#10;       when 1 then coalesce(MOD_NAOMOSTRA_REL,0 )   -- 0=mostra 1-nao mostra                                                     &#13;&#10;       WHEN 0 THEN 0              &#13;&#10;end as Bit) = 0&#13;&#10;  &#13;&#10;  &#13;&#10;group by FOR_CODIGO, FOR_NOMFOR, FOR_OBS_01, &#13;&#10;         FOR_BAIRRO, FOR_BAIRRO, FOR_FANTAS           &#13;&#10;order by&#13;&#10;case @Ordem &#13;&#10;  &#13;&#10;  when 1 then FOR_NOMFOR&#13;&#10;  when 2 then FOR_BAIRRO&#13;&#10;&#13;&#10;end       " CommandTimeout="1800" LockType="ltReadOnly" PropData="05704C65667402200470546F70021C0A506172616D65746572730101063C204E616D653D224474496E69222044617461547970653D22667444617465222045787072657373696F6E3D22262336303B4474496E69262336323B220001063C204E616D653D22447446696E222044617461547970653D22667444617465222045787072657373696F6E3D22262336303B447446696E262336323B2200010641204E616D653D22436F64456D70222044617461547970653D226674496E7465676572222045787072657373696F6E3D22262336303B436F64456D70262336323B2200010641204E616D653D22436F64436C69222044617461547970653D226674496E7465676572222045787072657373696F6E3D22262336303B436F64436C69262336323B2200010641204E616D653D22436F644D6F64222044617461547970653D226674496E7465676572222045787072657373696F6E3D22262336303B436F644D6F64262336323B2200010649204E616D653D2246696C74726F44617461222044617461547970653D226674496E7465676572222045787072657373696F6E3D22262336303B46696C74726F44617461262336323B220001063F204E616D653D224F7264656D222044617461547970653D226674496E7465676572222045787072657373696F6E3D22262336303B4F7264656D262336323B2200010643204E616D653D224E506564496D70222044617461547970653D226674496E7465676572222045787072657373696F6E3D22262336303B4E506564496D70262336323B220001064B204E616D653D22436F64636F6E76656E696F222044617461547970653D226674496E7465676572222045787072657373696F6E3D22262336303B436F64436F6E76656E696F262336323B220001064C204E616D653D2243656E74726F5F437573746F222044617461547970653D226674537472696E67222045787072657373696F6E3D22262336303B43656E74726F5F437573746F262336323B220001064A204E616D653D22436F6456656E6465646F72222044617461547970653D226674537472696E67222045787072657373696F6E3D22262336303B436F6456656E6465646F72262336323B220001065F204E616D653D224F63756C74615F73656D5F66696E616E636569726F222044617461547970653D226674496E7465676572222045787072657373696F6E3D22262336303B4F63756C74615F73656D5F66696E616E636569726F262336323B220000"/>
    <TfrxADOQuery Name="QEmpresa" UserName="QEmpresa" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="select emp_nomemp &#13;&#10;from cademp &#13;&#10;where EMP_CODIGO = :CodEmpresa" CommandTimeout="1800" LockType="ltReadOnly" PropData="05704C656674025C0470546F70021C0A506172616D657465727301010649204E616D653D22436F64456D7072657361222044617461547970653D226674496E7465676572222045787072657373696F6E3D22262336303B436F64456D7072657361262336323B220000"/>
    <TfrxADOQuery Name="QDetalhe" UserName="QDetalhe" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" Master="QPrincipal" IgnoreDupParams="False" SQL.Text="declare @DtIni             date = :DtIni,&#13;&#10;        @DtFin             date = :DtFin,&#13;&#10;        @CodCli             int = :CodCli,&#13;&#10;        @CodMod             int = :CodMod, -- Monica Lima 240713        &#13;&#10;        @NPedImp            int = :NPedImp,  -- Monica Lima 240713                         &#13;&#10;        @FitroData          int = :FiltroData, -- Monica Lima 250613&#13;&#10;        @CodConvenio        int = :CodConvenio,&#13;&#10;        @Centro_Custo varchar(20) = :Centro_Custo,            &#13;&#10;        @CodVendedor varchar(3) = :CodVendedor, -- Monica Lima 2349&#13;&#10;        @Codcta int             = :Codcta,  &#13;&#10;        @Oculta_sem_finance int = :Oculta_sem_financeiro -- André Luiz 04/03/2020                                                                                                                                                                             &#13;&#10;          &#13;&#10;&#13;&#10;select CTP_NUMDUP, CTP_DTAENT, CTP_DTAVEN, CTP_DTAPAG, CTP_HISDUP, &#13;&#10;       CTP_VALPAG, CTP_VALDUP, CTP_CODFOR, coalesce(MOD_DESCRI,'') as MOD_DESCRI, CTP_HISPAG ,  CTP_ESPDUP,  LTRIM(CUS_DESCRI) as CUS_DESCRI,     &#13;&#10;CTP_NUMPAR,CTP_VALPAG  as liq                                                    &#13;&#10;from CADPAG &#13;&#10;left join cadmod          on CTP_CODMOD = MOD_CODIGO&#13;&#10;left join cadfor          on CTP_CODFOR = FOR_CODIGO&#13;&#10;left join cadcus on cadcus.cus_codigo = cadpag.ctp_codcus    &#13;&#10;where ((@CodCli=0) or (CTP_CODFOR = @CodCli))&#13;&#10;      and ((@Centro_Custo='') or (CUS_CODIGO = @Centro_Custo))                                     &#13;&#10;&#13;&#10;      and ((@CodMod=0) or (CTP_CODMOD = @CodMod))   &#13;&#10;      and cast(                    &#13;&#10;               case @FitroData &#13;&#10;                    when 0 then CTP_DTAENT&#13;&#10;                    when 1 then CTP_DTAVEN&#13;&#10;                    when 2 then CTP_DTAPAG&#13;&#10;               end as DATE) between @DtIni and @DtFin     &#13;&#10;  &#13;&#10;      and coalesce(CTP_VALDUP,0) = 0 &#13;&#10;      and CTP_NUMDUP NOT LIKE 'PG%' &#13;&#10;      and CTP_VALPAG &#62; 0   &#13;&#10;      and CTP_DTACAN is null&#13;&#10;      and ((@Codcta=0) or (CTP_Codcta = @Codcta))&#13;&#10;&#13;&#10;and    &#13;&#10;cast(  &#13;&#10;case @Oculta_sem_finance   -- ocultar check-&#62; 1  nao check-&#62; 0                                               &#13;&#10;       when 1 then coalesce(MOD_NAOMOSTRA_REL,0 )   -- 0=mostra 1-nao mostra                                                     &#13;&#10;       WHEN 0 THEN 0              &#13;&#10;end as Bit) = 0&#13;&#10;  &#13;&#10;order by CTP_DTAVEN  " CommandTimeout="1800" LockType="ltReadOnly" PropData="05704C65667402200470546F7002740A506172616D65746572730101063C204E616D653D224474496E69222044617461547970653D22667444617465222045787072657373696F6E3D22262336303B4474496E69262336323B220001063C204E616D653D22447446696E222044617461547970653D22667444617465222045787072657373696F6E3D22262336303B447446696E262336323B2200010641204E616D653D22436F64436C69222044617461547970653D226674496E7465676572222045787072657373696F6E3D22262336303B436F64436C69262336323B2200010641204E616D653D22436F644D6F64222044617461547970653D226674496E7465676572222045787072657373696F6E3D22262336303B436F644D6F64262336323B2200010643204E616D653D224E506564496D70222044617461547970653D226674496E7465676572222045787072657373696F6E3D22262336303B4E506564496D70262336323B2200010649204E616D653D2246696C74726F44617461222044617461547970653D226674496E7465676572222045787072657373696F6E3D22262336303B46696C74726F44617461262336323B220001064B204E616D653D22436F64436F6E76656E696F222044617461547970653D226674496E7465676572222045787072657373696F6E3D22262336303B436F64436F6E76656E696F262336323B220001064C204E616D653D2243656E74726F5F437573746F222044617461547970653D226674537472696E67222045787072657373696F6E3D22262336303B43656E74726F5F437573746F262336323B220001064A204E616D653D22436F6456656E6465646F72222044617461547970653D226674537472696E67222045787072657373696F6E3D22262336303B436F6456656E6465646F72262336323B2200010641204E616D653D22436F64637461222044617461547970653D226674496E7465676572222045787072657373696F6E3D22262336303B436F64437461262336323B220001065F204E616D653D224F63756C74615F73656D5F66696E616E636569726F222044617461547970653D226674496E7465676572222045787072657373696F6E3D22262336303B4F63756C74615F73656D5F66696E616E636569726F262336323B220000"/>
    <TfrxADOQuery Name="QryLisTitAbe" UserName="QryLisTitAbe" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="declare @CodEmp             int = :CodEmp,&#13;&#10;        @CodCli             int = :CodCli,&#13;&#10;        @CodMod             int = :CodMod, &#13;&#10;        @Ordem              int = :Ordem,  &#13;&#10;        @NPedImp            int = :NPedImp,     &#13;&#10;        @CodConvenio        int = :CodConvenio,&#13;&#10;        @CodVendedor varchar(3) = :CodVendedor,&#13;&#10;        @DtIni             date = :DtIni,&#13;&#10;        @DtFin             date = :DtFin            &#13;&#10;&#13;&#10;&#13;&#10;select CTP_NUMDUP, CTP_ESPDUP, CTP_CODFOR, FOR_NOMFOR, FOR_FANTAS, &#13;&#10;       CTP_DTAVEN, CTP_VALDUP, CTP_NUMPAR&#13;&#10;from CADPAG &#13;&#10;left join cadfor          on CTP_CODFOR = FOR_CODIGO&#13;&#10;where ((@CodEmp=0) or (CTP_CODEMP = @CodEmp)) and&#13;&#10;      ((@CodMod=0) or (CTP_CODMOD = @CodMod)) and&#13;&#10;      (CTP_VALDUP &#62; 0 or (CTP_VALDUP &#60; 0 and CTP_ESPDUP = 'DV') or (CTP_VALDUP &#60; 0 and CTP_ESPDUP = 'CC')) and&#13;&#10;      CTP_NUMDUP NOT LIKE 'PG%' and&#13;&#10;      CTP_DTACAN is null and&#13;&#10;      ((@CodCli=0) or (CTP_CODFOR = @CodCli)) and&#13;&#10;      CTP_DTAVEN between @DtIni and @DtFin                       &#13;&#10;order by                &#13;&#10;case @Ordem &#13;&#10;  when 0 then REPLICATE( '0' ,10 - len(cast(CTP_CODFOR as varchar(10)) )) + cast(CTP_CODFOR as varchar(10)) + convert(varchar(10), CTP_DTAVEN, 102) &#13;&#10;  when 1 then FOR_NOMFOR + convert(varchar(10), CTP_DTAVEN, 102)&#13;&#10;  when 2 then FOR_BAIRRO + FOR_NOMFOR + convert(varchar(10), CTP_DTAVEN, 102)&#13;&#10;  when 3 then convert(varchar(15),CTP_DTAVEN)&#13;&#10;end  " CommandTimeout="1800" LockType="ltReadOnly" PropData="05704C656674026C0470546F7002740A506172616D657465727301010641204E616D653D22436F64456D70222044617461547970653D226674496E7465676572222045787072657373696F6E3D22262336303B436F64456D70262336323B2200010641204E616D653D22436F64436C69222044617461547970653D226674496E7465676572222045787072657373696F6E3D22262336303B436F64436C69262336323B2200010641204E616D653D22436F644D6F64222044617461547970653D226674496E7465676572222045787072657373696F6E3D22262336303B436F644D6F64262336323B220001063F204E616D653D224F7264656D222044617461547970653D226674496E7465676572222045787072657373696F6E3D22262336303B4F7264656D262336323B2200010643204E616D653D224E506564496D70222044617461547970653D226674496E7465676572222045787072657373696F6E3D22262336303B4E506564496D70262336323B220001064B204E616D653D22436F64436F6E76656E696F222044617461547970653D226674496E7465676572222045787072657373696F6E3D22262336303B436F64436F6E76656E696F262336323B220001064A204E616D653D22436F6456656E6465646F72222044617461547970653D226674537472696E67222045787072657373696F6E3D22262336303B436F6456656E6465646F72262336323B220001063C204E616D653D224474496E69222044617461547970653D22667444617465222045787072657373696F6E3D22262336303B4474496E69262336323B220001063C204E616D653D22447446696E222044617461547970653D22667444617465222045787072657373696F6E3D22262336303B447466696E262336323B220000"/>
  </TfrxDataPage>
  <TfrxReportPage Name="Em_Pago" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" BackPictureVisible="False" HGuides.Text="" VGuides.Text="">
    <TfrxReportTitle Name="TituloRelatorio" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Height="68,91342" Left="0" Top="16" Width="718,1107" Stretched="True">
      <TfrxMemoView Name="Titulo" Align="baWidth" Left="0" Top="18,8976378" Width="517,79561" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Courier New" Font.Style="1" ParentFont="False" VAlign="vaCenter" Text="Relatório de Contas a Pagar (Fornecedor)"/>
      <TfrxMemoView Name="RelReferencia" Align="baRight" Left="517,79561" Top="19" Width="200,31509" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Courier New" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[IIF(&#60;RelReferencia&#62;='','','(Ref.:'+&#60;RelReferencia&#62;+')')]"/>
      <TfrxMemoView Name="Filtros" Align="baWidth" Left="56,69295" Top="38,67718" Width="661,41775" Height="30,23624" StretchMode="smMaxHeight" Font.Charset="0" Font.Color="0" Font.Height="-11" Font.Name="Courier New" Font.Style="0" ParentFont="False" Text="[&#60;Filtros&#62;]"/>
      <TfrxMemoView Name="LblFiltros" Align="baLeft" Left="0" Top="38,67718" Width="56,69295" Height="30,23624" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Courier New" Font.Style="0" ParentFont="False" Text="Filtros:"/>
      <TfrxMemoView Name="NomeEmpresa" Align="baWidth" Left="0" Top="0" Width="517,79561" Height="18,89765" DataField="EMP_NOMEMP" DataSet="QEmpresa" DataSetName="QEmpresa" Font.Charset="0" Font.Color="0" Font.Height="-13" Font.Name="Courier New" Font.Style="0" ParentFont="False" Text="[QEmpresa.&#34;EMP_NOMEMP&#34;]"/>
      <TfrxMemoView Name="Emissao" Align="baRight" Left="517,79561" Top="0" Width="200,31509" Height="15,11812" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Courier New" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Emissão: [DATE] [Time]"/>
    </TfrxReportTitle>
    <TfrxReportSummary Name="ResumoRelatorio" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Height="94,48825" Left="0" Top="288" Width="718,1107">
      <TfrxMemoView Name="Memo15" Align="baWidth" Left="0" Top="0" Width="623,62257205" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Courier New" Font.Style="1" HAlign="haRight" ParentFont="False" Text="Total Geral: "/>
      <TfrxMemoView Name="Memo12" Align="baRight" Left="623,62257205" Top="0" Width="94,48812795" Height="18,89765" DataSet="QDetalhe" DataSetName="QDetalhe" DisplayFormat.FormatStr="%2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Courier New" Font.Style="1" HAlign="haRight" ParentFont="False" Text="[SUM(&#60;QDetalhe.&#34;CTP_VALPAG&#34;&#62;,DD1)]"/>
      <TfrxMemoView Name="Memo29" Align="baRight" Left="-1190,55182795" Top="26,45671" Width="1814,1744" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Courier New" Font.Style="1" HAlign="haRight" ParentFont="False" Text="Total Liquido Geral: "/>
      <TfrxMemoView Name="Memo30" Align="baRight" Left="623,62257205" Top="26,45671" Width="94,48812795" Height="18,89765" DataSet="QDetalhe" DataSetName="QDetalhe" DisplayFormat.FormatStr="%2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Courier New" Font.Style="1" HAlign="haRight" ParentFont="False" Text="[SUM(&#60;QDetalhe.&#34;liq&#34;&#62;,DD1)]"/>
    </TfrxReportSummary>
    <TfrxPageFooter Name="RodapePagina" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Height="15,11812" Left="0" ParentFont="False" Top="404" Width="718,1107">
      <TfrxSysMemoView Name="TotalPaginas" Align="baRight" Left="612,28386" Top="0,13385827" Width="105,82684" Height="15,11812" Font.Charset="0" Font.Color="0" Font.Height="-12" Font.Name="Courier New" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[PAGE#]/[TOTALPAGES#]"/>
    </TfrxPageFooter>
    <TfrxMasterData Name="MDPrincipal" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Height="23,32282" Left="0" Top="156" Width="718,1107" AllowSplit="True" ColumnWidth="0" ColumnGap="0" DataSet="QPrincipal" DataSetName="QPrincipal" PrintIfDetailEmpty="True" RowCount="0" Stretched="True">
      <TfrxMemoView Name="QPrincipalCodCli" Align="baLeft" Left="0" Top="0" Width="79,37013" Height="18,8976378" DataSet="QPrincipal" DataSetName="QPrincipal" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Courier New" Font.Style="2" ParentFont="False" Text="[QPrincipal.&#34;CodCli&#34;]"/>
      <TfrxMemoView Name="QPrincipalFOR_NOMFOR" Left="83,14966" Top="0" Width="264,5671" Height="18,89765" DataField="FOR_NOMFOR" DataSet="QPrincipal" DataSetName="QPrincipal" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Courier New" Font.Style="0" ParentFont="False" Text="[QPrincipal.&#34;FOR_NOMFOR&#34;]"/>
    </TfrxMasterData>
    <TfrxHeader Name="CabecalhoMD" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Height="32,1338778" Left="0" Top="104" Width="718,1107" ReprintOnNewPage="True" Stretched="True">
      <TfrxMemoView Name="Memo2" Align="baLeft" Left="0" Top="3,77953" Width="94,48812795" Height="26,4566978" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Courier New" Font.Style="0" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Cód. Fornecedor"/>
      <TfrxLineView Name="Line1" Align="baWidth" Left="0" Top="32,1338778" Width="718,1107" Height="0" Color="0" Frame.Typ="4"/>
      <TfrxMemoView Name="Memo25" Align="baLeft" Left="94,48812795" Top="3,77953" Width="253,22838795" Height="26,4566978" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Courier New" Font.Style="0" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Fornecedor"/>
      <TfrxMemoView Name="Memo1" Align="baRight" Left="653,85881205" Top="3,77953" Width="64,25188795" Height="26,4566978" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Courier New" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Valor"/>
    </TfrxHeader>
    <TfrxDetailData Name="DD1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Height="22,67718" Left="0" Top="200" Width="718,1107" OnBeforePrint="DD1OnBeforePrint" AllowSplit="True" ColumnWidth="0" ColumnGap="0" DataSet="QDetalhe" DataSetName="QDetalhe" PrintIfDetailEmpty="True" RowCount="0" Stretched="True">
      <TfrxMemoView Name="QDetalheCTR_NUMDUP" Left="18" Top="0" Width="94,48812795" Height="18,89765" DataField="CTP_NUMDUP" DataSet="QDetalhe" DataSetName="QDetalhe" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Courier New" Font.Style="0" ParentFont="False" Text="[QDetalhe.&#34;CTP_NUMDUP&#34;]"/>
      <TfrxMemoView Name="QDetalheCTR_DTAENT" Left="184,29919795" Top="0" Width="79,37000795" Height="18,89765" DataSet="QDetalhe" DataSetName="QDetalhe" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Courier New" Font.Style="0" HAlign="haCenter" ParentFont="False" Text="[QDetalhe.&#34;CTP_DTAENT&#34;]"/>
      <TfrxMemoView Name="QDetalheCTR_DTAVEN" Left="267,6692059" Top="0" Width="94,48818898" Height="18,89765" DataSet="QDetalhe" DataSetName="QDetalhe" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Courier New" Font.Style="0" HAlign="haCenter" ParentFont="False" Text="[QDetalhe.&#34;CTP_DTAVEN&#34;]"/>
      <TfrxMemoView Name="QDetalheCTR_ESPDOC" Left="112,48812795" Top="0" Width="34,01577" Height="18,89765" DataField="CTP_ESPDUP" DataSet="QDetalhe" DataSetName="QDetalhe" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="courier New" Font.Style="0" ParentFont="False" Text="[QDetalhe.&#34;CTP_ESPDUP&#34;]"/>
      <TfrxMemoView Name="QDetalheCTR_NUMPAR" Left="146,50389795" Top="0" Width="37,7953" Height="18,89765" DataField="CTP_NUMPAR" DataSet="QDetalhe" DataSetName="QDetalhe" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Courier New" Font.Style="0" ParentFont="False" Text="[QDetalhe.&#34;CTP_NUMPAR&#34;]"/>
      <TfrxMemoView Name="QDetalheCTP_VALPAG" Align="baRight" Left="619,84292" Top="0" Width="98,26778" Height="18,89765" DataSet="QDetalhe" DataSetName="QDetalhe" DisplayFormat.FormatStr="%2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Courier New" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[QDetalhe.&#34;CTP_VALPAG&#34;]"/>
      <TfrxMemoView Name="Memo3" Left="362,71676" Top="0" Width="94,48818898" Height="18,89765" DataSet="QDetalhe" DataSetName="QDetalhe" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Courier New" Font.Style="0" HAlign="haCenter" ParentFont="False" Text="[QDetalhe.&#34;CTP_DTAPAG&#34;]"/>
      <TfrxMemoView Name="QDetalheCUS_DESCRI" Left="458,44125" Top="0" Width="158,74026" Height="18,89765" DataField="CUS_DESCRI" DataSet="QDetalhe" DataSetName="QDetalhe" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Courier New" Font.Style="0" ParentFont="False" Text="[QDetalhe.&#34;CUS_DESCRI&#34;]"/>
    </TfrxDetailData>
    <TfrxFooter Name="Footer1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Height="22,91342" Left="0" Top="244" Width="718,1107">
      <TfrxMemoView Name="mm_total_pago" Align="baWidth" Left="0" Top="0,23624" Width="718,1107" Height="22,67718" DataSet="QDetalhe" DataSetName="QDetalhe" DisplayFormat.FormatStr="%2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Courier New" Font.Style="1" Frame.Typ="8" HAlign="haRight" ParentFont="False" Text="Total Pago: R$ [SUM(&#60;QDetalhe.&#34;CTP_VALPAG&#34;&#62;,DD1)]"/>
    </TfrxFooter>
  </TfrxReportPage>
  <TfrxReportPage Name="Lis_Titulos_Em_Aberto" Visible="False" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
    <TfrxReportTitle Name="ReportTitle1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Height="68,91342" Left="0" Top="16" Width="718,1107" Stretched="True">
      <TfrxMemoView Name="Memo8" Align="baWidth" Left="0" Top="18,8976378" Width="517,79561" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Courier New" Font.Style="1" ParentFont="False" VAlign="vaCenter" Text="Listagem de Títulos em Aberto"/>
      <TfrxMemoView Name="Memo13" Align="baRight" Left="517,79561" Top="19" Width="200,31509" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Courier New" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[IIF(&#60;RelReferencia&#62;='','','(Ref.:'+&#60;RelReferencia&#62;+')')]"/>
      <TfrxMemoView Name="Memo14" Align="baWidth" Left="56,69295" Top="38,67718" Width="661,41775" Height="30,23624" StretchMode="smMaxHeight" Font.Charset="0" Font.Color="0" Font.Height="-11" Font.Name="Courier New" Font.Style="0" ParentFont="False" Text="[&#60;Filtros&#62;]"/>
      <TfrxMemoView Name="Memo16" Align="baLeft" Left="0" Top="38,67718" Width="56,69295" Height="30,23624" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Courier New" Font.Style="0" ParentFont="False" Text="Filtros:"/>
      <TfrxMemoView Name="Memo17" Align="baWidth" Left="0" Top="0" Width="517,79561" Height="18,89765" DataField="EMP_NOMEMP" DataSet="QEmpresa" DataSetName="QEmpresa" Font.Charset="0" Font.Color="0" Font.Height="-13" Font.Name="Courier New" Font.Style="0" ParentFont="False" Text="[QEmpresa.&#34;EMP_NOMEMP&#34;]"/>
      <TfrxMemoView Name="Memo18" Align="baRight" Left="517,79561" Top="0" Width="200,31509" Height="15,11812" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Courier New" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Emissão: [DATE] [Time]"/>
    </TfrxReportTitle>
    <TfrxMasterData Name="MasterData1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Height="23,32282" Left="0" Top="160" Width="718,1107" AllowSplit="True" ColumnWidth="0" ColumnGap="0" DataSet="QryLisTitAbe" DataSetName="QryLisTitAbe" PrintIfDetailEmpty="True" RowCount="0" Stretched="True">
      <TfrxMemoView Name="QryLisTitAbeCTR_NUMDUP" Align="baLeft" Left="0" Top="0" Width="124,72449" Height="15,11811024" StretchMode="smMaxHeight" DataSet="QryLisTitAbe" DataSetName="QryLisTitAbe" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Courier New" Font.Style="0" ParentFont="False" VAlign="vaCenter" Text="[QryLisTitAbe.&#34;CTP_NUMDUP&#34;]/[QryLisTitAbe.&#34;CTP_NUMPAR&#34;]-[QryLisTitAbe.&#34;CTP_ESPDUP&#34;]"/>
      <TfrxMemoView Name="QryLisTitAbeCTR_CODCLI" Align="baLeft" Left="124,72449" Top="0" Width="434,64595" Height="15,11811024" StretchMode="smMaxHeight" DataSet="QryLisTitAbe" DataSetName="QryLisTitAbe" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Courier New" Font.Style="0" ParentFont="False" VAlign="vaCenter" Text="[QryLisTitAbe.&#34;CTP_CODFOR&#34;] - [QryLisTitAbe.&#34;FOR_NOMFOR&#34;] ([QryLisTitAbe.&#34;FOR_FANTAS&#34;])"/>
      <TfrxMemoView Name="QryLisTitAbeCTR_DTAVEN" Align="baLeft" Left="559,37044" Top="0" Width="68,03154" Height="15,11811024" StretchMode="smMaxHeight" DataSet="QryLisTitAbe" DataSetName="QryLisTitAbe" DisplayFormat.FormatStr="dd/mm/yy" DisplayFormat.Kind="fkDateTime" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Courier New" Font.Style="0" ParentFont="False" VAlign="vaCenter" Text="[QryLisTitAbe.&#34;CTP_DTAVEN&#34;]"/>
      <TfrxMemoView Name="QryLisTitAbeCTR_VALDUP" Align="baLeft" Left="627,40198" Top="0" Width="90,70872" Height="15,11811024" StretchMode="smMaxHeight" DataSet="QryLisTitAbe" DataSetName="QryLisTitAbe" DisplayFormat.FormatStr="%2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Courier New" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[QryLisTitAbe.&#34;CTP_VALDUP&#34;]"/>
    </TfrxMasterData>
    <TfrxReportSummary Name="ReportSummary1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Height="22,67718" Left="0" Top="204" Width="718,1107">
      <TfrxMemoView Name="Memo22" Align="baWidth" Left="0" Top="0" Width="593,38633205" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Courier New" Font.Style="1" Frame.Typ="4" HAlign="haRight" ParentFont="False" Text="Total Geral:"/>
      <TfrxMemoView Name="Memo23" Align="baRight" Left="593,38633205" Top="0" Width="124,72436795" Height="18,89765" DataSet="QDetalhe" DataSetName="QDetalhe" DisplayFormat.FormatStr="%2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Courier New" Font.Style="1" Frame.Typ="4" HAlign="haRight" ParentFont="False" Text="[SUM(&#60;QryLisTitAbe.&#34;CTP_VALDUP&#34;&#62;)]"/>
    </TfrxReportSummary>
    <TfrxPageFooter Name="PageFooter1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Height="15,11812" Left="0" ParentFont="False" Top="248" Width="718,1107">
      <TfrxSysMemoView Name="SysMemo1" Align="baRight" Left="612,28386" Top="0,13385827" Width="105,82684" Height="15,11812" Font.Charset="0" Font.Color="0" Font.Height="-12" Font.Name="Courier New" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[PAGE#]/[TOTALPAGES#]"/>
    </TfrxPageFooter>
    <TfrxPageHeader Name="PageHeader1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Height="34,01577" Left="0" Top="104" Width="718,1107">
      <TfrxMemoView Name="Memo19" Align="baLeft" Left="124,72436795" Top="0" Width="434,64582795" Height="26,4566978" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Courier New" Font.Style="1" Frame.Typ="12" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
      <TfrxMemoView Name="Memo20" Align="baLeft" Left="0" Top="0" Width="124,72436795" Height="26,4566978" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Courier New" Font.Style="1" Frame.Typ="12" ParentFont="False" VAlign="vaCenter" Text="Nº Duplicata"/>
      <TfrxMemoView Name="Memo21" Align="baLeft" Left="559,3701959" Top="0" Width="68,03141795" Height="26,4566978" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Courier New" Font.Style="1" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Vencto"/>
      <TfrxMemoView Name="Memo24" Align="baLeft" Left="627,40161385" Top="0" Width="90,70859795" Height="26,4566978" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Courier New" Font.Style="1" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Valor"/>
    </TfrxPageHeader>
  </TfrxReportPage>
</TfrxReport>
