From 735d1214f2f0a32bc824c8c2c900b05815e1e506 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Fri, 10 May 2024 10:53:48 -0700
Subject: [PATCH] =?UTF-8?q?Proveedores=20Actualiza=20limite=20de=20dr?=
 =?UTF-8?q?=C3=A9dito?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/ClsCompProveedores.vb | 23 +++++++++++++++++++++++
 Compras/Proveedores.aspx.vb    | 19 ++++++++++++++++++-
 2 files changed, 41 insertions(+), 1 deletion(-)

diff --git a/App_Code/ClsCompProveedores.vb b/App_Code/ClsCompProveedores.vb
index d30f714a2..23044581c 100644
--- a/App_Code/ClsCompProveedores.vb
+++ b/App_Code/ClsCompProveedores.vb
@@ -524,6 +524,29 @@ Public Class ClsCompProveedores
         Return Retorno
     End Function
 
+    Public Function UpdateProveedorLimiteCredito(CveProveedor As Integer, LimiteCredito As Decimal, PlazoPago As Integer, UsaLimiteCredito As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Comp_ProveedorLimiteCreditoUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@LimiteCredito", SqlDbType.Money).Value = LimiteCredito
+            .Add("@PlazoPago", SqlDbType.Int).Value = PlazoPago
+            .Add("@UsaLimiteCredito", SqlDbType.Bit).Value = UsaLimiteCredito
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al Actualizar el limite de crédito del Proveedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
     Public Function UpdateProveedorPagoElectronico(EstatusPagoElectronico As Boolean, CveUsuario As Integer, CveProveedor As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Comp_ProveedorUpdatePagoElectronico")
diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb
index 285232dd5..9835bc81d 100644
--- a/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -4139,8 +4139,10 @@ Partial Class Compras_Proveedores
     End Sub
 
     Private Sub LnkAddParametros_Click(sender As Object, e As EventArgs) Handles LnkAddParametros.Click
+
         LblLimiteCredito.Text = TxtLimiteCredito.Text.FormatoNumero
         LblPlazoCobranza.Text = TxtPlazoCobranza.Text
+
         If LblLimiteCredito.Text.ToDouble > 0 Then
             TdSaldo.Visible = True
             TdSaldo2.Visible = True
@@ -4149,9 +4151,24 @@ Partial Class Compras_Proveedores
             TdSaldo.Visible = False
             TdSaldo2.Visible = False
         End If
+
+        If CveProveedor > 0 Then
+            Dim ObjPro As New ClsCompProveedores
+            If ObjPro.UpdateProveedorLimiteCredito(CveProveedor, TxtLimiteCredito.Text.ToDecimal, TxtPlazoCobranza.Text.ToEntero, ChkUsaLimiteCredito.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                Alert("Limite de crédito modificado correctamente.")
+                RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddParametros"))
+            End If
+            ObjPro.Dispose()
+        Else
+            RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddParametros"))
+        End If
+
+
+
+
         UPPCxP.Update()
         UpParametros.Update()
-        RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddParametros"))
+
     End Sub
 
     Private Sub LnkCuentasBancarias_Click(sender As Object, e As EventArgs) Handles LnkCuentasBancarias.Click