From 9ce27592e9697b837701b11f24a29ed0e7893726 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 18 Mar 2022 17:59:58 -0700 Subject: [PATCH] -- mejoras recolecciones --- Inventarios/EntradasSalidas.aspx.vb | 47 ++++++++++++++------ Inventarios/EntregaAlmacenRuta.aspx.cs | 24 +++------- Inventarios/RepEntregaAlmacenRuta.aspx | 7 +-- Inventarios/RepEntregaAlmacenRuta.aspx.cs | 53 +++-------------------- 4 files changed, 51 insertions(+), 80 deletions(-) diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 3325d6163..51be4121d 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -295,9 +295,6 @@ Partial Class Inventarios_EntradasSalidas If Not IsPostBack Then - - - If UsuarioActual.CveUsuario = 100 AndAlso IfNull(Request("Regenera"), "").ToString = "1" Then RegeneraRM(Request("CveMovimiento").ToString.ToEntero, 119) Exit Sub @@ -337,7 +334,6 @@ Partial Class Inventarios_EntradasSalidas divGuia.Visible = True End Select - If Request("CveMovimiento") IsNot Nothing AndAlso Request("CveMovimiento").ToString.ToEntero > 0 Then If UsuarioActual.CveRol = 1 AndAlso UsuarioActual.CveEmpresa = 140 Then LnkGenerarVirtual.Visible = True @@ -371,6 +367,11 @@ Partial Class Inventarios_EntradasSalidas ActivaConsumoInterno() End If + If Request("CveEntregaAlmacen") IsNot Nothing AndAlso Request("CveEntregaAlmacen").ToString.ToEntero > 0 Then + CargaDatosEntregaAlmacen(Request("CveEntregaAlmacen").ToString.ToEntero) + End If + + 'BLOQUEA PERMISOS BtnGuardar.Enabled = PermiteGuardar() BtnEliminar.Enabled = PermiteEliminar() @@ -549,16 +550,13 @@ Partial Class Inventarios_EntradasSalidas 'Llenar el dropdownlist de almacén - If Not IfNull(Request("CI"), -1).ToString.ToEntero > 0 Then + If Not IfNull(Request("CI"), -1).ToString.ToEntero > 0 AndAlso Not IfNull(Request("CveEntregaAlmacen"), -1).ToString.ToEntero > 0 Then DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa) 'ElseIf UsuarioActual.CveUsuario.Contiene(1) Then ' DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11) or CveAlmacen = 651e") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa) - End If - - DdlAlmacenInventarioFisico.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa) DdlAlmacenCambioVigencias.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)") @@ -574,7 +572,7 @@ Partial Class Inventarios_EntradasSalidas DdlAlmacenInventarioFisico.DataBind() DdlAlmacenCambioVigencias.DataBind() - If IsNothing(Request("CveMovimiento")) Then + If IsNothing(Request("CveMovimiento")) And IsNothing(Request("CveEntregaAlmacen")) Then DdlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen) DdlAlmacen_SelectedIndexChanged(DdlAlmacen, EventArgs.Empty) End If @@ -660,8 +658,6 @@ Partial Class Inventarios_EntradasSalidas GvM.Columns(8).Visible = False End If - - If Mov.GetMovimientos(tCveMovimiento, pCveConcepto, pFolio, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then CveMovimiento = Mov.CveMovimiento @@ -672,7 +668,6 @@ Partial Class Inventarios_EntradasSalidas Folio = Mov.Folio Dim drM As DataRow = DtMov.Rows(0) - If DtMov.Rows(0)("CveConcepto").ToString.ToEntero = 2 Then HplTraspaso.Visible = True HplTraspaso.NavigateUrl = $"/Inventarios/TraspasoAlmacen.aspx?CveEntrada={DtMov.Rows(0)("CveMovimiento").ToString}" @@ -1048,6 +1043,32 @@ Partial Class Inventarios_EntradasSalidas End Sub + + Private Sub CargaDatosEntregaAlmacen(CveEntregaAlmacen As Integer) + 'RECARGA ALMACENES SOLO DE recepcion de usados + DdlAlmacen.Items.Clear() + DdlAlmacen.DataBind() + Dim dttA As DataTable = Nothing + dttA = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (1,22,27)") + + DdlAlmacen.DataSource = dttA + DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlAlmacen.DataBind() + DdlAlmacen.SelectedIndex = 1 'toma el primer renglón + + Dim ObjGenerales As New ClsGenerales() + + If (ObjGenerales.GetEntregaAlmacenRutaDetalle(CveEntregaAlmacen)) Then + + For Each dr As DataRow In ObjGenerales.DtResultados.Rows + AddNew(dr("CvePS").ToString.ToEntero, dr("CodigoPS").ToString, dr("CveUnidadMedida").ToString.ToEntero, dr("Abreviatura").ToString, dr("Cantidad").ToString.ToDecimal, + 0, "", "", "", "", "E", "", MinFecha, 0, "") + Next + End If + ObjGenerales.Dispose() + End Sub + + Private Sub BloqueaEdicionEncabezado() @@ -1923,7 +1944,7 @@ Partial Class Inventarios_EntradasSalidas If Not ErrorAC And Not ErrorMovInv Then Dim Msg As New StringBuilder - Msg.AppendFormat("
El Movimiento se registro con el Folio: {0}", ObjInventario.Folio) + Msg.AppendFormat("
El Movimiento se registro con el Folio: {0}", ObjInventario.Folio, ObjInventario.CveMovimiento) Msg.AppendFormat("

Imprimir Movimiento ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento))) If RetornoVirtual IsNot Nothing Then diff --git a/Inventarios/EntregaAlmacenRuta.aspx.cs b/Inventarios/EntregaAlmacenRuta.aspx.cs index 9a9c5cd0a..9fe1c890f 100644 --- a/Inventarios/EntregaAlmacenRuta.aspx.cs +++ b/Inventarios/EntregaAlmacenRuta.aspx.cs @@ -11,8 +11,7 @@ using System.Text; public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas { - - + DataTable DTGenerarDocumentos { get { @@ -837,15 +836,11 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas } //} } - } else { - ProcesoOK = ObjGenerales.UpdateInvEntregaAlmacenRuta(CveEntregaAlmacen, DdlmodalRecoleccionDireccion.SelectedValue.ToEntero(), -1, DdlChofer.SelectedValue.ToEntero(), DdlUnidadCamion.SelectedValue.ToEntero(), TxtFechaEntrega.Text.ToDate(), UsuarioActual.CveEmpresa); - - } - + } if (ProcesoOK) { @@ -877,10 +872,8 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas ObjGenerales.Dispose(); CargaDatosRecoleccion(); - } - #endregion protected void LnkModalGvModalPSRecoleccionEliminar_Click(object sender, EventArgs e) @@ -889,8 +882,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas GridViewRow GvRow = (GridViewRow)LnkEliminar.NamingContainer; if (CveEntregaAlmacen > 0) - { - + { int CveEntregaAlmacenDetalleEliminar = GvRow.DataKey("CveEntregaAlmacenDetalle").ToEntero(); ClsGenerales ObjGenerales = new ClsGenerales(); @@ -907,8 +899,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas DTRecoleccion.Rows[DTIndex].Delete(); DTRecoleccion.AcceptChanges(); - } - + } CargaDatosRecoleccionDetallePS(); } @@ -945,9 +936,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas LimpiarControlesPS(); CargaDatosRecoleccionDetallePS(); - } - - + } private void LimpiarControlesPS() { TxtModalRecoleccionCantidad.Text = ""; @@ -1026,8 +1015,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas } } - - + protected void gvR_RowDataBound(object sender, GridViewRowEventArgs e) { if (e.Row.RowType == DataControlRowType.DataRow) diff --git a/Inventarios/RepEntregaAlmacenRuta.aspx b/Inventarios/RepEntregaAlmacenRuta.aspx index 962eb485a..6b3f51c34 100644 --- a/Inventarios/RepEntregaAlmacenRuta.aspx +++ b/Inventarios/RepEntregaAlmacenRuta.aspx @@ -148,7 +148,8 @@ - + + @@ -156,8 +157,8 @@ - - + + diff --git a/Inventarios/RepEntregaAlmacenRuta.aspx.cs b/Inventarios/RepEntregaAlmacenRuta.aspx.cs index 97a5503f1..815d3722d 100644 --- a/Inventarios/RepEntregaAlmacenRuta.aspx.cs +++ b/Inventarios/RepEntregaAlmacenRuta.aspx.cs @@ -383,10 +383,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas if (GvRow.DataKey("CveCamionRemolque2").ToEntero() > 0) { DdlRemolque2.SelectedValueExist(GvRow.DataKey("CveCamionRemolque2")); - } - - - + } CveDireccionOrigen = GvRow.DataKey("CveDireccionOrigen").ToEntero(); CveDireccionDestino = GvRow.DataKey("CveDireccionDestino").ToEntero(); @@ -617,9 +614,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas { if (e.Row.RowType == DataControlRowType.DataRow) { - e.Row.Cells[11].Text = ""; - LinkButton LnkEditar = e.Row.FCLinkButton("LnkEditar"); LinkButton LnkTimbrar = e.Row.FCLinkButton("LnkTimbrar"); LinkButton LnkCancelaTimbre = e.Row.FCLinkButton("LnkCancelaTimbre"); @@ -634,11 +629,11 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas LnkTimbrar.Visible = true; } - //if (e.Row.DataKey("TimbreTipoDocto") == "Man") - //{ - // e.Row.FCLinkButton("LnkEditarDirOrigen").Visible = true; - // e.Row.FCLinkButton("LnkEditarDirDestino").Visible = true; - //} + if (e.Row.DataKey("Tipo") == "R" && e.Row.DataKey("Estatus") == "1") + { + e.Row.FCHyperLink("HplR").Visible = true; + e.Row.FCHyperLink("HplR").NavigateUrl = "/Inventarios/EntradasSalidas.aspx?CveEntregaAlmacen=" + e.Row.DBCampo("CveEntregaAlmacen"); + } if (e.Row.DataKey("Estatus").ToEntero() == 1) { @@ -687,15 +682,10 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas default: e.Row.FCLabel("LtTipo").CssClass = "label label-sm label-warning"; break; - } - } - } - - private void CargaPersonalChofer() { DdlModalChofer.Items.Clear(); @@ -706,18 +696,10 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas { DdlModalChofer.DataSource = ObjAcar.DtResultados; } - - - - ObjAcar.Dispose(); - DdlModalChofer.DataBind(); - DdlModalChofer.Items.Insert(0, new ListItem("Seleccione Uno", "-1")); - - UpModalEditarentrega.Update(); } @@ -744,7 +726,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas } } } - UpModalEditarentrega.Update(); } @@ -779,15 +760,11 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas } } - - protected void DdlConfigAuto_SelectedIndexChanged(object sender, EventArgs e) { ValidaConfiguracionVeiculo(); } - - - private void ValidaConfiguracionVeiculo() + private void ValidaConfiguracionVeiculo() { DvRemolque1.Visible = false; DvRemolque2.Visible = false; @@ -803,7 +780,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas { string Remolque = ObjGrales.DtResultados.FiltroPrimeroValor("Remolque", $" CveConfigAutoTransporte ='{DdlConfigAuto.SelectedValue.ToEntero()}'"); - if (Remolque == "1") { RequiereRemolque = true; @@ -830,9 +806,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas MostrarRemolques = false; } - - - if (RequiereRemolque | MostrarRemolques) DvRemolque1.Visible = true; @@ -841,7 +814,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas else DvConfiguracionVeiculo.Visible = true; - UpModalEditarentrega.Update(); } @@ -858,13 +830,11 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas if (ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2)) DdlRemolque2.DataSource = ObjInv.DtResultados.FiltraParametros($"CveCamion <> {DdlRemolque1.SelectedValue.ToEntero()}"); } - try { DdlRemolque2.DataBind(); } catch { } - } else DvRemolque2.Visible = false; @@ -885,7 +855,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas if (RequiereRemolque & DdlRemolque1.SelectedValue.ToEntero() > 0) Respuesta = true; - return Respuesta; } @@ -900,7 +869,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas if (ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 1)) DdlModalCamion.DataSource = ObjInv.DtResultados; - if (ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2)) DdlRemolque1.DataSource = ObjInv.DtResultados; } @@ -988,7 +956,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas CargaDirClienteColonia(); CargaDirClienteLocalidad(); } - protected void DdlDirClienteEstado_SelectedIndexChanged(object sender, EventArgs e) { CargaDirClienteMunicipio(); @@ -1002,13 +969,11 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas CargaDirClienteLocalidad(); } - protected void BtnDirClienteValidar_Click(object sender, EventArgs e) { DirClientevalidaCodigoPostal(); } - protected void DdlDirClienteColonia_SelectedIndexChanged(object sender, EventArgs e) { DirClientevalidaCodigoPostal(); @@ -1111,10 +1076,8 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas CargaDatos(); } - ModalActualizaDirecciones(CveTimbre); - } private void LnkAgregarDireccion_Click(object sender, EventArgs e) @@ -1127,8 +1090,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas CargaCombosDirecionesClientesSAT(); TxtFechaLlegada.Text = ""; - - UpModalDVDireccionEnvio.Update(); RegistraScript("$('#divAddDireccionEnvio').modal('show');"); }