From 9ac23a717214cdc314f92173b688864dee1197cb Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Thu, 15 Feb 2024 08:29:30 -0700
Subject: [PATCH] MAquinaria correciones Horometro Diario y Cls PAginas

---
 App_Code/ClsPaginas.vb      |  3 +--
 MQ/HorometroDiario.aspx.vb  | 14 +++++++++++++-
 MQ/TipoOrdenTrabajo.aspx.vb |  3 ++-
 3 files changed, 16 insertions(+), 4 deletions(-)

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