inherited confrelRelatorioTCC: TconfrelRelatorioTCC Caption = 'Relat'#243'rio TCC' ClientHeight = 203 ClientWidth = 352 ExplicitWidth = 358 ExplicitHeight = 231 PixelsPerInch = 96 TextHeight = 13 inherited stbStatus: TStatusBar Top = 184 Width = 352 ExplicitTop = 184 ExplicitWidth = 352 end object gb_data: TGroupBox Left = 8 Top = 8 Width = 333 Height = 65 Caption = 'Intervalo' TabOrder = 1 object Label1: TLabel Left = 168 Top = 31 Width = 6 Height = 13 Caption = 'a' end object dtp_inicio: TDateTimePicker Left = 10 Top = 26 Width = 97 Height = 21 Date = 43168.429167685190000000 Time = 43168.429167685190000000 TabOrder = 0 end object dtp_fim: TDateTimePicker Left = 224 Top = 26 Width = 97 Height = 21 Date = 43168.429167685190000000 Time = 43168.429167685190000000 TabOrder = 1 end end object gb_beneficiario: TGroupBox Left = 8 Top = 79 Width = 333 Height = 65 Caption = 'Benefici'#225'rio' TabOrder = 2 object dblucb_beneficiario: TDBLookupComboBox Left = 10 Top = 26 Width = 311 Height = 21 KeyField = 'ID_EMPRESA' ListField = 'TX_NOME' ListSource = dtmSystem.dtsCHGEmpresa TabOrder = 0 end end object btn_viewreport: TButton Left = 133 Top = 150 Width = 75 Height = 25 Caption = 'Visualizar' TabOrder = 3 OnClick = btn_viewreportClick end object dtsRelatorio: TDataSource DataSet = roqryRelatorio Left = 124 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 = 196 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 end