inherited frmCadStatusFornecedor: TfrmCadStatusFornecedor
  Left = 197
  Top = 167
  Caption = 'frmCadStatusFornecedor'
  ClientHeight = 380
  OldCreateOrder = True
  ExplicitHeight = 409
  PixelsPerInch = 96
  TextHeight = 16
  inherited Paginas: TPageControl
    Height = 342
    ExplicitHeight = 342
    inherited Acesso: TTabSheet
      ExplicitLeft = 4
      ExplicitTop = 6
      ExplicitWidth = 622
      ExplicitHeight = 332
      inherited Panel2: TPanel
        Height = 295
        ExplicitHeight = 295
      end
      inherited Panel3: TPanel
        Top = 295
        ExplicitTop = 295
      end
      inherited pnGrade: TPanel
        Height = 295
        ExplicitHeight = 295
        inherited grdPesquisa: TIB_Grid
          Height = 279
          ExplicitHeight = 279
        end
      end
    end
    inherited Manutencao: TTabSheet
      ExplicitLeft = 4
      ExplicitTop = 6
      ExplicitWidth = 622
      ExplicitHeight = 332
      object Label3: TLabel [0]
        Left = 14
        Top = 105
        Width = 25
        Height = 16
        Caption = 'Cor'
      end
      inherited Panel6: TPanel
        Top = 296
        TabOrder = 1
        ExplicitTop = 296
        inherited BtExcluir: TBitBtn
          Top = 4
          ExplicitTop = 4
        end
      end
      object edtDescricao: TIB_Edit
        Left = 15
        Top = 75
        Width = 418
        Height = 24
        AutoLabel.Caption = 'Descri'#231#227'o'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataField = 'DESCRICAO'
        DataSource = DsPrincipal
        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
      end
      object GroupBox2: TGroupBox
        Left = 16
        Top = 11
        Width = 97
        Height = 41
        Caption = 'C'#211'DIGO'
        TabOrder = 2
        object dbCodigo: TIB_Text
          Left = 4
          Top = 16
          Width = 85
          Height = 16
          DataField = 'COD_STATUS'
          DataSource = DsPrincipal
          BiDiMode = bdLeftToRight
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Verdana'
          Font.Style = []
          ParentBiDiMode = False
          ParentFont = False
        end
      end
      object edtCor: TColorBox
        Left = 15
        Top = 123
        Width = 162
        Height = 22
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
      end
    end
  end
  inherited Panel1: TPanel
    inherited Label2: TLabel
      Width = 204
      Caption = 'Status do Fornecedor'
      ExplicitWidth = 204
    end
  end
  inherited TbPrincipal: TIB_Query
    ColumnAttributes.Strings = (
      'PERMITE_COLETA=BOOLEAN=T,F'
      'PERMITE_CTRC=BOOLEAN=T,F')
    FieldsCharCase.Strings = (
      'DESCRICAO=UPPER')
    FieldsDisplayLabel.Strings = (
      'COD_STATUS=C'#243'digo'
      'DESCRICAO=Descri'#231#227'o')
    FieldsDisplayWidth.Strings = (
      'COD_STATUS=80'
      'DESCRICAO=435')
    FieldsVisible.Strings = (
      'EXPORTADO=FALSE'
      'COR=FALSE'
      'PERMITE_COLETA=FALSE'
      'PERMITE_CTRC=FALSE')
    SQL.Strings = (
      'SELECT *'
      'FROM STATUS_CLIENTE')
    DeleteSQL.Strings = (
      'DELETE FROM STATUS_CLIENTE'
      'WHERE'
      '   COD_STATUS = :OLD_COD_STATUS')
    EditSQL.Strings = (
      'UPDATE STATUS_CLIENTE SET'
      '   COD_STATUS = :COD_STATUS, /*PK*/'
      '   DESCRICAO = :DESCRICAO,'
      '   COR = :COR'
      'WHERE'
      '   COD_STATUS = :OLD_COD_STATUS')
    InsertSQL.Strings = (
      'INSERT INTO STATUS_CLIENTE('
      '   COD_STATUS, /*PK*/'
      '   DESCRICAO,'
      '   COR)'
      'VALUES ('
      '   :COD_STATUS,'
      '   :DESCRICAO,'
      '   :COR)')
    KeyLinks.Strings = (
      'STATUS_CLIENTE.COD_STATUS')
    OrderingItemNo = 2
    OrderingItems.Strings = (
      'COD_STATUS=COD_STATUS;COD_STATUS DESC'
      'DESCRICAO=DESCRICAO;DESCRICAO DESC')
    OrderingLinks.Strings = (
      'COD_STATUS=1'
      'DESCRICAO=2')
    SearchingLinks.Strings = (
      'COD_STATUS=COD_STATUS'
      'DESCRICAO=DESCRICAO')
  end
  inherited ImagensPadrao: TImageList
    Bitmap = {
      [encoded data, 8768 characters]
      000000000000}
  end
  inherited uc_Controle_Acesso: TUCControls
    GroupName = 'Cadastro de Status do Cliente'
  end
end
