Cómo crear un API?

User avatar
joseluisysturiz
Posts: 2024
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela
Contact:

Re: Cómo crear un API?

Post by joseluisysturiz »

Si alcanza aca te envio mi solicitud... joseluisysturiz@yahoo.com saludos, gracias... :shock:
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
noe aburto
Posts: 420
Joined: Wed Nov 26, 2008 6:33 pm
Location: Morelia, Mich. Mexico.

Re: Cómo crear un API?

Post by noe aburto »

Saludos.

Estoy entre a espada y la pared.
Me urge solucionar como crear una API, y no he comprendido nada hasta ahorita por medio del foro.

Ayuda porfa.
Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com
User avatar
noe aburto
Posts: 420
Joined: Wed Nov 26, 2008 6:33 pm
Location: Morelia, Mich. Mexico.

Ayuda con crear JSon

Post by noe aburto »

Saludos.

Siguiwendo algunos ejemplos expuestos en el foro, debo comunicar,e con un webservice para mardar informacion, hago esto

Code: Select all

#include "fivewin.ch"

Function APIS(cOpe)
local doc,oHttp,cText,cText1,response,cStr,hHash,nLen,r

default cOpe:='VU'

doc:=CreateObject( "MSXML2.DOMDocument" )
oHttp:=CreateObject( "MSXML2.XMLHTTP" )
if cOpe=='VU'
 oHttp:Open( "POST" ,"http://www.answerspip.com:80/apidms/v1/Venta",.F.)
endif
oHttp:SetRequestHeader("cache-control", "no-cache")
oHttp:SetRequestHeader("content-type",  "application/json" )
oHttp:SetRequestHeader("authorization", "Token token=398336e2a7bbeaac6d3858c1551a8536" )
if cOpe=='VU'
 cText:=MemoRead("p:\tmp\ventauni.json")
endif
TRY
 oHttp:Send( cText )
 ? cText
CATCH                                                                                                                               
 msginfo("No Se Pudo Enviar Documento JSON","Intente Nuevamente")
 return .t.
END
response:=oHttp:responseText
if cOpe=='VU'
 MemoWrit( 'p:\tmp\SendVentaUni_Res.json',response)
 cText1:=MEMOREAD("p:\tmp\SendVentaUni_Res.json")
endif
?cText1 // ver respuesta del servidor .
return NIL
 
y el contenido del archivo p:\tmp\ventiuni.json es:
**************************************************************
{
"invoice": {
"IdMarca": "010",
"IdDistribuidor": "497",
"IdInterfaz": "MX00000088",
"IdEjecutivo": "090",
"IdCliente": "48045",
"Apellido_Paterno": "GUTIERREZ",
"Apellido_Materno": "TREJO",
"Nombre": "ALDO ISMAEL",
"Telefono1": "5552928000",
"Telefono2": "0445552928000",
"Email": "naburtos@gmail.com",
"TipoPersona": "0",
"TipoVenta":" "AUTOFINANCIAMIENTO",
"No_Factura": "003957",
"Clave_Modelo": "J1L",
"Clave_Color": "AEM",
"Clave_Color_Int": "TCG",
"Fecha_Factura": "20170724",
"Fecha_Entrega": "20180730",
"No_Vin": "8AFWR5DV6H6497124",
"Numero_Inventario": "2852-17",
"RazonComercial": "",
"IdProspectoSicop": "48045",
"Calle": "AVENIDA PLAZA DEL SOL",
"No_Ext": "25",
"No_Int": "41",
"Colonia": "RINCONADA DEL SOL",
"Delegacion_Municipio": "ZAPOPAN",
"Estado": "JALISCO",
"CP": "45055",
"RFC": "GUTA880104RA4",
"Matricula": "1234-XXX",
"Fecha_Matricula": "",
"Descripcion_Auto": "RANGER XLT CREW",
"Descripcion_Version": "",
"Descripcion_Color": "EX24",
"Descripcion_ColorInt": "IN19",
}
}
***********************************************************

El caso es que no me indica: "No Se Pudo Enviar Documento JSON"
y al final el: response:=oHttp:responseText
no tiene nada.

Ayuda porfa.
Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com
Post Reply