From 824be8348cfb58b1b84f8ae9e63bc5388e3211e8 Mon Sep 17 00:00:00 2001 From: HECTOR RODRIGUEZ Date: Thu, 8 Jul 2021 21:39:56 -0700 Subject: [PATCH] Filtro in inventario fisico: proveedores --- App_Code/ClsInventarios.vb | 66 ++++ Compras/RepCxP.aspx | 2 +- Compras/RepCxP.aspx.vb | 335 +++++++++++++++++++- Inventarios/InventarioFisico.aspx | 45 +++ Inventarios/InventarioFisico.aspx.vb | 86 +++++ Inventarios/InventarioFisicoDetalle.aspx | 4 + Inventarios/InventarioFisicoDetalle.aspx.vb | 14 + Inventarios/RepAnomalias.aspx | 3 + Inventarios/RepAnomalias.aspx.vb | 13 + 9 files changed, 564 insertions(+), 4 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index e21615b2c..e965a4e5b 100644 --- a/App_Code/ClsInventarios.vb +++ b/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" diff --git a/Compras/RepCxP.aspx b/Compras/RepCxP.aspx index 274250559..07bd70a8c 100644 --- a/Compras/RepCxP.aspx +++ b/Compras/RepCxP.aspx @@ -254,7 +254,7 @@
-
Agrupar por meses:
+
Ver por meses:
diff --git a/Compras/RepCxP.aspx.vb b/Compras/RepCxP.aspx.vb index e5a2d5bf9..c63fb42cb 100644 --- a/Compras/RepCxP.aspx.vb +++ b/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 diff --git a/Inventarios/InventarioFisico.aspx b/Inventarios/InventarioFisico.aspx index 441bbb7c4..9c038e2fb 100644 --- a/Inventarios/InventarioFisico.aspx +++ b/Inventarios/InventarioFisico.aspx @@ -366,6 +366,51 @@
+
+
+
+
+ + Proveedores +
+
+ +
+
+
+ + +
+
+ + + +
+
+ +
+ +
+ +
+
+ + + + + + + + + + +
+
+ + +
+
+
diff --git a/Inventarios/InventarioFisico.aspx.vb b/Inventarios/InventarioFisico.aspx.vb index 3f8632f2d..a81812484 100644 --- a/Inventarios/InventarioFisico.aspx.vb +++ b/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() diff --git a/Inventarios/InventarioFisicoDetalle.aspx b/Inventarios/InventarioFisicoDetalle.aspx index e7c1feb0c..8596e2357 100644 --- a/Inventarios/InventarioFisicoDetalle.aspx +++ b/Inventarios/InventarioFisicoDetalle.aspx @@ -184,6 +184,10 @@      + +      + + diff --git a/Inventarios/InventarioFisicoDetalle.aspx.vb b/Inventarios/InventarioFisicoDetalle.aspx.vb index 435d8b4ac..57691da6c 100644 --- a/Inventarios/InventarioFisicoDetalle.aspx.vb +++ b/Inventarios/InventarioFisicoDetalle.aspx.vb @@ -190,6 +190,20 @@ Partial Class Inventarios_InventarioFisicoDetalle LblProductosExcluidos.Text = str.ToString End If + 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 diff --git a/Inventarios/RepAnomalias.aspx b/Inventarios/RepAnomalias.aspx index 61dc09004..46a77b822 100644 --- a/Inventarios/RepAnomalias.aspx +++ b/Inventarios/RepAnomalias.aspx @@ -167,6 +167,9 @@      + + +
    
diff --git a/Inventarios/RepAnomalias.aspx.vb b/Inventarios/RepAnomalias.aspx.vb index 57f6afc1a..5ef0314de 100644 --- a/Inventarios/RepAnomalias.aspx.vb +++ b/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()