inherited frmAchaRecibo: TfrmAchaRecibo Caption = 'Recibos' ClientHeight = 302 ClientWidth = 911 Position = poDesktopCenter OnCanResize = FormCanResize ExplicitWidth = 917 ExplicitHeight = 331 PixelsPerInch = 96 TextHeight = 13 inherited stbStatus: TStatusBar Top = 283 Width = 911 ExplicitTop = 283 ExplicitWidth = 911 end object gb_pesquisar: TGroupBox Left = 8 Top = 8 Width = 273 Height = 265 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 object lbl_pesquisar: TLabel Left = 10 Top = 10 Width = 31 Height = 13 Caption = 'Nome:' end object edt_campop: TEdit Left = 10 Top = 29 Width = 255 Height = 21 MaxLength = 255 TabOrder = 0 end object btn_pesquisar: TButton Left = 190 Top = 56 Width = 75 Height = 25 Caption = 'Pesquisar' TabOrder = 1 OnClick = btn_pesquisarClick end object dbgrd_pesquisar: TDBGrid Left = 10 Top = 87 Width = 255 Height = 170 DataSource = dtsPesquisa Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack] ReadOnly = True TabOrder = 2 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] OnDblClick = dbgrd_pesquisarDblClick end object cbx_tiponome: TComboBox Left = 10 Top = 58 Width = 151 Height = 21 Style = csDropDownList ItemIndex = 0 TabOrder = 3 Text = 'Devedor' Items.Strings = ( 'Devedor' 'Pai do Devedor' 'M'#227'e do Devedor' 'CPF/CNPJ' 'C'#243'digo do Devedor' 'Telefone') end end object gb_recibo: TGroupBox Left = 287 Top = 8 Width = 618 Height = 265 TabOrder = 2 object dbgrd_recibo: TDBGrid Left = 16 Top = 16 Width = 585 Height = 241 DataSource = dtsRecibos Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack] PopupMenu = PopupMenu1 ReadOnly = True TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] OnDrawColumnCell = dbgrd_reciboDrawColumnCell OnDblClick = dbgrd_reciboDblClick Columns = < item Expanded = False FieldName = 'NR_RECIBO' Title.Caption = 'N'#250'mero' Width = 71 Visible = True end item Expanded = False FieldName = 'TX_NOME' Title.Caption = 'Nome do recibo' Width = 150 Visible = True end item Expanded = False FieldName = 'VL_CORRIGIDO' Title.Caption = 'Valor' Visible = True end item Expanded = False FieldName = 'TX_CAIXA' Title.Caption = 'Caixa' Visible = True end item Expanded = False FieldName = 'DT_IMPRESSAO' Title.Caption = 'Data da Impress'#227'o' Visible = True end item Expanded = False FieldName = 'TX_CAMINHO' Title.Caption = 'Caminho' Visible = True end> end end object qryPesquisa: TZQuery Connection = dtmSystem.ZConnection Params = <> Left = 32 Top = 192 end object dtsPesquisa: TDataSource DataSet = qryPesquisa Left = 96 Top = 192 end object dtsRecibos: TDataSource DataSet = dtmSystem.tblRecibo Left = 367 Top = 200 end object PopupMenu1: TPopupMenu Left = 391 Top = 80 object ppmnu_cancelarecibo: TMenuItem Caption = 'Cancelar Recibo' OnClick = ppmnu_cancelareciboClick end object ppmnu_reativarrecibo: TMenuItem Caption = 'Reativar Recibo' OnClick = ppmnu_reativarreciboClick end end end