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