<?xml version="1.0" encoding="utf-8" standalone="no"?>
<TfrxReport Version="4.8.27" DotMatrixReport="False" EngineOptions.MaxMemSize="20" EngineOptions.SilentMode="True" EngineOptions.NewSilentMode="simSilent" 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="42030,3566494444" ScriptLanguage="PascalScript" ScriptText.Text="{&#13;&#10;========================================================================                                                                          &#13;&#10;Relatório Padrão Simples&#13;&#10;&#13;&#10;  Não exclua os Objetos das Bands: &#34;TituloRelatorio&#34; (Filtros = opcional),   &#13;&#10;  &#34;Rodape Pagina&#34; e nem os bjs &#34;QPrincipal&#34; e &#34;QEmpresa&#34;.&#13;&#10;  Use a QPrincipal para o SQL principal, pois a checagem abaixo é para&#13;&#10;  verificar se há registros na mesma.&#13;&#10;  O cabeçalho já esta pronto, não esqueça de alterar o objeto &#34;Título&#34; &#13;&#10;  e/ou &#34;Referencia&#34; (opcional) e de alimentar a variavel  &#34;CodEmpresa&#34; &#13;&#10;  (pelo programa) para que o nome da empresa seja mostrado e tbm a &#13;&#10;  variável &#34;Filtros&#34; (opcional, mas lembre-se de passar por aspas os &#13;&#10;  valores do filtro)&#13;&#10;  Procure passar todos os valores para o filtros do SQL (cláusula WHERE)&#13;&#10;  por variavéis (componente TfrxVariables) pelo programa.&#13;&#10;  Mantenha os objetos alinhados sem deixar espeços entre eles (sujestão.:&#13;&#10;  use propriedade Align)                                                            &#13;&#10;&#13;&#10;&#13;&#10;  por Jaime P.Jr em 15/04/2013&#13;&#10;========================================================================}&#13;&#10;&#13;&#10;  &#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;  &#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;{fim}&#13;&#10;&#13;&#10;  &#13;&#10;end." StoreInDFM="False" PropData="044C65667403D80203546F7002100844617461736574730101062A20446174615365743D2251456D70726573612220446174615365744E616D653D2251456D7072657361220001062E20446174615365743D22515072696E636970616C2220446174615365744E616D653D22515072696E636970616C220000095661726961626C65730101061C204E616D653D22436F64456D7072657361222056616C75653D2231220001061A204E616D653D2246696C74726F73222056616C75653D2227272200010620204E616D653D2252656C5265666572656E636961222056616C75653D222727220001061F204E616D653D2244746156656E636572222056616C75653D223432303232220001061F204E616D653D2244746156656E636575222056616C75653D223432303035220000055374796C650100">
  <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 @DtaVenceu date = :DtaVenceu,&#13;&#10;        @DtaVencer date = :DtaVencer  &#13;&#10;        &#13;&#10;select CLI_CODIGO, CLI_NOMCLI, SVE_NUMDOC, SVE_ESPDOC, SVE_DTASER, CSV_DESCRI,&#13;&#10;       dateadd(day,CSV_DIAVEN,SVE_DTASER) as DTA_VENCIMENTO, CLI_FONE01  &#13;&#10;from mov_servicos&#13;&#10;left join cad_servico on CSV_ID_CSV = SVE_CODCSV&#13;&#10;left join fatger on FTG_CODEMP = SVE_CODEMP and&#13;&#10;                    FTG_NUMCAX = SVE_NUMCAX and&#13;&#10;                    FTG_NUMDOC = SVE_NUMDOC and&#13;&#10;                    FTG_ESPDOC = SVE_ESPDOC and&#13;&#10;                    FTG_SEQCAI = SVE_SEQCAI&#13;&#10;left join cadcli on CLI_CODIGO = FTG_CODCLI&#13;&#10;where dateadd(day,CSV_DIAVEN,SVE_DTASER) &#62;= @DtaVenceu and&#13;&#10;      dateadd(day,CSV_DIAVEN,SVE_DTASER) &#60;= @DtaVencer&#13;&#10;order by CLI_NOMCLI, dateadd(day,CSV_DIAVEN,SVE_DTASER)       &#13;&#10;          " CommandTimeout="1800" LockType="ltReadOnly" PropData="05704C65667402200470546F70021C0A506172616D657465727301010644204E616D653D2244746156656E636575222044617461547970653D22667444617465222045787072657373696F6E3D22262336303B44746156656E636575262336323B2200010644204E616D653D2244746156656E636572222044617461547970653D22667444617465222045787072657373696F6E3D22262336303B44746156656E636572262336323B220000"/>
    <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"/>
  </TfrxDataPage>
  <TfrxReportPage Name="Relatorio1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
    <TfrxReportTitle Name="TituloRelatorio" Height="38,67718" Left="0" Top="18,89765" Width="718,1107" Stretched="True">
      <TfrxMemoView Name="Titulo" Align="baWidth" Left="0" Top="18,8976378" Width="517,79561" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Courier New" Font.Style="1" ParentFont="False" VAlign="vaCenter" Text="Serviços vencidos ou a vencer"/>
      <TfrxMemoView Name="RelReferencia" Align="baRight" Left="517,79561" Top="19" Width="200,31509" Height="18,89765" ShowHint="False" 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="NomeEmpresa" Align="baWidth" Left="0" Top="0" Width="517,79561" Height="18,89765" ShowHint="False" 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" ShowHint="False" 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>
    <TfrxPageFooter Name="RodapePagina" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" Height="15,11812" Left="0" ParentFont="False" Top="340,1577" Width="718,1107">
      <TfrxSysMemoView Name="TotalPaginas" Align="baRight" Left="612,28386" Top="0,13385827" Width="105,82684" Height="15,11812" ShowHint="False" 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" Height="26,4566978" Left="0" Top="253,22851" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSet="QPrincipal" DataSetName="QPrincipal" RowCount="0">
      <TfrxMemoView Name="QPrincipalSVE_NUMDOC" Left="0" Top="2,89765" Width="132,28348898" Height="18,89765" ShowHint="False" DataSet="QPrincipal" DataSetName="QPrincipal" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Courier New" Font.Style="0" HAlign="haCenter" ParentFont="False" Text="[QPrincipal.&#34;SVE_NUMDOC&#34;]-[QPrincipal.&#34;SVE_ESPDOC&#34;]"/>
      <TfrxMemoView Name="QPrincipalCSV_DESCRI" Left="132,26778" Top="2,89765" Width="351,49618016" Height="18,89765" ShowHint="False" DataField="CSV_DESCRI" 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;CSV_DESCRI&#34;]"/>
      <TfrxMemoView Name="QPrincipalSVE_DTASER" Left="483,97658299" Top="2,89765" Width="117,16535921" Height="18,89765" ShowHint="False" DataSet="QPrincipal" DataSetName="QPrincipal" DisplayFormat.FormatStr="dd/mm/yyyy" DisplayFormat.Kind="fkDateTime" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Courier New" Font.Style="0" HAlign="haCenter" ParentFont="False" Text="[QPrincipal.&#34;SVE_DTASER&#34;]"/>
      <TfrxMemoView Name="QPrincipalDTA_VENCIMENTO" Left="600,50443496" Top="2,89765" Width="117,16532504" Height="18,89765" ShowHint="False" DataSet="QPrincipal" DataSetName="QPrincipal" DisplayFormat.FormatStr="dd/mm/yyyy" DisplayFormat.Kind="fkDateTime" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Courier New" Font.Style="0" HAlign="haCenter" ParentFont="False" Text="[QPrincipal.&#34;DTA_VENCIMENTO&#34;]"/>
    </TfrxMasterData>
    <TfrxHeader Name="CabecalhoMD" Height="60,47248" Left="0" Top="117,16543" Width="718,1107">
      <TfrxMemoView Name="Memo1" Left="0" Top="29,89765" Width="132,283464566929" Height="18,8976378" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Courier New" Font.Style="1" ParentFont="False" VAlign="vaCenter" Text="Documento"/>
      <TfrxMemoView Name="Memo2" Left="132,26790693" Top="29,89765" Width="351,49605323" Height="18,8976378" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Courier New" Font.Style="1" ParentFont="False" VAlign="vaCenter" Text="Serviço"/>
      <TfrxMemoView Name="Memo4" Left="483,9765" Top="29,89765" Width="117,16535921" Height="18,8976378" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Courier New" Font.Style="1" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Data Serviço"/>
      <TfrxMemoView Name="Memo7" Left="600,50440079" Top="29,89765" Width="117,16535921" Height="18,8976378" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Courier New" Font.Style="1" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Vencimento"/>
      <TfrxMemoView Name="Memo5" Left="-0,44094" Top="10,22047" Width="718,1107" Height="18,8976378" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Courier New" Font.Style="1" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
      <TfrxLineView Name="Line1" Left="0" Top="50,57483" Width="718,1107" Height="0" ShowHint="False" Frame.Typ="4"/>
      <TfrxLineView Name="Line2" Left="-0,77953" Top="9" Width="718,1107" Height="0" ShowHint="False" Frame.Typ="4"/>
    </TfrxHeader>
    <TfrxGroupHeader Name="GroupHeader1" Height="30,23624" Left="0" Top="200,31509" Width="718,1107" Condition="QPrincipal.&#34;CLI_CODIGO&#34;">
      <TfrxMemoView Name="QPrincipalCLI_CODIGO" Left="0" Top="5" Width="529,13413898" Height="18,89765" ShowHint="False" DataSet="QPrincipal" DataSetName="QPrincipal" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Courier New" Font.Style="1" ParentFont="False" Text="[QPrincipal.&#34;CLI_CODIGO&#34;] - [QPrincipal.&#34;CLI_NOMCLI&#34;]"/>
      <TfrxMemoView Name="QPrincipalCLI_FONE01" Left="529,1342" Top="5" Width="188,9765" Height="18,89765" ShowHint="False" DataField="CLI_FONE01" DataSet="QPrincipal" DataSetName="QPrincipal" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Courier New" Font.Style="1" ParentFont="False" Text="[QPrincipal.&#34;CLI_FONE01&#34;]"/>
    </TfrxGroupHeader>
  </TfrxReportPage>
</TfrxReport>
