object relTCC: TrelTCC Left = 0 Top = 0 BorderStyle = bsNone Caption = 'relTCC' ClientHeight = 566 ClientWidth = 820 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object frrelTCC: TRLReport Left = 8 Top = 16 Width = 794 Height = 1123 DataSource = dtsRelatorio Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] AfterPrint = frrelTCCAfterPrint BeforePrint = frrelTCCBeforePrint object RLBand1: TRLBand Left = 38 Top = 198 Width = 718 Height = 18 AutoSize = True Borders.Sides = sdCustom Borders.DrawLeft = True Borders.DrawTop = False Borders.DrawRight = True Borders.DrawBottom = True object RLDBText3: TRLDBText Left = 252 Top = 1 Width = 98 Height = 16 AutoSize = False DataField = 'TX_PRODUTO' DataSource = dtsRelatorio Text = '' end object RLDBText4: TRLDBText Left = 358 Top = 1 Width = 112 Height = 16 DataField = 'DT_VENCIMENTO' DataSource = dtsRelatorio Text = '' end object RLDBText5: TRLDBText Left = 437 Top = 1 Width = 90 Height = 16 DataField = 'VL_TITULO' DataSource = dtsRelatorio Text = 'R$ ' end object RLDBText6: TRLDBText Left = 525 Top = 1 Width = 110 Height = 16 DataField = 'DT_PAGAMENTO' DataSource = dtsRelatorio Text = '' end object RLDBText7: TRLDBText Left = 611 Top = 1 Width = 119 Height = 16 DataField = 'VL_CORRIGIDO' DataSource = dtsRelatorio Text = 'R$ ' end object RLDBText1: TRLDBText Left = 126 Top = 1 Width = 118 Height = 16 AutoSize = False DataField = 'TX_NOME' DataSource = dtsRelatorio Text = '' end object RLDBText2: TRLDBText Left = 0 Top = 1 Width = 120 Height = 16 AutoSize = False DataField = 'TX_DOCUMENTO' DataSource = dtsRelatorio Text = '' end end object frbnd_header: TRLBand Left = 38 Top = 38 Width = 718 Height = 144 AutoExpand = False BandType = btHeader Borders.Sides = sdCustom Borders.DrawLeft = True Borders.DrawTop = True Borders.DrawRight = True Borders.DrawBottom = True object frpnl_logo: TRLPanel Left = 1 Top = 0 Width = 160 Height = 143 Align = faLeftOnly Borders.Sides = sdCustom Borders.DrawLeft = False Borders.DrawTop = True Borders.DrawRight = True Borders.DrawBottom = False object frdbimg_logo: TRLDBImage Left = 0 Top = 1 Width = 159 Height = 142 Align = faClient AutoSize = True Borders.Sides = sdCustom Borders.DrawLeft = False Borders.DrawTop = False Borders.DrawRight = False Borders.DrawBottom = False DataField = 'IMG_LOGO' DataSource = dtmSystem.dtsEmpresa Stretch = True end end object frlbl_titulorel: TRLLabel Left = 167 Top = 52 Width = 515 Height = 24 Caption = 'Presta'#231#227'o de Contas de Mensalidades Liquidadas.' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -21 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end end object RLBand2: TRLBand Left = 38 Top = 182 Width = 718 Height = 16 BandType = btColumnHeader Borders.Sides = sdCustom Borders.DrawLeft = True Borders.DrawTop = False Borders.DrawRight = True Borders.DrawBottom = True object RLLabel1: TRLLabel Left = 0 Top = 0 Width = 70 Height = 16 Caption = 'Documento' end object RLLabel2: TRLLabel Left = 126 Top = 0 Width = 38 Height = 16 Caption = 'Nome' end object RLLabel3: TRLLabel Left = 252 Top = 0 Width = 35 Height = 16 Caption = 'T'#237'tulo' end object RLLabel4: TRLLabel Left = 358 Top = 0 Width = 73 Height = 16 Caption = 'Vencimento' end object RLLabel5: TRLLabel Left = 437 Top = 0 Width = 82 Height = 16 Caption = 'Valor Original' end object RLLabel6: TRLLabel Left = 525 Top = 0 Width = 80 Height = 16 Caption = 'Recebimento' end object RLLabel7: TRLLabel Left = 611 Top = 0 Width = 92 Height = 16 Caption = 'Valor Recebido' end end object RLBand3: TRLBand Left = 38 Top = 216 Width = 718 Height = 17 AutoSize = True BandType = btColumnFooter Borders.Sides = sdCustom Borders.DrawLeft = True Borders.DrawTop = False Borders.DrawRight = True Borders.DrawBottom = True object RLDBResult1: TRLDBResult Left = 437 Top = 0 Width = 129 Height = 16 DataField = 'VL_TITULO' DataSource = dtsRelatorio Info = riSum Text = 'R$ ' end object RLDBResult2: TRLDBResult Left = 611 Top = 0 Width = 154 Height = 16 DataField = 'VL_CORRIGIDO' DataSource = dtsRelatorio Info = riSum Text = 'R$' end end object RLBand4: TRLBand Left = 38 Top = 233 Width = 718 Height = 16 BandType = btFooter object frlbl_usuario: TRLLabel Left = 0 Top = 0 Width = 77 Height = 16 Align = faBottomOnly Caption = 'Atendente: ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object frdblbl_usuario: TRLDBText Left = 76 Top = 0 Width = 64 Height = 16 Align = faBottomOnly DataField = 'TX_NOME' DataSource = dtmSystem.dtsUsuarios Text = '' end object RLSystemInfo2: TRLSystemInfo Left = 503 Top = 3 Width = 49 Height = 13 Align = faBottomOnly Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'unifont' Font.Style = [] ParentFont = False Text = '' end object RLSystemInfo1: TRLSystemInfo Left = 605 Top = 3 Width = 49 Height = 13 Align = faBottomOnly Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'unifont' Font.Style = [] Info = itHour ParentFont = False Text = '' end end end object dtsRelatorio: TDataSource DataSet = roqryRelatorio Left = 640 Top = 24 end object roqryRelatorio: TZReadOnlyQuery Connection = dtmSystem.ZConnection SQL.Strings = ( 'select first 0' 'd.tx_nome,' 'case when d.tp_cliente = '#39'F'#39' then d.cd_cpf' 'when d.tp_cliente = '#39'J'#39' then d.cd_cnpj' 'end as tx_documento,' 't.tx_produto,' 't.dt_vencimento,' 't.vl_titulo,' 't.dt_pagamento,' 't.vl_corrigido' 'from chg_titulos t' 'left join chg_devedores d on d.id_devedor = t.id_devedor') Params = <> Left = 720 Top = 24 object roqryRelatorioTX_NOME: TWideStringField FieldName = 'TX_NOME' Size = 60 end object roqryRelatorioTX_DOCUMENTO: TWideStringField FieldName = 'TX_DOCUMENTO' ReadOnly = True Size = 18 end object roqryRelatorioTX_PRODUTO: TWideStringField FieldName = 'TX_PRODUTO' Size = 100 end object roqryRelatorioDT_VENCIMENTO: TDateTimeField FieldName = 'DT_VENCIMENTO' Required = True end object roqryRelatorioVL_TITULO: TFloatField FieldName = 'VL_TITULO' end object roqryRelatorioDT_PAGAMENTO: TDateTimeField FieldName = 'DT_PAGAMENTO' end object roqryRelatorioVL_CORRIGIDO: TFloatField FieldName = 'VL_CORRIGIDO' end end object frfilterpdf: TRLPDFFilter DocumentInfo.Creator = 'FortesReport Community Edition v4.0 \251 Copyright '#169' 1999-2015 F' + 'ortes Inform'#225'tica' DisplayName = 'Documento PDF' Left = 720 Top = 80 end object RLXLSXFilter1: TRLXLSXFilter Options = [xfoOneSheetPerPage] DisplayName = 'Planilha Excel' Left = 638 Top = 78 end end