diff --git a/App_Code/ClsOS.vb b/App_Code/ClsOS.vb
index 6f318bc4a..4aaabb0e2 100644
--- a/App_Code/ClsOS.vb
+++ b/App_Code/ClsOS.vb
@@ -464,7 +464,7 @@ Public Class ClsOS
 
 #Region "ClsOSOrdenesServicios"
     'Reporte de Ventas
-    Public Function GetRepOrdenesServicio(FechaI As String, FechaF As String, FechaTerminado As String, CveCliente As Integer, CveSubProyecto As Integer, CveUsuarioRecibio As Integer, CveTecnico As Integer,
+    Public Function GetRepOrdenesServicio(FechaI As Date, FechaF As Date, FechaTerminado As String, CveCliente As Integer, CveSubProyecto As Integer, CveUsuarioRecibio As Integer, CveTecnico As Integer,
                                           CveEstatusOrdenServicio As Integer, CveEmpresa As Integer, Optional Opcion As Integer = -1, Optional CveUsuarioAsignado As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
@@ -472,8 +472,8 @@ Public Class ClsOS
 
         With SqlAdapter.SelectCommand.Parameters
             '.Add("@CveVenta", SqlDbType.Int).Value = CveVenta
-            .Add("@FechaI", SqlDbType.VarChar).Value = FechaI
-            .Add("@FechaF", SqlDbType.VarChar).Value = FechaF
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+            .Add("@FechaF", SqlDbType.Date).Value = FechaF
             .Add("@FechaTerminado", SqlDbType.VarChar).Value = FechaTerminado
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto