al darle click al label proveedor hay una propiedad que toma valor 305 si el label es acreedor

Compras/Compras.aspx.vb

@@ -1102,6 +1102,15 @@ Partial Class Compras_Compras
         End Set
     End Property
 
+    Private Property CveConceptoContable As Integer
+        Get
+            Return ViewState("CveConceptoContable").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveConceptoContable") = value
+        End Set
+    End Property
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             'ImgBtnBuscarOC.Attributes.Add("data-toggle", "tooltip")
@@ -19338,4 +19347,14 @@ Partial Class Compras_Compras
 
     End Sub
 
+    Public Sub LblProveedor_OnClick(sender As Object, e As EventArgs) Handles LblProveedor.Click
+        If LblProveedor.Text = "Proveedor:" Then
+            LblProveedor.Text = "Acreedor:"
+            CveConceptoContable = 305
+        Else
+            LblProveedor.Text = "Proveedor:"
+            CveConceptoContable = 5
+        End If
+    End Sub
+
 End Class