From ffc8120455d54d844f945036435438bcd9132fac Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 17 Mar 2022 14:24:01 -0700 Subject: [PATCH 1/5] -- mejora para visualizar cambio de vigencia --- Ventas/ProductosServicios.aspx.vb | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index 8541c148b..a29a4ce98 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -242,14 +242,6 @@ Partial Class ProductosyServicios DdlIVA.Enabled = False End If - If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then - DivPSAdicionalVigencia.Visible = True - divCodigo2.Visible = True - divLitraje.Visible = True - - CargaPSAdicionalesVigencias() - End If - If CvePS > 0 Then CargaEquivalencias() CargaPSAdicionales() @@ -329,6 +321,14 @@ Partial Class ProductosyServicios CargarMetodosInv() 'CargaPSAdicional(DdlPSAdicional) + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + DivPSAdicionalVigencia.Visible = True + divCodigo2.Visible = True + divLitraje.Visible = True + + CargaPSAdicionalesVigencias() + End If + 'Nuevo R: 26/09/2017 CargaProveedores() From dffb4ff8659765577400ecfcf48d6d1c359d334e Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 17 Mar 2022 14:24:14 -0700 Subject: [PATCH 2/5] -- mejora visual nombre del codigo sat --- App_Code/ClsProductosServicios.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index 225d0ba99..4363a44e2 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -246,7 +246,7 @@ Public Class ClsProductosServicios CveUnidadMedida = Data.Rows(0)("CveUnidadMedida").ToString.ToEntero CveSATPS = Data.Rows(0)("CveSATPS").ToString.ToEntero Me.SATClavePS = Data.Rows(0)("SATClavePS").ToString - 'SATDescripcion = Data.Rows(0)("SATDescripcion").ToString + SATDescripcion = Data.Rows(0)("SATDescripcion").ToString Me.CveTipoPS = Data.Rows(0)("CveTipoPS").ToString.ToEntero Me.Codigo = Data.Rows(0)("Codigo").ToString Me.Codigo2 = Data.Rows(0)("Codigo2").ToString From 3093f5b36cb2c1289ced641f8a2d78d68e8515f5 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 17 Mar 2022 14:24:32 -0700 Subject: [PATCH 3/5] direccionenvio, subproyecto --- App_Code/ClsClientes.vb | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index e9826f77e..d7c296145 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -1467,7 +1467,7 @@ Public Class ClsClientes #Region "D I R E C C I O N D E E N V I O " Public Function DireccionEnvioAdd(CveCliente As Integer, EnvioDireccion As String, EnvioNoExt As String, EnvioNoInt As String, EnvioColonia As String, EnvioCiudad As String, EnvioEstado As String, EnvioCP As Integer, EnvioContacto As String, CveUsuario As Integer, Estatus As Integer, Optional CveClienteSucursal As Integer = -1, Optional EnvioDepartamento As String = "-1", Optional EnvioTel As String = "-1", - Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveLocalidad As Integer = -1, Optional CveColonia As Integer = -1, Optional CveEmpresa As Integer = -1) As Integer + Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveLocalidad As Integer = -1, Optional CveColonia As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional CveEmpresa As Integer = -1) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_Vta_ClientesDireccionesEnvioAdd") @@ -1486,6 +1486,7 @@ Public Class ClsClientes .Add("@EnvioTel", SqlDbType.VarChar).Value = EnvioTel .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@Estatus", SqlDbType.Int).Value = Estatus + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CvePais", SqlDbType.Int).Value = CvePais .Add("@CveEstado", SqlDbType.Int).Value = CveEstado @@ -1528,7 +1529,7 @@ Public Class ClsClientes Public Function DireccionEnvioUpdate(CveCliente As Integer, EnvioDireccion As String, EnvioNoExt As String, EnvioNoInt As String, EnvioColonia As String, EnvioCiudad As String, EnvioEstado As String, EnvioCP As Integer, EnvioContacto As String, CveUsuario As Integer, Estatus As Integer, CveDireccionEnvio As Integer, Optional EnvioDepartamento As String = "-1", Optional CveClienteSucursal As Integer = -1, Optional EnvioTel As String = "-1", - Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveLocalidad As Integer = -1, Optional CveColonia As Integer = -1) As Boolean + Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveLocalidad As Integer = -1, Optional CveColonia As Integer = -1, Optional CveSubProyecto As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_ClientesDireccionesEnvioUpdate") @@ -1548,6 +1549,7 @@ Public Class ClsClientes .Add("@EnvioTel", SqlDbType.VarChar).Value = EnvioTel .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@Estatus", SqlDbType.Int).Value = Estatus + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CvePais", SqlDbType.Int).Value = CvePais .Add("@CveEstado", SqlDbType.Int).Value = CveEstado From 0514b7a6ad1c9b7008ade774f5e7b170dc06db04 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 17 Mar 2022 14:24:50 -0700 Subject: [PATCH 4/5] -- vendedor, carga factura --- General/SaldosIniciales.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 922bd8215..50de23895 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -1266,7 +1266,7 @@ Partial Class General_SaldosIniciales Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Venta/SaldoInicial", 1, Total, Total, 1, Fecha, String.Format("{0}-{1}", Serie, Folio), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If Vendedor <> "" Then - CveVendedor = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveVendedor", $"Vendedor = '{Vendedor}'").ToString.ToEntero + CveVendedor = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).FiltroPrimeroValor("CveVendedor", $"Vendedor = '{Vendedor}'").ToString.ToEntero If Not CveVendedor > 0 Then CveVendedor = 0 Else CveVendedor = 0 From b9414c1dad49539fe61bdcccfde86bb9662e98c3 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 17 Mar 2022 14:25:05 -0700 Subject: [PATCH 5/5] =?UTF-8?q?---=20timbrado=20de=20recolecci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/EntregaAlmacenRuta.aspx | 94 ++++++++++++----------- Inventarios/EntregaAlmacenRuta.aspx.cs | 32 ++++++-- Inventarios/RepEntregaAlmacenRuta.aspx.cs | 10 ++- 3 files changed, 82 insertions(+), 54 deletions(-) diff --git a/Inventarios/EntregaAlmacenRuta.aspx b/Inventarios/EntregaAlmacenRuta.aspx index 58152aa09..4cf98b423 100644 --- a/Inventarios/EntregaAlmacenRuta.aspx +++ b/Inventarios/EntregaAlmacenRuta.aspx @@ -326,13 +326,13 @@
- +
- Recoleccion + Recolección @@ -341,46 +341,51 @@
- - +   <%----%> - +   - +   - +   - +   - + + +   + + + - - + + @@ -397,8 +402,7 @@
- - +
-
+
- - -
-
- +
+
+ -
- - - - - - - + + + + + + + + + +
-
-
-
-
- - - -
-
-
-
- - - -
-
-
+
@@ -554,6 +542,22 @@
+
+
+
+ + + +
+
+
+
+ + + +
+
+
diff --git a/Inventarios/EntregaAlmacenRuta.aspx.cs b/Inventarios/EntregaAlmacenRuta.aspx.cs index 5d62f7b4b..9a9c5cd0a 100644 --- a/Inventarios/EntregaAlmacenRuta.aspx.cs +++ b/Inventarios/EntregaAlmacenRuta.aspx.cs @@ -379,11 +379,10 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas } } Alert(MensajeAlert.ToString(), ModExtensiones.TipoMensaje.MsgInformacion); - CargaDatos(); + CargaDatosRecoleccion(); DdlChofer.SelectedValueExist("-1"); DdlUnidadCamion.SelectedValueExist("-1"); - ChkEmitirCartaPorte.Checked = false; - + SeleccionEntrega = false; SeleccionarGenerar(1); UpDatos.Update(); @@ -437,6 +436,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas TxtFechaEntrega.Text = DateTime.Now.ToShortDateString(); TabRecoleccion.Visible = UsuarioActual.Empresa.Funcionalidad(531)=="1"; + TxtFechaLimite.Text = DateTime.Now.ToShortDateString(); CargarCentrosDeCosto(null, DdlSubProyecto, null, LblSubProyecto); CargarCentrosDeCosto(null, DdlSubProyectoRecoleccion, null, LblSubProyectoRecoleccion); @@ -704,7 +704,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas ClsClientes ObjClientes = new ClsClientes(); if (ObjClientes.DireccionEnvioGet(-1, DdlModalRecoleccionCliente.SelectedValue.ToEntero(), -1)) { - DdlmodalRecoleccionDireccion.DataSource = ObjClientes.DtResultados; + DdlmodalRecoleccionDireccion.DataSource = ObjClientes.DtResultados.FiltraParametros("CveSubProyecto = " + DdlSubProyectoRecoleccion.SelectedValue.ToEntero()); } ObjClientes.Dispose(); } @@ -816,7 +816,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas if( CveEntregaAlmacen == -1) { DateTime fechallegada = (TxtFechaEntrega.Text + " 23:59").ToDate(); - CveEntregaAlmacen = ObjGenerales.AddInvEntregaAlmacenRuta(DdlSubProyectoRecoleccion.SelectedValue.ToEntero(), DdlmodalRecoleccionDireccion.SelectedValue.ToEntero(), -1,-1, DdlChofer.SelectedValue.ToEntero(), DdlUnidadCamion.SelectedValue.ToEntero(), TxtFechaEntrega.Text.ToDate(), fechallegada, "R",TxtFolioReferencia.Text, TxtReferencia.Text, TxtFechaLimite.Text.ToDate(), 1,0,1) ; + CveEntregaAlmacen = ObjGenerales.AddInvEntregaAlmacenRuta(DdlSubProyectoRecoleccion.SelectedValue.ToEntero(), DdlmodalRecoleccionDireccion.SelectedValue.ToEntero(), -1,-1, DdlChoferRec.SelectedValue.ToEntero(), DdlUnidadRec.SelectedValue.ToEntero(), TxtFechaEntrega.Text.ToDate(), fechallegada, "R",TxtFolioReferencia.Text, TxtReferencia.Text, TxtFechaLimite.Text.ToDate(), 1,0,1) ; if (CveEntregaAlmacen > 0) { //CveTimbrenuevo = ObjGenerales.AddGralTimbre("Rec", "-1", -1, "-1", TxtFechaEntrega.Text.ToDate(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, -1, ChkEmitirCartaPorte.Checked, CveEntregaAlmacen, -1); @@ -1027,4 +1027,26 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas } + + protected void gvR_RowDataBound(object sender, GridViewRowEventArgs e) + { + if (e.Row.RowType == DataControlRowType.DataRow) + { + LinkButton LnkEditar = e.Row.FCLinkButton("LnkGvDatosRecoleccionEditar"); + LinkButton LnkEliminar = e.Row.FCLinkButton("LnkGvDatosRecoleccionEliminar"); + + if (e.Row.DataKey("Estatus") == "0" || e.Row.DataKey("Estatus") == "") + { + LnkEditar.Visible = true; + LnkEliminar.Visible = true; + + } + if (e.Row.DataKey("CveTimbre") != "") + { + e.Row.FCCheckBox("Chk").Visible = false; + } + + + } + } } \ No newline at end of file diff --git a/Inventarios/RepEntregaAlmacenRuta.aspx.cs b/Inventarios/RepEntregaAlmacenRuta.aspx.cs index 4128e72cc..97a5503f1 100644 --- a/Inventarios/RepEntregaAlmacenRuta.aspx.cs +++ b/Inventarios/RepEntregaAlmacenRuta.aspx.cs @@ -514,6 +514,8 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas int CvePACCancelacion = GvRow.DataKey("CvePAC").ToEntero(); int CveSubProyecto = GvRow.DataKey("CveSubProyecto").ToEntero(); int CveEntregaAlmacen = GvRow.DataKey("CveEntregaAlmacen").ToEntero(); + string TimbreTipoDocto = GvRow.DataKey("TimbreTipoDocto").ToString(); + Timbrado ObjCancelacion = new Timbrado(); ClsGenerales ObjGenerales = new ClsGenerales(); @@ -534,10 +536,10 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas if (ObjGenerales.CancelarTimbreTimbrado(CveTimbre, DateTime.Now, CvePACCancelacion, ObjCancelacion.CancelacionAcuse, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) { //regenero el tmbre - CveTimbre = ObjGenerales.AddGralTimbre("Tra", CveSubProyecto, DateTime.Now, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEntregaAlmacen : CveEntregaAlmacen, AplicaCP: true); - - - + if (TimbreTipoDocto == "Tra") + { + CveTimbre = ObjGenerales.AddGralTimbre("Tra", CveSubProyecto, DateTime.Now, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEntregaAlmacen: CveEntregaAlmacen, AplicaCP: true); + } ProcesoOK = true; } }