PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 21 → Alguien esta intentando implemetar el SII (Suministro inmediato de información) AEAT
Alguien esta intentando implemetar el SII (Suministro inmediato de información) AEAT
Débuté par Raül Vidiella, 10 avr. 2017 19:13 - 13 réponses
//hostimage.webdev.info/avatars/default.gif
Posté le 10 avril 2017 - 19:13
Buenos dias,
pues eso si alguien esta intentando implementar los servicios web de la
agencia tributaria española para envio i recepción de facturas, cobros,
.... ? .
Podriamos establecer una colaboración para implementar estos servicios
web de forma provechosa para todos.

Un saludo
Raül Vidiella

---
El software de antivirus Avast ha analizado este correo electrónico en busca de virus.
https://www.avast.com/antivirus
//hostimage.webdev.info/avatars/default.gif
Posté le 11 avril 2017 - 09:45
Muy buena idea Raul!. Estaría interesado en formar parte del grupo de colaboración.
//hostimage.webdev.info/avatars/default.gif
Posté le 11 avril 2017 - 09:47
Muy buena idea Raül Vidiella. Cuenta conmigo para formar un grupo colaborativo.
Saludos.
//hostimage.webdev.info/avatars/default.gif
Posté le 13 avril 2017 - 18:06
Ok, como lo hacemos, alguna sugerencia.




El 10/04/2017 a les 17:13, "ÿÿÿÿÿÿÿÿÿÿ" ha escrit:
Buenos dias,
pues eso si alguien esta intentando implementar los servicios web de la
agencia tributaria española para envio i recepción de facturas, cobros,
.... ? .
Podriamos establecer una colaboración para implementar estos servicios
web de forma provechosa para todos.

Un saludo
Raül Vidiella

---
El software de antivirus Avast ha analizado este correo electrónico en
busca de virus.
https://www.avast.com/antivirus



---
El software de antivirus Avast ha analizado este correo electrónico en busca de virus.
https://www.avast.com/antivirus
//hostimage.webdev.info/avatars/default.gif
Posté le 19 avril 2017 - 10:28
Se podría crear un grupo en Skype y desde allí empezar a coordinarnos, buscar documentación, definir tareas y asignarlas...
//hostimage.webdev.info/avatars/default.gif
Posté le 19 avril 2017 - 20:35
Buenas tardes,
No se a que nivel estais vosotros en estos momentos. La implementación
del servicio web es relativamente facil (con las pruebas que he hecho),
me preocupa mas todos los condicionantes que hay en el envio y recepción
de datos.

Mi correo es raul@ebresoft.cat

Saludos

El 19/04/2017 a les 8:28, "ÿÿÿÿÿÿÿÿÿÿ" ha escrit:
Se podría crear un grupo en Skype y desde allí empezar a coordinarnos,
buscar documentación, definir tareas y asignarlas...



---
El software de antivirus Avast ha analizado este correo electrónico en busca de virus.
https://www.avast.com/antivirus
//hostimage.webdev.info/avatars/default.gif
Posté le 27 avril 2017 - 12:29
El 19/04/2017 a las 18:35, "ÿÿÿÿÿÿÿÿÿÿ" escribió:
Buenas tardes,
No se a que nivel estais vosotros en estos momentos. La implementación
del servicio web es relativamente facil (con las pruebas que he hecho),
me preocupa mas todos los condicionantes que hay en el envio y recepción
de datos.

Mi correo es raul@ebresoft.cat

Saludos

El 19/04/2017 a les 8:28, "ÿÿÿÿÿÿÿÿÿÿ" ha escrit:
Se podría crear un grupo en Skype y desde allí empezar a coordinarnos,
buscar documentación, definir tareas y asignarlas...


---
El software de antivirus Avast ha analizado este correo electrónico en
busca de virus.
https://www.avast.com/antivirus


Hola Raul

estoy intentando integrar el servicio web. Me podrias decir por donde
tengo que buscar para agregar el certificado al momento de hacer el envio ?

gracias de antemano

Michel
//hostimage.webdev.info/avatars/default.gif
Posté le 28 avril 2017 - 09:25
Buenos dias,
Te adjunto fragmento de codigo.

// montar el XML
XMLEnvio is XMLDocument, Description XMLSuministroFraEmitida
.....
....


/ validar documento
IF XMLValidDocument(XMLEnvio) = False THEN
Info(Nation()=nationSpanish ? "El documento generado para envio no es
válido." ELSE "El document generat per l'enviament no es valid.")
RETURN
END

// preparar cadena de peticion (ensobrar el XML)
sMessageXML is string
sMessageXML=[
<?xml version="1.0" encoding="UTF-8"?>
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:siiLR="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroLR.xsd"
xmlns:sii="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroInformacion.xsd">
<soapenv:Header/>
<soapenv:Body>
%1
</soapenv:Body>
</soapenv:Envelope>
]
sMessageXML=StringBuild(sMessageXML,XMLBuildString(XMLEnvio,XMLNoHeader))

////////////////////////////////////////////////
//////// añadimos el certificado, en este caso el primero de la lista
(para pruebas me va bien)

CertifList is string
Certif is string
CertifList = HTTPListCertificate()
Certif = ExtractString(ExtractString(CertifList, 1, CR), 3, TAB)

HTTPCertificate(Certif)

// Proceso de envio i recogida de la respuesta
IF NOT
HTTPRequest("https://www7.aeat.es/wlpl/SSII-FACT/ws/fe/SiiFactFEV1SOAP","","",sMessageXML,"text/xml")
THEN
Info(Nation()=nationSpanish ? "Error de envio." ELSE "Error
d'enviament.",ErrorInfo(errFullDetails))
ELSE
bufRespostaXML is Buffer
bufRespostaXML = HTTPGetResult(httpResult)

//Quitar el sobre (a lo picapiedra) i guardar el XML de la respuesta
nInici is int =
PositionOccurrence(bufRespostaXML,"<siiR:RespuestaLRFacturasEmitidas",1,FromBeginning)
nFiNal is int =
PositionOccurrence(bufRespostaXML,"</siiR:RespuestaLRFacturasEmitidas>",1,FromBeginning)+34
bufRespostaXML = bufRespostaXML[[nInici TO nFiNal]]
// passar a xml
XMLResposta=XMLOpen(bufRespostaXML,fromString)
IF ErrorOccurred THEN
Info(ErrorInfo(errFullDetails))
ELSE
IF
Upper(XMLResposta.RespuestaLRFacturasEmitidas.EstadoEnvio)="CORRECTO"
THEN // enviament acceptat
// mirar si es correcto
SWITCH
Upper(XMLResposta.RespuestaLRFacturasEmitidas.RespuestaLinea.EstadoRegistro)
CASE "CORRECTO"
GC_FacturesEmeses.EnviamentSII=4 // envio correcto
CASE "ACEPTADOCONERRORES"
GC_FacturesEmeses.EnviamentSII=3 // envio aceptado con errores
OTHER CASE
GC_FacturesEmeses.EnviamentSII=1 // envio no aceptado
END



// espero te sirva.


Saludos


El 27/04/2017 a les 10:29, Michel Moreno ha escrit:
El 19/04/2017 a las 18:35, "ÿÿÿÿÿÿÿÿÿÿ" escribió:
Buenas tardes,
No se a que nivel estais vosotros en estos momentos. La implementación
del servicio web es relativamente facil (con las pruebas que he hecho),
me preocupa mas todos los condicionantes que hay en el envio y recepción
de datos.

Mi correo es raul@ebresoft.cat

Saludos

El 19/04/2017 a les 8:28, "ÿÿÿÿÿÿÿÿÿÿ" ha escrit:
Se podría crear un grupo en Skype y desde allí empezar a coordinarnos,
buscar documentación, definir tareas y asignarlas...


---
El software de antivirus Avast ha analizado este correo electrónico en
busca de virus.
https://www.avast.com/antivirus

Hola Raul

estoy intentando integrar el servicio web. Me podrias decir por donde
tengo que buscar para agregar el certificado al momento de hacer el envio ?

gracias de antemano

Michel



---
El software de antivirus Avast ha analizado este correo electrónico en busca de virus.
https://www.avast.com/antivirus
//hostimage.webdev.info/avatars/default.gif
Posté le 28 avril 2017 - 09:52
El 28/04/2017 a las 7:25, "ÿÿÿÿÿÿÿÿÿÿ" escribió:
Buenos dias,
Te adjunto fragmento de codigo.

// montar el XML
XMLEnvio is XMLDocument, Description XMLSuministroFraEmitida
....
....


/ validar documento
IF XMLValidDocument(XMLEnvio) = False THEN
Info(Nation()=nationSpanish ? "El documento generado para envio no
es válido." ELSE "El document generat per l'enviament no es valid.")
RETURN
END

// preparar cadena de peticion (ensobrar el XML)
sMessageXML is string
sMessageXML=[
<?xml version="1.0" encoding="UTF-8"?>
<soapenv:Envelope
xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:siiLR="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroLR.xsd"

xmlns:sii="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroInformacion.xsd">

<soapenv:Header/>
<soapenv:Body>
%1
</soapenv:Body>
</soapenv:Envelope>
]
sMessageXML=StringBuild(sMessageXML,XMLBuildString(XMLEnvio,XMLNoHeader))

////////////////////////////////////////////////
//////// añadimos el certificado, en este caso el primero de la lista
(para pruebas me va bien)

CertifList is string
Certif is string
CertifList = HTTPListCertificate()
Certif = ExtractString(ExtractString(CertifList, 1, CR), 3, TAB)

HTTPCertificate(Certif)

// Proceso de envio i recogida de la respuesta
IF NOT
HTTPRequest("https://www7.aeat.es/wlpl/SSII-FACT/ws/fe/SiiFactFEV1SOAP","","",sMessageXML,"text/xml")
THEN
Info(Nation()=nationSpanish ? "Error de envio." ELSE "Error
d'enviament.",ErrorInfo(errFullDetails))
ELSE
bufRespostaXML is Buffer
bufRespostaXML = HTTPGetResult(httpResult)

//Quitar el sobre (a lo picapiedra) i guardar el XML de la respuesta
nInici is int =
PositionOccurrence(bufRespostaXML,"<siiR:RespuestaLRFacturasEmitidas",1,FromBeginning)

nFiNal is int =
PositionOccurrence(bufRespostaXML,"</siiR:RespuestaLRFacturasEmitidas>",1,FromBeginning)+34

bufRespostaXML = bufRespostaXML[[nInici TO nFiNal]]
// passar a xml
XMLResposta=XMLOpen(bufRespostaXML,fromString)
IF ErrorOccurred THEN
Info(ErrorInfo(errFullDetails))
ELSE
IF
Upper(XMLResposta.RespuestaLRFacturasEmitidas.EstadoEnvio)="CORRECTO"
THEN // enviament acceptat
// mirar si es correcto
SWITCH
Upper(XMLResposta.RespuestaLRFacturasEmitidas.RespuestaLinea.EstadoRegistro)

CASE "CORRECTO"
GC_FacturesEmeses.EnviamentSII=4 // envio correcto
CASE "ACEPTADOCONERRORES"
GC_FacturesEmeses.EnviamentSII=3 // envio aceptado
con errores
OTHER CASE
GC_FacturesEmeses.EnviamentSII=1 // envio no aceptado
END



// espero te sirva.


Saludos


El 27/04/2017 a les 10:29, Michel Moreno ha escrit:
El 19/04/2017 a las 18:35, "ÿÿÿÿÿÿÿÿÿÿ" escribió:
Buenas tardes,
No se a que nivel estais vosotros en estos momentos. La implementación
del servicio web es relativamente facil (con las pruebas que he hecho),
me preocupa mas todos los condicionantes que hay en el envio y recepción
de datos.

Mi correo es raul@ebresoft.cat

Saludos

El 19/04/2017 a les 8:28, "ÿÿÿÿÿÿÿÿÿÿ" ha escrit:
Se podría crear un grupo en Skype y desde allí empezar a coordinarnos,
buscar documentación, definir tareas y asignarlas...


---
El software de antivirus Avast ha analizado este correo electrónico en
busca de virus.
https://www.avast.com/antivirus

Hola Raul

estoy intentando integrar el servicio web. Me podrias decir por donde
tengo que buscar para agregar el certificado al momento de hacer el
envio ?

gracias de antemano

Michel


---
El software de antivirus Avast ha analizado este correo electrónico en
busca de virus.
https://www.avast.com/antivirus

Muchas gracias, me lo miro
//hostimage.webdev.info/avatars/default.gif
Posté le 28 avril 2017 - 11:26
Buenos dias

donde conseguistes el XMLSuministroFraEmitida
lo busco e toda la web de SII y no lo encuentro (solo .xsd, .wsdl ...)

gracias

El 28/04/2017 a las 7:25, "ÿÿÿÿÿÿÿÿÿÿ" escribió:
Buenos dias,
Te adjunto fragmento de codigo.

// montar el XML
XMLEnvio is XMLDocument, Description XMLSuministroFraEmitida
....
....


/ validar documento
IF XMLValidDocument(XMLEnvio) = False THEN
Info(Nation()=nationSpanish ? "El documento generado para envio no
es válido." ELSE "El document generat per l'enviament no es valid.")
RETURN
END

// preparar cadena de peticion (ensobrar el XML)
sMessageXML is string
sMessageXML=[
<?xml version="1.0" encoding="UTF-8"?>
<soapenv:Envelope
xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:siiLR="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroLR.xsd"

xmlns:sii="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroInformacion.xsd">

<soapenv:Header/>
<soapenv:Body>
%1
</soapenv:Body>
</soapenv:Envelope>
]
sMessageXML=StringBuild(sMessageXML,XMLBuildString(XMLEnvio,XMLNoHeader))

////////////////////////////////////////////////
//////// añadimos el certificado, en este caso el primero de la lista
(para pruebas me va bien)

CertifList is string
Certif is string
CertifList = HTTPListCertificate()
Certif = ExtractString(ExtractString(CertifList, 1, CR), 3, TAB)

HTTPCertificate(Certif)

// Proceso de envio i recogida de la respuesta
IF NOT
HTTPRequest("https://www7.aeat.es/wlpl/SSII-FACT/ws/fe/SiiFactFEV1SOAP","","",sMessageXML,"text/xml")
THEN
Info(Nation()=nationSpanish ? "Error de envio." ELSE "Error
d'enviament.",ErrorInfo(errFullDetails))
ELSE
bufRespostaXML is Buffer
bufRespostaXML = HTTPGetResult(httpResult)

//Quitar el sobre (a lo picapiedra) i guardar el XML de la respuesta
nInici is int =
PositionOccurrence(bufRespostaXML,"<siiR:RespuestaLRFacturasEmitidas",1,FromBeginning)

nFiNal is int =
PositionOccurrence(bufRespostaXML,"</siiR:RespuestaLRFacturasEmitidas>",1,FromBeginning)+34

bufRespostaXML = bufRespostaXML[[nInici TO nFiNal]]
// passar a xml
XMLResposta=XMLOpen(bufRespostaXML,fromString)
IF ErrorOccurred THEN
Info(ErrorInfo(errFullDetails))
ELSE
IF
Upper(XMLResposta.RespuestaLRFacturasEmitidas.EstadoEnvio)="CORRECTO"
THEN // enviament acceptat
// mirar si es correcto
SWITCH
Upper(XMLResposta.RespuestaLRFacturasEmitidas.RespuestaLinea.EstadoRegistro)

CASE "CORRECTO"
GC_FacturesEmeses.EnviamentSII=4 // envio correcto
CASE "ACEPTADOCONERRORES"
GC_FacturesEmeses.EnviamentSII=3 // envio aceptado
con errores
OTHER CASE
GC_FacturesEmeses.EnviamentSII=1 // envio no aceptado
END



// espero te sirva.


Saludos


El 27/04/2017 a les 10:29, Michel Moreno ha escrit:
El 19/04/2017 a las 18:35, "ÿÿÿÿÿÿÿÿÿÿ" escribió:
Buenas tardes,
No se a que nivel estais vosotros en estos momentos. La implementación
del servicio web es relativamente facil (con las pruebas que he hecho),
me preocupa mas todos los condicionantes que hay en el envio y recepción
de datos.

Mi correo es raul@ebresoft.cat

Saludos

El 19/04/2017 a les 8:28, "ÿÿÿÿÿÿÿÿÿÿ" ha escrit:
Se podría crear un grupo en Skype y desde allí empezar a coordinarnos,
buscar documentación, definir tareas y asignarlas...


---
El software de antivirus Avast ha analizado este correo electrónico en
busca de virus.
https://www.avast.com/antivirus

Hola Raul

estoy intentando integrar el servicio web. Me podrias decir por donde
tengo que buscar para agregar el certificado al momento de hacer el
envio ?

gracias de antemano

Michel


---
El software de antivirus Avast ha analizado este correo electrónico en
busca de virus.
https://www.avast.com/antivirus
//hostimage.webdev.info/avatars/default.gif
Posté le 28 avril 2017 - 13:53
Jeje, perdon. Dentro del ficheros suministrosLR.xsd de la aeat, veras
que incluye todos los formatos de envio. Para mi comodidad los he
partido en cada uno de ellos.

Saludos.

El 28/04/2017 a les 9:26, Michel Moreno ha escrit:
Buenos dias

donde conseguistes el XMLSuministroFraEmitida
lo busco e toda la web de SII y no lo encuentro (solo .xsd, .wsdl ...)

gracias

El 28/04/2017 a las 7:25, "ÿÿÿÿÿÿÿÿÿÿ" escribió:
Buenos dias,
Te adjunto fragmento de codigo.

// montar el XML
XMLEnvio is XMLDocument, Description XMLSuministroFraEmitida
....
....


/ validar documento
IF XMLValidDocument(XMLEnvio) = False THEN
Info(Nation()=nationSpanish ? "El documento generado para envio no
es válido." ELSE "El document generat per l'enviament no es valid.")
RETURN
END

// preparar cadena de peticion (ensobrar el XML)
sMessageXML is string
sMessageXML=[
<?xml version="1.0" encoding="UTF-8"?>
<soapenv:Envelope
xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"

xmlns:siiLR="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroLR.xsd"



xmlns:sii="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroInformacion.xsd">


<soapenv:Header/>
<soapenv:Body>
%1
</soapenv:Body>
</soapenv:Envelope>
]
sMessageXML=StringBuild(sMessageXML,XMLBuildString(XMLEnvio,XMLNoHeader))

////////////////////////////////////////////////
//////// añadimos el certificado, en este caso el primero de la lista
(para pruebas me va bien)

CertifList is string
Certif is string
CertifList = HTTPListCertificate()
Certif = ExtractString(ExtractString(CertifList, 1, CR), 3, TAB)

HTTPCertificate(Certif)

// Proceso de envio i recogida de la respuesta
IF NOT
HTTPRequest("https://www7.aeat.es/wlpl/SSII-FACT/ws/fe/SiiFactFEV1SOAP","","",sMessageXML,"text/xml")

THEN
Info(Nation()=nationSpanish ? "Error de envio." ELSE "Error
d'enviament.",ErrorInfo(errFullDetails))
ELSE
bufRespostaXML is Buffer
bufRespostaXML = HTTPGetResult(httpResult)

//Quitar el sobre (a lo picapiedra) i guardar el XML de la respuesta
nInici is int =
PositionOccurrence(bufRespostaXML,"<siiR:RespuestaLRFacturasEmitidas",1,FromBeginning)


nFiNal is int =
PositionOccurrence(bufRespostaXML,"</siiR:RespuestaLRFacturasEmitidas>",1,FromBeginning)+34


bufRespostaXML = bufRespostaXML[[nInici TO nFiNal]]
// passar a xml
XMLResposta=XMLOpen(bufRespostaXML,fromString)
IF ErrorOccurred THEN
Info(ErrorInfo(errFullDetails))
ELSE
IF
Upper(XMLResposta.RespuestaLRFacturasEmitidas.EstadoEnvio)="CORRECTO"
THEN // enviament acceptat
// mirar si es correcto
SWITCH
Upper(XMLResposta.RespuestaLRFacturasEmitidas.RespuestaLinea.EstadoRegistro)


CASE "CORRECTO"
GC_FacturesEmeses.EnviamentSII=4 // envio correcto
CASE "ACEPTADOCONERRORES"
GC_FacturesEmeses.EnviamentSII=3 // envio aceptado
con errores
OTHER CASE
GC_FacturesEmeses.EnviamentSII=1 // envio no aceptado
END



// espero te sirva.


Saludos


El 27/04/2017 a les 10:29, Michel Moreno ha escrit:
El 19/04/2017 a las 18:35, "ÿÿÿÿÿÿÿÿÿÿ" escribió:
Buenas tardes,
No se a que nivel estais vosotros en estos momentos. La implementación
del servicio web es relativamente facil (con las pruebas que he hecho),
me preocupa mas todos los condicionantes que hay en el envio y
recepción
de datos.

Mi correo es raul@ebresoft.cat

Saludos

El 19/04/2017 a les 8:28, "ÿÿÿÿÿÿÿÿÿÿ" ha escrit:
Se podría crear un grupo en Skype y desde allí empezar a coordinarnos,
buscar documentación, definir tareas y asignarlas...


---
El software de antivirus Avast ha analizado este correo electrónico en
busca de virus.
https://www.avast.com/antivirus

Hola Raul

estoy intentando integrar el servicio web. Me podrias decir por donde
tengo que buscar para agregar el certificado al momento de hacer el
envio ?

gracias de antemano

Michel


---
El software de antivirus Avast ha analizado este correo electrónico en
busca de virus.
https://www.avast.com/antivirus



---
El software de antivirus Avast ha analizado este correo electrónico en busca de virus.
https://www.avast.com/antivirus
//hostimage.webdev.info/avatars/default.gif
Posté le 22 mai 2017 - 13:23
Buenos días Raul, yo he incorporado el webservice e intento hacerlo con las instrucciones SOAP.

No se cual es el sistema mejor y mas rápido.

Para la generación del XML que ando un poco mas perdido, incorporais los esquemas al proyecto y despues los cargais o lo haceis "a mano".

Raul en la parte de tu respuesta has suprimido esa parte del codigo, porque supongo que es muy larga.

Si estas dispuesto a compartirla o venderla dimelo y asi podemos llegar a un acuerdo y no es lo mismo que hacerlo de cero que es lo siguiente que me toda.
//hostimage.webdev.info/avatars/default.gif
Posté le 22 mai 2017 - 16:31
Hola Ramón,
-No tengo ningún problema en compartir el código, la razón de no
compartirlo es porque los ficheros que estoy utilizando seguro que no
son los mismos que los vuestros y en lugar de ayudar puede que lie más
el asunto.
-Estuve peleando varios días con la importación y utilización de los
servicios web, pero en ninguno de los casos en que los parámetros son
XML he conseguido que funcionen (realmente no se puede o es incultura
mia, no lo se) por esos utilizo httprequest (me funciona).
-Lo que hago es importar los XSD al proyecto y utilizarlos para crear el
documento. Por ejemplo;

XMLEnvio is xmlDocument, description = SuministroLR
XMLResposta is xmlDocument, description = RespuestaSuministro
XMLEnvio.SuministroLRFacturasEmitidas.Cabecera.IDVersionSii=0.7
XMLEnvio.SuministroLRFacturasEmitidas.Cabecera.Titular.NombreRazon=StringToUTF8(NoSpace(gclEmpresaActual.m_sNom))
XMLEnvio.SuministroLRFacturasEmitidas.Cabecera.Titular.NIF=NoSpace(gclEmpresaActual.m_sNIF)
IF GC_FacturesEmeses.EnviamentSII IN (2,3,4) THEN
//Modificacion
XMLEnvio.SuministroLRFacturasEmitidas.Cabecera.TipoComunicacion="A1" ELSE
//Alta
XMLEnvio.SuministroLRFacturasEmitidas.Cabecera.TipoComunicacion="A0"
END

XMLEnvio.SuministroLRFacturasEmitidas.RegistroLRFacturasEmitidas.PeriodoImpositivo.Ejercicio=GC_Diari.Data..Year
XMLEnvio.SuministroLRFacturasEmitidas.RegistroLRFacturasEmitidas.PeriodoImpositivo.Periodo=NumToString(GC_Diari.Data..Month,"02d")

……………………Etc


Un saludo, espero te sirva.

Raül Vidiella

El 22/05/2017 a les 11:23, Ramon ha escrit:
Buenos días Raul, yo he incorporado el webservice e intento hacerlo con
las instrucciones SOAP.

No se cual es el sistema mejor y mas rápido.

Para la generación del XML que ando un poco mas perdido, incorporais los
esquemas al proyecto y despues los cargais o lo haceis "a mano".

Raul en la parte de tu respuesta has suprimido esa parte del codigo,
porque supongo que es muy larga.

Si estas dispuesto a compartirla o venderla dimelo y asi podemos llegar
a un acuerdo y no es lo mismo que hacerlo de cero que es lo siguiente
que me toda.



---
El software de antivirus Avast ha analizado este correo electrónico en busca de virus.
https://www.avast.com/antivirus
//hostimage.webdev.info/avatars/default.gif
Posté le 26 mai 2017 - 22:58
Raul, me apunto a la propuesta de Ramon para el tema SII.

Estoy trajinando con el tema y lo mas que he conseguido es montar el xml y coentacdo con la AEAT en la web de pruebas, consigo subirlo y que me lo acepte. pero como te diho este envio es manual, y lo ideal es hacerlo automatico para que el cliente solo tenga que enviarlo una vez montado el xml

Cualquier sugerencia o ayuda seria de agradecer

Un saludo