Ley antifraude 2021 (VERIFACTU) - Programas informáticos

[ermendalenda]

Buenas de nuevo, he realizado varias pruebas en curl.exe y funciona correctamente.
En curl.exe se puede desactivar la comprobación de certificados con el parametro:
-k --insecure
Las pruebas sin el parametro, en una fecha avanzada, da error por certificado ssl caducado.


En el manual de curl.exe dice esto:
-k --insecure
(TLS) By default, every SSL connection curl makes is verified to
be secure. This option allows curl to proceed and operate even
for server connections otherwise considered insecure.

The server connection is verified by making sure the server's
certificate contains the right name and verifies successfully
using the cert store.

See this online resource for further details:
https://curl.se/docs/sslcerts.html

See also --proxy-insecure and --cacert.


Para el curl de las las apis debe ser una opción parecida para poner a false la comprobación.


Saludos

[ermendalenda]

Para comprobar fecha caducidad del curl teneios que buscar este fichero:

curl-ca-bundle.crt

Pulsais doble click y ala.

[djatila]

Buenas,
Estoy en visual basic studio , he referenciado el wsdl para generar las clases. Pero estoy atascado intentando asignar valores al nodo altaFactuSistemaFacturacion.RegistroAltaFacturas , me da error el valor de tipo FacturasEmitidasType no se puede convertir en FacturasEmitidasType(), altaFactuSistemaFacturacion.cabecera si se asigna y aparece despues al serializar la clase.
Gracias de antemano.

[nincillo]

Empezado por djatila

Buenas,
Estoy en visual basic studio , he referenciado el wsdl para generar las clases. Pero estoy atascado intentando asignar valores al nodo altaFactuSistemaFacturacion.RegistroAltaFacturas , me da error el valor de tipo FacturasEmitidasType no se puede convertir en FacturasEmitidasType(), altaFactuSistemaFacturacion.cabecera si se asigna y aparece despues al serializar la clase.
Gracias de antemano.

¿Podrías poner un trozo de código donde se pueda ver como "llegas" a poder meter datos al nodo cabecera mediante el wsdl?. Es que yo en Delphi soy incapaz. Quizás viéndolo en otro lenguaje se me ocurra como hacerlo. (Aprovechando, ¿podrías decirme como importar un wsdl en Visual Basic Studio aunque sea por privado para no "mezclar" en ese hilo?)

Sobre tu pregunta, sino me confundo, al menos en Delphi, RegistroAltaFacturas es del tipo Array_Of_FacturasEmitidasType. Con lo cual FacturasEmitidasType entiendo que se corresponde a cada de las facturas que vamos a enviar en el "lote", y todas ellas las tenemos que ir metiendo en un array que es lo que luego pasamos como parámetro a la llamada AltaFactuSistemaFacturacion.

[djatila]

Empezado por nincillo

¿Podrías poner un trozo de código donde se pueda ver como "llegas" a poder meter datos al nodo cabecera mediante el wsdl?. Es que yo en Delphi soy incapaz. Quizás viéndolo en otro lenguaje se me ocurra como hacerlo. (Aprovechando, ¿podrías decirme como importar un wsdl en Visual Basic Studio aunque sea por privado para no "mezclar" en ese hilo?)

Leí en un post anterior que aquí había gente también en visual basic, así que respondo por aquí, así espero que sirva a mas gente. (si molesta, avísenme)

Para importar el wsdl en visual basic studio
-Proyecto -Agregar referencia de servicio - botón avanzadas - botón agregar referencia web
-en direccion = SistemaFacturacion.wsdl
-botón flechita - cambiar el nombre de la clase si queréis yo puse MiSFI -y agregar referencia

También esta la opción con el comando xsd de generar las clases.vb con los ficheros xsd, pero esto no es necesario si se importo el wsdl.

Aqui te pongo como estoy haciendo para generar el xml , este codigo funciona hasta el cierre de la cabecera.

        Dim altaFactuSistemaFacturacion As New AltaFactuSistemaFacturacion
        'Cabecera
        Dim cabecera As New MiSFI.Cabecera
        Dim obligadoEmision As New MiSFI.PersonaFisicaJuridicaESType
        Dim tipoRegistroAEAT As New MiSFI.TipoRegistroAEATType
        '/Cabecera
        Dim registroAltaFacturas As New MiSFI.FacturasEmitidasType
        Dim RegistroFacturacion(2) As MiSFI.RegistroFacturacionType
        Dim datosControl As New MiSFI.DatosControlType
        'idFactura
        Dim idFactura As New MiSFI.IDFacturaExpedidaType 'MiSFI.IDFacturaARType
        Dim idEmisorFactura As New MiSFI.IDFacturaExpedidaTypeIDEmisorFactura
        '/idFactura
        Dim Destinatarios As New MiSFI.PersonaFisicaJuridicaType
        Dim idDestinatario As New MiSFI.PersonaFisicaJuridicaESType
        Dim detalleDesglose As New MiSFI.DetalleType ' DetalleDesglose
        Dim encadenamientoRegistroAnterior As New MiSFI.EncadenamientoFacturaAnteriorType '.EncadenamientoRegistroAnterior
        Dim idEmisorFacturaRegistroAnterior As New MiSFI.EncadenamientoFacturaAnteriorTypeIDEmisorFacturaRegistroAnterior  '.IDEmisorFacturaRegistroAnterior
        Dim sistemaInformatico As New MiSFI.SistemaInformaticoType
        'Cabecera
        cabecera.IDVersion = MiSFI.VersionType.Item10  '"1.0"
        obligadoEmision.NombreRazon = "XXXXX"
        obligadoEmision.NIF = "XXXXX"
        tipoRegistroAEAT = MiSFI.TipoRegistroAEATType.T0 ' "T0"
        cabecera.ObligadoEmision = obligadoEmision
        cabecera.TipoRegistroAEAT = tipoRegistroAEAT
        '/Cabecera
        'RegistroAltaFacturas
        'RegistroFacturacion
        'IDFactura
        idEmisorFactura.NIF = "XXXXX"
        idFactura.NumSerieFacturaEmisor = "12345"
        idFactura.FechaExpedicionFacturaEmisor = "13-11-2023"
        idFactura.IDEmisorFactura = idEmisorFactura
        '/IDfactura  

        'Estas dan error
        'RegistroFacturacion(0).IDFactura = idFactura
        'RegistroFacturacion(0).NombreRazonEmisor = "certificado uno telematicas"
        'RegistroFacturacion(0).TipoRegistroSIF = MiSFI.TipoRegistroSIFType.S0 ' "S0"
        'RegistroFacturacion(0).TipoFactura = MiSFI.ClaveTipoFacturaType.F1 '"F1"
        'RegistroFacturacion(0).DescripcionOperacion = "Descripc"

        idDestinatario.NombreRazon = "XXXXX"
        idDestinatario.NIF = "XXXXX"

        datosControl.Huella = "Huella"
        datosControl.TipoHash = "01"


        registroAltaFacturas.RegistroFacturacion = RegistroFacturacion(0)
        registroAltaFacturas.DatosControl = datosControl


        altaFactuSistemaFacturacion.Cabecera = cabecera
        'esta da error 
        'altaFactuSistemaFacturacion.RegistroAltaFacturas = registroAltaFacturas

        Dim ns As New XmlSerializerNamespaces()
        ns.Add("soapenv", ".......")
        ns.Add("sum", "........SuministroLR.xsd")
        ns.Add("sum1", ".......SuministroInformacion.xsd")

        'serializamos
        Dim serializer As New XmlSerializer(GetType(MiSFI.AltaFactuSistemaFacturacion))
        Using writer As New StreamWriter("C:\xml\archivo.xml")
            serializer.Serialize(writer, altaFactuSistemaFacturacion, ns)
        End Using

tuve que quitar las url porque no tengo permisos....

Empezado por nincillo

Sobre tu pregunta, sino me confundo, al menos en Delphi, RegistroAltaFacturas es del tipo Array_Of_FacturasEmitidasType. Con lo cual FacturasEmitidasType entiendo que se corresponde a cada de las facturas que vamos a enviar en el "lote", y todas ellas las tenemos que ir metiendo en un array que es lo que luego pasamos como parámetro a la llamada AltaFactuSistemaFacturacion.

Gracias por responder. pero en esas estoy y no lo consigo, algo estoy haciendo mal......

[nincillo]

Empezado por djatila

Leí en un post anterior que aquí había gente también en visual basic, así que respondo por aquí, así espero que sirva a mas gente. (si molesta, avísenme)

Para importar el wsdl en visual basic studio
-Proyecto -Agregar referencia de servicio - botón avanzadas - botón agregar referencia web
-en direccion = SistemaFacturacion.wsdl
-botón flechita - cambiar el nombre de la clase si queréis yo puse MiSFI -y agregar referencia

También esta la opción con el comando xsd de generar las clases.vb con los ficheros xsd, pero esto no es necesario si se importo el wsdl.

Aqui te pongo como estoy haciendo para generar el xml , este codigo funciona hasta el cierre de la cabecera.

        Dim altaFactuSistemaFacturacion As New AltaFactuSistemaFacturacion
        'Cabecera
        Dim cabecera As New MiSFI.Cabecera
        Dim obligadoEmision As New MiSFI.PersonaFisicaJuridicaESType
        Dim tipoRegistroAEAT As New MiSFI.TipoRegistroAEATType
        '/Cabecera
        Dim registroAltaFacturas As New MiSFI.FacturasEmitidasType
        Dim RegistroFacturacion(2) As MiSFI.RegistroFacturacionType
        Dim datosControl As New MiSFI.DatosControlType
        'idFactura
        Dim idFactura As New MiSFI.IDFacturaExpedidaType 'MiSFI.IDFacturaARType
        Dim idEmisorFactura As New MiSFI.IDFacturaExpedidaTypeIDEmisorFactura
        '/idFactura
        Dim Destinatarios As New MiSFI.PersonaFisicaJuridicaType
        Dim idDestinatario As New MiSFI.PersonaFisicaJuridicaESType
        Dim detalleDesglose As New MiSFI.DetalleType ' DetalleDesglose
        Dim encadenamientoRegistroAnterior As New MiSFI.EncadenamientoFacturaAnteriorType '.EncadenamientoRegistroAnterior
        Dim idEmisorFacturaRegistroAnterior As New MiSFI.EncadenamientoFacturaAnteriorTypeIDEmisorFacturaRegistroAnterior  '.IDEmisorFacturaRegistroAnterior
        Dim sistemaInformatico As New MiSFI.SistemaInformaticoType
        'Cabecera
        cabecera.IDVersion = MiSFI.VersionType.Item10  '"1.0"
        obligadoEmision.NombreRazon = "XXXXX"
        obligadoEmision.NIF = "XXXXX"
        tipoRegistroAEAT = MiSFI.TipoRegistroAEATType.T0 ' "T0"
        cabecera.ObligadoEmision = obligadoEmision
        cabecera.TipoRegistroAEAT = tipoRegistroAEAT
        '/Cabecera
        'RegistroAltaFacturas
        'RegistroFacturacion
        'IDFactura
        idEmisorFactura.NIF = "XXXXX"
        idFactura.NumSerieFacturaEmisor = "12345"
        idFactura.FechaExpedicionFacturaEmisor = "13-11-2023"
        idFactura.IDEmisorFactura = idEmisorFactura
        '/IDfactura  

        'Estas dan error
        'RegistroFacturacion(0).IDFactura = idFactura
        'RegistroFacturacion(0).NombreRazonEmisor = "certificado uno telematicas"
        'RegistroFacturacion(0).TipoRegistroSIF = MiSFI.TipoRegistroSIFType.S0 ' "S0"
        'RegistroFacturacion(0).TipoFactura = MiSFI.ClaveTipoFacturaType.F1 '"F1"
        'RegistroFacturacion(0).DescripcionOperacion = "Descripc"

        idDestinatario.NombreRazon = "XXXXX"
        idDestinatario.NIF = "XXXXX"

        datosControl.Huella = "Huella"
        datosControl.TipoHash = "01"


        registroAltaFacturas.RegistroFacturacion = RegistroFacturacion(0)
        registroAltaFacturas.DatosControl = datosControl


        altaFactuSistemaFacturacion.Cabecera = cabecera
        'esta da error 
        'altaFactuSistemaFacturacion.RegistroAltaFacturas = registroAltaFacturas

        Dim ns As New XmlSerializerNamespaces()
        ns.Add("soapenv", ".......")
        ns.Add("sum", "........SuministroLR.xsd")
        ns.Add("sum1", ".......SuministroInformacion.xsd")

        'serializamos
        Dim serializer As New XmlSerializer(GetType(MiSFI.AltaFactuSistemaFacturacion))
        Using writer As New StreamWriter("C:\xml\archivo.xml")
            serializer.Serialize(writer, altaFactuSistemaFacturacion, ns)
        End Using

tuve que quitar las url porque no tengo permisos....



Gracias por responder. pero en esas estoy y no lo consigo, algo estoy haciendo mal......

A ver si te sirve de ayuda. Así lo tengo yo en Delphi, pero lo gracioso es que sigo sin tener el elemento Cabecera...:

var
  regFactura : FacturasEmitidasType;
  result : Array_Of_RespuestaExpedidaType;
  arrayFacturasS : Array_Of_FacturasEmitidasType;

begin
  regFactura := FacturasEmitidasType.Create;

      regFactura.RegistroFacturacion := RegistroFacturacionType.Create;
...
        regFactura.RegistroFacturacion.IDFactura := IDFacturaExpedidaType.Create;
            regFactura.RegistroFacturacion.IDFactura.NumSerieFacturaEmisor := '23/123456';
....
try
    SetLength(arrayFacturas, 1);
    arrayFacturas[0] := regFactura;
    result := GetsfSOAP(true, '', HTTPRIO1).AltaFactuSistemaFacturacion(ArrayFacturas);
  finally
    regFactura.Destroy;
  end;

¿Podrías publicar de alguna manera el fichero que te genera al importar el wsdl a ver si encuentro las diferencias con el que genera en Delphi?.

[djatila]

ya lo conseguí.

<AltaFactuSistemaFacturacion xmlns:soapenv="......./envelope/"
xmlns:sum="............/SuministroLR.xsd"
 xmlns:sum1="...................................../SuministroInformacion.xsd">
<sum1:Cabecera>
<sum1:IDVersion>1.0</sum1:IDVersion>
<sum1:ObligadoEmision>
<sum1:NombreRazon>XXXXX</sum1:NombreRazon>
<sum1:NIF>XXXXX</sum1:NIF>
</sum1:ObligadoEmision>
<sum1:TipoRegistroAEAT>T0</sum1:TipoRegistroAEAT>
</sum1:Cabecera>
<sum:RegistroAltaFacturas>
<sum:RegistroFacturacion>
<sum1:IDFactura>
<sum1:IDEmisorFactura>
<sum1:NIF>XXXXX</sum1:NIF>
</sum1:IDEmisorFactura>
<sum1:NumSerieFacturaEmisor>12345</sum1:NumSerieFacturaEmisor>
<sum1:FechaExpedicionFacturaEmisor>13-11-2023</sum1:FechaExpedicionFacturaEmisor>
</sum1:IDFactura>
<sum1:NombreRazonEmisor>certificado uno telematicas</sum1:NombreRazonEmisor>
<sum1:TipoRegistroSIF>S0</sum1:TipoRegistroSIF>
<sum1:TipoFactura>F1</sum1:TipoFactura>
<sum1:DescripcionOperacion>Descripc</sum1:DescripcionOperacion>
<sum1:HusoHorarioGenRegistro>01</sum1:HusoHorarioGenRegistro>
</sum:RegistroFacturacion>
<sum:DatosControl>
<sum1:Huella>Huella</sum1:Huella>
<sum1:TipoHash>01</sum1:TipoHash>
</sum:DatosControl>
</sum:RegistroAltaFacturas>
</AltaFactuSistemaFacturacion>

(tuve que quitar las url)

ahora voy a rellenar los demás campos.

Empezado por nincillo

¿Podrías publicar de alguna manera el fichero que te genera al importar el wsdl a ver si encuentro las diferencias con el que genera en Delphi?.

te lo intento pasar por privado que es un tocho

[Neftali [Germán.Estévez]]

Empezado por djatila

Leí en un post anterior que aquí había gente también en visual basic, así que respondo por aquí, así espero que sirva a mas gente. (si molesta, avísenme)

No molesta en absoluto.
Aunque este es un foro principalmente sobre Delphi, caben mensajes de otros lenguajes, Y aunque hay foros específicos de cada lenguaje, en temas como este, LeyAntifraude (SII o TicketBAI) se permite publicar en textos y códigos en otros lenguajes de programación, porque "prima" el tema sobre el que va el hilo (LeyAntifraude).