object Form2: TForm2
  Left = 0
  Top = 0
  Caption = 'Form2'
  ClientHeight = 809
  ClientWidth = 1176
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 1176
    Height = 809
    ActivePage = TabSheet2
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Autentica'
      object memoKey: TMemo
        Left = 0
        Top = 0
        Width = 1168
        Height = 65
        Align = alTop
        ScrollBars = ssBoth
        TabOrder = 0
      end
      object Button1: TButton
        Left = 11
        Top = 175
        Width = 185
        Height = 25
        Caption = 'Autenticar'
        TabOrder = 1
        OnClick = Button1Click
      end
      object edtUsuario: TLabeledEdit
        Left = 11
        Top = 95
        Width = 305
        Height = 21
        EditLabel.Width = 25
        EditLabel.Height = 13
        EditLabel.Caption = 'CNPJ'
        TabOrder = 2
        Text = 'testefc'
      end
      object edtPassword: TLabeledEdit
        Left = 11
        Top = 135
        Width = 305
        Height = 21
        EditLabel.Width = 57
        EditLabel.Height = 13
        EditLabel.Caption = 'Nro. Cart'#227'o'
        TabOrder = 3
        Text = 'teste2013'
      end
      object Panel1: TPanel
        Left = 1032
        Top = 80
        Width = 113
        Height = 97
        TabOrder = 4
        object rbREST: TRadioButton
          Left = 24
          Top = 16
          Width = 113
          Height = 17
          Caption = 'REST'
          TabOrder = 0
        end
        object rbSOAP: TRadioButton
          Left = 24
          Top = 56
          Width = 113
          Height = 17
          Caption = 'SOAP'
          TabOrder = 1
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Resgata Pr'#233' Autoriza'#231'ao'
      ImageIndex = 1
      object Label4: TLabel
        Left = 3
        Top = 292
        Width = 36
        Height = 13
        Caption = 'Receita'
      end
      object Label3: TLabel
        Left = 3
        Top = 115
        Width = 25
        Height = 13
        Caption = 'Itens'
      end
      object Label2: TLabel
        Left = 840
        Top = 134
        Width = 34
        Height = 13
        Caption = 'Origem'
      end
      object Label1: TLabel
        Left = 951
        Top = 88
        Width = 23
        Height = 13
        Caption = 'Data'
      end
      object DBGrid2: TDBGrid
        Left = 3
        Top = 134
        Width = 828
        Height = 129
        DataSource = dsFDMemTableITENS
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Tahoma'
        TitleFont.Style = []
      end
      object DBGrid3: TDBGrid
        Left = 3
        Top = 311
        Width = 828
        Height = 120
        DataSource = dsFDMemTableReceita
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Tahoma'
        TitleFont.Style = []
      end
      object DBGrid1: TDBGrid
        Left = 3
        Top = 15
        Width = 828
        Height = 62
        DataSource = dsFDMemTable
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Tahoma'
        TitleFont.Style = []
      end
      object Button2: TButton
        Left = 840
        Top = 310
        Width = 304
        Height = 25
        Caption = 'Resgatar Pr'#233' Autoriza'#231#227'o'
        TabOrder = 3
        OnClick = Button2Click
      end
      object cmbOrigem: TComboBox
        Left = 837
        Top = 151
        Width = 145
        Height = 21
        ItemIndex = 1
        TabOrder = 4
        Text = '5 PDV'
        Items.Strings = (
          '3 Mobile'
          '5 PDV'
          '6 SAC'
          '9 URA'
          '16 Ecommere')
      end
      object edtData: TDateTimePicker
        Left = 948
        Top = 103
        Width = 194
        Height = 21
        Date = 43978.660928125000000000
        Time = 43978.660928125000000000
        TabOrder = 5
      end
      object edtAutorizacao: TLabeledEdit
        Left = 837
        Top = 103
        Width = 105
        Height = 21
        EditLabel.Width = 81
        EditLabel.Height = 13
        EditLabel.Caption = 'Nro. Autoriza'#231#227'o'
        TabOrder = 6
        Text = '770991'
      end
      object edtCartao: TLabeledEdit
        Left = 837
        Top = 55
        Width = 305
        Height = 21
        EditLabel.Width = 57
        EditLabel.Height = 13
        EditLabel.Caption = 'Nro. Cart'#227'o'
        TabOrder = 7
        Text = '60100022100000116'
      end
      object edtCNPJ: TLabeledEdit
        Left = 837
        Top = 15
        Width = 305
        Height = 21
        EditLabel.Width = 25
        EditLabel.Height = 13
        EditLabel.Caption = 'CNPJ'
        TabOrder = 8
        Text = '00000000000010'
      end
      object edtNumSequencil: TLabeledEdit
        Left = 988
        Top = 151
        Width = 154
        Height = 21
        Color = clWhite
        EditLabel.Width = 75
        EditLabel.Height = 13
        EditLabel.Caption = 'Nro. Sequencial'
        TabOrder = 9
        Text = '0'
      end
      object Button3: TButton
        Left = 840
        Top = 341
        Width = 304
        Height = 25
        Caption = 'Confirmar Pr'#233' Autoriza'#231#227'o'
        TabOrder = 10
        OnClick = Button3Click
      end
      object Button4: TButton
        Left = 840
        Top = 372
        Width = 304
        Height = 25
        Caption = 'Cancelar Autoriza'#231#227'o'
        TabOrder = 11
        OnClick = Button4Click
      end
      object edtValor: TLabeledEdit
        Left = 837
        Top = 202
        Width = 305
        Height = 21
        Color = clSilver
        EditLabel.Width = 24
        EditLabel.Height = 13
        EditLabel.Caption = 'Valor'
        ReadOnly = True
        TabOrder = 12
        Text = '0'
      end
      object Memo1: TMemo
        Left = 0
        Top = 536
        Width = 1168
        Height = 245
        Align = alBottom
        Lines.Strings = (
          'Memo1')
        TabOrder = 13
      end
    end
  end
  object RESTRequest1: TRESTRequest
    Client = RESTClient2
    Params = <>
    Response = RESTResponse1
    SynchronizedEvents = False
    Left = 40
    Top = 544
  end
  object RESTResponse1: TRESTResponse
    Left = 120
    Top = 528
  end
  object RESTResponseDataSetAdapter1: TRESTResponseDataSetAdapter
    Dataset = FDMemTable
    FieldDefs = <>
    Response = RESTResponse1
    Left = 176
    Top = 479
  end
  object FDMemTable: TFDMemTable
    FieldDefs = <>
    IndexDefs = <>
    FetchOptions.AssignedValues = [evMode]
    FetchOptions.Mode = fmAll
    ResourceOptions.AssignedValues = [rvSilentMode]
    ResourceOptions.SilentMode = True
    UpdateOptions.AssignedValues = [uvCheckRequired]
    UpdateOptions.CheckRequired = False
    StoreDefs = True
    Left = 168
    Top = 576
  end
  object dsFDMemTable: TDataSource
    DataSet = FDMemTable
    Left = 272
    Top = 584
  end
  object FDMemTableITENS: TFDMemTable
    FieldDefs = <>
    IndexDefs = <>
    FetchOptions.AssignedValues = [evMode]
    FetchOptions.Mode = fmAll
    ResourceOptions.AssignedValues = [rvSilentMode]
    ResourceOptions.SilentMode = True
    UpdateOptions.AssignedValues = [uvCheckRequired]
    UpdateOptions.CheckRequired = False
    StoreDefs = True
    Left = 168
    Top = 640
  end
  object dsFDMemTableITENS: TDataSource
    DataSet = FDMemTableITENS
    OnDataChange = dsFDMemTableITENSDataChange
    Left = 272
    Top = 640
  end
  object RESTClient2: TRESTClient
    Accept = 'application/json, text/plain; q=0.9, text/html;q=0.8,'
    AcceptCharset = 'utf-8, *;q=0.8'
    BaseURL = 
      'http://acessohml.funcionalmais.com/AutorizadorOmniChannelExterno' +
      '/REST'
    Params = <>
    HandleRedirects = True
    ProxyPort = 3128
    ProxyServer = '10.0.11.100'
    RaiseExceptionOn500 = False
    Left = 64
    Top = 456
  end
  object dsFDMemTableReceita: TDataSource
    DataSet = FDMemTableReceita
    Left = 264
    Top = 696
  end
  object FDMemTableReceita: TFDMemTable
    FieldDefs = <>
    IndexDefs = <>
    FetchOptions.AssignedValues = [evMode]
    FetchOptions.Mode = fmAll
    ResourceOptions.AssignedValues = [rvSilentMode]
    ResourceOptions.SilentMode = True
    UpdateOptions.AssignedValues = [uvCheckRequired]
    UpdateOptions.CheckRequired = False
    StoreDefs = True
    Left = 168
    Top = 696
  end
end
