Suministro Inmediato de Informacion - SII

[quim]

Pues algun tipo de problema tenemos con el servidor de gmail ...

Envíame por favor tus datos a quim_ferrer arroba yahoo.es

Gracias !

[hmpaquito]

Hecho !

[hmpaquito]

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:

Code: Select all

<a href="https://www7.aeat.es/wlpl/SSII-FACT/SsiiFeBeanDetalle" onclick="javascript&#058;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

[colthop]

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

[darioflores]

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:

Code: Select all

   
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.

[colthop]

Hola:

Gracias Darío voy a ver si lo saco.

Un saludo

Carlos

[colthop]

Hola a todos:

Estoy intentando enviar el fichero XML así

Code: Select all

  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

[darioflores]

Hola a todos:

Estoy intentando enviar el fichero XML así

Code: Select all

  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.

[dhf27]

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.

[horacio]

Hola Diego, me interesaría poder firmar sin utilizar Openssl. Gracias

Saludos

[admsoporte]

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.

Suena interesante
Me gustaria usarlo para mexico

Enviado desde mi LG-K530 mediante Tapatalk

[admsoporte]

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.

Suena interesante
Me gustaria usarlo para mexico

Enviado desde mi LG-K530 mediante Tapatalk

Podras enviarme informacion o guia para hacerlo


Enviado desde mi LG-K530 mediante Tapatalk