PC Toledo

Código: Selecionar todos

 oServer:SetRequestHeader( "Content-Type", "application/x-www-form-urlencoded" )

Código: Selecionar todos

METHOD Token( ... ) CLASS IFoodClass

   LOCAL cUrl  := "https://merchant-api.ifood.com.br/authentication/v1.0/oauth/token"

   cUrl += "?grantType=client_credentials" + ;
           "&clientId=" + ::cClientId + ;
           "&clientSecret=" + ::cSecret + ;
           "&authorizationCode=" + ;
           "&authorizationCodeVerifier=" + ;
           "&refreshToken="

   ::Post( "POST", cUrl, "" )
   ::aRespToken := ::aJson

   RETURN ::aJson

Código: Selecionar todos

Function EnviarJSONporWebService()
   local oWS, sDataRaw, sAuthorization
   oWS := TOleAuto():New( "MSXML2.ServerXMLHTTP.6.0" )
   if ValType(oWS) <> "O"
      return nil
   endif
   sDataRaw := '{' + CRLF + ;
	  '"items": [' + CRLF + ;
	  '  {' + CRLF + ;
	  '    "name": "Meu Produto",' + CRLF + ;
	  '    "value": 7500,' + CRLF + ;
	  '    "amount": 1' + CRLF + ;
	  '  }' + CRLF + ;
	  '],' + CRLF + ;
	  '"customer": {' + CRLF + ;
	  '  "name": "Gorbadoc Oldbuck",' + CRLF + ;
	  '  "cpf": "94271564656",' + CRLF + ;
	  '  "phone_number": "5144916523"' + CRLF + ;
	  '},' + CRLF + ;
	  '"expire_at": "2018-12-20",' + CRLF + ;
	  '"configurations": {' + CRLF + ;
	  '      "fine": 200,' + CRLF + ;
	  '      "interest": 33' + CRLF + ;
	  '    },' + CRLF + ;
	  '"message": "Este é um espaço de até 80 caracteres para informar algo a seu cliente",' + CRLF + ;
	  '"repeats": 5,' + CRLF + ;
	  '"split_items": false' + CRLF + ;
	'}'
   // Certificado que vamos usar do armazem de certificados de Windows.
   oWS:SetOption( 3, "Nome do certificado" )
   oWS:Open( "POST", "https://sandbox.gerencianet.com.br/v1/carnet", .f. )
   // Caso seja necessario definir timeouts
   // Os valores sao em milisegundos
   oWS:setTimeouts( 15000, 15000, 600000, 600000 )
   // Metodo chamados
   oWS:SetRequestHeader( "Content-Type", "application/json" )
   oWS:SetRequestHeader( "Authorization", sAuthorization )
   // Enviamos a informacao JSON
   oWS:send( sDataRaw )
   MsgInfo( "Resposta: " + oWS:responsexml:xml)
   return ""    

function EnviarJSONporDOS()
   local sDataRaw, sAuthorization, sParameters
   sDataRaw := '{' + CRLF + ;
               '"items": [' + CRLF + ;
               '  {' + CRLF + ;
               '    "name": "Meu Produto",' + CRLF + ;
               '    "value": 7500,' + CRLF + ;
               '    "amount": 1' + CRLF + ;
               '  }' + CRLF + ;
               '],' + CRLF + ;
               '"customer": {' + CRLF + ;
               '  "name": "Gorbadoc Oldbuck",' + CRLF + ;
               '  "cpf": "94271564656",' + CRLF + ;
               '  "phone_number": "5144916523"' + CRLF + ;
               '},' + CRLF + ;
               '"expire_at": "2018-12-20",' + CRLF + ;
               '"configurations": {' + CRLF + ;
               '      "fine": 200,' + CRLF + ;
               '      "interest": 33' + CRLF + ;
               '    },' + CRLF + ;
               '"message": "Este é um espaço de até 80 caracteres para informar algo a seu cliente",' + CRLF + ;
               '"repeats": 5,' + CRLF + ;
               '"split_items": false' + CRLF + ;
               '}'
   sParameters := [ --location --request POST 'https://sandbox.gerencianet.com.br/v1/carnet' ] + ;
                  [ --header 'Authorization: {{Authorization}}' ] + ;
                  [ --header 'Content-Type: application/json' ] + ;
                  [ --data-raw ] + sDataRaw + ;
                  [ > GNCURL.TXT]
   cMacro      := "GNCURL.BAT"
   cComando    := "CURL.EXE " + sParameters
   errhandle   := fCreate( cMacro )         
   fWrite( errhandle, cComando )
   fClose( errhandle )
   //
   // MsgRun( "Aguarde o termino do processo", "Envio de Email...", {|| WaitRun( cMacro, 0 ) } )
   Run( cMacro, 0 )
   //
   cRetorno    := MemoRead( "GNCURL.TXT" )
   return nil