agregando busqueda de almacen

Inventarios/PopUpExistenciasAlmacen.aspx.vb

@@ -65,6 +65,13 @@ Partial Class Inventarios_Default
             DDlPS.DataBind()
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
+            DivMed.Visible = True
+            DivRin.Visible = True
+            CargarMedRin()
+            DivMedRin.Visible = True
+            DivPS.Visible = False
+        End If
         Dim Txt As String = IfNull(Request("Txt"), "").ToString
         If Txt <> "" Then LblTitulo.Text = String.Format("Búsqueda de {0}", Txt)
 
@@ -80,7 +87,11 @@ Partial Class Inventarios_Default
     End Sub
 
     Protected Sub BtnBuscar_Click(sender As Object, e As System.EventArgs) Handles BtnBuscar.Click
-        CargaDatos(DDlPS.SelectedValue.ToEntero, 1)
+        If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
+            CargarDatosMedRin()
+        Else
+            CargaDatos(DDlPS.SelectedValue.ToEntero, 1)
+        End If
     End Sub
     Private Sub CargaDatos(CvePS As Integer, Tipo As Integer)
         Dim ObjInventarios As New ClsInventarios()
@@ -162,6 +173,19 @@ Partial Class Inventarios_Default
         End If
     End Sub
 
+    Private Sub GvMedRin_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvMedRin.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.DBCampo("CveAlmacen") = "" Then
+                e.Row.CssClass = "Totales"
+            End If
+
+            If UsuarioActual.CveEmpresa = 119 Then
+                GV.Columns(5).Visible = True
+            End If
+        End If
+    End Sub
+
+
 
 #Region " BUSCA | CODIGO - SERIE  "
     Protected Sub BtnCodigoPS_Click(sender As Object, e As EventArgs)
@@ -178,11 +202,38 @@ Partial Class Inventarios_Default
             Exit Sub
         End If
 
+
         CargaDatos(DrPS("CvePS").ToString.ToEntero, 2)
 
+
         TxtCodigoPS.Text = ""
         TxtCodigoPS.Focus()
     End Sub
 #End Region
 
+    Private Sub CargarMedRin()
+        Dim ObjGral As New ClsGenerales
+        If ObjGral.GetMedidas(UsuarioActual.CveEmpresa) Then
+            DdlMedidas.DataSource = ObjGral.DtResultados
+            If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then
+                DdlRin.DataSource = ObjGral.DtResultados
+            End If
+        End If
+        ObjGral.Dispose()
+        DdlMedidas.DataBind()
+        DdlRin.DataBind()
+        DdlMedidas.Items.Insert(0, New ListItem("-", "-1"))
+        DdlRin.Items.Insert(0, New ListItem("-", "-1"))
+    End Sub
+
+    Private Sub CargarDatosMedRin()
+        Dim ObjInventarios As New ClsInventarios
+        If ObjInventarios.GetExistenciasMedRin(DDlPS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlRin.SelectedValue.ToEntero, DdlMedidas.SelectedValue.ToEntero) Then
+            GvMedRin.DataSource = ObjInventarios.DtResultados
+        End If
+        ObjInventarios.Dispose()
+        GvMedRin.DataBind()
+        UPDatos.Update()
+    End Sub
+
 End Class