inherited frmCadHistoricoPedidos: TfrmCadHistoricoPedidos
  Caption = 'frmCadHistoricoPedidos'
  Font.Style = []
  PixelsPerInch = 96
  TextHeight = 16
  inherited Paginas: TPageControl
    inherited Acesso: TTabSheet
      ExplicitLeft = 4
      ExplicitTop = 6
      ExplicitWidth = 622
      ExplicitHeight = 406
    end
    inherited Manutencao: TTabSheet
      ExplicitLeft = 4
      ExplicitTop = 6
      ExplicitWidth = 622
      ExplicitHeight = 406
      object GroupBox2: TGroupBox
        Left = 8
        Top = 4
        Width = 82
        Height = 41
        Caption = 'C'#211'DIGO'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        object dbCodigo: TIB_Text
          Left = 4
          Top = 16
          Width = 73
          Height = 16
          DataField = 'COD_PEDIDO_HISTORICO'
          DataSource = DsPrincipal
          BiDiMode = bdLeftToRight
          ParentBiDiMode = False
        end
      end
      object dbUsuario: TIB_Edit
        Left = 100
        Top = 19
        Width = 142
        Height = 24
        AutoLabel.Caption = 'Usu'#225'rio'
        AutoLabel.Kind = albTop
        DataField = 'NOME'
        DataSource = dtUsuario
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentBackground = False
        ReadOnly = True
        TabOrder = 2
      end
      object dbDataCadastro: TIB_Edit
        Left = 248
        Top = 19
        Width = 98
        Height = 24
        AutoLabel.Caption = 'Cadastro'
        AutoLabel.Kind = albTop
        DataField = 'DATA_HISTORICO'
        DataSource = DsPrincipal
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentBackground = False
        ReadOnly = True
        TabOrder = 3
      end
      object dbHora: TIB_Edit
        Left = 348
        Top = 19
        Width = 77
        Height = 24
        AutoLabel.Caption = 'Hora'
        AutoLabel.Kind = albTop
        DataField = 'HORA_HISTORICO'
        DataSource = DsPrincipal
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentBackground = False
        ReadOnly = True
        TabOrder = 4
      end
      object dbHistorico: TIB_Memo
        Left = 8
        Top = 197
        Width = 601
        Height = 145
        AutoLabel.Caption = 'Hist'#243'rico'
        AutoLabel.Kind = albTop
        DataField = 'DESCRICAO'
        DataSource = DsPrincipal
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentBackground = False
        TabOrder = 5
        AutoSize = False
      end
      object grpReferencia: TGroupBox
        Left = 7
        Top = 59
        Width = 602
        Height = 109
        TabOrder = 6
        object IB_Edit1: TIB_Edit
          Left = 7
          Top = 23
          Width = 65
          Height = 24
          AutoLabel.Caption = 'Pedido'
          AutoLabel.Kind = albTop
          AutoLabel.Margin = 0
          DataField = 'COD_PEDIDO'
          DataSource = DsPrincipal
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Verdana'
          Font.Style = []
          ParentFont = False
          ParentBackground = False
          ReadOnly = True
          TabOrder = 0
        end
        object btnPesquisaCliente: TBitBtn
          Tag = 2
          Left = 73
          Top = 22
          Width = 25
          Height = 25
          Hint = 'Pesquisar Cliente'
          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}
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          TabStop = False
          OnClick = btnPesquisaClienteClick
        end
        object IB_Edit2: TIB_Edit
          Left = 103
          Top = 23
          Width = 442
          Height = 24
          AutoLabel.Caption = 'Cliente'
          AutoLabel.Kind = albTop
          AutoLabel.Margin = 0
          DataField = 'CLIENTE.RAZAOSOCIAL'
          DataSource = DsPrincipal
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Verdana'
          Font.Style = []
          ParentFont = False
          ParentBackground = False
          ReadOnly = True
          TabOrder = 2
        end
        object IB_Edit3: TIB_Edit
          Left = 7
          Top = 72
          Width = 98
          Height = 24
          AutoLabel.Caption = 'Data Cadastro'
          AutoLabel.Kind = albTop
          DataField = 'PEDIDOS.DATA_CADASTRO'
          DataSource = DsPrincipal
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Verdana'
          Font.Style = []
          ParentFont = False
          ParentBackground = False
          ReadOnly = True
          TabOrder = 3
        end
        object IB_Edit4: TIB_Edit
          Left = 128
          Top = 72
          Width = 98
          Height = 24
          AutoLabel.Caption = 'Data Pedido'
          AutoLabel.Kind = albTop
          DataField = 'PEDIDOS.DATA_PEDIDO'
          DataSource = DsPrincipal
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Verdana'
          Font.Style = []
          ParentFont = False
          ParentBackground = False
          ReadOnly = True
          TabOrder = 4
        end
        object IB_Edit5: TIB_Edit
          Left = 255
          Top = 72
          Width = 98
          Height = 24
          AutoLabel.Caption = 'Data Sa'#237'da'
          AutoLabel.Kind = albTop
          DataField = 'PEDIDOS.DATA_SAIDA'
          DataSource = DsPrincipal
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Verdana'
          Font.Style = []
          ParentFont = False
          ParentBackground = False
          ReadOnly = True
          TabOrder = 5
        end
      end
    end
  end
  inherited TbPrincipal: TIB_Query
    FieldsCharCase.Strings = (
      'COD_PEDIDO_HISTORICO=UPPER'
      'COD_USUARIO=UPPER'
      'COD_PEDIDO=UPPER'
      'COD_FILIAL=UPPER'
      'DESCRICAO=UPPER'
      'DATA_HISTORICO=UPPER'
      'HORA_HISTORICO=UPPER'
      'RAZAOSOCIAL=UPPER')
    FieldsDisplayLabel.Strings = (
      'COD_PEDIDO_HISTORICO=C'#243'digo'
      'COD_USUARIO=Usu'#225'rio'
      'COD_PEDIDO=Pedido'
      'COD_FILIAL=Filial'
      'DESCRICAO=Hist'#243'rico'
      'DATA_HISTORICO=Data'
      'HORA_HISTORICO=Hora'
      'RAZAOSOCIAL=Cliente')
    FieldsVisible.Strings = (
      'COD_USUARIO=FALSE'
      'COD_PEDIDO=FALSE'
      'COD_FILIAL=FALSE'
      'COD_PEDIDO_HISTORICO=TRUE'
      'DESCRICAO=TRUE'
      'DATA_HISTORICO=TRUE'
      'HORA_HISTORICO=TRUE'
      'RAZAOSOCIAL=TRUE'
      'DATA_CADASTRO=FALSE'
      'DATA_SAIDA=FALSE'
      'DATA_PEDIDO=FALSE')
    SQL.Strings = (
      'SELECT PEDIDOS_HISTORICO.*,'
      
        '       PEDIDOS.data_cadastro, pedidos.data_saida, PEDIDOS.data_p' +
        'edido,'
      '       CLIENTE.razaosocial'
      'FROM PEDIDOS_HISTORICO'
      
        'LEFT JOIN PEDIDOS ON (PEDIDOS_HISTORICO.cod_pedido = PEDIDOS.cod' +
        '_pedido)'
      'LEFT JOIN cliente ON (PEDIDOS.cod_cliente = CLIENTE.cod_cliente)')
    DeleteSQL.Strings = (
      'DELETE FROM PEDIDOS_HISTORICO'
      'WHERE'
      '   COD_PEDIDO_HISTORICO = :OLD_COD_PEDIDO_HISTORICO')
    EditSQL.Strings = (
      'UPDATE PEDIDOS_HISTORICO SET'
      '   COD_PEDIDO_HISTORICO = :COD_PEDIDO_HISTORICO, /*PK*/'
      '   COD_USUARIO = :COD_USUARIO,'
      '   COD_PEDIDO = :COD_PEDIDO,'
      '   COD_FILIAL = :COD_FILIAL,'
      '   DESCRICAO = :DESCRICAO,'
      '   DATA_HISTORICO = :DATA_HISTORICO,'
      '   HORA_HISTORICO = :HORA_HISTORICO'
      'WHERE'
      '   COD_PEDIDO_HISTORICO = :OLD_COD_PEDIDO_HISTORICO')
    InsertSQL.Strings = (
      'INSERT INTO PEDIDOS_HISTORICO('
      '   COD_PEDIDO_HISTORICO, /*PK*/'
      '   COD_USUARIO,'
      '   COD_PEDIDO,'
      '   COD_FILIAL,'
      '   DESCRICAO,'
      '   DATA_HISTORICO,'
      '   HORA_HISTORICO)'
      'VALUES ('
      '   :COD_PEDIDO_HISTORICO,'
      '   :COD_USUARIO,'
      '   :COD_PEDIDO,'
      '   :COD_FILIAL,'
      '   :DESCRICAO,'
      '   :DATA_HISTORICO,'
      '   :HORA_HISTORICO)')
    KeyLinks.Strings = (
      'PEDIDOS_HISTORICO.COD_PEDIDO_HISTORICO')
    OrderingItemNo = -1
    OrderingItems.Strings = (
      
        'COD_PEDIDO_HISTORICO=PEDIDOS_HISTORICO.COD_PEDIDO_HISTORICO;PEDI' +
        'DOS_HISTORICO.COD_PEDIDO_HISTORICO DESC'
      
        'DESCRICAO=PEDIDOS_HISTORICO.DESCRICAO;PEDIDOS_HISTORICO.DESCRICA' +
        'O DESC'
      
        'DATA_HISTORICO=PEDIDOS_HISTORICO.DATA_HISTORICO;PEDIDOS_HISTORIC' +
        'O.DATA_HISTORICO DESC'
      
        'HORA_HISTORICO=PEDIDOS_HISTORICO.HORA_HISTORICO;PEDIDOS_HISTORIC' +
        'O.HORA_HISTORICO DESC'
      'RAZAOSOCIAL=CLIENTE.RAZAOSOCIAL;CLIENTE.RAZAOSOCIAL DESC')
    OrderingLinks.Strings = (
      'COD_PEDIDO_HISTORICO=1'
      'DESCRICAO=2'
      'DATA_HISTORICO=3'
      'HORA_HISTORICO=4'
      'RAZAOSOCIAL=5')
    SearchingLinks.Strings = (
      'COD_PEDIDO_HISTORICO=COD_PEDIDO_HISTORICO'
      'DESCRICAO=DESCRICAO'
      'DATA_HISTORICO=DATA_HISTORICO'
      'HORA_HISTORICO=HORA_HISTORICO'
      'RAZAOSOCIAL=RAZAOSOCIAL')
  end
  inherited ImagensPadrao: TImageList
    Bitmap = {
      [encoded data, 8768 characters]
      000000000000}
  end
  object qryUsuario: TIB_Query
    IB_Connection = Dados.IB_Conexao
    IB_Transaction = Dados.transacao
    SQL.Strings = (
      'SELECT *'
      'FROM USUARIO')
    OrderingItemNo = 1
    OrderingItems.Strings = (
      'COD_USUARIO=COD_USUARIO;COD_USUARIO DESC'
      'NOME=NOME;NOME DESC'
      'LOGIN=LOGIN;LOGIN DESC'
      'SENHA=SENHA;SENHA DESC'
      'EXPIRA_EM=EXPIRA_EM;EXPIRA_EM DESC'
      'SENHA_EXPIRA=SENHA_EXPIRA;SENHA_EXPIRA DESC'
      'DIAS_PARA_EXPIRAR=DIAS_PARA_EXPIRAR;DIAS_PARA_EXPIRAR DESC'
      'EMAIL=EMAIL;EMAIL DESC'
      'UCPRIVILEGED=UCPRIVILEGED;UCPRIVILEGED DESC'
      'UCTYPEREC=UCTYPEREC;UCTYPEREC DESC'
      'UCPROFILE=UCPROFILE;UCPROFILE DESC'
      'UCKEY=UCKEY;UCKEY DESC'
      'UCINATIVE=UCINATIVE;UCINATIVE DESC'
      'COD_SETOR=COD_SETOR;COD_SETOR DESC'
      'DATA_CADASTRO=DATA_CADASTRO;DATA_CADASTRO DESC'
      'DATA_SAIDA=DATA_SAIDA;DATA_SAIDA DESC'
      'SKYPE=SKYPE;SKYPE DESC'
      'NUMERO=NUMERO;NUMERO DESC'
      'BAIRRO=BAIRRO;BAIRRO DESC'
      'CEP=CEP;CEP DESC'
      'CIDADE=CIDADE;CIDADE DESC'
      'LOGRADOURO=LOGRADOURO;LOGRADOURO DESC'
      'COMPLEMENTO=COMPLEMENTO;COMPLEMENTO DESC'
      'FONE1=FONE1;FONE1 DESC'
      'FONE2=FONE2;FONE2 DESC'
      'COD_UF=COD_UF;COD_UF DESC')
    OrderingLinks.Strings = (
      'COD_USUARIO=1'
      'NOME=2'
      'LOGIN=3'
      'SENHA=4'
      'EXPIRA_EM=5'
      'SENHA_EXPIRA=6'
      'DIAS_PARA_EXPIRAR=7'
      'EMAIL=8'
      'UCPRIVILEGED=9'
      'UCTYPEREC=10'
      'UCPROFILE=11'
      'UCKEY=12'
      'UCINATIVE=13'
      'COD_SETOR=14'
      'DATA_CADASTRO=15'
      'DATA_SAIDA=16'
      'SKYPE=17'
      'NUMERO=18'
      'BAIRRO=19'
      'CEP=20'
      'CIDADE=21'
      'LOGRADOURO=22'
      'COMPLEMENTO=23'
      'FONE1=24'
      'FONE2=25'
      'COD_UF=26')
    SearchingLinks.Strings = (
      'COD_USUARIO=COD_USUARIO'
      'NOME=NOME'
      'LOGIN=LOGIN'
      'SENHA=SENHA'
      'EXPIRA_EM=EXPIRA_EM'
      'SENHA_EXPIRA=SENHA_EXPIRA'
      'DIAS_PARA_EXPIRAR=DIAS_PARA_EXPIRAR'
      'EMAIL=EMAIL'
      'UCPRIVILEGED=UCPRIVILEGED'
      'UCTYPEREC=UCTYPEREC'
      'UCPROFILE=UCPROFILE'
      'UCKEY=UCKEY'
      'UCINATIVE=UCINATIVE'
      'COD_SETOR=COD_SETOR'
      'DATA_CADASTRO=DATA_CADASTRO'
      'DATA_SAIDA=DATA_SAIDA'
      'SKYPE=SKYPE'
      'NUMERO=NUMERO'
      'BAIRRO=BAIRRO'
      'CEP=CEP'
      'CIDADE=CIDADE'
      'LOGRADOURO=LOGRADOURO'
      'COMPLEMENTO=COMPLEMENTO'
      'FONE1=FONE1'
      'FONE2=FONE2'
      'COD_UF=COD_UF')
    Left = 290
    Top = 1
  end
  object dtUsuario: TIB_DataSource
    Dataset = qryUsuario
    Left = 290
    Top = 29
  end
end
