Cambios en folios de garantia

Acumuladores/CatFoliosGarantia.aspx.vb

@@ -223,10 +223,9 @@ Partial Class Acumuladores_CatFoliosGarantia
         LblFolio.Text = GvRow.DataKey("FolioGarantia")
 
         Using ObjAcum As New ClsAcumuladores
-            If ObjAcum.GetFoliosGarantiasDetalle(CveFolioGarantia) Then
+            If ObjAcum.GetFoliosGarantiasDetalle(CveFolioGarantia, CveEstatusConsecutivo:=DdlEstatusConsecutivo.SelectedValue.ToEntero()) Then
                 GvGarantiasDetalle.DataSource = ObjAcum.DtResultados
-                HplGenerarSalida.NavigateUrl = "/Inventarios/TraspasoAlmacen.aspx?CveFolioGarantia=" & CveFolioGarantia
-
+                HplGenerarSalida.NavigateUrl = "/Inventarios/TraspasoAlmacen.aspx?CveFolioGarantia=" & CveFolioGarantia
             End If
         End Using
         GvGarantiasDetalle.DataBind()
@@ -313,4 +312,15 @@ Partial Class Acumuladores_CatFoliosGarantia
     Protected Sub BtnGenerarSalida_Click(sender As Object, e As EventArgs)
 
     End Sub
+    Protected Sub DdlEstatusConsecutivo_SelectedIndexChanged(sender As Object, e As EventArgs)
+        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
+            End If
+        End Using
+        GvGarantiasDetalle.DataBind()
+
+        UpGarantiasDetalle.Update()
+    End Sub
 End Class