No Eliminar Mov si esta Contabilizada

Inventarios/EntradasSalidas.aspx.vb

@@ -876,6 +876,17 @@ Partial Class Inventarios_EntradasSalidas
             TxtObservaciones.Enabled = True
         End If
 
+        Dim ObjContabilidad As New ClsContabilidad
+        If ObjContabilidad.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then
+            Dim dr As DataRow = ObjContabilidad.DtResultados.FiltroPrimero("")
+            If dr IsNot Nothing Then
+                If dr("IdPoliza").ToString.ToEntero > 0 Then
+                    BtnEliminar.Visible = False
+                End If
+            End If
+        End If
+        ObjContabilidad.Dispose()
+
         'SI TIENE PREPOLIZA NO SE DEBE PODER EDITAR
         If Mov.TienePrePoliza > 0 Then
             '[IPP] Se invalida por necesidad de JAM de modificar fechas para cuadrar con CIFRA - 19Abril2018