AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- al actualizar datos de créditos, que se actualice el globaldtproveedores

Browse Source
This commit is contained in:
rrene
2025-05-13 09:22:06 -07:00
parent 3844ab37e7
commit f6ef4c58d1
1 changed files with 2 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Compras/Proveedores.aspx.vb
View File

@@ -4180,18 +4180,14 @@ Partial Class Compras_Proveedores
Dim ObjPro As New ClsCompProveedores Dim ObjPro As New ClsCompProveedores
If ObjPro.UpdateProveedorLimiteCredito(CveProveedor, TxtLimiteCredito.Text.ToDecimal, TxtPlazoCobranza.Text.ToEntero, ChkUsaLimiteCredito.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, If ObjPro.UpdateProveedorLimiteCredito(CveProveedor, TxtLimiteCredito.Text.ToDecimal, TxtPlazoCobranza.Text.ToEntero, ChkUsaLimiteCredito.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
DdlTipoFechaVencimiento.SelectedValue.ToEntero) Then DdlTipoFechaVencimiento.SelectedValue.ToEntero) Then
Alert("Límite de crédito modificado correctamente.")
Alert("Limite de crédito modificado correctamente.")
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddParametros")) RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddParametros"))
GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing
End If End If
ObjPro.Dispose() ObjPro.Dispose()
Else Else
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddParametros")) RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddParametros"))
End If End If
UPPCxP.Update() UPPCxP.Update()
UpParametros.Update() UpParametros.Update()