Commit inicial Ventas Productivo
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
244
Inventarios/KardexAlmacenHorizontal.aspx.vb
Normal file
244
Inventarios/KardexAlmacenHorizontal.aspx.vb
Normal file
@@ -0,0 +1,244 @@
|
||||
Imports System.Data
|
||||
Imports System.IO
|
||||
Imports Extensiones
|
||||
Imports GemBox.Spreadsheet
|
||||
Imports Microsoft.Reporting.WebForms
|
||||
|
||||
Partial Class Inventarios_KardexAlmacen
|
||||
Inherits ClsPaginas
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
If Not IsPostBack Then
|
||||
'TxtFechaI.Text = Now.AddMonths(-1).ToShortDateString
|
||||
TxtFechaF.Text = Now.ToShortDateString
|
||||
CargaCombos()
|
||||
ddlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
|
||||
If IfNull(Request("CvePS"), "-1").ToString.ToEntero > 0 Then CargarKardex(Request("CvePS").ToString.ToEntero)
|
||||
ddlProducto2.SelectedValue = If(Request("CvePS") IsNot Nothing, Request("CvePS").ToString, "-1")
|
||||
End If
|
||||
End Sub
|
||||
Private Function isWithFamily() As Boolean
|
||||
Return (UsuarioActual.CveEmpresa = 66)
|
||||
End Function
|
||||
Private Sub CargaCombos()
|
||||
|
||||
CargaFuncionalidad105()
|
||||
CargaPS()
|
||||
|
||||
ddlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1)
|
||||
ddlAlmacen.DataBind()
|
||||
|
||||
Dim ObjInv As New ClsInventarios()
|
||||
If ObjInv.GetTiposAlmacenes() Then
|
||||
DdlTipoAlmacen.DataSource = ObjInv.DtResultados
|
||||
End If
|
||||
ObjInv.Dispose()
|
||||
DdlTipoAlmacen.DataBind()
|
||||
|
||||
DdlTipoAlmacen.SelectedValueExist(1)
|
||||
|
||||
If IfNull(Request("CveAlmacen"), "-1").ToString.ToEntero > 0 Then ddlAlmacen.SelectedValueExist(Request("CveAlmacen").ToString)
|
||||
CargaClasificaciones()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaClasificaciones()
|
||||
Dim CveClasificacion = If(Request("CveClasificacion") IsNot Nothing, Request("CveClasificacion").ToString, "-1")
|
||||
|
||||
If isWithFamily() Then
|
||||
DdlClasificacion.DataSource = GlobalDTSubFamilias(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion")
|
||||
Else
|
||||
Dim ObjClasificaciones As New ClsClasificaciones
|
||||
If UsuarioActual.Empresa.UsaAC Then
|
||||
If ObjClasificaciones.GetClasificacionesExistencias(UsuarioActual.CveEmpresa) Then
|
||||
DdlClasificacion.DataSource = ObjClasificaciones.DtResultados
|
||||
DdlClasificacion.DataBind()
|
||||
End If
|
||||
Else
|
||||
If ObjClasificaciones.GetClasificacionesExistencias(UsuarioActual.CveEmpresa) Then
|
||||
DdlClasificacion.DataSource = ObjClasificaciones.DtResultados
|
||||
DdlClasificacion.DataBind()
|
||||
End If
|
||||
End If
|
||||
ObjClasificaciones.Dispose()
|
||||
End If
|
||||
|
||||
DdlClasificacion.DataBind()
|
||||
DdlClasificacion.SelectedValueExist(CveClasificacion)
|
||||
|
||||
End Sub
|
||||
Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged
|
||||
CargaPS()
|
||||
End Sub
|
||||
Private Sub CargaPS()
|
||||
|
||||
If Not ddlProducto2.UsaWebService Then
|
||||
'Dim Filtro = If(DdlClasificacion.SelectedValue >= 0, String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue), "")
|
||||
ddlProducto2.ddl.Items.Clear()
|
||||
ddlProducto2.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero).FiltraParametros($"CveTipoPS=2", "PSCodigo")
|
||||
ddlProducto2.DataBind()
|
||||
ddlProducto2.ddl.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
|
||||
End If
|
||||
End Sub
|
||||
Private Sub CargaFuncionalidad105()
|
||||
ddlProducto2.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
|
||||
DdlProveedor.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
|
||||
|
||||
If ddlProducto2.UsaWebService Then
|
||||
ddlProducto2.ddlWS.Attributes.Add("data-Estatus", "-1")
|
||||
ddlProducto2.ddlWS.Attributes.Add("data-pagina", "Inventarios")
|
||||
ddlProducto2.ddlWS.Attributes.Add("data-idClasificacion", DdlClasificacion.ClientID)
|
||||
DdlClasificacion.AutoPostBack = False
|
||||
|
||||
DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
|
||||
Else
|
||||
ddlProducto2.ddl.Items.Add(New ListItem("Seleccione", "-1"))
|
||||
ddlProducto2.ddl.Items.Add(New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
|
||||
|
||||
DdlProveedor.ddl.Items.Add(New ListItem("Seleccione", "-1"))
|
||||
DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
|
||||
DdlProveedor.DataBind()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Protected Sub ddlProducto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ddlProducto2.selectedindexchange
|
||||
|
||||
DdlUnidadMedida.Items.Clear()
|
||||
DdlUnidadMedida.DataSource = GlobalDTProductosServiciosEquivalencias(ddlProducto2.SelectedValue.ToEntero, -1)
|
||||
DdlUnidadMedida.DataBind()
|
||||
DdlUnidadMedida.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
|
||||
End Sub
|
||||
Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
|
||||
Dim CveProducto As Integer = ddlProducto2.SelectedValue.ToEntero
|
||||
CargarKardex(CveProducto)
|
||||
'If CveProducto > 0 Then
|
||||
|
||||
'Else
|
||||
' Alert("Seleccione un producto.", TipoMensaje.MsgAdvertencia)
|
||||
'End If
|
||||
|
||||
End Sub
|
||||
Private Function CargarKardex(CvePS As Integer) As DataTable
|
||||
Dim dt As DataTable = Nothing
|
||||
Dim ObjMovimientos As New ClsInventarios
|
||||
Dim FechaI As String = "-1" ' If(TxtFechaI.Text <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1")
|
||||
' Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
|
||||
Dim FechaF As Date = TxtFechaF.Text.ToDate
|
||||
Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero
|
||||
Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1)
|
||||
|
||||
If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), If(ChkIncluyeTransitorios.Checked, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
|
||||
dt = ObjMovimientos.DtResultados
|
||||
Dim ListaBorrar As New List(Of DataColumn)
|
||||
For index = 2 To dt.Columns.Count - 1
|
||||
Dim TotColumna As Double = 0
|
||||
For Each Dr As DataRow In dt.Rows
|
||||
TotColumna += Dr.Item(index).ToString.ToDouble
|
||||
Next
|
||||
If Not TotColumna > 0 Then
|
||||
ListaBorrar.Add(dt.Columns(index))
|
||||
End If
|
||||
Next
|
||||
For Each item As DataColumn In ListaBorrar
|
||||
dt.Columns().Remove(item)
|
||||
Next
|
||||
dt.AcceptChanges()
|
||||
GvDatos.DataSource = dt
|
||||
Else
|
||||
Alert("La búsqueda no contiene resultados.", TipoMensaje.MsgAdvertencia)
|
||||
GvDatos.Columns.Clear()
|
||||
dt = Nothing
|
||||
Return dt
|
||||
Exit Function
|
||||
End If
|
||||
End If
|
||||
|
||||
ObjMovimientos.Dispose()
|
||||
GvDatos.DataBind()
|
||||
|
||||
For index = 3 To GvDatos.Rows(0).Cells.Count - 1
|
||||
GvDatos.HeaderRow.Cells(index).Text = GvDatos.HeaderRow.Cells(index).Text.Split("|")(0)
|
||||
Next
|
||||
|
||||
Return dt
|
||||
End Function
|
||||
|
||||
Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
||||
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
'Dim Liga As String = String.Format($"/Inventarios/Kardex.aspx?CvePS={ddlProducto2.SelectedValue.ToEntero}&CveAlmacen={e.Row.DataKey("CveAlmacen")}&CveUM={DdlUnidadMedida.SelectedValue.ToEntero}&FechaI={TxtFechaI.Text}&FechaF={TxtFechaF.Text}")
|
||||
'e.Row.FCHyperLink("HplAlmacen").NavigateUrl = Liga
|
||||
|
||||
If e.Row.RowIndex = 0 Then
|
||||
e.Row.CssClass = "Totales"
|
||||
End If
|
||||
|
||||
e.Row.HorizontalAlign = HorizontalAlign.Right
|
||||
e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
|
||||
Dim Index As Integer = 0
|
||||
|
||||
For Each Cells As TableCell In e.Row.Cells
|
||||
Dim Celda As String = Cells.Text
|
||||
If IsNumeric(Celda) Then
|
||||
Dim CveAlmacen2 As Integer = -1
|
||||
If Index >= 4 Then
|
||||
Dim Array = GvDatos.HeaderRow.Cells(Index).Text.Split("|")
|
||||
If Array.Length > 1 Then
|
||||
CveAlmacen2 = Array(1)
|
||||
End If
|
||||
End If
|
||||
|
||||
If Celda.ToDouble = 0 Then
|
||||
Cells.Text = ""
|
||||
Else
|
||||
Dim ce = DirectCast(Cells, System.Web.UI.WebControls.DataControlFieldCell)
|
||||
|
||||
If ce.ContainingField.HeaderText = "CP" Then
|
||||
Cells.Text = Cells.Text.FormatoNumero(2)
|
||||
ElseIf ce.ContainingField.HeaderText = "Valor" Then
|
||||
Cells.Text = Cells.Text.FormatoNumero(2)
|
||||
'ElseIf ce.ContainingField.HeaderText = "Total" Then
|
||||
' Cells.Text = Cells.Text.FormatoNumero(2)
|
||||
Else
|
||||
Cells.Text = String.Format("{0:#,###.##}", Cells.Text.ToDecimal)
|
||||
End If
|
||||
End If
|
||||
e.Row.Cells(e.Row.Cells.GetCellIndex(Cells)).Width = Unit.Pixel(80)
|
||||
'Dim Liga2 As String = String.Format($"/Inventarios/Kardex.aspx?CvePS={ddlProducto2.SelectedValue.ToEntero}&CveAlmacen={CveAlmacen2}&CveUM={DdlUnidadMedida.SelectedValue.ToEntero}&FechaI={TxtFechaI.Text}&FechaF={TxtFechaF.Text}")
|
||||
'Cells.Text = String.Format("<a href=""{1}"">{0}</a>", Celda.FormatoNumero(), Liga2)
|
||||
End If
|
||||
Index = Index + 1
|
||||
Next
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub GvDatos_RowCreated(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowCreated
|
||||
'Escondo CvePS y CveAlmacén (Se generan por autogeneratecolumns por eso se borran por aqui).
|
||||
' e.Row.Cells(0).Width = New Unit("200px")
|
||||
e.Row.Cells(1).Visible = False
|
||||
e.Row.Cells(2).Visible = False
|
||||
If e.Row.RowType = DataControlRowType.Header Then
|
||||
e.Row.Cells(5).ToolTip = "Costo Promedio"
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
|
||||
|
||||
Imprimir("Excel")
|
||||
End Sub
|
||||
Private Sub Imprimir(Optional reporte As String = "PDF")
|
||||
' Demo()
|
||||
Dim StrFiltro As New StringBuilder
|
||||
If DdlProveedor.SelectedValue.ToEntero > 0 Then StrFiltro.AppendFormat("Proveedor: {0},", DdlProveedor.SelectedText)
|
||||
If ddlProducto2.SelectedValue.ToEntero > 0 Then StrFiltro.AppendFormat(" Producto/Servicio: {0},", ddlProducto2.SelectedText)
|
||||
If TxtFechaF.Text <> "" Then StrFiltro.AppendFormat(" Fecha Fin: {0}", TxtFechaF.Text)
|
||||
GvDatos.ExportToExcelG("ExistenciasHorizontal.xlsx", "Existencias Almacen", UsuarioActual, StrFiltro.ToString, 100, 200)
|
||||
End Sub
|
||||
Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user