Pues algun tipo de problema tenemos con el servidor de gmail ...
Envíame por favor tus datos a quim_ferrer arroba yahoo.es
Gracias !
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Suministro Inmediato de Informacion - SII
Hecho !
Hola a todos,
Estaba pensando en ponerle al programa un enlace al web de edicion de cada factura en la sede electronica, para que directamente la abra.
Veo que el codigo js es:
Así que parece que se invoca una web y se le pasan unos parametros.
¿ como se podria traducir eso para que se llame desde Fwh/ Harbour ?
¿ Se podria con el objeto InternetExplorer.application ?
Saludos
Estaba pensando en ponerle al programa un enlace al web de edicion de cada factura en la sede electronica, para que directamente la abra.
Veo que el codigo js es:
<a href="https://www7.aeat.es/wlpl/SSII-FACT/SsiiFeBeanDetalle" onclick="javascript:enlaceConPost("https://www7.aeat.es/wlpl/SSII-FACT/SsiiFeBeanDetalle", {"LFE_NIFFACTURA_EMI":"B28062640", "LFE_NOMBRERAZON":"COMERCIAR FOLDAN, S.A.", "LFE_SERIENUM_FAC_EMI":"E-00453/17", "LFE_FECHA_EXPEFAC_EMI":"2017-06-12"}, "_self"); return false;" class="destacado visitado">E-00453/17</a>Así que parece que se invoca una web y se le pasan unos parametros.
¿ como se podria traducir eso para que se llame desde Fwh/ Harbour ?
¿ Se podria con el objeto InternetExplorer.application ?
Saludos
Hola a todos:
Estoy haciendo el SII y solo me queda el envío mediante Web Service y en eso estoy muy verde podríais ayudarme en este tema.
Un saludo
Gracias
Carlos
Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es
Nunca se termina de aprender, por eso necesito siempre ayuda.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es
Nunca se termina de aprender, por eso necesito siempre ayuda.
colthop wrote:Hola a todos:
Estoy haciendo el SII y solo me queda el envío mediante Web Service y en eso estoy muy verde podríais ayudarme en este tema.
Un saludo
Gracias
Carlos
Buenos días, los sistemas más sencillos:
var oWS
oWS := CreateObject("MSXML2.ServerXMLHTTP.6.0")
if ValType(oWS)<>"O"
MsgInfo("No tenemos el objeto...")
return nil
endif
// Certificado que vamos a usar desde el almacén de certificados de Windows.
oWS:SetOption(3, "Nombre del certificado")
oWS :Open("POST", "https://www7.aeat.es/wlpl/SSII-FACT/ws/fe/SiiFactFEV1SOAP", .f.)
// Establecer el timeout de la operación:
// resolveTimeout, connectTimeout, sendTimeout, receiveTimeout
// Los valores son en milisegundos:
oWS :setTimeouts(15000,15000, 600000, 600000)
// El método al que vamos a llamar.
oWS:SetRequestHeader("SOAPAction", "SuministroLRFacturasEmitidas")
cXML := MemoRead(archivoxml)
// Enviamos la información del XML.
oWS:send(cXML)
MsgInfo("Respuesta: "+oWS:responsexml:xml)
// Analizar la respuesta...Otra opción sencilla es usar la línea de comandos de curl. Aquí tienes un ejemplo e instrucciones (descarga el pdf del segundo post):
https://velneo.es/foros/topic/sistema-d ... a-la-aeat/
También puedes hacerlo enlazando las librerías de curl (y no sé si alguna de ssl).
Para ver cuales son los endpint donde apuntar las llamadas lo mejor es instalar soapui y meter los wsdl que da hacienda en la información técnica de SII.
Un saludo.
Hola:
Gracias Darío voy a ver si lo saco.
Un saludo
Carlos
Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es
Nunca se termina de aprender, por eso necesito siempre ayuda.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es
Nunca se termina de aprender, por eso necesito siempre ayuda.
Hola a todos:
Estoy intentando enviar el fichero XML así
Pero siempre me dice lo mismo:
Error description: (DOS Error -2147352567) WINOLE/1007 El parámetro no es correcto. (0x80070057): msxml6.dll
en la línea
oWS:SetOption(3, "C:\Users\Carlos.CALOS\AppData\Roaming\Microsoft\SystemCertificates\My\Certificates\B58E31DBC29DEB7C86A25BB6BB28593E2CA12EA0")
Y en el "If File()" que pongo siempre sale "NO" pero si cambio "B58E31DBC29DEB7C86A25BB6BB28593E2CA12EA0" por "hola.txt" creando un archivo en la dirección de los certificados me sale "SI".
No se pero me parece que es algo de permisos y no se como solucionarlo, alguna ayuda.
Gracias
Carlos
Estoy intentando enviar el fichero XML así
local oWS
oWS := CreateObject("MSXML2.ServerXMLHTTP.6.0")
if ValType(oWS)<>"O"
MsgInfo("No tenemos el objeto...")
return nil
endif
if file("C:\Users\Carlos.CALOS\AppData\Roaming\Microsoft\SystemCertificates\My\Certificates\B58E31DBC29DEB7C86A25BB6BB28593E2CA12EA0")
msginfo("SI")
else
msginfo("NO")
endif
// Certificado que vamos a usar desde el almacén de certificados de Windows.
oWS:SetOption(2, 13056)
oWS:SetOption(3, "C:\Users\Carlos.CALOS\AppData\Roaming\Microsoft\SystemCertificates\My\Certificates\B58E31DBC29DEB7C86A25BB6BB28593E2CA12EA0")
oWS :Open("POST", "https://www7.aeat.es/wlpl/SSII-FACT/ws/fe/SiiFactFEV1SOAP", .f.)
// Establecer el timeout de la operación:
// resolveTimeout, connectTimeout, sendTimeout, receiveTimeout
// Los valores son en milisegundos:
oWS :setTimeouts(15000,15000, 600000, 600000)
// El método al que vamos a llamar.
oWS:SetRequestHeader("SOAPAction", "SuministroLRFacturasEmitidas")
cXML := MemoRead(archivoxml)
// Enviamos la información del XML.
oWS:send(cXML)
MsgInfo("Respuesta: "+oWS:responsexml:xml)
// Analizar la respuesta...Pero siempre me dice lo mismo:
Error description: (DOS Error -2147352567) WINOLE/1007 El parámetro no es correcto. (0x80070057): msxml6.dll
en la línea
oWS:SetOption(3, "C:\Users\Carlos.CALOS\AppData\Roaming\Microsoft\SystemCertificates\My\Certificates\B58E31DBC29DEB7C86A25BB6BB28593E2CA12EA0")
Y en el "If File()" que pongo siempre sale "NO" pero si cambio "B58E31DBC29DEB7C86A25BB6BB28593E2CA12EA0" por "hola.txt" creando un archivo en la dirección de los certificados me sale "SI".
No se pero me parece que es algo de permisos y no se como solucionarlo, alguna ayuda.
Gracias
Carlos
Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es
Nunca se termina de aprender, por eso necesito siempre ayuda.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es
Nunca se termina de aprender, por eso necesito siempre ayuda.
colthop wrote:Hola a todos:
Estoy intentando enviar el fichero XML así
local oWS oWS := CreateObject("MSXML2.ServerXMLHTTP.6.0") if ValType(oWS)<>"O" MsgInfo("No tenemos el objeto...") return nil endif if file("C:\Users\Carlos.CALOS\AppData\Roaming\Microsoft\SystemCertificates\My\Certificates\B58E31DBC29DEB7C86A25BB6BB28593E2CA12EA0") msginfo("SI") else msginfo("NO") endif // Certificado que vamos a usar desde el almacén de certificados de Windows. oWS:SetOption(2, 13056) oWS:SetOption(3, "C:\Users\Carlos.CALOS\AppData\Roaming\Microsoft\SystemCertificates\My\Certificates\B58E31DBC29DEB7C86A25BB6BB28593E2CA12EA0") oWS :Open("POST", "https://www7.aeat.es/wlpl/SSII-FACT/ws/fe/SiiFactFEV1SOAP", .f.) // Establecer el timeout de la operación: // resolveTimeout, connectTimeout, sendTimeout, receiveTimeout // Los valores son en milisegundos: oWS :setTimeouts(15000,15000, 600000, 600000) // El método al que vamos a llamar. oWS:SetRequestHeader("SOAPAction", "SuministroLRFacturasEmitidas") cXML := MemoRead(archivoxml) // Enviamos la información del XML. oWS:send(cXML) MsgInfo("Respuesta: "+oWS:responsexml:xml) // Analizar la respuesta...
Pero siempre me dice lo mismo:
Error description: (DOS Error -2147352567) WINOLE/1007 El parámetro no es correcto. (0x80070057): msxml6.dll
en la línea
oWS:SetOption(3, "C:\Users\Carlos.CALOS\AppData\Roaming\Microsoft\SystemCertificates\My\Certificates\B58E31DBC29DEB7C86A25BB6BB28593E2CA12EA0")
Y en el "If File()" que pongo siempre sale "NO" pero si cambio "B58E31DBC29DEB7C86A25BB6BB28593E2CA12EA0" por "hola.txt" creando un archivo en la dirección de los certificados me sale "SI".
No se pero me parece que es algo de permisos y no se como solucionarlo, alguna ayuda.
Gracias
Carlos
Hola Carlos, debes poner el nombre del certificado tal cual lo ves en el almacén de certificados de Windows.
Abres internet explorer, te vas a certificados y el nombre que ves en la ventana es lo que tienes que poner, sin rutas ni nada.
Un saludo.
horacio wrote:Supongo que la e-factura es parecido en todo el mundo. Si es así no necesitas instalar nada ya que las funciones que necesitas están incluidas en harbour , salvo openssl para firmar el certificado de acceso. Si necesitas un ejemplo yo tengo un desarrollo para Argentina.
Saludos
Si alguien esta interesado en firmar el archivo sin utilizar openssl por linea de comando desde Harbour directamente me avisan.....
Diego.
Hola Diego, me interesaría poder firmar sin utilizar Openssl. Gracias
Saludos
dhf27 wrote:Suena interesantehoracio wrote:Supongo que la e-factura es parecido en todo el mundo. Si es así no necesitas instalar nada ya que las funciones que necesitas están incluidas en harbour , salvo openssl para firmar el certificado de acceso. Si necesitas un ejemplo yo tengo un desarrollo para Argentina.
Saludos
Si alguien esta interesado en firmar el archivo sin utilizar openssl por linea de comando desde Harbour directamente me avisan.....
Diego.
Me gustaria usarlo para mexico
Enviado desde mi LG-K530 mediante Tapatalk
admsoporte wrote:Podras enviarme informacion o guia para hacerlodhf27 wrote:Suena interesantehoracio wrote:Supongo que la e-factura es parecido en todo el mundo. Si es así no necesitas instalar nada ya que las funciones que necesitas están incluidas en harbour , salvo openssl para firmar el certificado de acceso. Si necesitas un ejemplo yo tengo un desarrollo para Argentina.
Saludos
Si alguien esta interesado en firmar el archivo sin utilizar openssl por linea de comando desde Harbour directamente me avisan.....
Diego.
Me gustaria usarlo para mexico
Enviado desde mi LG-K530 mediante Tapatalk
Enviado desde mi LG-K530 mediante Tapatalk