programa_cobranca/ufrmAchaRecibo.dfm

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