From 0248eb3490db48b2521631726c714c887c8356f1 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 15 Feb 2023 21:28:10 -0700
Subject: [PATCH] =?UTF-8?q?--=20solo=20generar=20una=20sola=20p=C3=B3liza?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Bancos/ProveedoresAbonar.aspx.vb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index 27467a8c7..6d4a4732f 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -1861,6 +1861,9 @@ Partial Class Bancos_ProveedoresAbonar
 
         Dim EsContabilizable As Boolean = If(UsuarioActual.CveEmpresa.Contiene(13, 83), False, True)
 
+        CvePrePoliza = ObjConta.AddPrePolizas("Bancos/ProveedoresAbonar/Saldar", 98, 0, 0, 1, TxtFechaIncobrable.Text.ToDate, "Saldado de facturas", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+
         For Each gr As GridViewRow In GvCxP.Rows
             If gr.FCCheckBox("Chk").Checked Then
                 Dim IdCtaContable As Integer = CtaProveedor
@@ -1889,7 +1892,6 @@ Partial Class Bancos_ProveedoresAbonar
 
                 Dim ConceptoPartida As String = String.Format("Saldar compra {0}", gr.DataKey("SerieFolio").ToString)
 
-                CvePrePoliza = ObjConta.AddPrePolizas("Bancos/ProveedoresAbonar/Saldar", 98, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, TxtFechaIncobrable.Text.ToDate, ConceptoPartida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
                 If CveMoneda > 1 AndAlso (IdCtaContComplementaria > 0 Or UsaComplementariaProveedores) Then
                     IdCtaContable = IdCtaContComplementaria