inherited frmCadSeguradora: TfrmCadSeguradora
  Left = 290
  Top = 155
  Caption = 'frmCadSeguradora'
  ClientHeight = 469
  ClientWidth = 760
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 16
  inherited Paginas: TPageControl
    Width = 760
    Height = 431
    TabOrder = 1
    ExplicitWidth = 760
    ExplicitHeight = 431
    inherited Acesso: TTabSheet
      inherited Panel2: TPanel
        Left = 661
        Height = 384
        ExplicitLeft = 661
        ExplicitHeight = 384
      end
      inherited Panel3: TPanel
        Top = 384
        Width = 752
        TabOrder = 2
        ExplicitTop = 384
        ExplicitWidth = 752
      end
      inherited pnGrade: TPanel
        Width = 661
        Height = 384
        TabOrder = 0
        ExplicitWidth = 661
        ExplicitHeight = 384
        inherited grdPesquisa: TIB_Grid
          Width = 661
          Height = 368
          ExplicitWidth = 661
          ExplicitHeight = 368
        end
      end
    end
    inherited Manutencao: TTabSheet
      ExplicitLeft = 4
      ExplicitTop = 6
      ExplicitWidth = 752
      ExplicitHeight = 421
      inherited Panel6: TPanel
        Top = 385
        Width = 752
        TabOrder = 12
        ExplicitTop = 386
        ExplicitWidth = 752
        inherited Panel7: TPanel
          Left = 431
          TabOrder = 0
          ExplicitLeft = 431
          inherited BtAnterior: TBitBtn
            TabOrder = 1
          end
          inherited BtCancelar: TBitBtn
            TabOrder = 2
          end
        end
        inherited btnVoltar: TBitBtn
          TabOrder = 1
        end
        inherited btnEditar2: TBitBtn
          TabOrder = 3
        end
      end
      object edtCnpj: TIB_Edit
        Left = 7
        Top = 15
        Width = 231
        Height = 28
        Hint = 'CNPJ / CPF do cliente'
        AutoLabel.Caption = 'Cnpj'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataField = 'CNPJ'
        DataSource = DsPrincipal
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -17
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        ParentBackground = False
        TabOrder = 0
        OnExit = edtCnpjExit
      end
      object edtRazaoSocial: TIB_Edit
        Left = 6
        Top = 62
        Width = 331
        Height = 24
        Hint = 'Raz'#227'o Social'
        AutoLabel.Caption = 'Raz'#227'o Social'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataField = 'RAZAO_SOCIAL'
        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 = 2
      end
      object edtTele1: TIB_Edit
        Left = 182
        Top = 104
        Width = 121
        Height = 24
        Hint = 'Telefone de contato'
        AutoLabel.Caption = 'Telefone'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataField = 'TELEFONE1'
        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 = 5
      end
      object edtTele2: TIB_Edit
        Left = 318
        Top = 104
        Width = 121
        Height = 24
        Hint = 'Telefone de contato'
        AutoLabel.Caption = 'Telefone'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataField = 'TELEFONE2'
        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 = 6
      end
      object edtInscricao: TIB_Edit
        Tag = 1
        Left = 6
        Top = 104
        Width = 158
        Height = 24
        Hint = 'Inscri'#231#227'o Estadual'
        AutoLabel.Caption = 'Inscri'#231#227'o'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataField = 'INSCRICAO'
        DataSource = DsPrincipal
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        PopupMenu = popInscricao
        ShowHint = True
        ParentBackground = False
        TabOrder = 4
      end
      object edtEmail: TIB_Edit
        Left = 448
        Top = 104
        Width = 273
        Height = 24
        Hint = 'E-Mail'
        AutoLabel.Caption = 'E-Mail'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataField = 'EMAIL'
        DataSource = DsPrincipal
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        ParentBackground = False
        TabOrder = 7
      end
      object edtNomeFantasia: TIB_Edit
        Left = 350
        Top = 62
        Width = 331
        Height = 24
        Hint = 'Nome Fantasia'
        AutoLabel.Caption = 'Nome Fantasia'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataField = 'NOME_FANTASIA'
        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 = 3
      end
      object GroupBox1: TGroupBox
        Left = 6
        Top = 176
        Width = 735
        Height = 109
        Color = 16765623
        ParentColor = False
        TabOrder = 10
        object edtBairro: TIB_Edit
          Left = 6
          Top = 65
          Width = 294
          Height = 24
          Hint = 'Bairro'
          AutoLabel.Caption = 'Bairro'
          AutoLabel.Kind = albTop
          AutoLabel.Margin = 0
          DataField = 'ENDERECO_BAIRRO'
          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 = 4
        end
        object edtCep: TIB_Edit
          Tag = 1
          Left = 6
          Top = 25
          Width = 100
          Height = 24
          Hint = 'Cep'
          AutoLabel.Caption = 'Cep'
          AutoLabel.Kind = albTop
          AutoLabel.Margin = 0
          DataField = 'ENDERECO_CEP'
          DataSource = DsPrincipal
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Verdana'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          PopupMenu = popPesquisaCepTansporte
          ShowHint = True
          ParentBackground = False
          TabOrder = 0
          OnExit = edtCepExit
        end
        object edtEndereco: TIB_Edit
          Left = 112
          Top = 25
          Width = 365
          Height = 24
          Hint = 'Endere'#231'o'
          AutoLabel.Caption = 'Endere'#231'o'
          AutoLabel.Kind = albTop
          AutoLabel.Margin = 0
          DataField = 'ENDERECO_LOGRADOURO'
          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 = 1
        end
        object edtCidade: TIB_Edit
          Left = 321
          Top = 65
          Width = 323
          Height = 24
          Hint = 'Cidade'
          AutoLabel.Caption = 'Cidade'
          AutoLabel.Kind = albTop
          AutoLabel.Margin = 0
          DataField = 'ENDERECO_CIDADE'
          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 = 5
        end
        object edtNumero: TIB_Edit
          Left = 480
          Top = 25
          Width = 89
          Height = 24
          Hint = 'N'#250'mero'
          AutoLabel.Caption = 'N'#250'mero'
          AutoLabel.Kind = albTop
          AutoLabel.Margin = 0
          DataField = 'ENDERECO_NUMERO'
          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 = 2
        end
        object edtComplemento: TIB_Edit
          Left = 580
          Top = 25
          Width = 143
          Height = 24
          Hint = 'Complemento'
          AutoLabel.Caption = 'Complemento'
          AutoLabel.Kind = albTop
          AutoLabel.Margin = 0
          DataField = 'ENDERECO_COMPLEMENTO'
          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 = 3
        end
        object edtUF: TIB_LookupCombo
          Left = 649
          Top = 66
          Width = 64
          Height = 21
          AutoLabel.Caption = 'UF'
          AutoLabel.Kind = albTop
          DataSource = dsrUF
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Verdana'
          Font.Style = []
          ParentFont = False
          ParentBackground = False
          TabOrder = 6
          DisplayField = 'DESCRICAO'
          ShowButton = True
        end
      end
      object edtContatoTransporte: TIB_Edit
        Left = 6
        Top = 146
        Width = 299
        Height = 24
        Hint = 'Contato'
        AutoLabel.Caption = 'Contato'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataField = 'CONTATO'
        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 = 8
      end
      object IB_Edit1: TIB_Edit
        Left = 624
        Top = 16
        Width = 96
        Height = 24
        Hint = 'Data do cadastro do cliente'
        TabStop = False
        AutoLabel.Caption = 'Data Cadastro'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataField = 'DATACADASTRO'
        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
        ReadOnly = True
        TabOrder = 1
      end
      object IB_Memo1: TIB_Memo
        Left = 9
        Top = 300
        Width = 725
        Height = 75
        Hint = 'Observa'#231#245'es'
        AutoLabel.Caption = 'Mensagem no manifesto'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataField = 'MENSAGEM_MANIFESTO'
        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 = 11
        AutoSize = False
        ScrollBars = ssVertical
      end
      object IB_Edit2: TIB_Edit
        Left = 318
        Top = 146
        Width = 299
        Height = 24
        Hint = 'Contato'
        AutoLabel.Caption = 'N'#186' Apolice'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataField = 'APOLICE'
        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 = 9
      end
    end
  end
  inherited Panel1: TPanel
    Width = 760
    TabOrder = 0
    ExplicitWidth = 760
    inherited Label2: TLabel
      Width = 119
      Caption = 'Seguradoras'
      ExplicitWidth = 119
    end
    inherited Shape1: TShape
      Width = 760
      ExplicitWidth = 760
    end
    inherited imgAcao: TImage
      Left = 400
      ExplicitLeft = 400
    end
  end
  inherited TbPrincipal: TIB_Query
    FieldsCharCase.Strings = (
      'CNPJ=UPPER'
      'RAZAO_SOCIAL=UPPER'
      'NOME_FANTASIA=UPPER'
      'ENDERECO_LOGRADOURO=UPPER'
      'ENDERECO_NUMERO=UPPER'
      'ENDERECO_COMPLEMENTO=UPPER'
      'ENDERECO_BAIRRO=UPPER'
      'ENDERECO_CEP=UPPER'
      'ENDERECO_CIDADE=UPPER'
      'ENDERECO_UF=UPPER'
      'INSCRICAO=UPPER'
      'TELEFONE1=UPPER'
      'TELEFONE2=UPPER'
      'DATACADASTRO=UPPER'
      'CONTATO=UPPER'
      'EMAIL=LOWER'
      'MENSAGEM_MANIFESTO=UPPER')
    FieldsDisplayLabel.Strings = (
      'TELEFONE1=Telefone'
      'RAZAO_SOCIAL=Raz'#227'o Social'
      'NOME_FANTASIA=Nome Fantasia'
      'ENDERECO_CIDADE=Cidade'
      'CNPJ=Cnpj')
    FieldsEditMask.Strings = (
      'ENDERECO_CEP=99999-999;0'
      'TELEFONE1=(99)9999-9999;0'
      'TELEFONE2=(99)9999-9999;0'
      'CNPJ=99\.999\.999\/9999\-99;0')
    FieldsVisible.Strings = (
      'CNPJ=TRUE'
      'RAZAO_SOCIAL=TRUE'
      'ENDERECO_CIDADE=TRUE'
      'TELEFONE1=TRUE'
      'NOME_FANTASIA=TRUE'
      'ENDERECO_LOGRADOURO=FALSE'
      'ENDERECO_NUMERO=FALSE'
      'ENDERECO_COMPLEMENTO=FALSE'
      'ENDERECO_BAIRRO=FALSE'
      'ENDERECO_CEP=FALSE'
      'ENDERECO_UF=FALSE'
      'INSCRICAO=FALSE'
      'TELEFONE2=FALSE'
      'DATACADASTRO=FALSE'
      'CONTATO=FALSE'
      'EMAIL=FALSE'
      'MENSAGEM_MANIFESTO=FALSE'
      'COD_UF=FALSE')
    SQL.Strings = (
      'SELECT SEGURADORA.*'
      'FROM SEGURADORA'
      '   LEFT JOIN UF ON UF.COD_UF = SEGURADORA.COD_UF')
    DeleteSQL.Strings = (
      'DELETE FROM SEGURADORA'
      'WHERE'
      '   CNPJ = :OLD_CNPJ')
    EditSQL.Strings = (
      'UPDATE SEGURADORA SET'
      '   CNPJ = :CNPJ, /*PK*/'
      '   COD_UF = :COD_UF,'
      '   RAZAO_SOCIAL = :RAZAO_SOCIAL,'
      '   NOME_FANTASIA = :NOME_FANTASIA,'
      '   ENDERECO_LOGRADOURO = :ENDERECO_LOGRADOURO,'
      '   ENDERECO_NUMERO = :ENDERECO_NUMERO,'
      '   ENDERECO_COMPLEMENTO = :ENDERECO_COMPLEMENTO,'
      '   ENDERECO_BAIRRO = :ENDERECO_BAIRRO,'
      '   ENDERECO_CEP = :ENDERECO_CEP,'
      '   ENDERECO_CIDADE = :ENDERECO_CIDADE,'
      '   INSCRICAO = :INSCRICAO,'
      '   TELEFONE1 = :TELEFONE1,'
      '   TELEFONE2 = :TELEFONE2,'
      '   DATACADASTRO = :DATACADASTRO,'
      '   CONTATO = :CONTATO,'
      '   EMAIL = :EMAIL,'
      '   MENSAGEM_MANIFESTO = :MENSAGEM_MANIFESTO,'
      '   APOLICE = :APOLICE'
      'WHERE'
      '   CNPJ = :OLD_CNPJ')
    InsertSQL.Strings = (
      'INSERT INTO SEGURADORA('
      '   CNPJ, /*PK*/'
      '   COD_UF,'
      '   RAZAO_SOCIAL,'
      '   NOME_FANTASIA,'
      '   ENDERECO_LOGRADOURO,'
      '   ENDERECO_NUMERO,'
      '   ENDERECO_COMPLEMENTO,'
      '   ENDERECO_BAIRRO,'
      '   ENDERECO_CEP,'
      '   ENDERECO_CIDADE,'
      '   INSCRICAO,'
      '   TELEFONE1,'
      '   TELEFONE2,'
      '   DATACADASTRO,'
      '   CONTATO,'
      '   EMAIL,'
      '   MENSAGEM_MANIFESTO,'
      '   APOLICE)'
      'VALUES ('
      '   :CNPJ,'
      '   :COD_UF,'
      '   :RAZAO_SOCIAL,'
      '   :NOME_FANTASIA,'
      '   :ENDERECO_LOGRADOURO,'
      '   :ENDERECO_NUMERO,'
      '   :ENDERECO_COMPLEMENTO,'
      '   :ENDERECO_BAIRRO,'
      '   :ENDERECO_CEP,'
      '   :ENDERECO_CIDADE,'
      '   :INSCRICAO,'
      '   :TELEFONE1,'
      '   :TELEFONE2,'
      '   :DATACADASTRO,'
      '   :CONTATO,'
      '   :EMAIL,'
      '   :MENSAGEM_MANIFESTO,'
      '   :APOLICE)')
    KeyLinks.Strings = (
      'SEGURADORA.CNPJ')
    OrderingItemNo = 1
    OrderingItems.Strings = (
      'CNPJ=CNPJ;CNPJ DESC'
      'RAZAO_SOCIAL=RAZAO_SOCIAL;RAZAO_SOCIAL DESC'
      'NOME_FANTASIA=NOME_FANTASIA;NOME_FANTASIA DESC'
      'ENDERECO_CIDADE=ENDERECO_CIDADE;ENDERECO_CIDADE DESC'
      'TELEFONE1=TELEFONE1;TELEFONE1 DESC')
    OrderingLinks.Strings = (
      'CNPJ=1'
      'RAZAO_SOCIAL=2'
      'NOME_FANTASIA=3'
      'ENDERECO_CIDADE=4'
      'TELEFONE1=5')
    SearchingLinks.Strings = (
      'CNPJ=CNPJ'
      'RAZAO_SOCIAL=RAZAO_SOCIAL'
      'NOME_FANTASIA=NOME_FANTASIA'
      'ENDERECO_CIDADE=ENDERECO_CIDADE'
      'TELEFONE1=TELEFONE1')
  end
  inherited ImagensPadrao: TImageList
    Bitmap = {
      [encoded data, 8768 characters]
      000000000000}
  end
  object popInscricao: TPopupMenu
    Images = ImagensPadrao
    Left = 512
    Top = 8
    object ISENTO1: TMenuItem
      Caption = 'ISENTO'
      ImageIndex = 2
      OnClick = ISENTO1Click
    end
  end
  object popPesquisaCepTansporte: TPopupMenu
    Left = 540
    Top = 8
    object PesquisarCEP1: TMenuItem
      Caption = 'Pesquisar CEP'
      ImageIndex = 5
      OnClick = PesquisarCEP1Click
    end
  end
  object qrUF: TIB_Query
    FieldsCharCase.Strings = (
      'COD_UF=UPPER'
      'DESCRICAO=UPPER')
    FieldsDisplayLabel.Strings = (
      'DESCRICAO=UF')
    FieldsVisible.Strings = (
      'COD_UF=FALSE'
      'DESCRICAO=TRUE')
    IB_Connection = Dados.ConexaoUserControl
    SQL.Strings = (
      'SELECT UF.*'
      'FROM UF')
    OrderingItemNo = 1
    OrderingItems.Strings = (
      'DESCRICAO=DESCRICAO;DESCRICAO DESC')
    OrderingLinks.Strings = (
      'DESCRICAO=1')
    SearchingLinks.Strings = (
      'DESCRICAO=DESCRICAO')
    Left = 295
  end
  object dsrUF: TIB_DataSource
    Dataset = qrUF
    Left = 294
    Top = 28
  end
end
