diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index 26240fae6..421e49bb0 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -300,7 +300,7 @@
-
+
@@ -416,12 +416,12 @@ -
+
- Movimientos2 + Movimientos.
@@ -551,14 +551,14 @@ - + - + @@ -614,7 +614,7 @@
- +
@@ -622,7 +622,7 @@
- +
@@ -657,11 +657,7 @@
- - -
-
@@ -893,7 +889,7 @@
- +
@@ -901,7 +897,7 @@
- +
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 169028c41..d213f08be 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -1,12 +1,8 @@  Imports System.Data -Imports System.Net.NetworkInformation -Imports ADSNetLibrary.SIGAPI.Models.OC.Response 'Imports DocumentFormat.OpenXml Imports Extensiones Imports GemBox.Spreadsheet -Imports Microsoft.JScript -Imports Microsoft.Reporting.WebForms Partial Class ContabilidadC_RegPrePolizaS Inherits ClsPaginas @@ -260,6 +256,8 @@ Partial Class ContabilidadC_RegPrePolizaS 'End If Tick = DateTime.Now.Ticks.ToString + TxtTotalCargos.Attributes.Add("readonly", "readonly") + TxtTotalAbonos.Attributes.Add("readonly", "readonly") CveMoneda = 1 ViewState("CvePrePoliza") = 0 @@ -778,6 +776,7 @@ Partial Class ContabilidadC_RegPrePolizaS CargaSubProyectos() CargaCuentasContables() End If + divPrePolizas.Visible = True GvPrePoliza.Visible = True DivAgregarConceptos.Visible = False divMovtos.Visible = False @@ -786,6 +785,7 @@ Partial Class ContabilidadC_RegPrePolizaS Else DivAgregarConceptos.Visible = False divMovtos.Visible = True + divPrePolizas.Visible = False UPMovs.Update() End If @@ -936,12 +936,15 @@ Partial Class ContabilidadC_RegPrePolizaS End If 'validaciones - If Not (TotalCargos = TotalAbonos AndAlso (GvPrePoliza.Rows.Count > 0 Or GvMov.Rows.Count > 0)) AndAlso UsuarioActual.CveRol <> 1 Then + If ((GvPrePoliza.Visible AndAlso GvPrePoliza.Rows.Count = 0) OrElse ((GvMov.Visible AndAlso GvMov.Rows.Count = 0))) Then + Alert(" No se han especificado partidas", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + If (TotalCargos <> TotalAbonos) Then Alert($"La suma de los movimientos no son iguales ({TotalCargos}-{TotalAbonos})", TipoMensaje.MsgAdvertencia) Exit Sub End If - If Not CvePrePoliza > 0 Then For Each Gvr As GridViewRow In GvMov.Rows @@ -1119,10 +1122,9 @@ Partial Class ContabilidadC_RegPrePolizaS If CveIE > 0 AndAlso gvr.DataKey("CveConceptoContable").ToEntero = 30 Then MensajeAlert.AppendFormat("

Folio Bancario: {1}", CveIE, FolioIE) End If - Next - If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePolizaInsertada, 1) Then + If MsgError = "" AndAlso Not ObjMov.ValidacionesPrePoliza(CvePrePolizaInsertada, UsuarioActual) Then If ObjMov.ValorPolizaDescuadre > 0 Then GuardaLogAD($"Contabilidad/RegPrePolizas | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePolizaInsertada}", "LogPrePolizas") MsgError = ObjMov.MensajePolizaDescuadre