diff --git a/PortalProveedor/PortalProveedor.aspx.vb b/PortalProveedor/PortalProveedor.aspx.vb
index 8772990de..d1ae59790 100644
--- a/PortalProveedor/PortalProveedor.aspx.vb
+++ b/PortalProveedor/PortalProveedor.aspx.vb
@@ -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