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.
 

277 lines
6.0 KiB

object confrelPrestacaoContas: TconfrelPrestacaoContas
Left = 0
Top = 0
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Presta'#231#227'o de Contas'
ClientHeight = 243
ClientWidth = 1229
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
KeyPreview = True
OldCreateOrder = False
Position = poDesktopCenter
OnClose = FormClose
OnCreate = FormCreate
OnKeyDown = FormKeyDown
PixelsPerInch = 96
TextHeight = 13
object gb_data: TGroupBox
Left = 8
Top = 8
Width = 333
Height = 65
Caption = 'Intervalo'
TabOrder = 0
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 = 139
Width = 333
Height = 65
Caption = 'Credor'
TabOrder = 1
object dblucb_beneficiario: TDBLookupComboBox
Left = 10
Top = 26
Width = 311
Height = 21
KeyField = 'ID_EMPRESA'
ListField = 'TX_NOME'
ListSource = dtsBeneficiarios
TabOrder = 0
end
end
object btn_viewreport: TButton
Left = 8
Top = 211
Width = 75
Height = 25
Caption = 'Visualizar'
TabOrder = 2
OnClick = btn_viewreportClick
end
object rg_tipo: TRadioGroup
Left = 8
Top = 79
Width = 333
Height = 54
Caption = 'Tipo de Pesquisa'
Columns = 2
Items.Strings = (
'Data do C'#225'lculo'
'Emiss'#227'o de Recibo')
TabOrder = 3
end
object btn_imprimir: TButton
Left = 266
Top = 210
Width = 75
Height = 25
Caption = 'Imprimir'
Enabled = False
TabOrder = 4
OnClick = btn_imprimirClick
end
object pg_tipo: TPageControl
Left = 347
Top = 7
Width = 874
Height = 228
ActivePage = tbRel
TabOrder = 5
object tbRel: TTabSheet
Caption = 'Lista de Relat'#243'rio'
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object lv_prestacao: TListView
Left = 3
Top = 3
Width = 860
Height = 194
Checkboxes = True
Columns = <
item
Caption = 'Incluir'
MaxWidth = 40
MinWidth = 40
Width = 40
end
item
Caption = 'Nome'
MaxWidth = 400
MinWidth = 400
Width = 400
end
item
Caption = 'Produto'
MaxWidth = 140
MinWidth = 140
Width = 140
end
item
Caption = 'Vencimento'
MaxWidth = 80
MinWidth = 80
Width = 80
end
item
Caption = 'Pagamento'
MaxWidth = 80
MinWidth = 80
Width = 80
end
item
Caption = 'Nominal'
MaxWidth = 100
MinWidth = 100
Width = 100
end>
ReadOnly = True
RowSelect = True
PopupMenu = ppm_marca
TabOrder = 0
ViewStyle = vsReport
end
end
object tbQuebra: TTabSheet
Caption = 'M'#250'ltiplos Pagamentos'
ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object lv_multi: TListView
Left = 3
Top = 3
Width = 860
Height = 194
Columns = <
item
Caption = 'Nome'
MaxWidth = 400
MinWidth = 400
Width = 400
end
item
Caption = 'Produto'
MaxWidth = 140
MinWidth = 140
Width = 140
end
item
Caption = 'Vencimento'
MaxWidth = 80
MinWidth = 80
Width = 80
end
item
Caption = 'Pagamento'
MaxWidth = 80
MinWidth = 80
Width = 80
end
item
Caption = 'Nominal'
MaxWidth = 100
MinWidth = 100
Width = 100
end>
ReadOnly = True
RowSelect = True
PopupMenu = PopupMenu1
TabOrder = 0
ViewStyle = vsReport
end
end
end
object dtsBeneficiarios: TDataSource
DataSet = dtmSystem.tblCHGEmpresa
OnDataChange = dtsBeneficiariosDataChange
Left = 184
Top = 56
end
object ZReadOnlyQuery1: TZReadOnlyQuery
Connection = dtmSystem.ZConnection
Params = <>
Left = 128
Top = 120
end
object dtsFiltro: TDataSource
DataSet = qryFiltro
Left = 288
Top = 112
end
object qryFiltro: TZQuery
Connection = dtmSystem.ZConnection
Params = <>
Left = 264
Top = 171
end
object ppm_marca: TPopupMenu
Left = 296
Top = 56
object IncluirTodos1: TMenuItem
Caption = 'Incluir Todos'
OnClick = IncluirTodos1Click
end
object N1: TMenuItem
Caption = '-'
end
object DesmarcarTodos1: TMenuItem
Caption = 'Desmarcar Todos'
OnClick = DesmarcarTodos1Click
end
end
object ZReadOnlyQuery2: TZReadOnlyQuery
Connection = dtmSystem.ZConnection
Params = <>
Left = 136
Top = 179
end
object PopupMenu1: TPopupMenu
Left = 248
Top = 8
object ImprimirLista1: TMenuItem
Caption = 'Imprimir Lista'
OnClick = ImprimirLista1Click
end
end
object zroqryVerificador: TZReadOnlyQuery
Connection = dtmSystem.ZConnection
Params = <>
Left = 232
Top = 139
end
end