From 2984358dc075326c22e71ea3cb9f2f16b71f8698 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 30 Jun 2023 18:41:23 -0700
Subject: [PATCH] -- mejora

---
 Bancos/RepEgresosSinComprobante.aspx.vb | 25 +++++++++++--------------
 1 file changed, 11 insertions(+), 14 deletions(-)

diff --git a/Bancos/RepEgresosSinComprobante.aspx.vb b/Bancos/RepEgresosSinComprobante.aspx.vb
index 3b7337d7b..31edbfabc 100644
--- a/Bancos/RepEgresosSinComprobante.aspx.vb
+++ b/Bancos/RepEgresosSinComprobante.aspx.vb
@@ -227,19 +227,17 @@ Partial Class Bancos_RepEgresosSinComprobante
             If Contador > 0 Then
                 CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepEgresosSinComprobante", 6, 0, 0, 1, Now,
                                                           TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-
+                Dim ImporteSaldoGral As Decimal = 0
+                Dim TipoMovtoConcepto As Boolean = True
                 For Each gr As GridViewRow In GvESC.Rows
                     If gr.FCCheckBox("Chk").Checked Then
                         Dim ImporteSaldo As Decimal = gr.DataKey("Saldo").ToDecimal
-                        Dim TipoMovtoOtIngresos As Boolean = False
-                        Dim TipoMovtoConcepto As Boolean = True
-                        Dim CveConceptoContable As Integer
 
                         Dim ConPrepAplicacion As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(11, gr.DataKey("CveMoneda").ToEntero, True, gr.DataKey("CveTipoProveedor").ToEntero)
 
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, ImporteSaldo, ImporteSaldo, ConPrepAplicacion.CveConcepto, gr.DataKey("Folio"), TxtConcepto.Text, -1,
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteSaldo, ImporteSaldo, ConPrepAplicacion.CveConcepto, gr.DataKey("Folio"), TxtConcepto.Text, -1,
                                                              CveIE:=gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero,
-                                                             Contabilizable:=EsContabilizable) Then
+                                                             CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero, Contabilizable:=EsContabilizable) Then
                             MsgError = "Ocurrio un error al saldar el movimiento"
                             Exit For
                         End If
@@ -254,17 +252,16 @@ Partial Class Bancos_RepEgresosSinComprobante
                             End If
                             ImporteSaldo += ImporteMN
                         End If
-
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOtIngresos, ImporteSaldo, ImporteSaldo, 211, gr.DataKey("Folio"), "Saldo de ExC por Sistema", -1,
-                                                              CveIE:=gr.DataKey("CveIE").ToEntero, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero, Contabilizable:=EsContabilizable) Then
-                            MsgError = "Ocurrio un error al saldar el movimiento"
-                            Exit For
-                        End If
-
+                        ImporteSaldoGral += ImporteSaldo
                     End If
                 Next
                 If MsgError = "" Then
-                    If Not ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoConcepto, ImporteSaldoGral, ImporteSaldoGral, 211, "", TxtConcepto.Text, -1,
+                                                              CveIE:=-1, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero, Contabilizable:=EsContabilizable) Then
+                        MsgError = "Ocurrio un error al saldar el movimiento"
+                    End If
+
+                    If MsgError = "" AndAlso Not ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then
                         MsgError = "Error al validar."
                     End If
                 End If