ClsContpaQ Correcion, Efacturas , mod extenciones error en miles numeros a letra

Compras/eFacturas.aspx.vb

@@ -2822,11 +2822,7 @@ Partial Class Compras_eFacturas
         Dim CveFacturaComplemento As Integer = gvRow.DataKey("CveFactura").ToString.ToEntero
         Dim CveComplementoPagoCompra As Integer = gvRow.DataKey("CveComplementoPagoCompra").ToString.ToEntero
 
-        If CveComplementoPagoCompra > 0 Then
-            DVMensajecomplementoVinculado.Visible = True
-        Else
-            DVMensajecomplementoVinculado.Visible = False
-        End If
+
 
         Dim SerieFolioIE As String = ""
         Dim UUIDPago As String = ""
@@ -3279,6 +3275,15 @@ Partial Class Compras_eFacturas
         End If
 
 
+
+        If CveComplementoPagoCompra > 0 Then
+            DVMensajecomplementoVinculado.Visible = True
+            BtnVincularPago.Visible = False
+        Else
+            DVMensajecomplementoVinculado.Visible = False
+        End If
+
+
         UpVincularPago.Update()