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

- cambio a global

Browse Source
This commit is contained in:
rrene
2024-05-21 15:49:21 -07:00
parent 7e8b361932
commit eae9a967a2
1 changed files with 22 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
PortalProveedor/PortalProveedor.aspx.vb
View File

@@ -302,21 +302,27 @@ Partial Class Portal_PortalProveedor
#Region "C A R G A - D A T O S"
Protected Sub CargaDatos()
GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimero($"CveProveedor = {CveProveedor}")
Dim ObjProveedor As New ClsCompProveedores()
If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", 1, UsuarioActual.CveEmpresa) Then
If ObjProveedor.DtResultados.Rows.Count > 0 Then
Dim drp As DataRow = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimero($"CveProveedor = {CveProveedor}")
'CxP
LtlProveedor.Text = ObjProveedor.RazonSocial
lblLimiteCredito.Text = ObjProveedor.LimiteCredito.ToString
lblPlazoCobranza.Text = ObjProveedor.PlazoPago.ToString
Else
Alert("Ocurrió un error al cargar los datos.", TipoMensaje.MsgError)
End If
If drp IsNot Nothing Then
LtlProveedor.Text = drp("RazonSocial").ToString
lblLimiteCredito.Text = drp("LimiteCredito").ToString.ToDecimal.FormatoNumero
lblPlazoCobranza.Text = drp("PlazoPago").ToString
End If
ObjProveedor.Dispose()
'Dim ObjProveedor As New ClsCompProveedores()
'If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", 1, UsuarioActual.CveEmpresa) Then
' If ObjProveedor.DtResultados.Rows.Count > 0 Then
' 'CxP
' LtlProveedor.Text = ObjProveedor.RazonSocial
' lblLimiteCredito.Text = ObjProveedor.LimiteCredito.ToString
' lblPlazoCobranza.Text = ObjProveedor.PlazoPago.ToString
' Else
' Alert("Ocurrió un error al cargar los datos.", TipoMensaje.MsgError)
' End If
'End If
'ObjProveedor.Dispose()
End Sub
@@ -357,9 +363,9 @@ Partial Class Portal_PortalProveedor
If ObjMovtos.GetCxPProveedor(CveProveedor, "-1", "-1", -1, -1, -1, -1, -1, -1, DdlProveedorSucursalCxCSucursal.SelectedValue.ToEntero, -1) Then
GvCxP.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'", "Moneda,OrdenVencimiento, FechaVencimiento")
'solo tomo los 10 ultimos mas el totalizador general
GvCxP.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'", "Moneda,OrdenVencimiento, FechaVencimiento")
'solo tomo los 10 ultimos mas el totalizador general
Dim dt As DataTable = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'")
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then