diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index 2eeef22a0..edfc29a1a 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -468,11 +468,15 @@ Partial Class ContabilidadC_RegPrePolizaS
                 DtMovimientos = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
 
                 If dr("Modulo").ToString.Contiene("Banc/FluctuaA", "Banc/FluctuaC", "Banc/FluctuaV", "Banc/FluctuaFilial") Then
-
                     BtnEliminar.Enabled = False
                     BtnEliminar.ToolTip = "No se puede eliminar al prepóliza, eliminarlos desde el módulo"
                 End If
 
+                If DtMovimientos IsNot Nothing AndAlso DtMovimientos.FiltraParametros("CveConceptoContable = 30 AND Contabilizable = 1").Rows.Count > 0 Then
+                    BtnEliminar.Enabled = False
+                    BtnEliminar.ToolTip = "No se puede eliminar al prepóliza, eliminarla desde el módulo de Bancos"
+                End If
+
                 GvPrePoliza.DataSource = DtMovimientos
                 If Not DtMovimientos.Columns.Contains("IdMov") Then
                     Dim workColumn As DataColumn = DtMovimientos.Columns.Add("IdMov", GetType(Integer))