Proveedores Actualiza limite de drédito

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