Inventarios/InventarioFisico.aspx.vb

@@ -135,6 +135,16 @@ Partial Class Inventarios_InventarioFisico
         UpProductosServicios.Update()
         UPPPSExcluye.Update()
     End Sub
+
+    Private Sub CargaGvProveedores()
+        Dim ObjInventario As New ClsInventarios()
+        If ObjInventario.GetInventarioFisicoDetallesProveedores(HdnID.Value, UsuarioActual.CveEmpresa) Then
+            GvProveedor.DataSource = ObjInventario.DtResultados.FiltraParametros("Incluye = 1")
+        End If
+        ObjInventario.Dispose()
+        GvProveedor.DataBind()
+        UpProveedor.Update()
+    End Sub
     Private Sub CargaDdlSubProyectos()
         CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
         CargarCentrosDeCosto(Nothing, DdlFiltroSubProyecto, Nothing, LblFiltroSubProyecto)
@@ -316,6 +326,7 @@ Partial Class Inventarios_InventarioFisico
 
 #End Region
 
+#Region "PROVEEDORES"
     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)
@@ -348,6 +359,7 @@ Partial Class Inventarios_InventarioFisico
         GvProveedor.DataBind()
         UpProveedor.Update()
     End Sub
+#End Region
 
 #Region "INVENTARIO FISICO"
     Public Sub Delete_Click(sender As Object, e As EventArgs)
@@ -366,6 +378,12 @@ Partial Class Inventarios_InventarioFisico
 
     Public Sub Edit_Click(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        DdlProductosServicios.ddl.SelectedValueExist(-1)
+        DdlProveedor.ddl.SelectedValueExist(-1)
+        DdlPSExcluye.ddl.SelectedValueExist(-1)
+        DdlClasificacion.SelectedValueExist(-1)
+        DdlClasificacionExcluida.SelectedValueExist(-1)
+
         tDTClasif.Rows.Clear()
         tDTClasifExcluye.Rows.Clear()
         tDTPS.Rows.Clear()
@@ -392,10 +410,12 @@ Partial Class Inventarios_InventarioFisico
         CargaGvAlmacen()
         CargaGvClasificacion()
         CargaGvProductosServicios()
+        CargaGvProveedores()
         tDTClasif = GvClasificacion.DataSource
         tDTClasifExcluye = GvClasificacionExcluida.DataSource
         tDTPS = GvPS.DataSource
         tDTPSExcluye = GvPSExcluye.DataSource
+        tDTProv = GvProveedor.DataSource
         tALM = GvAlmacen.DataSource
         UpAddInventarioFisico.Update()
         RegistraScript(String.Format("$('#{0}').modal('show');", "divAddInventarioFisico"))
@@ -413,8 +433,16 @@ Partial Class Inventarios_InventarioFisico
             tDTPSExcluye.Rows.Clear()
             tDTClasifExcluye.Rows.Clear()
             tALM.Rows.Clear()
+            tDTProv.Rows.Clear()
         End If
 
+        DdlProductosServicios.ddl.SelectedValueExist(-1)
+        DdlPSExcluye.ddl.SelectedValueExist(-1)
+        DdlProveedor.ddl.SelectedValueExist(-1)
+
+        DdlClasificacion.SelectedValueExist(-1)
+        DdlClasificacionExcluida.SelectedValueExist(-1)
+
         HdnModalidad.Value = "A"
         UppInventarioFisico.Update()
         BtnAgregarInventarioFisico.Text = "Agregar"
@@ -431,6 +459,8 @@ Partial Class Inventarios_InventarioFisico
         GvPS.DataBind()
         GvPSExcluye.DataSource = Nothing
         GvPSExcluye.DataBind()
+        GvProveedor.DataSource = Nothing
+        GvProveedor.DataBind()
         UpAddInventarioFisico.Update()
         RegistraScript("$('#divAddInventarioFisico').modal('show');")