diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index cf7488197..67887b226 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -3146,6 +3146,8 @@ Partial Class Compras_Compras
 
                 ViewState("CveProveedor") = ObjProveedor.CveProveedor
                 ViewState("CveTipoProveedor") = ObjProveedor.CveTipoProveedor
+                If ObjProveedor.CveTipoProveedor = 1 Then LblProveedor.Text = "Proveedor:" Else LblProveedor.Text = "Acreedor:"
+                CveTipoConcepto = ObjProveedor.CveTipoProveedor
 
                 'Conta ContPAQ
                 ViewState("CtaProveedor") = ObjProveedor.IdCtaContProveedores