From 75ab9af48b1a372b74f941aaa0d54dfd040cceb9 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Tue, 4 Jun 2024 10:55:57 -0700
Subject: [PATCH] EMD - poder registrar compra manual, como cuando es
 reembolso.

---
 Bancos/DepositosCaja.aspx.vb |  4 ++--
 Compras/Compras.aspx.vb      | 35 +++++++++++++++++++++++++++++++++++
 2 files changed, 37 insertions(+), 2 deletions(-)

diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb
index e99be126b..7542fe598 100644
--- a/Bancos/DepositosCaja.aspx.vb
+++ b/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
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 7f44dc9dc..8410b48e6 100644
--- a/Compras/Compras.aspx.vb
+++ b/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