diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index c16b91bb9..090a76161 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -10391,8 +10391,7 @@ Public Class ClsPaginas PaginaDict.Add("/MQ/OrdenTrabajo.aspx".ToUpper, 1412) PaginaDict.Add("/MQ/CatOrdenTrabajo.aspx".ToUpper, 1413) PaginaDict.Add("/MQ/HorometroDiario.aspx".ToUpper, 1414) - - PaginaDict.Add("/MQ/TipoOrdenTrabajo.aspx".ToUpper, -1) + PaginaDict.Add("/MQ/TipoOrdenTrabajo.aspx".ToUpper, 1415) #End Region #Region "Nomina" diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 3f30dd49c..d87eb3840 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -6185,7 +6185,7 @@ Namespace Modelos If Not ErrorCancelar Then If ObjInventario.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then DtMovRemision = ObjInventario.DtResultados.FiltraParametros("CveTipoAlmacen = 10") - CveAlmacenGeneral = ObjInventario.DtResultados.FiltroPrimeroValor("CveAlmacen", "CveTipoAlmacen = 1").ToString().ToEntero() + CveAlmacenGeneral = ObjInventario.DtResultados.FiltroPrimeroValor("CveAlmacen", "CveTipoAlmacen IN (1,4)").ToString().ToEntero() 'SI ES SERVICIO A DOMICILIO DEBE REGRESAR A ESTE TIPO DE ALMACEN If Me.ServicioDomicilio Then CveAlmacenGeneral = ObjInventario.DtResultados.FiltroPrimeroValor("CveAlmacen", "CveTipoAlmacen = 29").ToString().ToEntero() diff --git a/Compras/RepCxP.aspx b/Compras/RepCxP.aspx index 21ceaabd5..1d1e25ff5 100644 --- a/Compras/RepCxP.aspx +++ b/Compras/RepCxP.aspx @@ -470,8 +470,7 @@ - % X Recup. - + % X Recup. @@ -522,6 +521,21 @@ + + + + + + + + + + + + + + + diff --git a/MQ/HorometroDiario.aspx.vb b/MQ/HorometroDiario.aspx.vb index d4c1749d1..7b4ca2a7b 100644 --- a/MQ/HorometroDiario.aspx.vb +++ b/MQ/HorometroDiario.aspx.vb @@ -2,6 +2,7 @@ Imports System.Data Imports System.Linq +Imports CrystalDecisions.Shared.Json Imports Extensiones Partial Class AF_HorometroDiario @@ -60,10 +61,21 @@ Partial Class AF_HorometroDiario Private Sub CargCombos() - DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa) + Dim ObjActivosFijos As New ClsAF + + + If ObjActivosFijos.GetActivosFijos(-1, UsuarioActual.CveEmpresa, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, -1, "", -1) Then + DdlAF.DataSource = ObjActivosFijos.DtResultados.FiltraParametros(" MedidaVehicular in (2, 3) ") + Else + DdlAF.DataSource = Nothing + End If + + DdlAF.DataBind() + + DdlSubProyecto.Items.Clear() DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, CveEmpresa:=UsuarioActual.CveEmpresa) DdlSubProyecto.DataBind() diff --git a/MQ/TipoOrdenTrabajo.aspx.vb b/MQ/TipoOrdenTrabajo.aspx.vb index e734ff8f2..42f9edbfc 100644 --- a/MQ/TipoOrdenTrabajo.aspx.vb +++ b/MQ/TipoOrdenTrabajo.aspx.vb @@ -307,7 +307,7 @@ Partial Class MQ_TipoOrdenTrabajo GvMaterial.DataSource = DTMateriales Else - GvMaterial = Nothing + GvMaterial.DataSource = Nothing End If ObjAF.Dispose() @@ -1198,6 +1198,7 @@ Partial Class MQ_TipoOrdenTrabajo If ErrorProceso Then ObjAF.RollBack() + CveTipoServicio = -1 Else ObjAF.Commit() Alert("Tipo servicio guardado correctamente.", TipoMensaje.MsgInformacion) diff --git a/SAT/SolicitudesIngresoSat.aspx b/SAT/SolicitudesIngresoSat.aspx index 7814cf401..829046433 100644 --- a/SAT/SolicitudesIngresoSat.aspx +++ b/SAT/SolicitudesIngresoSat.aspx @@ -74,8 +74,12 @@ -
+
+
+ + +
@@ -122,16 +126,28 @@
-
- - -
- -
@@ -186,7 +202,7 @@ - + @@ -221,7 +237,7 @@ - + @@ -262,117 +278,103 @@ - - - - - - - - + + - - + + + + + + - + - - - - + + - - - - + + - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + - - - + + + + + + - - - + - - - - + - - - + - - - - - - - - - + + + + + + + + + + + - - - - + + + + + diff --git a/SAT/SolicitudesIngresoSat.aspx.cs b/SAT/SolicitudesIngresoSat.aspx.cs index 1ff768086..0a9c61021 100644 --- a/SAT/SolicitudesIngresoSat.aspx.cs +++ b/SAT/SolicitudesIngresoSat.aspx.cs @@ -112,7 +112,7 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas using (ClsNominas ObjNom = new ClsNominas()) { - if (ObjNom.SATSolicitudTimbreIngresosRep(UsuarioActual.CveEmpresa, TxtRpdFechaInicio.Text.ToDate(), TxtRpdFechaFin.Text.ToDate(), DdlReporte.SelectedValue.ToEntero(), DdlVista.SelectedValue.ToEntero())) + if (ObjNom.SATSolicitudTimbreIngresosRep(UsuarioActual.CveEmpresa, TxtRpdFechaInicio.Text.ToDate(), TxtRpdFechaFin.Text.ToDate(), DdlReporte.SelectedValue.ToEntero(), DdlVista.SelectedValue.ToEntero(), DdlTipoDocto.SelectedValue, DdlTipoDiferencia.SelectedValue.ToEntero())) { if (DdlReporte.SelectedValue.ToEntero() == 1 || DdlReporte.SelectedValue.ToEntero() == 3) { @@ -121,8 +121,8 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas LnkDownloadExcel.Visible = true; if (UsuarioActual.Empresa.Funcionalidad(713) == "1") { - GvResumen.Columns[4].Visible = false; - GvResumen.Columns[11].Visible = false; + GvResumen.Columns[4].Visible = true; + GvResumen.Columns[11].Visible = true; } } else if (DdlReporte.SelectedValue.ToEntero() == 2) @@ -261,24 +261,17 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas } protected void LnkverificarSolicitudes_Click(object sender, EventArgs e) - { - + { try - { - - - StringBuilder sbResultado = new StringBuilder(); - - + { + StringBuilder sbResultado = new StringBuilder(); foreach (GridViewRow GvRow in GVSolicitudesPendientes.Rows) { - int CveSolicitudActual = GvRow.DataKey("CveSolicitud").ToEntero(); string idSolicitud = GvRow.DataKey("idSolicitud").Trim(); int CveTipoSolicitud = GvRow.DataKey("CveTipoSolicitud").ToEntero(); int Folio = GvRow.DataKey("Folio").ToEntero(); - List resultSolicitud = new List(); List resultVerificacion = new List(); var ResultadoVerificaionOK = false; diff --git a/Ventas/RepVentas.aspx b/Ventas/RepVentas.aspx index a0d7ae3f0..15ca9b94b 100644 --- a/Ventas/RepVentas.aspx +++ b/Ventas/RepVentas.aspx @@ -506,7 +506,7 @@ - + diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb index 66a52fd02..ecd30bce7 100644 --- a/Ventas/RepVentas.aspx.vb +++ b/Ventas/RepVentas.aspx.vb @@ -521,13 +521,9 @@ Partial Class Ventas_RepVentas Private Sub PrePersonalizacion() - 'ChkDescuentos.Visible = False - If UsuarioActual.Empresa.Funcionalidad(713) = "1" Then - ChkIEPS.Visible = True - Else - ChkIEPS.Visible = False - GvDatos.Columns(7).Visible = False - End If + + If UsuarioActual.Empresa.Funcionalidad(713) = "1" Then ChkIEPS.Visible = True + End Sub Protected Sub LnkPErsonalizar_Click(sender As Object, e As EventArgs) @@ -715,7 +711,6 @@ Partial Class Ventas_RepVentas Next - Personaliza() Else PersonalizaDefault() @@ -734,9 +729,8 @@ Partial Class Ventas_RepVentas ChkSubTotal2.Checked = True ChkIVA.Checked = True - If UsuarioActual.Empresa.Funcionalidad(713) = "1" Then - ChkIEPS.Checked = True - End If + If UsuarioActual.Empresa.Funcionalidad(713) = "1" Then ChkIEPS.Checked = True + 'ChkRetIVA.Checked = True 'ChkRetISR.Checked = True 'ChkImpLoc.Checked = True