Correciones en formato de RepProductosServicios Ventas

Se puso que  se desbloquearala prepoliza al eliminar la poliza en Ventas, EntradasSalidas, PopUpAuxiliar, Compras y IE

Ventas/RepProductosServicios.aspx.vb

@@ -476,8 +476,8 @@ Partial Class Ventas_RepProductosServicios
             Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
             Dim params As New List(Of ReportParameter)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
-            params.Add(New ReportParameter("FechaInicio", FechaI.ToShortDateString))
-            params.Add(New ReportParameter("FechaFin", FechaF.ToShortDateString))
+            params.Add(New ReportParameter("FechaInicio", If(txtFechaI.Text <> "", FechaI.ToShortDateString, "")))
+            params.Add(New ReportParameter("FechaFin", If(txtFechaF.Text <> "", FechaF.ToShortDateString, "")))
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))

Ventas/Ventas.aspx.vb

@@ -14607,6 +14607,12 @@ Partial Class Ventas
             End If
         End If
 
+        If Not ErrorMovimiento Then
+            If Not ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
+                ErrorMovimiento = True
+            End If
+        End If
+
         If Not ErrorMovimiento Then
             Alert("La póliza ha sido desvinculada y eliminada con éxito.", TipoMensaje.MsgInformacion)
             ObjAC.Commit()