inherited frmCadDestino: TfrmCadDestino
  Left = 189
  Top = 121
  Caption = 'frmCadDestino'
  ClientHeight = 330
  ClientWidth = 625
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 16
  inherited Paginas: TPageControl
    Width = 625
    Height = 292
    ExplicitWidth = 625
    ExplicitHeight = 292
    inherited Acesso: TTabSheet
      inherited Panel2: TPanel
        Left = 526
        Height = 245
        ExplicitLeft = 526
        ExplicitHeight = 245
      end
      inherited Panel3: TPanel
        Top = 245
        Width = 617
        ExplicitTop = 245
        ExplicitWidth = 617
      end
      inherited pnGrade: TPanel
        Width = 526
        Height = 245
        ExplicitWidth = 526
        ExplicitHeight = 245
        inherited grdPesquisa: TIB_Grid
          Width = 526
          Height = 229
          ExplicitWidth = 526
          ExplicitHeight = 229
        end
      end
    end
    inherited Manutencao: TTabSheet
      inherited Panel6: TPanel
        Top = 247
        Width = 617
        TabOrder = 4
        ExplicitTop = 247
        ExplicitWidth = 617
        inherited Panel7: TPanel
          Left = 347
          Width = 269
          ExplicitLeft = 347
          ExplicitWidth = 269
          inherited BtProximo: TBitBtn
            Left = 176
            ExplicitLeft = 176
          end
          inherited BtAnterior: TBitBtn
            Left = 80
            ExplicitLeft = 80
          end
          inherited BtCancelar: TBitBtn [2]
            Left = 176
            ExplicitLeft = 176
          end
          inherited BtGravar: TBitBtn [3]
            Left = 80
            ExplicitLeft = 80
          end
        end
      end
      object edtCidade: TIB_Edit
        Left = 16
        Top = 120
        Width = 305
        Height = 24
        AutoLabel.Caption = 'Cidade'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataField = 'CIDADE'
        DataSource = DsPrincipal
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentBackground = False
        TabOrder = 1
      end
      object edtApelido: TIB_Edit
        Left = 16
        Top = 72
        Width = 225
        Height = 24
        AutoLabel.Caption = 'Apelido'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataField = 'APELIDO'
        DataSource = DsPrincipal
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentBackground = False
        TabOrder = 0
      end
      object GroupBox2: TGroupBox
        Left = 16
        Top = 11
        Width = 97
        Height = 41
        Caption = 'C'#211'DIGO'
        TabOrder = 5
        object dbCodigo: TIB_Text
          Left = 4
          Top = 16
          Width = 85
          Height = 16
          DataField = 'COD_DESTINO'
          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 edtUF: TIB_LookupCombo
        Left = 330
        Top = 120
        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 = 2
        DisplayField = 'DESCRICAO'
        ShowButton = True
      end
      object edtFilial: TIB_LookupCombo
        Left = 15
        Top = 170
        Width = 392
        Height = 21
        AutoLabel.Caption = 'Filial de origem ou desino'
        AutoLabel.Kind = albTop
        AutoLabel.Margin = 0
        DataSource = dsrFilial
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentBackground = False
        TabOrder = 3
        DisplayField = 'FILIAL.APELIDO'
        ShowButton = True
      end
    end
  end
  inherited Panel1: TPanel
    Width = 625
    ExplicitWidth = 625
    inherited Label2: TLabel
      Width = 200
      Caption = 'Cadastro de destinos'
      ExplicitWidth = 200
    end
    inherited Shape1: TShape
      Width = 625
      ExplicitWidth = 625
    end
    inherited imgAcao: TImage
      Left = 265
      ExplicitLeft = 265
    end
  end
  inherited TbPrincipal: TIB_Query
    FieldsCharCase.Strings = (
      'COD_DESTINO=UPPER'
      'COD_FILIAL=UPPER'
      'APELIDO=UPPER'
      'CIDADE=UPPER'
      'UF=UPPER'
      'EXPORTADO=UPPER')
    FieldsDisplayLabel.Strings = (
      'COD_DESTINO=C'#243'digo'
      'CIDADE=Cidade'
      'UF=UF'
      'APELIDO=Apelido')
    FieldsDisplayWidth.Strings = (
      'APELIDO=178'
      'UF=45'
      'COD_DESTINO=49')
    FieldsIndex.Strings = (
      'COD_DESTINO'
      'COD_FILIAL'
      'APELIDO'
      'CIDADE'
      'UF'
      'EXPORTADO')
    FieldsVisible.Strings = (
      'COD_FILIAL=FALSE'
      'EXPORTADO=FALSE'
      'COD_UF=FALSE')
    SQL.Strings = (
      'select DESTINO.*'
      'from DESTINO'
      '   LEFT JOIN UF ON UF.COD_UF = DESTINO.COD_UF')
    DeleteSQL.Strings = (
      'DELETE FROM DESTINO'
      'WHERE'
      '   COD_DESTINO = :OLD_COD_DESTINO')
    EditSQL.Strings = (
      'UPDATE DESTINO SET'
      '   COD_DESTINO = :COD_DESTINO, /*PK*/'
      '   COD_FILIAL = :COD_FILIAL,'
      '   APELIDO = :APELIDO,'
      '   CIDADE = :CIDADE,'
      '   COD_UF = :COD_UF'
      'WHERE'
      '   COD_DESTINO = :OLD_COD_DESTINO')
    InsertSQL.Strings = (
      'INSERT INTO DESTINO('
      '   COD_DESTINO, /*PK*/'
      '   COD_FILIAL,'
      '   APELIDO,'
      '   CIDADE,'
      '   COD_UF)'
      'VALUES ('
      '   :COD_DESTINO,'
      '   :COD_FILIAL,'
      '   :APELIDO,'
      '   :CIDADE,'
      '   :COD_UF)')
    KeyLinks.Strings = (
      'DESTINO.COD_DESTINO'
      'DESTINO.COD_FILIAL')
    OrderingItemNo = 4
    OrderingItems.Strings = (
      'COD_DESTINO=COD_DESTINO;COD_DESTINO DESC'
      'CIDADE=CIDADE;CIDADE DESC'
      'UF=UF;UF DESC'
      'APELIDO=APELIDO;APELIDO DESC')
    OrderingLinks.Strings = (
      'COD_DESTINO=1'
      'CIDADE=2'
      'UF=3'
      'APELIDO=4')
    SearchingLinks.Strings = (
      'COD_DESTINO=COD_DESTINO'
      'CIDADE=CIDADE'
      'UF=UF'
      'APELIDO=APELIDO')
  end
  inherited ImagensPadrao: TImageList
    Bitmap = {
      [encoded data, 8768 characters]
      000000000000}
  end
  inherited uc_Controle_Acesso: TUCControls
    GroupName = 'Cadastro de Destinos'
  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
  object qrFilial: TIB_Query
    FieldsCharCase.Strings = (
      'COD_FILIAL=UPPER'
      'APELIDO=UPPER'
      'CIDADE=UPPER'
      'DESCRICAO=UPPER')
    FieldsDisplayLabel.Strings = (
      'APELIDO=Apelido'
      'COD_FILIAL=C'#243'digo'
      'CIDADE=Cidade'
      'DESCRICAO=UF')
    FieldsVisible.Strings = (
      'COD_FILIAL=TRUE'
      'APELIDO=TRUE'
      'CIDADE=TRUE'
      'DESCRICAO=TRUE')
    IB_Connection = Dados.ConexaoUserControl
    SQL.Strings = (
      'SELECT FILIAL.COD_FILIAL'
      '     , FILIAL.APELIDO'
      '     , FILIAL.CIDADE'
      '     , UF.DESCRICAO'
      'FROM FILIAL'
      '   LEFT JOIN UF ON uf.COD_UF = FILIAL.COD_UF')
    KeyLinks.Strings = (
      'FILIAL.COD_FILIAL')
    OrderingItemNo = 1
    OrderingItems.Strings = (
      'COD_FILIAL=FILIAL.COD_FILIAL;FILIAL.COD_FILIAL DESC'
      'APELIDO=FILIAL.APELIDO;FILIAL.APELIDO DESC'
      'CIDADE=FILIAL.CIDADE;FILIAL.CIDADE DESC'
      'DESCRICAO=UF.DESCRICAO;UF.DESCRICAO DESC')
    OrderingLinks.Strings = (
      'COD_FILIAL=1'
      'APELIDO=2'
      'CIDADE=3'
      'DESCRICAO=4')
    SearchingLinks.Strings = (
      'COD_FILIAL=COD_FILIAL'
      'APELIDO=APELIDO'
      'CIDADE=CIDADE'
      'DESCRICAO=DESCRICAO')
    Left = 327
  end
  object dsrFilial: TIB_DataSource
    Dataset = qrFilial
    Left = 326
    Top = 28
  end
end
