FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Cita:
No veo problemas en el horizonte 2028, pero sí veo problemas... Problema 1º, depende de un certificado raíz que no está registrado en la mayoría de los ordenadores; solución: a la instalación hay que registrar este certificado raíz en los ordenadores del cliente (y ser consciente de las implicaciones a nivel de seguridad) Problema 2º, ¿qué pasará cuando caducan los certificados? A no tener marca de tiempo, Windows se quejará del problema de seguridad (posiblemente sin dar posibilidad de forzar la ejecución, p.e. en Win11) solución: actualizar siempre cURL a la última versión... También tengo otra versión 7.5 más antigua (2016) que no vienen directamente de curl.se pero de web.de (tiene opciones que me sirven para determindo proyecto). Esta está firmada con un certificado de validez 14/9/2016-14/9/2017, es decir caducado desde hace mucho tiempo; pero esta versión ¡tiene marca de tiempo! Por tanto allí no hay quejas, la firma de código sigue válida (si la raíz está autorizada) y no veo Visto la fecha de caducidad del certificado de "curl-for-win Code Signing Authority", creo que vamos a oír hablar de este tema próximamente. Sin embargo, posiblemente se puede usar el curl.exe del sistema si estas en una versión normal de Windows 10 o 11: este está generada y firmada por Microsoft, y no habrá problemas en 2028 o en ningún otro momento pero no hay la opción de usar libcurl.dll |
#2
|
|||
|
|||
solución
Cita:
Jeje, creo que he encontrado la solución, mañana me aseguro y os cuento que teneis que hacer, espero que sirva igualmente para los envios a la Aeat. Admito donaciones, yo pago los impuestos. |
#3
|
|||
|
|||
Solución Caducidad Ceriticado Ssl De Curl
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 |
#4
|
|||
|
|||
Para comprobar fecha caducidad del curl teneios que buscar este fichero:
curl-ca-bundle.crt Pulsais doble click y ala. |
#5
|
|||
|
|||
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. |
#6
|
|||
|
|||
Cita:
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. |
#7
|
|||
|
|||
Cita:
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. Código:
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 Cita:
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Hijo de Informáticos | gluglu | Humor | 3 | 13-03-2007 11:05:35 |
Adictos informaticos ... | Trigger | Humor | 2 | 11-10-2004 12:18:32 |
Nosotros los Informáticos | Trigger | Humor | 1 | 10-10-2004 14:58:09 |
Patrón de los Informáticos. | obiwuan | Varios | 20 | 10-09-2003 14:44:54 |
Chistes Informaticos | jhonny | Humor | 2 | 11-08-2003 21:59:09 |
|