From 536894806a1cf7a2ab8e9ac95f5818a7ed5fcd29 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 21 Jan 2022 20:32:22 -0700
Subject: [PATCH] mejora en saldar

---
 Bancos/RepEgresosSinComprobante.aspx.vb | 22 ++++------------------
 1 file changed, 4 insertions(+), 18 deletions(-)

diff --git a/Bancos/RepEgresosSinComprobante.aspx.vb b/Bancos/RepEgresosSinComprobante.aspx.vb
index 6b0c8d62e..517fda443 100644
--- a/Bancos/RepEgresosSinComprobante.aspx.vb
+++ b/Bancos/RepEgresosSinComprobante.aspx.vb
@@ -204,7 +204,6 @@ Partial Class Bancos_RepEgresosSinComprobante
         Try
             For Each gr As GridViewRow In GvESC.Rows
                 If gr.FCCheckBox("Chk").Checked Then
-                    Dim CveCuenta As Integer = 0
                     Dim IdCtaContable As Integer = 0
                     Dim TipoMovtoOtIngresos As Boolean = True
                     Dim TipoMovtoConcepto As Boolean = False
@@ -231,24 +230,18 @@ Partial Class Bancos_RepEgresosSinComprobante
                         End If
                     End If
 
-                    If ObjConta.GetCuentaDobleConta(IdCtaContable, UsuarioActual.CveEmpresa) Then
-                        If ObjConta.DtResultados.Rows.Count > 0 Then
-                            CveCuenta = ObjConta.DtResultados.Rows(0)("CveCuenta").ToString.ToEntero
-                        End If
-                    End If
-
                     CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepEgresosSinComprobante", 6, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, Now,
                                                           "Saldo de ExC por Sistema", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, gr.DataKey("Saldo").ToDecimal, "", CveConceptoContable, "Saldo de ExC por Sistema", Now, -1, -1,
                                                          gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero,
-                                                         ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveCuenta:=CveCuenta) Then
+                                                         ImporteMX:=gr.DataKey("Saldo").ToDecimal) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                         Exit For
                     End If
 
                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOtIngresos, gr.DataKey("Saldo").ToDecimal, "", 78, "Saldo de ExC por Sistema", Now, -1, -1, gr.DataKey("CveIE").ToEntero,
-                                                         ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero, CveCuenta:=CveCuenta) Then
+                                                         ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                         Exit For
                     End If
@@ -292,7 +285,6 @@ Partial Class Bancos_RepEgresosSinComprobante
         Try
             For Each gr As GridViewRow In GvPersonal.Rows
                 If gr.FCCheckBox("Chk").Checked Then
-                    Dim CveCuenta As Integer = 0
                     Dim IdCtaContPersonal As Integer = 0
                     Dim CveConceptoContable As Integer
                     Dim TipoMovtoOtIngresos As Boolean = True
@@ -319,24 +311,18 @@ Partial Class Bancos_RepEgresosSinComprobante
                         End If
                     End If
 
-                    If ObjConta.GetCuentaDobleConta(IdCtaContPersonal, UsuarioActual.CveEmpresa) Then
-                        If ObjConta.DtResultados.Rows.Count > 0 Then
-                            CveCuenta = ObjConta.DtResultados.Rows(0)("CveCuenta").ToString.ToEntero
-                        End If
-                    End If
-
                     CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepEgresosSinComprobante", 6, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, Now,
                                                           "Saldo de ExC por Sistema", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, gr.DataKey("Saldo").ToDecimal, "", CveConceptoContable, "Saldo de ExC por Sistema", Now, -1, -1,
                                                          gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero,
-                                                         ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveCuenta:=CveCuenta) Then
+                                                         ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveSubProyecto:=-1) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                         Exit For
                     End If
 
                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOtIngresos, gr.DataKey("Saldo").ToDecimal, "", 78, "Saldo de ExC por Sistema", Now, -1, -1, gr.DataKey("CveIE").ToEntero,
-                                                         ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveCuenta:=CveCuenta) Then
+                                                         ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveSubProyecto:=-1) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                         Exit For
                     End If