inherited frmCancelamento_ContasReceber: TfrmCancelamento_ContasReceber
  Left = 548
  Top = 276
  Caption = 'frmCancelamento_ContasReceber'
  ClientHeight = 281
  ClientWidth = 540
  OldCreateOrder = True
  ExplicitWidth = 546
  ExplicitHeight = 310
  PixelsPerInch = 96
  TextHeight = 16
  inherited Panel3: TPanel
    Top = 246
    Width = 540
    ExplicitTop = 246
    ExplicitWidth = 540
    inherited Linhabotao: TShape
      Width = 540
    end
    inherited Panel2: TPanel
      Left = 284
      ExplicitLeft = 284
      inherited BtGravar: TBitBtn
        Left = 16
        Width = 141
        Caption = 'Cancelar'
        OnClick = BtGravarClick
        ExplicitLeft = 16
        ExplicitWidth = 141
      end
      inherited BtCancelar: TBitBtn
        Caption = 'Fechar'
      end
    end
  end
  inherited Panel1: TPanel
    Width = 540
    ExplicitWidth = 540
    inherited lblTitulo: TLabel
      Width = 306
      Caption = 'Cancelamento de Conta Receber'
      ExplicitWidth = 306
    end
    inherited Shape1: TShape
      Width = 540
      ExplicitWidth = 540
    end
  end
  object GroupBox3: TGroupBox [2]
    Left = 12
    Top = 44
    Width = 514
    Height = 184
    Caption = 'Conta Receber'
    TabOrder = 2
    object dbNumero: TIB_Edit
      Left = 7
      Top = 29
      Width = 117
      Height = 24
      Hint = 'N'#250'mero NF'
      AutoLabel.Caption = 'N'#250'mero'
      AutoLabel.Kind = albTop
      AutoLabel.Margin = 0
      DataField = 'CONTAS_RECEBER.COD_CONTA_RECEBER'
      DataSource = dtContaReceber
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Verdana'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      ParentBackground = False
      TabOrder = 0
      OnExit = dbNumeroExit
    end
    object btnPesquisaNF: TBitBtn
      Tag = 2
      Left = 128
      Top = 28
      Width = 25
      Height = 25
      Hint = 'Pesquisar NF'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Verdana'
      Font.Style = []
      Glyph.Data = {
        36050000424D3605000000000000360400002800000010000000100000000100
        08000000000000010000320B0000320B000000010000000100005A6B7300AD7B
        73004A637B00EFBD8400B58C8C00A5948C00C6948C00B59C8C00BD9C8C00F7BD
        8C00BD949400C6949400CE949400C69C9400CEAD9400F7CE9400C6A59C00CEA5
        9C00D6A59C00C6AD9C00CEAD9C00D6AD9C00F7CE9C00F7D69C004A7BA500CEAD
        A500D6B5A500DEBDA500F7D6A500DEBDAD00DEC6AD00E7C6AD00FFDEAD00FFE7
        AD00CEB5B500F7DEB500F7E7B500FFE7B500FFEFB500D6BDBD00DED6BD00E7DE
        BD00FFE7BD006B9CC600EFDEC600FFEFC600FFF7C600F7E7CE00FFF7CE00F7EF
        D600F7F7D600FFF7D600FFFFD6002184DE00F7F7DE00FFFFDE001884E700188C
        E700FFFFE700188CEF00218CEF00B5D6EF00F7F7EF00FFF7EF00FFFFEF00FFFF
        F700FF00FF004AB5FF0052B5FF0052BDFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0042020A424242
        424242424242424242422B39180B42424242424242424242424243443C180B42
        4242424242424242424242444438180B42424242424242424242424244433918
        0A424242424242424242424242444335004201101A114242424242424242453D
        05072F343434291942424242424242221A2D34343437403E0442424242424206
        231C303437404146284242424242421B210F30373A414140310D42424242421F
        20032434373A3A37321342424242421D25030F2D37373737311042424242420D
        2D2D1C162430333429424242424242421E463F0F0316252E0842424242424242
        4227312D21252314424242424242424242420E141B1B42424242}
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      TabStop = False
      OnClick = btnPesquisaNFClick
    end
    object IB_Edit1: TIB_Edit
      Left = 367
      Top = 29
      Width = 117
      Height = 24
      Hint = 'N'#250'mero NF'
      AutoLabel.Caption = 'Valor'
      AutoLabel.Kind = albTop
      AutoLabel.Margin = 0
      DataField = 'CONTAS_RECEBER.VALOR_A_PAGAR'
      DataSource = dtContaReceber
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Verdana'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      ParentBackground = False
      ReadOnly = True
      TabOrder = 2
    end
    object IB_Edit3: TIB_Edit
      Left = 215
      Top = 29
      Width = 117
      Height = 24
      Hint = 'Data de Vencimento'
      TabStop = False
      AutoLabel.Caption = 'Data Vencimento'
      AutoLabel.Kind = albTop
      AutoLabel.Margin = 0
      DataField = 'CONTAS_RECEBER.DATA_VENCIMENTO'
      DataSource = dtContaReceber
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Verdana'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      ParentBackground = False
      ReadOnly = True
      TabOrder = 3
    end
    object dbNomeFantasia: TIB_Edit
      Left = 7
      Top = 75
      Width = 482
      Height = 24
      AutoLabel.Caption = 'Descri'#231#227'o'
      AutoLabel.Kind = albTop
      DataField = 'CONTAS_RECEBER.DESCRICAO'
      DataSource = dtContaReceber
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Verdana'
      Font.Style = []
      ParentFont = False
      ParentBackground = False
      ReadOnly = True
      TabOrder = 4
    end
    object grpReferencia: TGroupBox
      Left = 7
      Top = 115
      Width = 203
      Height = 57
      TabOrder = 5
      object IB_Edit2: TIB_Edit
        Left = 7
        Top = 23
        Width = 65
        Height = 24
        Cursor = crHandPoint
        AutoLabel.Caption = 'Pedido'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataField = 'CONTAS_RECEBER.COD_PEDIDO'
        DataSource = dtContaReceber
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentBackground = False
        ReadOnly = True
        TabOrder = 0
      end
      object btnPesquisaPedido: TBitBtn
        Left = 73
        Top = 23
        Width = 22
        Height = 24
        Cursor = crHandPoint
        Hint = 'Pesquisa Pedido'
        Glyph.Data = {
          [encoded data, 4800 characters]
          FFFFFFFFFFFFFFFFFFFF}
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        TabStop = False
      end
      object IB_Edit4: TIB_Edit
        Left = 105
        Top = 23
        Width = 41
        Height = 24
        AutoLabel.Caption = 'N'#186
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataField = 'CONTAS_RECEBER.NUMERO_PARCELA'
        DataSource = dtContaReceber
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentBackground = False
        ReadOnly = True
        TabOrder = 2
      end
      object IB_Edit5: TIB_Edit
        Left = 150
        Top = 23
        Width = 41
        Height = 24
        AutoLabel.Caption = 'Total'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataField = 'CONTAS_RECEBER.TOTAL_PARCELAS'
        DataSource = dtContaReceber
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentBackground = False
        ReadOnly = True
        TabOrder = 3
      end
    end
  end
  inherited ImagensPadrao: TImageList
    Bitmap = {
      [encoded data, 8768 characters]
      000000000000}
  end
  object qryContaReceber: TIB_Query
    FieldsDisplayLabel.Strings = (
      'DESCRICAO=Descri'#231#227'o'
      'COD_CONTA_RECEBER=C'#243'digo'
      'TIPOCONTA=Tipo conta'
      'DATA_VENC=Venc.'
      'VALOR=Valor'
      'DATA_PAGAMENTO=Pgto'
      'DATA_VENCIMENTO=Vencimento'
      'VALOR_A_PAGAR=Valor'
      'COD_PEDIDO=Pedido'
      'NUMERO_PARCELA=N'#186
      'TOTAL_PARCELAS=Total Parcelas'
      'CANCELADA=Cancelada')
    FieldsVisible.Strings = (
      'COD_CONTA_RECEBER=TRUE'
      'COD_TIPO_CONTA=FALSE'
      'COD_FORMA_PAGAMENTO=FALSE'
      'COD_USUARIO_CAD=FALSE'
      'COD_USUARIO_BAIXA=FALSE'
      'DESCRICAO=TRUE'
      'DATA_CAD=FALSE'
      'HORA_CAD=FALSE'
      'DATA_VENC=TRUE'
      'VALOR=TRUE'
      'OBS=FALSE'
      'DATA_PAGAMENTO=TRUE'
      'VALOR_PAGAMENTO=FALSE'
      'MULTA=FALSE'
      'JUROS=FALSE'
      'OUTROS=FALSE'
      'DESCONTO=FALSE'
      'TIPOCONTA=TRUE'
      'COD_FILIAL=FALSE'
      'COD_FORMA_ARRECADACAO=FALSE'
      'DESCRICAO_FORMA_ARRECDACAO=FALSE'
      'COD_TIPO_PAGAMENTO=FALSE'
      'BAIXA_COD_BANCO=FALSE'
      'DESCRICAO_FORMA_ARRECADACAO=FALSE'
      'USUARIO_BAIXA=FALSE'
      'FORMA_PAGOU=FALSE'
      'BANCO_BAIXA=FALSE'
      'CANCELADA=TRUE'
      'VALOR_A_PAGAR=TRUE'
      'COD_BORDERO=FALSE'
      'MOTIVO_CANCELADO=FALSE'
      'COD_USUARIO_CANCELADO=FALSE'
      'DATA_CANCELADO=FALSE')
    IB_Connection = Dados.IB_Conexao
    IB_Transaction = Dados.transacao
    SQL.Strings = (
      'SELECT CONTAS_RECEBER.*'
      '   , TIPO_CONTA.DESCRICAO as TipoConta'
      '   , forma_arrecadacao.descricao AS DESCRICAO_FORMA_ARRECADACAO'
      
        '   , '#39'['#39'|| CONTAS_RECEBER.baixa_cod_banco ||'#39'] '#39'||BANCOS.descric' +
        'ao AS BANCO_BAIXA'
      '   , USUARIO.cod_usuario ||'#39'-'#39'|| USUARIO.nome AS USUARIO_BAIXA'
      '   , forma_pagamento.descricao AS FORMA_PAGOU'
      ''
      ''
      'FROM CONTAS_RECEBER'
      
        'LEFT JOIN TIPO_CONTA ON TIPO_CONTA.COD_TIPO_CONTA = CONTAS_RECEB' +
        'ER.COD_TIPO_CONTA'
      
        'LEFT JOIN forma_arrecadacao ON (contas_receber.cod_forma_arrecad' +
        'acao = forma_arrecadacao.cod_forma_arrecadacao )'
      
        'LEFT JOIN convenio_cobranca ON (forma_arrecadacao.cod_convenio_c' +
        'obranca = convenio_cobranca.cod_convenio)'
      
        'LEFT JOIN bancos ON (CONTAS_RECEBER.BAIXA_COD_BANCO = bancos.cod' +
        'igo)'
      
        'LEFT JOIN usuario ON (CONTAS_RECEBER.cod_usuario_baixa = usuario' +
        '.COD_USUARIO)'
      
        'LEFT JOIN forma_pagamento ON (CONTAS_RECEBER.cod_forma_pagamento' +
        ' = forma_pagamento.cod_forma_pagamento)')
    DeleteSQL.Strings = (
      'DELETE FROM CONTAS_RECEBER'
      'WHERE'
      '   COD_CONTA_RECEBER = :OLD_COD_CONTA_RECEBER AND'
      '   COD_FILIAL = :OLD_COD_FILIAL')
    EditSQL.Strings = (
      'UPDATE CONTAS_RECEBER SET'
      '   COD_CONTA_RECEBER = :COD_CONTA_RECEBER, /*PK*/'
      '   COD_FILIAL = :COD_FILIAL, /*PK*/'
      '   COD_TIPO_CONTA = :COD_TIPO_CONTA,'
      '   COD_USUARIO_CAD = :COD_USUARIO_CAD,'
      '   COD_USUARIO_BAIXA = :COD_USUARIO_BAIXA,'
      '   COD_FORMA_PAGAMENTO = :COD_FORMA_PAGAMENTO,'
      '   DESCRICAO = :DESCRICAO,'
      '   DATA_CAD = :DATA_CAD,'
      '   HORA_CAD = :HORA_CAD,'
      '   DATA_VENCIMENTO = :DATA_VENCIMENTO,'
      '   VALOR_A_PAGAR = :VALOR_A_PAGAR,'
      '   OBS = :OBS,'
      '   DATA_PAGAMENTO = :DATA_PAGAMENTO,'
      '   VALOR_PAGAMENTO = :VALOR_PAGAMENTO,'
      '   MULTA = :MULTA,'
      '   JUROS = :JUROS,'
      '   OUTROS = :OUTROS,'
      '   DESCONTO = :DESCONTO,'
      '   COD_PEDIDO = :COD_PEDIDO,'
      '   NUMERO_PARCELA = :NUMERO_PARCELA,'
      '   TOTAL_PARCELAS = :TOTAL_PARCELAS,'
      '   COD_TIPO_PAGAMENTO = :COD_TIPO_PAGAMENTO,'
      '   COD_FORMA_ARRECADACAO = :COD_FORMA_ARRECADACAO,'
      '   BAIXA_COD_BANCO = :BAIXA_COD_BANCO,'
      '   CANCELADA = :CANCELADA,'
      '   COD_BORDERO = :COD_BORDERO,'
      '   MOTIVO_CANCELADO = :MOTIVO_CANCELADO,'
      '   COD_USUARIO_CANCELADO = :COD_USUARIO_CANCELADO,'
      '   DATA_CANCELADO = :DATA_CANCELADO'
      'WHERE'
      '   COD_CONTA_RECEBER = :OLD_COD_CONTA_RECEBER AND'
      '   COD_FILIAL = :OLD_COD_FILIAL')
    InsertSQL.Strings = (
      'INSERT INTO CONTAS_RECEBER('
      '   COD_CONTA_RECEBER, /*PK*/'
      '   COD_FILIAL, /*PK*/'
      '   COD_TIPO_CONTA,'
      '   COD_USUARIO_CAD,'
      '   COD_USUARIO_BAIXA,'
      '   COD_FORMA_PAGAMENTO,'
      '   DESCRICAO,'
      '   DATA_CAD,'
      '   HORA_CAD,'
      '   DATA_VENCIMENTO,'
      '   VALOR_A_PAGAR,'
      '   OBS,'
      '   DATA_PAGAMENTO,'
      '   VALOR_PAGAMENTO,'
      '   MULTA,'
      '   JUROS,'
      '   OUTROS,'
      '   DESCONTO,'
      '   COD_PEDIDO,'
      '   NUMERO_PARCELA,'
      '   TOTAL_PARCELAS,'
      '   COD_TIPO_PAGAMENTO,'
      '   COD_FORMA_ARRECADACAO,'
      '   BAIXA_COD_BANCO,'
      '   CANCELADA,'
      '   COD_BORDERO,'
      '   MOTIVO_CANCELADO,'
      '   COD_USUARIO_CANCELADO,'
      '   DATA_CANCELADO)'
      'VALUES ('
      '   :COD_CONTA_RECEBER,'
      '   :COD_FILIAL,'
      '   :COD_TIPO_CONTA,'
      '   :COD_USUARIO_CAD,'
      '   :COD_USUARIO_BAIXA,'
      '   :COD_FORMA_PAGAMENTO,'
      '   :DESCRICAO,'
      '   :DATA_CAD,'
      '   :HORA_CAD,'
      '   :DATA_VENCIMENTO,'
      '   :VALOR_A_PAGAR,'
      '   :OBS,'
      '   :DATA_PAGAMENTO,'
      '   :VALOR_PAGAMENTO,'
      '   :MULTA,'
      '   :JUROS,'
      '   :OUTROS,'
      '   :DESCONTO,'
      '   :COD_PEDIDO,'
      '   :NUMERO_PARCELA,'
      '   :TOTAL_PARCELAS,'
      '   :COD_TIPO_PAGAMENTO,'
      '   :COD_FORMA_ARRECADACAO,'
      '   :BAIXA_COD_BANCO,'
      '   :CANCELADA,'
      '   :COD_BORDERO,'
      '   :MOTIVO_CANCELADO,'
      '   :COD_USUARIO_CANCELADO,'
      '   :DATA_CANCELADO)')
    OrderingItemNo = -1
    OrderingItems.Strings = (
      
        'COD_CONTA_RECEBER=CONTAS_RECEBER.COD_CONTA_RECEBER;CONTAS_RECEBE' +
        'R.COD_CONTA_RECEBER DESC'
      'DESCRICAO=CONTAS_RECEBER.DESCRICAO;CONTAS_RECEBER.DESCRICAO DESC'
      
        'DATA_VENCIMENTO=CONTAS_RECEBER.DATA_VENCIMENTO;CONTAS_RECEBER.DA' +
        'TA_VENCIMENTO DESC'
      
        'VALOR_A_PAGAR=CONTAS_RECEBER.VALOR_A_PAGAR;CONTAS_RECEBER.VALOR_' +
        'A_PAGAR DESC'
      
        'DATA_PAGAMENTO=CONTAS_RECEBER.DATA_PAGAMENTO;CONTAS_RECEBER.DATA' +
        '_PAGAMENTO DESC'
      
        'COD_PEDIDO=CONTAS_RECEBER.COD_PEDIDO;CONTAS_RECEBER.COD_PEDIDO D' +
        'ESC'
      
        'NUMERO_PARCELA=CONTAS_RECEBER.NUMERO_PARCELA;CONTAS_RECEBER.NUME' +
        'RO_PARCELA DESC'
      
        'TOTAL_PARCELAS=CONTAS_RECEBER.TOTAL_PARCELAS;CONTAS_RECEBER.TOTA' +
        'L_PARCELAS DESC'
      'CANCELADA=CONTAS_RECEBER.CANCELADA;CONTAS_RECEBER.CANCELADA DESC'
      'TIPOCONTA=TIPOCONTA;TIPOCONTA DESC')
    OrderingLinks.Strings = (
      'COD_CONTA_RECEBER=1'
      'DESCRICAO=2'
      'DATA_VENCIMENTO=3'
      'VALOR_A_PAGAR=4'
      'DATA_PAGAMENTO=5'
      'COD_PEDIDO=6'
      'NUMERO_PARCELA=7'
      'TOTAL_PARCELAS=8'
      'CANCELADA=9'
      'TIPOCONTA=10')
    SearchingLinks.Strings = (
      'COD_CONTA_RECEBER=COD_CONTA_RECEBER'
      'DESCRICAO=DESCRICAO'
      'DATA_VENCIMENTO=DATA_VENCIMENTO'
      'VALOR_A_PAGAR=VALOR_A_PAGAR'
      'DATA_PAGAMENTO=DATA_PAGAMENTO'
      'COD_PEDIDO=COD_PEDIDO'
      'NUMERO_PARCELA=NUMERO_PARCELA'
      'TOTAL_PARCELAS=TOTAL_PARCELAS'
      'CANCELADA=CANCELADA'
      'TIPOCONTA=TIPOCONTA')
    CommitAction = caInvalidateCursor
    Left = 313
  end
  object dtContaReceber: TIB_DataSource
    Dataset = qryContaReceber
    Left = 312
    Top = 28
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '*-nfe.XML'
    Filter = 
      'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|To' +
      'dos os Arquivos (*.*)|*.*'
    Title = 'Selecione a NFe'
    Left = 256
    Top = 48
  end
  object qryHistorico: TIB_Query
    FieldsDisplayLabel.Strings = (
      'COD_HISTORICO=C'#243'digo'
      'DATA_EVENTO=Data'
      'HORA_EVENTO=Hora'
      'COD_EVENTO=Evento'
      'COD_DESTINO=Destino'
      'COD_USUARIO=Usu'#225'rio'
      'COD_CONTAS_RECEBER=Conta'
      'COD_FILIAL=Filial'
      'OBSERVACAO=Descri'#231#227'o'
      'ARQUIVO=Arquivo'
      'COD_CONVENIO=Conv'#234'nio')
    FieldsDisplayWidth.Strings = (
      'OBSERVACAO=420'
      'DATA_EVENTO=98')
    FieldsVisible.Strings = (
      'COD_HISTORICO=FALSE'
      'DATA_EVENTO=TRUE'
      'HORA_EVENTO=FALSE'
      'COD_EVENTO=FALSE'
      'COD_DESTINO=FALSE'
      'COD_USUARIO=FALSE'
      'COD_CONTAS_RECEBER=FALSE'
      'COD_FILIAL=FALSE'
      'OBSERVACAO=TRUE'
      'ARQUIVO=FALSE'
      'COD_CONVENIO=FALSE')
    IB_Connection = Dados.IB_Conexao
    SQL.Strings = (
      'SELECT *'
      'FROM HISTORICO_EVENTOS_FATURA'
      'WHERE COD_CONTAS_RECEBER=:NUMERO AND COD_FILIAL=:FILIAL')
    DeleteSQL.Strings = (
      'DELETE FROM HISTORICO_EVENTOS_FATURA'
      'WHERE'
      '   COD_HISTORICO = :OLD_COD_HISTORICO')
    EditSQL.Strings = (
      'UPDATE HISTORICO_EVENTOS_FATURA SET'
      '   COD_HISTORICO = :COD_HISTORICO, /*PK*/'
      '   DATA_EVENTO = :DATA_EVENTO,'
      '   HORA_EVENTO = :HORA_EVENTO,'
      '   COD_EVENTO = :COD_EVENTO,'
      '   COD_DESTINO = :COD_DESTINO,'
      '   COD_USUARIO = :COD_USUARIO,'
      '   COD_CONTAS_RECEBER = :COD_CONTAS_RECEBER,'
      '   COD_FILIAL = :COD_FILIAL,'
      '   OBSERVACAO = :OBSERVACAO,'
      '   ARQUIVO = :ARQUIVO,'
      '   COD_CONVENIO = :COD_CONVENIO'
      'WHERE'
      '   COD_HISTORICO = :OLD_COD_HISTORICO')
    GeneratorLinks.Strings = (
      'COD_HISTORICO=GEN_HISTORICO_EVENTOS_FATURA_ID')
    InsertSQL.Strings = (
      'INSERT INTO HISTORICO_EVENTOS_FATURA('
      '   COD_HISTORICO, /*PK*/'
      '   DATA_EVENTO,'
      '   HORA_EVENTO,'
      '   COD_EVENTO,'
      '   COD_DESTINO,'
      '   COD_USUARIO,'
      '   COD_CONTAS_RECEBER,'
      '   COD_FILIAL,'
      '   OBSERVACAO,'
      '   ARQUIVO,'
      '   COD_CONVENIO)'
      'VALUES ('
      '   :COD_HISTORICO,'
      '   :DATA_EVENTO,'
      '   :HORA_EVENTO,'
      '   :COD_EVENTO,'
      '   :COD_DESTINO,'
      '   :COD_USUARIO,'
      '   :COD_CONTAS_RECEBER,'
      '   :COD_FILIAL,'
      '   :OBSERVACAO,'
      '   :ARQUIVO,'
      '   :COD_CONVENIO)')
    OrderingItemNo = -1
    OrderingItems.Strings = (
      'DATA_EVENTO=DATA_EVENTO;DATA_EVENTO DESC'
      'HORA_EVENTO=HORA_EVENTO;HORA_EVENTO DESC'
      'OBSERVACAO=OBSERVACAO;OBSERVACAO DESC'
      'ARQUIVO=ARQUIVO;ARQUIVO DESC')
    OrderingLinks.Strings = (
      'DATA_EVENTO=1'
      'HORA_EVENTO=2'
      'OBSERVACAO=3'
      'ARQUIVO=4')
    SearchingLinks.Strings = (
      'DATA_EVENTO=DATA_EVENTO'
      'HORA_EVENTO=HORA_EVENTO'
      'OBSERVACAO=OBSERVACAO'
      'ARQUIVO=ARQUIVO')
    Left = 384
  end
  object dtHistorico: TIB_DataSource
    Dataset = qryHistorico
    Left = 384
    Top = 28
  end
end
