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