RepAnexoCatalogoCC correciones, pop buscar existencia se agrega buscar por serie

Inventarios/PopUpExistenciasAlmacen.aspx.vb

@@ -46,6 +46,10 @@ Partial Class Inventarios_Default
                 DivSucursal.Visible = True
             End If
 
+            If UsuarioActual.CveRol = 1 Then
+                LnkBsucarSerie.Visible = True
+            End If
+
         End If
     End Sub
     Private Sub InicializaValores()
@@ -292,4 +296,30 @@ Partial Class Inventarios_Default
         Return False
     End Function
 
+
+    Protected Sub LnkBsucarSerie_Click(sender As Object, e As EventArgs)
+
+        GvPSSerie.DataSource = Nothing
+        GvPSSerie.DataBind()
+        UpModalBuscarPorSerie.Update()
+        RegistraScript("$('#ModalBuscarPorSerie').modal('show');")
+
+    End Sub
+
+
+    Protected Sub BtnBuscarPorSerie_Click(sender As Object, e As EventArgs)
+
+        Dim ObjInventario As New ClsInventarios
+
+        If ObjInventario.GetProductoPorSerie(TxtBuscarPorSerie.Text, UsuarioActual.Empresa.CveEmpresa) Then
+            GvPSSerie.DataSource = ObjInventario.DtResultados
+        End If
+
+        ObjInventario.Dispose()
+        GvPSSerie.DataBind()
+
+        UpModalBuscarPorSerie.Update()
+
+    End Sub
+
 End Class