You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 

381 lines
9.0 KiB

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