EMD - poder registrar compra manual, como cuando es reembolso.

Bancos/DepositosCaja.aspx.vb

@@ -488,7 +488,7 @@ Partial Class Bancos_DepositosCaja
     Private Function ValidaCobranza() As Boolean
         Dim Respuesta As Boolean = False
 
-        If UsuarioActual.CveEmpresa.Contiene(195) Then
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
 
             Dim ObjMovtos As New ClsMovimientos()
             Dim FechaI, FechaF As Date
@@ -504,7 +504,7 @@ Partial Class Bancos_DepositosCaja
                     Respuesta = True
                 Else
                     Respuesta = False
-                    Alert("Se detectaron cobros pendientes.", TipoMensaje.MsgAdvertencia)
+                    Alert("No se puede realizar el depósito, ya que hay cobros pendientes por aplicar.", TipoMensaje.MsgAdvertencia)
                 End If
 
             Else

Compras/Compras.aspx.vb

@@ -11735,7 +11735,42 @@ Partial Class Compras_Compras
     End Sub
     Protected Sub RBLPago_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RBLPago.SelectedIndexChanged
         CambiaTipoPago(True)
+
+        ValidaPagoSinXML()
+
     End Sub
+
+    Private Sub ValidaPagoSinXML()
+
+        If CveFactura <= 0 And CveCompra <= 0 Then
+
+            If UsuarioActual.Empresa.Funcionalidad(123) <> "" And Not UsuarioActual.TienePermisoProceso(156) Then
+                If Not ValidaCierrePeriodo() Then
+                    Alert("El periodo de la compra actual ya se encuentra cerrado. No podra registrar la compra.", TipoMensaje.MsgAdvertencia)
+                    BtnGuardar.Visible = False
+                    UpFacturar.Update()
+                    Exit Sub
+                End If
+            End If
+
+            If UsuarioActual.TienePermisoProceso(365) Then
+
+                BtnGuardar.Visible = False
+
+                If RBLPago.SelectedValue.ToEntero = 3 Then
+                    BtnGuardar.Visible = True
+                End If
+
+            Else
+                BtnGuardar.Visible = True
+            End If
+
+        End If
+
+        UpFacturar.Update()
+
+    End Sub
+
     Private Sub CambiaTipoPago(MostrarModal As Boolean)
         DdlPersonalReembolso.Visible = False
         DdlCuentaCajaChicaReembolso.Visible = False