con Retencion en no me Valida la Factura

[ivan]

Tengo un problemita a la hora de sacar una factura con retencion de el 4% activo los campos donde va, pero a la hora de validar en la web del sat

https://www.consulta.sat.gob.mx/SICOFI_ ... dador.html

me muestra un mensaje: " El sello del comprobante no es válido "

Lo paso a el el validador de esta web y lo mismo, lo comparo impreso con otra factura de otro programa pero no noto diferencia, no se si se le este pegando algo a la cadena o algo pase que no la acepta

lo que hize fue que tome el codigo original que se me envio con la addenda Amis y realize los ajuste que publicaste en el foro, despues habilite lo de la retencion en:

-Unidad FacturaE
-Procedimiento TFacturaEForm.GeneraXML(FolioFactura : integer);

-Donde dice:

with Impuestos do
begin
{opc TotalImpuestosRetenidos := '';}
//Si hay impuesto retenido se debe usar el siguiente bloque:
{ with Retenciones.Add do
begin
Impuesto := 'ISR o IVA';
Importe := 'calculo de la retencion';
end;}


y no, entonces tome los primeros codigos que me mandaste sin modificar lo de el foro y habilite los mismos campos y nada me manda el mismo error.

te anexo el XML que me genero .

UCP090807ABC ABC-1234.zip

XML generado

(2.23 KiB) Descargado 535 veces

Otra cosa que note que despues de los cambios se movio el sello antes estaba despues de fecha y ahora veo que esta despues de tipo de comprobante.
se puede acomodar de manera facil como era antes, he visto que todas las facturas tienen ese orden.

aunque creo que no afecta en nada, porque las facturas sin retencion me las acepta el validador, lo malo es cuando hay retencion.


Gracias y Estamos en contacto
Saludos

[Dado]

Tambien checa en la rutina de CalculaCadena Original que se este insertando la retencion:

Código: Seleccionar todo

		with Impuestos do
		begin
			with Retenciones do
			for n:= 0 to ChildNodes.Count-1 do
			if ChildNodes[n].NodeType = ntElement then
			begin
				AgregaDato(Retencion[n].Impuesto); AgregaDato(Retencion[n].Importe);
			end; {with CFD.Impuestos.Retenciones}
			AgregaDato(TotalImpuestosRetenidos);
		
			with Traslados do
			for n:= 0 to ChildNodes.Count-1 do
			if ChildNodes[n].NodeType = ntElement then
			begin
				AgregaDato(Traslados[n].Impuesto); AgregaDato(Traslados[n].Tasa); AgregaDato(Traslados[n].Importe);
			end; {with CFD.Impuestos.Traslados}
			AgregaDato(TotalImpuestosTrasladados);
		end; {with CFD.Impuestos}

[ivan]

Barbaro Sr.

Pues eso era, que no estaba implementado en el codigo, el procedimiento se llama GeneraCadenaOriginal.
en la Unidad FacturaE
y esto aparece en correcciones de el codigo?, si es asi, ya me he perdido en tantas versiones que tengo de pruebas

Gracias por su Tiempo.
Saludos
Ivan.