diff --git a/OC/CotizacionEnLinea.aspx.vb b/OC/CotizacionEnLinea.aspx.vb
index 245e73b4d..f2633bf04 100644
--- a/OC/CotizacionEnLinea.aspx.vb
+++ b/OC/CotizacionEnLinea.aspx.vb
@@ -295,7 +295,7 @@ Partial Class OC_CotizacionEnLinea
         objCotizacion.IniciaTransacSQL()
         Dim TieneError = False
 
-        If objCotizacion.UpdateCotizacion(CveProveedor, CveColectiva, TxtFolio.Text, NowADS().ToShortDateString(), IO.Path.GetExtension(FUArchivo.FileName), ddlMoneda.SelectedValue.ToEntero, TxtDiasCredito.Text.ToEntero, 0, CveCotizacion) Then
+        If objCotizacion.UpdateCotizacion(CveProveedor, CveColectiva, TxtFolio.Text, ClsPaginas.NowADS().ToShortDateString(), IO.Path.GetExtension(FUArchivo.FileName), ddlMoneda.SelectedValue.ToEntero, TxtDiasCredito.Text.ToEntero, 0, CveCotizacion) Then
 
             If FUArchivo.HasFile Then
                 'verificar que exista el directorio
@@ -509,7 +509,7 @@ Partial Class OC_CotizacionEnLinea
     Protected Sub GvD_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvD.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
 
-            e.Row.FCCalendarExtender("CEFechaEntrega").StartDate = NowADS()
+            e.Row.FCCalendarExtender("CEFechaEntrega").StartDate = ClsPaginas.NowADS()
             e.Row.FCTextBox("TxtPU").Attributes.Add("onchange", String.Format("$get('{0}').value =  FormatNumber(parseFloat(this.value) * parseFloat($get('{1}').value), 2, true, true, true);", e.Row.FCTextBox("TxtImporte").ClientID, e.Row.FCTextBox("TxtCant").ClientID))
 
             Page.ClientScript.RegisterExpandoAttribute(e.Row.FCCustomValidator("CVFechaEntrega").ClientID, "txtCantidadSurtir", e.Row.FCTextBox("txtCantidadSurtir").ClientID, False)
diff --git a/Sistemas/Registro.aspx.vb b/Sistemas/Registro.aspx.vb
index 5d1ca9cf3..728fbb8d1 100644
--- a/Sistemas/Registro.aspx.vb
+++ b/Sistemas/Registro.aspx.vb
@@ -123,7 +123,7 @@ Partial Class Sistemas_Registro
         strBody.Append("                        <tr>")
         strBody.Append("                            <td>Fecha</td>")
         strBody.Append("                            <td>")
-        strBody.Append(NowADS().ToString("dd/MM/yy"))
+        strBody.Append(ClsPaginas.NowADS().ToString("dd/MM/yy"))
         strBody.Append("</td>                        </tr>")
         strBody.Append("                        <tr>")
         strBody.AppendFormat("                            <td>Buen día, {0} </td>", Nombre)
diff --git a/Sistemas/RegistroEmpresa.aspx.vb b/Sistemas/RegistroEmpresa.aspx.vb
index f8a265fc1..205bb4874 100644
--- a/Sistemas/RegistroEmpresa.aspx.vb
+++ b/Sistemas/RegistroEmpresa.aspx.vb
@@ -135,7 +135,7 @@ Partial Class Sistemas_RegistroEmpresa
         strBody.Append("                    <table class=""mitablita"" style=""font-family: Helvetica, sans-serif;"">")
         strBody.Append("                        <tr>")
         strBody.Append("                            <td>Fecha: ")
-        strBody.Append(NowADS().ToString("dd/MM/yy"))
+        strBody.Append(ClsPaginas.NowADS().ToString("dd/MM/yy"))
         strBody.Append("                        </td>    <td>")
         strBody.Append("</td>                        </tr>")
         strBody.Append("                        <tr>")