Filtro in inventario fisico: proveedores

App_Code/ClsInventarios.vb

@@ -2440,6 +2440,50 @@ Public Class ClsInventarios
 
         Return Retorno
     End Function
+    Public Function RemoveInventarioFisicoProveedores(CveInventarioFisico As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Inv_InventarioFisicoProveedoresRemove")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+
+        Catch Ex1 As SqlException
+            Me.OnError("Ocurrió un error al eliminar el producto del servicio del inventario fisico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar el producto del servicio del inventario fisico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddInventarioFisicoProveedores(CveInventarioFisico As Integer, CveProveedor As Integer, Incluye As Boolean) As Boolean
+
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Inv_InventarioFisicoProveedoresAdd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@Incluye", SqlDbType.Bit).Value = If(Incluye, 1, 0)
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+
+        Catch Ex1 As SqlException
+            Me.OnError("Ocurrió un error al guardar el producto del servicio del inventario fisico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        Catch ex As Exception
+            OnError("Ocurrió un error al guardar el producto del servicio del inventario fisico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
 
 
     Public Function AddInventarioFisicoAlmacenes(CveInventarioFisico As Integer, CveAlmacen As Integer) As Boolean
@@ -2535,6 +2579,28 @@ Public Class ClsInventarios
         Return Retorno
     End Function
 
+    Public Function GetInventarioFisicoDetallesProveedores(CveInventarioFisico As Integer, CveEmpresa As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Inv_InventarioFisicoDetallesProveedoresGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+
+        Catch Ex1 As SqlException
+            Me.OnError("Ocurrió un error al obtener la clasificacion del inventario fisico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener la clasificacion del inventario fisico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
 
 #Region "I N V E N T A R I O - F I S I C O - D E T A L L E"
 

Compras/RepCxP.aspx

@@ -254,7 +254,7 @@
 
                     </div>
                     <div class="row" runat="server" id="divAgruparMes" visible="false">
-                        <div class="col-md-1"><span>Agrupar por meses:</span></div>
+                        <div class="col-md-1"><span>Ver por meses:</span></div>
                         <div class="col-md-1">
                             <asp:CheckBox runat="server" ID="chkAgruparMes"/>
                         </div>

Compras/RepCxP.aspx.vb

@@ -1,6 +1,8 @@
 Imports Microsoft.Reporting.WebForms
 Imports Extensiones
 Imports System.Data
+Imports GemBox.Spreadsheet
+
 Partial Class Compras_RepCxP
     Inherits ClsPaginas
 
@@ -191,7 +193,7 @@ Partial Class Compras_RepCxP
         If chkAgruparMes.Checked Then
 
             Dim monthNames As String() = {"", "Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre"}
-            GvCxP.Columns(2).Visible = True
+            GvCxP.Columns(2).Visible = False
             GvCxP.Columns(3).Visible = True
             GvCxP.Columns(4).Visible = True
             GvCxP.Columns(5).Visible = True
@@ -486,7 +488,8 @@ Partial Class Compras_RepCxP
                 FC.Add(0, " ,2,1,Titulos")
                 FC.Add(2, String.Format("Vencido,{0},1,Titulos", CantVencidos + 2))
                 FC.Add(3, String.Format("Por Vencer,{0},1,Titulos", CantPorVencer + 2))
-
+                CantVencidos = 0
+                CantPorVencer = 0
             End If
             GetMultiRowHeader(DirectCast(sender, GridView), e, FC, "Titulos")
         End If
@@ -1015,7 +1018,333 @@ Partial Class Compras_RepCxP
 
 
     Protected Sub ImgExcel_Click(sender As Object, e As System.EventArgs) Handles ImgExcel.Click
-        GenerarPDF("EXCEL")
+        Dim Mov As New ClsMovimientos
+        Dim FechaI As String = txtFechaI.Text
+        Dim FechaF As String = txtFechaF.Text
+        Dim FechaVI As String = txtFechaVI.Text
+        Dim FechaVF As String = txtFechaVF.Text
+        If txtFechaI.Text = "" Then FechaI = "-1"
+        If txtFechaF.Text = "" Then FechaF = "-1"
+        If txtFechaVI.Text = "" Then FechaVI = "-1"
+        If txtFechaVF.Text = "" Then FechaVF = "-1"
+        Dim TipoAgrupacion As Integer = IIf(chkAgruparMes.Checked, 1, -1)
+        Dim TipoDocto As String = If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM)
+        If Mov.GetCxP(FechaI, FechaF, DdlProveedor.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlProveedoresClasificaciones.SelectedValue.ToEntero, -1, DdlUsuarioResponsable.SelectedValue.ToEntero, DdlUsuarioRegistro.SelectedValue.ToEntero, DdlEstatusCompra.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero,
+                      DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveTipoProveedor:=IIf(DdlTipoProveedor.SelectedValue.ToEntero = 3, -1, DdlTipoProveedor.SelectedValue.ToEntero), Comprobaciones:=DdlComprobacion.SelectedValue.ToEntero,
+                      TipoDocto:=TipoDocto, TipoAgrupacion:=TipoAgrupacion) Then
+
+        End If
+        Dim Dr As DataRow = Mov.DtResultados.Rows(0)
+        Dim NombreArchivo As String
+        SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
+        Dim workbook As New ExcelFile()
+        Dim worksheet = workbook.Worksheets.Add("Cxp")
+        Dim Mes(12) As String
+        Dim monthNames As String() = {"", "Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre"}
+        Mes(0) = monthNames(Dr("NomMes1").ToString.ToDate.Month)
+        Mes(1) = monthNames(Dr("NomMes2").ToString.ToDate.Month)
+        Mes(2) = monthNames(Dr("NomMes3").ToString.ToDate.Month)
+        Mes(3) = monthNames(Dr("NomMes4").ToString.ToDate.Month)
+        Mes(4) = monthNames(Dr("NomMes5").ToString.ToDate.Month)
+        Mes(5) = monthNames(Dr("NomMes6").ToString.ToDate.Month)
+        Mes(6) = monthNames(Dr("NomMes7").ToString.ToDate.Month)
+        Mes(7) = monthNames(Dr("NomMes8").ToString.ToDate.Month)
+        Mes(8) = monthNames(Dr("NomMes9").ToString.ToDate.Month)
+        Mes(9) = monthNames(Dr("NomMes10").ToString.ToDate.Month)
+        Mes(10) = monthNames(Dr("NomMes11").ToString.ToDate.Month)
+        Mes(11) = monthNames(Dr("NomMes12").ToString.ToDate.Month)
+        Mes(12) = "12+"
+        If RblTipoCambio.SelectedValue = 3 And TxtEspecifico.Text <> "" Then
+            TCEspecifico = TxtEspecifico.Text
+        Else
+            TCEspecifico = -1
+        End If
+
+
+        Dim DtExcel As DataTable
+        If chkAgruparMes.Checked Then
+            DtExcel = (From row As DataRow In Mov.DtResultados.Rows
+                       Select New With
+                                        {
+                                            .GPO = row.Item("GPO"),
+                                            .Saldo = row.Item("Saldo"),
+                                            .TotalVencido = row.Item("vencido"),
+                                            .Mes1 = row.Item("Mes1"),
+                                            .Mes2 = row.Item("Mes2"),
+                                            .Mes3 = row.Item("Mes3"),
+                                            .Mes4 = row.Item("Mes4"),
+                                            .Mes5 = row.Item("Mes5"),
+                                            .Mes6 = row.Item("Mes6"),
+                                            .Mes7 = row.Item("Mes7"),
+                                            .Mes8 = row.Item("Mes8"),
+                                            .Mes9 = row.Item("Mes9"),
+                                            .Mes10 = row.Item("Mes10"),
+                                            .Mes11 = row.Item("Mes11"),
+                                            .Mes12 = row.Item("Mes12"),
+                                            .Mes13 = row.Item("Mes13"),
+                                            .TotalxVencer = row.Item("por_vencer")
+                                        }).QueryToDataTable(True)
+        Else
+            DtExcel = (From row As DataRow In Mov.DtResultados.Rows
+                       Select New With
+                        {
+                            .GPO = row.Item("GPO"),
+                            .Saldo = row.Item("Saldo"),
+                            .Columna1vencido = row.Item("Columna1"),
+                            .Columna2vencido = row.Item("Columna2"),
+                            .Columna3vencido = row.Item("Columna3"),
+                            .Columna4vencido = row.Item("Columna4"),
+                            .Columna5vencido = row.Item("Columna5"),
+                            .Columna6vencido = row.Item("Columna6"),
+                            .Columna7vencido = row.Item("Columna7"),
+                            .Columna8vencido = row.Item("Columna8"),
+                            .Columna9vencido = row.Item("Columna9"),
+                            .Columna10vencido = row.Item("Columna10"),
+                            .Columna11vencido = row.Item("Columna11"),
+                            .Columna12vencido = row.Item("Columna12"),
+                            .Columna13vencido = row.Item("Columna13"),
+                            .TotalVencido = row.Item("vencido"),
+                            .Columna1xVencer = row.Item("Columna1"),
+                            .Columna2xVencer = row.Item("Columna2"),
+                            .Columna3xVencer = row.Item("Columna3"),
+                            .Columna4xVencer = row.Item("Columna4"),
+                            .Columna5xVencer = row.Item("Columna5"),
+                            .Columna6xVencer = row.Item("Columna6"),
+                            .Columna7xVencer = row.Item("Columna7"),
+                            .Columna8xVencer = row.Item("Columna8"),
+                            .Columna9xVencer = row.Item("Columna9"),
+                            .Columna10xVencer = row.Item("Columna10"),
+                            .Columna11xVencer = row.Item("Columna11"),
+                            .Columna12xVencer = row.Item("Columna12"),
+                            .Columna13xVencer = row.Item("Columna13"),
+                            .TotalxVencer = row.Item("por_vencer")
+                        }).QueryToDataTable(True)
+        End If
+        Mov.Dispose()
+
+
+        worksheet.InsertDataTable(DtExcel, New InsertDataTableOptions() With
+                {
+                    .ColumnHeaders = True,
+                    .StartRow = 0,
+                    .StartColumn = 0
+                })
+
+        Dim columnCount = worksheet.CalculateMaxUsedColumns()
+        For i = 0 To columnCount
+            worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1))
+        Next
+
+
+        If chkAgruparMes.Checked Then
+            worksheet.Cells("A1").Value = DdlGrupo.SelectedItem.Text
+            worksheet.Cells("D1").Value = Mes(0)
+            worksheet.Cells("E1").Value = Mes(1)
+            worksheet.Cells("F1").Value = Mes(2)
+            worksheet.Cells("G1").Value = Mes(3)
+            worksheet.Cells("H1").Value = Mes(4)
+            worksheet.Cells("I1").Value = Mes(5)
+            worksheet.Cells("J1").Value = Mes(6)
+            worksheet.Cells("K1").Value = Mes(7)
+            worksheet.Cells("L1").Value = Mes(8)
+            worksheet.Cells("M1").Value = Mes(9)
+            worksheet.Cells("N1").Value = Mes(10)
+            worksheet.Cells("O1").Value = Mes(11)
+            worksheet.Cells("P1").Value = Mes(12)
+        Else
+            Dim Vencido As Integer = 0
+            Dim Xvencer As Integer = 0
+            If Dr("TC1").ToString.ToEntero = 1 Then
+                worksheet.Cells("C1").Value = Dr("NomC1").ToString
+                Vencido += 1
+            ElseIf Dr("TC1").ToString.ToEntero = 2 Then
+                worksheet.Cells("Q1").Value = Dr("NomC1").ToString
+                Xvencer += 1
+            End If
+            If Dr("TC2").ToString.ToEntero = 1 Then
+                worksheet.Cells("D1").Value = Dr("NomC2").ToString
+                Vencido += 1
+            ElseIf Dr("TC2").ToString.ToEntero = 2 Then
+                worksheet.Cells("R1").Value = Dr("NomC2").ToString
+                Xvencer += 1
+            End If
+            If Dr("TC3").ToString.ToEntero = 1 Then
+                worksheet.Cells("E1").Value = Dr("NomC3").ToString
+                Vencido += 1
+            ElseIf Dr("TC3").ToString.ToEntero = 2 Then
+                worksheet.Cells("S1").Value = Dr("NomC3").ToString
+                Xvencer += 1
+            End If
+            If Dr("TC4").ToString.ToEntero = 1 Then
+                worksheet.Cells("F1").Value = Dr("NomC4").ToString
+                Vencido += 1
+            ElseIf Dr("TC4").ToString.ToEntero = 2 Then
+                worksheet.Cells("T1").Value = Dr("NomC4").ToString
+                Xvencer += 1
+            End If
+            If Dr("TC5").ToString.ToEntero = 1 Then
+                worksheet.Cells("G1").Value = Dr("NomC5").ToString
+                Vencido += 1
+            ElseIf Dr("TC5").ToString.ToEntero = 2 Then
+                worksheet.Cells("U1").Value = Dr("NomC5").ToString
+                Xvencer += 1
+            End If
+            If Dr("TC6").ToString = "1" Then
+                worksheet.Cells("H1").Value = Dr("NomC6").ToString
+                Vencido += 1
+            ElseIf Dr("TC6").ToString.ToEntero = 2 Then
+                worksheet.Cells("V1").Value = Dr("NomC6").ToString
+                Xvencer += 1
+            End If
+            If Dr("TC7").ToString.ToEntero = 1 Then
+                worksheet.Cells("I1").Value = Dr("NomC7").ToString
+                Vencido += 1
+            ElseIf Dr("TC7").ToString.ToEntero = 2 Then
+                worksheet.Cells("W1").Value = Dr("NomC7").ToString
+                Xvencer += 1
+            End If
+            If Dr("TC8").ToString.ToEntero = 1 Then
+                worksheet.Cells("J1").Value = Dr("NomC8").ToString
+                Vencido += 1
+            ElseIf Dr("TC8").ToString.ToEntero = 2 Then
+                worksheet.Cells("X1").Value = Dr("NomC8").ToString
+                Xvencer += 1
+            End If
+            If Dr("TC9").ToString.ToEntero = 1 Then
+                worksheet.Cells("K1").Value = Dr("NomC9").ToString
+                Vencido += 1
+            ElseIf Dr("TC9").ToString.ToEntero = 2 Then
+                worksheet.Cells("Y1").Value = Dr("NomC9").ToString
+                Xvencer += 1
+            End If
+            If Dr("TC10").ToString.ToEntero = 1 Then
+                worksheet.Cells("L1").Value = Dr("NomC10").ToString
+                Vencido += 1
+            ElseIf Dr("TC10").ToString.ToEntero = 2 Then
+                worksheet.Cells("Z1").Value = Dr("NomC10").ToString
+                Xvencer += 1
+            End If
+            If Dr("TC11").ToString.ToEntero = 1 Then
+                worksheet.Cells("M1").Value = Dr("NomC11").ToString
+                Vencido += 1
+            ElseIf Dr("TC11").ToString.ToEntero = 2 Then
+                worksheet.Cells("AA1").Value = Dr("NomC11").ToString
+                Xvencer += 1
+            End If
+            If Dr("TC12").ToString.ToEntero = 1 Then
+                worksheet.Cells("N1").Value = Dr("NomC12").ToString
+                Vencido += 1
+            ElseIf Dr("TC12").ToString.ToEntero = 2 Then
+                worksheet.Cells("AB1").Value = Dr("NomC12").ToString
+                Xvencer += 1
+            End If
+            If Dr("TC13").ToString.ToEntero = 1 Then
+                worksheet.Cells("O1").Value = Dr("NomC13").ToString
+                Vencido += 1
+            ElseIf Dr("TC13").ToString.ToEntero = 2 Then
+                worksheet.Cells("AC1").Value = Dr("NomC13").ToString
+                Xvencer += 1
+            End If
+
+
+            If Dr("TC13").ToString.ToEntero <> 2 Then
+                worksheet.Columns.Remove(28)
+            End If
+            If Dr("TC12").ToString.ToEntero <> 2 Then
+                worksheet.Columns.Remove(27)
+            End If
+
+            If Dr("TC11").ToString.ToEntero <> 2 Then
+                worksheet.Columns.Remove(26)
+            End If
+
+            If Dr("TC10").ToString.ToEntero <> 2 Then
+                worksheet.Columns.Remove(25)
+            End If
+            If Dr("TC9").ToString.ToEntero <> 2 Then
+                worksheet.Columns.Remove(24)
+            End If
+
+            If Dr("TC8").ToString.ToEntero <> 2 Then
+                worksheet.Columns.Remove(23)
+            End If
+            If Dr("TC7").ToString.ToEntero <> 2 Then
+                worksheet.Columns.Remove(22)
+            End If
+
+            If Dr("TC6").ToString.ToEntero <> 2 Then
+                worksheet.Columns.Remove(21)
+            End If
+            If Dr("TC5").ToString.ToEntero <> 2 Then
+                worksheet.Columns.Remove(20)
+            End If
+
+            If Dr("TC4").ToString.ToEntero <> 2 Then
+                worksheet.Columns.Remove(19)
+            End If
+            If Dr("TC3").ToString.ToEntero <> 2 Then
+                worksheet.Columns.Remove(18)
+            End If
+            If Dr("TC2").ToString.ToEntero <> 2 Then
+                worksheet.Columns.Remove(17)
+            End If
+            If Dr("TC1").ToString.ToEntero <> 2 Then
+                worksheet.Columns.Remove(16)
+            End If
+
+
+            If Dr("TC13").ToString.ToEntero <> 1 Then
+                worksheet.Columns.Remove(14)
+            End If
+
+            If Dr("TC12").ToString.ToEntero <> 1 Then
+                worksheet.Columns.Remove(13)
+            End If
+
+            If Dr("TC11").ToString.ToEntero <> 1 Then
+                worksheet.Columns.Remove(12)
+            End If
+
+            If Dr("TC10").ToString.ToEntero <> 1 Then
+                worksheet.Columns.Remove(11)
+            End If
+            If Dr("TC9").ToString.ToEntero <> 1 Then
+                worksheet.Columns.Remove(10)
+            End If
+
+            If Dr("TC8").ToString.ToEntero <> 1 Then
+                worksheet.Columns.Remove(9)
+            End If
+            If Dr("TC7").ToString.ToEntero <> 1 Then
+                worksheet.Columns.Remove(8)
+            End If
+
+            If Dr("TC6").ToString.ToEntero <> 1 Then
+                worksheet.Columns.Remove(7)
+            End If
+            If Dr("TC5").ToString.ToEntero <> 1 Then
+                worksheet.Columns.Remove(6)
+            End If
+
+            If Dr("TC4").ToString.ToEntero <> 1 Then
+                worksheet.Columns.Remove(5)
+            End If
+            If Dr("TC3").ToString.ToEntero <> 1 Then
+                worksheet.Columns.Remove(4)
+            End If
+            If Dr("TC2").ToString.ToEntero <> 1 Then
+                worksheet.Columns.Remove(3)
+            End If
+            If Dr("TC1").ToString.ToEntero <> 1 Then
+                worksheet.Columns.Remove(2)
+            End If
+        End If
+
+
+
+            NombreArchivo = "CxP"
+        workbook.Save(Response, $"{NombreArchivo}.xlsx", SaveOptions.XlsxDefault)
+        'GenerarPDF("EXCEL")
     End Sub
 
     Private Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles ImgImprimir.Click

Inventarios/InventarioFisico.aspx

@@ -366,6 +366,51 @@
                                             </div>
                                         </div>
                                     </div>
+                                    <div class="col-md-6">
+                                        <div class="portlet light xspadding bordered" id="PtlProveedor">
+                                            <div class="portlet-title">
+                                                <div class="caption font-green">
+                                                    <i class="icon-pin font-green"></i>
+                                                    <span class="caption-subject bold uppercase">Proveedores</span>
+                                                </div>
+                                                <div class="tools">
+                                                    <a href="javascript:;" class="collapse"></a>
+                                                </div>
+                                            </div>
+                                            <div class="portlet-body">
+                                                <asp:UpdatePanel ID="UpProveedor" UpdateMode="Conditional" runat="server">
+                                                    <ContentTemplate>
+                                                        <div class="row">
+                                                            <div class="col-md-10">
+                                                                <label for="<%= DdlProveedor.ClientID.ToString()%>">Proveedor:</label>
+                                                                <ADS:Dropdownlost ID="DdlProveedor" CssStyle="width: 95%;" runat="server"  DataTextField="RazonSocial" DataValueField="CveProveedor" >
+                                                                </ADS:Dropdownlost>
+                                                            </div>
+                                                            <div class="col-md-2" style="margin-top:20px;">
+                                                                <asp:Button for="DdlProveedor" ID="BtnAgregarProveedor" runat="server" CssClass="btn btn-primary btn-sm" Text="+" />
+                                                            </div>
+                           
+                                                        </div>
+
+                                                        <div class="row">
+                                                            <div class="col-md-12">
+                                                                <asp:GridView ID="GvProveedor" runat="server" GridLines="None" DataKeyNames="CveProveedor,RazonSocial" CssClass="table table-striped table-advance table-hover Widthall mysmallbtn ADSCroll" Width="100%" AutoGenerateColumns="False" ToolTip="Listado de Clasificaciones" >
+                                                                    <Columns>
+                                                                        <asp:BoundField DataField="RazonSocial" HeaderText="Proveedor" ItemStyle-HorizontalAlign="Left" />
+                                                                        <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Comandos">
+                                                                            <ItemTemplate>
+                                                                                <asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" OnClick="DeleteProveedor_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
+                                                                            </ItemTemplate>
+                                                                        </asp:TemplateField>
+                                                                    </Columns>
+                                                                </asp:GridView>
+                                                            </div>
+                                                        </div>
+                                                    </ContentTemplate>
+                                                </asp:UpdatePanel>
+                                            </div>
+                                        </div>
+                                    </div>
                                 </div>
                                 <div class="modal-footer">
                                     <asp:UpdatePanel ID="UpFooter" runat="server" UpdateMode="Conditional">

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()

Inventarios/InventarioFisicoDetalle.aspx

@@ -184,6 +184,10 @@
                                 &nbsp;&nbsp;&nbsp;<label><b>Productos Excluidos:</b></label>&nbsp;<asp:Label ID="LblProductosExcluidos" runat="server" Text=""></asp:Label>
                             </td>
                         </tr>
+                        <tr>
+                            <td colspan="3">&nbsp;&nbsp;&nbsp;<label><b>Proveedores:</b></label>&nbsp;<asp:Label ID="LblProveedores" runat="server" Text="Todos"></asp:Label>
+                            </td>
+                        </tr>
                     </table>
                     <table>
                         <tr>

Inventarios/InventarioFisicoDetalle.aspx.vb

@@ -192,6 +192,20 @@ Partial Class Inventarios_InventarioFisicoDetalle
 
             End If
 
+            If ObjInventario.GetInventarioFisicoDetallesProveedores(CveInventarioFisico, UsuarioActual.CveEmpresa) Then
+                Dim dt As DataTable = ObjInventario.DtResultados
+                Dim str As New StringBuilder
+                If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+
+                    For Each dr As DataRow In dt.FiltraParametros("Incluye = 1").Rows
+                        str.AppendFormat("{0},", dr("RazonSocial"))
+                    Next
+                    LblProveedores.Text = str.ToString
+                    str.Clear()
+                End If
+
+            End If
+
             If ObjInventario.GetInventarioFisicoDetalle(CveInventarioFisico, CveUsuario) Then
                 If ObjInventario.DtResultados.Rows.Count > 0 Then
                     GvIFDUltimoRegistrado.DataSource = ObjInventario.DtResultados.AsEnumerable.OrderByDescending(Function(k) k!CveInventarioFisicoDetalle).Take(1).CopyToDataTable

Inventarios/RepAnomalias.aspx

@@ -167,6 +167,9 @@
                              &nbsp;&nbsp;&nbsp;<label><b>Productos Excluidos:</b></label>&nbsp;<asp:Label ID="LblProductosExcluidos" runat="server" Text=""></asp:Label>
                                 </td>
                             </tr>
+                            <tr>
+                                <td colspan="3">&nbsp;&nbsp;&nbsp;<label><b>Proveedores:</b></label>&nbsp;<asp:Label ID="LblProveedores" runat="server" Text="Todos"></asp:Label></td>
+                            </tr>
                         </table>
                     </div>
                 </div>

Inventarios/RepAnomalias.aspx.vb

@@ -132,6 +132,19 @@ Partial Class Inventarios_RepAnomalias
                 End If
 
             End If
+            If Inventario.GetInventarioFisicoDetallesProveedores(CveInventarioFisico, UsuarioActual.CveEmpresa) Then
+                Dim dta As DataTable = Inventario.DtResultados
+                Dim str As New StringBuilder
+                If dta IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+
+                    For Each dr As DataRow In dta.FiltraParametros("Incluye = 1").Rows
+                        str.AppendFormat("{0},", dr("RazonSocial"))
+                    Next
+                    LblProveedores.Text = str.ToString
+                    str.Clear()
+                End If
+
+            End If
         End If
         Inventario.Dispose()