MAquinaria correciones Horometro Diario y Cls PAginas

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"

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

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)