Filtro in inventario fisico: proveedores

Inventarios/InventarioFisico.aspx.vb

@@ -24,6 +24,14 @@ Partial Class Inventarios_InventarioFisico
             ViewState("tDTClasif") = value
         End Set
     End Property
+    Private Property tDTProv As DataTable
+        Get
+            Return If(IsNothing(ViewState("tDTProv")), Nothing, CType(ViewState("tDTProv"), DataTable))
+        End Get
+        Set(value As DataTable)
+            ViewState("tDTProv") = value
+        End Set
+    End Property
     Private Property tDTClasifExcluye As DataTable
         Get
             Return If(IsNothing(ViewState("tDTClasifExcluye")), Nothing, CType(ViewState("tDTClasifExcluye"), DataTable))
@@ -67,11 +75,13 @@ Partial Class Inventarios_InventarioFisico
         If Not IsPostBack Then
             CargaDdlSubProyectos()
             CargaDdlClasificacion()
+            CargDdlProveedor()
             CargaDdlProductosServicios()
             CargDdlAlmacen()
             CreaTmpClasificaciones()
             CreaTmpProductosServicios()
             CreaTmpAlmacen()
+            CreaTmpProveedores()
             CargaDatos(UsuarioActual.CveEmpresa)
 
         End If
@@ -153,6 +163,25 @@ Partial Class Inventarios_InventarioFisico
         DdlAlmacen.DataBind()
     End Sub
 
+    Private Sub CargDdlProveedor()
+
+        If (UsuarioActual.Empresa.Funcionalidad(105) = "1") Then
+            DdlProveedor.setEsWebService(True)
+            DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
+            DdlProveedor.SelectedText = "Todos"
+            DdlProveedor.SelectedValue = "-1"
+        Else
+            DdlProveedor.setEsWebService(False)
+            DdlProveedor.ddl.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+            DdlProveedor.ddl.DataBind()
+            DdlProveedor.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
+        End If
+
+
+
+    End Sub
+
+
 #End Region
 
 #Region "PRODUCTOS SERVICIOS"
@@ -287,6 +316,39 @@ Partial Class Inventarios_InventarioFisico
 
 #End Region
 
+    Private Sub BtnAgregarProveedor_Click(sender As Object, e As EventArgs) Handles BtnAgregarProveedor.Click
+        If DdlProveedor.SelectedValue = -1 Then
+            Alert("Tienes seleccionada la opcion 'Todos'.", TipoMensaje.MsgInformacion)
+            GvPS.DataSource = Nothing
+            GvPS.DataBind()
+            tDTPS.Rows.Clear()
+        Else
+            Dim Row As DataRow = Nothing
+            Row = tDTProv.NewRow
+            Row("CveProveedor") = DdlProveedor.SelectedValue.ToEntero
+            Row("RazonSocial") = DdlProveedor.SelectedText
+            tDTProv.Rows.Add(Row)
+            GvProveedor.DataSource = tDTProv
+            GvProveedor.DataBind()
+            UpProveedor.Update()
+        End If
+    End Sub
+
+    Private Sub CreaTmpProveedores()
+        tDTProv = New DataTable
+        tDTProv.Columns.Add("CveProveedor", GetType(Integer))
+        tDTProv.Columns.Add("RazonSocial", GetType(String))
+        tDTProv.Columns.Add("Incluye", GetType(Integer))
+    End Sub
+
+    Protected Sub DeleteProveedor_Click(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        tDTProv.Rows(GvRow.RowIndex.ToEntero).Delete()
+        GvProveedor.DataSource = tDTProv
+        GvProveedor.DataBind()
+        UpProveedor.Update()
+    End Sub
+
 #Region "INVENTARIO FISICO"
     Public Sub Delete_Click(sender As Object, e As EventArgs)
         Dim ObjInventario As New ClsInventarios()
@@ -422,6 +484,16 @@ Partial Class Inventarios_InventarioFisico
                     Next
                 End If
 
+                If ErrorClasif = False Then
+                    For Each Gvr As GridViewRow In GvProveedor.Rows
+                        If Not ObjInventario.AddInventarioFisicoProveedores(HdnID.Value, Gvr.DataKey("CveProveedor").ToEntero, True) Then
+                            ErrorClasif = True
+                            Exit For
+                        End If
+                    Next
+
+                End If
+
                 If ErrorClasif = False And CveInventarioFisico > 0 Then
                     ObjInventario.Commit()
                     Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
@@ -450,6 +522,10 @@ Partial Class Inventarios_InventarioFisico
                     ErrorClasif = True
                 End If
 
+                If Not ObjInventario.RemoveInventarioFisicoProveedores(HdnID.Value) Then
+                    ErrorClasif = True
+                End If
+
                 If ErrorClasif = False Then
                     For Each Gvr As GridViewRow In GvAlmacen.Rows
                         If Not ObjInventario.AddInventarioFisicoAlmacenes(HdnID.Value, Gvr.DataKey("CveAlmacen").ToEntero) Then
@@ -490,6 +566,16 @@ Partial Class Inventarios_InventarioFisico
                     Next
                 End If
 
+                If ErrorClasif = False Then
+                    For Each Gvr As GridViewRow In GvProveedor.Rows
+                        If Not ObjInventario.AddInventarioFisicoProveedores(HdnID.Value, Gvr.DataKey("CveProveedor").ToEntero, True) Then
+                            ErrorClasif = True
+                            Exit For
+                        End If
+                    Next
+
+                End If
+
 
                 If ErrorClasif = False And HdnID.Value > 0 Then
                     ObjInventario.Commit()