No Eliminar Mov si esta Contabilizada

Inventarios/EntradasSalidas.aspx.vb

@@ -588,8 +588,8 @@ Partial Class Inventarios_EntradasSalidas
             If DtMov.Rows(0)("CvePrePoliza").ToString.ToEntero > 0 Then
                 HplPrePoliza.Visible = True
                 HplPrePoliza.NavigateUrl = String.Format("/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}", DtMov.Rows(0)("CvePrePoliza"))
-                CvePrePoliza = DtMov.Rows(0)("CvePrePoliza").ToString.ToEntero
-            Else
+                CvePrePoliza = DtMov.Rows(0)("CvePrePoliza").ToString.ToEntero
+            Else
                 If UsuarioActual.CveRol = 1 Then
                     BtnGeneraPrepoliza.Visible = True
                 End If
@@ -874,7 +874,18 @@ Partial Class Inventarios_EntradasSalidas
             TxtFecha.Enabled = True
             ImgFecha.Enabled = True
             TxtObservaciones.Enabled = True
-        End If
+        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