From d9b8c5bae682ff9a8cf5fb78114442095da051fd Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Fri, 18 Feb 2022 15:17:11 -0700
Subject: [PATCH] Mejora validacion de naturaleza

---
 Contabilidad/RegPrePolizaS.aspx.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index 51becc774..0f6736094 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -2461,7 +2461,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                         End If
 
 
-                        If Row("Abono").ToString.ToDecimal > 0 And TipoNaturalesa = "Ing" Then
+                        If Row("Abono").ToString.ToDecimal > 0 And TipoNaturalesa = "Ing" Or Row("Cargo").ToString.ToDecimal > 0 And TipoNaturalesa = "Egs" Then
                             Alert($"El movimiento con cuenta: {NombreCuenta} , importe: {ImporteDocumento.ToString("###,###,###.00")}  (registro {ContadorRegistros}), no tiene la naturaleza correcta", TipoMensaje.MsgAdvertencia)
                             Exit Sub
                         End If
@@ -2571,7 +2571,7 @@ Partial Class ContabilidadC_RegPrePolizaS
             End If
 
             Return CType(ViewState("ArregloCuentasFolios"), DataTable)
-    End Get
+        End Get
         Set(value As DataTable)
             ViewState("ArregloCuentasFolios") = value
         End Set