Buenos días señores, disculpen las molestias, estoy trabado con algo que veo que ustedes tienen experiencias y podrian darme una mano.
esto es lo que hago:
1-openssl genrsa -out archivopriv 1024
2-openssl req -new -key archivopriv -subj "/C=AR/O=Empresa /CN=develope/serialNumber=CUIT xxxxxxxxxxx" -out archivocsr
3-copio el contenido en el APIweb de afip y obtengo un certificado, copio el contenido y genero un empresa.pem y también asocio el cuit con la aplicación a utilizar
4-openssl smime -sign -signer empresa.pem -inkey archivopriv -out LoginTicketRequest.xml.cms -in LoginTicketRequest.xml -outform PEM -nodetach
5-openssl base64 -in LoginTicketRequest.xml.cms -out LoginTicketRequest.xml.cms.base64
-----hasta aca se generan los archivos sin errores--
luego utilizo ClienteLoginCms_VB.exe que la afip lo deja como prueba
----padron-puc-ws-consulta-nivel3- es el servicio que necesito homologar o al cual necesito en algún momento pasar a produccion, asi se llama en los servicios que describe la afip en su aplicacionWeb
WSASS - Autogestión Certificados Homologación6- ClienteLoginCms_VB.exe -s padron-puc-ws-consulta-nivel3 -c LoginTicketRequest.xml.cms.base64
lo que me devuelve como error, dice archivo cms no valido
tambien probe con este prg de vfp9 y devuelve el mismo error
*****afip ejemplo de llamada*****
LOCAL loLoginCms AS "XML Web Service"
* LOCAL loLoginCms AS "MSSOAP.SoapClient30"
* Do not remove or alter following line. It is used to support IntelliSense for your XML Web service.
LOCAL loException, lcErrorMsg, loWSHandler
TRY
lo_WSHandler = createobject("MSSOAP.SOAPClient30")
lo_WSHandler.ClientProperty("ServerHTTPRequest") = .T.
*loWSHandler = NEWOBJECT("WSHandler",IIF(VERSION(2)=0,"",HOME()+"FFC\")+"_ws3client.vcx")
* Call your XML Web service here. ex: leResult = loLoginCms.SomeMethod()
m.cSQLString =''
cSQLString='c:\afip\LoginTicketRequest.xml.cms'
leResult = lo_WSHandler.LoginCMS(cSQLString)
CATCH TO loException
lcErrorMsg="Error: "+TRANSFORM(loException.Errorno)+" - "+loException.Message
DO CASE
CASE VARTYPE(loLoginCms)#"O"
* Handle SOAP error connecting to web service
CASE !EMPTY(loLoginCms.FaultCode)
* Handle SOAP error calling method
lcErrorMsg=lcErrorMsg+CHR(13)+loLoginCms.Detail
OTHERWISE
* Handle other error
ENDCASE
* Use for debugging purposes
MESSAGEBOX(lcErrorMsg)
FINALLY
ENDTRY
Por Favor me pueden dar una idea que estoy haciendo mal, muchas gracias.