-- txto concepto pago prepoliza

Compras/Compras.aspx.vb

@@ -4899,7 +4899,7 @@ Partial Class Compras_Compras
 
                                         ''POLIZA COMPROMETIDO SOLO SI NO SE VINCULA OC
                                         If HdnVCveOC.Value.ToEntero > 0 Then
-                                           
+
                                             IDPolizaComprometido = 1
                                             TotalPorDevengar = TotalPorDevengar * 2
                                         Else
@@ -13670,8 +13670,14 @@ Partial Class Compras_Compras
         End If
     End Sub
     Protected Sub BtnCancelarCompra2_Click(sender As Object, e As EventArgs)
+
         RegistraScript("$('#DivCancelarCompra').modal('hide');")
 
+        If (Not UsuarioActual.TienePermisoProceso(315)) And GvInvMov.Rows.Count > 0 Then
+            Alert("La compra no se puede cancelar debido a que tiene movimientos de almacén.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         Dim ObjComprasComprobacion As New ClsCompras
         If ObjComprasComprobacion.GetComprasPagosConciliados(CveCompra, UsuarioActual.CveEmpresa) Then
 
@@ -13694,6 +13700,9 @@ Partial Class Compras_Compras
         ObjComprasComprobacion.Dispose()
         Dim cvemovimientoentrada As Integer = -1
 
+
+
+
         'DEVOLUCIÓN AUTOMATICA
         If CheckDevAuto.Checked Then
             Dim ErrorMovInv As Boolean = False
@@ -13757,6 +13766,7 @@ Partial Class Compras_Compras
             ObjCompra.Dispose()
         End If
 
+
         Dim ObjAC As ClsContPAQi = Nothing
         If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") AndAlso UsuarioActual.Empresa.TipoContabilidad = 2 Then
             ObjAC = New ClsContPAQi(UsuarioActual.Empresa)