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 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 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 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; } } 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()