object frmPrincipal: TfrmPrincipal
  Left = 0
  Top = 0
  Caption = 'frmPrincipal'
  ClientHeight = 689
  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 = 689
    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 = 247
        Width = 185
        Height = 25
        Caption = 'Autenticar'
        TabOrder = 1
        OnClick = Button1Click
      end
      object edtUsuario: TLabeledEdit
        Left = 11
        Top = 167
        Width = 305
        Height = 21
        EditLabel.Width = 25
        EditLabel.Height = 13
        EditLabel.Caption = 'CNPJ'
        TabOrder = 2
        Text = 'testefc'
      end
      object edtPassword: TLabeledEdit
        Left = 11
        Top = 207
        Width = 305
        Height = 21
        EditLabel.Width = 57
        EditLabel.Height = 13
        EditLabel.Caption = 'Nro. Cart'#227'o'
        TabOrder = 3
        Text = 'teste2013'
      end
      object edtEndPoint: TLabeledEdit
        Left = 11
        Top = 104
        Width = 390
        Height = 21
        EditLabel.Width = 82
        EditLabel.Height = 13
        EditLabel.Caption = 'EndPoint Correto'
        TabOrder = 4
        Text = 
          'http://acessohml.funcionalmais.com/AutorizadorOmniChannelExterno' +
          '/REST/'
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Resgata Pr'#233' Autoriza'#231'ao'
      ImageIndex = 1
      object Label4: TLabel
        Left = 6
        Top = 280
        Width = 36
        Height = 13
        Caption = 'Receita'
      end
      object Label3: TLabel
        Left = 3
        Top = 138
        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 = 157
        Width = 828
        Height = 111
        DataSource = dsFDMemTableITENS
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Tahoma'
        TitleFont.Style = []
        OnDrawColumnCell = DBGrid2DrawColumnCell
      end
      object DBGrid3: TDBGrid
        Left = 6
        Top = 306
        Width = 828
        Height = 77
        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 = 39
        Width = 828
        Height = 85
        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 = 296
        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.000000000000000000
        Time = 0.660928124998463300
        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 = '12609'
      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 = 327
        Width = 304
        Height = 25
        Caption = 'Confirmar Pr'#233' Autoriza'#231#227'o'
        TabOrder = 10
        OnClick = Button3Click
      end
      object Button4: TButton
        Left = 840
        Top = 358
        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'
        TabOrder = 12
        Text = '0'
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Resultado da Venda'
      ImageIndex = 2
      object Label7: TLabel
        Left = 344
        Top = 18
        Width = 183
        Height = 42
        Caption = '-- VENDA --'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -35
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label6: TLabel
        Left = 51
        Top = 144
        Width = 50
        Height = 13
        Caption = 'Cabecalho'
      end
      object Label5: TLabel
        Left = 51
        Top = 254
        Width = 25
        Height = 13
        Caption = 'Itens'
      end
      object Label8: TLabel
        Left = 51
        Top = 414
        Width = 65
        Height = 13
        Caption = 'Comprovante'
      end
      object DBGrid4: TDBGrid
        Left = 51
        Top = 163
        Width = 828
        Height = 85
        DataSource = dsFDMemtableCabecalhoVenda
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Tahoma'
        TitleFont.Style = []
      end
      object DBGrid5: TDBGrid
        Left = 51
        Top = 273
        Width = 828
        Height = 111
        DataSource = dsFDMemTableItensVenda
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Tahoma'
        TitleFont.Style = []
        OnDrawColumnCell = DBGrid2DrawColumnCell
      end
      object DBMemo1: TDBMemo
        Left = 51
        Top = 508
        Width = 822
        Height = 81
        DataSource = dsFDMemTableComprovante
        ScrollBars = ssBoth
        TabOrder = 2
      end
      object DBGrid6: TDBGrid
        Left = 51
        Top = 433
        Width = 828
        Height = 69
        DataSource = dsFDMemTableComprovante
        TabOrder = 3
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Tahoma'
        TitleFont.Style = []
      end
      object Memo1: TMemo
        Left = 51
        Top = 604
        Width = 790
        Height = 81
        Lines.Strings = (
          'Memo1')
        ScrollBars = ssBoth
        TabOrder = 4
      end
      object DBGrid7: TDBGrid
        Left = 45
        Top = 57
        Width = 1012
        Height = 69
        DataSource = dsFDMemTable1
        TabOrder = 5
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Tahoma'
        TitleFont.Style = []
      end
    end
  end
  object RESTRequest: TRESTRequest
    Client = RESTClient
    Params = <>
    Response = RESTResponse
    SynchronizedEvents = False
    Left = 8
    Top = 336
  end
  object RESTResponse: TRESTResponse
    Left = 8
    Top = 400
  end
  object RESTResponseDataSetAdapter: TRESTResponseDataSetAdapter
    Dataset = FDMemTable
    FieldDefs = <>
    Response = RESTResponse
    StringFieldSize = 1000
    Left = 8
    Top = 455
  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 = 136
    Top = 288
  end
  object dsFDMemTable: TDataSource
    DataSet = FDMemTable
    Left = 136
    Top = 336
  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 = 136
    Top = 383
  end
  object dsFDMemTableITENS: TDataSource
    DataSet = FDMemTableITENS
    OnDataChange = dsFDMemTableITENSDataChange
    Left = 136
    Top = 431
  end
  object RESTClient: TRESTClient
    Accept = 'application/json, text/plain; q=0.9, text/html;q=0.8,'
    AcceptCharset = 'utf-8, *;q=0.8'
    BaseURL = 'https://proxy.funcionalmais.com/AutorizadorOmniChannel/REST/'
    ContentType = 'application/json'
    Params = <>
    RaiseExceptionOn500 = False
    Left = 8
    Top = 280
  end
  object dsFDMemTableReceita: TDataSource
    DataSet = FDMemTableReceita
    Left = 248
    Top = 338
  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 = 248
    Top = 290
  end
  object FDMemtableCabecalhoVenda: TFDMemTable
    FieldDefs = <>
    IndexDefs = <>
    FetchOptions.AssignedValues = [evMode]
    FetchOptions.Mode = fmAll
    ResourceOptions.AssignedValues = [rvSilentMode]
    ResourceOptions.SilentMode = True
    UpdateOptions.AssignedValues = [uvCheckRequired]
    UpdateOptions.CheckRequired = False
    StoreDefs = True
    Left = 824
    Top = 256
  end
  object dsFDMemtableCabecalhoVenda: TDataSource
    DataSet = FDMemtableCabecalhoVenda
    OnDataChange = dsFDMemTableITENSDataChange
    Left = 824
    Top = 296
  end
  object FDMemTableItensVenda: TFDMemTable
    FieldDefs = <>
    IndexDefs = <>
    FetchOptions.AssignedValues = [evMode]
    FetchOptions.Mode = fmAll
    ResourceOptions.AssignedValues = [rvSilentMode]
    ResourceOptions.SilentMode = True
    UpdateOptions.AssignedValues = [uvCheckRequired]
    UpdateOptions.CheckRequired = False
    StoreDefs = True
    Left = 824
    Top = 344
  end
  object dsFDMemTableItensVenda: TDataSource
    DataSet = FDMemTableItensVenda
    Left = 824
    Top = 392
  end
  object FDMemTableComprovante: TFDMemTable
    FieldDefs = <>
    IndexDefs = <>
    FetchOptions.AssignedValues = [evMode]
    FetchOptions.Mode = fmAll
    ResourceOptions.AssignedValues = [rvSilentMode]
    ResourceOptions.SilentMode = True
    UpdateOptions.AssignedValues = [uvCheckRequired]
    UpdateOptions.CheckRequired = False
    StoreDefs = True
    Left = 824
    Top = 440
  end
  object dsFDMemTableComprovante: TDataSource
    DataSet = FDMemTableComprovante
    Left = 824
    Top = 488
  end
  object RESTRequest1: TRESTRequest
    Client = RESTClient
    Method = rmPOST
    Params = <
      item
        Kind = pkHTTPHEADER
        Name = 'ApiKey'
        Value = 
          'eyJhbGciOiJIUzI1NiIsInR5cCI6IkpXVCJ9.eyJ0aXBvIjoiZXN0YWJzZW5oYSI' +
          'sInVzZXIiOiJ0ZXN0ZWZjIiwiY25waiI6IjAwMDAwMDAwMDAwMDEwIiwiY29kY3J' +
          'lIjoiMTAiLCJuYmYiOjE1OTI4NDE4NDIsImV4cCI6MTU5MjkyODI0MiwiaWF0Ijo' +
          'xNTkyODQxODQyfQ.4En764sqqGE-C5UsZXlUJw0e9I_Z6tgixhIBauPji_s'
      end
      item
        Kind = pkHTTPHEADER
        Name = 'Origem'
        Value = '5'
      end
      item
        Kind = pkREQUESTBODY
        Name = 'body'
        Options = [poDoNotEncode]
        ContentType = ctAPPLICATION_JSON
      end>
    Resource = 'api/Autorizacao/VendaPreAutorizada'
    Response = RESTResponse1
    SynchronizedEvents = False
    Left = 552
    Top = 400
  end
  object RESTResponse1: TRESTResponse
    ContentType = 'application/json'
    Left = 552
    Top = 448
  end
  object RESTResponseDataSetAdapter1: TRESTResponseDataSetAdapter
    Dataset = FDMemTable1
    FieldDefs = <>
    Response = RESTResponse1
    Left = 552
    Top = 496
  end
  object FDMemTable1: TFDMemTable
    FieldDefs = <>
    IndexDefs = <>
    FetchOptions.AssignedValues = [evMode]
    FetchOptions.Mode = fmAll
    ResourceOptions.AssignedValues = [rvSilentMode]
    ResourceOptions.SilentMode = True
    UpdateOptions.AssignedValues = [uvCheckRequired]
    UpdateOptions.CheckRequired = False
    StoreDefs = True
    Left = 552
    Top = 544
  end
  object dsFDMemTable1: TDataSource
    DataSet = FDMemTable1
    Left = 552
    Top = 592
  end
end
