inherited frmAlteracaoStatusFornecedor: TfrmAlteracaoStatusFornecedor
  Left = 130
  Top = 242
  Caption = 'frmAlteracaoStatusFornecedor'
  ClientHeight = 219
  ClientWidth = 557
  OldCreateOrder = True
  ExplicitWidth = 563
  ExplicitHeight = 248
  PixelsPerInch = 96
  TextHeight = 16
  object Image1: TImage [0]
    Left = 0
    Top = 32
    Width = 145
    Height = 145
    Picture.Data = {
      [encoded data, 60096 characters]
      55DC462AEE231577118ABB88C55DC462AEE23156F88C55D8ABFFD9}
    Stretch = True
  end
  object edtDescricao: TIB_Memo [1]
    Left = 136
    Top = 40
    Width = 409
    Height = 137
    AutoLabel.Caption = 'Justifique a mudan'#231'a de status'
    AutoLabel.Kind = albTop
    AutoLabel.Margin = 0
    DataField = 'COMENTARIO'
    DataSource = IB_DataSource1
    ParentBackground = False
    TabOrder = 0
    OnKeyPress = edtDescricaoKeyPress
    AutoSize = False
  end
  inherited Panel3: TPanel
    Top = 184
    Width = 557
    TabOrder = 1
    ExplicitTop = 184
    ExplicitWidth = 557
    inherited Linhabotao: TShape
      Width = 557
    end
    inherited Panel2: TPanel
      Left = 301
      ExplicitLeft = 301
      inherited BtGravar: TBitBtn
        ModalResult = 1
        OnClick = BtGravarClick
      end
    end
  end
  inherited Panel1: TPanel
    Width = 557
    TabOrder = 2
    ExplicitWidth = 557
    inherited lblTitulo: TLabel
      Width = 186
      Caption = 'Altera'#231#227'o de Status'
      ExplicitWidth = 186
    end
    inherited Shape1: TShape
      Width = 557
      ExplicitWidth = 557
    end
  end
  inherited ImagensPadrao: TImageList
    Bitmap = {
      [encoded data, 8768 characters]
      000000000000}
  end
  object qrAlteracaoStatus: TIB_Query
    IB_Connection = Dados.IB_Conexao
    SQL.Strings = (
      'SELECT ALTERACAO_STATUS_CLIENTE.*'
      'FROM ALTERACAO_STATUS_CLIENTE')
    DeleteSQL.Strings = (
      'DELETE FROM ALTERACAO_STATUS_CLIENTE'
      'WHERE'
      
        '   COD_ALTERACAO_STATUS_CLIENTE = :OLD_COD_ALTERACAO_STATUS_CLIE' +
        'NTE')
    EditSQL.Strings = (
      'UPDATE ALTERACAO_STATUS_CLIENTE SET'
      
        '   COD_ALTERACAO_STATUS_CLIENTE = :COD_ALTERACAO_STATUS_CLIENTE,' +
        ' /*PK*/'
      '   COD_FILIAL = :COD_FILIAL,'
      '   COD_USUARIO = :COD_USUARIO,'
      '   COD_CLIENTE = :COD_CLIENTE,'
      '   COMENTARIO = :COMENTARIO,'
      '   DATA = :DATA,'
      '   HORA = :HORA'
      'WHERE'
      
        '   COD_ALTERACAO_STATUS_CLIENTE = :OLD_COD_ALTERACAO_STATUS_CLIE' +
        'NTE')
    GeneratorLinks.Strings = (
      
        'ALTERACAO_STATUS_CLIENTE.COD_ALTERACAO_STATUS_CLIENTE = GEN_ALTE' +
        'RACAO_STATUS_CLIENTE')
    InsertSQL.Strings = (
      'INSERT INTO ALTERACAO_STATUS_CLIENTE('
      '   COD_ALTERACAO_STATUS_CLIENTE, /*PK*/'
      '   COD_FILIAL,'
      '   COD_USUARIO,'
      '   COD_CLIENTE,'
      '   COMENTARIO,'
      '   DATA,'
      '   HORA)'
      'VALUES ('
      '   :COD_ALTERACAO_STATUS_CLIENTE,'
      '   :COD_FILIAL,'
      '   :COD_USUARIO,'
      '   :COD_CLIENTE,'
      '   :COMENTARIO,'
      '   :DATA,'
      '   :HORA)')
    KeyLinks.Strings = (
      'COD_ALTERACAO_STATUS_CLIENTE')
    Left = 40
    Top = 24
  end
  object IB_DataSource1: TIB_DataSource
    Dataset = qrAlteracaoStatus
    Left = 72
    Top = 24
  end
end
