From f5d84f920db2425a20284b376e55e0e17b042c1d Mon Sep 17 00:00:00 2001
From: Oscar Irigoyen <rakcsle@outlook.com>
Date: Fri, 14 Oct 2022 22:16:03 -0700
Subject: [PATCH] Servicios

---
 App_Code/ClsOS.vb                      | 22 ++++++++++++++--
 Bancos/ConciliacionesBancarias.aspx.vb |  5 ++--
 Empresas/172/Formatos/OC.rdlc          |  3 ++-
 General/SaldosIniciales.aspx.vb        | 27 ++++++++++++-------
 OS/OrdenesServicios.aspx               | 36 +++++++++++++++++++++++---
 OS/OrdenesServicios.aspx.vb            | 30 +++++++++++++++++++--
 OS/RepServicioDomicilio.aspx           |  9 ++++++-
 7 files changed, 110 insertions(+), 22 deletions(-)

diff --git a/App_Code/ClsOS.vb b/App_Code/ClsOS.vb
index 102870404..c4148db68 100644
--- a/App_Code/ClsOS.vb
+++ b/App_Code/ClsOS.vb
@@ -59,6 +59,10 @@ Public Class ClsOS
     Public Property CveSubProyecto As Integer
     Public Property CveOSDetalle As Integer
     Public Property CveOSTipo As Integer
+    Public Property Telefono As String = ""
+    Public Property CveModeloAuto As Integer = -1
+    Public Property Año As String = ""
+
     Private Class Especificaciones
         Public CveValor As Integer
         Public CvePSCaracteristica As Integer
@@ -516,6 +520,10 @@ Public Class ClsOS
                 Me.UsuarioEntrego = Data.Rows(0)("UsuarioEntrego").ToString
                 Me.CveSubProyecto = Data.Rows(0)("CveSubproyecto").ToString
                 Me.CveOSTipo = Data.Rows(0)("CveOrdenServicioTipo").ToString.ToEntero
+
+                Me.Telefono = Data.Rows(0)("TelefonoContacto").ToString
+                Me.CveModeloAuto = Data.Rows(0)("CveModeloAuto").ToString.ToEntero
+                Me.Año = Data.Rows(0)("Año").ToString
             End If
             Retorno = True
         Catch ex As Exception
@@ -569,7 +577,7 @@ Public Class ClsOS
     End Function
     Public Function AddOrdenesServicios(CveCliente As Integer, CveSubProyecto As Integer, PersonaSolicito As String, FechaRecepcion As Date, Descripcion As String, CveUsuarioRecibio As Integer, CveEstatusOrdenServicio As Integer,
                                         CveUsuario As Integer, CveEmpresa As Integer, CveCotizacion As Integer, CveVenta As Integer, CveOSPadre As Integer, CveOSTipo As Integer, Optional CveClienteSucursal As Integer = -1,
-                                         Optional Direccion As String = "-1") As Boolean
+                                         Optional Direccion As String = "-1", Optional Telefono As String = "", Optional CveModeloAuto As Integer = -1, Optional Año As String = "-1") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_OS_OrdenesServiciosAdd")
@@ -591,6 +599,10 @@ Public Class ClsOS
             .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
             .Add("@Direccion", SqlDbType.VarChar).Value = Direccion
 
+            .Add("@Telefono", SqlDbType.VarChar).Value = Telefono
+            .Add("@CveModeloAuto", SqlDbType.Int).Value = CveModeloAuto
+            .Add("@Año", SqlDbType.VarChar).Value = Año
+
             .Add("@CveOS", SqlDbType.Int).Direction = ParameterDirection.Output
             .Add("@vFolio", SqlDbType.Int).Direction = ParameterDirection.Output
         End With
@@ -633,7 +645,8 @@ Public Class ClsOS
         Return Retorno
     End Function
     Public Function UpdateOrdenesServicios(PersonaSolicito As String, FechaRecepcion As String, Descripcion As String, CveUsuarioRecibio As Integer, CveEstatusOrdenServicio As Integer, CveOS As Integer, CveUsuarioModifico As Integer,
-                                           CveOSTipo As Integer, Optional CveClienteSucursal As Integer = -1, Optional Direccion As String = "-1") As Boolean
+                                           CveOSTipo As Integer, Optional CveClienteSucursal As Integer = -1, Optional Direccion As String = "-1",
+                                           Optional Telefono As String = "", Optional CveModeloAuto As Integer = -1, Optional Año As String = "-1") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_OS_OrdenesServiciosUpdate")
@@ -649,6 +662,11 @@ Public Class ClsOS
             .Add("@CveOS", SqlDbType.Int).Value = CveOS
             .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
             .Add("@Direccion", SqlDbType.VarChar).Value = Direccion
+
+            .Add("@Telefono", SqlDbType.VarChar).Value = Telefono
+            .Add("@CveModeloAuto", SqlDbType.Int).Value = CveModeloAuto
+            .Add("@Año", SqlDbType.VarChar).Value = Año
+
         End With
 
         Try
diff --git a/Bancos/ConciliacionesBancarias.aspx.vb b/Bancos/ConciliacionesBancarias.aspx.vb
index 1bb67144a..05a6e20ff 100644
--- a/Bancos/ConciliacionesBancarias.aspx.vb
+++ b/Bancos/ConciliacionesBancarias.aspx.vb
@@ -551,8 +551,9 @@ Partial Class Bancos_ConciliacionesBancariasaspx
     End Sub
     Protected Sub GeneraPDF(Formato As String)
         Dim params As List(Of ReportParameter) = New List(Of ReportParameter)()
+
         Dim Imagen As System.IO.FileInfo = New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
         params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
         params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString()))
@@ -662,7 +663,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx
         params.Add(New ReportParameter("Filtros", Filtros))
 
         If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If
diff --git a/Empresas/172/Formatos/OC.rdlc b/Empresas/172/Formatos/OC.rdlc
index e9580c58c..2920340b9 100644
--- a/Empresas/172/Formatos/OC.rdlc
+++ b/Empresas/172/Formatos/OC.rdlc
@@ -682,6 +682,7 @@
               </TablixMembers>
             </TablixRowHierarchy>
             <DataSetName>DsOC</DataSetName>
+            <Top>0cm</Top>
             <Left>0.04788in</Left>
             <Height>0.36752in</Height>
             <Width>8.15357in</Width>
@@ -1702,7 +1703,7 @@
                 <Paragraph>
                   <TextRuns>
                     <TextRun>
-                      <Value> Citrus Game, S.A. de C.V.</Value>
+                      <Value>CITRUS GAME S.A.P.I. DE C.V.</Value>
                       <Style>
                         <FontFamily>Myriad Pro</FontFamily>
                         <FontSize>8.5pt</FontSize>
diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb
index 652cdc548..e52b37cb8 100644
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -650,7 +650,7 @@ Partial Class General_SaldosIniciales
         If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
 
             Dim ObjConta As New ClsContabilidad
-            If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
+            If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
                 DTCuentasContables = ObjConta.DtResultados
             End If
             ObjConta.Dispose()
@@ -1502,8 +1502,8 @@ Partial Class General_SaldosIniciales
                     Dim CveProveedorSucursal As Integer = Row("CveProveedorSucursal").ToString.ToEntero
                     Dim PorcentajeIVA As String = Row("PorcentajeIVA").ToString
                     Dim ImpuestosLocales As Decimal = If(dt.Columns.Contains("ImpuestosLocales"), Row("ImpuestosLocales").ToString, "0").ToDecimal
-
-
+                    Dim RetIVAPorcentaje As Decimal = Row("RetIVAPorcentaje").ToString.ToDecimal
+                    Dim RetISRPorcentaje As Decimal = Row("RetISRPorcentaje").ToString.ToDecimal
 
 
                     If Not CvePS > 0 Then Alert(String.Format("No se encontró el Producto Servicio"), TipoMensaje.MsgError) : ErrorCompras = True
@@ -1511,7 +1511,8 @@ Partial Class General_SaldosIniciales
                     If Not CveProveedor > 0 Then Alert(String.Format("No se encontró el Proveedor con el RFC: {0}", {RFC}), TipoMensaje.MsgError) : ErrorCompras = True : Exit For
                     If Not CveProveedorSucursal > 0 Then CveProveedorSucursal = -1
 
-                    TipoDocto = IIf(TipoDocto.ToUpper.Contiene("INGRESOS", "INGRESO", "ING"), "Fac", "NC").ToString
+                    TipoDocto = IIf(TipoDocto.ToUpper.Contiene("INGRESOS", "INGRESO", "ING", "FACTURA"), "Fac", "NC").ToString
+
 
 
                     'Temporalmente SE BORRARA
@@ -1553,7 +1554,7 @@ Partial Class General_SaldosIniciales
                     CveCompra = ObjCompras.CveCompra
 
                     'Compra Detalle
-                    If Not ObjCompras.AddCompraDetalle(CveCompra, CveUnidadMedida, CvePS, Sucursal.ToEntero, -1, 0, 1, SubTotal, 0.16D, SubTotal, 0, "Carga Inicial", -1) Then
+                    If Not ObjCompras.AddCompraDetalle(CveCompra, CveUnidadMedida, CvePS, Sucursal.ToEntero, -1, 0, 1, SubTotal, 0.16D, SubTotal, 0, "Carga Inicial", -1, IVAPorcentaje:=PorcentajeIVA.ToDecimal, RetIVAPorcentaje:=RetIVAPorcentaje, RetISRPorcentaje:=RetISRPorcentaje) Then
                         ErrorCompras = True
                         Exit For
                     End If
@@ -1563,7 +1564,13 @@ Partial Class General_SaldosIniciales
                     'PrePólizaDetalle
                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total, Folio, IIf(TipoDocto = "Fac", 5, 18).ToString.ToEntero, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=Total, CveSubProyecto:=Sucursal.ToEntero) Then ErrorCompras = True : Exit For
                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, SubTotal, Folio, 6, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=SubTotal, CveClasificacion:=CveClasificacion, CveSubProyecto:=Sucursal.ToEntero) Then ErrorCompras = True : Exit For
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, IVA, Folio, 14, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=IVA, CveSubProyecto:=Sucursal.ToEntero) Then ErrorCompras = True : Exit For
+
+                    If IVA > 0 Then
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, IVA, Folio, 14, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=IVA, CveSubProyecto:=Sucursal.ToEntero, CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeIVA.ToDecimal) Then ErrorCompras = True : Exit For
+                    End If
+
+
+
                     If IEPS > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, IEPS, Folio, 25, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=IEPS, CveSubProyecto:=Sucursal.ToEntero) Then ErrorCompras = True : Exit For
 
                     If RetIVA > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, RetIVA, Folio, 15, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=RetIVA, CveSubProyecto:=Sucursal.ToEntero) Then ErrorCompras = True : Exit For
@@ -1572,8 +1579,8 @@ Partial Class General_SaldosIniciales
 
                     'Saldo
                     If Saldo < Total Then
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Total - Saldo, Folio, 17, Folio, Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=Total - Saldo) Then ErrorCompras = True : Exit For
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total - Saldo, Folio, 95, Folio, Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=Total - Saldo) Then ErrorCompras = True : Exit For
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Total - Saldo, $"{Folio} SALDO INICIAL", 17, Folio, Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=Total - Saldo) Then ErrorCompras = True : Exit For
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total - Saldo, $"{Folio} SALDO INICIAL", 95, Folio, Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=Total - Saldo) Then ErrorCompras = True : Exit For
                     End If
                     Encontrados = Encontrados + 1
 
@@ -2372,8 +2379,8 @@ Partial Class General_SaldosIniciales
             Dim Clasificacion As String = dRow("Clasificacion").ToString.Trim
             Dim Categoria As String = dRow("Categoria").ToString.Trim
             Dim UsoClasificacion As String = dRow("UsoClasificacion").ToString.Trim.ToUpper
-            Dim CuentaContableIngreso As String = dRow("CuentaContableIngreso").ToString.Trim
-            Dim CuentaContableGasto As String = dRow("CuentaContableGasto").ToString.Trim
+            Dim CuentaContableIngreso As String = dRow("CuentaContableIngreso").ToString.Trim.Replace("-", "")
+            Dim CuentaContableGasto As String = dRow("CuentaContableGasto").ToString.Trim.Replace("-", "")
 
             Dim CveClasificacion As Integer = -1
             Dim CveUsoClasificacion As Integer = -1
diff --git a/OS/OrdenesServicios.aspx b/OS/OrdenesServicios.aspx
index c8d882cf4..28afc466f 100644
--- a/OS/OrdenesServicios.aspx
+++ b/OS/OrdenesServicios.aspx
@@ -157,16 +157,44 @@
                                             </div>
                                         </div>
 
-                                        <div class="row">
+                                         <div class="row" >
 
-                                            <div class="col-md-2">
-                                                <b>Drección:</b>
+                                             <div class="col-md-2" style="margin-top: 5px" >
+                                                <b>Dirección:</b>
                                             </div>
-                                            <div class="col-md-4">
+                                            <div class="col-md-4" style="margin-top: 5px" >
                                                 <asp:TextBox ID="TxtDireccion" runat="server" MaxLength="300"   CssClass="form-control" />
                                             </div>
 
+
+                                            <div class="col-md-2"  style="margin-top: 5px"   id="DVDatosAdicionalesAcum1" runat="server" visible="false"  >
+                                                <b>Telefono:</b>
+                                            </div>
+                                            <div class="col-md-4" style="margin-top: 5px"  id="DVDatosAdicionalesAcum3" runat="server" visible="false" >                                                
+                                                <asp:TextBox ID="TxtTelefono" CssClass="form-control" runat="server" MaxLength="10"></asp:TextBox>
+                                                <ajax:MaskedEditExtender ID="MaskedEditExtender4" runat="server" TargetControlID="TxtTelefono" ClearMaskOnLostFocus="false" MaskType="None" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
+                                            </div>
+                                          
                                         </div>
+
+                                         <div class="row" id="DVDatosAdicionalesAcum2" runat="server" visible="false">
+                                               <div class="col-md-2" style="margin-top: 5px" >
+                                                <b>Modelo:</b>
+                                            </div>
+                                            <div class="col-md-4" style="margin-top: 5px;text-align:left">
+                                                 <asp:DropDownList ID="DdlModeloAuto" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="ModeloMarca" DataValueField="CveModeloAuto">       </asp:DropDownList>
+                                            </div>
+
+                                            <div class="col-md-2" style="margin-top: 5px" >
+                                                <b>Año:</b>
+                                            </div>
+                                            <div class="col-md-4" style="margin-top: 5px" >                                                
+                                                <asp:TextBox ID="TxtAnio" CssClass="form-control" runat="server" MaxLength="4"></asp:TextBox>                                                
+                                            </div>
+                                     
+                                        </div>
+
+                                       
                                     </div>
                                 </div>
                             </ContentTemplate>
diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb
index 26f79e537..2d4c91f12 100644
--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -5,6 +5,7 @@ Imports Extensiones
 Imports System.IO
 Imports System.Data
 Imports Microsoft.Reporting.WebForms
+Imports ADSNetLibrary.SIGAPI.Models.Sistema
 
 'Imports msExcel = Microsoft.Office.Interop.Excel
 'Imports VBIDE
@@ -291,6 +292,7 @@ Partial Class OS_OrdenesServicios
             CargaPSCaracteristicasOpciones()
             CargaCuentasCaracteristicas()
             CargaAlmacen()
+            CargaModelos()
 
             CreaDT()
             CreaDTPS()
@@ -362,6 +364,10 @@ Partial Class OS_OrdenesServicios
 
 
             If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                DVDatosAdicionalesAcum1.Visible = True
+                DVDatosAdicionalesAcum2.Visible = True
+                DVDatosAdicionalesAcum3.Visible = True
+            Else
                 LblCuentaEquipoTH.Visible = False
                 DdlCuentaEquipo.Visible = False
             End If
@@ -538,6 +544,12 @@ Partial Class OS_OrdenesServicios
                 DivMateriales.Visible = True
                 ImgImprimir.Visible = True
 
+
+
+                TxtTelefono.Text = ObjOS.Telefono
+                DdlModeloAuto.SelectedValueExist(ObjOS.CveModeloAuto)
+                TxtAnio.Text = ObjOS.Año
+
                 CargaEventoBitacora()
                 CargaHistorial()
             Else
@@ -1032,7 +1044,9 @@ Partial Class OS_OrdenesServicios
 
         If Not CveOS > 0 Then
             Dim bandera As Integer = DdlEstatusOS.SelectedValue.ToEntero
-            If Not ObjOrdenServicio.AddOrdenesServicios(CveCliente, DdlSubProyecto.SelectedValue.ToEntero, TxtSolicito.Text, TxtFechaRecibido.Text.ToDateTime, TxtDescripcion.Text, UsuarioActual.CveUsuario, EstatusOrdenServicio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCotizacion, -1, -1, DdlTipoOrdenOS.SelectedValue.ToEntero, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero, Direccion:=TxtDireccion.Text) Then
+            If Not ObjOrdenServicio.AddOrdenesServicios(CveCliente, DdlSubProyecto.SelectedValue.ToEntero, TxtSolicito.Text, TxtFechaRecibido.Text.ToDateTime, TxtDescripcion.Text, UsuarioActual.CveUsuario, EstatusOrdenServicio,
+                                                        UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCotizacion, -1, -1, DdlTipoOrdenOS.SelectedValue.ToEntero, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero,
+                                                        Direccion:=TxtDireccion.Text, Telefono:=TxtTelefono.Text, CveModeloAuto:=DdlModeloAuto.SelectedValue.ToEntero, Año:=TxtAnio.Text) Then
                 Errores = True
             End If
             CargaCliente(CveCliente)
@@ -1129,7 +1143,9 @@ Partial Class OS_OrdenesServicios
 
         Else
             If CveTecnico = UsuarioActual.CveUsuario Then
-                If ObjOrdenServicio.UpdateOrdenesServicios(TxtSolicito.Text, TxtFechaRecibido.Text, TxtDescripcion.Text, UsuarioActual.CveUsuario, DdlEstatusOS.SelectedValue.ToEntero, CveOS, UsuarioActual.CveUsuario, DdlTipoOrdenOS.SelectedValue.ToEntero, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero, Direccion:=TxtDireccion.Text) Then
+                If ObjOrdenServicio.UpdateOrdenesServicios(TxtSolicito.Text, TxtFechaRecibido.Text, TxtDescripcion.Text, UsuarioActual.CveUsuario, DdlEstatusOS.SelectedValue.ToEntero, CveOS, UsuarioActual.CveUsuario,
+                                                           DdlTipoOrdenOS.SelectedValue.ToEntero, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero, Direccion:=TxtDireccion.Text, Telefono:=TxtTelefono.Text,
+                                                           CveModeloAuto:=DdlModeloAuto.SelectedValue.ToEntero, Año:=TxtAnio.Text) Then
                     For Each Row As DataRow In TmpDT.Rows
                         If Not Errores Then
                             Dim CvePS As Integer = Row("CvePS").ToString.ToEntero
@@ -2536,6 +2552,16 @@ Partial Class OS_OrdenesServicios
         DdlAlmacenDestino.DataBind()
         DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
+
+
+    Private Sub CargaModelos()
+        Dim ObjGral As New ClsGenerales
+        If ObjGral.ModelosAutosGet(1, UsuarioActual.CveEmpresa) Then
+            DdlModeloAuto.DataSource = ObjGral.DtResultados
+        End If
+        DdlModeloAuto.DataBind()
+        DdlModeloAuto.Items.Insert(0, New ListItem("Sin Asignar", "-1"))
+    End Sub
     Public Sub ShowDivSolicitarMaterial_Click(sender As Object, e As EventArgs)
         RegistraScript("ShowDivGvSolicitarMaterial();")
     End Sub
diff --git a/OS/RepServicioDomicilio.aspx b/OS/RepServicioDomicilio.aspx
index a40f02aea..6a5edb7ba 100644
--- a/OS/RepServicioDomicilio.aspx
+++ b/OS/RepServicioDomicilio.aspx
@@ -619,7 +619,8 @@
             // if addresult is -1, means event was not added
             //    alert("added key: " + addResult);
 
-            if (addResult != -1) {
+            if (addResult != -1) {                
+
                 $('#calendar').fullCalendar('renderEvent',
                     {
                         title: $("#addEventName").val(),
@@ -632,8 +633,12 @@
                     true // make the event "stick"
                 );
 
+                $('#calendar').fullCalendar('option', 'minTime', '06:00:00');
+                $('#calendar').fullCalendar('option', 'maxTime', '17:00:00');
 
                 $('#calendar').fullCalendar('unselect');
+
+                
             }
         }
 
@@ -770,6 +775,8 @@
                 selectHelper: true,
                 select: selectDate,
                 editable: true,
+                minTime: "08:00:00",
+                maxTime: "17:00:00",
                 events: {
                     url: '/Ashx/CargaEventos.ashx',
                     type: 'GET',