Ocultar botón de 'Generar Salida' dependiendo si el folio ya tiene un movimiento de salida existente

+ Col Mov. Salida

CAMBIOS BD (VENTAS):
PA_Acum_FoliosGarantiaGet, left join Inv_Movimientos
+ Cols CveMovimiento, Folio

Acumuladores/CatFoliosGarantia.aspx.vb

@@ -20,6 +20,21 @@ Partial Class Acumuladores_CatFoliosGarantia
 
     End Property
 
+    Private Property CveMovimiento As Integer
+        Get
+            If ViewState("CveMovimiento") IsNot Nothing Then
+                Return ViewState("CveMovimiento").ToString.ToEntero
+            Else
+                Return -1
+            End If
+
+        End Get
+        Set(value As Integer)
+            ViewState("CveMovimiento") = value
+        End Set
+
+    End Property
+
     Private Property Actualizar As Boolean
         Get
             If Not ViewState("Actualizar") Is Nothing Then
@@ -219,13 +234,14 @@ Partial Class Acumuladores_CatFoliosGarantia
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
 
         CveFolioGarantia = GvRow.DataKey("CveFolioGarantia")
-
+        CveMovimiento = IIf(GvRow.DataKey("CveMovimiento") <> "", GvRow.DataKey("CveMovimiento"), -1)
         LblFolio.Text = GvRow.DataKey("FolioGarantia")
 
         Using ObjAcum As New ClsAcumuladores
             If ObjAcum.GetFoliosGarantiasDetalle(CveFolioGarantia, CveEstatusConsecutivo:=DdlEstatusConsecutivo.SelectedValue.ToEntero()) Then
                 GvGarantiasDetalle.DataSource = ObjAcum.DtResultados
                 HplGenerarSalida.NavigateUrl = "/Inventarios/TraspasoAlmacen.aspx?CveFolioGarantia=" & CveFolioGarantia
+                HplGenerarSalida.Visible = (CveMovimiento = -1)
             End If
         End Using
         GvGarantiasDetalle.DataBind()