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