From a55dd6736f05b9476e2f2aac382d3134908a7a2e Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 20 May 2022 09:39:52 -0700
Subject: [PATCH] -mejora

---
 Contabilidad/RegPrePolizaS.aspx.vb | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index c5fd7b7f2..536dc89fc 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -1579,6 +1579,7 @@ Partial Class ContabilidadC_RegPrePolizaS
 
         If DrConceptoContable IsNot Nothing Then
             Dim AplicaComplementaria = Boolean.Parse(DrConceptoContable("EsComplementaria").ToString)
+            Dim AplicaBancos = Boolean.Parse(DrConceptoContable("AplicaBancos").ToString)
 
             If AplicaComplementaria Then
                 Dim Importe As Decimal = IIf(TxtCargoE.Text.ToDecimal <> 0, TxtCargoE.Text.ToDecimal, TxtAbonoE.Text.ToDecimal)
@@ -1593,6 +1594,13 @@ Partial Class ContabilidadC_RegPrePolizaS
                 End If
             End If
 
+            If AplicaBancos Then
+                If DdlModalConceptoTipoTransaccion.SelectedValue.ToEntero <= 0 Then
+                    Alert("seleccione las opciones de bancos ")
+                    Retorno = False
+                End If
+            End If
+
         End If
         Return Retorno
     End Function
@@ -2290,8 +2298,6 @@ Partial Class ContabilidadC_RegPrePolizaS
 
             DtMovimientos.Clear()
 
-            Dim ObjConta As New ClsContabilidad()
-            ObjConta.IniciaTransacSQL()
             Try
 
                 Dim ContadorRegistros As Integer = 2
@@ -2449,16 +2455,15 @@ Partial Class ContabilidadC_RegPrePolizaS
                         DtMovimientos.AcceptChanges()
                     End If
                     ContadorRegistros = ContadorRegistros + 1
-
                 Next
 
-                TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero
-                TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero
-
                 GvPrePoliza.DataSource = DtMovimientos
                 GvPrePoliza.DataBind()
                 UpPrePoliza.Update()
 
+                TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero
+                TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero
+
             Catch ex As Exception
                 Alert("No se pudo cargar el excel", TipoMensaje.MsgAdvertencia)
                 GuardaLog(ex.Message)