diff --git a/Acumuladores/RepRecolecciones.aspx b/Acumuladores/RepRecolecciones.aspx new file mode 100644 index 000000000..b32a3beae --- /dev/null +++ b/Acumuladores/RepRecolecciones.aspx @@ -0,0 +1,277 @@ +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepRecolecciones.aspx.vb" Inherits="Acumuladores_RepRecolecciones" %> + + + + + + + + Recolecciones + + + + + + +
  • + +
    • + +     +     +     + + + + + + + +
    +
    +
    + + +
    +
    +
    +
    + +
    +
    + +
    + +
    +
    + + + + +
    + + + + + + +
    + + +
    +
    + + + + +
    + + + + + + +
    +
    +
    +
    +
    +     +     +
    +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    + +
    + + + + + + + +   + + + <%----%> + + +   + + + + +   + + + + +   + + + + +
    +   +
    +     +     + + +   + + + + +   + + + + +
    +   +
    +     +     + + + + + + + + + +     + +     + +     +     +
    + +
    + + + + +     +     + +     + + + + diff --git a/Acumuladores/RepRecolecciones.aspx.vb b/Acumuladores/RepRecolecciones.aspx.vb new file mode 100644 index 000000000..8c50eb36d --- /dev/null +++ b/Acumuladores/RepRecolecciones.aspx.vb @@ -0,0 +1,212 @@ +Imports System.Data +Imports CrystalDecisions.Shared.Json +Imports Extensiones + + +Partial Class Acumuladores_RepRecolecciones + Inherits ClsPaginas + + +#Region "Propiedades" + Private Property CveEntregaAlmacen As Integer + Get + If Not ViewState("CveEntregaAlmacen") Is Nothing Then + Return ViewState("CveEntregaAlmacen").ToString.ToEntero + Else + Return -1 + End If + End Get + Set(value As Integer) + ViewState("CveEntregaAlmacen") = value + End Set + End Property + + Private Property DTRecoleccion As DataTable + Get + If ViewState("DTRecoleccion") Is Nothing Then + ViewState("DTRecoleccion") = InitDTRecoleccion() + End If + Return CType(ViewState("DTRecoleccion"), DataTable) + End Get + Set(ByVal value As DataTable) + ViewState("DTRecoleccion") = CType(value, DataTable) + End Set + End Property + Private Property Actualizar As Boolean + Get + If Not ViewState("Actualizar") Is Nothing Then + Return DirectCast(ViewState("Actualizar"), Boolean) + Else + Return False + End If + End Get + Set(value As Boolean) + ViewState("Actualizar") = value + End Set + End Property + +#End Region + + + Private Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load + + If Not Page.IsPostBack Then + InicializaCombos() + CargaDatos() + End If + + End Sub + + Private Sub InicializaCombos() + CargaPS() + TxtFechaI.Text = NowADS().AddDays(-1).ToShortDateString + TxtFechaF.Text = NowADS().AddDays(3).ToShortDateString + CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto) + End Sub + + Private Sub CargaDatos() + + Dim ObjGeneral As New ClsGenerales + + If (ObjGeneral.GetInvEntregaAlmacenRuta(-1, Now.AddMonths(-1), Now.AddMonths(1), UsuarioActual.CveEmpresa, 2, -1)) Then + GvR.DataSource = ObjGeneral.DtResultados + End If + + ObjGeneral.Dispose() + + UPGv.DataBind() + UpGral.Update() + + + End Sub + + Protected Sub gvR_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs) + If e.Row.RowType = DataControlRowType.DataRow Then + Dim LnkEditar As LinkButton = e.Row.FCLinkButton("LnkGvDatosRecoleccionEditar") + + If e.Row.DataKey("Estatus") = "0" OrElse e.Row.DataKey("Estatus") = "" Then + LnkEditar.Visible = True + End If + + ' If e.Row.DataKey("Estatus") = "1" Then + e.Row.FCHyperLink("HplR").Visible = True + e.Row.FCHyperLink("HplR").NavigateUrl = "/Inventarios/EntradasSalidas.aspx?CveEntregaAlmacen=" & e.Row.DBCampo("CveEntregaAlmacen") + 'End If + + If e.Row.DataKey("CveTimbre") <> "" Then + e.Row.FCCheckBox("Chk").Visible = False + End If + End If + End Sub + + Protected Sub LnkGvDatosRecoleccionEditar_Click(ByVal sender As Object, ByVal e As EventArgs) + Dim LnkEliminar As LinkButton = CType(sender, LinkButton) + Dim GvRow As GridViewRow = CType(LnkEliminar.NamingContainer, GridViewRow) + CveEntregaAlmacen = GvRow.DataKey("CveEntregaAlmacen").ToEntero() + Dim CveDireccionOrigen As Integer = GvRow.DataKey("CveDireccionOrigen").ToEntero() + + + CargaDatosRecoleccionDetallePS() + LtlModalRecoleccionTitulo.Text = "Definición de tamaños" + BtnModalRecoleccionGuardar.Text = "Guardar" + UpModalRecoleccion.Update() + RegistraScript("$('#DivModalRecoleccion').modal('show');") + End Sub + + Protected Sub DdlProducto_ValueChanged(ByVal sender As Object, ByVal e As EventArgs) + ElProductoChange() + End Sub + + + Private Sub ElProductoChange() + DdlModalRecoleccionUnidad.Items.Clear() + DdlModalRecoleccionUnidad.DataSource = GlobalDTProductosServiciosEquivalencias(DdlProducto2.SelectedValue.ToEntero(), -1, UsuarioActual.CveEmpresa) + DdlModalRecoleccionUnidad.DataBind() + UpModalRecoleccion.Update() + End Sub + + Private Sub CargaDatosRecoleccionDetallePS() + + Dim ObjGenerales As New ClsGenerales() + Dim Str As New StringBuilder + Str.Append("Productos Definidos
    ") + If ObjGenerales.GetEntregaAlmacenRutaDetalle(CveEntregaAlmacen) Then + For Each dr As DataRow In ObjGenerales.DtResultados.Rows + Str.AppendFormat(" {0} - {1}
    ", dr("Cantidad"), dr("CodigoPS")) + Next + LblProductosCargados.Text = Str.ToString + End If + + ObjGenerales.Dispose() + + GvModalPSRecoleccion.DataSource = DTRecoleccion + GvModalPSRecoleccion.DataBind() + UpModalRecoleccion.Update() + End Sub + Private Function InitDTRecoleccion() As DataTable + Dim DT As DataTable = New DataTable() + DT.Columns.Add("CveEntregaAlmacenDetalle", System.Type.[GetType]("System.Int32")) + DT.Columns.Add("CveEntregaAlmacen", System.Type.[GetType]("System.Int32")) + DT.Columns.Add("CvePS", System.Type.[GetType]("System.Int32")) + DT.Columns.Add("Cantidad", System.Type.[GetType]("System.Double")) + DT.Columns.Add("CveUnidadMedida", System.Type.[GetType]("System.Int32")) + DT.Columns.Add("CveUsuario", System.Type.[GetType]("System.Int32")) + DT.Columns.Add("FechaIng", System.Type.[GetType]("System.DateTime")) + DT.Columns.Add("CodigoPS", System.Type.[GetType]("System.String")) + DT.Columns.Add("Abreviatura", System.Type.[GetType]("System.String")) + Return DT + End Function + + Private Sub CargaPS() + Dim ObjAcum As New ClsAcumuladores + Dim lista As New List(Of String) + Dim Filtro As String = "" + + For Each drow As DataRow In GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).Rows + + If drow("CvePSCargo").ToString.ToEntero > 0 Then + lista.Add(drow("CvePSCargo").ToString) + End If + Next + + If lista.Count > 0 Then + + Filtro = "CvePS in(" & String.Join(",", lista) & ")" + + DdlProducto2.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltraParametros(Filtro) + DdlProducto2.DataBind() + DdlProducto2.Items.Insert(0, New ListItem("Seleccione", "-1")) + End If + + ObjAcum.Dispose() + End Sub + + Protected Sub LnkModalAgregarPS_Click(ByVal sender As Object, ByVal e As EventArgs) + + Dim dRow As DataRow = DTRecoleccion.NewRow() + dRow("CveEntregaAlmacenDetalle") = -1 + dRow("CveEntregaAlmacen") = CveEntregaAlmacen + dRow("CvePS") = DdlProducto2.SelectedValue.ToEntero() + dRow("Cantidad") = TxtModalRecoleccionCantidad.Text.ToEntero() + dRow("CveUnidadMedida") = DdlModalRecoleccionUnidad.SelectedValue.ToEntero() + dRow("CveUsuario") = UsuarioActual.CveUsuario + dRow("FechaIng") = NowADS() + dRow("CodigoPS") = DdlProducto2.SelectedItem.Text + dRow("Abreviatura") = DdlModalRecoleccionUnidad.SelectedItem.Text + DTRecoleccion.Rows.Add(dRow) + + + LimpiarControlesPS() + CargaDatosRecoleccionDetallePS() + End Sub + + Private Sub LimpiarControlesPS() + TxtModalRecoleccionCantidad.Text = "" + DdlModalRecoleccionUnidad.Items.Clear() + 'DdlProducto2.txtText.Value = "" + 'DdlProducto2.txtValue.Value = "" + UpModalRecoleccion.Update() + End Sub + + +End Class