inherited frmAvisoAtendimentoFornecedor: TfrmAvisoAtendimentoFornecedor
  Left = 139
  Top = 121
  Caption = 'frmAvisoAtendimentoFornecedor'
  ClientHeight = 412
  ClientWidth = 589
  OldCreateOrder = True
  ExplicitWidth = 595
  ExplicitHeight = 441
  PixelsPerInch = 96
  TextHeight = 16
  object IB_Edit1: TIB_Text [0]
    Left = 369
    Top = 51
    Width = 54
    Height = 16
    Hint = 'Hora do lan'#231'amento'
    AutoSize = True
    DataField = 'ATENDIMENTO_CLIENTE.HORA'
    DataSource = dsrAvisoAtendimento
    Color = clWhite
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Verdana'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
  end
  object IB_Edit2: TIB_Text [1]
    Left = 296
    Top = 171
    Width = 273
    Height = 16
    Hint = 'Usu'#225'rio que registrou o atendimento'
    DataField = 'USUARIO.NOME'
    DataSource = dsrAvisoAtendimento
    Color = clWhite
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Verdana'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
  end
  object IB_Edit3: TIB_Text [2]
    Left = 8
    Top = 171
    Width = 265
    Height = 16
    Hint = 'Filial que registrou o atendimento'
    DataField = 'FILIAL.APELIDO'
    DataSource = dsrAvisoAtendimento
    Color = clWhite
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Verdana'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
  end
  object IB_Edit4: TIB_Text [3]
    Left = 96
    Top = 51
    Width = 121
    Height = 20
    Hint = 'N'#250'mero do resgistro do atendimento'
    DataField = 'ATENDIMENTO_CLIENTE.COD_ATEND_CLIENTE'
    DataSource = dsrAvisoAtendimento
    BiDiMode = bdLeftToRight
    Color = clWhite
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -17
    Font.Name = 'Verdana'
    Font.Style = []
    ParentBiDiMode = False
    ParentColor = False
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
  end
  object IB_Edit5: TIB_Text [4]
    Left = 254
    Top = 51
    Width = 54
    Height = 16
    Hint = 'Data do La'#231'amento'
    AutoSize = True
    DataField = 'ATENDIMENTO_CLIENTE.DATA'
    DataSource = dsrAvisoAtendimento
    Color = clWhite
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Verdana'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
  end
  object Label1: TLabel [5]
    Left = 96
    Top = 34
    Width = 115
    Height = 16
    Caption = 'N'#176' Atendimento'
  end
  object Label3: TLabel [6]
    Left = 254
    Top = 34
    Width = 34
    Height = 16
    Caption = 'Data'
  end
  object Label4: TLabel [7]
    Left = 369
    Top = 34
    Width = 35
    Height = 16
    Caption = 'Hora'
  end
  object Label5: TLabel [8]
    Left = 296
    Top = 156
    Width = 55
    Height = 16
    Caption = 'Usu'#225'rio'
  end
  object Label6: TLabel [9]
    Left = 8
    Top = 156
    Width = 34
    Height = 16
    Caption = 'Filial'
  end
  object Label7: TLabel [10]
    Left = 102
    Top = 98
    Width = 150
    Height = 16
    Caption = 'Tipo do Atendimento'
  end
  object IB_Text1: TIB_Text [11]
    Left = 102
    Top = 115
    Width = 401
    Height = 23
    Hint = 'Tipo do atendimento'
    DataField = 'TIPOATENDIMENTO'
    DataSource = dsrAvisoAtendimento
    Color = clWhite
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'Verdana'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
  end
  object IB_Text3: TIB_Text [12]
    Left = 8
    Top = 215
    Width = 152
    Height = 15
    Hint = 'CPF/CNPJ do Cliente'
    DataField = 'CLIENTE.CNPJ'
    DataSource = dsrAvisoAtendimento
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Verdana'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
  end
  object Label8: TLabel [13]
    Left = 8
    Top = 200
    Width = 73
    Height = 16
    Caption = 'CPF/CNPJ'
  end
  object IB_Text2: TIB_Text [14]
    Left = 168
    Top = 215
    Width = 409
    Height = 15
    Hint = 'Nome Fantasia do Cliente'
    DataField = 'CLIENTE.RAZAOSOCIAL'
    DataSource = dsrAvisoAtendimento
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Verdana'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
  end
  object Label9: TLabel [15]
    Left = 168
    Top = 200
    Width = 51
    Height = 16
    Caption = 'Cliente'
  end
  object Shape2: TShape [16]
    Left = 0
    Top = 236
    Width = 593
    Height = 3
    Brush.Color = 16770222
    Pen.Color = 16770222
  end
  object Image1: TImage [17]
    Left = -17
    Top = 27
    Width = 113
    Height = 129
    Picture.Data = {
      [encoded data, 36480 characters]
      53BE2AC9D05100F018AAEC55D8ABB157FFD9}
  end
  object cbxNaoExibir: TCheckBox [18]
    Left = 262
    Top = 358
    Width = 318
    Height = 17
    BiDiMode = bdRightToLeft
    Caption = 'N'#227'o Exibir este Atendimento Novamente'
    Ctl3D = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Verdana'
    Font.Style = []
    ParentBiDiMode = False
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 2
  end
  object IB_Memo1: TIB_Memo [19]
    Left = 6
    Top = 257
    Width = 575
    Height = 97
    AutoLabel.Caption = 'Descri'#231#227'o sobre o Atendimento'
    AutoLabel.Kind = albTop
    AutoLabel.Margin = 0
    DataField = 'ATENDIMENTO_CLIENTE.DESCRICAO'
    DataSource = dsrAvisoAtendimento
    BiDiMode = bdRightToLeft
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Verdana'
    Font.Style = []
    ParentBiDiMode = False
    ParentFont = False
    Ctl3D = True
    ParentCtl3D = False
    ParentBackground = False
    ReadOnly = True
    TabOrder = 3
    AutoSize = False
    ScrollBars = ssVertical
  end
  inherited Panel3: TPanel
    Top = 377
    Width = 589
    ExplicitTop = 377
    ExplicitWidth = 589
    inherited Linhabotao: TShape
      Width = 589
    end
    inherited Panel2: TPanel
      Left = 333
      ExplicitLeft = 333
      inherited BtGravar: TBitBtn
        Visible = False
      end
      inherited BtCancelar: TBitBtn
        Caption = 'Sair'
      end
    end
  end
  inherited Panel1: TPanel
    Width = 589
    ExplicitWidth = 589
    inherited lblTitulo: TLabel
      Width = 208
      Caption = 'Aviso de atendimento'
      ExplicitWidth = 208
    end
    inherited Shape1: TShape
      Width = 589
      ExplicitWidth = 589
    end
  end
  inherited ImagensPadrao: TImageList
    Bitmap = {
      [encoded data, 8768 characters]
      000000000000}
  end
  object dsrAvisoAtendimento: TIB_DataSource
    Dataset = qrAvisoAtendimento
    Left = 336
    Top = 33
  end
  object qrAvisoAtendimento: TIB_Query
    IB_Connection = Dados.ConexaoUserControl
    SQL.Strings = (
      'SELECT ATENDIMENTO_FORNECEDOR.*'
      '     , TIPO_ATENDIMENTO.descricao AS tipoAtendimento'
      '     , USUARIO.NOME'
      '     , FORNECEDOR.RAZAOSOCIAL'
      '     , FORNECEDOR.CNPJ'
      ''
      'FROM ATENDIMENTO_FORNECEDOR'
      
        '   INNER JOIN TIPO_ATENDIMENTO ON TIPO_ATENDIMENTO.COD_TIPO_ATEN' +
        'DIMENTO = ATENDIMENTO_FORNECEDOR.COD_TIPO_ATENDIMENTO'
      
        '   INNER JOIN USUARIO ON USUARIO.COD_USUARIO = ATENDIMENTO_FORNE' +
        'CEDOR.COD_USUARIO'
      
        '   inner join FORNECEDOR on FORNECEDOR.COD_FORNECEDOR = ATENDIME' +
        'NTO_FORNECEDOR.COD_FORNECEDOR'
      ''
      'WHERE ATENDIMENTO_FORNECEDOR.avisar = '#39'T'#39
      '   AND ATENDIMENTO_FORNECEDOR.cod_FORNECEDOR = :cod_FORNECEDOR')
    DeleteSQL.Strings = (
      'DELETE FROM ATENDIMENTO_FORNECEDOR'
      'WHERE'
      'RDB$DB_KEY = :DB_KEY')
    EditSQL.Strings = (
      'UPDATE ATENDIMENTO_FORNECEDOR SET'
      '   COD_ATEND_FORNECEDOR = :COD_ATEND_FORNECEDOR,'
      '   COD_TIPO_ATENDIMENTO = :COD_TIPO_ATENDIMENTO,'
      '   COD_FORNECEDOR = :COD_FORNECEDOR,'
      '   COD_USUARIO = :COD_USUARIO,'
      '   DATA = :DATA,'
      '   CNPJ_FORNECEDOR = :CNPJ_FORNECEDOR,'
      '   SEQUENCIAL_FORNECEDOR = :SEQUENCIAL_FORNECEDOR,'
      '   HORA = :HORA,'
      '   DESCRICAO = :DESCRICAO,'
      '   STATUS = :STATUS,'
      '   AVISAR = :AVISAR,'
      '   COD_SETOR = :COD_SETOR'
      'WHERE'
      'RDB$DB_KEY = :DB_KEY')
    InsertSQL.Strings = (
      'INSERT INTO ATENDIMENTO_FORNECEDOR('
      '   COD_ATEND_FORNECEDOR,'
      '   COD_TIPO_ATENDIMENTO,'
      '   COD_FORNECEDOR,'
      '   COD_USUARIO,'
      '   DATA,'
      '   CNPJ_FORNECEDOR,'
      '   SEQUENCIAL_FORNECEDOR,'
      '   HORA,'
      '   DESCRICAO,'
      '   STATUS,'
      '   AVISAR,'
      '   COD_SETOR)'
      'VALUES ('
      '   :COD_ATEND_FORNECEDOR,'
      '   :COD_TIPO_ATENDIMENTO,'
      '   :COD_FORNECEDOR,'
      '   :COD_USUARIO,'
      '   :DATA,'
      '   :CNPJ_FORNECEDOR,'
      '   :SEQUENCIAL_FORNECEDOR,'
      '   :HORA,'
      '   :DESCRICAO,'
      '   :STATUS,'
      '   :AVISAR,'
      '   :COD_SETOR)')
    Left = 338
    Top = 3
    ParamValues = (
      'COD_FORNECEDOR=')
  end
end
