Filtro in inventario fisico: proveedores
This commit is contained in:
HECTOR RODRIGUEZ
@@ -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"
|
||||
|
||||
|
||||
@@ -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>
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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">
|
||||
|
||||
@@ -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()
|
||||
|
||||
@@ -184,6 +184,10 @@
|
||||
<label><b>Productos Excluidos:</b></label> <asp:Label ID="LblProductosExcluidos" runat="server" Text=""></asp:Label>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td colspan="3"> <label><b>Proveedores:</b></label> <asp:Label ID="LblProveedores" runat="server" Text="Todos"></asp:Label>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
<table>
|
||||
<tr>
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -167,6 +167,9 @@
|
||||
<label><b>Productos Excluidos:</b></label> <asp:Label ID="LblProductosExcluidos" runat="server" Text=""></asp:Label>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td colspan="3"> <label><b>Proveedores:</b></label> <asp:Label ID="LblProveedores" runat="server" Text="Todos"></asp:Label></td>
|
||||
</tr>
|
||||
</table>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
@@ -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()
|
||||
|
||||
|
||||
Reference in New Issue
Block a user