From 42599d9a68df952fb0cd74f3929cc35125c70317 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 21 Dec 2023 12:22:02 -0700
Subject: [PATCH] - mejora saldar

---
 Bancos/ProveedoresAbonar.aspx.vb | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index 05470af13..562c77be4 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -1419,7 +1419,6 @@ Partial Class Bancos_ProveedoresAbonar
 
 #Region "SALDAR CUENTAS"
 
-
     Private Sub BtnSaldarCuentasSinPagar_Click(sender As Object, e As EventArgs) Handles BtnSaldarCuentasSinPagar.Click
         Dim ObjConta As New ClsContabilidad
         ObjConta.IniciaTransacSQL()
@@ -1431,7 +1430,6 @@ Partial Class Bancos_ProveedoresAbonar
 
         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 Saldo As Decimal = gr.FCTextBox("TxtAbonar").Text.ToDecimal  'gr.DataKey("Saldo").ToDecimal
@@ -1440,7 +1438,6 @@ Partial Class Bancos_ProveedoresAbonar
                 Dim CveMoneda As Integer = gr.DataKey("CveMoneda").ToEntero
                 Dim FechaCompra As Date = gr.DataKey("Fecha").ToDate
                 Dim CveSubProyecto As Integer = gr.DataKey("CveSubProyecto").ToEntero
-                Dim UsaComplementariaProveedores As Boolean = If(UsuarioActual.CveEmpresa.Contiene(119, 158), True, False)
 
                 Dim CveConceptoContablePago As Integer = 17
                 If gr.DataKey("CveTipoConcepto").ToEntero = 2 Then CveConceptoContablePago = 308 'cuando es acreedor
@@ -1460,14 +1457,16 @@ Partial Class Bancos_ProveedoresAbonar
                 Dim ConceptoPartida As String = String.Format("Saldar compra {0}", gr.DataKey("SerieFolio").ToString)
 
 
-                If CveMoneda > 1 AndAlso (UsaComplementariaProveedores) Then
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, 0.00D, (Saldo * TCCompra - Saldo).RoundSQL, CveConceptoContableComplementaria, gr.DataKey("SerieFolio").ToString, ConceptoPartida, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteME:=Saldo, TipoCambio:=TCCompra, Contabilizable:=EsContabilizable) Then
-                        MsgError = "No se pudo insertar la póliza"
-                    End If
+                If CveMoneda > 1 Then
+
                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Saldo, Saldo, CveConceptoContablePago, gr.DataKey("SerieFolio").ToString, ConceptoPartida, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, TipoCambio:=TCCompra, ImporteME:=If(CveMoneda > 1, Saldo, 0), Contabilizable:=EsContabilizable) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                     End If
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, 0.00D, (Saldo * TCCompra - Saldo).RoundSQL, CveConceptoContableComplementaria, gr.DataKey("SerieFolio").ToString, ConceptoPartida, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteME:=Saldo, TipoCambio:=TCCompra, Contabilizable:=EsContabilizable) Then
+                        MsgError = "No se pudo insertar la póliza"
+                    End If
                 Else
+                    TCPago = 1
                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Saldo, If(CveMoneda = 1, Saldo, Saldo * TCCompra), CveConceptoContablePago, gr.DataKey("SerieFolio").ToString, ConceptoPartida, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteME:=If(CveMoneda > 1, Saldo, 0), TipoCambio:=TCCompra, Contabilizable:=EsContabilizable) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                     End If
@@ -1497,10 +1496,12 @@ Partial Class Bancos_ProveedoresAbonar
                 ' se manda al ot ingresos, los impuestos por acreditar
                 If MsgError = "" Then
                     Dim tcvecon As Integer = 78
+                    Dim tTipoMovto As Boolean = True
                     If Saldo < 0 Then
                         tcvecon = 211
+                        tTipoMovto = False
                     End If
-                    If MsgError = "" AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Saldo, If(CveMoneda = 1, Saldo, Saldo * TCPago), tcvecon, gr.DataKey("SerieFolio").ToString, ConceptoPartida, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, TipoCambio:=TCCompra, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto, Contabilizable:=EsContabilizable) Then
+                    If MsgError = "" AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tTipoMovto, Saldo, (Saldo * TCPago).RoundSQL, tcvecon, gr.DataKey("SerieFolio").ToString, ConceptoPartida, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, TipoCambio:=TCCompra, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto, Contabilizable:=EsContabilizable) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                     End If
                 End If
@@ -1522,7 +1523,6 @@ Partial Class Bancos_ProveedoresAbonar
                         End If
                     End If
                 End If
-
             End If
         Next