From 4d5fcf6719865adb14c51dd26be1129281ae822d Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 10 Jul 2023 21:33:46 -0700
Subject: [PATCH] -- mejora en complemento de pagos.

---
 App_Code/Timbrado.vb | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index aa758b05f..a08c72b27 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -1472,8 +1472,14 @@ Public Class Timbrado
                 If concep.Unidad <> "" Then comprobante.Conceptos(i).Unidad = concep.Unidad
                 comprobante.Conceptos(i).ClaveUnidad = concep.ClaveUnidad
                 comprobante.Conceptos(i).Descripcion = concep.Descripcion
-                comprobante.Conceptos(i).ValorUnitario = Decimal.Parse(concep.ValorUnitario.ToString("0.00####"))  ' formateo forzoso, ej,2543.1
-                comprobante.Conceptos(i).Importe = Decimal.Parse(concep.Importe.RoundSQL(NumDecimalesImporte).ToString("0.00")) ' formateo forzoso, ej,2543.1
+                If ObjCFDITimbre.Comprobante.TipoComprobante.Contiene("P") Then ' consideración especial para pagos, debe ser "0" sin decimales
+                    comprobante.Conceptos(i).ValorUnitario = 0
+                    comprobante.Conceptos(i).Importe = 0
+                Else
+                    comprobante.Conceptos(i).ValorUnitario = Decimal.Parse(concep.ValorUnitario.ToString("0.00####"))  ' formateo forzoso, ej,2543.1
+                    comprobante.Conceptos(i).Importe = Decimal.Parse(concep.Importe.RoundSQL(NumDecimalesImporte).ToString("0.00")) ' formateo forzoso, ej,2543.1
+                End If
+
                 comprobante.Conceptos(i).ClaveProdServ = concep.ClaveProdServ
                 comprobante.Conceptos(i).ObjetoImp = concep.ObjetoImpuesto