VFP9 -- Web Service para timbrar.

[fuentesags]

Ya tengo Xml validado, solo para timbrar; voy a timbrar con TimbreFiscal

el problema es que exactamente no se como, desconozco WS.
alguien quiere ayudar con poner o decirnos algun codigo ejemplo de invocar el WS.

navengando... he encontrado esto.. lo voy analizar...
este ejemplo es parte de un codigo, es para EDICOM

LOCAL loCFDi AS "XML Web Service"
* LOCAL loCFDi AS "MSSOAP.SoapClient30"
* Do not remove or alter following line. It is used to support IntelliSense for your XML Web service.
*__VFPWSDef__: loCFDi = https://cfdiws.sedeb2b.com/EdiwinWS/services/CFDi?wsdl , CFDiService , CFDi
LOCAL loException, lcErrorMsg, loWSHandler
m.lcErrorMsg = ""
TRY
loWSHandler = NEWOBJECT("WSHandler",IIF(VERSION(2)=0,"",HOME()+"FFC\")+"_ws3client.vcx")
loCFDi = loWSHandler.SetupClient("https://cfdiws.sedeb2b.com/EdiwinWS/services/CFDi?wsdl", "CFDiService", "CFDi")
* Call your XML Web service here. ex: leResult = loCFDi.SomeMethod()

CATCH TO loException
lcErrorMsg="Error: "+TRANSFORM(loException.Errorno)+" - "+loException.Message
DO CASE
CASE VARTYPE(loCFDi)#"O"
* Handle SOAP error connecting to web service
CASE !EMPTY(loCFDi.FaultCode)
* Handle SOAP error calling method
lcErrorMsg=lcErrorMsg+CHR(13)+loCFDi.Detail
OTHERWISE
* Handle other error
ENDCASE
* Use for debugging purposes
THISFORM.Displaywarning("ERROR: "+lcErrorMsg)
FINALLY
ENDTRY

IF !EMPTY(m.lcErrorMsg)
DELETE FILE (cCFDFileNameXML)
WAIT CLEAR
RETURN .F.
ENDIF


-- juntemos informacion y unamos conocimiento para timbrar,

fuentesags@hotmail.com
j. fuentes.

[Dado]

Yo no conozco VFP9 pero te voy a dar una recomendacion.

NO USES EL EJEMPLO DE EDICOM PARA tratar de timbrar con TimbreFiscal.

Creeme, NO ES MALA ONDA MIA, te explico.

El problema es que el web service de Edicom ES TOTALMENTE DISTINTO al de TimbreFiscalMx.

Para empezar TimbreFiscalMx usa un certificado y llave que ellos te proporcionan PARA LA CONEXION, es decir, NI SIQUIERA PUEDES CONECTARTE sin antes hacer un "handshaking" con el certificado que te da TimbreFiscal, despues de que te conectas entonces si puedes enviar el SOAP-Message. (por cierto ve pidiendo tu certificado PERSONAL de pruebas)

Por otro lado Edicom requiere que primero COMPRIMAS CON ZIP TU XML, despues el archivo resultante lo conviertes A BASE 64 y entonces si lo metes al SOAP-Message y lo envias, Edicom entonces te responde con un BASE 64 que debes decodificar, luego descomprimir y ya obtienes tu timbrado.

Como ves son TOTALMENTE DISTINTOS y tratar de adaptar un codigo con otro no creo que sea el camino correcto.

[fuentesags]

ouch...!!!

que cosas, y en buen plan te creo.

dejame batallar tantito a manera de reto, si no al final tendre que recurrir a tu DLL que timbra y en este
caso me gustaria estar con timbrefiscal.

pero... y la DLL ya esta preparada a la version 3.2 ( o algo asi ) porque segun timbrefiscal dice que a partir
del primero de enero no timbraran 3.0

saludos.

[fuentesags]

hola DADO, aparte de lo que digo en el anterior mensaje... agrego: en la DLL tambien
ya viene lo del CBB ??



saludos...

[Dado]

hola DADO, aparte de lo que digo en el anterior mensaje... agrego: en la DLL tambien
ya viene lo del CBB ??



saludos...

Para la funcion DE TIMBRADO no hay cambios

Por lo que comentas TU HACES el XML y mas bien tu eres el que debe estar al dia.

Mi libreria DE TIMBRADO no incluye el CBB, esa es otra libreria, checa la pagina inicial, www.validacfd.com ahi viene mas informacion