-mejora

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)