Demo con código Verifactu.dll para (delphi 7)

seccion_31 · #1 21-07-2025

Cita:

Empezado por yeyo

vaya por delante el agradecimiento a Seccion31 por su código!

Con la versión 4.7 me ha saltado el siguiente error:
"[dcc32 Error] uVerifactuFuncs.pas(...): E2361 Cannot access private symbol RespuestaDatosRegistroFacturacionType.Incidencia_Specified"

Después de mucho mirar me he encontrado con que sistemafacturacion.pas (el .pas generado a partir del WSDL) está modificado! buscar esta linea:

"PUBLIC // modificado aqui para disponer de las funciones _Specified"

A mí me ha saltado el error porque no estoy utilizando el sistemafacturacion.pas que viene con el componente. Estoy utilizando un sistemafacturacion.pas generado por mi, posterior: Version : 1.0 (01/07/2025 10:20:16 - - $Rev: 116709 $)

Lo digo para que lo tengaís en cuenta y el autor podrá confirmar si esto es así o me he liado yo. Y la cuestión... ¿es conveniente utilizar siempre el último WSDL? nos quedamos con una versión y ya? que consideraís que se debe hacer al respecto?

gracias!!

No hay mas remedio que publicar esas funciones para que funcionen bien las consultas. Esta documentado, tanto en el .pas como en la ayuda.txt

La actual es: // Version : 1.0 (14/02/2025 11:14:56 - - $Rev: 90173 $)

Pero yo creo que es la misma 1.0 que tienes tu, ¿importada en otra fecha? porque entiendo que la version deberia cambiar. (aqui ya no lo tengo claro)

Cuando se publique otro WSDL es ir a esos lugares y colocar el PUBLIC y listo. Es la solucion menos intrusiva que encontre.

No se si este problema se ha tratado en otros hilos del foro.

Saludos !

yeyo · #2 21-07-2025

Cita:

Empezado por seccion_31

No hay mas remedio que publicar esas funciones para que funcionen bien las consultas. Esta documentado, tanto en el .pas como en la ayuda.txt

La actual es: // Version : 1.0 (14/02/2025 11:14:56 - - $Rev: 90173 $)

Pero yo creo que es la misma 1.0 que tienes tu, ¿importada en otra fecha? porque entiendo que la version deberia cambiar. (aqui ya no lo tengo claro)

Cuando se publique otro WSDL es ir a esos lugares y colocar el PUBLIC y listo. Es la solucion menos intrusiva que encontre.

No se si este problema se ha tratado en otros hilos del foro.

Saludos !

uops! en ayuda.txt no lo ví! mis disculpas

gracias de nuevo!!!

seccion_31 · #3 22-07-2025

Diria que el componente, no utiliza CAPICOM.DLL

He desregistrado la DLL
Eliminado capicom.dll de todo el disco
Confirmo que en el registro no hay referencia alguna
Reinicio
El programa demo funciona perfecto
Listo las dlls utilizadas por el programa de demo y no aparece

¿alguien puede confirmarlo?

Slds !

starlet · #4 23-07-2025

He hecho los mismo pasos y me funciona tb.

Por otra parte, evidentemente otro más que lo utiliza y te confirmo 3 compañeros más que lo utilizan por referencias mías.

Reitero mis agradecimientos por el enorme trabajo que has y estas haciendo.

Saludos

seccion_31 · #5 23-07-2025

Podemos implementar facturas rectificativas por sustitución,

¿ alguien puede darme un registro XML de alta y una explicación para añadirlo ?

Saludos !

Si me dais esa info lo añado.

Matorral · #6 23-07-2025

Buenas tardes¡¡

a mi tambien me funciona sin el capicom.dll

estoy buscando algun ejemplo de xml de rectificativa por sustitucion, pero no encuentro ninguno. (yo no se como es).

Neftali [Germán.Estévez] · #7 24-07-2025

A ver si esto te sirve...
Factura 1:

Código:

<sum:RegFactuSistemaFacturacion xmlns:ds="http://www.w3.org/2000/09/xmldsig#" 
    xmlns:sum1="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroInformacion.xsd" 
	xmlns:sum="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroLR.xsd">
	<sum:RegistroFactura>
		<sum1:RegistroAlta>
			<sum1:IDVersion>1.0</sum1:IDVersion>
			<sum1:IDFactura>
				<sum1:IDEmisorFactura>11111111H</sum1:IDEmisorFactura>
				<sum1:NumSerieFactura>-2</sum1:NumSerieFactura>
				<sum1:FechaExpedicionFactura>24-07-2025</sum1:FechaExpedicionFactura>
			</sum1:IDFactura>
			<sum1:NombreRazonEmisor>EMPRESA1</sum1:NombreRazonEmisor>
			<sum1:TipoFactura>F1</sum1:TipoFactura>
			<sum1:DescripcionOperacion>art 1</sum1:DescripcionOperacion>
			<sum1:Destinatarios>
				<sum1:IDDestinatario>
					<sum1:NombreRazon>CLIENTE 1</sum1:NombreRazon>
					<sum1:NIF>22222222H</sum1:NIF>
				</sum1:IDDestinatario>
			</sum1:Destinatarios>
			<sum1:Desglose>
				<sum1:DetalleDesglose>
					<sum1:Impuesto>01</sum1:Impuesto>
					<sum1:ClaveRegimen>01</sum1:ClaveRegimen>
					<sum1:CalificacionOperacion>S1</sum1:CalificacionOperacion>
					<sum1:TipoImpositivo>21.00</sum1:TipoImpositivo>
					<sum1:BaseImponibleOimporteNoSujeto>100.00</sum1:BaseImponibleOimporteNoSujeto>
					<sum1:CuotaRepercutida>21.00</sum1:CuotaRepercutida>
				</sum1:DetalleDesglose>
			</sum1:Desglose>
			<sum1:CuotaTotal>21.00</sum1:CuotaTotal>
			<sum1:ImporteTotal>121.00</sum1:ImporteTotal>
			<sum1:Encadenamiento>
				<sum1:RegistroAnterior>
					<sum1:IDEmisorFactura>11111111H</sum1:IDEmisorFactura>
					<sum1:NumSerieFactura>-1</sum1:NumSerieFactura>
					<sum1:FechaExpedicionFactura>21-07-2025</sum1:FechaExpedicionFactura>
					<sum1:Huella>58242EF60EA1827256626824620075CF6037ECAC70D3F63E0847B4373BAF3D42</sum1:Huella>
				</sum1:RegistroAnterior>
			</sum1:Encadenamiento>
			<sum1:SistemaInformatico>
				<sum1:NombreRazon>MIEmpresa</sum1:NombreRazon>
				<sum1:NIF>B12345678</sum1:NIF>
				<sum1:NombreSistemaInformatico>MiERP</sum1:NombreSistemaInformatico>
				<sum1:IdSistemaInformatico>04</sum1:IdSistemaInformatico>
				<sum1:Version>1.0</sum1:Version>
				<sum1:NumeroInstalacion>12121212121212121212121212</sum1:NumeroInstalacion>
				<sum1:TipoUsoPosibleSoloVerifactu>N</sum1:TipoUsoPosibleSoloVerifactu>
				<sum1:TipoUsoPosibleMultiOT>S</sum1:TipoUsoPosibleMultiOT>
				<sum1:IndicadorMultiplesOT>S</sum1:IndicadorMultiplesOT>
			</sum1:SistemaInformatico>
			<sum1:FechaHoraHusoGenRegistro>2025-07-24T07:07:59Z</sum1:FechaHoraHusoGenRegistro>
			<sum1:NumRegistroAcuerdoFacturacion/>
			<sum1:IdAcuerdoSistemaInformatico/>
			<sum1:TipoHuella>01</sum1:TipoHuella>
			<sum1:Huella>3EE7135912E7D274AE2255D4A9361A41DF62B5666683EC1EEA4C66594113A967</sum1:Huella>
		</sum1:RegistroAlta>
	</sum:RegistroFactura>
</sum:RegFactuSistemaFacturacion>

Factura 2:

Código:

<sum:RegFactuSistemaFacturacion xmlns:ds="http://www.w3.org/2000/09/xmldsig#" 
xmlns:sum1="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroInformacion.xsd" 
xmlns:sum="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroLR.xsd">
	<sum:RegistroFactura>
		<sum1:RegistroAlta>
			<sum1:IDVersion>1.0</sum1:IDVersion>
			<sum1:IDFactura>
				<sum1:IDEmisorFactura>11111111H</sum1:IDEmisorFactura>
				<sum1:NumSerieFactura>-3</sum1:NumSerieFactura>
				<sum1:FechaExpedicionFactura>24-07-2025</sum1:FechaExpedicionFactura>
			</sum1:IDFactura>
			<sum1:NombreRazonEmisor>EMPRESA1</sum1:NombreRazonEmisor>
			<sum1:TipoFactura>F1</sum1:TipoFactura>
			<sum1:DescripcionOperacion>art 2</sum1:DescripcionOperacion>
			<sum1:Destinatarios>
				<sum1:IDDestinatario>
					<sum1:NombreRazon>CLIENTE1</sum1:NombreRazon>
					<sum1:NIF>22222222H</sum1:NIF>
				</sum1:IDDestinatario>
			</sum1:Destinatarios>
			<sum1:Desglose>
				<sum1:DetalleDesglose>
					<sum1:Impuesto>01</sum1:Impuesto>
					<sum1:ClaveRegimen>01</sum1:ClaveRegimen>
					<sum1:CalificacionOperacion>S1</sum1:CalificacionOperacion>
					<sum1:TipoImpositivo>21.00</sum1:TipoImpositivo>
					<sum1:BaseImponibleOimporteNoSujeto>200.00</sum1:BaseImponibleOimporteNoSujeto>
					<sum1:CuotaRepercutida>42.00</sum1:CuotaRepercutida>
				</sum1:DetalleDesglose>
			</sum1:Desglose>
			<sum1:CuotaTotal>42.00</sum1:CuotaTotal>
			<sum1:ImporteTotal>242.00</sum1:ImporteTotal>
			<sum1:Encadenamiento>
				<sum1:RegistroAnterior>
					<sum1:IDEmisorFactura>11111111H</sum1:IDEmisorFactura>
					<sum1:NumSerieFactura>-2</sum1:NumSerieFactura>
					<sum1:FechaExpedicionFactura>24-07-2025</sum1:FechaExpedicionFactura>
					<sum1:Huella>3EE7135912E7D274AE2255D4A9361A41DF62B5666683EC1EEA4C66594113A967</sum1:Huella>
				</sum1:RegistroAnterior>
			</sum1:Encadenamiento>
			<sum1:SistemaInformatico>
				<sum1:NombreRazon>MIEmpresa</sum1:NombreRazon>
				<sum1:NIF>B12345678</sum1:NIF>
				<sum1:NombreSistemaInformatico>MiERP</sum1:NombreSistemaInformatico>
				<sum1:IdSistemaInformatico>04</sum1:IdSistemaInformatico>
				<sum1:Version>1.0</sum1:Version>
				<sum1:NumeroInstalacion>12121212121212121212121212</sum1:NumeroInstalacion>
				<sum1:TipoUsoPosibleSoloVerifactu>N</sum1:TipoUsoPosibleSoloVerifactu>
				<sum1:TipoUsoPosibleMultiOT>S</sum1:TipoUsoPosibleMultiOT>
				<sum1:IndicadorMultiplesOT>S</sum1:IndicadorMultiplesOT>
			</sum1:SistemaInformatico>
			<sum1:FechaHoraHusoGenRegistro>2025-07-24T07:08:15Z</sum1:FechaHoraHusoGenRegistro>
			<sum1:NumRegistroAcuerdoFacturacion/>
			<sum1:IdAcuerdoSistemaInformatico/>
			<sum1:TipoHuella>01</sum1:TipoHuella>
			<sum1:Huella>7BCACAC0C6C7F58F6503C0C4B8AB1133FB0BBB94D7C82C1777DC2821B25B8F85</sum1:Huella>
		</sum1:RegistroAlta>
	</sum:RegistroFactura>
</sum:RegFactuSistemaFacturacion>

Rectificativa:

Código:

<sum:RegFactuSistemaFacturacion xmlns:ds="http://www.w3.org/2000/09/xmldsig#" 
xmlns:sum1="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroInformacion.xsd" 
xmlns:sum="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroLR.xsd">
	<sum:RegistroFactura>
		<sum1:RegistroAlta>
			<sum1:IDVersion>1.0</sum1:IDVersion>
			<sum1:IDFactura>
				<sum1:IDEmisorFactura>11111111H</sum1:IDEmisorFactura>
				<sum1:NumSerieFactura>R-1</sum1:NumSerieFactura>
				<sum1:FechaExpedicionFactura>24-07-2025</sum1:FechaExpedicionFactura>
			</sum1:IDFactura>
			<sum1:NombreRazonEmisor>EMPRESA1</sum1:NombreRazonEmisor>
			<sum1:TipoFactura>R4</sum1:TipoFactura>
			<sum1:TipoRectificativa>I</sum1:TipoRectificativa>
			<sum1:FacturasRectificadas>
				<sum1:IDFacturaRectificada>
					<sum1:IDEmisorFactura>11111111H</sum1:IDEmisorFactura>
					<sum1:NumSerieFactura>-2</sum1:NumSerieFactura>
					<sum1:FechaExpedicionFactura>24-07-2025</sum1:FechaExpedicionFactura>
				</sum1:IDFacturaRectificada>
				<sum1:IDFacturaRectificada>
					<sum1:IDEmisorFactura>11111111H</sum1:IDEmisorFactura>
					<sum1:NumSerieFactura>-3</sum1:NumSerieFactura>
					<sum1:FechaExpedicionFactura>24-07-2025</sum1:FechaExpedicionFactura>
				</sum1:IDFacturaRectificada>
			</sum1:FacturasRectificadas>
			<sum1:DescripcionOperacion>rect</sum1:DescripcionOperacion>
			<sum1:Destinatarios>
				<sum1:IDDestinatario>
					<sum1:NombreRazon>CLIENTE1</sum1:NombreRazon>
					<sum1:NIF>22222222H</sum1:NIF>
				</sum1:IDDestinatario>
			</sum1:Destinatarios>
			<sum1:Desglose>
				<sum1:DetalleDesglose>
					<sum1:Impuesto>01</sum1:Impuesto>
					<sum1:ClaveRegimen>01</sum1:ClaveRegimen>
					<sum1:CalificacionOperacion>S1</sum1:CalificacionOperacion>
					<sum1:TipoImpositivo>21.00</sum1:TipoImpositivo>
					<sum1:BaseImponibleOimporteNoSujeto>-300.00</sum1:BaseImponibleOimporteNoSujeto>
					<sum1:CuotaRepercutida>-63.00</sum1:CuotaRepercutida>
				</sum1:DetalleDesglose>
			</sum1:Desglose>
			<sum1:CuotaTotal>-63.00</sum1:CuotaTotal>
			<sum1:ImporteTotal>-363.00</sum1:ImporteTotal>
			<sum1:Encadenamiento>
				<sum1:RegistroAnterior>
					<sum1:IDEmisorFactura>11111111H</sum1:IDEmisorFactura>
					<sum1:NumSerieFactura>-3</sum1:NumSerieFactura>
					<sum1:FechaExpedicionFactura>24-07-2025</sum1:FechaExpedicionFactura>
					<sum1:Huella>7BCACAC0C6C7F58F6503C0C4B8AB1133FB0BBB94D7C82C1777DC2821B25B8F85</sum1:Huella>
				</sum1:RegistroAnterior>
			</sum1:Encadenamiento>
			<sum1:SistemaInformatico>
				<sum1:NombreRazon>MIEmpresa</sum1:NombreRazon>
				<sum1:NIF>B12345678</sum1:NIF>
				<sum1:NombreSistemaInformatico>MiERP</sum1:NombreSistemaInformatico>
				<sum1:IdSistemaInformatico>04</sum1:IdSistemaInformatico>
				<sum1:Version>1.0</sum1:Version>
				<sum1:NumeroInstalacion>12121212121212121212121212</sum1:NumeroInstalacion>
				<sum1:TipoUsoPosibleSoloVerifactu>N</sum1:TipoUsoPosibleSoloVerifactu>
				<sum1:TipoUsoPosibleMultiOT>S</sum1:TipoUsoPosibleMultiOT>
				<sum1:IndicadorMultiplesOT>S</sum1:IndicadorMultiplesOT>
			</sum1:SistemaInformatico>
			<sum1:FechaHoraHusoGenRegistro>2025-07-24T07:09:42Z</sum1:FechaHoraHusoGenRegistro>
			<sum1:NumRegistroAcuerdoFacturacion/>
			<sum1:IdAcuerdoSistemaInformatico/>
			<sum1:TipoHuella>01</sum1:TipoHuella>
			<sum1:Huella>E9AC569F006BDD0F3C92136AB71AE345F57A9F0C51DD83DCAE353E50112FE27F</sum1:Huella>
		</sum1:RegistroAlta>
	</sum:RegistroFactura>
</sum:RegFactuSistemaFacturacion>

mqm · #8 31-07-2025

Si no estamos usando capicom, podemos quitarlo completamente del codigo fuente y eleminar toda referencia al mismo?

Matorral · #9 31-07-2025

Cita:

Empezado por mqm

Si no estamos usando capicom, podemos quitarlo completamente del codigo fuente y eleminar toda referencia al mismo?

A mí me está funcionando todo exactamente igual después de eliminarlo (tal y como indicó Seccion_31 en un mensaje anterior).

Herramientas	Buscar en Tema
Mostrar Versión Imprimible Enviar por Correo	Buscar en Tema: Búsqueda Avanzada
Desplegado
Cambiar a Modo Lineal Modo Híbrido Cambiar a Modo Hilado

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Verifactu o por requerimiento (no-verifactu) ¿decisión del usuario?	Maska10	Temas legales	2	07-12-2024 12:34:47
Demo de una applicación para una estación de enfermera con RAD Studio	AgustinOrtu	La Taberna	1	21-07-2015 17:41:35
Demo Delphi, EMail	Caral	Internet	1	19-12-2006 00:37:56
Demo de delphi 2005	mazinger	Varios	2	18-12-2004 09:23:09
El Rave que viene con Delphi es una Demo?	apicito	Impresión	0	04-06-2003 11:33:36