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.
123 lines
2.9 KiB
123 lines
2.9 KiB
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
|