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
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
|