", NowADS().ToLongDateString)
GvE.CaptionAlign = TableCaptionAlign.Left
GvE.DataSource = dt
GvE.DataBind()
diff --git a/AIMMGM/PopRegistro.aspx.vb b/AIMMGM/PopRegistro.aspx.vb
index 6e590e2cf..34d29a09b 100644
--- a/AIMMGM/PopRegistro.aspx.vb
+++ b/AIMMGM/PopRegistro.aspx.vb
@@ -72,7 +72,7 @@ Partial Class AIMMGM_Registro
For Each dr As DataRow In dtExcursiones.Rows
Dim AIM As New ClsAIMMGM
- If AIM.RepVentasPS(1, -1, -1, -1, "01/01/2014".ToDate, Now, 43) Then
+ If AIM.RepVentasPS(1, -1, -1, -1, "01/01/2014".ToDate, NowADS(), 43) Then
Contador = AIM.DtResultados.COUNT("CvePS", "CvePS = " & dr("CvePS").ToString)
If Contador >= 20 Then
dr("CvePS") = 0
@@ -299,7 +299,7 @@ Partial Class AIMMGM_Registro
If System.Web.HttpContext.Current IsNot Nothing AndAlso System.Web.HttpContext.Current.Handler IsNot Nothing Then
Dim Img, Botones As String
Dim Titulo As String
- Dim Plus As String = DateTime.Now.Ticks.ToString
+ Dim Plus As String = NowADS().Ticks.ToString
Mensaje = Mensaje.Replace("'"c, "\'")
JSBtnAceptar = JSBtnAceptar.Replace("'"c, "\'")
@@ -335,8 +335,8 @@ Partial Class AIMMGM_Registro
Dim Pag As Page = DirectCast(System.Web.HttpContext.Current.Handler, Page)
- 'ScriptManager.RegisterStartupScript(Pag, Pag.GetType(), (DateTime.Now.Ticks + 1).ToString(), "MuestraAlert('" & Alerta.ToString() & "', '" & Plus & "');", True)
- ScriptManager.RegisterStartupScript(Pag, Pag.GetType(), (DateTime.Now.Ticks + 1).ToString(), String.Format("MuestraAlerta('{0}','{1}','{2}','{3}','{4}');", Titulo, Mensaje, Img, Botones, JSBtnAceptar), True)
+ 'ScriptManager.RegisterStartupScript(Pag, Pag.GetType(), (NowADS().Ticks + 1).ToString(), "MuestraAlert('" & Alerta.ToString() & "', '" & Plus & "');", True)
+ ScriptManager.RegisterStartupScript(Pag, Pag.GetType(), (NowADS().Ticks + 1).ToString(), String.Format("MuestraAlerta('{0}','{1}','{2}','{3}','{4}');", Titulo, Mensaje, Img, Botones, JSBtnAceptar), True)
Pag = Nothing
Catch ex As Exception
@@ -420,7 +420,7 @@ Partial Class AIMMGM_Registro
Dim tnombre As String
Dim TieneExcursion As Boolean = False
'DdlFiscalMetodoPago.SelectedValue.ToEntero1,
- If Venta.AddVenta("Rem", 0, CveCliente, 2069, TmpDT.SUM("Total"), 0, 0, 0, 0, 0, TmpDT.SUM("Total"), 1, 0, CveMetodoPago, 0, 0, Now, "", "", 0, Now, -1, -1, "", "", "", 0, 0, 0, 0, DateTime.MinValue, DateTime.MinValue, DateTime.MinValue, -1, -1, 0, 1, 0, 2069, 43) Then
+ If Venta.AddVenta("Rem", 0, CveCliente, 2069, TmpDT.SUM("Total"), 0, 0, 0, 0, 0, TmpDT.SUM("Total"), 1, 0, CveMetodoPago, 0, 0, NowADS(), "", "", 0, NowADS(), -1, -1, "", "", "", 0, 0, 0, 0, DateTime.MinValue, DateTime.MinValue, DateTime.MinValue, -1, -1, 0, 1, 0, 2069, 43) Then
Dim CveVenta As Integer = Venta.CveVenta
For Each dr As DataRow In TmpDT.Rows
Dim CveUnidadMedida As Integer
@@ -555,7 +555,7 @@ Partial Class AIMMGM_Registro
Dim Liga As String = "http://aimmgm.adsistemas.mx/AIMMGM/Portal.aspx"
- Dim LigaActivar As String = Liga & "?p=" & Encripta("CveU=" & CveUsr & "&Clave=" & CveCliente & "&Opcion=Activar&Hora=" & DateTime.Now.Ticks)
+ Dim LigaActivar As String = Liga & "?p=" & Encripta("CveU=" & CveUsr & "&Clave=" & CveCliente & "&Opcion=Activar&Hora=" & NowADS().Ticks)
Dim strSQL As New StringBuilder
strSQL.Append(" ")
diff --git a/AIMMGM/Registro.aspx.vb b/AIMMGM/Registro.aspx.vb
index f103fa711..1783c2cbe 100644
--- a/AIMMGM/Registro.aspx.vb
+++ b/AIMMGM/Registro.aspx.vb
@@ -96,7 +96,7 @@ Partial Class AIMMGM_Registro
For Each dr As DataRow In dtExcursiones.Rows
Dim AIM As New ClsAIMMGM
- If AIM.RepVentasPS(1, -1, -1, -1, "01/01/2014".ToDate, Now, 43) Then
+ If AIM.RepVentasPS(1, -1, -1, -1, "01/01/2014".ToDate, NowADS(), 43) Then
Contador = AIM.DtResultados.COUNT("CvePS", "CvePS = " & dr("CvePS").ToString)
If Contador >= 20 Then
dr("CvePS") = 0
@@ -387,7 +387,7 @@ Partial Class AIMMGM_Registro
If System.Web.HttpContext.Current IsNot Nothing AndAlso System.Web.HttpContext.Current.Handler IsNot Nothing Then
Dim Img, Botones As String
Dim Titulo As String
- Dim Plus As String = DateTime.Now.Ticks.ToString
+ Dim Plus As String = NowADS().Ticks.ToString
Mensaje = Mensaje.Replace("'"c, "\'")
JSBtnAceptar = JSBtnAceptar.Replace("'"c, "\'")
@@ -423,8 +423,8 @@ Partial Class AIMMGM_Registro
Dim Pag As Page = DirectCast(System.Web.HttpContext.Current.Handler, Page)
- 'ScriptManager.RegisterStartupScript(Pag, Pag.GetType(), (DateTime.Now.Ticks + 1).ToString(), "MuestraAlert('" & Alerta.ToString() & "', '" & Plus & "');", True)
- ScriptManager.RegisterStartupScript(Pag, Pag.GetType(), (DateTime.Now.Ticks + 1).ToString(), String.Format("MuestraAlerta('{0}','{1}','{2}','{3}','{4}');", Titulo, Mensaje, Img, Botones, JSBtnAceptar), True)
+ 'ScriptManager.RegisterStartupScript(Pag, Pag.GetType(), (NowADS().Ticks + 1).ToString(), "MuestraAlert('" & Alerta.ToString() & "', '" & Plus & "');", True)
+ ScriptManager.RegisterStartupScript(Pag, Pag.GetType(), (NowADS().Ticks + 1).ToString(), String.Format("MuestraAlerta('{0}','{1}','{2}','{3}','{4}');", Titulo, Mensaje, Img, Botones, JSBtnAceptar), True)
Pag = Nothing
Catch ex As Exception
@@ -597,7 +597,7 @@ Partial Class AIMMGM_Registro
Dim tnombre As String
Dim TieneExcursion As Boolean = False
- If Venta.AddVenta("Rem", 0, CveCliente, 2069, TmpDT.SUM("Total"), 0, 0, 0, 0, 0, TmpDT.SUM("Total"), 1, 0, DdlFiscalMetodoPago.SelectedValue.ToEntero, 0, 0, Now, "", "", 0, Now, -1, -1, "", "", "", 0, 0, 0, 0, DateTime.MinValue, DateTime.MinValue, DateTime.MinValue, -1, -1, 0, 0, 1, 2069, 43) Then
+ If Venta.AddVenta("Rem", 0, CveCliente, 2069, TmpDT.SUM("Total"), 0, 0, 0, 0, 0, TmpDT.SUM("Total"), 1, 0, DdlFiscalMetodoPago.SelectedValue.ToEntero, 0, 0, NowADS(), "", "", 0, NowADS(), -1, -1, "", "", "", 0, 0, 0, 0, DateTime.MinValue, DateTime.MinValue, DateTime.MinValue, -1, -1, 0, 0, 1, 2069, 43) Then
Dim CveVenta As Integer = Venta.CveVenta
For Each dr As DataRow In TmpDT.Rows
Dim CveUnidadMedida As Integer
@@ -715,7 +715,7 @@ Partial Class AIMMGM_Registro
Dim tnombre As String
Dim TieneExcursion As Boolean = False
- If Venta.AddVenta("Rem", 0, CveCliente, 2069, TmpDT.SUM("Total"), 0, 0, 0, 0, 0, TmpDT.SUM("Total"), 1, 0, DdlFiscalMetodoPago.SelectedValue.ToEntero, 0, 0, Now, "", "", 0, Now, -1, -1, "", "", "", 0, 0, 0, 0, DateTime.MinValue, DateTime.MinValue, DateTime.MinValue, -1, -1, 0, 1, 0, 2069, 43) Then
+ If Venta.AddVenta("Rem", 0, CveCliente, 2069, TmpDT.SUM("Total"), 0, 0, 0, 0, 0, TmpDT.SUM("Total"), 1, 0, DdlFiscalMetodoPago.SelectedValue.ToEntero, 0, 0, NowADS(), "", "", 0, NowADS(), -1, -1, "", "", "", 0, 0, 0, 0, DateTime.MinValue, DateTime.MinValue, DateTime.MinValue, -1, -1, 0, 1, 0, 2069, 43) Then
Dim CveVenta As Integer = Venta.CveVenta
For Each dr As DataRow In TmpDT.Rows
Dim CveUnidadMedida As Integer
@@ -745,7 +745,7 @@ Partial Class AIMMGM_Registro
If Not Errorr Then
- If AIM.AddPago(CveCliente, Venta.CveVentaDetalle, dr("Total").ToString.ToDouble, 1, Now, "", "Pago en terminal", TxtNumeroAsesor.Text.Trim.ToEntero, TxtNumeroAprobacion.Text.Trim.ToEntero) <= 0 Then
+ If AIM.AddPago(CveCliente, Venta.CveVentaDetalle, dr("Total").ToString.ToDouble, 1, NowADS(), "", "Pago en terminal", TxtNumeroAsesor.Text.Trim.ToEntero, TxtNumeroAprobacion.Text.Trim.ToEntero) <= 0 Then
Errorr = True
End If
@@ -853,7 +853,7 @@ Partial Class AIMMGM_Registro
Dim Liga As String = "http://aimmgm.adsistemas.mx/AIMMGM/Portal.aspx"
- Dim LigaActivar As String = Liga & "?p=" & Encripta("CveU=" & CveUsr & "&Clave=" & CveCliente & "&Opcion=Activar&Hora=" & DateTime.Now.Ticks)
+ Dim LigaActivar As String = Liga & "?p=" & Encripta("CveU=" & CveUsr & "&Clave=" & CveCliente & "&Opcion=Activar&Hora=" & NowADS().Ticks)
Dim strSQL As New StringBuilder
strSQL.Append(" ")
@@ -1062,7 +1062,7 @@ Partial Class AIMMGM_Registro
Cliente.Dispose()
End If
- Dim ClavePago As String = String.Format("{0}-{1}", CveCliente, Now.Ticks)
+ Dim ClavePago As String = String.Format("{0}-{1}", CveCliente, NowADS().Ticks)
'actualizo la clavedel cliente en todos los registros
@@ -1079,8 +1079,8 @@ Partial Class AIMMGM_Registro
myNameValueCollection.Add("ref", CveCliente.ToString)
myNameValueCollection.Add("imp", TmpDT.SUM("Total").ToString) '".01"
myNameValueCollection.Add("ema", TxtEmail.Text.Trim)
- myNameValueCollection.Add("urlOk", String.Format("http://aimmgm.adsistemas.mx/AIMMGM/ePagos.aspx?p={0}", Encripta(String.Format("Cve={0}&F={1}&CveCliente={2}&P=1", ClavePago, Now, CveCliente))))
- myNameValueCollection.Add("urlKo", String.Format("http://aimmgm.adsistemas.mx/AIMMGM/ePagos.aspx?p={0}", Encripta(String.Format("Cve={0}&F={1}&CveCliente={2}&NP=1", ClavePago, Now, CveCliente))))
+ myNameValueCollection.Add("urlOk", String.Format("http://aimmgm.adsistemas.mx/AIMMGM/ePagos.aspx?p={0}", Encripta(String.Format("Cve={0}&F={1}&CveCliente={2}&P=1", ClavePago, NowADS(), CveCliente))))
+ myNameValueCollection.Add("urlKo", String.Format("http://aimmgm.adsistemas.mx/AIMMGM/ePagos.aspx?p={0}", Encripta(String.Format("Cve={0}&F={1}&CveCliente={2}&NP=1", ClavePago, NowADS(), CveCliente))))
myNameValueCollection.Add("autoBack", "1")
myNameValueCollection.Add("datbloq", "1")
@@ -1096,8 +1096,8 @@ Partial Class AIMMGM_Registro
'If Request.Form("__VIEWSTATE_KEY") IsNot Nothing Then Cache.Remove(Request.Form("__VIEWSTATE_KEY")) 'elimino la cachado anteriormente
- Dim VSKey As String = String.Format("VIEWSTATE_{0}_{1}_{2}", Session.SessionID, Request.Path, Date.Now.Ticks)
- Cache.Add(VSKey, pviewState, Nothing, Date.Now.AddMinutes(60), Cache.NoSlidingExpiration, CacheItemPriority.Default, Nothing) 'Store the ViewState on Cache
+ Dim VSKey As String = String.Format("VIEWSTATE_{0}_{1}_{2}", Session.SessionID, Request.Path, NowADS().Ticks)
+ Cache.Add(VSKey, pviewState, Nothing, NowADS().AddMinutes(60), Cache.NoSlidingExpiration, CacheItemPriority.Default, Nothing) 'Store the ViewState on Cache
ClientScript.RegisterHiddenField("__VIEWSTATE_KEY", VSKey)
End Sub
diff --git a/AIMMGM/VentasPS.aspx.vb b/AIMMGM/VentasPS.aspx.vb
index 7211c69b9..125350b66 100644
--- a/AIMMGM/VentasPS.aspx.vb
+++ b/AIMMGM/VentasPS.aspx.vb
@@ -10,8 +10,8 @@ Partial Class AIMMGM_Ventas
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
- txtFechaI.Text = "01/01/" & Now.Year
- txtFechaF.Text = Now.ToShortDateString
+ txtFechaI.Text = "01/01/" & NowADS().Year
+ txtFechaF.Text = NowADS().ToShortDateString
Dim dt As DataTable
diff --git a/AIMMGM/ePagos.aspx.vb b/AIMMGM/ePagos.aspx.vb
index 1e498a877..31874f43c 100644
--- a/AIMMGM/ePagos.aspx.vb
+++ b/AIMMGM/ePagos.aspx.vb
@@ -64,7 +64,7 @@ Partial Class AIMMGM_ePagos
Dim Fecha As String = ClsPaginas.UrlParametros("F").ToString
- If Fecha.ToDate > Now.AddHours(-1) AndAlso ClsPaginas.UrlParametros("P") IsNot Nothing AndAlso ClsPaginas.UrlParametros("P").ToString = "1" Then
+ If Fecha.ToDate > NowADS().AddHours(-1) AndAlso ClsPaginas.UrlParametros("P") IsNot Nothing AndAlso ClsPaginas.UrlParametros("P").ToString = "1" Then
ClavePago = ClsPaginas.UrlParametros("CVE").ToString
CargaCompra()
@@ -124,7 +124,7 @@ Partial Class AIMMGM_ePagos
Dim tnombre As String
Dim TieneExcursion As Boolean = False
- If Venta.AddVenta("Rem", 0, CveCliente, 2069, TmpDT.SUM("Total"), 0, 0, 0, 0, 0, TmpDT.SUM("Total"), 1, 0, CveMetodoPago, 0, 0, Now, "", "", -1, Now, -1, -1, "", "", "", 0, 0, 0, 0, DateTime.MinValue, DateTime.MinValue, DateTime.MinValue, -1, -1, 0, 1, 0, 2069, 43) Then
+ If Venta.AddVenta("Rem", 0, CveCliente, 2069, TmpDT.SUM("Total"), 0, 0, 0, 0, 0, TmpDT.SUM("Total"), 1, 0, CveMetodoPago, 0, 0, NowADS(), "", "", -1, NowADS(), -1, -1, "", "", "", 0, 0, 0, 0, DateTime.MinValue, DateTime.MinValue, DateTime.MinValue, -1, -1, 0, 1, 0, 2069, 43) Then
Dim CveVenta As Integer = Venta.CveVenta
For Each dr As DataRow In TmpDT.Rows
Dim CveUnidadMedida As Integer
@@ -154,7 +154,7 @@ Partial Class AIMMGM_ePagos
Next
If Not Errorr Then
- If AIM.AddPago(CveCliente, -1, TmpDT.SUM("Total"), 1, Now, "", "Pago en línea", 0, 0) <= 0 Then
+ If AIM.AddPago(CveCliente, -1, TmpDT.SUM("Total"), 1, NowADS(), "", "Pago en línea", 0, 0) <= 0 Then
Errorr = True
End If
If Not Errorr Then
@@ -199,7 +199,7 @@ Partial Class AIMMGM_ePagos
If System.Web.HttpContext.Current IsNot Nothing AndAlso System.Web.HttpContext.Current.Handler IsNot Nothing Then
Dim Img, Botones As String
Dim Titulo As String
- Dim Plus As String = DateTime.Now.Ticks.ToString
+ Dim Plus As String = NowADS().Ticks.ToString
Mensaje = Mensaje.Replace("'"c, "\'")
JSBtnAceptar = JSBtnAceptar.Replace("'"c, "\'")
@@ -235,8 +235,8 @@ Partial Class AIMMGM_ePagos
Dim Pag As Page = DirectCast(System.Web.HttpContext.Current.Handler, Page)
- 'ScriptManager.RegisterStartupScript(Pag, Pag.GetType(), (DateTime.Now.Ticks + 1).ToString(), "MuestraAlert('" & Alerta.ToString() & "', '" & Plus & "');", True)
- ScriptManager.RegisterStartupScript(Pag, Pag.GetType(), (DateTime.Now.Ticks + 1).ToString(), String.Format("MuestraAlerta('{0}','{1}','{2}','{3}','{4}');", Titulo, Mensaje, Img, Botones, JSBtnAceptar), True)
+ 'ScriptManager.RegisterStartupScript(Pag, Pag.GetType(), (NowADS().Ticks + 1).ToString(), "MuestraAlert('" & Alerta.ToString() & "', '" & Plus & "');", True)
+ ScriptManager.RegisterStartupScript(Pag, Pag.GetType(), (NowADS().Ticks + 1).ToString(), String.Format("MuestraAlerta('{0}','{1}','{2}','{3}','{4}');", Titulo, Mensaje, Img, Botones, JSBtnAceptar), True)
Pag = Nothing
Catch ex As Exception
@@ -312,7 +312,7 @@ Partial Class AIMMGM_ePagos
Dim Liga As String = "http://aimmgm.adsistemas.mx/AIMMGM/Portal.aspx"
- Dim LigaActivar As String = Liga & "?p=" & Encripta("CveU=" & CveUsr & "&Clave=" & CveCliente & "&Opcion=Activar&Hora=" & DateTime.Now.Ticks)
+ Dim LigaActivar As String = Liga & "?p=" & Encripta("CveU=" & CveUsr & "&Clave=" & CveCliente & "&Opcion=Activar&Hora=" & NowADS().Ticks)
Dim strSQL As New StringBuilder
strSQL.Append(" ")
diff --git a/Acarreos/AcarreosConcluidos.aspx.vb b/Acarreos/AcarreosConcluidos.aspx.vb
index 90a0d30f7..0770ad579 100644
--- a/Acarreos/AcarreosConcluidos.aspx.vb
+++ b/Acarreos/AcarreosConcluidos.aspx.vb
@@ -13,8 +13,8 @@ Partial Class Acarreos_AcarreosAutoConciliacion
CargaDdlTransportista()
CargaDdlMaterial()
CargaDdlNumContrato()
- txtFechaF.Text = Now.AddDays(0).ToShortDateString
- txtFechaI.Text = Now.AddYears(-1).ToShortDateString
+ txtFechaF.Text = NowADS().AddDays(0).ToShortDateString
+ txtFechaI.Text = NowADS().AddYears(-1).ToShortDateString
BtnAgregarAcarreoConcluido.Text = "Vincular"
End If
End Sub
diff --git a/Acarreos/AcarreosPreEstimacion.aspx.vb b/Acarreos/AcarreosPreEstimacion.aspx.vb
index 6e76fc51e..8c9f9be4b 100644
--- a/Acarreos/AcarreosPreEstimacion.aspx.vb
+++ b/Acarreos/AcarreosPreEstimacion.aspx.vb
@@ -14,7 +14,7 @@ Partial Class Acarreos_AcarreosPreEstimacion
DdlTransportista.DataBind()
DdlMaterial.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlMaterial.DataBind()
- TxtFechaPreEstimacion.Text = Now.AddDays(0).ToShortDateString
+ TxtFechaPreEstimacion.Text = NowADS().AddDays(0).ToShortDateString
BtnAgregarPreEstimacion.Text = "Pre-Estimar"
CargaDdlNumContrato()
End If
@@ -65,7 +65,7 @@ Partial Class Acarreos_AcarreosPreEstimacion
DdlMaterial.DataBind()
CargaDdlNumContrato()
TxtNumPreEstimacion.Text = ""
- TxtFechaPreEstimacion.Text = Now.AddDays(0).ToShortDateString
+ TxtFechaPreEstimacion.Text = NowADS().AddDays(0).ToShortDateString
GvPreEstimacion.DataSource = Nothing
GvPreEstimacion.DataBind()
Else
diff --git a/Acarreos/RegistroAcarreo.aspx.vb b/Acarreos/RegistroAcarreo.aspx.vb
index ec3533883..d3a4f625c 100644
--- a/Acarreos/RegistroAcarreo.aspx.vb
+++ b/Acarreos/RegistroAcarreo.aspx.vb
@@ -145,7 +145,7 @@ Partial Class Acarreos_EditarAcarreo
DdlChofer.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlMaterial.Items.Insert(0, New ListItem("Seleccione", "-1"))
CargaDdlNumContrato()
- TxtFecha.Text = Now.AddDays(0).ToShortDateString
+ TxtFecha.Text = NowADS().AddDays(0).ToShortDateString
CargaDatos()
divEstatus.Visible = False
SetPermisos()
@@ -325,7 +325,7 @@ Partial Class Acarreos_EditarAcarreo
DdlTransportista.Items.Clear()
RBDestino.Checked = False
RBOrigen.Checked = False
- TxtFecha.Text = Now.AddDays(0).ToShortDateString
+ TxtFecha.Text = NowADS().AddDays(0).ToShortDateString
DdlNumContrato.SelectedIndex = -1
DdlTransportista.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlUnidad.Items.Insert(0, New ListItem("Seleccione", "-1"))
diff --git a/Acarreos/RegistroContratosAcarreos.aspx.vb b/Acarreos/RegistroContratosAcarreos.aspx.vb
index 8f4149a4e..661f28235 100644
--- a/Acarreos/RegistroContratosAcarreos.aspx.vb
+++ b/Acarreos/RegistroContratosAcarreos.aspx.vb
@@ -74,8 +74,8 @@ Partial Class Acarreos_ContratosAcarreos
CargaDdlUnidadMedida()
CreaTmpTarifas()
CreaTmpMaterialVolumen()
- TxtFechaInicio.Text = Now.AddDays(0).ToShortDateString
- TxtFechaFin.Text = Now.AddDays(0).ToShortDateString
+ TxtFechaInicio.Text = NowADS().AddDays(0).ToShortDateString
+ TxtFechaFin.Text = NowADS().AddDays(0).ToShortDateString
CargaDatos()
End If
End Sub
@@ -303,8 +303,8 @@ Partial Class Acarreos_ContratosAcarreos
TxtVolumenTipo.Text = ""
TxtDescripcion.Text = ""
TxtNumContrato.Text = ""
- TxtFechaInicio.Text = Now.AddDays(0).ToShortDateString
- TxtFechaFin.Text = Now.AddDays(0).ToShortDateString
+ TxtFechaInicio.Text = NowADS().AddDays(0).ToShortDateString
+ TxtFechaFin.Text = NowADS().AddDays(0).ToShortDateString
DTTarifa.Rows.Clear()
DTMaterialVolumen.Rows.Clear()
GvTarifa.DataSource = Nothing
diff --git a/Acarreos/RepAcarreos.aspx.vb b/Acarreos/RepAcarreos.aspx.vb
index c530964bc..0e43a11d2 100644
--- a/Acarreos/RepAcarreos.aspx.vb
+++ b/Acarreos/RepAcarreos.aspx.vb
@@ -22,8 +22,8 @@ Partial Class Acarreos_RepAcarreos
CargaDdlTransportista()
CargaDdlMaterial()
CargaDdlNumContrato()
- txtFechaF.Text = Now.AddDays(0).ToShortDateString
- txtFechaI.Text = Now.AddYears(-1).ToShortDateString
+ txtFechaF.Text = NowADS().AddDays(0).ToShortDateString
+ txtFechaI.Text = NowADS().AddYears(-1).ToShortDateString
End If
End Sub
diff --git a/Acarreos/RepAcarreosDetalle.aspx.vb b/Acarreos/RepAcarreosDetalle.aspx.vb
index b39288317..c62913d3e 100644
--- a/Acarreos/RepAcarreosDetalle.aspx.vb
+++ b/Acarreos/RepAcarreosDetalle.aspx.vb
@@ -24,8 +24,8 @@ Partial Class Acarreos_RepAcarreosDetalle
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
- txtFechaF.Text = Now.AddDays(0).ToShortDateString
- txtFechaI.Text = Now.AddYears(-1).ToShortDateString
+ txtFechaF.Text = NowADS().AddDays(0).ToShortDateString
+ txtFechaI.Text = NowADS().AddYears(-1).ToShortDateString
CargaDdlChofer()
CargaDdlSubProyectoOrigen()
CargaDdlSubProyectoDestino()
diff --git a/Acarreos/RepContratosAcarreos.aspx.vb b/Acarreos/RepContratosAcarreos.aspx.vb
index 62f3b8812..6adf28707 100644
--- a/Acarreos/RepContratosAcarreos.aspx.vb
+++ b/Acarreos/RepContratosAcarreos.aspx.vb
@@ -27,8 +27,8 @@ Partial Class Acarreos_RepContratosAcarreos
CargaDdlSubProyectoOrigen()
CargaDdlTransportista()
CargaDdlProveedor()
- txtFechaF.Text = Now.AddDays(0).ToShortDateString
- txtFechaI.Text = Now.AddYears(-1).ToShortDateString
+ txtFechaF.Text = NowADS().AddDays(0).ToShortDateString
+ txtFechaI.Text = NowADS().AddYears(-1).ToShortDateString
End If
End Sub
@@ -154,14 +154,14 @@ Partial Class Acarreos_RepContratosAcarreos
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
- params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", $"file://{Imagen}"))
Else
params.Add(New ReportParameter("LogoPath", ""))
End If
- ImprimirPDF("Empresas/Grales/Formatos/RepContratosAcarreos.rdlc", DTCont, params, String.Format("RepContratosAcarreos-{0}", Now.ToDateTime.ToShortDateString))
+ ImprimirPDF("Empresas/Grales/Formatos/RepContratosAcarreos.rdlc", DTCont, params, String.Format("RepContratosAcarreos-{0}", NowADS().ToDateTime.ToShortDateString))
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
End If
@@ -182,10 +182,10 @@ Partial Class Acarreos_RepContratosAcarreos
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
- params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
- ImprimirPDF("Empresas/Grales/Formatos/RepContratosAcarreos.rdlc", DTCont, params, String.Format("RepContratosAcarreos-{0}", Now.ToDateTime.ToShortDateString), "Excel")
+ ImprimirPDF("Empresas/Grales/Formatos/RepContratosAcarreos.rdlc", DTCont, params, String.Format("RepContratosAcarreos-{0}", NowADS().ToDateTime.ToShortDateString), "Excel")
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
End If
diff --git a/Acarreos/RepContratosAcarreosDetalle.aspx.vb b/Acarreos/RepContratosAcarreosDetalle.aspx.vb
index 3333d3de7..0c148923e 100644
--- a/Acarreos/RepContratosAcarreosDetalle.aspx.vb
+++ b/Acarreos/RepContratosAcarreosDetalle.aspx.vb
@@ -183,7 +183,7 @@ Partial Class Acarreos_RepContratosAcarreosDetalle
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
- params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Contrato", LblContrato.Text))
params.Add(New ReportParameter("FechaInicio", LblFechaInicio.Text))
params.Add(New ReportParameter("FechaFin", LblFechaFin.Text))
@@ -205,7 +205,7 @@ Partial Class Acarreos_RepContratosAcarreosDetalle
Else
params.Add(New ReportParameter("LogoPath", ""))
End If
- ImprimirPDF("Empresas/Grales/Formatos/RepContratosAcarreosDetalle.rdlc", DTCont, params, String.Format("RepContratosAcarreosDetalle-{0}", Now.ToDateTime.ToShortDateString))
+ ImprimirPDF("Empresas/Grales/Formatos/RepContratosAcarreosDetalle.rdlc", DTCont, params, String.Format("RepContratosAcarreosDetalle-{0}", NowADS().ToDateTime.ToShortDateString))
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
End If
@@ -222,7 +222,7 @@ Partial Class Acarreos_RepContratosAcarreosDetalle
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
- params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Contrato", LblContrato.Text))
params.Add(New ReportParameter("FechaInicio", LblFechaInicio.Text))
params.Add(New ReportParameter("FechaFin", LblFechaFin.Text))
@@ -240,7 +240,7 @@ Partial Class Acarreos_RepContratosAcarreosDetalle
params.Add(New ReportParameter("VolF", LblVolFaltante.Text))
params.Add(New ReportParameter("PresF", LblPresFaltante.Text))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
- ImprimirPDF("Empresas/Grales/Formatos/RepContratosAcarreosDetalle.rdlc", DTCont, params, String.Format("RepContratosAcarreosDetalle-{0}", Now.ToDateTime.ToShortDateString), "Excel")
+ ImprimirPDF("Empresas/Grales/Formatos/RepContratosAcarreosDetalle.rdlc", DTCont, params, String.Format("RepContratosAcarreosDetalle-{0}", NowADS().ToDateTime.ToShortDateString), "Excel")
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
End If
diff --git a/Acarreos/RepPreEstimacionDetalle.aspx.vb b/Acarreos/RepPreEstimacionDetalle.aspx.vb
index f89d915fc..119866856 100644
--- a/Acarreos/RepPreEstimacionDetalle.aspx.vb
+++ b/Acarreos/RepPreEstimacionDetalle.aspx.vb
@@ -100,14 +100,14 @@ Partial Class Acarreos_RepPreEstimacionDetalle
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
- params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", $"file://{Imagen}"))
Else
params.Add(New ReportParameter("LogoPath", ""))
End If
- ImprimirPDF("Empresas/Grales/Formatos/RepPreEstimacionDetalle.rdlc", DTCont, params, String.Format("RepPreEstimacionDetalle-{0}", Now.ToDateTime.ToShortDateString))
+ ImprimirPDF("Empresas/Grales/Formatos/RepPreEstimacionDetalle.rdlc", DTCont, params, String.Format("RepPreEstimacionDetalle-{0}", NowADS().ToDateTime.ToShortDateString))
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
End If
@@ -133,10 +133,10 @@ Partial Class Acarreos_RepPreEstimacionDetalle
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
- params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
- ImprimirPDF("Empresas/Grales/Formatos/RepPreEstimacionDetalle.rdlc", DTCont, params, String.Format("RepPreEstimacionDetalle-{0}", Now.ToDateTime.ToShortDateString), "Excel")
+ ImprimirPDF("Empresas/Grales/Formatos/RepPreEstimacionDetalle.rdlc", DTCont, params, String.Format("RepPreEstimacionDetalle-{0}", NowADS().ToDateTime.ToShortDateString), "Excel")
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
End If
diff --git a/Acumuladores/EntradasUsadosResumenRep.aspx.vb b/Acumuladores/EntradasUsadosResumenRep.aspx.vb
index ea3a27693..3a33a5241 100644
--- a/Acumuladores/EntradasUsadosResumenRep.aspx.vb
+++ b/Acumuladores/EntradasUsadosResumenRep.aspx.vb
@@ -35,11 +35,11 @@ Partial Class Acumuladores_RepEntradasUsados
End Sub
Protected Sub CargarCombos()
- Dim fecha As Date = Date.Now.AddMonths(-1)
+ Dim fecha As Date = NowADS().AddMonths(-1)
Dim Años As New ListItem
Dim i As Integer
If Cargado = 0 Then
- For i = Date.Now.Year.ToEntero To (fecha.Year.ToEntero - 5) Step -1
+ For i = NowADS().Year.ToEntero To (fecha.Year.ToEntero - 5) Step -1
Años = New ListItem(i.ToString, i.ToString)
DdlAño.Items.Add(Años)
Next
@@ -85,7 +85,7 @@ Partial Class Acumuladores_RepEntradasUsados
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("Direccion", Direccion))
- params.Add(New ReportParameter("FechaConFormato", Date.Now.ToString))
+ params.Add(New ReportParameter("FechaConFormato", NowADS().ToString))
params.Add(New ReportParameter("FechaInicial", txtFechaI.Text))
params.Add(New ReportParameter("FechaFinal", txtFechaF.Text))
params.Add(New ReportParameter("Sucursal", "Sucursal"))
diff --git a/Acumuladores/RepAcumuladoresVigencia.aspx.cs b/Acumuladores/RepAcumuladoresVigencia.aspx.cs
index da9ed60da..aa1e08d0a 100644
--- a/Acumuladores/RepAcumuladoresVigencia.aspx.cs
+++ b/Acumuladores/RepAcumuladoresVigencia.aspx.cs
@@ -17,7 +17,7 @@ public partial class Acumuladores_RepAcumuladoresVigencia : ClsPaginas
{
if (Consultado)
{
- GvAcum.ExportToExcelG("RepAcumuladoresVigencia " + DateTime.Now.ToString("dd-MM-yyyy"), "Reporte de Vigencia de Acumuladores", UsuarioActual);
+ GvAcum.ExportToExcelG("RepAcumuladoresVigencia " + NowADS().ToString("dd-MM-yyyy"), "Reporte de Vigencia de Acumuladores", UsuarioActual);
}
else
{
@@ -53,8 +53,8 @@ public partial class Acumuladores_RepAcumuladoresVigencia : ClsPaginas
{
Consultado = false;
CargaCombos();
- txtFechaI.Text = DateTime.Now.FirstDayOfMonth().AddMonths(-24).ToShortDateString();
- txtFechaF.Text = DateTime.Now.LastDayOfMonth().AddMonths(-6).ToShortDateString();
+ txtFechaI.Text = NowADS().FirstDayOfMonth().AddMonths(-24).ToShortDateString();
+ txtFechaF.Text = NowADS().LastDayOfMonth().AddMonths(-6).ToShortDateString();
UpFiltros.Update();
}
diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx.vb b/Acumuladores/RepEntradasUsadosClientes.aspx.vb
index 6a89cc2c4..d77d1166b 100644
--- a/Acumuladores/RepEntradasUsadosClientes.aspx.vb
+++ b/Acumuladores/RepEntradasUsadosClientes.aspx.vb
@@ -36,8 +36,8 @@ Partial Class Acumuladores_RepEntradasUsadosClientes
DdlAlmacen.DataBind()
DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
- TxtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
- TxtFechaF.text = now.toshortdatestring
+ TxtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString
+ TxtFechaF.text = NowADS().toshortdatestring
End Sub
diff --git a/Acumuladores/RepIndicadorDiario.aspx.vb b/Acumuladores/RepIndicadorDiario.aspx.vb
index 1e0fbc7ab..8b9358b27 100644
--- a/Acumuladores/RepIndicadorDiario.aspx.vb
+++ b/Acumuladores/RepIndicadorDiario.aspx.vb
@@ -63,8 +63,8 @@ Partial Class ACumuladores_RepIndicadorDiario
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
- txtFechaI.Text = Now.FirstDayOfMonth().ToString("dd/MM/yyyy")
- txtFechaF.Text = Now.ToString("dd/MM/yyyy")
+ txtFechaI.Text = NowADS().FirstDayOfMonth().ToString("dd/MM/yyyy")
+ txtFechaF.Text = NowADS().ToString("dd/MM/yyyy")
CargaCombos()
@@ -119,7 +119,7 @@ Partial Class ACumuladores_RepIndicadorDiario
If RblTipoCambio.SelectedValue.ToEntero = 3 Then
Dim TipoCambio As Double
LiEspecifico.Visible = True
- TipoCambio = GlobalTipoCambio(Now)
+ TipoCambio = GlobalTipoCambio(NowADS())
TxtEspecifico.Text = TipoCambio.ToString
Else
LiEspecifico.Visible = False
@@ -162,7 +162,7 @@ Partial Class ACumuladores_RepIndicadorDiario
#Region " IMPRIMIR "
Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
- 'GvDatos.ExportToExcel("ReporteComprasClasificacion" & Now.ToShortDateString)
+ 'GvDatos.ExportToExcel("ReporteComprasClasificacion" & NowADS().ToShortDateString)
GenerarPDF("EXCEL")
End Sub
@@ -193,11 +193,11 @@ Partial Class ACumuladores_RepIndicadorDiario
params.Add(New ReportParameter("FechaInicio", FechaI))
params.Add(New ReportParameter("FechaFin", FechaF))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
- params.Add(New ReportParameter("FechaImpresion", Now.ToString))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString))
params.Add(New ReportParameter("AgrupadoPor", $"Filtros Por: {FechaIn} {FechaFn} {SubProyecto} "))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
- ImprimirPDF("Empresas/Grales/Formatos/RepIndicadorDiario.rdlc", DtDatos, params, $"RepIndicadorDiario_{Now.ToString("yyyyMMddhhmmss")}", Opcion)
+ ImprimirPDF("Empresas/Grales/Formatos/RepIndicadorDiario.rdlc", DtDatos, params, $"RepIndicadorDiario_{NowADS().ToString("yyyyMMddhhmmss")}", Opcion)
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
End If
diff --git a/Acumuladores/RepPolizasVirtuales.aspx.vb b/Acumuladores/RepPolizasVirtuales.aspx.vb
index 4ce6c4895..58be54395 100644
--- a/Acumuladores/RepPolizasVirtuales.aspx.vb
+++ b/Acumuladores/RepPolizasVirtuales.aspx.vb
@@ -13,7 +13,7 @@ Partial Class Acumuladores_RepPolizasVirtuales
Private Sub CargaCombos()
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto:=LblSubProyecto)
- txtFechaI.Text = DateTime.Now.FirstDayOfMonth.ToShortDateString()
+ txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString()
End Sub
diff --git a/Acumuladores/RepUsados.aspx.cs b/Acumuladores/RepUsados.aspx.cs
index 082d114ee..fce9117cf 100644
--- a/Acumuladores/RepUsados.aspx.cs
+++ b/Acumuladores/RepUsados.aspx.cs
@@ -14,8 +14,8 @@ public partial class Ventas_RepUsados : ClsPaginas
private void InicializaValores()
{
CargaCliente();
- txtFechaI.Text = DateTime.Now.FirstDayOfMonth().ToShortDateString();
- txtFechaF.Text = DateTime.Now.LastDayOfMonth().ToShortDateString();
+ txtFechaI.Text = NowADS().FirstDayOfMonth().ToShortDateString();
+ txtFechaF.Text = NowADS().LastDayOfMonth().ToShortDateString();
UpFiltros.Update();
}
diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb
index 56dc02260..e7a21f5c5 100644
--- a/App_Code/ClsBancos.vb
+++ b/App_Code/ClsBancos.vb
@@ -987,7 +987,7 @@ Public Class ClsBancos
Dim dttpagosimpuestos As DataTable = Nothing
Dim dr As Data.DataRow = Nothing
- If GetComplementoPagosRep(-1, Now.AddYears(-5), Now, If(CvePrePoliza > 0, -1, CveIE), CveVenta, If(EsRegeneracion, 2, 1), UsuarioActual.CveEmpresa, CvePrePoliza:=CvePrePoliza) Then
+ If GetComplementoPagosRep(-1, ClsPaginas.NowADS().AddYears(-5), ClsPaginas.NowADS(), If(CvePrePoliza > 0, -1, CveIE), CveVenta, If(EsRegeneracion, 2, 1), UsuarioActual.CveEmpresa, CvePrePoliza:=CvePrePoliza) Then
dr = DtResultados.FiltroPrimero("CveVenta IS NULL")
dttpagos = DtResultados.FiltraParametros("CveVenta > 0")
End If
@@ -1000,23 +1000,23 @@ Public Class ClsBancos
RowFiltro = dttpagos.FiltroPrimero("")
If RowFiltro IsNot Nothing Then
- If Now.EsHorarioVerano Then
+ If ClsPaginas.NowADS().EsHorarioVerano Then
Dim UTCOffsetVerano As Integer = RowFiltro("UTCOffsetVerano").ToString().ToEntero()
If UTCOffsetVerano <> 0 Then
FechaTimbrado = DateTime.UtcNow.AddHours(UTCOffsetVerano)
Else
- FechaTimbrado = DateTime.Now
+ FechaTimbrado = ClsPaginas.NowADS()
End If
Else
Dim UTCOffsetInvierno As Integer = RowFiltro("UTCOffsetInvierno").ToString().ToEntero()
If UTCOffsetInvierno <> 0 Then
FechaTimbrado = DateTime.UtcNow.AddHours(UTCOffsetInvierno)
Else
- FechaTimbrado = DateTime.Now
+ FechaTimbrado = ClsPaginas.NowADS()
End If
End If
Else
- FechaTimbrado = DateTime.Now
+ FechaTimbrado = ClsPaginas.NowADS()
End If
End If
diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 0f769cbbf..1edecc564 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -6328,7 +6328,7 @@ Public Class ClsContabilidad
Return Retorno
End Function
- Public Function GetEstadosMensualHorizontal(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean
+ Public Function GetEstadosMensualHorizontal(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1, Optional VistaPorcentaje As Integer = 1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Conta2_EstadoResultadosMensualHorizontal")
@@ -6342,6 +6342,7 @@ Public Class ClsContabilidad
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@Tipo", SqlDbType.Int).Value = Tipo
+ .Add("@VistaPorcentaje", SqlDbType.Int).Value = VistaPorcentaje
End With
@@ -6357,7 +6358,7 @@ Public Class ClsContabilidad
Return Retorno
End Function
- Public Function GetEstadosAnualHorizontal(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1, Optional Periodo As Integer = 12) As Boolean
+ Public Function GetEstadosAnualHorizontal(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1, Optional Periodo As Integer = 12, Optional VistaPorcentaje As Integer = 1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Conta2_EstadoResultadosAnualHorizontal")
@@ -6372,6 +6373,7 @@ Public Class ClsContabilidad
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@Tipo", SqlDbType.Int).Value = Tipo
.Add("@Periodo", SqlDbType.Int).Value = Periodo
+ .Add("@VistaPorcentaje", SqlDbType.Int).Value = VistaPorcentaje
End With
@@ -6388,7 +6390,7 @@ Public Class ClsContabilidad
End Function
- Public Function GetEstadosSubProyectoHorizontal(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean
+ Public Function GetEstadosSubProyectoHorizontal(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1, Optional VistaPorcentaje As Integer = 1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Conta2_EstadoResultadosSubProyectolHorizontal")
@@ -6402,7 +6404,7 @@ Public Class ClsContabilidad
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@Tipo", SqlDbType.Int).Value = Tipo
-
+ .Add("@VistaPorcentaje", SqlDbType.Int).Value = VistaPorcentaje
End With
SqlAdapter.SelectCommand.CommandTimeout = 0
diff --git a/App_Code/ClsDG.vb b/App_Code/ClsDG.vb
index 9a3f09070..500a506d0 100644
--- a/App_Code/ClsDG.vb
+++ b/App_Code/ClsDG.vb
@@ -611,7 +611,7 @@ Public Class ClsDG
Public Sub GuardaLog(pTexto As String)
Dim ArchivoW As StreamWriter
Dim strLineaTMP As String
- strLineaTMP = String.Format("{0} {1}:{2} {3} {0}", Chr(13), DateTime.Now.ToShortDateString, DateTime.Now.ToShortTimeString, pTexto)
+ strLineaTMP = String.Format("{0} {1}:{2} {3} {0}", Chr(13), ClsPaginas.NowADS().ToShortDateString, ClsPaginas.NowADS().ToShortTimeString, pTexto)
Try
ArchivoW = New StreamWriter(String.Format("{0}\LogDG.txt", AppDomain.CurrentDomain), True, System.Text.Encoding.UTF8)
diff --git a/App_Code/ClsEncuestas.vb b/App_Code/ClsEncuestas.vb
index fb9c893d5..d7a8e0a51 100644
--- a/App_Code/ClsEncuestas.vb
+++ b/App_Code/ClsEncuestas.vb
@@ -566,7 +566,7 @@ Public Class ClsEncuestas
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
- .Add("@Fecha", SqlDbType.Date).Value = Now
+ .Add("@Fecha", SqlDbType.Date).Value = ClsPaginas.NowADS()
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveEncuestaAplicada", SqlDbType.Int).Direction = ParameterDirection.Output
End With
diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb
index 1b98bec8a..4367579f6 100644
--- a/App_Code/ClsGenerales.vb
+++ b/App_Code/ClsGenerales.vb
@@ -1728,7 +1728,7 @@ Public Class ClsGenerales
.Add("@Estatus", SqlDbType.VarChar).Value = Estatus
.Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
.Add("@CveCuentaDeposito", SqlDbType.Int).Value = CveCuentaDeposito
- .Add("@FechaIng", SqlDbType.Date).Value = Date.Now
+ .Add("@FechaIng", SqlDbType.Date).Value = ClsPaginas.NowADS()
.Add("@RefCrediProveedor", SqlDbType.VarChar).Value = RefCrediProveedor
.Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
.Add("@Correo", SqlDbType.VarChar).Value = Correo
diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index c0b1a6eb8..0209ab3a3 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -992,7 +992,7 @@ Public Class ClsInventarios
DataAdapter("PA_Inv_MovimientosAdd")
If FechaMovto.Hour = 0 AndAlso FechaMovto.Minute = 0 AndAlso FechaMovto.Second = 0 Then
- FechaMovto = String.Format("{0} {1}:{2}:{3}", FechaMovto.ToShortDateString, Now.Hour, Now.Minute, Now.Second).ToDateTime
+ FechaMovto = String.Format("{0} {1}:{2}:{3}", FechaMovto.ToShortDateString, ClsPaginas.NowADS().Hour, ClsPaginas.NowADS().Minute, ClsPaginas.NowADS().Second).ToDateTime
End If
With SqlAdapter.SelectCommand.Parameters
@@ -1981,7 +1981,7 @@ Public Class ClsInventarios
Dim Retorno As Decimal = -1
If FechaMovto = "-1" Then
- FechaMovto = String.Format("{0} 00:00", Now.AddDays(1).ToString("yyyy/MM/dd"))
+ FechaMovto = String.Format("{0} 00:00", ClsPaginas.NowADS().AddDays(1).ToString("yyyy/MM/dd"))
End If
DataAdapter("PA_Inv_ExistenciasPSGet")
@@ -2176,7 +2176,7 @@ Public Class ClsInventarios
Dim Retorno As Boolean = False
If FechaMovto = "-1" Then
- FechaMovto = String.Format("{0} 00:00", Now.AddDays(1).ToString("yyyy/MM/dd"))
+ FechaMovto = String.Format("{0} 00:00", ClsPaginas.NowADS().AddDays(1).ToString("yyyy/MM/dd"))
End If
DataAdapter("PA_Inv_ExistenciasPSEmpaqueGet")
@@ -2216,7 +2216,7 @@ Public Class ClsInventarios
Dim Retorno As Boolean = False
If Fecha = "-1" Then
- Fecha = String.Format("{0} 00:00", Now.AddDays(1).ToString("yyyy/MM/dd"))
+ Fecha = String.Format("{0} 00:00", ClsPaginas.NowADS().AddDays(1).ToString("yyyy/MM/dd"))
End If
DataAdapter("PA_Inv_ExistenciasPSXMLGet")
diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb
index b9663aa48..123eec236 100644
--- a/App_Code/ClsMovimientos.vb
+++ b/App_Code/ClsMovimientos.vb
@@ -120,7 +120,7 @@ Public Class ClsMovimientos
Public Function GetCxCClienteDetalle(CveCliente As Integer, FechaI As String, FechaF As String, CveMoneda As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveClienteSucursal As Integer, Optional TipoDocto As String = "-1", Optional FechaCorte As Date = MaxFecha, Optional FechaVencimientoI As Date = MinFecha, Optional FechaVencimientoF As Date = MaxFecha) As Boolean
Dim Retorno As Boolean = False
- FechaCorte = IIf(FechaCorte = Nothing, NowADS().AddYears(1), FechaCorte).ToString.ToDate
+ FechaCorte = IIf(FechaCorte = Nothing, ClsPaginas.NowADS().AddYears(1), FechaCorte).ToString.ToDate
DataAdapter("PA_Vta_ClienteCxC")
With SqlAdapter.SelectCommand.Parameters
@@ -684,7 +684,7 @@ Public Class ClsMovimientos
Optional TipoDocto As String = "-1", Optional TipoAgrupacion As Integer = -1, Optional CveProyecto As Integer = -1) As Boolean
Dim Retorno As Boolean = False
- If FechaCorte = Nothing Then FechaCorte = Now
+ If FechaCorte = Nothing Then FechaCorte = ClsPaginas.NowADS()
DataAdapter("PA_Comp_RepCxP")
With SqlAdapter.SelectCommand.Parameters
@@ -1314,7 +1314,7 @@ Public Class ClsMovimientos
Optional Comprobaciones As Integer = -1, Optional AplicaNC As Integer = -1, Optional TipoDocto As String = "-1", Optional CveProyecto As Integer = -1) As Boolean
Dim Retorno As Boolean = False
- If FechaCorte = Nothing Then FechaCorte = Now
+ If FechaCorte = Nothing Then FechaCorte = ClsPaginas.NowADS()
DataAdapter("PA_Comp_RepCxPDetalle")
With SqlAdapter.SelectCommand.Parameters
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index f2cdf778c..a3ada1cca 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -98,12 +98,21 @@ Public Class ClsPaginas
End Try
End Set
End Property
- Public Function NowADS() As DateTime
+
+ Public Shared Function NowADS() As DateTime
Dim tHora As Integer = 0
- If UsuarioActual IsNot Nothing AndAlso UsuarioActual.Empresa IsNot Nothing Then tHora = UsuarioActual.Empresa.UTCHora
- Return If(tHora <> 0, Now.ToUniversalTime.AddHours(tHora), Now)
+ 'If UsuarioActual IsNot Nothing AndAlso UsuarioActual.Empresa IsNot Nothing Then tHora = UsuarioActual.Empresa.UTCOffset
+ Try
+ If HttpContext.Current.Session("UsuarioSIG") IsNot Nothing AndAlso CType(HttpContext.Current.Session("UsuarioSIG"), Usuario).Empresa IsNot Nothing Then tHora = CType(HttpContext.Current.Session("UsuarioSIG"), Usuario).Empresa.UTCOffset
+ Catch ex As Exception
+
+ End Try
+
+
+ Return If(tHora <> 0, Now.ToUniversalTime.AddMinutes(tHora), Now)
End Function
+
#End Region
#Region "GlobalDTs"
@@ -111,7 +120,7 @@ Public Class ClsPaginas
Get
If GlobalTipoCambio <= 0 Then
'sino tiene dato lo recargo por si ya esta insertado
- If Fecha = MinFecha Then Fecha = Now
+ If Fecha = MinFecha Then Fecha = NowADS()
Dim ObjGral As New ClsGenerales
If ObjGral.GetTipoCambio(-1, Fecha) AndAlso ObjGral.DtResultados.Rows.Count > 0 Then
HttpContext.Current.Application("GlobalTipoCambio") = ObjGral.DtResultados.Rows(0)("TipoCambio").ToString.ToDouble
@@ -130,7 +139,7 @@ Public Class ClsPaginas
Get
If HttpContext.Current.Application("GlobalTipoCambioUltimaFluctuacion") Is Nothing Then
Dim ObjGral As New ClsGenerales
- If ObjGral.GetTipoCambioUltimaFluctuacion(-1, Now) AndAlso ObjGral.DtResultados.Rows.Count > 0 Then
+ If ObjGral.GetTipoCambioUltimaFluctuacion(-1, NowADS()) AndAlso ObjGral.DtResultados.Rows.Count > 0 Then
HttpContext.Current.Application("GlobalTipoCambioUltimaFluctuacion") = ObjGral.DtResultados.Copy()
Else
HttpContext.Current.Application("GlobalTipoCambioUltimaFluctuacion") = Nothing
@@ -142,7 +151,7 @@ Public Class ClsPaginas
.FechaFluctuacion = MinFecha
}
'sino tiene dato lo recargo por si ya esta insertado
- If Fecha = MinFecha Then Fecha = Now
+ If Fecha = MinFecha Then Fecha = NowADS()
If HttpContext.Current.Application("GlobalTipoCambioUltimaFluctuacion") IsNot Nothing Then
Dim dr As DataRow = DirectCast(HttpContext.Current.Application("GlobalTipoCambioUltimaFluctuacion"), DataTable).FiltroPrimero(String.Format("Fecha < '{0}'", Fecha), Orderby:="Fecha DESC")
@@ -165,7 +174,7 @@ Public Class ClsPaginas
Get
If GlobalTipoCambioEuro <= 0 Then
'sino tiene dato lo recargo por si ya esta insertado
- If Fecha = MinFecha Then Fecha = Now
+ If Fecha = MinFecha Then Fecha = NowADS()
Dim ObjGral As New ClsGenerales
If ObjGral.GetTipoCambio(-1, Fecha) AndAlso ObjGral.DtResultados.Rows.Count > 0 Then
Application("GlobalTipoCambioEuro") = ObjGral.DtResultados.Rows(0)("TipoCambioEuro").ToString.ToDouble
@@ -4505,7 +4514,7 @@ Public Class ClsPaginas
Public Shared Sub RegistraScript(Script As String, Optional valuetick As String = "")
Dim page As Page = TryCast(HttpContext.Current.CurrentHandler, Page)
Script = $"{Script.TrimEnd(";"c)};" 'sino trae ";" al final, se lo agregamos
- ScriptManager.RegisterStartupScript(page, page.GetType(), $"{DateTime.Now.Ticks + 1}{ThreadSafeRandom.Next()}{valuetick}", Script, True)
+ ScriptManager.RegisterStartupScript(page, page.GetType(), $"{NowADS().Ticks + 1}{ThreadSafeRandom.Next()}{valuetick}", Script, True)
End Sub
Public Sub TabEnabled(Tab As System.Web.UI.HtmlControls.HtmlAnchor, Valor As Boolean)
If Valor Then
@@ -5510,7 +5519,7 @@ Public Class ClsPaginas
params.Add(New ReportParameter("ClienteDiasCredito", "0"))
params.Add(New ReportParameter("MonedaAbreviatura", If(Vta.MonedaAbreviatura.ToString IsNot Nothing, Vta.MonedaAbreviatura.ToString, "")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
- params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToString))
params.Add(New ReportParameter("Sucursal", Vta.SubProyecto.SubProyecto))
params.Add(New ReportParameter("EstatusFactura", If(Vta.TipoEstatus = 5, Vta.EstatusFactura, "")))
params.Add(New ReportParameter("EstatusEntrega", If(Vta.Inv_CveEstatusEntrega = 1, Vta.Inv_EstatusEntrega, "")))
@@ -6459,7 +6468,7 @@ Public Class ClsPaginas
params.Add(New ReportParameter("EntregaDirecta", ObjOC.EntregaDirecta.ToString))
params.Add(New ReportParameter("NombreCliente", ObjOC.NombreCliente.ToString))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
- params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToString))
params.Add(New ReportParameter("DomicilioSucursal", DomicilioSucursal))
params.Add(New ReportParameter("ProveedorContacto", ObjOC.ProveedorContacto))
params.Add(New ReportParameter("Comprador", ObjOC.UsuarioAsignado))
@@ -6657,7 +6666,7 @@ Public Class ClsPaginas
lista.Add(New CrystalParametro("Empresa", EmpresaActual.Empresa))
lista.Add(New CrystalParametro("TipoCuentas", "Todas"))
lista.Add(New CrystalParametro("FechaInicio", "-"))
- lista.Add(New CrystalParametro("FechaFin", DateTime.Now.ToShortDateString))
+ lista.Add(New CrystalParametro("FechaFin", NowADS().ToShortDateString))
lista.Add(New CrystalParametro("NombreProveedor", NombreProv))
lista.Add(New CrystalParametro("DireccionProveedor", Direccion))
lista.Add(New CrystalParametro("ProveedorRFC", RFC))
@@ -7132,7 +7141,7 @@ Public Class ClsPaginas
params.Add(New ReportParameter("EmpresaNoInt", UsuarioActual.Empresa.NoInt))
'DATOS IMPRESION
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
- params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToString))
'DATOS GENERALES
Dim Ruta As String = UsuarioActual.Empresa.Ruta
Dim PathXML As String = $"{Ruta}XML\Pag\{Serie}-{Folio}.xml"
diff --git a/App_Code/ClsProspectos.vb b/App_Code/ClsProspectos.vb
index 47fe6ac76..08aa72f85 100644
--- a/App_Code/ClsProspectos.vb
+++ b/App_Code/ClsProspectos.vb
@@ -658,7 +658,7 @@ Public Class ClsProspectos
.Add("@CveProspectoEstatus", SqlDbType.Int).Value = CveProspectoEstatus
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
- .Add("@FechaIng", SqlDbType.DateTime).Value = If(FechaIngreso = "-1", Now, FechaIngreso.ToDate)
+ .Add("@FechaIng", SqlDbType.DateTime).Value = If(FechaIngreso = "-1", ClsPaginas.NowADS(), FechaIngreso.ToDate)
.Add("@CveProspecto", SqlDbType.Int).Direction = ParameterDirection.Output
.Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
End With
diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb
index eedeea1c5..b470c6d70 100644
--- a/App_Code/ClsRH.vb
+++ b/App_Code/ClsRH.vb
@@ -7083,7 +7083,7 @@ Public Class ClsRH
ListaTagsDocumentost.Add(New TagsDocumentos("{Estatura}", DtResultados(0)("Estatura").ToString))
ListaTagsDocumentost.Add(New TagsDocumentos("{Peso}", DtResultados(0)("Peso").ToString))
ListaTagsDocumentost.Add(New TagsDocumentos("{LugarNacimiento}", DtResultados(0)("LugarNacimiento").ToString))
- ListaTagsDocumentost.Add(New TagsDocumentos("{Edad}", If(DtResultados(0)("Edad").ToString = "", If(DtResultados(0)("FechaNacimiento").ToString = "", "", DateDiff(DateInterval.Year, DtResultados(0)("FechaNacimiento").ToString.ToDate, Now.Date).ToString), DtResultados(0)("Edad").ToString)))
+ ListaTagsDocumentost.Add(New TagsDocumentos("{Edad}", If(DtResultados(0)("Edad").ToString = "", If(DtResultados(0)("FechaNacimiento").ToString = "", "", DateDiff(DateInterval.Year, DtResultados(0)("FechaNacimiento").ToString.ToDate, ClsPaginas.NowADS().Date).ToString), DtResultados(0)("Edad").ToString)))
ListaTagsDocumentost.Add(New TagsDocumentos("{NombreTelEmergencia}", DtResultados(0)("NombreTelEmergencia").ToString))
ListaTagsDocumentost.Add(New TagsDocumentos("{TipoSangre}", DtResultados(0)("TipoSangre").ToString))
ListaTagsDocumentost.Add(New TagsDocumentos("{SubProyecto}", DtResultados(0)("SubProyecto").ToString))
@@ -7135,8 +7135,8 @@ Public Class ClsRH
ListaTagsDocumentost.Add(New TagsDocumentos("{FechaNacimiento}", DtResultados(0)("FechaNacimiento").ToString.ToDate.ToString("dd/MM/yyyy")))
- Dim fechaActual As String = $" { Now.Day } de { MesTexto(Now.Month) } del año { Now.Year}"
- Dim FechaActualDF As String = Now.ToString("dd/MM/yyyy")
+ Dim fechaActual As String = $" { ClsPaginas.NowADS().Day } de { MesTexto(ClsPaginas.NowADS().Month) } del año { ClsPaginas.NowADS().Year}"
+ Dim FechaActualDF As String = ClsPaginas.NowADS().ToString("dd/MM/yyyy")
ListaTagsDocumentost.Add(New TagsDocumentos("{FechaActual}", fechaActual))
ListaTagsDocumentost.Add(New TagsDocumentos("{FechaActualDF}", FechaActualDF))
diff --git a/App_Code/ClsSisEmpresas.vb b/App_Code/ClsSisEmpresas.vb
index 9e12c8c4c..7218f50ce 100644
--- a/App_Code/ClsSisEmpresas.vb
+++ b/App_Code/ClsSisEmpresas.vb
@@ -440,6 +440,8 @@ Public Class ClsSisEmpresas
_Empresa.FielPassword = Data.Rows(0)("FielPassword").ToString
_Empresa.FielPFX = Data.Rows(0)("FielPFX").ToString
_Empresa._RutaArchivos = Data.Rows(0)("RutaArchivos").ToString
+ _Empresa.CveZonaHoraria = Data.Rows(0)("CveZonaHoraria").ToString.ToEntero
+ _Empresa.UTCOffset = Data.Rows(0)("UTCOffset").ToString.ToEntero
Else
'Alert("No se encontró la Empresa solicitada.", TipoMensaje.MsgAdvertencia)
@@ -467,7 +469,7 @@ Public Class ClsSisEmpresas
CIEC As String, CvePlataforma As Integer, UsaAC As Boolean, PorDepreciacion As Decimal, Extension As String, Localidad As String, MetodoInventario As Integer,
PeriodoActual As Integer, EjercicioActual As Integer, RH_DefaultAsistencias As Boolean, DiasPermitidos As Integer, TipoCentroCosto As Integer, RequiereCentroCosto As Boolean, PV_TerminalTipo As Integer,
Optional CveMetodoPago As Integer = 0, Optional CvePAC As Integer = 0,
- Optional RegistroCompleto As Boolean = False
+ Optional RegistroCompleto As Boolean = False, Optional CveZonaHoraria As Integer = -1
) As Boolean
Dim Retorno As Boolean = False
@@ -562,6 +564,7 @@ Public Class ClsSisEmpresas
.Add("@RequiereCentroCosto", SqlDbType.Bit).Value = RequiereCentroCosto
.Add("@PV_TerminalTipo", SqlDbType.Int).Value = PV_TerminalTipo
.Add("@Importe", SqlDbType.Decimal).Value = Importe
+ .Add("@CveZonaHoraria", SqlDbType.Int).Value = CveZonaHoraria
End With
@@ -593,7 +596,7 @@ Public Class ClsSisEmpresas
Soporte_Server As String, Soporte_Puerto As Integer, Soporte_SSL As Boolean, Soporte_USR As String, Soporte_PWD As String, Soporte_Tipo As String, RegistroPatronal As String, AreaGeografica As String,
NombreCorto As String, CURP As String, CveRegimenFiscal As Integer, CvePAC As Integer,
Importe As Decimal, CIEC As String, CvePlataforma As Integer, UsaAC As Boolean, PorDepreciacion As Decimal, Extension As String, Localidad As String, MetodoInventario As Integer,
- PeriodoActual As Integer, EjercicioActual As Integer, RH_DefaultAsistencias As Boolean, DiasPermitidos As Integer, TipoCentroCosto As Integer, RequiereCentroCosto As Boolean, PV_TerminalTipo As Integer) As Boolean
+ PeriodoActual As Integer, EjercicioActual As Integer, RH_DefaultAsistencias As Boolean, DiasPermitidos As Integer, TipoCentroCosto As Integer, RequiereCentroCosto As Boolean, PV_TerminalTipo As Integer, Optional CveZonaHoraria As Integer = -1) As Boolean
Dim Retorno As Boolean = False
@@ -685,6 +688,8 @@ Public Class ClsSisEmpresas
.Add("@RequiereCentroCosto", SqlDbType.Bit).Value = RequiereCentroCosto
.Add("@PV_TerminalTipo", SqlDbType.Int).Value = PV_TerminalTipo
.Add("@Importe", SqlDbType.Decimal).Value = Importe
+ .Add("@CveZonaHoraria", SqlDbType.Int).Value = CveZonaHoraria
+
End With
Try
@@ -1423,7 +1428,7 @@ Public Class ClsSisEmpresas
.Add("@AsuntoPlantilla", SqlDbType.VarChar).Value = NombreCampoBDAsuntoPlantilla
.Add("@ValorAsuntoPlantilla", SqlDbType.NVarChar).Value = AsuntoValor
.Add("@Plantilla", SqlDbType.VarChar).Value = NombreCampoBDPlantilla
- .Add("@ValorPlantilla", SqlDbType.NVarChar).Value = HTMLValorPlantilla
+ .Add("@ValorPlantilla", SqlDbType.VarChar).Value = HTMLValorPlantilla
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
diff --git a/App_Code/ClsSisNotificaciones.vb b/App_Code/ClsSisNotificaciones.vb
index a7169b443..26574baba 100644
--- a/App_Code/ClsSisNotificaciones.vb
+++ b/App_Code/ClsSisNotificaciones.vb
@@ -758,7 +758,7 @@ Public Class ClsSisNotificaciones
' RptParametro.Add(New ReportParameter("FechaInicio", RowParada("FechaInicio").ToString))
' RptParametro.Add(New ReportParameter("FechaFin", RowParada("FechaNotificacion").ToString))
' RptParametro.Add(New ReportParameter("UsuarioImprimio", RowParada("UsuarioImprimio").ToString))
- ' RptParametro.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString))
+ ' RptParametro.Add(New ReportParameter("FechaImpresion", NowADS().ToShortDateString))
' RptParametro.Add(New ReportParameter("Grupo", RowParada("Grupo").ToString))
' Dim RowRep As DataRow = ObjGPS.DtResultados.FiltroPrimero("TipoColumna=1")
@@ -866,7 +866,7 @@ Public Class ClsSisNotificaciones
RptParametro.Add(New ReportParameter("FechaFin", FechaF.ToShortDateString))
RptParametro.Add(New ReportParameter("MapaURL", ""))
RptParametro.Add(New ReportParameter("UsuarioImprimio", Correos))
- RptParametro.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString))
+ RptParametro.Add(New ReportParameter("FechaImpresion", ClsPaginas.NowADS().ToShortDateString))
Retorno = StreamPDF(Liga, DataSource, RptParametro, "ReporteUltimaPosicion", "PDF", MR:=Nothing, RDSName:="DsOC")
Catch ex As Exception
@@ -920,7 +920,7 @@ Public Class ClsSisNotificaciones
RptParametro.Add(New CrystalParametro("FechaInicio", FechaI.ToString))
RptParametro.Add(New CrystalParametro("FechaFin", FechaF.ToString))
RptParametro.Add(New CrystalParametro("UsuarioImprimio", Correos))
- RptParametro.Add(New CrystalParametro("FechaImpresion", DateTime.Now.ToShortDateString))
+ RptParametro.Add(New CrystalParametro("FechaImpresion", ClsPaginas.NowADS().ToShortDateString))
If DataSource.Rows.Count > 0 Then
RptParametro.Add(New CrystalParametro("KMRecorridos", $"{DataSource.Rows(0)("KMRecorridos")} KM"))
Else
@@ -1002,7 +1002,7 @@ Public Class ClsSisNotificaciones
RptParametro.Add(New ReportParameter("FechaInicio", FechaI.ToString))
RptParametro.Add(New ReportParameter("FechaFin", FechaF.ToString))
RptParametro.Add(New ReportParameter("UsuarioImprimio", Correos))
- RptParametro.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString))
+ RptParametro.Add(New ReportParameter("FechaImpresion", ClsPaginas.NowADS().ToShortDateString))
Retorno = StreamPDF(Liga, DataSource, RptParametro, "ReporteIgnicion", "PDF", MR:=Nothing, RDSName:="DsOC")
Catch ex As Exception
@@ -1075,7 +1075,7 @@ Public Class ClsSisNotificaciones
RptParametro.Add(New CrystalParametro("FechaInicio", FechaI.ToString))
RptParametro.Add(New CrystalParametro("FechaFin", FechaF.ToString))
RptParametro.Add(New CrystalParametro("UsuarioImprimio", Correos))
- RptParametro.Add(New CrystalParametro("FechaImpresion", DateTime.Now.ToShortDateString))
+ RptParametro.Add(New CrystalParametro("FechaImpresion", ClsPaginas.NowADS().ToShortDateString))
RptParametro.Add(New CrystalParametro("TiempoMuerto", "10 Min"))
Retorno = StreamPDFCrystal(Liga, DataSource, RptParametro, NombreReporte, "PDF")
@@ -1120,7 +1120,7 @@ Public Class ClsSisNotificaciones
RptParametro.Add(New ReportParameter("FechaInicio", FechaI.ToShortDateString))
RptParametro.Add(New ReportParameter("FechaFin", FechaF.ToShortDateString))
RptParametro.Add(New ReportParameter("UsuarioImprimio", Correos))
- RptParametro.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString))
+ RptParametro.Add(New ReportParameter("FechaImpresion", ClsPaginas.NowADS().ToShortDateString))
Retorno = StreamPDF(Liga, DataSource, RptParametro, "ReporteRalenti", "PDF", MR:=Nothing, RDSName:="DsOC")
Catch ex As Exception
@@ -1171,7 +1171,7 @@ Public Class ClsSisNotificaciones
RptParametro.Add(New CrystalParametro("FechaInicio", FechaI.ToString))
RptParametro.Add(New CrystalParametro("FechaFin", FechaF.ToString))
RptParametro.Add(New CrystalParametro("UsuarioImprimio", Correos))
- RptParametro.Add(New CrystalParametro("FechaImpresion", DateTime.Now.ToShortDateString))
+ RptParametro.Add(New CrystalParametro("FechaImpresion", ClsPaginas.NowADS().ToShortDateString))
Retorno = StreamPDFCrystal(Liga, DataSource, RptParametro, "ReporteEvento", "PDF")
Catch ex As Exception
@@ -1227,7 +1227,7 @@ Public Class ClsSisNotificaciones
RptParametro.Add(New ReportParameter("FechaFin", FechaF.ToShortDateString))
RptParametro.Add(New ReportParameter("UsuarioImprimio", Correos))
RptParametro.Add(New ReportParameter("MapaURL", ""))
- RptParametro.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString))
+ RptParametro.Add(New ReportParameter("FechaImpresion", ClsPaginas.NowADS().ToShortDateString))
Retorno = StreamPDF(Liga, DataSource, RptParametro, "ReporteGeoReferencias", "PDF", MR:=Nothing, RDSName:="DsOC")
Catch ex As Exception
@@ -1247,7 +1247,7 @@ Public Class ClsSisNotificaciones
RptParametro.Add(New ReportParameter("FechaFin", FechaF.ToShortDateString))
RptParametro.Add(New ReportParameter("UsuarioImprimio", Correos))
RptParametro.Add(New ReportParameter("MapaURL", ""))
- RptParametro.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString))
+ RptParametro.Add(New ReportParameter("FechaImpresion", ClsPaginas.NowADS().ToShortDateString))
Retorno = StreamPDF(Liga, DataSource, RptParametro, "ReportePuntosInteres", "PDF", MR:=Nothing, RDSName:="DsOC")
Catch ex As Exception
@@ -1709,7 +1709,7 @@ Public Class ClsSisNotificaciones
.lat = Lat,
.lng = Lng
},
- .timestamp = DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss")
+ .timestamp = ClsPaginas.NowADS().ToString("yyyy-MM-dd HH:mm:ss")
}
}
}
diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 56877acac..cfa37b684 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -3387,7 +3387,7 @@ Public Class ClsVentas
Dim Resp As RespuestaCancelacionSAT = ObjCancelacion.CFDICancelar(Usuario.Empresa, FolioFiscal, Total, RFCReceptor, Usuario.Empresa.RFC)
If Resp.Verificado Then
- If Not ObjVentas.UpdateEstatusFactura(5, FolioFiscal, ObjCancelacion.CancelacionAcuse, Now, PCveVenta.ToEntero, -1, CvePAC:=Usuario.Empresa.CvePAC) Then
+ If Not ObjVentas.UpdateEstatusFactura(5, FolioFiscal, ObjCancelacion.CancelacionAcuse, ClsPaginas.NowADS(), PCveVenta.ToEntero, -1, CvePAC:=Usuario.Empresa.CvePAC) Then
CveVentasError.Add(PCveVenta.ToEntero)
End If
Else
diff --git a/App_Code/Empresa.vb b/App_Code/Empresa.vb
index f99639f53..ff38fa730 100644
--- a/App_Code/Empresa.vb
+++ b/App_Code/Empresa.vb
@@ -134,7 +134,9 @@ Public Class Empresa
Public Property FielPassword As String
Public Property FielPFX As String
Public Property AsuntoPlantillaMailVentaCotizacion As String
- Public Property UTCHora As Integer
+
+ Public Property UTCOffset As Integer
+ Public Property CveZonaHoraria As Integer
Public Property PlantillaMailVentaCotizacion As String
Dim Funcionalidades As HybridDictionary
'HybridDictionary, no se puede serializar, por eso no es propiedad, y se utilizar el setfuncionalidad, para asignarle valor
diff --git a/App_Code/LogicNominas.vb b/App_Code/LogicNominas.vb
index 1bc6491c8..8d486b968 100644
--- a/App_Code/LogicNominas.vb
+++ b/App_Code/LogicNominas.vb
@@ -426,7 +426,7 @@ Public Class LogicNominas
Dim otrp = New CFDINominaOtrosPagos With {.TipoOtroPago = Row("SATCveConcepto").ToString(), .Clave = Row("Codigo").ToString(), .Concepto = Row("Concepto").ToString(),
.Importe = Row("Importe").ToString().ToDecimal().Abs(), .Subsidiocausado = Row("ImporteValor").ToString().ToDecimal().Abs()}
If Row("SATCveConcepto").ToString().ToEntero() = 4 Then
- otrp.ejercicio = DateTime.Now.Year - If(DateTime.Now.Month = 12, 0, 1)
+ otrp.ejercicio = ClsPaginas.NowADS().Year - If(ClsPaginas.NowADS().Month = 12, 0, 1)
otrp.SaldoAFavor = Row("ImporteValor").ToString().ToDecimal().Abs()
otrp.RemanenteSalFav = Row("ImporteValor").ToString().ToDecimal().Abs() - Row("Importe").ToString().ToDecimal().Abs()
End If
@@ -463,7 +463,7 @@ Public Class LogicNominas
cfdi.Comprobante.Version = If(versionTimbre = VersionTimbradoEnum.Version4_0, "4.0", "3.3")
cfdi.Comprobante.Serie = Serie
cfdi.Comprobante.Folio = Folio
- cfdi.Comprobante.Fecha = Now
+ cfdi.Comprobante.Fecha = ClsPaginas.NowADS()
cfdi.Comprobante.SubTotal = subTotalDb 'cfdi.Nomina.TotalPercepciones.ToString().ToDecimal() + cfdi.Nomina.TotalOtrosPagos.ToString().ToDecimal()
cfdi.Comprobante.Descuentos = cfdi.Nomina.TotalDeducciones.ToString().ToDecimal()
diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 90eb33622..4ab7ac9a0 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -562,12 +562,12 @@ Namespace Modelos
Me.MonedaSAT = ClsPaginas.GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {CveMoneda} ")
Me.RefDocto = ""
' Me.CveMesa = -1
- Me.Fecha = Now
+ Me.Fecha = ClsPaginas.NowADS()
Me.CvePrePoliza = -1
- Me.FechaPago = Now
+ Me.FechaPago = ClsPaginas.NowADS()
Me.MotivoDescuento = ""
Me.Observaciones = ""
- Me.FechaEjecucion = Now
+ Me.FechaEjecucion = ClsPaginas.NowADS()
Me.CveCondicionEntrega = -1
Me.CondicionEntrega = ""
Me.NumeroCuenta = ""
@@ -1292,12 +1292,12 @@ Namespace Modelos
ObjFactura.CveMoneda = CveMoneda
ObjFactura.Moneda = ClsPaginas.GlobalDTMonedas.FiltroPrimeroValor("Moneda", $"CveMoneda = {ObjFactura.CveMoneda} ")
ObjFactura.MonedaSAT = ClsPaginas.GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {ObjFactura.CveMoneda}")
- ObjFactura.TipoCambio = If(ObjFactura.CveMoneda = 1, 1, ClsPaginas.GlobalTipoCambio(Now).ToDecimal())
+ ObjFactura.TipoCambio = If(ObjFactura.CveMoneda = 1, 1, ClsPaginas.GlobalTipoCambio(ClsPaginas.NowADS()).ToDecimal())
ObjFactura.TipoDocto = "Ing"
ObjFactura.RefDocto = ""
ObjFactura.Folio = -1
ObjFactura.Serie = "-1"
- ObjFactura.Fecha = Now
+ ObjFactura.Fecha = ClsPaginas.NowADS()
ObjFactura.CvePrePoliza = -1
ObjFactura.CveMetodoPago = 1
ObjFactura.MetodoPago = "Efectivo"
@@ -2942,7 +2942,7 @@ Namespace Modelos
Dim CveMovimiento As Integer = -1
Try
Dim CveConceptoSalidaUsado As Integer = 45
- Dim tFecha As DateTime = Now
+ Dim tFecha As DateTime = ClsPaginas.NowADS()
CveMovimiento = ObjInventario.AddMovimiento(CveAlmacenUsado, CveConceptoSalidaUsado, 1, tFecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, factura.CveVenta,
factura.CveSubProyecto, CveActivoFijo:=-1, Guia:="", Observaciones:="", CvePersonal:=-1, CveCliente:=factura.CveCliente, CveClienteSucursal:=-1, Modulo:="M/CU")
If CveMovimiento <= 0 Then
@@ -3140,7 +3140,7 @@ Namespace Modelos
Dim TCFluctuacion As Decimal = tipoCambio
'TOMA EL TC DE LA ULTIMA FLUCTUACION
If ValorMultiplicador = -1 AndAlso esMesAnterior AndAlso UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso ObjFactura.CveMoneda = 2 Then
- Dim UltimaFluctuacion As ClsPaginas.MTipoCambioFluctuacion = ClsPaginas.GlobalTipoCambioUltimaFluctuacion(Now)
+ Dim UltimaFluctuacion As ClsPaginas.MTipoCambioFluctuacion = ClsPaginas.GlobalTipoCambioUltimaFluctuacion(ClsPaginas.NowADS())
If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then
If UltimaFluctuacion.FechaFluctuacion <= FechaCancelacion Then
@@ -4274,7 +4274,7 @@ Namespace Modelos
End If
' GENERA EL MOVIMIENTO DE GARANTIA SI TIENE
- If Not GenerarMovimientoGarantia(14, "Entrada Garantía", Now, factura, ObjAcum, ObjInventario, ObjConta) Then
+ If Not GenerarMovimientoGarantia(14, "Entrada Garantía", ClsPaginas.NowADS(), factura, ObjAcum, ObjInventario, ObjConta) Then
OcurrioError = True
End If
@@ -4532,7 +4532,7 @@ Namespace Modelos
Dim ContadorMovtosDetalles As Integer = 0
'Creamos el movimiento
- Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(CveAlmacen, ConceptoEntrada, CveMoneda, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, CveMovimientoRelacionado:=CveMovimientoRelacionado, Modulo:="Mod/M2")
+ Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(CveAlmacen, ConceptoEntrada, CveMoneda, ClsPaginas.NowADS(), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, CveMovimientoRelacionado:=CveMovimientoRelacionado, Modulo:="Mod/M2")
If CveMovimientoInventario > 0 Then
@@ -5061,7 +5061,7 @@ Namespace Modelos
End If
'CANCELA FACTURA
- If Month(factura.Fecha) = Month(Now) OrElse BanderaGeneraNC = True Then
+ If Month(factura.Fecha) = Month(ClsPaginas.NowADS()) OrElse BanderaGeneraNC = True Then
If CancelarFactura(ObjVentas, ObjConta, ObjBancos) Then
Obj.Add(factura)
Else
@@ -5069,7 +5069,7 @@ Namespace Modelos
End If
Else
FacturaDevolucion.TipoDocto = "Egs"
- FacturaDevolucion.Fecha = Now
+ FacturaDevolucion.Fecha = ClsPaginas.NowADS()
If RegistrarNC(ObjVentas, ObjConta, ObjInventario, ObjContr, FacturaDevolucion, ObjBancos, TmpDTconceptos, ObjEventos) Then
Obj.Add(FacturaDevolucion)
Else
@@ -5420,13 +5420,13 @@ Namespace Modelos
CancelacionFecha = xmlAcuse.SelectSingleNode("Acuse").Attributes("Fecha").Value.ToDate()
CveEstatus = 5
Else
- CancelacionFecha = Now.Date
+ CancelacionFecha = ClsPaginas.NowADS().Date
CancelacionAcuse = ""
CveEstatus = 5
End If
Catch ex As Exception
GuardaLog(ex.ToString())
- CancelacionFecha = Now.Date
+ CancelacionFecha = ClsPaginas.NowADS().Date
CancelacionAcuse = ""
End Try
@@ -5436,7 +5436,7 @@ Namespace Modelos
If Resp.Verificado Then
'GENERAMOS EL ACUSE Y MANDAMOS MAIL DE CON EL ACUSE DE CANCELACIÓN
If RequiereAceptacion Then
- CancelacionFecha = Now.Date
+ CancelacionFecha = ClsPaginas.NowADS().Date
CveEstatus = 20
Else
CancelacionFecha = ObjCancelacion.CancelacionFecha
@@ -5478,7 +5478,7 @@ Namespace Modelos
CveEstatus = 20
ContinuarCancelacion = False
RequiereAceptacion = True
- CancelacionFecha = Now.Date
+ CancelacionFecha = ClsPaginas.NowADS().Date
CancelacionAcuse = ""
End If
End If
@@ -5491,7 +5491,7 @@ Namespace Modelos
Else
ObtenerAcuse = False
ContinuarCancelacion = True
- CancelacionFecha = Now.Date
+ CancelacionFecha = ClsPaginas.NowADS().Date
CancelacionAcuse = ""
'VERICA SI YA SE TIENE EL ESTADO DE CANCELACION, PARA SABER SI REQUIERE ACEPTACION
@@ -5502,7 +5502,7 @@ Namespace Modelos
RequiereAceptacion = True
End If
Else
- Dim diasTimbrado As Decimal = DateDiff(DateInterval.Day, ObjFactura.FechaCP, Now)
+ Dim diasTimbrado As Decimal = DateDiff(DateInterval.Day, ObjFactura.FechaCP, ClsPaginas.NowADS())
If ObjFactura.Total < 1000D OrElse diasTimbrado <= 1 OrElse ObjFactura.Cliente.RFC.Contiene("XAXX010101000", "XEXX010101000") Then
RequiereAceptacion = False
@@ -5517,7 +5517,7 @@ Namespace Modelos
If Resp.Verificado Then
'GENERAMOS EL ACUSE Y MANDAMOS MAIL DE CON EL ACUSE DE CANCELACIÓN
'If Resp.cve Then
- ' CancelacionFecha = Now.Date
+ ' CancelacionFecha = ClsPaginas.NowADS().Date
' CveEstatus = 20
'Else
' CancelacionFecha = ObjCancelacion.CancelacionFecha
@@ -5534,16 +5534,16 @@ Namespace Modelos
Return Retorno
End If
Else
- CancelacionFecha = Now.Date
+ CancelacionFecha = ClsPaginas.NowADS().Date
CancelacionAcuse = ""
End If
End If
Else
- CancelacionFecha = Now.Date
+ CancelacionFecha = ClsPaginas.NowADS().Date
CancelacionAcuse = ""
End If
Else
- CancelacionFecha = Now.Date
+ CancelacionFecha = ClsPaginas.NowADS().Date
CancelacionAcuse = ""
End If
Catch ex As Exception
@@ -5558,7 +5558,7 @@ Namespace Modelos
End Try
Else
CveEstatus = CveEstatusFacturaAsignado
- CancelacionFecha = If(IsDate(FechaCancelacion), FechaCancelacion, Now.ToString("dd/MM/yyyy")).ToDateTime()
+ CancelacionFecha = If(IsDate(FechaCancelacion), FechaCancelacion, ClsPaginas.NowADS().ToString("dd/MM/yyyy")).ToDateTime()
CancelacionAcuse = AcuseCancelacion
End If
@@ -5794,7 +5794,7 @@ Namespace Modelos
'SI TIENE SALDO PENDIENTE POR DEVOLVER GENERA UN MOVIMIENTO DE DEVOLUCION
If ObjFactura.SaldoAlmacen <> 0 Then
'SALIDA DE ALMACEN - SALIDA POR TRASPASO CUANDO ES REMISION - DEVOLUCION (SI ES TRASPASO Y TIENE CONTRATO NO HACE DEVOLUCIóN)
- CveMovimientoDevolucion = ObjInventario.AddMovimiento(CveAlmacenMovimiento, CveConceptoMovimiento, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveAlmacenDestino:=-1, CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="Mod/CV1")
+ CveMovimientoDevolucion = ObjInventario.AddMovimiento(CveAlmacenMovimiento, CveConceptoMovimiento, 1, ClsPaginas.NowADS(), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveAlmacenDestino:=-1, CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="Mod/CV1")
Folio = ObjInventario.Folio
If CveMovimientoDevolucion > 0 Then
@@ -5837,7 +5837,7 @@ Namespace Modelos
End If
If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then
- Dim Fecha As Date = Now
+ Dim Fecha As Date = ClsPaginas.NowADS()
Dim CveCliente As Integer = ObjVentas.DtResultados(0)("CveCliente").ToString.ToEntero
Dim ClienteNombre As String = ObjVentas.DtResultados(0)("ClienteNombre").ToString
Dim SerieFolio As String = ObjVentas.DtResultados(0)("SerieFolio").ToString
@@ -5890,7 +5890,7 @@ Namespace Modelos
End If
End If
Else
- ErrorCancelar = True
+ ErrorCancelar = True
MensajeError = "Ocurrió un Error al ingresar las prepolizas"
End If
End If
@@ -6025,7 +6025,7 @@ Namespace Modelos
'CANCELAR MOVIMIENTOS DE GARANTIA SI TIENE
If Not ErrorCancelar AndAlso UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
- If Not GenerarMovimientoGarantia(15, "Salida Garantía", Now, ObjRemision, ObjAcum, ObjInventario, ObjConta) Then
+ If Not GenerarMovimientoGarantia(15, "Salida Garantía", ClsPaginas.NowADS(), ObjRemision, ObjAcum, ObjInventario, ObjConta) Then
ErrorCancelar = True
End If
End If
@@ -6134,7 +6134,7 @@ Namespace Modelos
'CANCELAR MOVIMIENTOS DE GARANTIA SI TIENE
If Not ErrorCancelar AndAlso UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
- If Not GenerarMovimientoGarantia(15, "Salida Garantía", Now, ObjFactura, ObjAcum, ObjInventario, ObjConta) Then
+ If Not GenerarMovimientoGarantia(15, "Salida Garantía", ClsPaginas.NowADS(), ObjFactura, ObjAcum, ObjInventario, ObjConta) Then
ErrorCancelar = True
End If
End If
@@ -6297,7 +6297,7 @@ Namespace Modelos
End If
Else
If Not ObjVentas.UpdateEstatusFactura(CveEstatus, FolioFiscal, CancelacionAcuse, CancelacionFecha, CveVenta, IDPoliza, CvePAC:=CvePACCancelacion, CveEstatusRefacturacion:=CveEstatusRefacturacion,
- CveUsuarioCambiaEstatus:=UsuarioActual.CveUsuario, FechaCambioEstatus:=Now.ToString("yyyy-MM-dd HH:mm:ss.mmm"), CveMotivoCancelacion:=CveMotivoCancelacion,
+ CveUsuarioCambiaEstatus:=UsuarioActual.CveUsuario, FechaCambioEstatus:=ClsPaginas.NowADS().ToString("yyyy-MM-dd HH:mm:ss.mmm"), CveMotivoCancelacion:=CveMotivoCancelacion,
MotivoCancelacion:=MotivoCancelacion, EstadoCancelacion:=EstadoCancelacion, CveEstadoCancelacion:=CveEstadoCancelacion, SelloSolicitudDigitalSAT:=SolicitudCancelacionAcuse) Then
ErrorCancelar = True
MensajeError = "Ocurrió un error al guardar el estatus de cancelación."
@@ -6418,7 +6418,7 @@ Namespace Modelos
Dim CveMovimientoRelacionadoVirtual As Integer = CveMovimiento
If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.Rows.Count > 0 AndAlso CveAlmacenVirtual > 0 AndAlso CveConceptoMovimientoVirtual > 0 Then
- CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, CveConceptoMovimientoVirtual, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1,
+ CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, CveConceptoMovimientoVirtual, 1, ClsPaginas.NowADS(), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1,
Observaciones:="", Guia:="", CveMovimientoRelacionado:=CveMovimientoRelacionadoVirtual, Modulo:="Modelos/CancelarVirtual")
If CveMovimientoVirtual > 0 Then
@@ -6497,7 +6497,7 @@ Namespace Modelos
Dim CveMovimientoRelacionadoVirtual As Integer = CveMovimientoDevolucion
If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.Rows.Count > 0 AndAlso CveAlmacenVirtual > 0 AndAlso CveConceptoMovimientoVirtual > 0 Then
- CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, CveConceptoMovimientoVirtual, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1,
+ CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, CveConceptoMovimientoVirtual, 1, ClsPaginas.NowADS(), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1,
Observaciones:="", Guia:="", CveMovimientoRelacionado:=CveMovimientoRelacionadoVirtual, Modulo:="Modelos/CancelarVirtual")
If CveMovimientoVirtual > 0 Then
@@ -6585,11 +6585,11 @@ Namespace Modelos
End If
'SALIDA GENERAL
- CveMovimientoSalidaDevRem = ObjInventario.AddMovimiento(CveAlmacenDevolucion, 8, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, DrMovtos("CveRem").ToString.ToEntero, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveMovimientoRelacionado:=CveMovimiento, CveAlmacenDestino:=CveAlmacenTraspasoDestinoDevRem, Modulo:="Mod/ExAR1")
+ CveMovimientoSalidaDevRem = ObjInventario.AddMovimiento(CveAlmacenDevolucion, 8, 1, ClsPaginas.NowADS(), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, DrMovtos("CveRem").ToString.ToEntero, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveMovimientoRelacionado:=CveMovimiento, CveAlmacenDestino:=CveAlmacenTraspasoDestinoDevRem, Modulo:="Mod/ExAR1")
FolioMovimientoSalidaDevRem = ObjInventario.Folio
'ENTRADA ADELANTADO
- CveMovimientoEntradaDevRem = ObjInventario.AddMovimiento(CveAlmacenTraspasoDestinoDevRem, 9, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, DrMovtos("CveRem").ToString.ToEntero, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveMovimientoRelacionado:=CveMovimientoSalidaDevRem, CveAlmacenDestino:=CveAlmacenDevolucion, Modulo:="Mod/ExAR2")
+ CveMovimientoEntradaDevRem = ObjInventario.AddMovimiento(CveAlmacenTraspasoDestinoDevRem, 9, 1, ClsPaginas.NowADS(), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, DrMovtos("CveRem").ToString.ToEntero, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveMovimientoRelacionado:=CveMovimientoSalidaDevRem, CveAlmacenDestino:=CveAlmacenDevolucion, Modulo:="Mod/ExAR2")
FolioMovimientoEntradaDevRem = ObjInventario.Folio
If Not (CveMovimientoSalidaDevRem > 0 And CveMovimientoEntradaDevRem > 0) Then
@@ -6666,7 +6666,7 @@ Namespace Modelos
Dim CveMovimientoEntradaDevRem As Integer = 0
Dim FolioMovimientoEntradaDevRem As Integer = 0
- Dim Fecha As DateTime = Now
+ Dim Fecha As DateTime = ClsPaginas.NowADS()
'SALIDA DE (ENTREGA POR ADELANTADO)
CveMovimientoSalidaDevRem = ObjInventario.AddMovimiento(CveAlmacen, 8, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveRemision, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveAlmacenDestino:=CveAlmacenDestino, Modulo:="Mod/CancExAR1")
@@ -6773,7 +6773,7 @@ Namespace Modelos
For Each Dr As DataRow In DtTempApartados.Rows
If CveMovimientoSalidaApartado = -1 Or CveAlmacenApartado <> Dr("CveAlmacen").ToString.ToEntero Then
- CveMovimientoSalidaApartado = ObjInventario.AddMovimiento(CveAlmacenOrigen, 8, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveVendedor:=1, CveCliente:=CveCliente, CveAlmacenDestino:=Dr("CveAlmacen").ToString.ToEntero, Modulo:="Mod/Apar1")
+ CveMovimientoSalidaApartado = ObjInventario.AddMovimiento(CveAlmacenOrigen, 8, 1, ClsPaginas.NowADS(), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveVendedor:=1, CveCliente:=CveCliente, CveAlmacenDestino:=Dr("CveAlmacen").ToString.ToEntero, Modulo:="Mod/Apar1")
FolioSalida = ObjInventario.Folio
CveAlmacenApartado = Dr("CveAlmacen").ToString.ToEntero
@@ -6800,7 +6800,7 @@ Namespace Modelos
For Each Dr1 As DataRow In DtTraspasos.Rows
CveMovimientoSalida = Dr1("CveMovimientoSalida").ToString.ToEntero
- CveMovimientoEntradaApartado = ObjInventario.AddMovimiento(Dr1("CveAlmacen").ToString.ToEntero, 9, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, Observaciones:="", CveAlmacenDestino:=CveAlmacenDevolucion, CveMovimientoRelacionado:=CveMovimientoSalida, Guia:="", CveContrato:=CveContrato, CveVendedor:=-1, CveCliente:=CveCliente, Modulo:="Mod/Apar2")
+ CveMovimientoEntradaApartado = ObjInventario.AddMovimiento(Dr1("CveAlmacen").ToString.ToEntero, 9, 1, ClsPaginas.NowADS(), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, Observaciones:="", CveAlmacenDestino:=CveAlmacenDevolucion, CveMovimientoRelacionado:=CveMovimientoSalida, Guia:="", CveContrato:=CveContrato, CveVendedor:=-1, CveCliente:=CveCliente, Modulo:="Mod/Apar2")
FolioEntrada = ObjInventario.Folio
If Not CveMovimientoEntradaApartado > 0 Then
@@ -6859,7 +6859,7 @@ Namespace Modelos
End If
- CvePrePoliza = ObjConta.AddPrePolizas("Modelos/GuardaEstatus", CvePlantillaPoliza, Me.Total, Me.Total, Me.CveMoneda, Now, Me.Cliente.NombreComercial, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+ CvePrePoliza = ObjConta.AddPrePolizas("Modelos/GuardaEstatus", CvePlantillaPoliza, Me.Total, Me.Total, Me.CveMoneda, ClsPaginas.NowADS(), Me.Cliente.NombreComercial, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
FacturaDevolucion.CveVenta = CveVenta
FacturaDevolucion.CvePrePoliza = CvePrePoliza
@@ -6879,7 +6879,7 @@ Namespace Modelos
If CveEstatus = 4 Then
- If ObjVentas.UpdateEstatusFactura(CveEstatus, FolioFiscal, "", Now, CveVenta, IDPoliza) Then
+ If ObjVentas.UpdateEstatusFactura(CveEstatus, FolioFiscal, "", ClsPaginas.NowADS(), CveVenta, IDPoliza) Then
Mensaje = "El nuevo estatus se guardó correctamente"
Else
ErrorCancelar = True
@@ -6901,7 +6901,7 @@ Namespace Modelos
Dim Total As Decimal = Me.Total
Dim RFCReceptor As String = Me.Cliente.RFC
- If Not ObjVentas.UpdateEstatusFactura(13, FolioFiscal, "", Now, CveVenta, IDPoliza) Then 'Marcamos la factura como refacturada, si no se cancelo en el SAT el estatus nos dejara cancelarla despues
+ If Not ObjVentas.UpdateEstatusFactura(13, FolioFiscal, "", ClsPaginas.NowADS(), CveVenta, IDPoliza) Then 'Marcamos la factura como refacturada, si no se cancelo en el SAT el estatus nos dejara cancelarla despues
ErrorCancelar = True
End If
@@ -6920,7 +6920,7 @@ Namespace Modelos
'End If
If Not ErrorCancelar Then
- If ObjVentas.UpdateEstatusFactura(CveEstatus, FolioFiscal, ObjCancelacion.CancelacionAcuse, Now, CveVenta, IDPoliza, CvePAC:=UsuarioActual.Empresa.CvePAC) Then
+ If ObjVentas.UpdateEstatusFactura(CveEstatus, FolioFiscal, ObjCancelacion.CancelacionAcuse, ClsPaginas.NowADS(), CveVenta, IDPoliza, CvePAC:=UsuarioActual.Empresa.CvePAC) Then
Mensaje = "El nuevo estatus se guardó correctamente"
Else
ErrorCancelar = True
@@ -7007,7 +7007,7 @@ Namespace Modelos
' Else
' Dim DTPresupuestoIngresos As New DataTable
' Dim AC As New ClsAC
- ' If AC.GetPresupuestoIngresos(-1, Now.Year, True, UsuarioActual.CveEmpresa) Then
+ ' If AC.GetPresupuestoIngresos(-1, ClsPaginas.NowADS().Year, True, UsuarioActual.CveEmpresa) Then
' DTPresupuestoIngresos = AC.DtResultados.Copy()
' End If
' AC.Dispose()
@@ -7202,7 +7202,7 @@ Namespace Modelos
Public ReadOnly Property FechaCP As DateTime
Get
If Me.SubProyecto IsNot Nothing Then
- If Now.EsHorarioVerano Then
+ If ClsPaginas.NowADS().EsHorarioVerano Then
Return DateTime.UtcNow.AddHours(Me.SubProyecto.UTCOffsetVerano)
Else
Return DateTime.UtcNow.AddHours(Me.SubProyecto.UTCOffsetInvierno)
diff --git a/App_Code/Thalamus.vb b/App_Code/Thalamus.vb
index a8a3c4468..a5dcde4ca 100644
--- a/App_Code/Thalamus.vb
+++ b/App_Code/Thalamus.vb
@@ -16,7 +16,7 @@ Public Class Thalamus
Public Function GenerarArchivos(CveEmpresa As Integer) As Boolean
- Dim RutaArchivoVentas As String = $"C:\Temp\Ventas{Now.ToString("yyyyMMdd")}.xlsx"
+ Dim RutaArchivoVentas As String = $"C:\Temp\Ventas{ClsPaginas.NowADS().ToString("yyyyMMdd")}.xlsx"
Dim DTVentas As New DataTable
DTVentas.Columns.Add("systemId")
@@ -34,7 +34,7 @@ Public Class Thalamus
dr(0) = $"systemId {x}"
dr(1) = $"Branch {x}"
dr(2) = $"{x}"
- dr(3) = $"{Now.ToString("yyyy-MM-dd")}"
+ dr(3) = $"{ClsPaginas.NowADS().ToString("yyyy-MM-dd")}"
dr(4) = $"{x}"
dr(5) = $"{x}.00"
dr(6) = $"{x}"
diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index b3f1d81d6..567b98f93 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -298,7 +298,7 @@ Public Class Timbrado
MsgCancelacion.AppendFormat("-3.2")
Dim resultadoCancelacion As Profact.TimbraCFDI.ResultadoCancelacionAck
resultadoCancelacion = conector.CancelaCFDIAck40(RFCEmisor, FolioFiscal, CodigoSATMotivoCancelacion, FolioSustitucion)
- CancelacionFecha = Now
+ CancelacionFecha = ClsPaginas.NowADS()
resp = conector.ObtieneCFDI(RFCEmisor, FolioFiscal)
MsgCancelacion.AppendFormat("-3.3")
@@ -408,7 +408,7 @@ Public Class Timbrado
End Try
#End Region
objCan.CancelacionCfdi = True
- objCan.FechaCancelacion = System.DateTime.Now.AddMinutes(-120) ' operación requerida para que no se presente problemas con fechas adelantadas del PAC
+ objCan.FechaCancelacion = ClsPaginas.NowADS().AddMinutes(-120) ' operación requerida para que no se presente problemas con fechas adelantadas del PAC
MsgCancelacion.AppendFormat("4.3-")
objCan.GeneraCancelacionB64(certBase64, llaveBase64, Clave, FolioFiscal, CodigoSATMotivoCancelacion, FolioSustitucion)
If (objCan.MensajeError = "") Then
@@ -504,7 +504,7 @@ Public Class Timbrado
If cancelacion IsNot Nothing Then
'EN PROCESO, CANCELABLE SIN ACEPTACION,CANCEALDO PREVIAMENTE
If cancelacion.codigo.Contiene("96", "201", "202") Then
- CancelacionFecha = Now
+ CancelacionFecha = ClsPaginas.NowADS()
CancelacionAcuse = result.acuseCancelBase64
Retorno.Verificado = True
@@ -3330,8 +3330,8 @@ Public Class Timbrado
Dim ArchivoW As StreamWriter
Dim strLineaTMP As String
- ' strLineaTMP = Chr(13) & Chr(10) & Day(Now) & "/" & Month(Now) & "/" & Year(Now) & " " & Hour(Now) & ":" & Minuto & ". " & Str & Chr(13) & Chr(10)
- strLineaTMP = String.Format("{0}{1} .. PAC: {2} - {3} ..{4}:{5}", Chr(13), Chr(10), CvePAC, Str, DateTime.Now.ToShortDateString, DateTime.Now.ToShortTimeString)
+ ' strLineaTMP = Chr(13) & Chr(10) & Day(NowADS()) & "/" & Month(NowADS()) & "/" & Year(NowADS()) & " " & Hour(NowADS()) & ":" & Minuto & ". " & Str & Chr(13) & Chr(10)
+ strLineaTMP = String.Format("{0}{1} .. PAC: {2} - {3} ..{4}:{5}", Chr(13), Chr(10), CvePAC, Str, ClsPaginas.NowADS().ToShortDateString, ClsPaginas.NowADS().ToShortTimeString)
Try
ArchivoW = New StreamWriter(String.Format("{0}\LogTimbrado.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
Catch ex As UnauthorizedAccessException
diff --git a/App_Code/Timbres.vb b/App_Code/Timbres.vb
index 70a2d5346..ceee944a6 100644
--- a/App_Code/Timbres.vb
+++ b/App_Code/Timbres.vb
@@ -56,9 +56,9 @@ Public Class Timbres
ObjFactura.TipoDocto = TipoDocto
ObjFactura.TipoComprobante = "T"
- ObjFactura.Fecha = Now
- ObjFactura.FechaPago = Now
- ObjFactura.FechaEjecucion = Now
+ ObjFactura.Fecha = ClsPaginas.NowADS()
+ ObjFactura.FechaPago = ClsPaginas.NowADS()
+ ObjFactura.FechaEjecucion = ClsPaginas.NowADS()
ObjFactura.UsuarioCreo = UsuarioActual.Usuario
ObjFactura.TipoDocumento = "Traspaso"
diff --git a/App_Code/Usuario.vb b/App_Code/Usuario.vb
index 4cc510cf0..a0adb072c 100644
--- a/App_Code/Usuario.vb
+++ b/App_Code/Usuario.vb
@@ -71,9 +71,9 @@ Public Class Usuario
Public ReadOnly Property FechaActualCliente As DateTime
Get
If UTCOffset <> 0 Then
- FechaActualCliente = DateTime.Now.AddMinutes(UTCOffset + 10)
+ FechaActualCliente = ClsPaginas.NowADS().AddMinutes(UTCOffset + 10)
Else
- FechaActualCliente = DateTime.Now
+ FechaActualCliente = ClsPaginas.NowADS()
End If
End Get
End Property
@@ -256,10 +256,10 @@ Namespace ADSSession
If Not IsNothing(HttpContext.Current) AndAlso Not IsNothing(HttpContext.Current.Session) AndAlso Not IsNothing(HttpContext.Current.Session(strsessionid)) Then
obj = DirectCast(HttpContext.Current.Session(strsessionid), ADSSessionObj)
obj.Modulo = modulo
- obj.LastPostback = DateTime.Now
+ obj.LastPostback = ClsPaginas.NowADS()
If _dicSessionobj.TryGetValue(obj.SessionID, obj) Then
obj.Modulo = modulo
- obj.LastPostback = DateTime.Now
+ obj.LastPostback = ClsPaginas.NowADS()
End If
retorno = obj
End If
@@ -321,7 +321,7 @@ Namespace ADSSession
Public Sub New(CveUsuario As Integer, CveEmpresa As Integer)
Me.CveUsuario = CveUsuario
Me.CveEmpresa = CveEmpresa
- FechaLogin = DateTime.Now
+ FechaLogin = ClsPaginas.NowADS()
_SessionID = ""
_ipAdrres = ""
Try
diff --git a/App_Code/WS/WSSIGVentas.vb b/App_Code/WS/WSSIGVentas.vb
index 981381e7c..6aa25860c 100644
--- a/App_Code/WS/WSSIGVentas.vb
+++ b/App_Code/WS/WSSIGVentas.vb
@@ -24,8 +24,8 @@ Namespace SIG
Dim respuesta As Data.DataTable = Nothing 'New With {.Correcto = False, .Mensaje = "", .Datos = New JObject}
Dim CveCliente As Integer = -1
- Dim FechaI As DateTime = DateTime.Now
- Dim FechaF As DateTime = DateTime.Now
+ Dim FechaI As DateTime = ClsPaginas.NowADS()
+ Dim FechaF As DateTime = ClsPaginas.NowADS()
Dim CveIE As Integer = -1
Dim CveVenta As Integer = -1
Dim opcion As Integer = -1
@@ -67,7 +67,7 @@ Namespace SIG
respuesta.AcceptChanges()
Dim thencommit As Boolean = True
Banco.IniciaTransacSQL()
- If Banco.AddComplementoPagosSinc(CveUsuario, DateTime.Now.ToString("yyyy/MM/dd"), CveEmpresa) Then
+ If Banco.AddComplementoPagosSinc(CveUsuario, ClsPaginas.NowADS().ToString("yyyy/MM/dd"), CveEmpresa) Then
Dim CveComplementoPagoSinc As Integer = Banco.DtResultados.Rows(0)("CveComplementoPagoSinc").ToString().ToEntero()
For Each dr As System.Data.DataRow In respuesta.Select("CveVenta Is NULL")
'CveComplementoPagoTimbre = Banco.AddComplementoPago(dr("CveIE").ToString().ToEntero(), -1, Serie, Folio, Me.CveUsuario, CveEmpresa, CvePrePoliza:=-1, Estatus:=1)
diff --git a/App_Code/WS/WSUSer.vb b/App_Code/WS/WSUSer.vb
index c6a207031..9f8f2f502 100644
--- a/App_Code/WS/WSUSer.vb
+++ b/App_Code/WS/WSUSer.vb
@@ -25,7 +25,7 @@ Namespace SIG
DateTime.TryParseExact(String.Format("{0} {1}", dataArray(2), dataArray(3)), "ddMMyyyy HHmm", New Globalization.CultureInfo("es-MX"), Globalization.DateTimeStyles.None, FechaPeticion)
Dim CveEmpresa As Integer = dataArray(4).ToEntero()
- Dim diferencia As Double = (FechaPeticion - DateTime.Now).TotalMinutes
+ Dim diferencia As Double = (FechaPeticion - ClsPaginas.NowADS()).TotalMinutes
Token = diferencia.ToString("N0").ToEntero()
End If
End If
diff --git a/App_Code/WS/WsUtility.vb b/App_Code/WS/WsUtility.vb
index f5cd97649..df875f411 100644
--- a/App_Code/WS/WsUtility.vb
+++ b/App_Code/WS/WsUtility.vb
@@ -25,7 +25,7 @@
' FechaPeticion = FechaPeticion.AddMinutes(Token)
' Dim CveEmpresa As Integer = dataArray(4)
- ' Dim diferencia As Integer = Math.Abs((FechaPeticion - DateTime.Now).TotalMinutes)
+ ' Dim diferencia As Integer = Math.Abs((FechaPeticion - NowADS()).TotalMinutes)
' If diferencia < 30 Then
' noautorizado = False
' End If
diff --git a/App_Code/WsSIGWeb.vb b/App_Code/WsSIGWeb.vb
index cee8000b4..d2c3bfe73 100644
--- a/App_Code/WsSIGWeb.vb
+++ b/App_Code/WsSIGWeb.vb
@@ -19,7 +19,7 @@ Public Class WsSIGWeb
End Function
Private Function notcurrentdate(fecha As DateTime) As Boolean
- Return Not (fecha > (DateTime.Now).AddMinutes(-15) And fecha < (DateTime.Now).AddMinutes(15))
+ Return Not (fecha > (ClsPaginas.NowADS()).AddMinutes(-15) And fecha < (ClsPaginas.NowADS()).AddMinutes(15))
End Function
diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb
index 0f5df56a9..644e8ed38 100644
--- a/App_Code/modExtensiones.vb
+++ b/App_Code/modExtensiones.vb
@@ -297,8 +297,8 @@ Namespace Extensiones
End If
Catch
End Try
- ' strLineaTMP = Chr(13) & Chr(10) & Day(Now) & "/" & Month(Now) & "/" & Year(Now) & " " & Hour(Now) & ":" & Minuto & ". " & Str & Chr(13) & Chr(10)
- strLineaTMP = String.Format("{0}{1}Log: {5}{2}{3}:{4}", Chr(13), Chr(10), Str, DateTime.Now.ToShortDateString, DateTime.Now.ToShortTimeString, Urlstring)
+ ' strLineaTMP = Chr(13) & Chr(10) & Day(NowADS()) & "/" & Month(NowADS()) & "/" & Year(NowADS()) & " " & Hour(NowADS()) & ":" & Minuto & ". " & Str & Chr(13) & Chr(10)
+ strLineaTMP = String.Format("{0}{1}Log: {5}{2}{3}:{4}", Chr(13), Chr(10), Str, ClsPaginas.NowADS().ToShortDateString, ClsPaginas.NowADS().ToShortTimeString, Urlstring)
Try
ArchivoW = New StreamWriter(String.Format("{0}\Log\Log.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
Catch ex As UnauthorizedAccessException
@@ -326,7 +326,7 @@ Namespace Extensiones
Public Sub GuardaLogAD(Mensaje As String, Optional Archivo As String = "Log")
Dim ArchivoW As StreamWriter
- Dim MensajeFormato = String.Format("{0}{1}Log: {2} | Fecha:{3}", Chr(13), Chr(10), Mensaje, Now.ToString("dd/MM/yyyy HH:mm"))
+ Dim MensajeFormato = String.Format("{0}{1}Log: {2} | Fecha:{3}", Chr(13), Chr(10), Mensaje, ClsPaginas.NowADS().ToString("dd/MM/yyyy HH:mm"))
Try
ArchivoW = New StreamWriter(String.Format("{0}\Log\{1}.txt", AppDomain.CurrentDomain.BaseDirectory, Archivo), True, System.Text.Encoding.UTF8)
@@ -352,7 +352,7 @@ Namespace Extensiones
Dim strLineaTMP As String
- strLineaTMP = String.Format("{0} {0}{3}{2}:{1}{0}", Chr(13), DateTime.Now.ToShortDateString, DateTime.Now.ToShortTimeString, pTexto)
+ strLineaTMP = String.Format("{0} {0}{3}{2}:{1}{0}", Chr(13), ClsPaginas.NowADS().ToShortDateString, ClsPaginas.NowADS().ToShortTimeString, pTexto)
Try
ArchivoW = New StreamWriter(String.Format("{0}\Log\Log.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
Catch ex As Exception
@@ -372,7 +372,7 @@ Namespace Extensiones
Public Sub GuardaLogMail(pTexto As String)
Dim ArchivoW As StreamWriter
Dim strLineaTMP As String
- strLineaTMP = String.Format("{0} {1}:{2} {3} {0}", Chr(13), DateTime.Now.ToShortDateString, DateTime.Now.ToShortTimeString, pTexto)
+ strLineaTMP = String.Format("{0} {1}:{2} {3} {0}", Chr(13), ClsPaginas.NowADS().ToShortDateString, ClsPaginas.NowADS().ToShortTimeString, pTexto)
Try
ArchivoW = New StreamWriter(String.Format("{0}\Log\LogMail.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
Catch ex As Exception
@@ -391,8 +391,8 @@ Namespace Extensiones
Dim ArchivoW As StreamWriter
Dim strLineaTMP As String
- ' strLineaTMP = Chr(13) & Chr(10) & Day(Now) & "/" & Month(Now) & "/" & Year(Now) & " " & Hour(Now) & ":" & Minuto & ". " & Str & Chr(13) & Chr(10)
- strLineaTMP = String.Format("{0}{1} .. PAC: {2} - Modulo: {3} ..{4}:{5}", Chr(13), Chr(10), CvePAC, Modulo, Str, DateTime.Now.ToShortDateString, DateTime.Now.ToShortTimeString)
+ ' strLineaTMP = Chr(13) & Chr(10) & Day(NowADS()) & "/" & Month(NowADS()) & "/" & Year(NowADS()) & " " & Hour(NowADS()) & ":" & Minuto & ". " & Str & Chr(13) & Chr(10)
+ strLineaTMP = String.Format("{0}{1} .. PAC: {2} - Modulo: {3} ..{4}:{5}", Chr(13), Chr(10), CvePAC, Modulo, Str, ClsPaginas.NowADS().ToShortDateString, ClsPaginas.NowADS().ToShortTimeString)
Try
ArchivoW = New StreamWriter(String.Format("{0}\Log\LogTimbrado.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
Catch ex As UnauthorizedAccessException
@@ -414,7 +414,7 @@ Namespace Extensiones
Public Sub GuardaLogCancelacionSAT(pTexto As String)
Dim ArchivoW As StreamWriter
Dim strLineaTMP As String
- strLineaTMP = String.Format("{0} {1}:{2} {3} {0}", Chr(13), DateTime.Now.ToShortDateString, DateTime.Now.ToShortTimeString, pTexto)
+ strLineaTMP = String.Format("{0} {1}:{2} {3} {0}", Chr(13), ClsPaginas.NowADS().ToShortDateString, ClsPaginas.NowADS().ToShortTimeString, pTexto)
Try
ArchivoW = New StreamWriter(String.Format("{0}\Log\LogCancelacionSAT.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
@@ -458,7 +458,7 @@ Namespace Extensiones
If System.Web.HttpContext.Current IsNot Nothing AndAlso System.Web.HttpContext.Current.CurrentHandler IsNot Nothing AndAlso System.Web.HttpContext.Current.CurrentHandler.GetType().IsSubclassOf(GetType(Page)) Then
Dim Titulo As String = ""
- Dim Plus As String = DateTime.Now.Ticks.ToString
+ Dim Plus As String = ClsPaginas.NowADS().Ticks.ToString
Dim headerclas As String = ""
Dim showalert = True
@@ -545,7 +545,7 @@ Namespace Extensiones
script = String.Format("alertatoast({3},'{0}',function(){{{1}}},{2});", Mensaje, JSBtnAceptar, TimeoutToast, DirectCast(pOpcion, Integer))
End If
- ScriptManager.RegisterStartupScript(Pag, Pag.GetType(), String.Format("Alert{0}", (DateTime.Now.Ticks + 1).ToString()), script, True)
+ ScriptManager.RegisterStartupScript(Pag, Pag.GetType(), String.Format("Alert{0}", (ClsPaginas.NowADS().Ticks + 1).ToString()), script, True)
Pag = Nothing
Catch ex As Exception
Mensaje.GuardaLog(String.Format("Error Alert : {0}", Mensaje))
@@ -561,7 +561,7 @@ Namespace Extensiones
If System.Web.HttpContext.Current IsNot Nothing AndAlso System.Web.HttpContext.Current.CurrentHandler IsNot Nothing Then
Dim Img, Botones As String
Dim Titulo As String
- Dim Plus As String = DateTime.Now.Ticks.ToString
+ Dim Plus As String = ClsPaginas.NowADS().Ticks.ToString
Mensaje = Mensaje.Replace("'"c, "\'").Replace(vbCrLf, "")
JSBtnAceptar = JSBtnAceptar.Replace("'"c, "\'")
@@ -587,8 +587,8 @@ Namespace Extensiones
Try
Dim Pag As Page = DirectCast(System.Web.HttpContext.Current.CurrentHandler, Page)
- 'ScriptManager.RegisterStartupScript(Pag, Pag.GetType(), (DateTime.Now.Ticks + 1).ToString(), "MuestraAlert('" & Alerta.ToString() & "', '" & Plus & "');", True)
- ScriptManager.RegisterStartupScript(Pag, Pag.GetType(), (DateTime.Now.Ticks + 1).ToString(), String.Format("MuestraAlerta('{0}','{1}','{2}','{3}','{4}');", Titulo, Mensaje, Img, Botones, JSBtnAceptar), True)
+ 'ScriptManager.RegisterStartupScript(Pag, Pag.GetType(), (NowADS().Ticks + 1).ToString(), "MuestraAlert('" & Alerta.ToString() & "', '" & Plus & "');", True)
+ ScriptManager.RegisterStartupScript(Pag, Pag.GetType(), (ClsPaginas.NowADS().Ticks + 1).ToString(), String.Format("MuestraAlerta('{0}','{1}','{2}','{3}','{4}');", Titulo, Mensaje, Img, Botones, JSBtnAceptar), True)
Pag = Nothing
Catch ex As Exception
@@ -1782,7 +1782,7 @@ Namespace Extensiones
Public Sub GeneraChequePDF(pCveIE As Integer, tEmpresa As Empresa, Optional IDPoliza As Integer = -1, Optional MuestraAlert As Boolean = True)
Dim Folio, Observacion, UsuarioRegistro, TextoImporte, PagueseA, Ruta, Banco, NumCuenta, AbonoCuenta, SubProyecto, NotificarA, RefCrediproveedor As String
- Dim FechaExpedicion As Date = Now
+ Dim FechaExpedicion As Date = ClsPaginas.NowADS()
Dim Importe As Double
Dim tCveEmpresa As Integer = tEmpresa.CveEmpresa
Dim CveTipoTransaccion, CveProveedor, CvePersonal As Integer
@@ -2100,7 +2100,7 @@ Namespace Extensiones
worksheet.Rows(IndexEndTable + 1).Cells(1).Value = Usuario.Nombre
worksheet.Rows(IndexEndTable).Cells(3).Value = "Fecha Impresión"
- worksheet.Rows(IndexEndTable + 1).Cells(3).Value = DateTime.Now.ToString("dd/MM/yyyy")
+ worksheet.Rows(IndexEndTable + 1).Cells(3).Value = ClsPaginas.NowADS().ToString("dd/MM/yyyy")
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", Usuario.Empresa.Ruta))
@@ -2430,7 +2430,7 @@ Namespace Extensiones
worksheet.Rows(IndexEndTable + 1).Cells(2).Value = Usuario.Nombre
worksheet.Rows(IndexEndTable).Cells(6).Value = "Fecha Impresión"
- worksheet.Rows(IndexEndTable + 1).Cells(6).Value = DateTime.Now.ToString("dd/MM/yyyy")
+ worksheet.Rows(IndexEndTable + 1).Cells(6).Value = ClsPaginas.NowADS().ToString("dd/MM/yyyy")
Dim Imagen As New System.IO.FileInfo($"{Usuario.Empresa.Ruta}/Logo.png")
@@ -2523,7 +2523,7 @@ Namespace Extensiones
worksheet.Rows(IndexEndTable + 1).Cells(2).Value = Usuario.Nombre
worksheet.Rows(IndexEndTable).Cells(6).Value = "Fecha Impresión"
- worksheet.Rows(IndexEndTable + 1).Cells(6).Value = DateTime.Now.ToString("dd/MM/yyyy")
+ worksheet.Rows(IndexEndTable + 1).Cells(6).Value = ClsPaginas.NowADS().ToString("dd/MM/yyyy")
Dim Imagen As New System.IO.FileInfo($"{Usuario.Empresa.Ruta}/Logo.png")
@@ -2889,7 +2889,7 @@ Namespace Extensiones
If fechaI IsNot Nothing Or fechaF IsNot Nothing Then
table.AddCell(New Element.Paragraph(String.Format("Inicio: {0} Fin: {1}", fechaI, fechaF)).SetFontSize(10))
Else
- table.AddCell(New Element.Paragraph(String.Format("Fecha: {0}", Now.ToString("dd/MM/yyyy HH:mm"))).SetFontSize(10))
+ table.AddCell(New Element.Paragraph(String.Format("Fecha: {0}", ClsPaginas.NowADS().ToString("dd/MM/yyyy HH:mm"))).SetFontSize(10))
End If
document.Add(Borderless(table))
'FIN ENCABEZADO
@@ -2905,7 +2905,7 @@ Namespace Extensiones
'SECCIÓN PIE REPORTE
table = New Element.Table(UnitValue.CreatePercentArray(New Single() {2, 1.25}))
table.AddCell(New Element.Paragraph("Usuario imprimió: " + usuario.Nombre).SetFontSize(9))
- table.AddCell(New Element.Paragraph("Fecha de impresión: " + Now.ToString("dd/MM/yyyy")).SetTextAlignment(TextAlignment.RIGHT).SetFontSize(9))
+ table.AddCell(New Element.Paragraph("Fecha de impresión: " + ClsPaginas.NowADS().ToString("dd/MM/yyyy")).SetTextAlignment(TextAlignment.RIGHT).SetFontSize(9))
document.Add(Borderless(table))
'FIN PIE
@@ -2915,7 +2915,7 @@ Namespace Extensiones
If fechaI IsNot Nothing Or fechaF IsNot Nothing Then
HttpContext.Current.Response.AddHeader("content-disposition", String.Format("attachment;filename={0} {1} a {2}.pdf", nombreReporte, fechaI.ToDate.ToString("dd-MM-yyyy"), fechaF.ToDate.ToString("dd-MM-yyyy")))
Else
- HttpContext.Current.Response.AddHeader("content-disposition", String.Format("attachment;filename={0} {1}.pdf", nombreReporte, Now.ToString("dd-MM-yyyy")))
+ HttpContext.Current.Response.AddHeader("content-disposition", String.Format("attachment;filename={0} {1}.pdf", nombreReporte, ClsPaginas.NowADS().ToString("dd-MM-yyyy")))
End If
HttpContext.Current.Response.Cache.SetCacheability(HttpCacheability.NoCache)
'HtmlConverter.ConvertToPdf(sw.ToString(), HttpContext.Current.Response.OutputStream)
@@ -3892,7 +3892,7 @@ Namespace Extensiones
FechaPeticion = FechaPeticion.AddMinutes(Token)
Dim CveEmpresa As Integer = dataArray(4).ToEntero()
- Dim diferencia As Double = (FechaPeticion - DateTime.Now).TotalMinutes
+ Dim diferencia As Double = (FechaPeticion - ClsPaginas.NowADS()).TotalMinutes
diferencia = Math.Abs(diferencia)
If diferencia < 5 Then 'si la fecha que me envía es de cuando menos hace cinco minuto, se permite accesar, para que no se copie ese parámetro y se esté recuperando información "medida de seguridad"
diff --git a/App_Code/wsRedes.vb b/App_Code/wsRedes.vb
index 23b68792a..f2e9d9462 100644
--- a/App_Code/wsRedes.vb
+++ b/App_Code/wsRedes.vb
@@ -45,7 +45,7 @@ Public Class wsRedes
' 'si la fecha que me envía es de cuando menos hace un minuto, se permite accesar, para que no se copie ese parámetro y se esté recuperando información "medida de seguridad"
- ' If Fecha > Now.AddSeconds(TiempoValido) Then
+ ' If Fecha > NowADS().AddSeconds(TiempoValido) Then
' Str.Append("-----xwsRed:3")
' 'debemos de saccar la clave electoral
@@ -136,7 +136,7 @@ Public Class wsRedes
Dim Fecha As DateTime
Fecha = ArrCadena(0).ToString.ToDate
'si la fecha que me envía es de cuando menos hace un minuto, se permite accesar, para que no se copie ese parámetro y se esté recuperando información "medida de seguridad"
- If Fecha > Now.AddSeconds(TiempoValido) Then
+ If Fecha > ClsPaginas.NowADS().AddSeconds(TiempoValido) Then
Dim Tipo As New ClsProspectos
diff --git a/App_Code/wsSIG.vb b/App_Code/wsSIG.vb
index 7ca8b9f0e..1991e6c6b 100644
--- a/App_Code/wsSIG.vb
+++ b/App_Code/wsSIG.vb
@@ -37,7 +37,7 @@ Public Class wsSIG
Usuario = ArrCadena(0) : Contrasenia = ArrCadena(1) : IMEI = ArrCadena(2) : Version = ArrCadena(3) : Fecha = ArrCadena(4).ToString.ToDate
'si la fecha que me envía es de cuando menos hace un minuto, se permite accesar, para que no se copie ese parámetro y se esté recuperando información "medida de seguridad"
- If Fecha > Now.AddSeconds(TiempoValido) Then
+ If Fecha > ClsPaginas.NowADS().AddSeconds(TiempoValido) Then
Dim ttDato As Usuario
Dim tUsuario As New ClsSisUsuarios
@@ -88,7 +88,7 @@ Public Class wsSIG
validatesubproyecto = True
End If
'si la fecha que me envía es de cuando menos hace un minuto, se permite accesar, para que no se copie ese parámetro y se esté recuperando información "medida de seguridad"
- If Fecha > Now.AddSeconds(TiempoValido) Then
+ If Fecha > ClsPaginas.NowADS().AddSeconds(TiempoValido) Then
Dim ttDato As Usuario = Nothing
Using tUsuario As New ClsSisUsuarios()
@@ -141,7 +141,7 @@ Public Class wsSIG
' IMEI = ArrCadena(0) : Tipo = ArrCadena(1).ToEntero : Fecha = ArrCadena(2).ToString.ToDate
' 'si la fecha que me envía es de cuando menos hace un minuto, se permite accesar, para que no se copie ese parámetro y se esté recuperando información "medida de seguridad"
- ' If Fecha > Now.Addseconds(TiempoValido) Then
+ ' If Fecha > NowADS().Addseconds(TiempoValido) Then
' Dim tUsuario As New ClsSisUsuarios
@@ -166,7 +166,7 @@ Public Class wsSIG
Dim Fecha, FechaColonias As DateTime
IMEI = ArrCadena(0) : FechaColonias = ArrCadena(1).ToString.ToDate : Fecha = ArrCadena(2).ToString.ToDate
'si la fecha que me envía es de cuando menos hace un minuto, se permite accesar, para que no se copie ese parámetro y se esté recuperando información "medida de seguridad"
- If Fecha > Now.AddSeconds(TiempoValido) Then
+ If Fecha > ClsPaginas.NowADS().AddSeconds(TiempoValido) Then
'Dim Tipo As New ClsCircuitos
'ds = Tipo.GetTablas(IMEI, FechaColonias)
'Tipo.Dispose()
@@ -188,7 +188,7 @@ Public Class wsSIG
Dim Fecha As DateTime
IMEI = ArrCadena(0) : CveEmpresa = ArrCadena(1).ToString.ToEntero : Fecha = ArrCadena(2).ToString.ToDate
'si la fecha que me envía es de cuando menos hace un minuto, se permite accesar, para que no se copie ese parámetro y se esté recuperando información "medida de seguridad"
- If Fecha > Now.AddSeconds(TiempoValido) Then
+ If Fecha > ClsPaginas.NowADS().AddSeconds(TiempoValido) Then
Dim Prosp As New ClsProspectos
ds = Prosp.GetProspectosTablas(IMEI, CveEmpresa)
@@ -211,7 +211,7 @@ Public Class wsSIG
Dim Fecha As DateTime
CveUsuario = ArrCadena(0).ToEntero : IMEI = ArrCadena(1) : CveEmpresa = ArrCadena(2).ToString.ToEntero : Fecha = ArrCadena(3).ToString.ToDate
'si la fecha que me envía es de cuando menos hace un minuto, se permite accesar, para que no se copie ese parámetro y se esté recuperando información "medida de seguridad"
- If Fecha > Now.AddSeconds(TiempoValido) Then
+ If Fecha > ClsPaginas.NowADS().AddSeconds(TiempoValido) Then
Dim Evento As New ClsOIEventos
If Evento.GetAgendas(CveUsuario, CveEmpresa) Then
@@ -248,7 +248,7 @@ Public Class wsSIG
CveUsuarioIng = ArrCadena(26).ToEntero : CveEmpresa = ArrCadena(27).ToString.ToEntero : FechaEnvio = ArrCadena(28).ToString.ToDate
FechaEnvio = ArrCadena(29).ToString.ToDate
'si la fecha que me envía es de cuando menos hace un minuto, se permite accesar, para que no se copie ese parámetro y se esté recuperando información "medida de seguridad"
- If FechaEnvio > Now.AddSeconds(TiempoValido) Then
+ If FechaEnvio > ClsPaginas.NowADS().AddSeconds(TiempoValido) Then
Dim Evento As New ClsOIEventos
If Evento.AddEvento(CveTipoEvento, CveAgendaTipo, Asunto, Descripcion, Prioridad, CveUsuarioDe, CveUsuarioPara, FechaInicio, FechaFin, 0, CveRevision, Archivo, CveUsuarioIng, CveEmpresa,
@@ -278,7 +278,7 @@ Public Class wsSIG
FechaFin = ArrCadena(0).ToDate : CveEstatusEvento = ArrCadena(1).ToEntero : Geom = ArrCadena(2) : CveEvento = ArrCadena(3).ToEntero : Fecha = ArrCadena(4).ToDate
'si la fecha que me envía es de cuando menos hace un minuto, se permite accesar, para que no se copie ese parámetro y se esté recuperando información "medida de seguridad"
- If Fecha > Now.AddSeconds(TiempoValido) Then
+ If Fecha > ClsPaginas.NowADS().AddSeconds(TiempoValido) Then
Dim Evento As New ClsOIEventos
Retorno = Evento.FinalizaEvento(FechaFin, CveEstatusEvento, Geom, CveEvento)
@@ -306,7 +306,7 @@ Public Class wsSIG
Imagen = ArrCadena(0) : TipoImagen = ArrCadena(1).ToEntero : Cve = ArrCadena(2).ToEntero : pCveUsuario = ArrCadena(3).ToEntero : pCveEmpresa = ArrCadena(4).ToEntero : pIMEI = ArrCadena(5)
Fecha = ArrCadena(6).ToString.ToDate
Fecha.ToShortDateString().GuardaLog()
- If Fecha > Now.AddSeconds(TiempoValido) Then
+ If Fecha > ClsPaginas.NowADS().AddSeconds(TiempoValido) Then
Dim Dir As String = String.Format("{0}Empresas\{1}\", ModExtensiones.DirectorioBaseEmpresas, pCveEmpresa)
Dim Ruta As String = ""
Dim RutaDB3 As String = ""
@@ -412,7 +412,7 @@ Public Class wsSIG
CveProspectoTipo = ArrCadena(34).ToEntero : Geom = ArrCadena(35) : CveVendedor = ArrCadena(36).ToEntero : CveUsuario = ArrCadena(37).ToEntero : CveEmpresa = ArrCadena(38).ToEntero : FechaCaptura = ArrCadena(39).ToString.ToDate : FechaEnvio = ArrCadena(40).ToString.ToDate
'si la fecha que me envía es de cuando menos hace un minuto, se permite accesar, para que no se copie ese parámetro y se esté recuperando información "medida de seguridad"
- If FechaEnvio > Now.AddSeconds(TiempoValido) Then
+ If FechaEnvio > ClsPaginas.NowADS().AddSeconds(TiempoValido) Then
Str.Append("-----xwsAdd:3")
@@ -478,7 +478,7 @@ Public Class wsSIG
'si la fecha que me envía es de cuando menos hace un minuto, se permite accesar, para que no se copie ese parámetro y se esté recuperando información "medida de seguridad"
- If FechaEnvio > Now.AddSeconds(TiempoValido) Then
+ If FechaEnvio > ClsPaginas.NowADS().AddSeconds(TiempoValido) Then
Str.Append("-----xwsAdd:3")
@@ -524,7 +524,7 @@ Public Class wsSIG
CveProspecto = ArrCadena(0).ToEntero : Nombres = ArrCadena(1) : CveVendedor = ArrCadena(2).ToEntero() : CveEmpresa = ArrCadena(5).ToEntero : FechaEnvio = ArrCadena(6).ToString.ToDate
'si la fecha que me envía es de cuando menos hace un minuto, se permite accesar, para que no se copie ese parámetro y se esté recuperando información "medida de seguridad"
- If FechaEnvio > Now.AddSeconds(TiempoValido) Then
+ If FechaEnvio > ClsPaginas.NowADS().AddSeconds(TiempoValido) Then
Str.Append("-----xwsAdd:3")
@@ -579,7 +579,7 @@ Public Class wsSIG
CveProspecto = ArrCadena(0).ToEntero : CveEmpresa = ArrCadena(1).ToEntero : FechaEnvio = ArrCadena(2).ToString.ToDate
'si la fecha que me envía es de cuando menos hace un minuto, se permite accesar, para que no se copie ese parámetro y se esté recuperando información "medida de seguridad"
- If FechaEnvio > Now.AddSeconds(TiempoValido) Then
+ If FechaEnvio > ClsPaginas.NowADS().AddSeconds(TiempoValido) Then
Dim Prosp As New ClsProspectos
@@ -616,7 +616,7 @@ Public Class wsSIG
CveContrato = ArrCadena(0).ToEntero : CveEmpresa = ArrCadena(1).ToEntero : FechaEnvio = ArrCadena(2).ToString.ToDate
'si la fecha que me envía es de cuando menos hace un minuto, se permite accesar, para que no se copie ese parámetro y se esté recuperando información "medida de seguridad"
- If FechaEnvio > Now.AddSeconds(TiempoValido) Then
+ If FechaEnvio > ClsPaginas.NowADS().AddSeconds(TiempoValido) Then
Dim Cont As New ClsContratos
@@ -650,7 +650,7 @@ Public Class wsSIG
CveContratoSeccion = ArrCadena(0).ToEntero : Geom = ArrCadena(1) : FechaEnvio = ArrCadena(2).ToString.ToDate
'si la fecha que me envía es de cuando menos hace un minuto, se permite accesar, para que no se copie ese parámetro y se esté recuperando información "medida de seguridad"
- If FechaEnvio > Now.AddSeconds(TiempoValido) Then
+ If FechaEnvio > ClsPaginas.NowADS().AddSeconds(TiempoValido) Then
Dim Cont As New ClsContratos
Cadena.GuardaLog()
diff --git a/Ashx/CargaEventos.ashx b/Ashx/CargaEventos.ashx
index 60ef44198..d40007c3b 100644
--- a/Ashx/CargaEventos.ashx
+++ b/Ashx/CargaEventos.ashx
@@ -238,7 +238,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
If Not cevent.recurrenciatipo > 0 Then
'AGREGAMOS CUANDO NO ES RECURRENTE
- Dim tFecha As DateTime = DateAdd(DateInterval.Month, -6, Date.Now)
+ Dim tFecha As DateTime = DateAdd(DateInterval.Month, -6, ClsPaginas.NowADS())
'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL NO LO AGREGA
If dr("FechaFin").ToString.ToDateTime > tFecha Or dr("FechaInicio").ToString.ToDateTime > tFecha Then
events.Add(cevent)
@@ -319,7 +319,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
End If
'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL Y/0 SI LA FECHA INICIAL DE LA RECURRENCIA ES MENOR A LA FECHA QUE SE CREO EL EVENTO NO LO AGREGA
- If FIT > DateAdd(DateInterval.Month, -6, Date.Now) And FIT >= dr("FechaInicio").ToString.ToDateTime Then
+ If FIT > DateAdd(DateInterval.Month, -6, ClsPaginas.NowADS()) And FIT >= dr("FechaInicio").ToString.ToDateTime Then
events.Add(cevent)
End If
Next
@@ -359,7 +359,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
End If
'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL NO LO AGREGA
- If FI > DateAdd(DateInterval.Month, -6, Date.Now) Then
+ If FI > DateAdd(DateInterval.Month, -6, ClsPaginas.NowADS()) Then
events.Add(cevent)
End If
End If
diff --git a/Ashx/E119.ashx b/Ashx/E119.ashx
index 9325d6b35..0a53e84c6 100644
--- a/Ashx/E119.ashx
+++ b/Ashx/E119.ashx
@@ -255,7 +255,7 @@ Public Class E119 : Implements IHttpHandler
End If
End Using
- Dim Msg As String = "Información día " & Now.ToShortDateString & If(RespuestaError.message <> "", " Error: " & RespuestaError.message, "")
+ Dim Msg As String = "Información día " & ClsPaginas.NowADS().ToShortDateString & If(RespuestaError.message <> "", " Error: " & RespuestaError.message, "")
Msg.GuardaLogAD("LogE119")
If TieneError Then
@@ -288,7 +288,7 @@ Public Class E119 : Implements IHttpHandler
TieneError = True
End Try
- Dim Msg As String = "Información día " & Now.ToShortDateString & If(RespuestaError.message <> "", " Error: " & RespuestaError.message, "")
+ Dim Msg As String = "Información día " & ClsPaginas.NowADS().ToShortDateString & If(RespuestaError.message <> "", " Error: " & RespuestaError.message, "")
Msg.GuardaLogAD("LogE119")
If TieneError Then
diff --git a/Ashx/E140.ashx b/Ashx/E140.ashx
index 464c49e33..25a99bd7f 100644
--- a/Ashx/E140.ashx
+++ b/Ashx/E140.ashx
@@ -139,7 +139,7 @@ Public Class E140 : Implements IHttpHandler, IRequiresSessionState
Dim RutaRDLC As String = If(File.Exists($"{RutaEmpresa}\Formatos\MetasVendedores.rdlc"), $"{RutaEmpresa}\Formatos\MetasVendedores.rdlc", $"{DirectorioBaseEmpresas}\Empresas\Grales\Formatos\MetasVendedores.rdlc")
- If ObjGen.GetRepMetasVendedores(DateTime.Now, CveEmpresa, -1, -1, -1, -1, -1, CveSubProyecto, -1, -1, 0) Then
+ If ObjGen.GetRepMetasVendedores(ClsPaginas.NowADS(), CveEmpresa, -1, -1, -1, -1, -1, CveSubProyecto, -1, -1, 0) Then
Dim Imagen As System.IO.FileInfo = New System.IO.FileInfo(String.Format("{0}/Logo.png", RutaEmpresa))
@@ -153,7 +153,7 @@ Public Class E140 : Implements IHttpHandler, IRequiresSessionState
End If
parametros.Add(New ReportParameter("UsuarioImprimio", "Sistema"))
- parametros.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ parametros.Add(New ReportParameter("FechaImpresion", ClsPaginas.NowADS().ToString("dd/MM/yyyy")))
parametros.Add(New ReportParameter("SubProyecto", Sucursal))
parametros.Add(New ReportParameter("Agente", Vendedor))
@@ -216,7 +216,7 @@ Public Class E140 : Implements IHttpHandler, IRequiresSessionState
End If
- MandaCorreo(CorreoSupervisor, $"Envió de estado de scorecard sucursal {Sucursal} a {Now.ToString("dd/MM/yyyy")}", bytes)
+ MandaCorreo(CorreoSupervisor, $"Envió de estado de scorecard sucursal {Sucursal} a {ClsPaginas.NowADS().ToString("dd/MM/yyyy")}", bytes)
bytes = Nothing
End If
diff --git a/Ashx/E141.ashx b/Ashx/E141.ashx
index 648919343..493fb9767 100644
--- a/Ashx/E141.ashx
+++ b/Ashx/E141.ashx
@@ -797,11 +797,11 @@ Public Class E141 : Implements IHttpHandler
ObjFactura.TipoDocto = TipoDocto
ObjFactura.RefDocto = ""
'ObjFactura.CveMesa = -1
- ObjFactura.Fecha = Now
+ ObjFactura.Fecha = ClsPaginas.NowADS()
ObjFactura.CvePrePoliza = -1
- ObjFactura.FechaPago = Now
+ ObjFactura.FechaPago = ClsPaginas.NowADS()
ObjFactura.MotivoDescuento = ""
- ObjFactura.FechaEjecucion = Now
+ ObjFactura.FechaEjecucion = ClsPaginas.NowADS()
ObjFactura.UsuarioCreo = UsuarioActual.Usuario
ObjFactura.CveCondicionEntrega = -1
ObjFactura.CondicionEntrega = ""
@@ -1236,7 +1236,7 @@ Public Class E141 : Implements IHttpHandler
TmpDT.Columns.Add("TotalImporte", GetType(Decimal))
TmpDT.Columns.Add("Total", GetType(Decimal))
'Para uso del módulo contable
- TmpDT.Columns.Add("AsientoContableVentas", GetType(Integer))
+ TmpDT.Columns.Add("AsientoContableVentas", GetType(Integer))
TmpDT.Columns.Add("AplicaParaConcepto", GetType(Boolean))
TmpDT.Columns.Add("CveProyecto", GetType(Integer))
TmpDT.Columns.Add("Proyecto", GetType(String))
@@ -1780,9 +1780,9 @@ Public Class E141 : Implements IHttpHandler
Dim msg As String = ""
If sb.Length > 0 Then
- msg = $"Se enviaron los siguientes productos: {sb.ToString()} Fecha y hora: {Now.ToString("dd/MM/yyyy hh:mm:ss tt")}"
+ msg = $"Se enviaron los siguientes productos: {sb.ToString()} Fecha y hora: {ClsPaginas.NowADS().ToString("dd/MM/yyyy hh:mm:ss tt")}"
Else
- msg = $"No se enviaron productos esta semana Fecha y hora: {Now.ToString("dd/MM/yyyy hh:mm:ss tt")}"
+ msg = $"No se enviaron productos esta semana Fecha y hora: {ClsPaginas.NowADS().ToString("dd/MM/yyyy hh:mm:ss tt")}"
End If
EnviarCorreoNotificacion("SIG - Productos enviados en la semana", msg)
@@ -1873,7 +1873,7 @@ Public Class E141 : Implements IHttpHandler
End While
End If
If DtPS.Rows.Count > 0 Then
- EnviarCorreoNotificacion("SIG - Actualización de productos", $"Se ejecuto la tarea de actualización de productos. Fecha y hora: {Now.ToString("dd/MM/yyyy hh:mm:ss tt")}")
+ EnviarCorreoNotificacion("SIG - Actualización de productos", $"Se ejecuto la tarea de actualización de productos. Fecha y hora: {ClsPaginas.NowADS().ToString("dd/MM/yyyy hh:mm:ss tt")}")
End If
End If
@@ -1957,7 +1957,7 @@ Public Class E141 : Implements IHttpHandler
Private Function ActualizarPrecios(Todos As Boolean) As Boolean
Dim Retorno As Boolean = False
'ENVIAR PRECIOS SOLO DE 8am a 7pm
- If Now.Hour < 7 OrElse Now.Hour > 21 Then
+ If ClsPaginas.NowADS().Hour < 7 OrElse ClsPaginas.NowADS().Hour > 21 Then
Retorno = True
Return Retorno
End If
@@ -2040,7 +2040,7 @@ Public Class E141 : Implements IHttpHandler
End If
If DtPS.Rows.Count > 0 Then
- EnviarCorreoNotificacion("SIG - Actualización de precios", $"Se ejecuto la tarea de actualización de precios. Fecha y hora: {Now.ToString("dd/MM/yyyy hh:mm:ss tt")}")
+ EnviarCorreoNotificacion("SIG - Actualización de precios", $"Se ejecuto la tarea de actualización de precios. Fecha y hora: {ClsPaginas.NowADS().ToString("dd/MM/yyyy hh:mm:ss tt")}")
End If
End If
@@ -2097,7 +2097,7 @@ Public Class E141 : Implements IHttpHandler
Dim CountPeticiones As Integer = 0, CountPeticionesExitosas As Integer = 0
'ENVIAR SOLO DE 8am a 8pm
- If Now.Hour < 7 OrElse Now.Hour > 21 Then
+ If ClsPaginas.NowADS().Hour < 7 OrElse ClsPaginas.NowADS().Hour > 21 Then
Retorno = True
Return Retorno
End If
@@ -2176,7 +2176,7 @@ Public Class E141 : Implements IHttpHandler
End If
If DtPS.Rows.Count > 0 Then
- EnviarCorreoNotificacion("SIG - Actualización de existencias", $"Se ejecuto la tarea de actualización de existencias. Fecha y hora: {Now.ToString("dd/MM/yyyy hh:mm:ss tt")}")
+ EnviarCorreoNotificacion("SIG - Actualización de existencias", $"Se ejecuto la tarea de actualización de existencias. Fecha y hora: {ClsPaginas.NowADS().ToString("dd/MM/yyyy hh:mm:ss tt")}")
End If
End If
diff --git a/Ashx/E72.ashx b/Ashx/E72.ashx
index 4068c10cd..c662e25d1 100644
--- a/Ashx/E72.ashx
+++ b/Ashx/E72.ashx
@@ -30,10 +30,10 @@ Public Class E72 : Implements IHttpHandler, IRequiresSessionState
Dim ObjInv As New ClsInventarios
Try
Dim DtPS As DataTable = CreaDT()
- ObjInv.GetRepEntradasSalidasXContrato(72, -1, MinFecha, Date.Now, -1, -1, 17, -1, -1, 3, -1, 1158)
+ ObjInv.GetRepEntradasSalidasXContrato(72, -1, MinFecha, ClsPaginas.NowADS(), -1, -1, 17, -1, -1, 3, -1, 1158)
Dim DtRepEntradasSalidasXContrato As DataTable = ObjInv.DtResultados.FiltraParametros("CvePS > 0")
- ObjInv.ApartadosRep(-1, 70437, 259, 72, -1, MinFecha, Date.Now)
+ ObjInv.ApartadosRep(-1, 70437, 259, 72, -1, MinFecha, ClsPaginas.NowADS())
Dim DtApartados As DataTable = ObjInv.DtResultados.FiltraParametros("CvePS > 0", "", {"CvePS", "Codigo", "Cantidad"})
Dim asd As Integer = DtApartados.Rows.Count
diff --git a/Ashx/MHRedes.ashx b/Ashx/MHRedes.ashx
index 3a4cb5172..49649d0f9 100644
--- a/Ashx/MHRedes.ashx
+++ b/Ashx/MHRedes.ashx
@@ -62,7 +62,7 @@ Public Class MobileHandler : Implements IHttpHandler
If User IsNot Nothing Then
- Dim Token As String = String.Format("{0}*{1}*{2}", Now.ToString, IP, User.CveUsuario)
+ Dim Token As String = String.Format("{0}*{1}*{2}", ClsPaginas.NowADS().ToString, IP, User.CveUsuario)
Token = Encripta(Token)
json.AppendFormat("{{ ""CveUsuario"" : ""{0}"", ""Nombre"" : ""{1}"", ""Token"" : ""{2}"" }} ", User.CveUsuario, User.Nombre, Token)
Else
diff --git a/Ashx/SIGFacturacion.ashx b/Ashx/SIGFacturacion.ashx
index 988214be8..70cfe6ec9 100644
--- a/Ashx/SIGFacturacion.ashx
+++ b/Ashx/SIGFacturacion.ashx
@@ -63,7 +63,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
'EnviarCorreoFactura(New Modelos.Factura(Usuario, 844966, 1, context.ModExtensiones.DirectorioBaseEmpresas), Usuario)
If String.IsNullOrEmpty(pFechaI) AndAlso String.IsNullOrEmpty(pFechaF) Then
- Dim FechaReferencia = Now
+ Dim FechaReferencia = ClsPaginas.NowADS()
If FechaReferencia.DayOfWeek = DayOfWeek.Sunday Then
Dim Sabado = FechaReferencia.AddDays(-1)
Dim DomingoAnterior = FechaReferencia.AddDays(-7)
@@ -290,11 +290,11 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
ObjFactura.TipoDocto = "Ing"
ObjFactura.RefDocto = ""
'ObjFactura.CveMesa = -1
- ObjFactura.Fecha = Now
+ ObjFactura.Fecha = ClsPaginas.NowADS()
ObjFactura.CvePrePoliza = -1
- ObjFactura.FechaPago = Now
+ ObjFactura.FechaPago = ClsPaginas.NowADS()
ObjFactura.MotivoDescuento = ""
- ObjFactura.FechaEjecucion = Now
+ ObjFactura.FechaEjecucion = ClsPaginas.NowADS()
ObjFactura.UsuarioCreo = UsuarioActual.Usuario
ObjFactura.CveCondicionEntrega = -1
ObjFactura.CondicionEntrega = ""
@@ -384,7 +384,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
'VALIDA PROMOCIONES Y EXISTENCIAS
Dim ObjVentas As New ClsVentas
- If ObjVentas.GetPromocionesPS(-1, Now, CveSubProyecto, ObjFactura.CveCliente, ObjFactura.CveVendedor, 1, UsuarioActual.CveEmpresa) Then
+ If ObjVentas.GetPromocionesPS(-1, ClsPaginas.NowADS(), CveSubProyecto, ObjFactura.CveCliente, ObjFactura.CveVendedor, 1, UsuarioActual.CveEmpresa) Then
ObjFactura.DtPromociones = ObjVentas.DtResultados.Copy()
End If
@@ -905,8 +905,8 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
Dim ArchivoW As StreamWriter
Dim strLineaTMP As String
- ' strLineaTMP = Chr(13) & Chr(10) & Day(Now) & "/" & Month(Now) & "/" & Year(Now) & " " & Hour(Now) & ":" & Minuto & ". " & Str & Chr(13) & Chr(10)
- strLineaTMP = String.Format("{0}{1}Log: {2}{3}:{4}", Chr(13), Chr(10), Str, DateTime.Now.ToShortDateString, DateTime.Now.ToShortTimeString)
+ ' strLineaTMP = Chr(13) & Chr(10) & Day(NowADS()) & "/" & Month(NowADS()) & "/" & Year(NowADS()) & " " & Hour(NowADS()) & ":" & Minuto & ". " & Str & Chr(13) & Chr(10)
+ strLineaTMP = String.Format("{0}{1}Log: {2}{3}:{4}", Chr(13), Chr(10), Str, ClsPaginas.NowADS().ToShortDateString, ClsPaginas.NowADS().ToShortTimeString)
Try
ArchivoW = New StreamWriter(String.Format("{0}\LogFacturacion.txt", ModExtensiones.DirectorioBaseEmpresas), True, System.Text.Encoding.UTF8)
Catch ex As UnauthorizedAccessException
diff --git a/Ashx/SIGFacturacionCiclica.ashx b/Ashx/SIGFacturacionCiclica.ashx
index 6f8b1e66e..8e5998a6a 100644
--- a/Ashx/SIGFacturacionCiclica.ashx
+++ b/Ashx/SIGFacturacionCiclica.ashx
@@ -94,7 +94,7 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt
Private Function IniciaFacturacionMasiva() As Boolean
Dim Retorno As Boolean = True
- Dim FechaRef As DateTime = DateTime.Now
+ Dim FechaRef As DateTime = ClsPaginas.NowADS()
Dim DTCicloComercial As DataTable = Nothing
Using ObjContratos As New ClsContratos
@@ -123,11 +123,11 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt
For Each Row As DataRow In DTCicloComercial.Rows
If Row("Observaciones").ToString().Contains("{DIA}") Then
- Row("Observaciones") = Row("Observaciones").ToString().Replace("{DIA}", DateTime.Now.Day.ToString())
+ Row("Observaciones") = Row("Observaciones").ToString().Replace("{DIA}", ClsPaginas.NowADS().Day.ToString())
End If
If Row("Observaciones").ToString().Contains("{MES}") Then
- Dim fecha As DateTime = DateTime.Now
+ Dim fecha As DateTime = ClsPaginas.NowADS()
Dim formatoFecha = Globalization.CultureInfo.CurrentCulture.DateTimeFormat
Dim nombreMes = formatoFecha.GetMonthName(fecha.Month).ToUpper()
@@ -135,11 +135,11 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt
End If
If Row("Observaciones").ToString().Contains("{AÑO}") Then
- Row("Observaciones") = Row("Observaciones").ToString().Replace("{AÑO}", DateTime.Now.Year.ToString())
+ Row("Observaciones") = Row("Observaciones").ToString().Replace("{AÑO}", ClsPaginas.NowADS().Year.ToString())
End If
If Row("Observaciones").ToString().Contains("{TC}") Then
- Row("Observaciones") = Row("Observaciones").ToString().Replace("{TC}", ClsPaginas.GlobalTipoCambio(Now).FormatoNumero)
+ Row("Observaciones") = Row("Observaciones").ToString().Replace("{TC}", ClsPaginas.GlobalTipoCambio(ClsPaginas.NowADS()).FormatoNumero)
End If
Dim Resp = EmitirImprimir(UsuarioActual, Row)
@@ -291,7 +291,7 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt
ObjFactura.CveMoneda = DR("CveMoneda").ToString.ToEntero
ObjFactura.Moneda = ClsPaginas.GlobalDTMonedas.FiltroPrimeroValor("Moneda", $"CveMoneda = {ObjFactura.CveMoneda} ")
ObjFactura.MonedaSAT = ClsPaginas.GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {DR("CveMoneda").ToString.ToEntero}")
- ObjFactura.TipoCambio = If(ObjFactura.CveMoneda = 1, 1, ClsPaginas.GlobalTipoCambio(Now)).ToDecimal
+ ObjFactura.TipoCambio = If(ObjFactura.CveMoneda = 1, 1, ClsPaginas.GlobalTipoCambio(ClsPaginas.NowADS())).ToDecimal
ObjFactura.TipoDocto = "Ing"
ObjFactura.RefDocto = ""
ObjFactura.Folio = -1
diff --git a/Ashx/SIGPolizaVirtual.ashx b/Ashx/SIGPolizaVirtual.ashx
index 21d2372c7..f0d8daa67 100644
--- a/Ashx/SIGPolizaVirtual.ashx
+++ b/Ashx/SIGPolizaVirtual.ashx
@@ -468,7 +468,7 @@ Public Class SIGPolizaVirtual : Implements IHttpHandler, IRequiresSessionState
obj.customer_car_year = ObjFactura.Fecha.Year
'DATOS DE VENTA
- obj.sale_date = Now
+ obj.sale_date = ClsPaginas.NowADS()
obj.sale_paidby = "01"
obj.sale_type = "01" 'PISO
obj.sale_type_service = "01" 'PARTICULAR
@@ -499,7 +499,7 @@ Public Class SIGPolizaVirtual : Implements IHttpHandler, IRequiresSessionState
obj.customer_name = "JOSE ENRIQUE"
obj.customer_last_name1 = "VIZCARA"
obj.customer_last_name2 = "RENDON"
- obj.customer_birthday = Now
+ obj.customer_birthday = ClsPaginas.NowADS()
obj.customer_phone = "8186545256"
obj.customer_email = "mail@mail.com"
obj.customer_gender = "02"
@@ -509,7 +509,7 @@ Public Class SIGPolizaVirtual : Implements IHttpHandler, IRequiresSessionState
obj.customer_car_year = 2015
'DATOS DE VENTA
- obj.sale_date = Now
+ obj.sale_date = ClsPaginas.NowADS()
obj.sale_paidby = "01"
obj.sale_type = "01"
obj.sale_type_service = "01"
@@ -527,7 +527,7 @@ Public Class SIGPolizaVirtual : Implements IHttpHandler, IRequiresSessionState
obj.used_bci = "25"
obj.used_month = 1
obj.used_year = 2015
- obj.used_sale_date = Now
+ obj.used_sale_date = ClsPaginas.NowADS()
EnviarPolizaVentaLTHWSD(context, obj)
End Sub
diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx
index 4c09b06b8..b7689a08c 100644
--- a/Ashx/SIGWeb.ashx
+++ b/Ashx/SIGWeb.ashx
@@ -58,13 +58,13 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
ActualizaPrePoliza(context)
Dim obj As New MResponseModel(Of Object)()
- obj.Result = DateTime.Now.ToString()
+ obj.Result = ClsPaginas.NowADS().ToString()
Dim retorno = JsonConvert.SerializeObject(obj).ToString()
context.Response.Write(retorno)
context.Response.StatusCode = 200
Case "RevisaConexion"
Dim obj As New MResponseModel(Of Object)()
- obj.Result = DateTime.Now.ToString()
+ obj.Result = ClsPaginas.NowADS().ToString()
Dim retorno = JsonConvert.SerializeObject(obj).ToString()
context.Response.Write(retorno)
context.Response.StatusCode = 200
@@ -282,7 +282,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
Dim tokenDescriptor = New Microsoft.IdentityModel.Tokens.SecurityTokenDescriptor With {
.Subject = New System.Security.Claims.ClaimsIdentity(New System.Security.Claims.Claim() {New System.Security.Claims.Claim("CvePlataforma", usuario.CvePlataforma.ToString()),
New System.Security.Claims.Claim("CveUsuario", usuario.CveUsuario.ToString()), New System.Security.Claims.Claim("CveEmpresa", usuario.CveEmpresa.ToString()),
- New System.Security.Claims.Claim("CveRol", usuario.CveRol.ToString()), New System.Security.Claims.Claim("Fecha", Date.Now.ToLongDateString())}),
+ New System.Security.Claims.Claim("CveRol", usuario.CveRol.ToString()), New System.Security.Claims.Claim("Fecha", ClsPaginas.NowADS().ToLongDateString())}),
.Expires = Date.UtcNow.AddHours(3),
.SigningCredentials = New Microsoft.IdentityModel.Tokens.SigningCredentials(
New Microsoft.IdentityModel.Tokens.SymmetricSecurityKey(Encoding.ASCII.GetBytes("*_AsistenciaDesarrolloSistemas-SIGAPI_*17-06-2020")),
@@ -488,7 +488,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
savepath = context.Server.MapPath(tempPath)
Dim filename As String
Dim tick As String
- tick = (DateTime.Now.Ticks + 1).ToString()
+ tick = (ClsPaginas.NowADS().Ticks + 1).ToString()
If Not Directory.Exists(savepath) Then
Directory.CreateDirectory(savepath)
End If
diff --git a/Ashx/TareasProgramadas.ashx b/Ashx/TareasProgramadas.ashx
index 3e01ccf00..3334c5d08 100644
--- a/Ashx/TareasProgramadas.ashx
+++ b/Ashx/TareasProgramadas.ashx
@@ -70,7 +70,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
Dim retorno As String = "no se encontro la variable"
Try
Dim metodo As String = ""
- Dim FechaActual As DateTime = Now
+ Dim FechaActual As DateTime = ClsPaginas.NowADS()
Dim FechaEnvio As DateTime = FechaActual
If context.Request("var") IsNot Nothing Then
@@ -387,7 +387,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
Dim Json As New JObject(
New JProperty("Empresa", UsuarioActual.Empresa.Empresa),
New JProperty("Usuario", UsuarioActual.Usuario),
- New JProperty("Fecha", DateTime.Now.ToString("dd/MM/yyy HH:mm:ss"))
+ New JProperty("Fecha", ClsPaginas.NowADS().ToString("dd/MM/yyy HH:mm:ss"))
)
Dim DTClientes As DataTable = Nothing
Dim EnviarPendientes As Boolean = False
@@ -414,7 +414,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
Dim Grupo As Integer = 5
Dim TipoCambio As Integer = 1
Dim TipoDocto As String = "Ing"
- Dim FechaCorte As DateTime = New DateTime(Now.Year, 12, 31)
+ Dim FechaCorte As DateTime = New DateTime(ClsPaginas.NowADS().Year, 12, 31)
If ObjMov.GetCxC(FechaI, FechaF, CveCliente, CveSubProyecto, CveVendedor, -1, -1, "-1", UsuarioActual.CveEmpresa, Grupo, -1, TipoCambio, TCEspecifico, TipoDocto, FechaVI, FechaVF, FechaCorte:=FechaCorte,
EstatusCliente:=1, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveCobranzaEstatus:=CveCobranzaEstatus, CveClienteClasificacion:=-1, TipoCliente:=-1, AplicaAnticiposPagados:=AplicaAnticipos) Then
@@ -677,7 +677,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
lista.Add(New CrystalParametro("TipoCuentas", "Con Saldo"))
lista.Add(New CrystalParametro("NombreCliente", Cliente.Nombre))
lista.Add(New CrystalParametro("FechaInicio", If(FI = "-1", "-", FI)))
- lista.Add(New CrystalParametro("FechaFin", If(FF = "-1", DateTime.Now.ToShortDateString, FF)))
+ lista.Add(New CrystalParametro("FechaFin", If(FF = "-1", ClsPaginas.NowADS().ToShortDateString, FF)))
lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre))
lista.Add(New CrystalParametro("DireccionCliente", String.Format("Calle {0} #{1} Colonia {2}", Cliente.Direccion, If(Cliente.NoExt = "", "S/N", Cliente.NoExt), Cliente.Colonia)))
lista.Add(New CrystalParametro("ClienteCP", Cliente.CP))
@@ -719,7 +719,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
lista.Add(New CrystalParametro("TipoCuentas", "Con Saldo"))
lista.Add(New CrystalParametro("NombreCliente", Cliente.Nombre))
lista.Add(New CrystalParametro("FechaInicio", If(FI = "-1", "-", FI)))
- lista.Add(New CrystalParametro("FechaFin", If(FF = "-1", DateTime.Now.ToShortDateString, FF)))
+ lista.Add(New CrystalParametro("FechaFin", If(FF = "-1", ClsPaginas.NowADS().ToShortDateString, FF)))
lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre))
lista.Add(New CrystalParametro("DireccionCliente", String.Format("Calle {0} #{1} Colonia {2}", Cliente.Direccion, If(Cliente.NoExt = "", "S/N", Cliente.NoExt), Cliente.Colonia)))
lista.Add(New CrystalParametro("ClienteCP", Cliente.CP))
@@ -870,8 +870,8 @@ Public Class TareasProgramadas : Implements IHttpHandler
Dim ArchivoW As StreamWriter
Dim strLineaTMP As String
- ' strLineaTMP = Chr(13) & Chr(10) & Day(Now) & "/" & Month(Now) & "/" & Year(Now) & " " & Hour(Now) & ":" & Minuto & ". " & Str & Chr(13) & Chr(10)
- strLineaTMP = String.Format("{0}{1}Log: {2}{3}:{4}", Chr(13), Chr(10), Str, DateTime.Now.ToShortDateString, DateTime.Now.ToShortTimeString)
+ ' strLineaTMP = Chr(13) & Chr(10) & Day(NowADS()) & "/" & Month(NowADS()) & "/" & Year(NowADS()) & " " & Hour(NowADS()) & ":" & Minuto & ". " & Str & Chr(13) & Chr(10)
+ strLineaTMP = String.Format("{0}{1}Log: {2}{3}:{4}", Chr(13), Chr(10), Str, ClsPaginas.NowADS().ToShortDateString, ClsPaginas.NowADS().ToShortTimeString)
Try
ArchivoW = New StreamWriter(String.Format("{0}\Log\LogEdoCuenta.txt", ModExtensiones.DirectorioBaseEmpresas), True, System.Text.Encoding.UTF8)
Catch ex As UnauthorizedAccessException
@@ -1066,7 +1066,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
If Not String.IsNullOrEmpty(Mail) Then
Try
- Dim Asunto As String = $"ScoreCard: {Now.ToString("dd/MM/yyyy")}"
+ Dim Asunto As String = $"ScoreCard: {ClsPaginas.NowADS().ToString("dd/MM/yyyy")}"
Dim Cuerpo As String = String.Empty
Dim ResultadoMail As Integer = 0
diff --git a/Bancos/CIF.aspx.vb b/Bancos/CIF.aspx.vb
index 2bcbfe125..1a47dfc6f 100644
--- a/Bancos/CIF.aspx.vb
+++ b/Bancos/CIF.aspx.vb
@@ -45,8 +45,8 @@ Partial Class Bancos_CIF
'For Each x As DataRow In GlobalDTContaPlantillasPolizasDetalle(DdlTipoMovimiento.SelectedValue.ToEntero).Rows
' TipoMovto = CBool(x("TipoMovto"))
- ' 'If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, TxtConcepto.Text, DdlTipoMovimiento.SelectedValue.ToEntero, TxtObservacion.Text, Now, 0, -1, CveIE) Then
- ' If ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovto, Importe, TxtConcepto.Text, 30, TxtObservacion.Text, Now, 0, -1, CveIE) Then
+ ' 'If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, TxtConcepto.Text, DdlTipoMovimiento.SelectedValue.ToEntero, TxtObservacion.Text, NowADS(), 0, -1, CveIE) Then
+ ' If ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovto, Importe, TxtConcepto.Text, 30, TxtObservacion.Text, NowADS(), 0, -1, CveIE) Then
' ''End If
' Else
' Alert("No se pudo insertar el Detalle de la Póliza", TipoMensaje.MsgAdvertencia)
diff --git a/Bancos/CargarConciliacionesBancarias.aspx.vb b/Bancos/CargarConciliacionesBancarias.aspx.vb
index e9b722155..3fd69f3ab 100644
--- a/Bancos/CargarConciliacionesBancarias.aspx.vb
+++ b/Bancos/CargarConciliacionesBancarias.aspx.vb
@@ -46,8 +46,8 @@ Partial Class Bancos_CargarConciliacionesBancarias
DdlCuentaModal.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlCuentaModal.DataBind()
- txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
- txtFechaF.Text = Now.ToShortDateString
+ txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString
+ txtFechaF.Text = NowADS().ToShortDateString
Modalidad = ""
End Sub
@@ -237,7 +237,7 @@ Partial Class Bancos_CargarConciliacionesBancarias
Protected Sub LnkAgregarMovimiento_Click(sender As Object, e As EventArgs)
Modalidad = "A"
TxtReferencia.Text = ""
- TxtFecha.Text = Now.ToShortDateString
+ TxtFecha.Text = NowADS().ToShortDateString
TxtImporte.Text = ""
DdlTipo.SelectedIndex = 0
DdlCuentaModal.SelectedIndex = 0
diff --git a/Bancos/ConciliacionesBancarias.aspx.vb b/Bancos/ConciliacionesBancarias.aspx.vb
index 584d740c0..a52804d80 100644
--- a/Bancos/ConciliacionesBancarias.aspx.vb
+++ b/Bancos/ConciliacionesBancarias.aspx.vb
@@ -78,8 +78,8 @@ Partial Class Bancos_ConciliacionesBancariasaspx
DdlCuenta.Items.Insert(0, New ListItem("Todos", "-1"))
DdlCuenta.DataBind()
- txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
- txtFechaF.Text = Now.ToShortDateString
+ txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString
+ txtFechaF.Text = NowADS().ToShortDateString
ModalidadConciliacion = ""
ModalidadDesconciliar = ""
@@ -398,7 +398,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx
Protected Sub LnkDesconciliarTodos_Click(sender As Object, e As EventArgs)
ModalidadDesconciliar = "DT"
- TxtFechaDesconciliado.Text = Now.ToShortDateString
+ TxtFechaDesconciliado.Text = NowADS().ToShortDateString
CveIEDesconciliar = 0
UpDesconciliar.Update()
RegistraScript("$('#DModalDesconciliar').modal()")
@@ -563,7 +563,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx
Dim params As New List(Of ReportParameter)()
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString()))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString()))
Dim FormatoFecha As DateTimeFormatInfo = CultureInfo.CurrentCulture.DateTimeFormat
Dim NombreMes As String = FormatoFecha.GetMonthName(txtFechaI.Text.ToDate.Month).ToUpper
params.Add(New ReportParameter("Encabezado", $"{DdlCuenta.SelectedItem.Text} {NombreMes} {txtFechaI.Text.ToDate.Year}"))
diff --git a/Bancos/Creditos.aspx.vb b/Bancos/Creditos.aspx.vb
index e7a644c22..57f66289e 100644
--- a/Bancos/Creditos.aspx.vb
+++ b/Bancos/Creditos.aspx.vb
@@ -160,7 +160,7 @@ Partial Class Bancos_Creditos
RegeneraTablaAmortizacion = False
'Fecha Default
- TxtFechaInicio.Text = DateTime.Now().ToString("dd/MM/yyyy")
+ TxtFechaInicio.Text = NowADS().ToString("dd/MM/yyyy")
'Carga Proveedores | Entidad Financiera
DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
@@ -688,7 +688,7 @@ Partial Class Bancos_Creditos
' If CveIE < 0 Then
' ErrorCredito = True
' End If
- ' 'If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtCSTotalCredito.Text.ToString.ToDouble, "Crédito", 50, "", Now, 0, -1, CveIE, ImporteMX:=TxtCSTotalCredito.Text.ToString.ToDouble) Then
+ ' 'If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtCSTotalCredito.Text.ToString.ToDouble, "Crédito", 50, "", NowADS(), 0, -1, CveIE, ImporteMX:=TxtCSTotalCredito.Text.ToString.ToDouble) Then
' ' ErrorCredito = True
' 'End If
' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtCSTotalCredito.Text.ToDecimal, TxtCSTotalCredito.Text.ToDecimal, 30, "Crédito", "", CveIE:=CveIE) Then
@@ -878,19 +878,19 @@ Partial Class Bancos_Creditos
'If Not ErrorCredito AndAlso CveIE > 0 Then
' If CvePrePoliza > 0 Then
- ' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtVehiculoAnticipo.Text.ToDouble, "Enganche", 53, "", Now, 0, -1, CveIE) Then
+ ' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtVehiculoAnticipo.Text.ToDouble, "Enganche", 53, "", NowADS(), 0, -1, CveIE) Then
' ErrorCredito = True
' End If
- ' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtComisionAnticipo.Text.ToDouble, "Comisión", 54, "", Now, 0, -1, CveIE) Then
+ ' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtComisionAnticipo.Text.ToDouble, "Comisión", 54, "", NowADS(), 0, -1, CveIE) Then
' ErrorCredito = True
' End If
- ' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtSeguroAnticipo.Text.ToDouble, "Seguro", 55, "", Now, 0, -1, CveIE) Then
+ ' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtSeguroAnticipo.Text.ToDouble, "Seguro", 55, "", NowADS(), 0, -1, CveIE) Then
' ErrorCredito = True
' End If
- ' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtFondoGarantia.Text.ToDouble, "Fondo en Garantía", 58, "", Now, 0, -1, CveIE) Then
+ ' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtFondoGarantia.Text.ToDouble, "Fondo en Garantía", 58, "", NowADS(), 0, -1, CveIE) Then
' ErrorCredito = True
' End If
- ' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TotalAnticipo, "Banco", 30, "", Now, 0, -1, CveIE) Then
+ ' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TotalAnticipo, "Banco", 30, "", NowADS(), 0, -1, CveIE) Then
' ErrorCredito = True
' End If
' Else
@@ -1573,7 +1573,7 @@ Partial Class Bancos_Creditos
Dim TipoMovimiento As Boolean = False
Dim Concepto As String = ""
Dim Referencia As String = $"Crédito: {TxtReferencia.Text}"
- Dim FechaMovimiento As Date = Now.ToDate
+ Dim FechaMovimiento As Date = NowADS().ToDate
Dim MsgError As String = ""
CvePrePoliza = ObjContabilidad.AddPrePolizas("Creditos/RegistrodeRegistro", 69, TxtCSTotalCredito.Text.ToDouble, TxtCSTotalCredito.Text.ToDouble, DdlCSTipoMoneda.SelectedValue.ToEntero, FechaMovimiento, $"Crédito: {TxtReferencia.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
@@ -1585,7 +1585,7 @@ Partial Class Bancos_Creditos
importeMovimiento = TxtVehiculoValor.Text.ToDecimal - TxtVehiculoAnticipo.Text.ToDecimal 'importe financiado
Concepto = $"Crédito: {TxtReferencia.Text}"
Dim Pago As New CompraPago
- Pago.Fecha = Now
+ Pago.Fecha = NowADS()
Pago.CveIE = CveIE
Dim ObjCompra As New ClsCompras
diff --git a/Bancos/CreditosPagoMultiple.aspx.vb b/Bancos/CreditosPagoMultiple.aspx.vb
index 815b6f688..7efd21e80 100644
--- a/Bancos/CreditosPagoMultiple.aspx.vb
+++ b/Bancos/CreditosPagoMultiple.aspx.vb
@@ -28,7 +28,7 @@ Partial Class Bancos_CreditosPagoMultiple
CveMoneda = 1
CargaTipoTransaccion()
CargaCuentas(DdlTipoTransaccion.SelectedValue.ToEntero)
- TxtFechaDocumento.Text = Now.ToShortDateString
+ TxtFechaDocumento.Text = NowADS().ToShortDateString
CargaProveedores() ' CveProveedor = 19994
TxtPagueseA.Enabled = False
diff --git a/Bancos/CuentasBancariasDetalle.aspx.vb b/Bancos/CuentasBancariasDetalle.aspx.vb
index 3d5b641a6..f6a001b2e 100644
--- a/Bancos/CuentasBancariasDetalle.aspx.vb
+++ b/Bancos/CuentasBancariasDetalle.aspx.vb
@@ -59,7 +59,7 @@ Partial Class Bancos_CuentasBancariasDetalle
InicializaConvenio()
Else
'Configuración de Modalidad Insert
- LblFecha.Text = Now.ToShortDateString()
+ LblFecha.Text = NowADS().ToShortDateString()
LtlTitulo.Text = "Agregar Nueva Cuenta Bancaria"
ViewState("CveCuenta") = -1
BtnEliminar.Visible = False
diff --git a/Bancos/DepositoTerminal.aspx.vb b/Bancos/DepositoTerminal.aspx.vb
index 555cba4c2..db7dfa7ec 100644
--- a/Bancos/DepositoTerminal.aspx.vb
+++ b/Bancos/DepositoTerminal.aspx.vb
@@ -20,7 +20,7 @@ Partial Class Bancos_DepositoTerminal
Private Sub Bancos_DepositoTerminal_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not IsPostBack Then
- TxtFecha.Text = Now.ToShortDateString
+ TxtFecha.Text = NowADS().ToShortDateString
CargaCuentas()
If UsuarioActual.CveEmpresa.Contiene(1, 4, 7, 11, 12, 72, 80, 119) Then
diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb
index e6f789a9d..b3150609e 100644
--- a/Bancos/DepositosCaja.aspx.vb
+++ b/Bancos/DepositosCaja.aspx.vb
@@ -18,9 +18,9 @@ Partial Class Bancos_DepositosCaja
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
FacturasCheckadas = 0
- TxtFecha.Text = Now.ToShortDateString
- txtFechaI.Text = Now.AddDays(-1).ToShortDateString
- txtFechaF.Text = Now.ToShortDateString
+ TxtFecha.Text = NowADS().ToShortDateString
+ txtFechaI.Text = NowADS().AddDays(-1).ToShortDateString
+ txtFechaF.Text = NowADS().ToShortDateString
TxtComision.Attributes.Add("onKeyUp", "txtSuma(this);")
TxtDescuento.Attributes.Add("onKeyUp", "txtSumaDescuento(this);")
TxtIVA.Attributes.Add("onKeyUp", "txtSumaIVA(this);")
diff --git a/Bancos/Devoluciones.aspx.cs b/Bancos/Devoluciones.aspx.cs
index 18763f816..3155be9f3 100644
--- a/Bancos/Devoluciones.aspx.cs
+++ b/Bancos/Devoluciones.aspx.cs
@@ -199,7 +199,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
ClsMovimientos ObjMov = new ClsMovimientos();
ClsClientes clsClientes = new ClsClientes();
- if (ObjMov.GetMovimientosIE(1, CveCliente, DdlCuenta.SelectedValue.ToEntero(), MinFecha, DateTime.Now, 1, -1, UsuarioActual.CveEmpresa))
+ if (ObjMov.GetMovimientosIE(1, CveCliente, DdlCuenta.SelectedValue.ToEntero(), MinFecha, NowADS(), 1, -1, UsuarioActual.CveEmpresa))
{
GvDevoluciones.DataSource = ObjMov.DtResultados.FiltraParametros("Saldo > 0 ");
GvDevoluciones.DataBind();
@@ -419,7 +419,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
int vecesAplicar = TxtVecesAplicar.Text.ToEntero();
decimal montoLimite = 0;
- string fechaInicioAplicacion = DateTime.Now.ToString("yyyy/MM/dd");
+ string fechaInicioAplicacion = NowADS().ToString("yyyy/MM/dd");
bool estatus = true;
int CveCuenta = -1;
int CveMovtoPermanente = ObjNom.AddMovtoPermanente(cveConcepto, cvePersonal, descripcion, tipoDescuento, valor, vecesAplicar, montoLimite, fechaInicioAplicacion, estatus, CveCuenta);
diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb
index 7a4eb6aee..b356bd7b9 100644
--- a/Bancos/FluctuacionCambiaria.aspx.vb
+++ b/Bancos/FluctuacionCambiaria.aspx.vb
@@ -47,9 +47,9 @@ Partial Class Bancos_FluctuacionCambiaria
#Region "CARGAS"
Private Sub CargaFechas()
'Año actual
- DdlAnio.Items.Add(New ListItem(Now.Year.ToString(), Now.Year.ToString()))
+ DdlAnio.Items.Add(New ListItem(NowADS().Year.ToString(), NowADS().Year.ToString()))
'Año Anterior
- DdlAnio.Items.Add(New ListItem(Now.AddYears(-1).Year.ToString(), Now.AddYears(-1).Year.ToString()))
+ DdlAnio.Items.Add(New ListItem(NowADS().AddYears(-1).Year.ToString(), NowADS().AddYears(-1).Year.ToString()))
For i As Integer = 1 To 12
Dim fecha As DateTime = New DateTime(DdlAnio.SelectedValue.ToEntero(), i, 1)
@@ -59,7 +59,7 @@ Partial Class Bancos_FluctuacionCambiaria
DdlMes.Items.Add(New ListItem(mesStr, i.ToString()))
Next
- Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(Now)
+ Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(NowADS())
If UltimaFluctuacion IsNot Nothing Then
DdlMes.SelectedValueExist(UltimaFluctuacion.FechaFluctuacion.Month)
DdlMes.SelectedValueExist(UltimaFluctuacion.FechaFluctuacion.Year)
@@ -98,17 +98,17 @@ Partial Class Bancos_FluctuacionCambiaria
Private Sub CargaUltimaFluctuacion()
- Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(Now)
+ Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(NowADS())
If UltimaFluctuacion IsNot Nothing Then
LtlUltimaFluctuacion.Text = String.Format("Ultima Fluctuación : {0}", UltimaFluctuacion.FechaFluctuacion.ToShortDateString)
'si la ultima fluctuacion es mayor o igual al fin de mes anterior, entonces pon la fecha actual
- If UltimaFluctuacion.FechaFluctuacion >= Now.AddMonths(-1).LastDayOfMonth Then
- DdlMes.SelectedValueExist(Now.Month)
- DdlAnio.SelectedValueExist(Now.Year)
+ If UltimaFluctuacion.FechaFluctuacion >= NowADS().AddMonths(-1).LastDayOfMonth Then
+ DdlMes.SelectedValueExist(NowADS().Month)
+ DdlAnio.SelectedValueExist(NowADS().Year)
Else
- DdlMes.SelectedValueExist(Now.AddMonths(-1).Month)
- DdlAnio.SelectedValueExist(Now.AddMonths(-1).Year)
+ DdlMes.SelectedValueExist(NowADS().AddMonths(-1).Month)
+ DdlAnio.SelectedValueExist(NowADS().AddMonths(-1).Year)
End If
End If
@@ -1238,7 +1238,7 @@ Partial Class Bancos_FluctuacionCambiaria
StrFiltro.AppendFormat("TC: {0}", LtTipoCambioActual.Text)
If (T.ActiveTabIndex = 0) Then
- 'GvProveedores.ExportToExcelGembox("FluctuacionCambiariaProveedores_" & Now.ToShortDateString)
+ 'GvProveedores.ExportToExcelGembox("FluctuacionCambiariaProveedores_" & NowADS().ToShortDateString)
GvProveedores.ExportToExcelGembox("Fluctuacion." + T.ActiveTab.HeaderText + "." + DdlMes.SelectedItem.ToString + "." + DdlAnio.SelectedValue, UsuarioActual, "Fluctuación Cambiaria - Proveedores", DatosFiltros:=StrFiltro.ToString())
ElseIf (T.ActiveTabIndex = 1) Then
GvProveedoresAnt.ExportToExcelGembox("Fluctuacion." + T.ActiveTab.HeaderText + "." + DdlMes.SelectedItem.ToString + "." + DdlAnio.SelectedValue, UsuarioActual, "Fluctuación Cambiaria - Proveedores Anticipos", DatosFiltros:=StrFiltro.ToString())
diff --git a/Bancos/FlujoDiario.aspx.vb b/Bancos/FlujoDiario.aspx.vb
index 0b80f2f92..23aa78957 100644
--- a/Bancos/FlujoDiario.aspx.vb
+++ b/Bancos/FlujoDiario.aspx.vb
@@ -44,7 +44,7 @@ Partial Class Bancos_FlujoDiario
Private Sub Bancos_FlujoDiario_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not IsPostBack Then
- TxtFecha.Text = Now.ToString
+ TxtFecha.Text = NowADS().ToString
End If
End Sub
@@ -55,7 +55,7 @@ Partial Class Bancos_FlujoDiario
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
- params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Fecha", TxtFecha.Text.ToDate.ToLongDateString))
If Imagen.Exists Then
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index cb3668154..8d394b1fc 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -582,7 +582,7 @@ Partial Class Bancos_IE
Folio = ""
DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
TxtImporte.Attributes.Add("onblur", "upIE(this);FncImporteCuenta(this);")
- 'Calendario.StartDate = Now.AddMonths(-2).FirstDayOfMonth()
+ 'Calendario.StartDate = NowADS().AddMonths(-2).FirstDayOfMonth()
ViewState("IDPoliza") = "-1"
CveIEDeposito = -1
CveIEDeposito2 = -1
@@ -591,8 +591,8 @@ Partial Class Bancos_IE
CvePrePoliza = -1
CveSolicitudViatico = -1
ComplementoSerieFolio = ""
- 'TxtFechaDevuelto.Text = Now.ToShortDateString
- TxtFechaCancelacion.Text = Now.ToShortDateString
+ 'TxtFechaDevuelto.Text = NowADS().ToShortDateString
+ TxtFechaCancelacion.Text = NowADS().ToShortDateString
CveCompraDeCDin = -1
'If UsuarioActual.CveEmpresa.Contiene(66) Then trNotificar.Visible = True
@@ -736,7 +736,7 @@ Partial Class Bancos_IE
'Configuración de Modalidad Insert
ImgAddObs.Visible = False
CveIE = -1
- TxtFechaDocumento.Text = Now.ToShortDateString
+ TxtFechaDocumento.Text = NowADS().ToShortDateString
ImgUpdateCuentaDeposito.Visible = False
TxtFechaDocumento.Attributes.Add("onchange", "CambiaTC(this);")
End If
@@ -2102,7 +2102,7 @@ Partial Class Bancos_IE
If CveCliente > 0 AndAlso Not DivIvaIxC.Visible AndAlso TxtIvaIxC.Text.ToDouble = 0 Then
'RMF- CASO DONDE HAY UNA DEVOLUCION Y TENGO QUE AFECTAR LAS FACTURAS QUE SE HABIAN MARCADO COMO PAGADAS TENGO QUE REGRESARLAS A PENDIENTES
Dim Mov As New ClsMovimientos
- If Mov.GetMovimientosIE(2, DdlIEDevolucion.SelectedValue.ToEntero, -1, Now, Now, 1, 0, UsuarioActual.CveEmpresa) Then
+ If Mov.GetMovimientosIE(2, DdlIEDevolucion.SelectedValue.ToEntero, -1, NowADS(), NowADS(), 1, 0, UsuarioActual.CveEmpresa) Then
Dim DtIE As DataTable = Mov.DtResultados
For Each dr As DataRow In DtIE.Rows
@@ -2148,7 +2148,7 @@ Partial Class Bancos_IE
Dim ConceptoContable As Integer
Dim TipoMovimiento As Boolean
Dim importeMovimiento As Decimal
- Dim FechaMovimiento As Date = Now
+ Dim FechaMovimiento As Date = NowADS()
Dim Concepto As String = ""
Dim Referencia As String = PagueseA
@@ -2715,7 +2715,7 @@ Partial Class Bancos_IE
Dim ConceptoContable As Integer
Dim TipoMovimiento As Boolean
Dim importeMovimiento As Decimal = TxtImporte.Text.ToDecimal
- Dim FechaMovimiento As Date = Now
+ Dim FechaMovimiento As Date = NowADS()
Dim Concepto As String = ""
Dim Referencia As String = PagueseA
Dim CveCredito As Integer
@@ -3541,7 +3541,7 @@ Partial Class Bancos_IE
Dim ObjCancelacion As New Timbrado
If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then
- If Banc.UpdateComplementoPagoCancelado(CveComplementoPagoCancelar, 2, CvePACCancelacion, UsuarioActual.CveEmpresa, Date.Now, "", 1) Then
+ If Banc.UpdateComplementoPagoCancelado(CveComplementoPagoCancelar, 2, CvePACCancelacion, UsuarioActual.CveEmpresa, NowADS(), "", 1) Then
CargaComplementosPago()
RegistraScript("$('#ModalCancelarComplemetno').modal('hide');")
ErrorCancelarComplemento = False
@@ -4031,7 +4031,7 @@ Partial Class Bancos_IE
If HdnCveCliente.Value.ToEntero > 0 Then
trIEDevolucion.Visible = True
- If ObjMov.GetMovimientosIE(1, HdnCveCliente.Value.ToEntero, DdlCuenta.SelectedValue.ToEntero, Now.AddMonths(-24), Now, CveMoneda, -1, UsuarioActual.CveEmpresa) Then
+ If ObjMov.GetMovimientosIE(1, HdnCveCliente.Value.ToEntero, DdlCuenta.SelectedValue.ToEntero, NowADS().AddMonths(-24), NowADS(), CveMoneda, -1, UsuarioActual.CveEmpresa) Then
DtIEDevolucion = ObjMov.DtResultados.FiltraParametros("Saldo > 0 ")
Else
Alert("Ocurrió un error al cargar los Egresos del Proveedor seleccionado. Por favor vuelva a intetar.", TipoMensaje.MsgError)
@@ -4867,7 +4867,7 @@ Partial Class Bancos_IE
Protected Sub LnkCancelar_Click(sender As Object, e As EventArgs)
If ChkConciliado.Checked AndAlso UsuarioActual.CveEmpresa = 119 Then
- 'TxtFechaDesconciliado.Text = Now.ToShortDateString
+ 'TxtFechaDesconciliado.Text = NowADS().ToShortDateString
'UpDesconciliar.Update()
'RegistraScript("$('#DModalDesconciliar').modal()")
Dim fechaCancelacion As String = TxtFechaAplicado.Text.ToDate.AddMonths(1).FirstDayOfMonth.ToShortDateString
@@ -4916,7 +4916,7 @@ Partial Class Bancos_IE
Dim Banco As New ClsBancos
- If Banco.GetComplementoPagosRep(-1, Now.AddYears(-2), Now, CveIE, -1, 1, UsuarioActual.CveEmpresa, -1) Then
+ If Banco.GetComplementoPagosRep(-1, NowADS().AddYears(-2), NowADS(), CveIE, -1, 1, UsuarioActual.CveEmpresa, -1) Then
If Not Banco.DtResultados.Rows.Count > 0 Then
Banco.Dispose()
Alert("No se generaron complementos de pago porque no hay facturas con método de pago PPD", TipoMensaje.MsgAdvertencia)
@@ -5381,7 +5381,7 @@ Partial Class Bancos_IE
If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then
- If ObjBanco.UpdateComplementoPagoCancelado(CveComplementoPagoCancelar, 2, CvePACCancelacion, UsuarioActual.CveEmpresa, Date.Now, "", 1) Then
+ If ObjBanco.UpdateComplementoPagoCancelado(CveComplementoPagoCancelar, 2, CvePACCancelacion, UsuarioActual.CveEmpresa, NowADS(), "", 1) Then
CargaComplementosPago()
Alert("El complemento se cancelo correctamente.")
End If
@@ -5612,8 +5612,8 @@ Partial Class Bancos_IE
UpEliminarCotizacion.Update()
End Sub
Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
- RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
- Calendario.EndDate = DateTime.Now
+ RVTxtFechaDocumento.MaximumValue = NowADS().ToShortDateString
+ Calendario.EndDate = NowADS()
End Sub
Private Sub CargaOCRelacionadas()
diff --git a/Bancos/IE2.aspx.vb b/Bancos/IE2.aspx.vb
index c8a8bba77..caf5f55d1 100644
--- a/Bancos/IE2.aspx.vb
+++ b/Bancos/IE2.aspx.vb
@@ -94,7 +94,7 @@ Partial Class Bancos_IE
DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
TxtImporte.Attributes.Add("onblur", "upIE(this);")
- Calendario.StartDate = Now.AddMonths(-1)
+ Calendario.StartDate = NowADS().AddMonths(-1)
' rbPagueseA.Attributes.Add("onchange", "upPagueseA(this);")
'If UsuarioActual.CveRol = 1 Then
'rbPagueseAFuncionarioEmpleado.Visible = True : lblPagueseAFuncionarioEmpleado.Visible = True : rbPagueseAProveedor.Visible = True : lblPagueseAProveedor.Visible = True
@@ -210,7 +210,7 @@ Partial Class Bancos_IE
'Configuración de Modalidad Insert
ImgAddObs.Visible = False
CveIE = -1
- TxtFechaDocumento.Text = Now.ToShortDateString
+ TxtFechaDocumento.Text = NowADS().ToShortDateString
End If
@@ -889,14 +889,14 @@ Partial Class Bancos_IE
If Not Opcion.Contiene("DEV", "ANTC") AndAlso MsgError = "" Then
'MOVIMIENTOS EGRESOS
- If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDouble, TxtObservaciones.Text, CveConceptoContable, TxtObservaciones.Text, Now, 0, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle) Then
+ If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDouble, TxtObservaciones.Text, CveConceptoContable, TxtObservaciones.Text, NowADS(), 0, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle) Then
Dim IVA As Double = 0 ' TxtImporte.Text.ToDouble * HdnProvPorIVA.Value.ToDouble
- If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDouble - IVA - CIF, TxtObservaciones.Text, CveConceptoCompra, TxtObservaciones.Text, Now, 0, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle) Then
- If IVA > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, IVA, TxtObservaciones.Text, 19, TxtObservaciones.Text, Now, 0, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle) Then
+ If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDouble - IVA - CIF, TxtObservaciones.Text, CveConceptoCompra, TxtObservaciones.Text, NowADS(), 0, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle) Then
+ If IVA > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, IVA, TxtObservaciones.Text, 19, TxtObservaciones.Text, NowADS(), 0, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle) Then
MsgError = "Detalle"
End If
'intereses pagados
- If CIF > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, CIF, TxtObservaciones.Text, 46, TxtObservaciones.Text, Now, 0, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle) Then
+ If CIF > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, CIF, TxtObservaciones.Text, 46, TxtObservaciones.Text, NowADS(), 0, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle) Then
MsgError = "Detalle"
End If
Else
@@ -910,8 +910,8 @@ Partial Class Bancos_IE
'MOVIMIENTOS INGRESOS - DEVOLUCIONES
ElseIf Opcion.Contiene("DEV", "ANTC") AndAlso MsgError = "" Then
- 'If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDouble, TxtObservaciones.Text, CveConceptoContable, TxtObservaciones.Text, Now, 0, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCliente:=CveCliente, CveCreditoDetalle:=CveCreditoDetalle) Then
- ' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDouble, TxtObservaciones.Text, CveConceptoCompra, TxtObservaciones.Text, Now, 0, -1, If(CveProveedor > 0, DdlIEDevolucion.SelectedValue.ToEntero, CveIE), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCliente:=CveCliente, CveCreditoDetalle:=CveCreditoDetalle) Then
+ 'If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDouble, TxtObservaciones.Text, CveConceptoContable, TxtObservaciones.Text, NowADS(), 0, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCliente:=CveCliente, CveCreditoDetalle:=CveCreditoDetalle) Then
+ ' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDouble, TxtObservaciones.Text, CveConceptoCompra, TxtObservaciones.Text, NowADS(), 0, -1, If(CveProveedor > 0, DdlIEDevolucion.SelectedValue.ToEntero, CveIE), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCliente:=CveCliente, CveCreditoDetalle:=CveCreditoDetalle) Then
' MsgError = "no se pudo insertar el detalle de la póliza 2"
' End If
'Else
@@ -922,7 +922,7 @@ Partial Class Bancos_IE
Dim tipoCambio As Decimal
If DdlMoneda.SelectedValue.ToString.ToEntero = 2 Then
- tipoCambio = GlobalTipoCambio(Now).ToString.ToDecimal
+ tipoCambio = GlobalTipoCambio(NowADS()).ToString.ToDecimal
Else
tipoCambio = 1
End If
@@ -958,8 +958,8 @@ Partial Class Bancos_IE
Else 'EMpresa Prueba
- If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDouble, TxtObservaciones.Text, CveConceptoContable, TxtObservaciones.Text, Now, 0, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle) Then
- If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDouble, TxtObservaciones.Text, CveConceptoCompra, TxtObservaciones.Text, Now, 0, -1, If(CveProveedor > 0, DdlIEDevolucion.SelectedValue.ToEntero, CveIE), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle) Then
+ If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDouble, TxtObservaciones.Text, CveConceptoContable, TxtObservaciones.Text, NowADS(), 0, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle) Then
+ If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDouble, TxtObservaciones.Text, CveConceptoCompra, TxtObservaciones.Text, NowADS(), 0, -1, If(CveProveedor > 0, DdlIEDevolucion.SelectedValue.ToEntero, CveIE), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle) Then
MsgError = "no se pudo insertar el detalle de la póliza 2"
End If
Else
diff --git a/Bancos/MovimientosBancarios.aspx.vb b/Bancos/MovimientosBancarios.aspx.vb
index ff1c36c07..e12ee58a9 100644
--- a/Bancos/MovimientosBancarios.aspx.vb
+++ b/Bancos/MovimientosBancarios.aspx.vb
@@ -178,9 +178,9 @@ Partial Class Bancos_MovimientosBancarios
'''''' LLENADO HEADER
Dim convenio As String = "000775770"
'Campos #1-4 del Header
- HeaderTexto = String.Format("H{0}{1}GRUPO01 ", convenio.PadLeft(9, PadCeros), DateTime.Now().ToString("yyyy-MM-dd"))
+ HeaderTexto = String.Format("H{0}{1}GRUPO01 ", convenio.PadLeft(9, PadCeros), NowADS().ToString("yyyy-MM-dd"))
'Campo #5 del Header
- HeaderTexto &= String.Format("{0}{1}", DTProveedorActual(0)("CveProveedor"), DateTime.Now().ToString("yyyyMMdd")).PadRight(20)
+ HeaderTexto &= String.Format("{0}{1}", DTProveedorActual(0)("CveProveedor"), NowADS().ToString("yyyyMMdd")).PadRight(20)
'Campos #6-8 del Header
HeaderTexto &= String.Format("00").PadRight(586)
Dim HeaderLength = HeaderTexto.Length
@@ -209,7 +209,7 @@ Partial Class Bancos_MovimientosBancarios
'Llenamos en blanco datos de otros bancos
'Campos 8-17 del detalle --- 64 de otros bancos y 45 para FILLER --- Fecha de Alta
- DetalleTexto &= String.Format("{0}{1}", Vacio.PadLeft(109), DateTime.Now().ToString("yyyy-MM-dd"))
+ DetalleTexto &= String.Format("{0}{1}", Vacio.PadLeft(109), NowADS().ToString("yyyy-MM-dd"))
'Otros Bancos NACIONAL!!
Else
@@ -218,7 +218,7 @@ Partial Class Bancos_MovimientosBancarios
'Llenamos datos de otros bancos
'Campos 8- 17 del detalle --- 44 de otros bancos --- 20 de internacional --- 45 Filler -- Fecha de Alta
- DetalleTexto &= String.Format("MXP40{0}0014{1}{2}{3}", RowBanco("CLABE").ToString.PadLeft(35, PadCeros), Vacio.PadRight(20), Vacio.PadRight(45), DateTime.Now().ToString("yyyy-MM-dd"))
+ DetalleTexto &= String.Format("MXP40{0}0014{1}{2}{3}", RowBanco("CLABE").ToString.PadLeft(35, PadCeros), Vacio.PadRight(20), Vacio.PadRight(45), NowADS().ToString("yyyy-MM-dd"))
End If
'Llenamos datos de Tipo de Persona - Fisica o Moral
@@ -282,7 +282,7 @@ Partial Class Bancos_MovimientosBancarios
' 'Campos 19-21 --- 60 Tipo Persona Moral y 10 FILLER
' DetalleTexto &= Vacio.PadLeft(70)
' 'Campos 22-26 --- Tipo Persona Fisica y #26 RFC
- ' DetalleTexto &= String.Format("{0}{1}{2}{3}{4}", TxtNombrePF.Text.ToUpper.PadRight(20), TxtApellidoPPF.Text.ToUpper.PadRight(20), TxtApellidoMPF.Text.ToUpper.PadRight(20), DateTime.Now().ToString("yyyy-MM-dd"), TxtRFC.Text.ToUpper.PadRight(14))
+ ' DetalleTexto &= String.Format("{0}{1}{2}{3}{4}", TxtNombrePF.Text.ToUpper.PadRight(20), TxtApellidoPPF.Text.ToUpper.PadRight(20), TxtApellidoMPF.Text.ToUpper.PadRight(20), NowADS().ToString("yyyy-MM-dd"), TxtRFC.Text.ToUpper.PadRight(14))
' End If
'End Sub
@@ -337,9 +337,9 @@ Partial Class Bancos_MovimientosBancarios
'''''' LLENADO HEADER
'Campos #1-4 del Header
- HeaderTexto = String.Format("H{0}{1}01", convenio.PadLeft(9, PadCeros), DateTime.Now().ToString("yyyy-MM-dd"))
+ HeaderTexto = String.Format("H{0}{1}01", convenio.PadLeft(9, PadCeros), NowADS().ToString("yyyy-MM-dd"))
'Campo #5 del Header
- HeaderTexto &= String.Format("P{0}{1}", DateTime.Now().ToString("s").Replace("-", "").Replace(":", ""), Vacio.PadRight(14))
+ HeaderTexto &= String.Format("P{0}{1}", NowADS().ToString("s").Replace("-", "").Replace(":", ""), Vacio.PadRight(14))
'Campos #6-11 del Header
HeaderTexto &= String.Format("00").PadRight(1314)
@@ -377,7 +377,7 @@ Partial Class Bancos_MovimientosBancarios
End If
'Campos 24-50 del Detalle 0 1 2 3 4 5 6 7 8 9
- DetalleTexto &= String.Format("{0}{1}FA{2}{3}01{4}N{5}{6}{7}{7}{7}{6}N {7}700{8}{9}{7}", Divisa, Vacio.PadLeft(20), Importe.FormatoNumero.Replace(",", "").Replace(".", "").PadLeft(15, PadCeros), Vacio.PadRight(15, PadCeros), Vacio.PadRight(50), Vacio.PadRight(12, PadCeros), DateTime.Now.ToString("yyyy-MM-dd"), "0001-01-01", Datos.PadRight(700), Vacio.PadRight(52))
+ DetalleTexto &= String.Format("{0}{1}FA{2}{3}01{4}N{5}{6}{7}{7}{7}{6}N {7}700{8}{9}{7}", Divisa, Vacio.PadLeft(20), Importe.FormatoNumero.Replace(",", "").Replace(".", "").PadLeft(15, PadCeros), Vacio.PadRight(15, PadCeros), Vacio.PadRight(50), Vacio.PadRight(12, PadCeros), NowADS().ToString("yyyy-MM-dd"), "0001-01-01", Datos.PadRight(700), Vacio.PadRight(52))
TotalAcumulado += Importe.ToEntero
End Sub
#End Region
diff --git a/Bancos/NotificacionCheques.aspx.vb b/Bancos/NotificacionCheques.aspx.vb
index 76f991f84..4273f09c5 100644
--- a/Bancos/NotificacionCheques.aspx.vb
+++ b/Bancos/NotificacionCheques.aspx.vb
@@ -31,8 +31,8 @@ Partial Class Bancos_NotificacionCheques
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
- txtFechaI.Text = Now.AddMonths(-1).FirstDayOfMonth.ToShortDateString
- txtFechaF.Text = Now.ToShortDateString
+ txtFechaI.Text = NowADS().AddMonths(-1).FirstDayOfMonth.ToShortDateString
+ txtFechaF.Text = NowADS().ToShortDateString
CargaTipoTransaccion("Egs")
CargaPorNotificar()
CargaPorEntregar()
@@ -470,7 +470,7 @@ Partial Class Bancos_NotificacionCheques
Dim objIE As New ClsBancos
- If objIE.UpdateBancos_IENotificaciones(2, Now.ToString("dd/MM/yyyy"), gvr.FCTextBox("txtObservacionEntrega").Text, gvr.DataKey("CveIE").ToEntero) Then
+ If objIE.UpdateBancos_IENotificaciones(2, NowADS().ToString("dd/MM/yyyy"), gvr.FCTextBox("txtObservacionEntrega").Text, gvr.DataKey("CveIE").ToEntero) Then
Alert("Cheque marcado como Entregado")
End If
diff --git a/Bancos/PagoAcreedor.aspx.cs b/Bancos/PagoAcreedor.aspx.cs
index b8b2856c6..42b3d4f01 100644
--- a/Bancos/PagoAcreedor.aspx.cs
+++ b/Bancos/PagoAcreedor.aspx.cs
@@ -44,10 +44,10 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
CargaProveedores();
CargaReporte();
CargaSubproyectos();
- TxtFechaDocumento.Text = DateTime.Now.ToShortDateString();
- TxtFechaPrestamo.Text = DateTime.Now.ToShortDateString();
- txtFechaI.Text = DateTime.Now.FirstDayOfMonth().ToShortDateString();
- txtFechaF.Text = DateTime.Now.ToShortDateString();
+ TxtFechaDocumento.Text = NowADS().ToShortDateString();
+ TxtFechaPrestamo.Text = NowADS().ToShortDateString();
+ txtFechaI.Text = NowADS().FirstDayOfMonth().ToShortDateString();
+ txtFechaF.Text = NowADS().ToShortDateString();
TxtImporte.Attributes.Add("disabled", "disabled");
}
diff --git a/Bancos/PagoDeudor.aspx.cs b/Bancos/PagoDeudor.aspx.cs
index 0330a0c2e..6bd3aeda1 100644
--- a/Bancos/PagoDeudor.aspx.cs
+++ b/Bancos/PagoDeudor.aspx.cs
@@ -47,10 +47,10 @@ public partial class Bancos_PagoDeudor : ClsPaginas
CveMonedaPrestamo = 1;
UsaComplementaria = false;
if (UsuarioActual.CveEmpresa.Contiene(1, 119)) { UsaComplementaria = true; }
- TxtFechaDocumento.Text = DateTime.Now.ToShortDateString();
- TxtFechaPrestamo.Text = DateTime.Now.ToShortDateString();
- txtFechaI.Text = DateTime.Now.FirstDayOfMonth().ToShortDateString();
- txtFechaF.Text = DateTime.Now.ToShortDateString();
+ TxtFechaDocumento.Text = NowADS().ToShortDateString();
+ TxtFechaPrestamo.Text = NowADS().ToShortDateString();
+ txtFechaI.Text = NowADS().FirstDayOfMonth().ToShortDateString();
+ txtFechaF.Text = NowADS().ToShortDateString();
TxtTCDolaresPrestamo.Text = get_GlobalTipoCambio(TxtFechaPrestamo.Text.ToDateTime()).FormatoNumero(4);
TxtTCDolaresPago.Text = get_GlobalTipoCambio(TxtFechaDocumento.Text.ToDateTime()).FormatoNumero(4);
TxtImporte.Attributes.Add("disabled", "disabled");
diff --git a/Bancos/PagoElectronico.aspx.vb b/Bancos/PagoElectronico.aspx.vb
index 1ee047ded..707da915e 100644
--- a/Bancos/PagoElectronico.aspx.vb
+++ b/Bancos/PagoElectronico.aspx.vb
@@ -174,8 +174,8 @@ Partial Class Bancos_PagoElectronico
CveCuenta = -1
TipoMasiva = 1
- txtFechaI.Text = Date.Now.ToShortDateString
- txtFechaF.Text = Date.Now.ToShortDateString
+ txtFechaI.Text = NowADS().ToShortDateString
+ txtFechaF.Text = NowADS().ToShortDateString
CargaCuentas()
CargaProveedores()
@@ -309,7 +309,7 @@ Partial Class Bancos_PagoElectronico
.Clear()
.Buffer = True
.ContentType = "textplain"
- .AddHeader("Content-Disposition", String.Format("attachment;filename={0}{1}.txt", NombreArchivo, Date.Now.ToString("ddMMyyyy")))
+ .AddHeader("Content-Disposition", String.Format("attachment;filename={0}{1}.txt", NombreArchivo, NowADS().ToString("ddMMyyyy")))
.Charset = "UTF-8"
.ContentEncoding = Encoding.Default
.Write(TextoCompleto)
@@ -337,7 +337,7 @@ Partial Class Bancos_PagoElectronico
DirectoryExistsCreate(String.Format("{0}Layout", UsuarioActual.Empresa.Ruta))
- NombreArchivo = String.Format("{2}{1}{0}.txt", UsuarioActual.CveUsuario, Date.Now.ToString("yyyyMMdd-HH-mm"), If(Tipo = 1, "LAYOUTPAGO", "LAYOUTALTA"))
+ NombreArchivo = String.Format("{2}{1}{0}.txt", UsuarioActual.CveUsuario, NowADS().ToString("yyyyMMdd-HH-mm"), If(Tipo = 1, "LAYOUTPAGO", "LAYOUTALTA"))
Dim path As String = String.Format("{0}Layout\{1}", UsuarioActual.Empresa.Ruta, NombreArchivo)
Dim fs As FileStream = File.Create(path)
@@ -412,7 +412,7 @@ Partial Class Bancos_PagoElectronico
'Si la fecha de generacion del archivo es diferente de hoy activamos el boton REGENERAR
- 'If e.Row.DBCampo("Fecha").ToDate.ToShortDateString <> Date.Now.ToShortDateString Then
+ 'If e.Row.DBCampo("Fecha").ToDate.ToShortDateString <> NowADS().ToShortDateString Then
' e.Row.FCLinkButton("LBRegenerar").Visible = True
'End If
If DTEnviadas.MAX("FueConciliado", String.Format("CveLayoutEnvio = {0}", e.Row.DBCampo("CveLayoutEnvio"))).ToEntero > 0 Then
@@ -673,7 +673,7 @@ Partial Class Bancos_PagoElectronico
'Llenamos en blanco datos de otros bancos
'Campos 8-17 del detalle --- 64 de otros bancos y 45 para FILLER --- Fecha de Alta
- DetalleTexto &= String.Format("{0}{1}", Vacio.PadLeft(109), DateTime.Now().ToString("yyyy-MM-dd"))
+ DetalleTexto &= String.Format("{0}{1}", Vacio.PadLeft(109), NowADS().ToString("yyyy-MM-dd"))
'Otros Bancos NACIONAL!!
@@ -687,7 +687,7 @@ Partial Class Bancos_PagoElectronico
'Llenamos datos de otros bancos
'Campos 8- 17 del detalle --- 44 de otros bancos --- 20 de internacional --- 45 Filler -- Fecha de Alta
- DetalleTexto &= String.Format("{0}40{1}{2}{3}{4}{5}", DTPendienteActual(0)("Abreviatura").ToString, DTPendienteActual(0)("CLABE").ToString.PadLeft(35, PadCeros), DTPendienteActual(0)("CLABE").ToString.Substring(0, 3).PadLeft(4, PadCeros), Vacio.PadRight(20), Vacio.PadRight(45), DateTime.Now().ToString("yyyy-MM-dd"))
+ DetalleTexto &= String.Format("{0}40{1}{2}{3}{4}{5}", DTPendienteActual(0)("Abreviatura").ToString, DTPendienteActual(0)("CLABE").ToString.PadLeft(35, PadCeros), DTPendienteActual(0)("CLABE").ToString.Substring(0, 3).PadLeft(4, PadCeros), Vacio.PadRight(20), Vacio.PadRight(45), NowADS().ToString("yyyy-MM-dd"))
End If
'Llenamos datos de Tipo de Persona - Fisica o Moral
@@ -800,14 +800,14 @@ Partial Class Bancos_PagoElectronico
'''''' LLENADO HEADER
Dim convenio As String = DTPendienteActual(0)("ConvenioPagoElectronico").ToString
'Campos #1-4 del Header
- HeaderTexto = String.Format("H{0}{1}GRUPO01 ", convenio.PadLeft(9, PadCeros), DateTime.Now().ToString("yyyy-MM-dd"))
+ HeaderTexto = String.Format("H{0}{1}GRUPO01 ", convenio.PadLeft(9, PadCeros), NowADS().ToString("yyyy-MM-dd"))
'Campo #5 del Header
Dim IdentificadoUsuario As String = UsuarioActual.Usuario.Replace(" ", "").Replace(".", "").Replace("@", "").Replace("/", "").Replace("\", "").Replace("-", "").Replace("&", "").Replace(",", "").Replace("+", "").Replace("_", "").ToUpper.Trim
IdentificadoUsuario = If(IdentificadoUsuario.Length > 12, IdentificadoUsuario.Substring(0, 12), IdentificadoUsuario)
- ' Dim Identificado As String = String.Format("{0}{1}", UsuarioActual.Usuario, DateTime.Now().ToString("yyyyMMdd")))
+ ' Dim Identificado As String = String.Format("{0}{1}", UsuarioActual.Usuario, NowADS().ToString("yyyyMMdd")))
- HeaderTexto &= String.Format("{0}{1}", IdentificadoUsuario, DateTime.Now().ToString("yyyyMMdd")).PadRight(20)
+ HeaderTexto &= String.Format("{0}{1}", IdentificadoUsuario, NowADS().ToString("yyyyMMdd")).PadRight(20)
'Campos #6-8 del Header
HeaderTexto &= String.Format("00").PadRight(586)
Dim HeaderLength As Integer = HeaderTexto.Length
@@ -893,7 +893,7 @@ Partial Class Bancos_PagoElectronico
'ACTUALIZA FECHADOCUMENTO DEL IE
'If CveBLE > 0 Then
- ' ObjBancos.UpdateBancos_IE(Date.Now, Date.Now, DTPendienteActual(0)("CveIE").ToString.ToEntero)
+ ' ObjBancos.UpdateBancos_IE(NowADS(), NowADS(), DTPendienteActual(0)("CveIE").ToString.ToEntero)
'End If
If TotalDetalles > 0 Then
@@ -909,13 +909,13 @@ Partial Class Bancos_PagoElectronico
If CveBLE > 0 Then
'ACTUALIZAMOS EL ENVIO SI ES REGENERACION
- If Not ObjBancos.UpdateLayoutEnvios(CveBLE, Date.Now) Then
+ If Not ObjBancos.UpdateLayoutEnvios(CveBLE, NowADS()) Then
ErrorLayout = True
End If
'GUARDAMOS EL ENVIO SI NO ES REGENERACION
Else
- Dim CveLayoutEnvio As Integer = ObjBancos.AddLayoutEnvios(NombreArchivo, Date.Now, CveCuenta)
+ Dim CveLayoutEnvio As Integer = ObjBancos.AddLayoutEnvios(NombreArchivo, NowADS(), CveCuenta)
If CveLayoutEnvio > 0 Then
For Each dr As DataRow In DTTemp.Rows
@@ -1006,7 +1006,7 @@ Partial Class Bancos_PagoElectronico
'Correo = If(Correo.Length > 0, Correo.ToUpper.PadRight(50), Vacio.PadRight(50))
'Campos 24-50 del Detalle 0 1 2 3 4 5 6 7 8 9
- DetalleTexto &= String.Format("{0}{1}FA{2}{3}01{4}N{5}{6}{7}{7}{7}{6}N {7}700{8}{9}{7}", Divisa, Vacio.PadLeft(20), Importe.FormatoNumero.Replace(",", "").Replace(".", "").PadLeft(15, PadCeros), Vacio.PadRight(15, PadCeros), Correo, Vacio.PadRight(12, PadCeros), DateTime.Now.ToString("yyyy-MM-dd"), "0001-01-01", Observaciones.PadRight(700), Vacio.PadRight(52))
+ DetalleTexto &= String.Format("{0}{1}FA{2}{3}01{4}N{5}{6}{7}{7}{7}{6}N {7}700{8}{9}{7}", Divisa, Vacio.PadLeft(20), Importe.FormatoNumero.Replace(",", "").Replace(".", "").PadLeft(15, PadCeros), Vacio.PadRight(15, PadCeros), Correo, Vacio.PadRight(12, PadCeros), NowADS().ToString("yyyy-MM-dd"), "0001-01-01", Observaciones.PadRight(700), Vacio.PadRight(52))
TotalAcumulado += Importe.ToDouble
''LLENA DTPAGOS PARA REPORTE
@@ -1032,9 +1032,9 @@ Partial Class Bancos_PagoElectronico
'''''' LLENADO HEADER
'Campos #1-4 del Header
- HeaderTexto = String.Format("H{0}{1}01", convenio.PadLeft(9, PadCeros), DateTime.Now().ToString("yyyy-MM-dd"))
+ HeaderTexto = String.Format("H{0}{1}01", convenio.PadLeft(9, PadCeros), NowADS().ToString("yyyy-MM-dd"))
'Campo #5 del Header
- HeaderTexto &= String.Format("P{0}{1}", DateTime.Now().ToString("s").Replace("-", "").Replace(":", ""), Vacio.PadRight(14))
+ HeaderTexto &= String.Format("P{0}{1}", NowADS().ToString("s").Replace("-", "").Replace(":", ""), Vacio.PadRight(14))
'Campos #6-11 del Header
HeaderTexto &= String.Format("00").PadRight(1314)
@@ -1799,7 +1799,7 @@ Partial Class Bancos_PagoElectronico
'Llenamos en blanco datos de otros bancos
'Campos 8-17 del detalle --- 64 de otros bancos y 45 para FILLER --- Fecha de Alta
- DetalleTexto &= String.Format("{0}{1}", Vacio.PadLeft(109), DateTime.Now().ToString("yyyy-MM-dd"))
+ DetalleTexto &= String.Format("{0}{1}", Vacio.PadLeft(109), NowADS().ToString("yyyy-MM-dd"))
'Otros Bancos NACIONAL!!
@@ -1813,7 +1813,7 @@ Partial Class Bancos_PagoElectronico
'Llenamos datos de otros bancos
'Campos 8- 17 del detalle --- 44 de otros bancos --- 20 de internacional --- 45 Filler -- Fecha de Alta
- DetalleTexto &= String.Format("{0}40{1}{2}{3}{4}{5}", DTPendienteActual(0)("Abreviatura").ToString, DTPendienteActual(0)("CLABE").ToString.PadLeft(35, PadCeros), DTPendienteActual(0)("CLABE").ToString.Substring(0, 3).PadLeft(4, PadCeros), Vacio.PadRight(20), Vacio.PadRight(45), DateTime.Now().ToString("yyyy-MM-dd"))
+ DetalleTexto &= String.Format("{0}40{1}{2}{3}{4}{5}", DTPendienteActual(0)("Abreviatura").ToString, DTPendienteActual(0)("CLABE").ToString.PadLeft(35, PadCeros), DTPendienteActual(0)("CLABE").ToString.Substring(0, 3).PadLeft(4, PadCeros), Vacio.PadRight(20), Vacio.PadRight(45), NowADS().ToString("yyyy-MM-dd"))
End If
'Llenamos datos de Tipo de Persona - Fisica
@@ -1850,9 +1850,9 @@ Partial Class Bancos_PagoElectronico
'''''' LLENADO HEADER
Dim convenio As String = DTPendienteActual(0)("ConvenioPagoElectronico").ToString
'Campos #1-4 del Header
- HeaderTexto = String.Format("H{0}{1}GRUPO01 ", convenio.PadLeft(9, PadCeros), DateTime.Now().ToString("yyyy-MM-dd"))
+ HeaderTexto = String.Format("H{0}{1}GRUPO01 ", convenio.PadLeft(9, PadCeros), NowADS().ToString("yyyy-MM-dd"))
'Campo #5 del Header
- HeaderTexto &= String.Format("{0}{1}", UsuarioActual.CveUsuario, DateTime.Now().ToString("yyyyMMdd")).PadRight(20)
+ HeaderTexto &= String.Format("{0}{1}", UsuarioActual.CveUsuario, NowADS().ToString("yyyyMMdd")).PadRight(20)
'Campos #6-8 del Header
HeaderTexto &= String.Format("00").PadRight(586)
Dim HeaderLength As Integer = HeaderTexto.Length
@@ -2289,7 +2289,7 @@ Partial Class Bancos_PagoElectronico
' strBody.Append("
")
- ' strBody.AppendFormat(" Enviado el: {0} {1} ", Date.Now.ToLongDateString, Date.Now.ToShortTimeString)
+ ' strBody.AppendFormat(" Enviado el: {0} {1} ", NowADS().ToLongDateString, NowADS().ToShortTimeString)
' strBody.AppendFormat(" Para:{0} ", If(UsuarioActual.CveEmpresa = 66, "PAGOS@GLUYASCONSTRUCCIONES.COM", ""))
' strBody.Append(" Asunto: CONFIRMACION SIT DISPERSION ")
' strBody.Append(" ")
@@ -2751,7 +2751,7 @@ Partial Class Bancos_PagoElectronico
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("Direccion", UsuarioActual.Empresa.Direccion))
params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
ImprimirPDF("Empresas/Grales/Formatos/LayoutAltaProveedor.rdlc", DtAlta, params, "LayoutAltaProveedor", RDSName:="DsPagoElectronico")
@@ -2774,7 +2774,7 @@ Partial Class Bancos_PagoElectronico
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("Direccion", UsuarioActual.Empresa.Direccion))
params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
ImprimirPDF("Empresas/Grales/Formatos/LayoutAltaProveedor.rdlc", DtAlta, params, "LayoutAltaProveedor", RDSName:="DsPagoElectronico")
End If
@@ -2795,7 +2795,7 @@ Partial Class Bancos_PagoElectronico
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("Direccion", UsuarioActual.Empresa.Direccion))
params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
diff --git a/Bancos/PagoElectronicoGrupos.aspx.vb b/Bancos/PagoElectronicoGrupos.aspx.vb
index 96344b11f..64de00235 100644
--- a/Bancos/PagoElectronicoGrupos.aspx.vb
+++ b/Bancos/PagoElectronicoGrupos.aspx.vb
@@ -298,8 +298,8 @@ Partial Class Bancos_PagoElectronicoGrupos
CveCuenta = -1
TipoMasiva = 1
- txtFechaI.Text = Date.Now.ToShortDateString
- txtFechaF.Text = Date.Now.ToShortDateString
+ txtFechaI.Text = NowADS().ToShortDateString
+ txtFechaF.Text = NowADS().ToShortDateString
CargaCuentas()
CargaProveedores()
@@ -451,7 +451,7 @@ Partial Class Bancos_PagoElectronicoGrupos
.Clear()
.Buffer = True
.ContentType = "textplain"
- .AddHeader("Content-Disposition", String.Format("attachment;filename={0}{1}.txt", NombreArchivo, Date.Now.ToString("ddMMyyyy")))
+ .AddHeader("Content-Disposition", String.Format("attachment;filename={0}{1}.txt", NombreArchivo, NowADS().ToString("ddMMyyyy")))
.Charset = "UTF-8"
.ContentEncoding = Encoding.Default
.Write(TextoCompleto)
@@ -478,12 +478,12 @@ Partial Class Bancos_PagoElectronicoGrupos
DirectoryExistsCreate(String.Format("{0}Layout", UsuarioActual.Empresa.Ruta))
- NombreArchivo = String.Format("{2}{1}{0}.txt", UsuarioActual.CveUsuario, Date.Now.ToString("yyyyMMdd-HH-mm-ss"), If(Tipo = 1, "LAYOUTPAGO", "LAYOUTALTA"))
+ NombreArchivo = String.Format("{2}{1}{0}.txt", UsuarioActual.CveUsuario, NowADS().ToString("yyyyMMdd-HH-mm-ss"), If(Tipo = 1, "LAYOUTPAGO", "LAYOUTALTA"))
If Tipo = 1 Then
- NombreArchivo = String.Format("{2}{1}{0}.txt", UsuarioActual.CveUsuario, Date.Now.ToString("yyyyMMdd-HH-mm-ss"), "LAYOUTPAGO")
+ NombreArchivo = String.Format("{2}{1}{0}.txt", UsuarioActual.CveUsuario, NowADS().ToString("yyyyMMdd-HH-mm-ss"), "LAYOUTPAGO")
Else
- NombreArchivo = String.Format("{2}{1}{0}{3}.txt", UsuarioActual.CveUsuario, Date.Now.ToString("yyyyMMdd-HH-mm-ss"), "LAYOUTALTA", If(MismoBanco, "BANCOMER", "INTERBANCARIO"))
+ NombreArchivo = String.Format("{2}{1}{0}{3}.txt", UsuarioActual.CveUsuario, NowADS().ToString("yyyyMMdd-HH-mm-ss"), "LAYOUTALTA", If(MismoBanco, "BANCOMER", "INTERBANCARIO"))
End If
If NombreArchivoEnviado.Length > 0 Then
@@ -600,7 +600,7 @@ Partial Class Bancos_PagoElectronicoGrupos
e.Row.FCLabel("LblArchivo").Text = e.Row.DataKey("Archivo")
'Si la fecha de generacion del archivo es diferente de hoy activamos el boton REGENERAR
- 'If e.Row.DBCampo("Fecha").ToDate.ToShortDateString <> Date.Now.ToShortDateString Then
+ 'If e.Row.DBCampo("Fecha").ToDate.ToShortDateString <> NowADS().ToShortDateString Then
' e.Row.FCLinkButton("LBRegenerar").Visible = True
'End If
If DTEnviadas.MAX("FueConciliado", String.Format("CveLayoutEnvio = {0}", e.Row.DBCampo("CveLayoutEnvio"))).ToEntero > 0 Then
@@ -1029,7 +1029,7 @@ Partial Class Bancos_PagoElectronicoGrupos
' 'Llenamos en blanco datos de otros bancos
' 'Campos 8-17 del detalle --- 64 de otros bancos y 45 para FILLER --- Fecha de Alta
- ' DetalleTexto &= String.Format("{0}{1}", Vacio.PadLeft(109), DateTime.Now().ToString("yyyy-MM-dd"))
+ ' DetalleTexto &= String.Format("{0}{1}", Vacio.PadLeft(109), NowADS().ToString("yyyy-MM-dd"))
' 'Otros Bancos NACIONAL!!
@@ -1043,7 +1043,7 @@ Partial Class Bancos_PagoElectronicoGrupos
' 'Llenamos datos de otros bancos
' 'Campos 8- 17 del detalle --- 44 de otros bancos --- 20 de internacional --- 45 Filler -- Fecha de Alta
- ' DetalleTexto &= String.Format("{0}40{1}{2}{3}{4}{5}", DTPendienteActual(0)("Abreviatura").ToString, DTPendienteActual(0)("CLABE").ToString.PadLeft(35, PadCeros), DTPendienteActual(0)("CLABE").ToString.Substring(0, 3).PadLeft(4, PadCeros), Vacio.PadRight(20), Vacio.PadRight(45), DateTime.Now().ToString("yyyy-MM-dd"))
+ ' DetalleTexto &= String.Format("{0}40{1}{2}{3}{4}{5}", DTPendienteActual(0)("Abreviatura").ToString, DTPendienteActual(0)("CLABE").ToString.PadLeft(35, PadCeros), DTPendienteActual(0)("CLABE").ToString.Substring(0, 3).PadLeft(4, PadCeros), Vacio.PadRight(20), Vacio.PadRight(45), NowADS().ToString("yyyy-MM-dd"))
' End If
' 'Llenamos datos de Tipo de Persona - Fisica o Moral
@@ -1157,14 +1157,14 @@ Partial Class Bancos_PagoElectronicoGrupos
'''''' LLENADO HEADER
Dim convenio As String = DTPendienteActual(0)("ConvenioPagoElectronico").ToString
'Campos #1-4 del Header
- HeaderTexto = String.Format("H{0}{1}GRUPO01 ", convenio.PadLeft(9, PadCeros), DateTime.Now().ToString("yyyy-MM-dd"))
+ HeaderTexto = String.Format("H{0}{1}GRUPO01 ", convenio.PadLeft(9, PadCeros), NowADS().ToString("yyyy-MM-dd"))
'Campo #5 del Header
Dim IdentificadoUsuario As String = UsuarioActual.Usuario.Replace(" ", "").Replace(".", "").Replace("@", "").Replace("/", "").ToUpper.Trim
IdentificadoUsuario = If(IdentificadoUsuario.Length > 12, IdentificadoUsuario.Substring(0, 12), IdentificadoUsuario)
- ' Dim Identificado As String = String.Format("{0}{1}", UsuarioActual.Usuario, DateTime.Now().ToString("yyyyMMdd")))
+ ' Dim Identificado As String = String.Format("{0}{1}", UsuarioActual.Usuario, NowADS().ToString("yyyyMMdd")))
- HeaderTexto &= String.Format("{0}{1}", IdentificadoUsuario, DateTime.Now().ToString("yyyyMMdd")).PadRight(20)
+ HeaderTexto &= String.Format("{0}{1}", IdentificadoUsuario, NowADS().ToString("yyyyMMdd")).PadRight(20)
'Campos #6-8 del Header
HeaderTexto &= String.Format("00").PadRight(586)
Dim HeaderLength = HeaderTexto.Length
@@ -1422,7 +1422,7 @@ Partial Class Bancos_PagoElectronicoGrupos
ObjBancos.IniciaTransacSQL()
- Dim CveLayoutEnvio = ObjBancos.AddLayoutEnvios(NombreArchivo, Date.Now, CveCuenta, PorGrupos:=True)
+ Dim CveLayoutEnvio = ObjBancos.AddLayoutEnvios(NombreArchivo, NowADS(), CveCuenta, PorGrupos:=True)
If CveLayoutEnvio > 0 Then
For Each dr As DataRow In DTPendientesTemp.Rows
@@ -1558,7 +1558,7 @@ Partial Class Bancos_PagoElectronicoGrupos
' 'ACTUALIZA FECHADOCUMENTO DEL IE
' 'If CveBLE > 0 Then
- ' ' ObjBancos.UpdateBancos_IE(Date.Now, Date.Now, DTPendienteActual(0)("CveIE").ToString.ToEntero)
+ ' ' ObjBancos.UpdateBancos_IE(NowADS(), NowADS(), DTPendienteActual(0)("CveIE").ToString.ToEntero)
' 'End If
' If TotalDetalles > 0 Then
@@ -1574,14 +1574,14 @@ Partial Class Bancos_PagoElectronicoGrupos
' If CveBLE > 0 Then
' 'ACTUALIZAMOS EL ENVIO SI ES REGENERACION
- ' If Not ObjBancos.UpdateLayoutEnvios(CveBLE, Date.Now) Then
+ ' If Not ObjBancos.UpdateLayoutEnvios(CveBLE, NowADS()) Then
' ErrorLayout = True
' End If
' 'GUARDAMOS EL ENVIO SI NO ES REGENERACION
' Else
- ' Dim CveLayoutEnvio = ObjBancos.AddLayoutEnvios(NombreArchivo, Date.Now, CveCuenta)
+ ' Dim CveLayoutEnvio = ObjBancos.AddLayoutEnvios(NombreArchivo, NowADS(), CveCuenta)
' If CveLayoutEnvio > 0 Then
' For Each dr As DataRow In DTTemp.Rows
@@ -1674,7 +1674,7 @@ Partial Class Bancos_PagoElectronicoGrupos
'Correo = If(Correo.Length > 0, Correo.ToUpper.PadRight(50), Vacio.PadRight(50))
'Campos 24-50 del Detalle 0 1 2 3 4 5 6 7 8 9
- DetalleTexto &= String.Format("{0}{1}FA{2}{3}01{4}N{5}{6}{7}{7}{7}{6}N {7}700{8}{9}{7}", Divisa, Vacio.PadLeft(20), Importe.FormatoNumero.Replace(",", "").Replace(".", "").PadLeft(15, PadCeros), Vacio.PadRight(15, PadCeros), Correo, Vacio.PadRight(12, PadCeros), DateTime.Now.ToString("yyyy-MM-dd"), "0001-01-01", Observaciones.PadRight(700), Vacio.PadRight(52))
+ DetalleTexto &= String.Format("{0}{1}FA{2}{3}01{4}N{5}{6}{7}{7}{7}{6}N {7}700{8}{9}{7}", Divisa, Vacio.PadLeft(20), Importe.FormatoNumero.Replace(",", "").Replace(".", "").PadLeft(15, PadCeros), Vacio.PadRight(15, PadCeros), Correo, Vacio.PadRight(12, PadCeros), NowADS().ToString("yyyy-MM-dd"), "0001-01-01", Observaciones.PadRight(700), Vacio.PadRight(52))
TotalAcumulado += Importe.ToDouble
@@ -1703,9 +1703,9 @@ Partial Class Bancos_PagoElectronicoGrupos
'''''' LLENADO HEADER
'Campos #1-4 del Header
- HeaderTexto = String.Format("H{0}{1}01", convenio.PadLeft(9, PadCeros), DateTime.Now().ToString("yyyy-MM-dd"))
+ HeaderTexto = String.Format("H{0}{1}01", convenio.PadLeft(9, PadCeros), NowADS().ToString("yyyy-MM-dd"))
'Campo #5 del Header
- HeaderTexto &= String.Format("P{0}{1}", DateTime.Now().ToString("s").Replace("-", "").Replace(":", ""), Vacio.PadRight(14))
+ HeaderTexto &= String.Format("P{0}{1}", NowADS().ToString("s").Replace("-", "").Replace(":", ""), Vacio.PadRight(14))
'Campos #6-11 del Header
HeaderTexto &= String.Format("00").PadRight(1314)
@@ -2332,7 +2332,7 @@ Partial Class Bancos_PagoElectronicoGrupos
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("Direccion", UsuarioActual.Empresa.Direccion))
params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
ImprimirPDF("Empresas/Grales/Formatos/LayoutAltaProveedor.rdlc", DtAlta, params, "LayoutAltaProveedor", RDSName:="DsPagoElectronico")
@@ -2360,7 +2360,7 @@ Partial Class Bancos_PagoElectronicoGrupos
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("Direccion", UsuarioActual.Empresa.Direccion))
params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
ImprimirPDF("Empresas/Grales/Formatos/LayoutAltaProveedor.rdlc", DtAlta, params, "LayoutAltaProveedor", RDSName:="DsPagoElectronico")
End If
@@ -2394,7 +2394,7 @@ Partial Class Bancos_PagoElectronicoGrupos
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("Direccion", UsuarioActual.Empresa.Direccion))
params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("Titulo", "Reporte Pago Proveedor Layout Grupos"))
@@ -2777,7 +2777,7 @@ Partial Class Bancos_PagoElectronicoGrupos
ObjAC.IniciaTransacSQL()
End If
- Dim FechaCancelacion As Date = Now
+ Dim FechaCancelacion As Date = NowADS()
Dim ErrorCancelar = False
Dim MensajeError = ""
@@ -2990,7 +2990,7 @@ Partial Class Bancos_PagoElectronicoGrupos
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("Direccion", UsuarioActual.Empresa.Direccion))
params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("Titulo", "Reporte Pago Proveedor Layout"))
diff --git a/Bancos/PolizaCheque.aspx.vb b/Bancos/PolizaCheque.aspx.vb
index b1ff1319a..7fda562fd 100644
--- a/Bancos/PolizaCheque.aspx.vb
+++ b/Bancos/PolizaCheque.aspx.vb
@@ -487,7 +487,7 @@ Partial Class Bancos_PolizaCheque
Private Function CreaArchivo() As Boolean
DirectoryExistsCreate(String.Format("{0}Layout", UsuarioActual.Empresa.Ruta))
- NombreArchivo = String.Format("{2}{1}{0}.txt", UsuarioActual.CveUsuario, Date.Now.ToString("yyyyMMdd-HH-mm"), "LAYOUTPAGONOMINA")
+ NombreArchivo = String.Format("{2}{1}{0}.txt", UsuarioActual.CveUsuario, NowADS().ToString("yyyyMMdd-HH-mm"), "LAYOUTPAGONOMINA")
Dim path As String = String.Format("{0}Layout\{1}", UsuarioActual.Empresa.Ruta, NombreArchivo)
Dim fs As FileStream = File.Create(path)
@@ -515,7 +515,7 @@ Partial Class Bancos_PolizaCheque
Dim CodigoPago As String = "R23"
Dim TipoServicio As String = "110"
Dim ClaveEntrada As String = "1"
- Dim FechaArchivo As String = Date.Now.ToString("yyyyMMdd")
+ Dim FechaArchivo As String = NowADS().ToString("yyyyMMdd")
Dim FechaPago As String = TxtFechaDocumento.ToDate.ToString("yyyyMMdd")
Dim Filler As String = GeneraCampo("", 142)
diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb
index 8688ade3a..a093792e9 100644
--- a/Bancos/PopIECompras.aspx.vb
+++ b/Bancos/PopIECompras.aspx.vb
@@ -304,7 +304,7 @@ Partial Class Bancos_PopIECompras
ArrIEFuncionariosEmpleados = New ArrayList()
RFCProveedor = ""
- TxtFechaDocumento.Text = Now.ToShortDateString
+ TxtFechaDocumento.Text = NowADS().ToShortDateString
If Request("CveProveedor") IsNot Nothing Then
HdnCveProveedor.Value = Request("CveProveedor").ToString
@@ -345,10 +345,10 @@ Partial Class Bancos_PopIECompras
If CveMoneda = 2 Then
ChkPagarPesos.Visible = True
- TxtTipoCambio.Text = GlobalTipoCambio(Now).FormatoNumero(4)
+ TxtTipoCambio.Text = GlobalTipoCambio(NowADS()).FormatoNumero(4)
Else
ChkPagarDolares.Visible = True
- TxtTipoCambio.Text = GlobalTipoCambio(Now).FormatoNumero(4)
+ TxtTipoCambio.Text = GlobalTipoCambio(NowADS()).FormatoNumero(4)
End If
UpDatos.Update()
End If
@@ -1678,8 +1678,8 @@ Partial Class Bancos_PopIECompras
End Sub
Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
- RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
- Calendario.EndDate = DateTime.Now
+ RVTxtFechaDocumento.MaximumValue = NowADS().ToShortDateString
+ Calendario.EndDate = NowADS()
End Sub
diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb
index ffc69a6d8..d0212c8c6 100644
--- a/Bancos/PopIEVentas.aspx.vb
+++ b/Bancos/PopIEVentas.aspx.vb
@@ -311,7 +311,7 @@ Partial Class Bancos_PopIEVentas
ArrIEFuncionariosEmpleados = New ArrayList()
RFCCliente = "-1"
- TxtFechaDocumento.Text = Now.ToShortDateString
+ TxtFechaDocumento.Text = NowADS().ToShortDateString
If Request("CveVenta") IsNot Nothing AndAlso IsNumeric(Request("CveVenta")) AndAlso Request("CveVenta").ToEntero > 0 Then
CveVenta = Request("CveVenta").ToEntero
@@ -349,8 +349,8 @@ Partial Class Bancos_PopIEVentas
- Dim dia As Integer = If(UsuarioActual.CveEmpresa = 13, Now.Day - 1, Now.Day)
- Fecha = (dia.ToString + "/" + Now.Month.ToString + "/" + Now.Year.ToString).ToDate
+ Dim dia As Integer = If(UsuarioActual.CveEmpresa = 13, NowADS().Day - 1, NowADS().Day)
+ Fecha = (dia.ToString + "/" + NowADS().Month.ToString + "/" + NowADS().Year.ToString).ToDate
If CveMoneda = 2 Then
ChkPagarPesos.Visible = True
@@ -1389,7 +1389,7 @@ Partial Class Bancos_PopIEVentas
TxtFolio.Text = ""
TxtObservaciones.Text = ""
TxtImporte.Text = ""
- TxtFechaDocumento.Text = Now.ToShortDateString
+ TxtFechaDocumento.Text = NowADS().ToShortDateString
ChkComplementoPago.Checked = False
UpDatos.Update()
@@ -1408,7 +1408,7 @@ Partial Class Bancos_PopIEVentas
'For i = 0 To CveVentas.Count - 1
Dim ObjBancos As New ClsBancos
- If ObjBancos.GetComplementoPagosRep(-1, Now.AddYears(-2), Now, CveIE, -1, 1, UsuarioActual.CveEmpresa, -1) Then
+ If ObjBancos.GetComplementoPagosRep(-1, NowADS().AddYears(-2), NowADS(), CveIE, -1, 1, UsuarioActual.CveEmpresa, -1) Then
If Not ObjBancos.DtResultados.Rows.Count > 0 Then
ObjBancos.Dispose()
Alert("No se generaron complementos de pago porque no hay facturas con método de pago PPD", TipoMensaje.MsgAdvertencia)
@@ -1465,8 +1465,8 @@ Partial Class Bancos_PopIEVentas
#End Region
Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
- RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
- Calendario.EndDate = DateTime.Now
+ RVTxtFechaDocumento.MaximumValue = NowADS().ToShortDateString
+ Calendario.EndDate = NowADS()
End Sub
diff --git a/Bancos/PopUpBuscarIE.aspx.vb b/Bancos/PopUpBuscarIE.aspx.vb
index 52515e79c..9b40e213d 100644
--- a/Bancos/PopUpBuscarIE.aspx.vb
+++ b/Bancos/PopUpBuscarIE.aspx.vb
@@ -37,7 +37,7 @@ Partial Class Bancos_PopUpBuscarIE
Opcion = Request("OPCION").ToString
End If
- txtFechaI.Text = Date.Now.AddMonths(-1).FirstDayOfMonth.ToShortDateString
+ txtFechaI.Text = NowADS().AddMonths(-1).FirstDayOfMonth.ToShortDateString
CargaDatos()
diff --git a/Bancos/PrestamoPersonal.aspx.cs b/Bancos/PrestamoPersonal.aspx.cs
index ab7330f98..00075eb97 100644
--- a/Bancos/PrestamoPersonal.aspx.cs
+++ b/Bancos/PrestamoPersonal.aspx.cs
@@ -40,10 +40,10 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas
CargaReporte();
CargaConceptos();
- TxtFechaDocumento.Text = DateTime.Now.ToShortDateString();
- TxtFechaPrestamo.Text = DateTime.Now.ToShortDateString();
- txtFechaI.Text = DateTime.Now.FirstDayOfMonth().ToShortDateString();
- txtFechaF.Text = DateTime.Now.ToShortDateString();
+ TxtFechaDocumento.Text = NowADS().ToShortDateString();
+ TxtFechaPrestamo.Text = NowADS().ToShortDateString();
+ txtFechaI.Text = NowADS().FirstDayOfMonth().ToShortDateString();
+ txtFechaF.Text = NowADS().ToShortDateString();
TxtImporte.Attributes.Add("disabled", "disabled");
//if (UsuarioActual.Empresa.Funcionalidad(281).ToEntero() == 1)
diff --git a/Bancos/ProductosFinancieros.aspx.vb b/Bancos/ProductosFinancieros.aspx.vb
index 0be160c8b..142179554 100644
--- a/Bancos/ProductosFinancieros.aspx.vb
+++ b/Bancos/ProductosFinancieros.aspx.vb
@@ -335,7 +335,7 @@ Partial Class Bancos_ProductosFinancieros
Dim ConceptoContable As Integer = Row("CveConcepto").ToString.ToEntero
Dim TipoMovimiento As Boolean = If(Row("TipoMovto").ToString = "True", True, False)
Dim importeMovimiento As Decimal = 0
- Dim FechaMovimiento As Date = Now
+ Dim FechaMovimiento As Date = NowADS()
Dim IdCtaContablePP As Integer = 0
Select Case ConceptoContable
diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index e2b7b3d4f..7d0047881 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -224,7 +224,7 @@ Partial Class Bancos_ProveedoresAbonar
End If
PermiteModificarImporte = True
- TxtFechaIncobrable.Text = Now.ToShortDateString
+ TxtFechaIncobrable.Text = NowADS().ToShortDateString
If Request("CveProveedor") IsNot Nothing AndAlso Request("CveProveedor").ToString.ToEntero > 0 Then
@@ -252,13 +252,13 @@ Partial Class Bancos_ProveedoresAbonar
If UsuarioActual.TienePermisoProceso(98) Then
PermiteModificarImporte = False
End If
- Calendario.StartDate = Now.AddMonths(-18)
+ Calendario.StartDate = NowADS().AddMonths(-18)
'proceso que restringue solo el pago de apartir del dia de hoy y como limite fin de mes
If UsuarioActual.TienePermisoProceso(105) Then
- Calendario.StartDate = Now
- Calendario.EndDate = Now.LastDayOfMonth
- MEVCalendario.MinimumValue = Now.ToShortDateString
- MEVCalendario.MaximumValue = Now.LastDayOfMonth.ToShortDateString
+ Calendario.StartDate = NowADS()
+ Calendario.EndDate = NowADS().LastDayOfMonth
+ MEVCalendario.MinimumValue = NowADS().ToShortDateString
+ MEVCalendario.MaximumValue = NowADS().LastDayOfMonth.ToShortDateString
MEVCalendario.Enabled = True
End If
@@ -293,16 +293,16 @@ Partial Class Bancos_ProveedoresAbonar
If CveMoneda = 2 Then
ChkPagarPesos.Visible = True
- TxtTC.Text = GlobalTipoCambio(Now).FormatoNumero(4)
- TxtTCDolaresDolares.Text = GlobalTipoCambio(Now).FormatoNumero(4)
+ TxtTC.Text = GlobalTipoCambio(NowADS()).FormatoNumero(4)
+ TxtTCDolaresDolares.Text = GlobalTipoCambio(NowADS()).FormatoNumero(4)
DivDolaresDolares.Visible = True
TxtFechaDocumento.Attributes.Add("onchange", "CambiaTC(this);")
Else
ChkPagarDolares.Visible = True
- TxtTCDolares.Text = GlobalTipoCambio(Now).FormatoNumero(4)
+ TxtTCDolares.Text = GlobalTipoCambio(NowADS()).FormatoNumero(4)
End If
- RegistraScript($"TipoCambioActual = {GlobalTipoCambio(Now).FormatoNumero(4)}")
+ RegistraScript($"TipoCambioActual = {GlobalTipoCambio(NowADS()).FormatoNumero(4)}")
UpDatos.Update()
If UsuarioActual.TienePermisoProceso(215) Or UsuarioActual.TienePermisoProceso(204) Then
@@ -379,7 +379,7 @@ Partial Class Bancos_ProveedoresAbonar
CargaTipoTransaccion()
CargaCuentas(DdlTipoTransaccion.SelectedValue.ToEntero)
- TxtFechaDocumento.Text = Now.ToShortDateString
+ TxtFechaDocumento.Text = NowADS().ToShortDateString
TxtPagueseA.Enabled = False
@@ -615,7 +615,7 @@ Partial Class Bancos_ProveedoresAbonar
End If
'proceso que restringue solo el pago de apartir del dia de hoy y como limite fin de mes
- If UsuarioActual.TienePermisoProceso(105) AndAlso (TxtFechaDocumento.Text.ToDate < Now.Date Or TxtFechaDocumento.Text.ToDate > Now.LastDayOfMonth) Then
+ If UsuarioActual.TienePermisoProceso(105) AndAlso (TxtFechaDocumento.Text.ToDate < NowADS().Date Or TxtFechaDocumento.Text.ToDate > NowADS().LastDayOfMonth) Then
Alert("Fecha No permitida", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
@@ -1026,7 +1026,7 @@ Partial Class Bancos_ProveedoresAbonar
TxtObservaciones.Text = ""
TxtImporte.Text = ""
TxtTotal.Text = ""
- TxtFechaDocumento.Text = Now.ToShortDateString
+ TxtFechaDocumento.Text = NowADS().ToShortDateString
DdlSelectedValue(DdlCuenta, "-1")
DdlSelectedValue(DdlTipoTransaccion, "-1")
Anexo.Text = "[]"
@@ -1616,7 +1616,7 @@ Partial Class Bancos_ProveedoresAbonar
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
- params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToString))
params.Add(New ReportParameter("Sucursal", DtDatos.Rows(1)("SubProyecto").ToString))
params.Add(New ReportParameter("Importe", $"${StrImporte}"))
params.Add(New ReportParameter("RazonSocial", TxtPagueseA.Text))
@@ -1649,10 +1649,10 @@ Partial Class Bancos_ProveedoresAbonar
#End Region
Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
- RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
- RVTxtFechaDocumentoMenor.MinimumValue = DateTime.Now.AddMonths(-18).ToShortDateString
- RVTxtFechaDocumentoMenor.MaximumValue = DateTime.Now.ToShortDateString
- Calendario.EndDate = DateTime.Now
+ RVTxtFechaDocumento.MaximumValue = NowADS().ToShortDateString
+ RVTxtFechaDocumentoMenor.MinimumValue = NowADS().AddMonths(-18).ToShortDateString
+ RVTxtFechaDocumentoMenor.MaximumValue = NowADS().ToShortDateString
+ Calendario.EndDate = NowADS()
End Sub
diff --git a/Bancos/ProveedoresCreditos.aspx.vb b/Bancos/ProveedoresCreditos.aspx.vb
index e86949a0c..99759eb43 100644
--- a/Bancos/ProveedoresCreditos.aspx.vb
+++ b/Bancos/ProveedoresCreditos.aspx.vb
@@ -339,7 +339,7 @@ Partial Class Bancos_ProveedoresCreditos
DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
TxtImporte.Attributes.Add("onblur", $"upIE(this,{CveMoneda});FncImporteCuenta(this);")
- Calendario.StartDate = Now.AddMonths(-1).FirstDayOfMonth()
+ Calendario.StartDate = NowADS().AddMonths(-1).FirstDayOfMonth()
ViewState("IDPoliza") = "-1"
CveIEDeposito = -1
' rbPagueseA.Attributes.Add("onchange", "upPagueseA(this);")
@@ -482,7 +482,7 @@ Partial Class Bancos_ProveedoresCreditos
'Configuración de Modalidad Insert
CveIE = -1
- TxtFechaDocumento.Text = Now.ToShortDateString
+ TxtFechaDocumento.Text = NowADS().ToShortDateString
ImgUpdateCuentaDeposito.Visible = False
End If
@@ -657,9 +657,9 @@ Partial Class Bancos_ProveedoresCreditos
If dr IsNot Nothing Then
CveMoneda = dr("CveMoneda").ToString.ToEntero
If CveMoneda = 2 Then
- TipoCambio = GlobalTipoCambio(Now).ToDecimal
+ TipoCambio = GlobalTipoCambio(NowADS()).ToDecimal
ElseIf CveMoneda = 3 Then
- TipoCambio = GlobalTipoCambioEuro(Now).ToDecimal
+ TipoCambio = GlobalTipoCambioEuro(NowADS()).ToDecimal
Else
TipoCambio = 0
End If
@@ -993,7 +993,7 @@ Partial Class Bancos_ProveedoresCreditos
Dim TipoMovimiento = False
Dim Concepto = ""
Dim Referencia = $"Crédito: {TxtFolio.Text}"
- Dim FechaMovimiento = Now.ToDate
+ Dim FechaMovimiento = NowADS().ToDate
For Each Row As DataRow In DtPlantilla.Rows
diff --git a/Bancos/Reembolsos.aspx.vb b/Bancos/Reembolsos.aspx.vb
index abdcb9314..210095b54 100644
--- a/Bancos/Reembolsos.aspx.vb
+++ b/Bancos/Reembolsos.aspx.vb
@@ -718,7 +718,7 @@ Partial Class Bancos_Reembolsos
If CvePrePolizaNueva > 0 Then
Str.AppendFormat(" Cheque: {1} ", CveIE, Folio)
'Str.AppendFormat(" Imprimir Cheque ")
- Str.AppendFormat("
", UsuarioActual.CveEmpresa, NombreArchivo, NowADS().Ticks)
' Alert(String.Format(" El reporte se generó correctamente.
Descargas:
{0}
", Descargas), TipoMensaje.MsgInformacion)
diff --git a/Bancos/RepSaldosPeriodo.aspx.cs b/Bancos/RepSaldosPeriodo.aspx.cs
index f2c72eafc..48ebfeba1 100644
--- a/Bancos/RepSaldosPeriodo.aspx.cs
+++ b/Bancos/RepSaldosPeriodo.aspx.cs
@@ -36,7 +36,7 @@ public partial class Bancos_RepSaldosPeriodo : ClsPaginas
TipoCambio = 1;
TCEspecifico = -1;
- txtFechaF.Text = DateTime.Now.LastDayOfMonth().ToShortDateString();
+ txtFechaF.Text = NowADS().LastDayOfMonth().ToShortDateString();
DdlCuenta.DataSource = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:UsuarioActual.CveEmpresa);
DdlCuenta.DataBind();
@@ -103,7 +103,7 @@ public partial class Bancos_RepSaldosPeriodo : ClsPaginas
List para = new List();
para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));
para.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
- para.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToString()));
+ para.Add(new ReportParameter("FechaImpresion", NowADS().ToString()));
para.Add(new ReportParameter("Filtros", $"Filtros: {NoCuenta}{Moneda}{FechaCorte}{Agrupador}"));
if (Imagen.Exists)
{
@@ -159,7 +159,7 @@ public partial class Bancos_RepSaldosPeriodo : ClsPaginas
if (TipoCambio == 3)
{
LiEspecifico.Visible = true;
- TCEspecifico = get_GlobalTipoCambio(DateTime.Now).ToString().ToDouble();
+ TCEspecifico = get_GlobalTipoCambio(NowADS()).ToString().ToDouble();
TxtEspecifico.Text = TCEspecifico.ToString();
}
else
diff --git a/Bancos/SaldarCajaChica.aspx.cs b/Bancos/SaldarCajaChica.aspx.cs
index 2225b90f7..6a2e5c05c 100644
--- a/Bancos/SaldarCajaChica.aspx.cs
+++ b/Bancos/SaldarCajaChica.aspx.cs
@@ -64,7 +64,7 @@ public partial class Bancos_SaldarCajaChica : ClsPaginas
Boolean TieneError = false;
decimal Importe = 0;
- CvePrePoliza = ObjMov.AddPrePolizas("Compras/Comprobaciones", 9, 0, 0, 1, DateTime.Now, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
+ CvePrePoliza = ObjMov.AddPrePolizas("Compras/Comprobaciones", 9, 0, 0, 1, NowADS(), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
foreach (GridViewRow row in GvDatos.Rows)
{
@@ -78,7 +78,7 @@ public partial class Bancos_SaldarCajaChica : ClsPaginas
Importe += row.DataKey("Saldo").ToDecimal();
String FolioIENew = ObjIE.GetNextFolio(CveCajaChica, 6).ToString();
- CveIEPago = ObjIE.AddBancos_IE(CveCajaChica, 6, DateTime.Now, FolioIENew, DdlCajaChica.SelectedItem.ToString(), TxtImporteIE, 1, 0.0, "SALDADA POR SISTEMA", "", false, true, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
+ CveIEPago = ObjIE.AddBancos_IE(CveCajaChica, 6, NowADS(), FolioIENew, DdlCajaChica.SelectedItem.ToString(), TxtImporteIE, 1, 0.0, "SALDADA POR SISTEMA", "", false, true, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, TxtImporte, TxtImporte, 30, DdlCajaChica.SelectedItem.ToString(),"SALDADA POR SISTEMA", CveIE: CveIEPago, CveIEDevolucion: row.DataKey("CveIE").ToEntero(), CvePrePolizaOriginal: CvePrePoliza))
{
diff --git a/Bancos/Transferencias.aspx.vb b/Bancos/Transferencias.aspx.vb
index e813dc9e2..16b0c62be 100644
--- a/Bancos/Transferencias.aspx.vb
+++ b/Bancos/Transferencias.aspx.vb
@@ -72,7 +72,7 @@ Partial Class Bancos_Transferencias
CargaFolio(DdlCuentaOrigen.SelectedValue.ToEntero, DdlTipoMovto.SelectedValue.ToEntero)
End If
- TxtFechaDocumento.Text = Now.ToShortDateString
+ TxtFechaDocumento.Text = NowADS().ToShortDateString
DdlTipoMovto_SelectedIndexChanged(Nothing, Nothing)
@@ -364,23 +364,29 @@ Partial Class Bancos_Transferencias
For Each row As GridViewRow In GvTC.Rows
- FolioDestino = GetFolio(row.DataKey("CveCuenta").ToEntero, If(DdlTipoMovto.SelectedValue = "2", 8, 3), TransaccioSQL:=ObjIE.IniciaTransacSQL())
+ If row.FCTextBox("TxtAbono").Text.ToDecimal > 0 Then
+ FolioDestino = GetFolio(row.DataKey("CveCuenta").ToEntero, If(DdlTipoMovto.SelectedValue = "2", 8, 3), TransaccioSQL:=ObjIE.IniciaTransacSQL())
- If FolioDestino.Trim.Length = 0 Then
- MsgError = "Ocurrio un error al obtener el folio destino."
- Exit For
+ If FolioDestino.Trim.Length = 0 Then
+ MsgError = "Ocurrio un error al obtener el folio destino."
+ Exit For
+ End If
+
+ Dim PagueseA As String = $"Transferencia Cta: {If(DdlCuentaOrigen.SelectedItem Is Nothing, DdlCuentaDestino.SelectedItem.Text, DdlCuentaOrigen.SelectedItem.Text)}"
+
+ CveIEDestino = ObjIE.AddBancos_IE(row.DataKey("CveCuenta").ToEntero, If(DdlTipoMovto.SelectedValue = "2", 8, 3), TxtFechaDocumento.Text.Trim.ToDate, FolioDestino, PagueseA, row.FCTextBox("TxtAbono").Text.ToDecimal, CveMonedaDestino, TipoCambio, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+ If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoDetalle, row.FCTextBox("TxtAbono").Text.ToDecimal, row.FCTextBox("TxtAbono").Text.ToDecimal, 30,
+ $"Transferencia entre cuentas {TxtObservaciones.Text}", $"Transferencia entre cuentas {TxtObservaciones.Text}",
+ CveIE:=CveIEDestino) Then
+
+ MsgError = "Ocurrio un error al ingresar la prepoliza"
+ Exit For
+ Else
+ AlertaGlobal.AppendFormat("{1} ", CveIEDestino, FolioDestino)
+ End If
End If
- CveIEDestino = ObjIE.AddBancos_IE(row.DataKey("CveCuenta").ToEntero, If(DdlTipoMovto.SelectedValue = "2", 8, 3), TxtFechaDocumento.Text.Trim.ToDate, FolioDestino, String.Format("Transferencia Cta: {0}", DdlCuentaOrigen.SelectedItem.Text), row.FCTextBox("TxtAbono").Text.ToDecimal, CveMonedaDestino, TipoCambio, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
- If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoDetalle, row.FCTextBox("TxtAbono").Text.ToDecimal, row.FCTextBox("TxtAbono").Text.ToDecimal, 30,
- $"Transferencia entre cuentas {TxtObservaciones.Text}", $"Transferencia entre cuentas {TxtObservaciones.Text}",
- CveIE:=CveIEDestino) Then
- MsgError = "Ocurrio un error al ingresar la prepoliza"
- Exit For
- Else
- AlertaGlobal.AppendFormat("{1} ", CveIEDestino, FolioDestino)
- End If
Next
diff --git a/CGame/AsignacionEmpaque.aspx.cs b/CGame/AsignacionEmpaque.aspx.cs
index 59cdd1b65..fc4331e0c 100644
--- a/CGame/AsignacionEmpaque.aspx.cs
+++ b/CGame/AsignacionEmpaque.aspx.cs
@@ -372,7 +372,7 @@ public partial class CGame_AsignacionEmpaque : ClsPaginas
para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));
para.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
- para.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToString()));
+ para.Add(new ReportParameter("FechaImpresion", NowADS().ToString()));
para.Add(new ReportParameter("Huerta", DdlHuerta.SelectedItem.Text));
para.Add(new ReportParameter("Fruto", DdlFruto.SelectedItem.Text));
diff --git a/CGame/AsignacionEmpaque2.aspx.cs b/CGame/AsignacionEmpaque2.aspx.cs
index 39d1f632a..1f404259f 100644
--- a/CGame/AsignacionEmpaque2.aspx.cs
+++ b/CGame/AsignacionEmpaque2.aspx.cs
@@ -518,7 +518,7 @@ public partial class CGame_AsignacionEmpaque2 : ClsPaginas
para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));
para.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
- para.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToString()));
+ para.Add(new ReportParameter("FechaImpresion", NowADS().ToString()));
para.Add(new ReportParameter("Huerta", DdlHuerta.SelectedItem.Text));
para.Add(new ReportParameter("Fruto", DdlFruto.SelectedItem.Text));
diff --git a/CGame/CatCGameClientes.aspx.vb b/CGame/CatCGameClientes.aspx.vb
index 32588f93f..4d65285a0 100644
--- a/CGame/CatCGameClientes.aspx.vb
+++ b/CGame/CatCGameClientes.aspx.vb
@@ -132,7 +132,7 @@ Partial Class CGame_CatCGameClientes
Dim cliente As String = TxtCGamcliente.Text
Dim estatus As Boolean = ChkCGamestatus.Checked
- Dim fechaIng As DateTime = Now
+ Dim fechaIng As DateTime = NowADS()
Dim cveUsuario As Int32 = UsuarioActual.CveUsuario
Dim cveEmpresa As Int32 = UsuarioActual.CveEmpresa
Dim ObjCGam As New ClsCGame()
@@ -159,7 +159,7 @@ Partial Class CGame_CatCGameClientes
Dim cveUsuario As Int32 = UsuarioActual.CveUsuario
Dim ObjCGam As New ClsCGame()
ObjCGam.IniciaTransacSQL()
- Dim Continuar As Boolean = ObjCGam.UpdateCliente(CveCliente, cliente, estatus, DateTime.Now, cveUsuario, UsuarioActual.CveEmpresa)
+ Dim Continuar As Boolean = ObjCGam.UpdateCliente(CveCliente, cliente, estatus, NowADS(), cveUsuario, UsuarioActual.CveEmpresa)
Continuar = ObjCGam.RemoveCargoFijoCliente(CveCliente)
For Each Dr As DataRow In DtCargosFijos.Rows
Continuar = ObjCGam.AddCargoFijoCliente(Dr("CveCargoFijo").ToString.ToEntero, CveCliente, Dr("Importe").ToString.ToDouble)
diff --git a/CGame/CatTipoEmpaque.aspx.vb b/CGame/CatTipoEmpaque.aspx.vb
index 1d28be033..94d320c84 100644
--- a/CGame/CatTipoEmpaque.aspx.vb
+++ b/CGame/CatTipoEmpaque.aspx.vb
@@ -104,7 +104,7 @@ Partial Class CGame_CatTipoEmpaque
Dim tipoEmpaque As String = TxtCGamtipoEmpaque.Text
Dim estatus As Boolean = ChkCGamestatus.Checked
- Dim fechaIng As DateTime = Now
+ Dim fechaIng As DateTime = NowADS()
Dim cveUsuario As Int32 = UsuarioActual.CveUsuario
Dim cveEmpresa As Int32 = UsuarioActual.CveEmpresa
Dim ObjCGam As New ClsCGame()
@@ -122,7 +122,7 @@ Partial Class CGame_CatTipoEmpaque
Dim tipoEmpaque As String = TxtCGamtipoEmpaque.Text
Dim estatus As Boolean = ChkCGamestatus.Checked
- Dim fechaIng As DateTime = Now
+ Dim fechaIng As DateTime = NowADS()
Dim cveUsuario As Int32 = UsuarioActual.CveUsuario
Dim cveEmpresa As Int32 = UsuarioActual.CveEmpresa
Dim ObjCGam As New ClsCGame()
diff --git a/CGame/CatTipoMaduracion.aspx.vb b/CGame/CatTipoMaduracion.aspx.vb
index eece2936c..8ad704cdb 100644
--- a/CGame/CatTipoMaduracion.aspx.vb
+++ b/CGame/CatTipoMaduracion.aspx.vb
@@ -111,7 +111,7 @@ Partial Class CGame_CatTipoMaduracion
Dim tipoMaduracion As String = TxtCGamtipoMaduracion.Text
Dim estatus As Boolean = ChkCGamestatus.Checked
- Dim fechaIng As DateTime = Now
+ Dim fechaIng As DateTime = NowADS()
Dim cveUsuario As Int32 = UsuarioActual.CveUsuario
Dim cveEmpresa As Int32 = UsuarioActual.CveEmpresa
Dim ObjCGam As New ClsCGame()
@@ -129,7 +129,7 @@ Partial Class CGame_CatTipoMaduracion
Dim tipoMaduracion As String = TxtCGamtipoMaduracion.Text
Dim estatus As Boolean = ChkCGamestatus.Checked
- Dim fechaIng As DateTime = Now
+ Dim fechaIng As DateTime = NowADS()
Dim cveUsuario As Int32 = UsuarioActual.CveUsuario
Dim cveEmpresa As Int32 = UsuarioActual.CveEmpresa
Dim ObjCGam As New ClsCGame()
diff --git a/CGame/CorteGasto.aspx.cs b/CGame/CorteGasto.aspx.cs
index 2106cd00e..7b3c1e1d1 100644
--- a/CGame/CorteGasto.aspx.cs
+++ b/CGame/CorteGasto.aspx.cs
@@ -59,8 +59,8 @@ public partial class CGame_CorteGasto : ClsPaginas
else
{
- TxtFechaRegistro.Text = DateTime.Now.ToShortDateString();
- txtFechaI.Text = DateTime.Now.ToShortDateString();
+ TxtFechaRegistro.Text = NowADS().ToShortDateString();
+ txtFechaI.Text = NowADS().ToShortDateString();
lblNombreUsuario.Text = UsuarioActual.Usuario;
UpDatosCorteGasto.Update();
UpDatosRegistro.Update();
@@ -139,9 +139,9 @@ public partial class CGame_CorteGasto : ClsPaginas
protected void Limpia()
{
- TxtFechaRegistro.Text = DateTime.Now.ToShortDateString();
+ TxtFechaRegistro.Text = NowADS().ToShortDateString();
lblNombreUsuario.Text = UsuarioActual.Usuario;
- TxtFechaRegistro.Text = DateTime.Now.ToShortDateString();
+ TxtFechaRegistro.Text = NowADS().ToShortDateString();
DdlOrdenCorte.SelectedIndex = 0;
UpDatosCorteGasto.Update();
UpDatosRegistro.Update();
diff --git a/CGame/Empaque.aspx.cs b/CGame/Empaque.aspx.cs
index de1fa8c1b..2c989aba7 100644
--- a/CGame/Empaque.aspx.cs
+++ b/CGame/Empaque.aspx.cs
@@ -704,7 +704,7 @@ public partial class Empaque : ClsPaginas
DdlTipoEmpaque.SelectedIndex = 0;
CargaTipoMaduracion(DdlPS.SelectedValue.ToEntero());
DdlTipoProducto.SelectedIndex = 0;
- TxtFecha.Text = DateTime.Now.ToString();
+ TxtFecha.Text = NowADS().ToString();
TxtPeso.Text = "";
TxtCantidad.Text = "";
DdlCalidad.SelectedIndex = 0;
@@ -717,8 +717,8 @@ public partial class Empaque : ClsPaginas
{
DdlHuerta.SelectedValue = "-1";
lblNombreUsuario.Text = UsuarioActual.Nombre;
- TxtFechaRegistro.Text = DateTime.Now.ToShortDateString();
- TxtFecha.Text = DateTime.Now.ToString();
+ TxtFechaRegistro.Text = NowADS().ToShortDateString();
+ TxtFecha.Text = NowADS().ToString();
CargaFolio();
LimpiarGvCorteShowHeader();
LimpiarGvResultadoShowHeader();
@@ -959,7 +959,7 @@ public partial class Empaque : ClsPaginas
ClsInventarios ObjInv = new ClsInventarios(ObjProd.IniciaTransacSQL());
var CveAlmacen = DdlAlmacen.SelectedValue.ToEntero();
var Concepto = 3;
- var Fecha = DateTime.Now;
+ var Fecha = NowADS();
var CveCorte = 0;
StringBuilder MensajeExistencias = new StringBuilder();
var ExistenciaActual = 0.0;
@@ -1284,7 +1284,7 @@ public partial class Empaque : ClsPaginas
List para = new List();
para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));
para.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
- para.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToString()));
+ para.Add(new ReportParameter("FechaImpresion", NowADS().ToString()));
para.Add(new ReportParameter("Folio", Folio));
para.Add(new ReportParameter("Huerta", DdlHuerta.SelectedItem.Text));
para.Add(new ReportParameter("Observaciones", TxtObservacion.Text));
diff --git a/CGame/EntradaMateriaPrima.aspx.cs b/CGame/EntradaMateriaPrima.aspx.cs
index 54d0fb485..32e4e81f1 100644
--- a/CGame/EntradaMateriaPrima.aspx.cs
+++ b/CGame/EntradaMateriaPrima.aspx.cs
@@ -31,8 +31,8 @@ public partial class CATCorte : ClsPaginas
{
{
CveOrdenCorte = Request["CveOrdenCorte"] == null ? -1 : Request["CveOrdenCorte"].ToString().ToEntero();
CveHuerta = Request["CveHuerta"] == null ? 0 : Request["CveHuerta"].ToString().ToEntero();
- txtFechaI.Text = DateTime.Now.AddMonths(-1).ToShortDateString();
- txtFechaF.Text = DateTime.Now.ToShortDateString();
+ txtFechaI.Text = NowADS().AddMonths(-1).ToShortDateString();
+ txtFechaF.Text = NowADS().ToShortDateString();
CargaMotivo();
CargaOrdenCorte();
CargaHuerta();
CargaEmpaque();
CargaBitacora();
CargaFletes();
@@ -143,7 +143,7 @@ public partial class CATCorte : ClsPaginas
{
#endregion
#region Limpia Modal
protected void LimpiaCorte()
{
- TxtFecha.Text = DateTime.Now.ToString();
TxtPeso.Text = "";
+ TxtFecha.Text = NowADS().ToString();
TxtPeso.Text = "";
DdlOrdenCorte.SelectedIndex = 0;
TxtObservacion.Text = "";
TxtModalAdjuntoArchivo.Text = "";
TxtTicketBascula.Text = "";
TxtPesoMerma.Text = "";
DdlMotivo.SelectedIndex = 0;
DdlFlete.SelectedIndex = 0;
DdlEmpaque.SelectedIndex = 0;
UPModalCort.Update();
}
@@ -413,7 +413,7 @@ public partial class CATCorte : ClsPaginas
{
List para = new List();
para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));
para.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
- para.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToString()));
+ para.Add(new ReportParameter("FechaImpresion", NowADS().ToString()));
para.Add(new ReportParameter("FolioOC",Dt.Rows[0]["FolioOC"].ToString()));
para.Add(new ReportParameter("TicketBascula", Dt.Rows[0]["TicketBascula"].ToString()));
para.Add(new ReportParameter("Peso", Dt.Rows[0]["Peso"].ToString().FormatoNumero()));
diff --git a/CGame/Fletes.aspx.cs b/CGame/Fletes.aspx.cs
index 12d1cad18..a3d898b74 100644
--- a/CGame/Fletes.aspx.cs
+++ b/CGame/Fletes.aspx.cs
@@ -88,8 +88,8 @@ public partial class CGame_Fletes : ClsPaginas
protected void InicializaValores()
{
- TxtFiltrosFechaInicio.Text = DateTime.Now.FirstDayOfMonth().ToShortDateString();
- TxtFiltrosFechaFin.Text = DateTime.Now.ToShortDateString();
+ TxtFiltrosFechaInicio.Text = NowADS().FirstDayOfMonth().ToShortDateString();
+ TxtFiltrosFechaFin.Text = NowADS().ToShortDateString();
CveOrdenCorteOpcion = Request["CveOrdenCorte"] == null ? 0 : Request["CveOrdenCorte"].ToString().ToEntero();
CveOrdenProduccionOpcion = Request["CveOrdenProduccion"] == null ? 0 : Request["CveOrdenProduccion"].ToString().ToEntero();
CveHuerta = Request["CveHuerta"] == null ? 0 : Request["CveHuerta"].ToString().ToEntero();
@@ -275,7 +275,7 @@ public partial class CGame_Fletes : ClsPaginas
TxtChofer.Text = "";
TxtColor.Text = "";
TxtPlaca.Text = "";
- TxtFecha.Text = DateTime.Now.ToString();
+ TxtFecha.Text = NowADS().ToString();
ChkConCruce.Checked = false;
ChkCalculaImporte.Checked = false;
UpModalFleteAdd.Update();
@@ -475,7 +475,7 @@ public partial class CGame_Fletes : ClsPaginas
if (DdlTipo.SelectedValue == "1" && DdlTipoFlete.SelectedValue == "2")
{
int CveCorteGasto = 0;
- if (ObjCGame.AddCorteGasto(CveOrdenCorte, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DateTime.Now, 0.0))
+ if (ObjCGame.AddCorteGasto(CveOrdenCorte, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, NowADS(), 0.0))
{
CveCorteGasto = ObjCGame.CveCorteGasto;
if (ObjCGame.AddCorteGastoDetalle(CveCorteGasto, 16, 1, TxtImporte.Text.ToDouble()) == false)
@@ -1002,7 +1002,7 @@ public partial class CGame_Fletes : ClsPaginas
worksheet.Rows[IndexEndTable + 1].Cells[2].Value = Usuario.Nombre;
worksheet.Rows[IndexEndTable].Cells[6].Value = "Fecha Impresión";
- worksheet.Rows[IndexEndTable + 1].Cells[6].Value = DateTime.Now.ToString("dd/MM/yyyy");
+ worksheet.Rows[IndexEndTable + 1].Cells[6].Value = NowADS().ToString("dd/MM/yyyy");
}
}
htw.Dispose();
diff --git a/CGame/GenerarOrdenCorte.aspx.cs b/CGame/GenerarOrdenCorte.aspx.cs
index 52917b5e7..bb17f04b4 100644
--- a/CGame/GenerarOrdenCorte.aspx.cs
+++ b/CGame/GenerarOrdenCorte.aspx.cs
@@ -109,7 +109,7 @@ public partial class CGame_GenerarOrdenCorte : ClsPaginas
protected void LimpiaModal()
{
- TxtFechaCorte.Text = DateTime.Now.ToShortDateString();
+ TxtFechaCorte.Text = NowADS().ToShortDateString();
DdlHuerta.SelectedIndex = 0;
TxtCuadro.Text = "";
TxtPeso.Text = "";
diff --git a/CGame/Liquidacion.aspx.cs b/CGame/Liquidacion.aspx.cs
index e57a6ba03..39055f314 100644
--- a/CGame/Liquidacion.aspx.cs
+++ b/CGame/Liquidacion.aspx.cs
@@ -227,8 +227,8 @@ public partial class CGame_Liquidacion : ClsPaginas
private void InicializaValores()
{
CargaHuerta();
- txtFechaI.Text = DateTime.Now.FirstDayOfMonth().ToShortDateString();
- txtFechaF.Text = DateTime.Now.ToShortDateString();
+ txtFechaI.Text = NowADS().FirstDayOfMonth().ToShortDateString();
+ txtFechaF.Text = NowADS().ToShortDateString();
UPFiltros.Update();
}
@@ -279,7 +279,7 @@ public partial class CGame_Liquidacion : ClsPaginas
List para = new List();
para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));
para.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
- para.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToString()));
+ para.Add(new ReportParameter("FechaImpresion", NowADS().ToString()));
para.Add(new ReportParameter("Huerta", DdlHuerta.SelectedItem.Text));
para.Add(new ReportParameter("TotPrecioPri", TotIngresosPri.FormatoNumero()));
para.Add(new ReportParameter("TotPrecioSeg", TotIngresosSeg.FormatoNumero()));
diff --git a/CGame/OrdenProduccion.aspx.vb b/CGame/OrdenProduccion.aspx.vb
index 6556d3e22..27f74b826 100644
--- a/CGame/OrdenProduccion.aspx.vb
+++ b/CGame/OrdenProduccion.aspx.vb
@@ -226,7 +226,7 @@ Partial Class CGame_OrdenProduccion
#Region "CARGAS"
Protected Sub CargaDatos()
- TxtFechaFlete.Text = Now.AddDays(0).ToShortDateString
+ TxtFechaFlete.Text = NowADS().AddDays(0).ToShortDateString
If CveOrdenProduccion > -1 Then
Dim ObjOP As New ClsCGame()
If ObjOP.GetOrdenProduccion(CveOrdenProduccion, UsuarioActual.CveEmpresa, -1, "-1", MinFecha, MaxFecha, -1) Then
@@ -918,7 +918,7 @@ Partial Class CGame_OrdenProduccion
Protected Sub LnkEditarMasivo_Click(sender As Object, e As EventArgs)
RegistraScript("$('#DivUpdateMasivo').modal()")
- TxtFechaUpdate.Text = Now.ToShortDateString()
+ TxtFechaUpdate.Text = NowADS().ToShortDateString()
UpMasivo.Update()
End Sub
@@ -982,8 +982,8 @@ Partial Class CGame_OrdenProduccion
Protected Sub LimpiaPagina()
lblNombreUsuario.Text = UsuarioActual.Nombre
- TxtFecha.Text = Now.AddDays(0).ToShortDateString
- TxtFechaEntrega.Text = Now.AddDays(0).ToShortDateString
+ TxtFecha.Text = NowADS().AddDays(0).ToShortDateString
+ TxtFechaEntrega.Text = NowADS().AddDays(0).ToShortDateString
TxtObservacion.Text = ""
DdlCliente.SelectedValue = "-1"
UPDatosOrden.Update()
@@ -1117,7 +1117,7 @@ Partial Class CGame_OrdenProduccion
'Protected Sub GvOrdenCorte_RowDataBound(sender As Object, e As GridViewRowEventArgs)
' If e.Row.RowType = DataControlRowType.DataRow Then
' If CveOrdenProduccion > 0 Then
- ' e.Row.FCTextBox("TxtFechaCorte").Text = Date.Now.ToShortDateString()
+ ' e.Row.FCTextBox("TxtFechaCorte").Text = NowADS().ToShortDateString()
' Dim ObjCGame As New ClsCGame
' If ObjCGame.GetHuerta(UsuarioActual.CveEmpresa) Then
' e.Row.FCDropDownList("DdlHuerta").DataSource = ObjCGame.DtResultados
@@ -1176,8 +1176,8 @@ Partial Class CGame_OrdenProduccion
Private Sub BtnCreaPartir_Click(sender As Object, e As EventArgs) Handles BtnCreaPartir.Click
CargaFolio()
lblNombreUsuario.Text = UsuarioActual.Nombre
- TxtFecha.Text = Now.AddDays(0).ToShortDateString
- TxtFechaEntrega.Text = Now.AddDays(0).ToShortDateString
+ TxtFecha.Text = NowADS().AddDays(0).ToShortDateString
+ TxtFechaEntrega.Text = NowADS().AddDays(0).ToShortDateString
TrEstatus.Visible = False
CveOrdenProduccion = -1
LnkEliminarOrdenProduccion.Visible = False
@@ -1251,7 +1251,7 @@ Partial Class CGame_OrdenProduccion
' DrNew("Peso") = 0.0
' DrNew("Cuadro") = 0
' DrNew("Observacion") = ""
- ' DrNew("FechaCorte") = Date.Now.ToShortDateString
+ ' DrNew("FechaCorte") = NowADS().ToShortDateString
' DtDetalleCorte.Rows.InsertAt(DrNew, Index)
' DtDetalleCorte.AcceptChanges()
@@ -1660,7 +1660,7 @@ Partial Class CGame_OrdenProduccion
TxtNombreManifiesto.Text = ""
TxtDireccionManifiesto.Text = ""
TxtCiudadManifiesto.Text = ""
- TxtFechaManifiesto.Text = Now.ToShortDateString()
+ TxtFechaManifiesto.Text = NowADS().ToShortDateString()
UpManifiesto.Update()
End Sub
@@ -1681,7 +1681,7 @@ Partial Class CGame_OrdenProduccion
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
- params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Folio", ObjCGame.DtResultados.Rows(0)("Folio").ToString))
params.Add(New ReportParameter("Nombre", ObjCGame.DtResultados.Rows(0)("Nombre").ToString))
params.Add(New ReportParameter("Direccion", ObjCGame.DtResultados.Rows(0)("Direccion").ToString))
@@ -1696,7 +1696,7 @@ Partial Class CGame_OrdenProduccion
params.Add(New ReportParameter("CantidadConLetra", Texto2Letras(Dt.SUM("Importe").ToString.ToDouble, 2)))
End If
End If
- ImprimirPDF("Empresas/Grales/Formatos/Manifiesto.rdlc", Dt, params, String.Format("Manifiesto -{0}", Now.ToDateTime.ToShortDateString))
+ ImprimirPDF("Empresas/Grales/Formatos/Manifiesto.rdlc", Dt, params, String.Format("Manifiesto -{0}", NowADS().ToDateTime.ToShortDateString))
Else
Alert("No se encontraron resultados", TipoMensaje.MsgAdvertencia)
End If
diff --git a/CGame/PopUpBuscarCorteGasto.aspx.cs b/CGame/PopUpBuscarCorteGasto.aspx.cs
index d7c7ee027..4fa90fb89 100644
--- a/CGame/PopUpBuscarCorteGasto.aspx.cs
+++ b/CGame/PopUpBuscarCorteGasto.aspx.cs
@@ -14,8 +14,8 @@ public partial class CGame_PopUpBuscarProduccion :ClsPaginas
if (!IsPostBack)
{
((BaseMasterPage) this.Master).EsPopup = true;
- TxtFechaEntregaI.Text = DateTime.Now.ToString();
- TxtFechaEntregaF.Text = DateTime.Now.ToString();
+ TxtFechaEntregaI.Text = NowADS().ToString();
+ TxtFechaEntregaF.Text = NowADS().ToString();
CargaHuerta();
}
diff --git a/CGame/PopUpBuscarEmpaque.aspx.cs b/CGame/PopUpBuscarEmpaque.aspx.cs
index e6e304158..50c44b797 100644
--- a/CGame/PopUpBuscarEmpaque.aspx.cs
+++ b/CGame/PopUpBuscarEmpaque.aspx.cs
@@ -7,8 +7,8 @@ public partial class CGame_PopUpBuscarProduccion :ClsPaginas
if (!IsPostBack)
{
((BaseMasterPage) this.Master).EsPopup = true;
- TxtFechaEntregaI.Text = DateTime.Now.ToString();
- TxtFechaEntregaF.Text = DateTime.Now.ToString();
+ TxtFechaEntregaI.Text = NowADS().ToString();
+ TxtFechaEntregaF.Text = NowADS().ToString();
CargaHuerta();
}
diff --git a/CGame/PopUpBuscarOrdenProduccion.aspx.vb b/CGame/PopUpBuscarOrdenProduccion.aspx.vb
index ce1cd631e..4df68e1fd 100644
--- a/CGame/PopUpBuscarOrdenProduccion.aspx.vb
+++ b/CGame/PopUpBuscarOrdenProduccion.aspx.vb
@@ -8,8 +8,8 @@ Partial Class CGame_PopUpBuscarOrdenProduccion
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
CType(Me.Master, BaseMasterPage).EsPopup = True
- TxtFechaEntregaI.Text = Now.AddDays(0).ToShortDateString
- TxtFechaEntregaF.Text = Now.AddDays(0).ToShortDateString
+ TxtFechaEntregaI.Text = NowADS().AddDays(0).ToShortDateString
+ TxtFechaEntregaF.Text = NowADS().AddDays(0).ToShortDateString
CargaCliente()
CargaEstatus()
End If
diff --git a/CGame/RepAvance.aspx.cs b/CGame/RepAvance.aspx.cs
index 2674fee72..2bbb2818e 100644
--- a/CGame/RepAvance.aspx.cs
+++ b/CGame/RepAvance.aspx.cs
@@ -221,7 +221,7 @@ public partial class CGame_RepAvance : ClsPaginas
// List para = new List();
// para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));
// para.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
- // para.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToString()));
+ // para.Add(new ReportParameter("FechaImpresion", NowADS().ToString()));
// para.Add(new ReportParameter("Huerta", DdlHuerta.SelectedItem.Text));
// para.Add(new ReportParameter("UtilidadPrimera", (TotIngresosPrimera - TotGastosPrimera).FormatoNumero()));
// para.Add(new ReportParameter("UtilidadSegunda", (TotIngresosSegunda - TotGastosSegunda).FormatoNumero()));
diff --git a/CGame/RepCorte.aspx.cs b/CGame/RepCorte.aspx.cs
index 2fa15bc8d..b258a0fd0 100644
--- a/CGame/RepCorte.aspx.cs
+++ b/CGame/RepCorte.aspx.cs
@@ -18,8 +18,8 @@ public partial class CGame_RepCorte : ClsPaginas
{
InicializaValores();
DdlHuerta.SelectedValueExist(Request["CveHuerta"] == null ? "-1" : Request["CveHuerta"].ToString());
- txtFechaI.Text = Request["FechaI"] == null ? DateTime.Now.ToString() : Request["FechaI"].ToString();
- txtFechaF.Text = Request["FechaF"] == null ? DateTime.Now.ToString() : Request["FechaF"].ToString();
+ txtFechaI.Text = Request["FechaI"] == null ? NowADS().ToString() : Request["FechaI"].ToString();
+ txtFechaF.Text = Request["FechaF"] == null ? NowADS().ToString() : Request["FechaF"].ToString();
if (DdlHuerta.SelectedValue.ToEntero() > 0) { Consulta(); }
}
}
@@ -27,8 +27,8 @@ public partial class CGame_RepCorte : ClsPaginas
private void InicializaValores()
{
CargaHuerta();
- txtFechaI.Text = DateTime.Now.FirstDayOfMonth().ToShortDateString();
- txtFechaF.Text = DateTime.Now.ToShortDateString();
+ txtFechaI.Text = NowADS().FirstDayOfMonth().ToShortDateString();
+ txtFechaF.Text = NowADS().ToShortDateString();
UPFiltros.Update();
}
diff --git a/CGame/RepCorteGasto.aspx.cs b/CGame/RepCorteGasto.aspx.cs
index 61f5abd0c..98aef7d05 100644
--- a/CGame/RepCorteGasto.aspx.cs
+++ b/CGame/RepCorteGasto.aspx.cs
@@ -29,8 +29,8 @@ public partial class CGame_RepCorteGasto : ClsPaginas
{
CargaConceptos();
CargaHuerta();
- txtFechaI.Text = DateTime.Now.ToShortDateString();
- txtFechaF.Text = DateTime.Now.ToShortDateString();
+ txtFechaI.Text = NowADS().ToShortDateString();
+ txtFechaF.Text = NowADS().ToShortDateString();
CveHuerta = Request["CveHuerta"] == null ? 0 : Request["CveHuerta"].ToString().ToEntero();
Modalidad = Request["Modalidad"] == null ? 0 : Request["Modalidad"].ToString().ToEntero();
if (CveHuerta > 0)
diff --git a/CGame/RepEmpaque.aspx.cs b/CGame/RepEmpaque.aspx.cs
index cf82758c2..bb419f77d 100644
--- a/CGame/RepEmpaque.aspx.cs
+++ b/CGame/RepEmpaque.aspx.cs
@@ -26,12 +26,12 @@ public partial class CGame_RepEmpaque : ClsPaginas
{
if (!IsPostBack)
{
- txtFechaI.Text = DateTime.Now.ToString();
- txtFechaF.Text = DateTime.Now.ToString();
+ txtFechaI.Text = NowADS().ToString();
+ txtFechaF.Text = NowADS().ToString();
CveHuerta = Request["CveHuerta"] == null ? 0 : Request["CveHuerta"].ToString().ToEntero();
Modalidad = Request["Modalidad"] == null ? 0 : Request["Modalidad"].ToString().ToEntero();
- txtFechaI.Text = Request["FechaI"] == null ? DateTime.Now.ToString() : Request["FechaI"].ToString();
- txtFechaF.Text = Request["FechaF"] == null ? DateTime.Now.ToString() : Request["FechaF"].ToString();
+ txtFechaI.Text = Request["FechaI"] == null ? NowADS().ToString() : Request["FechaI"].ToString();
+ txtFechaF.Text = Request["FechaF"] == null ? NowADS().ToString() : Request["FechaF"].ToString();
CargaHuerta();
if (CveHuerta > 0) { DdlHuerta.SelectedValueExist(CveHuerta); }
if (Modalidad > 0) { DdlModalidad.SelectedValueExist(Modalidad); }
@@ -125,7 +125,7 @@ public partial class CGame_RepEmpaque : ClsPaginas
List para = new List();
para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));
para.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
- para.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToString()));
+ para.Add(new ReportParameter("FechaImpresion", NowADS().ToString()));
para.Add(new ReportParameter("AgrupadoPor", $"Agrupado Por: {Folio}{Huerta}{FechaI}{FechaF}"));
if (Imagen.Exists)
{
diff --git a/CGame/RepEmpaqueDetalle.aspx.cs b/CGame/RepEmpaqueDetalle.aspx.cs
index 0a10260fc..bb030fadf 100644
--- a/CGame/RepEmpaqueDetalle.aspx.cs
+++ b/CGame/RepEmpaqueDetalle.aspx.cs
@@ -23,8 +23,8 @@ public partial class CGame_RepEmpaque : ClsPaginas
if (!IsPostBack)
{
CargaHuerta();
- txtFechaI.Text = Request["FechaInicial"] == null ? DateTime.Now.ToShortDateString() : Request["FechaInicial"].ToString().ToString();
- txtFechaF.Text = Request["FechaFinal"] == null ? DateTime.Now.ToShortDateString() : Request["FechaFinal"].ToString().ToString();
+ txtFechaI.Text = Request["FechaInicial"] == null ? NowADS().ToShortDateString() : Request["FechaInicial"].ToString().ToString();
+ txtFechaF.Text = Request["FechaFinal"] == null ? NowADS().ToShortDateString() : Request["FechaFinal"].ToString().ToString();
DdlHuerta.SelectedValueExist(Request["CveHuerta"] == null ? -1 : Request["CveHuerta"].ToString().ToEntero());
TxtFolio.Text = Request["Folio"] == null ? "" : Request["Folio"].ToString().ToString();
CveProduccion = Request["CveProduccion"] == null ? -1 : Request["CveProduccion"].ToString().ToEntero();
diff --git a/CGame/RepFletes.aspx.cs b/CGame/RepFletes.aspx.cs
index 5a1bc61c7..9515f3847 100644
--- a/CGame/RepFletes.aspx.cs
+++ b/CGame/RepFletes.aspx.cs
@@ -8,8 +8,8 @@ public partial class CGame_RepFletes : ClsPaginas
{
InicializaValores();
DdlHuerta.SelectedValueExist(Request["CveHuerta"] == null ? "-1" : Request["CveHuerta"].ToString());
- txtFechaI.Text = Request["FechaI"] == null ? DateTime.Now.ToString() : Request["FechaI"].ToString();
- txtFechaF.Text = Request["FechaF"] == null ? DateTime.Now.ToString() : Request["FechaF"].ToString();
+ txtFechaI.Text = Request["FechaI"] == null ? NowADS().ToString() : Request["FechaI"].ToString();
+ txtFechaF.Text = Request["FechaF"] == null ? NowADS().ToString() : Request["FechaF"].ToString();
DdlTipo.SelectedValueExist(Request["Tipo"] == null ? "-1" : Request["Tipo"].ToString());
if (DdlHuerta.SelectedValue.ToEntero() > 0) { Consulta(); }
}
@@ -18,8 +18,8 @@ public partial class CGame_RepFletes : ClsPaginas
private void InicializaValores()
{
CargaHuerta();
- txtFechaI.Text = DateTime.Now.FirstDayOfMonth().ToShortDateString();
- txtFechaF.Text = DateTime.Now.ToShortDateString();
+ txtFechaI.Text = NowADS().FirstDayOfMonth().ToShortDateString();
+ txtFechaF.Text = NowADS().ToShortDateString();
UPFiltros.Update();
}
diff --git a/CGame/RepIngresos.aspx.cs b/CGame/RepIngresos.aspx.cs
index fc75aeeae..0ef0629e8 100644
--- a/CGame/RepIngresos.aspx.cs
+++ b/CGame/RepIngresos.aspx.cs
@@ -8,8 +8,8 @@ public partial class CGame_RepIngresos : ClsPaginas
{
InicializaValores();
DdlHuerta.SelectedValueExist(Request["CveHuerta"] == null ? "-1" : Request["CveHuerta"].ToString());
- txtFechaI.Text = Request["FechaI"] == null ? DateTime.Now.ToString() : Request["FechaI"].ToString();
- txtFechaF.Text = Request["FechaF"] == null ? DateTime.Now.ToString() : Request["FechaF"].ToString();
+ txtFechaI.Text = Request["FechaI"] == null ? NowADS().ToString() : Request["FechaI"].ToString();
+ txtFechaF.Text = Request["FechaF"] == null ? NowADS().ToString() : Request["FechaF"].ToString();
if (DdlHuerta.SelectedValue.ToEntero() > 0) { Consulta(); }
}
}
@@ -17,8 +17,8 @@ public partial class CGame_RepIngresos : ClsPaginas
private void InicializaValores()
{
CargaHuerta();
- txtFechaI.Text = DateTime.Now.FirstDayOfMonth().ToShortDateString();
- txtFechaF.Text = DateTime.Now.ToShortDateString();
+ txtFechaI.Text = NowADS().FirstDayOfMonth().ToShortDateString();
+ txtFechaF.Text = NowADS().ToShortDateString();
UPFiltros.Update();
}
diff --git a/CGame/RepMaquila.aspx.cs b/CGame/RepMaquila.aspx.cs
index af0f46588..032b12705 100644
--- a/CGame/RepMaquila.aspx.cs
+++ b/CGame/RepMaquila.aspx.cs
@@ -8,8 +8,8 @@ public partial class CGame_RepMaquila : ClsPaginas
{
InicializaValores();
DdlHuerta.SelectedValueExist(Request["CveHuerta"] == null ? "-1" : Request["CveHuerta"].ToString());
- txtFechaI.Text = Request["FechaI"] == null ? DateTime.Now.ToString() : Request["FechaI"].ToString();
- txtFechaF.Text = Request["FechaF"] == null ? DateTime.Now.ToString() : Request["FechaF"].ToString();
+ txtFechaI.Text = Request["FechaI"] == null ? NowADS().ToString() : Request["FechaI"].ToString();
+ txtFechaF.Text = Request["FechaF"] == null ? NowADS().ToString() : Request["FechaF"].ToString();
if (DdlHuerta.SelectedValue.ToEntero() > 0) { Consulta(); }
}
}
@@ -17,8 +17,8 @@ public partial class CGame_RepMaquila : ClsPaginas
private void InicializaValores()
{
CargaHuerta();
- txtFechaI.Text = DateTime.Now.FirstDayOfMonth().ToShortDateString();
- txtFechaF.Text = DateTime.Now.ToShortDateString();
+ txtFechaI.Text = NowADS().FirstDayOfMonth().ToShortDateString();
+ txtFechaF.Text = NowADS().ToShortDateString();
UPFiltros.Update();
}
diff --git a/CGame/RepMateriales.aspx.cs b/CGame/RepMateriales.aspx.cs
index 2cb6eb3e8..0683bebed 100644
--- a/CGame/RepMateriales.aspx.cs
+++ b/CGame/RepMateriales.aspx.cs
@@ -9,8 +9,8 @@ public partial class CGame_RepMateriales : ClsPaginas
{
InicializaValores();
DdlHuerta.SelectedValueExist(Request["CveHuerta"] == null ? "-1" : Request["CveHuerta"].ToString());
- txtFechaI.Text = Request["FechaI"] == null ? DateTime.Now.ToString() : Request["FechaI"].ToString();
- txtFechaF.Text = Request["FechaF"] == null ? DateTime.Now.ToString() : Request["FechaF"].ToString();
+ txtFechaI.Text = Request["FechaI"] == null ? NowADS().ToString() : Request["FechaI"].ToString();
+ txtFechaF.Text = Request["FechaF"] == null ? NowADS().ToString() : Request["FechaF"].ToString();
if (DdlHuerta.SelectedValue.ToEntero() > 0) { Consulta(); }
}
}
@@ -18,8 +18,8 @@ public partial class CGame_RepMateriales : ClsPaginas
private void InicializaValores()
{
CargaHuerta();
- txtFechaI.Text = DateTime.Now.FirstDayOfMonth().ToShortDateString();
- txtFechaF.Text = DateTime.Now.ToShortDateString();
+ txtFechaI.Text = NowADS().FirstDayOfMonth().ToShortDateString();
+ txtFechaF.Text = NowADS().ToShortDateString();
UPFiltros.Update();
}
diff --git a/CGame/RepOrdenCorte.aspx.cs b/CGame/RepOrdenCorte.aspx.cs
index e46fb67f9..22c22ae8e 100644
--- a/CGame/RepOrdenCorte.aspx.cs
+++ b/CGame/RepOrdenCorte.aspx.cs
@@ -18,12 +18,12 @@ public partial class CGame_RepOrdenCorte : ClsPaginas
{
if (!IsPostBack)
{
- txtFechaI.Text = DateTime.Now.ToString();
- txtFechaF.Text = DateTime.Now.ToString();
+ txtFechaI.Text = NowADS().ToString();
+ txtFechaF.Text = NowADS().ToString();
CargaHuerta();
DdlHuerta.SelectedValueExist(Request["CveHuerta"] == null ? "-1" : Request["CveHuerta"].ToString());
- txtFechaI.Text = Request["FechaI"] == null ? DateTime.Now.ToString() : Request["FechaI"].ToString();
- txtFechaF.Text = Request["FechaF"] == null ? DateTime.Now.ToString() : Request["FechaF"].ToString();
+ txtFechaI.Text = Request["FechaI"] == null ? NowADS().ToString() : Request["FechaI"].ToString();
+ txtFechaF.Text = Request["FechaF"] == null ? NowADS().ToString() : Request["FechaF"].ToString();
if (DdlHuerta.SelectedValue.ToEntero() > 0) { Consultar(); }
}
}
@@ -76,7 +76,7 @@ public partial class CGame_RepOrdenCorte : ClsPaginas
List para = new List();
para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));
para.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
- para.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToString()));
+ para.Add(new ReportParameter("FechaImpresion", NowADS().ToString()));
para.Add(new ReportParameter("AgrupadoPor", $"Agrupado Por: {Folio}{Huerta}{FechaI}{FechaF}"));
if (Imagen.Exists)
{
diff --git a/CGame/RepOrdenCorteDetalle.aspx.cs b/CGame/RepOrdenCorteDetalle.aspx.cs
index 189822bfe..681972547 100644
--- a/CGame/RepOrdenCorteDetalle.aspx.cs
+++ b/CGame/RepOrdenCorteDetalle.aspx.cs
@@ -32,7 +32,7 @@ public partial class CGame_RepOrdenCorteDetalle : ClsPaginas
{
if (!IsPostBack)
{
- TxtFechaFlete.Text = DateTime.Now.ToShortDateString();
+ TxtFechaFlete.Text = NowADS().ToShortDateString();
CveOrdenCorte = Request["CveOrdenCorte"] == null ? 0 : Request["CveOrdenCorte"].ToString().ToEntero();
CargaDatos();
}
@@ -383,7 +383,7 @@ public partial class CGame_RepOrdenCorteDetalle : ClsPaginas
}
EnviarCorreo(CveOrdenCorte, Body, Descripcion);
Alert("La fecha del flete se asigno correctamente");
- TxtFechaFlete.Text = DateTime.Now.ToShortDateString();
+ TxtFechaFlete.Text = NowADS().ToShortDateString();
DdlEmpaque.SelectedIndex = 0;
LnkFletes.Visible = true;
UpAcciones.Update();
diff --git a/CGame/RepOrdenProduccion.aspx.cs b/CGame/RepOrdenProduccion.aspx.cs
index c466d2a9f..f96183645 100644
--- a/CGame/RepOrdenProduccion.aspx.cs
+++ b/CGame/RepOrdenProduccion.aspx.cs
@@ -42,8 +42,8 @@ public partial class CGame_RepOrdenProduccion :ClsPaginas
}
else
{
- txtFechaI.Text = DateTime.Now.ToString();
- txtFechaF.Text = DateTime.Now.ToString();
+ txtFechaI.Text = NowADS().ToString();
+ txtFechaF.Text = NowADS().ToString();
}
}
@@ -128,7 +128,7 @@ public partial class CGame_RepOrdenProduccion :ClsPaginas
List para = new List();
para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));
para.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
- para.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToString()));
+ para.Add(new ReportParameter("FechaImpresion", NowADS().ToString()));
para.Add(new ReportParameter("AgrupadoPor", $"Agrupado Por: {Folio}{Estatus}{Cliente}{FechaI}{FechaF}"));
if (Imagen.Exists)
{
diff --git a/CGame/RepOrdenProduccionXHuerta.aspx.cs b/CGame/RepOrdenProduccionXHuerta.aspx.cs
index f8b194355..7d641a328 100644
--- a/CGame/RepOrdenProduccionXHuerta.aspx.cs
+++ b/CGame/RepOrdenProduccionXHuerta.aspx.cs
@@ -15,8 +15,8 @@ public partial class CGame_RepOrdenProduccionXHuerta : ClsPaginas
private void InicializaValores()
{
CargaHuerta();
- txtFechaI.Text = DateTime.Now.FirstDayOfMonth().ToShortDateString();
- txtFechaF.Text = DateTime.Now.ToShortDateString();
+ txtFechaI.Text = NowADS().FirstDayOfMonth().ToShortDateString();
+ txtFechaF.Text = NowADS().ToShortDateString();
UPFiltros.Update();
}
diff --git a/CGame/RepOtrosGastos.aspx.cs b/CGame/RepOtrosGastos.aspx.cs
index f72dc7ae5..079931f0a 100644
--- a/CGame/RepOtrosGastos.aspx.cs
+++ b/CGame/RepOtrosGastos.aspx.cs
@@ -9,8 +9,8 @@ public partial class CGame_RepOtrosGastos : ClsPaginas
{
InicializaValores();
DdlHuerta.SelectedValueExist(Request["CveHuerta"] == null ? "-1" : Request["CveHuerta"].ToString());
- txtFechaI.Text = Request["FechaI"] == null ? DateTime.Now.ToString() : Request["FechaI"].ToString();
- txtFechaF.Text = Request["FechaF"] == null ? DateTime.Now.ToString() : Request["FechaF"].ToString();
+ txtFechaI.Text = Request["FechaI"] == null ? NowADS().ToString() : Request["FechaI"].ToString();
+ txtFechaF.Text = Request["FechaF"] == null ? NowADS().ToString() : Request["FechaF"].ToString();
if (DdlHuerta.SelectedValue.ToEntero() > 0) { Consulta(); }
}
}
@@ -18,8 +18,8 @@ public partial class CGame_RepOtrosGastos : ClsPaginas
private void InicializaValores()
{
CargaHuerta();
- txtFechaI.Text = DateTime.Now.FirstDayOfMonth().ToShortDateString();
- txtFechaF.Text = DateTime.Now.ToShortDateString();
+ txtFechaI.Text = NowADS().FirstDayOfMonth().ToShortDateString();
+ txtFechaF.Text = NowADS().ToShortDateString();
UPFiltros.Update();
}
diff --git a/CGame/RepPreEnfriado.aspx.cs b/CGame/RepPreEnfriado.aspx.cs
index 6d4b3b9db..72e2c9ddc 100644
--- a/CGame/RepPreEnfriado.aspx.cs
+++ b/CGame/RepPreEnfriado.aspx.cs
@@ -9,8 +9,8 @@ public partial class CGame_RepPreEnfriado : ClsPaginas
{
InicializaValores();
DdlHuerta.SelectedValueExist(Request["CveHuerta"] == null ? "-1" : Request["CveHuerta"].ToString());
- txtFechaI.Text = Request["FechaI"] == null ? DateTime.Now.ToString() : Request["FechaI"].ToString();
- txtFechaF.Text = Request["FechaF"] == null ? DateTime.Now.ToString() : Request["FechaF"].ToString();
+ txtFechaI.Text = Request["FechaI"] == null ? NowADS().ToString() : Request["FechaI"].ToString();
+ txtFechaF.Text = Request["FechaF"] == null ? NowADS().ToString() : Request["FechaF"].ToString();
ChkLiquidado.Checked= Convert.ToBoolean(Request["Liquidado"] == null ? 0 : Request["Liquidado"].ToString().ToEntero());
if (DdlHuerta.SelectedValue.ToEntero() > 0) { Consulta(); }
}
@@ -19,8 +19,8 @@ public partial class CGame_RepPreEnfriado : ClsPaginas
private void InicializaValores()
{
CargaHuerta();
- txtFechaI.Text = DateTime.Now.FirstDayOfMonth().ToShortDateString();
- txtFechaF.Text = DateTime.Now.ToShortDateString();
+ txtFechaI.Text = NowADS().FirstDayOfMonth().ToShortDateString();
+ txtFechaF.Text = NowADS().ToShortDateString();
UPFiltros.Update();
}
diff --git a/CRM/Acercamiento.aspx.cs b/CRM/Acercamiento.aspx.cs
index 0962862e8..4a2f24e5d 100644
--- a/CRM/Acercamiento.aspx.cs
+++ b/CRM/Acercamiento.aspx.cs
@@ -410,7 +410,7 @@ public partial class CRM_Acercamiento : ClsPaginas
DdlMedioCaptacion.SelectedValueExist(objAcercamiento.Result[0].CveMedioCaptacion);
//CARGA MODAL CIERRE-CANCELACION
- TxtFechaCierreRechazo.Text = (objAcercamiento.Result[0].FechaCierre.ToString() == "") ? DateTime.Now.ToShortDateString() : objAcercamiento.Result[0].FechaCierre.ToDateTime().ToShortDateString();
+ TxtFechaCierreRechazo.Text = (objAcercamiento.Result[0].FechaCierre.ToString() == "") ? NowADS().ToShortDateString() : objAcercamiento.Result[0].FechaCierre.ToDateTime().ToShortDateString();
DdlRechazoMotivo.SelectedValueExist(objAcercamiento.Result[0].CveRechazoMotivo);
TxtObservacionRechazo.Text = objAcercamiento.Result[0].ObservacionRechazo;
@@ -538,7 +538,7 @@ public partial class CRM_Acercamiento : ClsPaginas
CveEncuestaAplicadaProceso = -1;
RecuperaCve();
- TxtFechaApertura.Text = DateTime.Now.ToShortDateString();
+ TxtFechaApertura.Text = NowADS().ToShortDateString();
}
protected void RecuperaCve()
@@ -694,7 +694,7 @@ public partial class CRM_Acercamiento : ClsPaginas
{
if (ActivaFechaCierre(DdlEtapaProceso.SelectedValue.ToEntero()))
{
- TxtFechaCierre.Text = DateTime.Now.ToShortDateString();
+ TxtFechaCierre.Text = NowADS().ToShortDateString();
}
else
{
@@ -816,7 +816,7 @@ public partial class CRM_Acercamiento : ClsPaginas
if (DTEtapasProceso.FiltraParametros(String.Format("CveEtapaProceso = {0} AND CveTipoEtapa IN(3, 4)", CveEtapaProcesoActualActualizar)).Rows.Count > 0)
{
- FechaCierre = TxtFechaCierre.Text != "" ? TxtFechaCierre.Text.ToDateTime() : DateTime.Now;
+ FechaCierre = TxtFechaCierre.Text != "" ? TxtFechaCierre.Text.ToDateTime() : NowADS();
}
Double Importe = TxtImporte.Text.ToDouble();
@@ -903,7 +903,7 @@ public partial class CRM_Acercamiento : ClsPaginas
if (DTEtapasProceso.FiltraParametros(String.Format("CveEtapaProceso = {0} AND CveTipoEtapa IN(3, 4)", CveEtapaProcesoActualActualizar)).Rows.Count > 0)
{
- FechaCierre = TxtFechaCierre.Text != "" ? TxtFechaCierre.Text.ToDateTime() : DateTime.Now;
+ FechaCierre = TxtFechaCierre.Text != "" ? TxtFechaCierre.Text.ToDateTime() : NowADS();
}
Double Importe = TxtImporte.Text.ToDouble();
@@ -1357,7 +1357,7 @@ public partial class CRM_Acercamiento : ClsPaginas
DdlPrioridadAgenda.SelectedValueExist("1");
TxtAsuntoAgenda.Text = "";
TxtDescripcionAgenda.Text = "";
- TxtFechaInicioAgenda.Text = DateTime.Now.ToString("dd/MM/yyyy HH:mm");
+ TxtFechaInicioAgenda.Text = NowADS().ToString("dd/MM/yyyy HH:mm");
UpModalAgenda.Update();
}
diff --git a/CRM/CatMetas.aspx.vb b/CRM/CatMetas.aspx.vb
index 0c7e96214..49f5db1fb 100644
--- a/CRM/CatMetas.aspx.vb
+++ b/CRM/CatMetas.aspx.vb
@@ -34,8 +34,8 @@ Partial Class CRM_CatMetas
Private Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
- txtFechaIF.Text = Now.ToShortDateString
- txtFechaFF.Text = Now.Day.ToString + "/" + (Now.Month + 1).ToString + "/" + Now.Year.ToString
+ txtFechaIF.Text = NowADS().ToShortDateString
+ txtFechaFF.Text = NowADS().Day.ToString + "/" + (NowADS().Month + 1).ToString + "/" + NowADS().Year.ToString
CargadatosGvMeta()
End If
@@ -63,8 +63,8 @@ Partial Class CRM_CatMetas
BtnAgregarMetaModal.Text = "Agregar"
CargaVendedores()
- txtFechaI.Text = Now.ToShortDateString
- txtFechaF.Text = (Now.Day + 1).ToString + "/" + Now.Month.ToString + "/" + Now.Year.ToString
+ txtFechaI.Text = NowADS().ToShortDateString
+ txtFechaF.Text = (NowADS().Day + 1).ToString + "/" + NowADS().Month.ToString + "/" + NowADS().Year.ToString
Actualizar = False
UpGral.Update()
diff --git a/CRM/CatProbabilidadAcercamiento.aspx.cs b/CRM/CatProbabilidadAcercamiento.aspx.cs
index 33bf7da58..9f9fee55e 100644
--- a/CRM/CatProbabilidadAcercamiento.aspx.cs
+++ b/CRM/CatProbabilidadAcercamiento.aspx.cs
@@ -252,7 +252,7 @@ public partial class CRM_CatProbabilidadAcercamiento : ClsPaginas
param.Add(new ReportParameter("LogoPath", ""));
}
param.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
- param.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToString()));
+ param.Add(new ReportParameter("FechaImpresion", NowADS().ToString()));
ImprimirPDF("Empresas/Grales/Formatos/RepCatProbabilidadAcercamiento.rdlc", TmpDT, param, "Report Cat Probabilidad Acercamiento", formato);
}
diff --git a/CRM/CatTipoProceso.aspx.cs b/CRM/CatTipoProceso.aspx.cs
index bc92beb33..3d669f253 100644
--- a/CRM/CatTipoProceso.aspx.cs
+++ b/CRM/CatTipoProceso.aspx.cs
@@ -328,7 +328,7 @@ public partial class CRM_CatTipoProceso : ClsPaginas
param.Add(new ReportParameter("LogoPath", ""));
}
param.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
- param.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToString()));
+ param.Add(new ReportParameter("FechaImpresion", NowADS().ToString()));
ImprimirPDF("Empresas/Grales/Formatos/RepCatTipoProceso.rdlc", TmpDT, param, "Report Cat Tipo Proceso", formato, RDSName: "DataSet1");
}
@@ -403,7 +403,7 @@ public partial class CRM_CatTipoProceso : ClsPaginas
if(CveCampanaVal > 0 && CveTipoEncuestaVal > 0 && CveTema > 0 && CveEncuesta <= 0)
{
- if(objEcuesta.AddEncuesta(CveCampanaVal, -1,$"CRM {TipoProcesEnc}", $"CRM {TipoProcesEnc}",0, CveTipoEncuestaVal, false, DateTime.Now, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoProceso: CveTipoProcesoEnc))
+ if(objEcuesta.AddEncuesta(CveCampanaVal, -1,$"CRM {TipoProcesEnc}", $"CRM {TipoProcesEnc}",0, CveTipoEncuestaVal, false, NowADS(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoProceso: CveTipoProcesoEnc))
{
CveEncuesta = objEcuesta.CveEncuesta;
respuesta = true;
diff --git a/CRM/EmpresaCRM.aspx b/CRM/EmpresaCRM.aspx
index c1a340b30..3e666d862 100644
--- a/CRM/EmpresaCRM.aspx
+++ b/CRM/EmpresaCRM.aspx
@@ -781,7 +781,7 @@
-
+
diff --git a/CRM/EmpresaCRM.aspx.cs b/CRM/EmpresaCRM.aspx.cs
index 3b5dcd835..d6304d5f2 100644
--- a/CRM/EmpresaCRM.aspx.cs
+++ b/CRM/EmpresaCRM.aspx.cs
@@ -1224,7 +1224,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
rowContacto["Celular"] = TxtCelular.Text;
rowContacto["Correo"] = TxtCorreo.Text;
rowContacto["CveUsuarioIng"] = UsuarioActual.CveUsuario;
- rowContacto["FechaIng"] = DateTime.Now;
+ rowContacto["FechaIng"] = NowADS();
if (EsEditarContacto)
TempDTContactos.Rows.RemoveAt(IndexDTContacto);
@@ -1427,7 +1427,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
DdlPrioridadAgenda.SelectedValueExist("1");
TxtAsuntoAgenda.Text = "";
TxtDescripcionAgenda.Text = "";
- TxtFechaInicioAgenda.Text = DateTime.Now.ToString("dd/MM/yyyy HH:mm");
+ TxtFechaInicioAgenda.Text = NowADS().ToString("dd/MM/yyyy HH:mm");
UpModalAgenda.Update();
}
@@ -1642,11 +1642,11 @@ public partial class CRM_EmpresaCRM : ClsPaginas
protected void LimitaFechasAcercamiento()
{
//ACTIVAMOS RANGO DE FECHAS PARA CAPTURA DE ACERCAMIENTO
- CETxtFechaApertura.StartDate = DateTime.Now.AddDays(-1);
- CETxtFechaApertura.EndDate = DateTime.Now;
+ CETxtFechaApertura.StartDate = NowADS().AddDays(-1);
+ CETxtFechaApertura.EndDate = NowADS();
- RVFechaApertura.MinimumValue = DateTime.Now.AddDays(-1).ToShortDateString();
- RVFechaApertura.MaximumValue = DateTime.Now.ToShortDateString();
+ RVFechaApertura.MinimumValue = NowADS().AddDays(-1).ToShortDateString();
+ RVFechaApertura.MaximumValue = NowADS().ToShortDateString();
}
protected void InicializaAcercamientos()
@@ -1703,7 +1703,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
{
TxtAcercamiento.Text = "";
TxtDescripcionAcercamiento.Text = "";
- TxtFechaApertura.Text = DateTime.Now.ToShortDateString();
+ TxtFechaApertura.Text = NowADS().ToShortDateString();
TxtFechaCierre.Text = "";
TxtImporte.Text = "0.00";
TxtComision.Text = "0.00";
diff --git a/CRM/RepAcercamientos.aspx.cs b/CRM/RepAcercamientos.aspx.cs
index 59bc658e8..d1459a74e 100644
--- a/CRM/RepAcercamientos.aspx.cs
+++ b/CRM/RepAcercamientos.aspx.cs
@@ -101,8 +101,8 @@ public partial class CRM_RepAcercamientos : ClsPaginas
DdlVendedor.SelectedValueExist(CveVendedor);
//CALCULAMOS EL INTERVALO DE LA SEMANA ACTUAL
- TxtFechaInicio.Text = DateTime.Now.AddDays(-((int)DateTime.Now.DayOfWeek) + 1).ToShortDateString();
- TxtFechaFin.Text = DateTime.Now.AddDays((7 - (int)DateTime.Now.DayOfWeek)).ToShortDateString();
+ TxtFechaInicio.Text = NowADS().AddDays(-((int)NowADS().DayOfWeek) + 1).ToShortDateString();
+ TxtFechaFin.Text = NowADS().AddDays((7 - (int)NowADS().DayOfWeek)).ToShortDateString();
DdlPS.setEsWebService(true);
DdlPS.SelectedValue = "-1";
DdlPS.SelectedText = "Todos";
diff --git a/CRM/RepAcercamientosProcesosDetalle.aspx.cs b/CRM/RepAcercamientosProcesosDetalle.aspx.cs
index 4ab577c0a..4c21beba7 100644
--- a/CRM/RepAcercamientosProcesosDetalle.aspx.cs
+++ b/CRM/RepAcercamientosProcesosDetalle.aspx.cs
@@ -378,7 +378,7 @@ public partial class CRM_RepAcercamientosProcesosDetalle : ClsPaginas
parametros.Add(new ReportParameter("FechaFin", FechaF));
parametros.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
parametros.Add(new ReportParameter("Filtros", StrFiltro.ToString()));
- parametros.Add(new ReportParameter("FechaImprimio", DateTime.Now.ToShortDateString()));
+ parametros.Add(new ReportParameter("FechaImprimio", NowADS().ToShortDateString()));
if (Imagen.Exists)
{
@@ -391,7 +391,7 @@ public partial class CRM_RepAcercamientosProcesosDetalle : ClsPaginas
}
- ImprimirPDF("Empresas/Grales/Formatos/RepAcercamientoProcesoDetalle.rdlc", DTRepAcercamientosDetalle, parametros, String.Format("RepTraspasoAlmacen-{0}", DateTime.Now.ToShortDateString()), formato);
+ ImprimirPDF("Empresas/Grales/Formatos/RepAcercamientoProcesoDetalle.rdlc", DTRepAcercamientosDetalle, parametros, String.Format("RepTraspasoAlmacen-{0}", NowADS().ToShortDateString()), formato);
}
else
diff --git a/CRM/RepAgendasBitacoras.aspx.cs b/CRM/RepAgendasBitacoras.aspx.cs
index 8b725b80c..7c0a5ab22 100644
--- a/CRM/RepAgendasBitacoras.aspx.cs
+++ b/CRM/RepAgendasBitacoras.aspx.cs
@@ -69,8 +69,8 @@ public partial class CRM_AgendasBitacoras : ClsPaginas
DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor);
//CALCULAMOS EL INTERVALO DE LA SEMANA ACTUAL
- TxtFechaInicio.Text = DateTime.Now.AddDays(-((int)DateTime.Now.DayOfWeek) + 1).ToShortDateString();
- TxtFechaFin.Text = DateTime.Now.AddDays((7 - (int)DateTime.Now.DayOfWeek)).ToShortDateString();
+ TxtFechaInicio.Text = NowADS().AddDays(-((int)NowADS().DayOfWeek) + 1).ToShortDateString();
+ TxtFechaFin.Text = NowADS().AddDays((7 - (int)NowADS().DayOfWeek)).ToShortDateString();
//DdlPS.setEsWebService(true);
//DdlPS.SelectedValue = "-1";
//DdlPS.SelectedText = "Todos";
diff --git a/Compras/CatEstatusFactura.aspx.vb b/Compras/CatEstatusFactura.aspx.vb
index 12668a36e..14a1e8361 100644
--- a/Compras/CatEstatusFactura.aspx.vb
+++ b/Compras/CatEstatusFactura.aspx.vb
@@ -153,7 +153,7 @@ Partial Class Compras_CatEstatusFactura
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
- params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
diff --git a/Compras/CatProveedores.aspx.vb b/Compras/CatProveedores.aspx.vb
index 1d3b0b87c..3d70e4a42 100644
--- a/Compras/CatProveedores.aspx.vb
+++ b/Compras/CatProveedores.aspx.vb
@@ -213,7 +213,7 @@ Partial Class Compras_CatProveedores
#End Region
Private Sub ImgExcel2_Click(sender As Object, e As EventArgs) Handles ImgExcel2.Click
- GvDatos.ExportToExcel("RepProveedores_" & Now.ToShortDateString)
+ GvDatos.ExportToExcel("RepProveedores_" & NowADS().ToShortDateString)
End Sub
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
Dim ObjProveedores As New ClsCompProveedores
diff --git a/Compras/CatTipoGasto.aspx.cs b/Compras/CatTipoGasto.aspx.cs
index 37dfc5d8f..a14663c5f 100644
--- a/Compras/CatTipoGasto.aspx.cs
+++ b/Compras/CatTipoGasto.aspx.cs
@@ -87,7 +87,7 @@ public partial class Compras_CatTipoGasto : ClsPaginas
ClsCompras ObjCompras = new ClsCompras();
if (BtnAgregarTipoGasto.Text == "Agregar")
{
- if (ObjCompras.AddTipoGasto(TxtTipoGasto.Text,ChkEstatus.Checked,DateTime.Now.ToString(),UsuarioActual.CveUsuario,UsuarioActual.CveEmpresa))
+ if (ObjCompras.AddTipoGasto(TxtTipoGasto.Text,ChkEstatus.Checked,NowADS().ToString(),UsuarioActual.CveUsuario,UsuarioActual.CveEmpresa))
{
Alert("Se agregó el Tipo de Gasto correctamente");
}
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 082e7289e..98755a30f 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1161,8 +1161,8 @@ Partial Class Compras_Compras
ArrIE = New ArrayList()
ArrIEFuncionariosEmpleados = New ArrayList()
ClavesBorradas = New ArrayList()
- TxtFecha.Text = Now.ToShortDateString
- TxtFechaEjecucion.Text = Now.ToShortDateString
+ TxtFecha.Text = NowADS().ToShortDateString
+ TxtFechaEjecucion.Text = NowADS().ToShortDateString
ViewState("CveFactura") = "0"
ViewState("IdPoliza") = "0"
ViewState("CveCompra") = -1
@@ -1585,7 +1585,7 @@ Partial Class Compras_Compras
Private Function CargaFactura(CveFactura As Integer) As String
Dim ObjeFacturas As New ClsCompras
Dim RFC As String = ""
- If ObjeFacturas.GetFacturas(CveFactura, "-1", Now.AddYears(-4), Now, "-1", "-1", -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa) AndAlso ObjeFacturas.DtResultados.Rows.Count > 0 Then
+ If ObjeFacturas.GetFacturas(CveFactura, "-1", NowADS().AddYears(-4), NowADS(), "-1", "-1", -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa) AndAlso ObjeFacturas.DtResultados.Rows.Count > 0 Then
Dim dr As DataRow = ObjeFacturas.DtResultados.Rows(0) ' no toma la cero, porque es el totalizador
ViewState("CveTipoProveedor") = dr("CveTipoProveedor").ToString.ToEntero
@@ -1653,7 +1653,7 @@ Partial Class Compras_Compras
XMLDoc.LoadXml(File.ReadAllText(Archivo).Replace("<br>", "").Replace("<", "").Replace("o;?", ""))
Catch ex As Exception
Try
- Dim oReader as New StreamReader(Archivo, Encoding.GetEncoding("ISO-8859-1"))
+ Dim oReader As New StreamReader(Archivo, Encoding.GetEncoding("ISO-8859-1"))
XMLDoc.Load(oReader)
oReader.Dispose()
Catch ex2 As Exception
@@ -5198,7 +5198,7 @@ Partial Class Compras_Compras
indice += 1
'agregamos la entrada
- If Not UsuarioActual.Empresa.UsaAC Then fecha = Now
+ If Not UsuarioActual.Empresa.UsaAC Then fecha = NowADS()
folio = ObjInventario.GetFolioSiguiente(2, UsuarioActual.CveEmpresa)
cvemovimientoentrada = ObjInventario.AddMovimiento(tcvealmacen, 2, 1, fecha, folio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar), Modulo:="Comp/G4")
@@ -5285,7 +5285,7 @@ Partial Class Compras_Compras
indice += 1
Dim fecha As Date = TxtFecha.Text.ToDate
- If Not UsuarioActual.Empresa.UsaAC Then fecha = Now
+ If Not UsuarioActual.Empresa.UsaAC Then fecha = NowADS()
CveMovimientoInventario = ObjInventario.AddMovimiento(tCveAlmacen, CveConceptoMovimiento, 1, fecha, 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar), CveFolioGarantia:=tCveFolioGarantia, Modulo:="Comp/G2")
@@ -6064,13 +6064,13 @@ Partial Class Compras_Compras
If importeMN <> 0 Then
- If (TxtFecha.Text <> Now.ToString("dd/MM/yyyy")) And Not EntradaComoGastoConAlmacen Then
+ If (TxtFecha.Text <> NowADS().ToString("dd/MM/yyyy")) And Not EntradaComoGastoConAlmacen Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN.RoundSQL(2), importeMN.RoundSQL(2), 205, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=ContabilizableAlmacen) Then
ErrorPrepoliza = True
End If
- Dim CvePrePoliza2Almacen As Integer = ObjConta.AddPrePolizas("Compras/Registrar/Almacen", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, Now, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
+ Dim CvePrePoliza2Almacen As Integer = ObjConta.AddPrePolizas("Compras/Registrar/Almacen", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, NowADS(), ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
If CvePrePoliza2Almacen > 0 Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza2Almacen, True, importeMN.RoundSQL(2), importeMN.RoundSQL(2), 205, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=ContabilizableAlmacen) Then
@@ -7007,52 +7007,52 @@ Partial Class Compras_Compras
End If
If HdnVCveOC.Value <> "-1" AndAlso HdnCveEstatusOC.Value <> "-1" Then
- Dim ArrayCveOC As String() = HdnVCveOC.Value.Split(New Char() {","c})
- Dim ArrayCveEstatusOC As String() = HdnCveEstatusOC.Value.Split(New Char() {","c})
+ Dim ArrayCveOC As String() = HdnVCveOC.Value.Split(New Char() {","c})
+ Dim ArrayCveEstatusOC As String() = HdnCveEstatusOC.Value.Split(New Char() {","c})
- If ArrayCveEstatusOC.Count = ArrayCveOC.Count Then
- For i As Integer = 0 To ArrayCveEstatusOC.Count - 1
- If Not ObjOC.UpdateOrdenCompraCompletada(ArrayCveEstatusOC(i).ToEntero, ArrayCveOC(i).ToEntero, UsuarioActual.CveUsuario, "Se vinculó Compra", CveCompra) Then
- ErrorOC = True
- Exit For
+ If ArrayCveEstatusOC.Count = ArrayCveOC.Count Then
+ For i As Integer = 0 To ArrayCveEstatusOC.Count - 1
+ If Not ObjOC.UpdateOrdenCompraCompletada(ArrayCveEstatusOC(i).ToEntero, ArrayCveOC(i).ToEntero, UsuarioActual.CveUsuario, "Se vinculó Compra", CveCompra) Then
+ ErrorOC = True
+ Exit For
+ End If
+ Next
+ Else
+ ErrorOC = True
+ End If
+
+ End If
+
+ If ChkNCInvNC.Checked Then
+ For Each Gvr As GridViewRow In GVNCInv.Rows
+ If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then
+ If Not ObjCompras.ComprasDetalleDevolucionesAdd(Gvr.DataKey("CveCompraDetalle").ToEntero, CveCompra, Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble, UsuarioActual.CveEmpresa) Then
+ ErrorMovInv = True
+ Exit For
+ End If
+ End If
+ Next
+
+ For Each Gvr As GridViewRow In GVNCInvAlmacen.Rows
+ If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then
+ If Not ObjCompras.ComprasDetalleDevolucionesAdd(Gvr.DataKey("CveCompraDetalle").ToEntero, CveCompra, Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble, UsuarioActual.CveEmpresa) Then
+ ErrorMovInv = True
+ Exit For
+ End If
End If
Next
- Else
- ErrorOC = True
End If
- End If
-
- If ChkNCInvNC.Checked Then
- For Each Gvr As GridViewRow In GVNCInv.Rows
- If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then
- If Not ObjCompras.ComprasDetalleDevolucionesAdd(Gvr.DataKey("CveCompraDetalle").ToEntero, CveCompra, Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble, UsuarioActual.CveEmpresa) Then
- ErrorMovInv = True
- Exit For
- End If
+ 'GUARDA BITACORA TIPO CAMBIO OC
+ If Not ErrorOC And TipoCambioOC > 0 Then
+ If Not ObjEventos.AddEventoBitacora(String.Format("La vinculación con la orden de compra fue con un tipo de cambio de ${0}", TipoCambioOC.ToString), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=CveCompra) Then
+ ErrorOC = True
End If
- Next
-
- For Each Gvr As GridViewRow In GVNCInvAlmacen.Rows
- If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then
- If Not ObjCompras.ComprasDetalleDevolucionesAdd(Gvr.DataKey("CveCompraDetalle").ToEntero, CveCompra, Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble, UsuarioActual.CveEmpresa) Then
- ErrorMovInv = True
- Exit For
- End If
- End If
- Next
- End If
-
- 'GUARDA BITACORA TIPO CAMBIO OC
- If Not ErrorOC And TipoCambioOC > 0 Then
- If Not ObjEventos.AddEventoBitacora(String.Format("La vinculación con la orden de compra fue con un tipo de cambio de ${0}", TipoCambioOC.ToString), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=CveCompra) Then
- ErrorOC = True
End If
- End If
'AGREGAR OTROS GASTOS A ORDEN DE CORTE
'If CveOrdenCorte > 0 And UsuarioActual.CveEmpresa = 126 Then
- ' If ObjCGame.AddCorteGasto(CveOrdenCorte, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Now, 0, CveCompra) Then
+ ' If ObjCGame.AddCorteGasto(CveOrdenCorte, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, NowADS(), 0, CveCompra) Then
' If Not ObjCGame.AddCorteGastoDetalle(ObjCGame.CveCorteGasto, 32, 1, TxtSubTotal.Text.ToDouble()) Then
' ErrorOtrosGastos = True
' End If
@@ -7063,263 +7063,263 @@ Partial Class Compras_Compras
'CREDITO COMPRA
Dim CvePrePolizaCredito As Integer = 0
- If RBLPago.SelectedValue.ToEntero = 2 AndAlso RBLContado.SelectedValue.ToEntero = 3 AndAlso DdlTipoCredito.SelectedValue.ToEntero = 1 AndAlso DdlCredito.SelectedValue.ToEntero > 0 Then
+ If RBLPago.SelectedValue.ToEntero = 2 AndAlso RBLContado.SelectedValue.ToEntero = 3 AndAlso DdlTipoCredito.SelectedValue.ToEntero = 1 AndAlso DdlCredito.SelectedValue.ToEntero > 0 Then
- If Not ObjIE.UpdateCreditosCompra(DdlCredito.SelectedValue.ToEntero, CveCompra, UsuarioActual.CveEmpresa) Then
- ErrorCreditosCompra = True
- End If
-
- If Not ErrorCreditosCompra Then
-
- Dim CveConceptoPago As Integer = 17
- If CveTipoConcepto = 2 Then CveConceptoPago = 308 'cuando es acreedor
- If CveMoneda > 1 Then
- Select Case CveConceptoPago
- Case 17
- CveConceptoPago = 312
- Case 308
- CveConceptoPago = 309
- Case Else
- End Select
+ If Not ObjIE.UpdateCreditosCompra(DdlCredito.SelectedValue.ToEntero, CveCompra, UsuarioActual.CveEmpresa) Then
+ ErrorCreditosCompra = True
End If
- If ObjIE.GetCreditos(DdlCredito.SelectedValue.ToEntero, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
- CvePrePolizaCredito = ObjConta.AddPrePolizas("Compras/RegistrarCredito", -1, ObjIE.TotalFinanciado, ObjIE.TotalFinanciado, 1, TxtFecha.Text.ToDate, "Vinculación crédito con factura", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
- If ObjConta.AddPrePolizasDetalle(CvePrePolizaCredito, False, ObjIE.TotalFinanciado, ObjIE.TotalFinanciado, CveConceptoPago, "", "Vinculación crédito con factura", CveProveedor:=CveProveedor, CveCompra:=CveCompra) Then
- If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaCredito, True, ObjIE.TotalFinanciado, ObjIE.TotalFinanciado, 50, "", "Vinculación crédito con factura", CveProveedor:=CveProveedor, CveCompra:=CveCompra) Then
+ If Not ErrorCreditosCompra Then
+
+ Dim CveConceptoPago As Integer = 17
+ If CveTipoConcepto = 2 Then CveConceptoPago = 308 'cuando es acreedor
+ If CveMoneda > 1 Then
+ Select Case CveConceptoPago
+ Case 17
+ CveConceptoPago = 312
+ Case 308
+ CveConceptoPago = 309
+ Case Else
+ End Select
+ End If
+
+ If ObjIE.GetCreditos(DdlCredito.SelectedValue.ToEntero, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
+ CvePrePolizaCredito = ObjConta.AddPrePolizas("Compras/RegistrarCredito", -1, ObjIE.TotalFinanciado, ObjIE.TotalFinanciado, 1, TxtFecha.Text.ToDate, "Vinculación crédito con factura", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+ If ObjConta.AddPrePolizasDetalle(CvePrePolizaCredito, False, ObjIE.TotalFinanciado, ObjIE.TotalFinanciado, CveConceptoPago, "", "Vinculación crédito con factura", CveProveedor:=CveProveedor, CveCompra:=CveCompra) Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaCredito, True, ObjIE.TotalFinanciado, ObjIE.TotalFinanciado, 50, "", "Vinculación crédito con factura", CveProveedor:=CveProveedor, CveCompra:=CveCompra) Then
+ ErrorCreditosCompra = True
+ End If
+ Else
ErrorCreditosCompra = True
End If
- Else
- ErrorCreditosCompra = True
- End If
-
- If Not ErrorCreditosCompra Then
- ObjConta.PrePolizaUnificacion(CvePrePoliza, CvePrePolizaCredito)
- End If
-
- End If
- End If
-
- End If
-
- 'VALIDAR ERRORES
- If ErrorAC OrElse ErrorPrepoliza OrElse ErrorPrepolizaDescuadre OrElse ErrorDetalles OrElse ErrorMovDev OrElse ErrorMovtosCxP OrElse ErrorMovtosRetIVA OrElse ErrorMovtosRetISR OrElse ErrorMovtosEstimaciones OrElse ErrorMovtosIE OrElse ErrorMovtosIVA OrElse ErrorMovInv OrElse TieneError OrElse ErrorAF OrElse ErrorOC OrElse ErrorBitacora OrElse ErrorAddAcarreos OrElse ErrorCreditosCompra Then
- If ErrorDetalles Then
- Alert("Ocurrió un Error al agregar un Producto o Servicio a la Factura. Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
- ElseIf ErrorMovtosCxP Then
- Alert("Ocurrió un Error al agregar las CxP. Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
- ElseIf ErrorMovtosRetIVA Then
- Alert("Ocurrió un Error al agregar las Retenciones de IVA. Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
- ElseIf ErrorMovtosRetISR Then
- Alert("Ocurrió un Error al agregar las Retenciones de ISR. Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
- ElseIf ErrorMovtosEstimaciones Then
- Alert("Ocurrió un Error al agregar las Estimaciones. Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
- ElseIf ErrorMovtosIE Then
- Alert("Ocurrió un Error al agregar el movimiento bancario. Revise sus datos y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
- ElseIf ErrorMovtosIVA Then
- Alert("Ocurrió un Error al agregar el IVA. Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
- ElseIf ErrorMovInv Then
- Alert("Ocurrió un Error al agregar el Producto o Servicio al Inventario. Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
- ElseIf TieneError Then
- Alert("El total de los IMPORTES del FINANCIAMIENTO debe ser mayor que 0 y menor o igual al total de la compra", TipoMensaje.MsgAdvertencia)
- ElseIf ErrorAF Then
- Alert("Error al actualizar la vinculacion del Activo Fijo", TipoMensaje.MsgAdvertencia)
- ElseIf ErrorAC Then
- Alert("Ocurrió un Error al insertar los movimientos contables.", TipoMensaje.MsgError)
- GuardaLog($" Error Compras DESCRIPCIÓN DETALLADA {ErrorACMEnsaje.ToString} {vbCrLf} Usuario={UsuarioActual.CveUsuario}, Empresa={UsuarioActual.CveEmpresa}, CveFactura={CveFactura}, CveProveedor={CveProveedor}")
- ElseIf ErrorPrepolizaDescuadre Then
- Alert(ObjConta.MensajePolizaDescuadre, TipoMensaje.MsgError)
- ElseIf ErrorPrepoliza Then
- Alert("Ocurrió un Error al verificar los movimientos contables", TipoMensaje.MsgError)
- ElseIf ErrorOC Then
- Alert("Ocurrió un Error al vincular la Orden(es) de Compra. Por favor vuelva intentar.", TipoMensaje.MsgError)
- ElseIf ErrorBitacora Then
- Alert("Ocurrió un Error al guardar la refacturación.", TipoMensaje.MsgError)
- ElseIf ErrorAddAcarreos Then
- Alert("Ocurrio un Error al momento de agregar los acarreos.", TipoMensaje.MsgError)
- ElseIf ErrorCreditosCompra Then
- Alert("Ocurrió un Error al vincular la compra con el crédito.", TipoMensaje.MsgError)
- ElseIf ErrorOtrosGastos Then
- Alert("Ocurrió un Error al vincular la compra con la orden de corte.", TipoMensaje.MsgError)
- ElseIf ErrorSATPS Then
- Alert("Ocurrió un Error al actualizar el producto/servicio SAT.", TipoMensaje.MsgError)
- ElseIf ErrorSaldosInvComp Then
- Alert("Ocurrió un Error al validar la mercancía recibida por adelantado.", TipoMensaje.MsgError)
- End If
-
- ViewState("CveCompra") = -1
- ObjCompras.RollBack()
- If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
- CargaProveedor(CveProveedor, "-1")
- Else
- Dim MsgAccionAceptar As String = ""
- Dim Msg As New StringBuilder
- Msg.Append("La compra se registró correctamente")
-
- If Not ErrorPrepoliza AndAlso UsuarioActual.Empresa.TipoContabilidad = 1 AndAlso ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 4) Then
- If ObjConta.ValorPolizaDescuadre > 0 Then
- GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
- ErrorPrepolizaDescuadre = True
- End If
- End If
-
- 'ACTUALIZA CVEFACTURA
- If Request("CveFactura") IsNot Nothing Then
-
- If Not ObjCompras.UpdateCompraFactura(CveCompra, Request("CveFactura").ToEntero, TxtSerie.Text.Trim, TxtFolio.Text.Trim) Then
- TieneError = True
- End If
-
- If UsuarioActual.Empresa.UsaAC Then
- MsgAccionAceptar = String.Format("window.opener.location.href = window.opener.location.href; window.open(""/Contabilidad/RegPoliza.aspx?IdPoliza={0}""); window.close();", IdPoliza)
- Else
- MsgAccionAceptar = "if (window.opener){window.opener.location.href = window.opener.location.href; window.close();}"
- End If
- Else
- MsgAccionAceptar = "location.href =""Compras.aspx"""
- End If
-
- 'CUANDO ES REEMBOLSO COMPROBACION Y CAJA CHICA
- If UsuarioActual.CveEmpresa.Contiene(1, 119, 141, 172, 173, 174, 13, 83) AndAlso TxtNumeroReembolso.Text.Trim <> "" AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0) Then
- If ObjCompras.GetComprobacion(DdlPersonalReembolso.SelectedValue.ToEntero, DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero, TxtNumeroReembolso.Text.Trim, UsuarioActual.CveEmpresa) Then
- Dim CvePreComprobacion As Integer
- If ObjCompras.DtResultados.Rows.Count = 0 Then
- 'sino existe, creamos la comprobacion
- Dim tConcepto As String = If(DdlPersonalReembolso.SelectedValue.ToEntero > 0, DdlPersonalReembolso.SelectedItem.Text, DdlCuentaCajaChicaReembolso.SelectedItem.Text)
- tConcepto = String.Format("{0}-{1}", tConcepto, TxtNumeroReembolso.Text.Trim)
-
- CvePreComprobacion = ObjConta.AddPrePolizas("Compras Comproba", 1, 0, 0, 1, TxtFecha.Text.ToDate, tConcepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-
- If ObjCompras.AddComprobacion(DdlPersonalReembolso.SelectedValue.ToEntero, DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero, TxtNumeroReembolso.Text.Trim, CvePreComprobacion, UsuarioActual.CveEmpresa) > 0 Then
+ If Not ErrorCreditosCompra Then
+ ObjConta.PrePolizaUnificacion(CvePrePoliza, CvePrePolizaCredito)
End If
- Else
- 'si ya existe, obtenemos la prepóliza
- CvePreComprobacion = ObjCompras.DtResultados.FiltroPrimeroValor("CvePrePoliza").ToEntero
+
End If
-
- ObjConta.PrePolizaUnificacion(CvePreComprobacion, CvePrePoliza)
- End If
- End If
-
- 'AJUSTA POLIZA
- If IdPoliza > 0 Then
- PolizaFolio = ObjContaAC.Folio
- ObjContaAC.AjustaPoliza(IdPoliza)
- Msg.AppendFormat("
Ver Póliza", IdPoliza)
- End If
-
- If UsuarioActual.TienePermisoProceso(354) Then 'visualizar la póliza al registros
- Msg.AppendFormat("
Ver Póliza ", CvePrePoliza)
- Dim TempParametros As String = Encripta(String.Format("OP=PREPO&CvePrePoliza={0}", CvePrePoliza))
- Msg.Append($" Imprimir ")
-
- End If
-
- If CveMovimientoInventario > 0 Then
- Dim TempParametros As String = Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoInventario))
- Msg.AppendFormat("Ver Movimiento de Almacen", CveMovimientoInventario)
- Msg.AppendFormat("Imprimir Entrada Almacen", TempParametros)
- End If
-
- If UsuarioActual.Empresa.TipoContabilidad = 2 Then
- If Not ObjCompras.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, PolizaFolio.ToString, IdPoliza, CvePrePoliza, CveCompra, 0) Then
- TieneError = True
- End If
- End If
-
- If EntregaDirecta Then
- Msg.AppendFormat($"Recibir mercancía de entrega directa.")
- End If
-
- Dim AutoConta As Boolean = True
- If (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0 Or DdlTipoComprobante.SelectedValue = "Ant") Then
- AutoConta = False
- End If
-
- If Not ErrorPrepoliza AndAlso Not ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=4, AutoConta:=AutoConta) Then
- TieneError = True
- 'If ObjConta.ValorPolizaDescuadre > 0 Then
- ' GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
- ' ErrorPrepolizaDescuadre = True
- 'End If
- End If
-
- If Not TieneError Then
- ObjCompras.Commit()
- If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()
-
- Dim CveEvaluacionProveedor As Integer = -1
-
- If Me.RequiereEvaluacion Then
- Dim ObjPro As New ClsCompProveedores()
- CveEvaluacionProveedor = ObjPro.AddEvaluacionProveedor(CveProveedor, CveCompra, Now, "", Me.CveUsuarioEvaluador, "", "", UsuarioActual.CveEmpresa)
- ObjPro.Dispose()
End If
- 'ENVIO DE CORREO NOTIFICACION A VENDEDORES DE OC
- MandaCorreoOCVendedores(CveCompra)
- If Not ErrorMovInv Then
- For Each intMovimientoAlmacen As Integer In ListaMovimientosAlmacen
- MandaCorreoOCVendedoresRecepcionAlmacen(CveCompra, intMovimientoAlmacen)
- Next
+ End If
+
+ 'VALIDAR ERRORES
+ If ErrorAC OrElse ErrorPrepoliza OrElse ErrorPrepolizaDescuadre OrElse ErrorDetalles OrElse ErrorMovDev OrElse ErrorMovtosCxP OrElse ErrorMovtosRetIVA OrElse ErrorMovtosRetISR OrElse ErrorMovtosEstimaciones OrElse ErrorMovtosIE OrElse ErrorMovtosIVA OrElse ErrorMovInv OrElse TieneError OrElse ErrorAF OrElse ErrorOC OrElse ErrorBitacora OrElse ErrorAddAcarreos OrElse ErrorCreditosCompra Then
+ If ErrorDetalles Then
+ Alert("Ocurrió un Error al agregar un Producto o Servicio a la Factura. Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
+ ElseIf ErrorMovtosCxP Then
+ Alert("Ocurrió un Error al agregar las CxP. Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
+ ElseIf ErrorMovtosRetIVA Then
+ Alert("Ocurrió un Error al agregar las Retenciones de IVA. Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
+ ElseIf ErrorMovtosRetISR Then
+ Alert("Ocurrió un Error al agregar las Retenciones de ISR. Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
+ ElseIf ErrorMovtosEstimaciones Then
+ Alert("Ocurrió un Error al agregar las Estimaciones. Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
+ ElseIf ErrorMovtosIE Then
+ Alert("Ocurrió un Error al agregar el movimiento bancario. Revise sus datos y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
+ ElseIf ErrorMovtosIVA Then
+ Alert("Ocurrió un Error al agregar el IVA. Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
+ ElseIf ErrorMovInv Then
+ Alert("Ocurrió un Error al agregar el Producto o Servicio al Inventario. Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
+ ElseIf TieneError Then
+ Alert("El total de los IMPORTES del FINANCIAMIENTO debe ser mayor que 0 y menor o igual al total de la compra", TipoMensaje.MsgAdvertencia)
+ ElseIf ErrorAF Then
+ Alert("Error al actualizar la vinculacion del Activo Fijo", TipoMensaje.MsgAdvertencia)
+ ElseIf ErrorAC Then
+ Alert("Ocurrió un Error al insertar los movimientos contables.", TipoMensaje.MsgError)
+ GuardaLog($" Error Compras DESCRIPCIÓN DETALLADA {ErrorACMEnsaje.ToString} {vbCrLf} Usuario={UsuarioActual.CveUsuario}, Empresa={UsuarioActual.CveEmpresa}, CveFactura={CveFactura}, CveProveedor={CveProveedor}")
+ ElseIf ErrorPrepolizaDescuadre Then
+ Alert(ObjConta.MensajePolizaDescuadre, TipoMensaje.MsgError)
+ ElseIf ErrorPrepoliza Then
+ Alert("Ocurrió un Error al verificar los movimientos contables", TipoMensaje.MsgError)
+ ElseIf ErrorOC Then
+ Alert("Ocurrió un Error al vincular la Orden(es) de Compra. Por favor vuelva intentar.", TipoMensaje.MsgError)
+ ElseIf ErrorBitacora Then
+ Alert("Ocurrió un Error al guardar la refacturación.", TipoMensaje.MsgError)
+ ElseIf ErrorAddAcarreos Then
+ Alert("Ocurrio un Error al momento de agregar los acarreos.", TipoMensaje.MsgError)
+ ElseIf ErrorCreditosCompra Then
+ Alert("Ocurrió un Error al vincular la compra con el crédito.", TipoMensaje.MsgError)
+ ElseIf ErrorOtrosGastos Then
+ Alert("Ocurrió un Error al vincular la compra con la orden de corte.", TipoMensaje.MsgError)
+ ElseIf ErrorSATPS Then
+ Alert("Ocurrió un Error al actualizar el producto/servicio SAT.", TipoMensaje.MsgError)
+ ElseIf ErrorSaldosInvComp Then
+ Alert("Ocurrió un Error al validar la mercancía recibida por adelantado.", TipoMensaje.MsgError)
End If
- If CveEvaluacionProveedor > 0 Then
- Msg.Append("
El proveedor tiene evaluaciones pendientes ")
- Msg.Append("¿Desea realizar una evaluacion al proveedor?")
- Msg.AppendFormat($"Evaluar Proveedor.")
- End If
-
- BtnGuardar.Enabled = False
- UpFacturar.Update()
-
- Alert(Msg.ToString, TipoMensaje.MsgInformacion, MsgAccionAceptar)
- Else
+ ViewState("CveCompra") = -1
ObjCompras.RollBack()
If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
- Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente.", TipoMensaje.MsgError)
+ CargaProveedor(CveProveedor, "-1")
+ Else
+ Dim MsgAccionAceptar As String = ""
+ Dim Msg As New StringBuilder
+ Msg.Append("La compra se registró correctamente")
+
+ If Not ErrorPrepoliza AndAlso UsuarioActual.Empresa.TipoContabilidad = 1 AndAlso ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 4) Then
+ If ObjConta.ValorPolizaDescuadre > 0 Then
+ GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+ ErrorPrepolizaDescuadre = True
+ End If
+ End If
+
+ 'ACTUALIZA CVEFACTURA
+ If Request("CveFactura") IsNot Nothing Then
+
+ If Not ObjCompras.UpdateCompraFactura(CveCompra, Request("CveFactura").ToEntero, TxtSerie.Text.Trim, TxtFolio.Text.Trim) Then
+ TieneError = True
+ End If
+
+ If UsuarioActual.Empresa.UsaAC Then
+ MsgAccionAceptar = String.Format("window.opener.location.href = window.opener.location.href; window.open(""/Contabilidad/RegPoliza.aspx?IdPoliza={0}""); window.close();", IdPoliza)
+ Else
+ MsgAccionAceptar = "if (window.opener){window.opener.location.href = window.opener.location.href; window.close();}"
+ End If
+ Else
+ MsgAccionAceptar = "location.href =""Compras.aspx"""
+ End If
+
+ 'CUANDO ES REEMBOLSO COMPROBACION Y CAJA CHICA
+ If UsuarioActual.CveEmpresa.Contiene(1, 119, 141, 172, 173, 174, 13, 83) AndAlso TxtNumeroReembolso.Text.Trim <> "" AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0) Then
+ If ObjCompras.GetComprobacion(DdlPersonalReembolso.SelectedValue.ToEntero, DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero, TxtNumeroReembolso.Text.Trim, UsuarioActual.CveEmpresa) Then
+ Dim CvePreComprobacion As Integer
+ If ObjCompras.DtResultados.Rows.Count = 0 Then
+ 'sino existe, creamos la comprobacion
+ Dim tConcepto As String = If(DdlPersonalReembolso.SelectedValue.ToEntero > 0, DdlPersonalReembolso.SelectedItem.Text, DdlCuentaCajaChicaReembolso.SelectedItem.Text)
+ tConcepto = String.Format("{0}-{1}", tConcepto, TxtNumeroReembolso.Text.Trim)
+
+ CvePreComprobacion = ObjConta.AddPrePolizas("Compras Comproba", 1, 0, 0, 1, TxtFecha.Text.ToDate, tConcepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+ If ObjCompras.AddComprobacion(DdlPersonalReembolso.SelectedValue.ToEntero, DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero, TxtNumeroReembolso.Text.Trim, CvePreComprobacion, UsuarioActual.CveEmpresa) > 0 Then
+
+ End If
+ Else
+ 'si ya existe, obtenemos la prepóliza
+ CvePreComprobacion = ObjCompras.DtResultados.FiltroPrimeroValor("CvePrePoliza").ToEntero
+ End If
+
+ ObjConta.PrePolizaUnificacion(CvePreComprobacion, CvePrePoliza)
+ End If
+ End If
+
+ 'AJUSTA POLIZA
+ If IdPoliza > 0 Then
+ PolizaFolio = ObjContaAC.Folio
+ ObjContaAC.AjustaPoliza(IdPoliza)
+ Msg.AppendFormat("
Ver Póliza", IdPoliza)
+ End If
+
+ If UsuarioActual.TienePermisoProceso(354) Then 'visualizar la póliza al registros
+ Msg.AppendFormat("
Ver Póliza ", CvePrePoliza)
+ Dim TempParametros As String = Encripta(String.Format("OP=PREPO&CvePrePoliza={0}", CvePrePoliza))
+ Msg.Append($" Imprimir ")
+
+ End If
+
+ If CveMovimientoInventario > 0 Then
+ Dim TempParametros As String = Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoInventario))
+ Msg.AppendFormat("Ver Movimiento de Almacen", CveMovimientoInventario)
+ Msg.AppendFormat("Imprimir Entrada Almacen", TempParametros)
+ End If
+
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ If Not ObjCompras.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, PolizaFolio.ToString, IdPoliza, CvePrePoliza, CveCompra, 0) Then
+ TieneError = True
+ End If
+ End If
+
+ If EntregaDirecta Then
+ Msg.AppendFormat($"Recibir mercancía de entrega directa.")
+ End If
+
+ Dim AutoConta As Boolean = True
+ If (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0 Or DdlTipoComprobante.SelectedValue = "Ant") Then
+ AutoConta = False
+ End If
+
+ If Not ErrorPrepoliza AndAlso Not ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=4, AutoConta:=AutoConta) Then
+ TieneError = True
+ 'If ObjConta.ValorPolizaDescuadre > 0 Then
+ ' GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+ ' ErrorPrepolizaDescuadre = True
+ 'End If
+ End If
+
+ If Not TieneError Then
+ ObjCompras.Commit()
+ If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()
+
+ Dim CveEvaluacionProveedor As Integer = -1
+
+ If Me.RequiereEvaluacion Then
+ Dim ObjPro As New ClsCompProveedores()
+ CveEvaluacionProveedor = ObjPro.AddEvaluacionProveedor(CveProveedor, CveCompra, NowADS(), "", Me.CveUsuarioEvaluador, "", "", UsuarioActual.CveEmpresa)
+ ObjPro.Dispose()
+ End If
+
+ 'ENVIO DE CORREO NOTIFICACION A VENDEDORES DE OC
+ MandaCorreoOCVendedores(CveCompra)
+ If Not ErrorMovInv Then
+ For Each intMovimientoAlmacen As Integer In ListaMovimientosAlmacen
+ MandaCorreoOCVendedoresRecepcionAlmacen(CveCompra, intMovimientoAlmacen)
+ Next
+ End If
+
+ If CveEvaluacionProveedor > 0 Then
+ Msg.Append("
El proveedor tiene evaluaciones pendientes ")
+ Msg.Append("¿Desea realizar una evaluacion al proveedor?")
+ Msg.AppendFormat($"Evaluar Proveedor.")
+ End If
+
+ BtnGuardar.Enabled = False
+ UpFacturar.Update()
+
+ Alert(Msg.ToString, TipoMensaje.MsgInformacion, MsgAccionAceptar)
+ Else
+ ObjCompras.RollBack()
+ If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
+ Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente.", TipoMensaje.MsgError)
+ End If
+
End If
+ Else
+ ObjCompras.RollBack()
+ If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
+ Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente.", TipoMensaje.MsgError)
End If
+
Else
+ Alert("Debe seleccionar un Funcionario/Empleado o Caja Chica para Reembolsos. Por favor vuelva a intentar.", TipoMensaje.MsgError)
ObjCompras.RollBack()
If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
- Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente.", TipoMensaje.MsgError)
End If
-
Else
- Alert("Debe seleccionar un Funcionario/Empleado o Caja Chica para Reembolsos. Por favor vuelva a intentar.", TipoMensaje.MsgError)
+ Alert("Ocurrió un error al agregar el movimiento bancario. Revise sus datos de pago y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
ObjCompras.RollBack()
- If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
End If
- Else
- Alert("Ocurrió un error al agregar el movimiento bancario. Revise sus datos de pago y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
- ObjCompras.RollBack()
End If
- End If
-
- Catch ex As Exception
- ObjCompras.RollBack()
- If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
- Alert("Ocurrió un error al registrar la compra. Cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgError)
- GuardaLog($"Ocurrió un error al registrar la compra. Cualquier detalle comuníquese a Soporte Técnico : {ex}")
- ViewState("CveCompra") = -1
- End Try
- ObjAcar.Dispose()
- ObjCompras.Dispose()
- ObjConta.Dispose()
- ObjIE.Dispose()
- ObjInventario.Dispose()
- ObjAF.Dispose()
- ObjOC.Dispose()
- ObjProveedores.Dispose()
- ObjCGame.Dispose()
- ObjProductosServicios.Dispose()
+ Catch ex As Exception
+ ObjCompras.RollBack()
+ If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
+ Alert("Ocurrió un error al registrar la compra. Cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgError)
+ GuardaLog($"Ocurrió un error al registrar la compra. Cualquier detalle comuníquese a Soporte Técnico : {ex}")
+ ViewState("CveCompra") = -1
+ End Try
+ ObjAcar.Dispose()
+ ObjCompras.Dispose()
+ ObjConta.Dispose()
+ ObjIE.Dispose()
+ ObjInventario.Dispose()
+ ObjAF.Dispose()
+ ObjOC.Dispose()
+ ObjProveedores.Dispose()
+ ObjCGame.Dispose()
+ ObjProductosServicios.Dispose()
End If
End Sub
@@ -10040,7 +10040,7 @@ Partial Class Compras_Compras
End Sub
Private Sub SetValues()
'Dim um As New ClsUnidadesMedida
- TxtFecha.Text = Now.ToShortDateString()
+ TxtFecha.Text = NowADS().ToShortDateString()
LblUsuarioCaptura.Text = UsuarioActual.Usuario
DdlProveedor.Attributes.Add("onclick", "CargaProveedores();")
'DdlFuncionarioEmpleado.Attributes.Add("onclick", "CargaFuncionariosEmpleados();")
@@ -12608,7 +12608,7 @@ Partial Class Compras_Compras
If ObjInventario.GetExistenciasProducto(Dr.DataKey("CvePS").ToString.ToEntero, Dr.DataKey("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, CveAlmacen,
- FechaMovto:=TxtFecha.Text.ToDateTime.AddHours(Now.Hour).AddMinutes(Now.Minute).AddSeconds(Now.Second).ToString("yyyy/MM/dd HH:mm")) Then
+ FechaMovto:=TxtFecha.Text.ToDateTime.AddHours(NowADS().Hour).AddMinutes(NowADS().Minute).AddSeconds(NowADS().Second).ToString("yyyy/MM/dd HH:mm")) Then
Dim Existencia As Decimal = ObjInventario.DtResultados.FiltroPrimeroValor("ExistenciaFinal", String.Format("CveAlmacen = {0}", CveAlmacen)).ToDecimal
@@ -12699,7 +12699,7 @@ Partial Class Compras_Compras
' Dim ObjInventario As New ClsInventarios()
' Dim cvecompra As Integer = 5221
' Dim subtotal As Double = TextBox1.Text.ToDouble
- ' guardardevolucion(ObjInventario, cvecompra, subtotal, Now.ToDate)
+ ' guardardevolucion(ObjInventario, cvecompra, subtotal, NowADS().ToDate)
'End Sub
Protected Sub BtnVinculaDevolucion_Click(sender As Object, e As EventArgs)
Try
@@ -15395,15 +15395,15 @@ Partial Class Compras_Compras
#Region " CIERRE PERIODO "
Private Function ValidaCierrePeriodo() As Boolean
'solo se permiten, mes actual, mes anterior <= #dias
- Dim mesesTrans As Integer = DateDiff(DateInterval.Month, TxtFecha.Text.ToDate, Now).ToEntero
+ Dim mesesTrans As Integer = DateDiff(DateInterval.Month, TxtFecha.Text.ToDate, NowADS()).ToEntero
- If mesesTrans = 0 OrElse (mesesTrans = 1 AndAlso Day(Now) <= UsuarioActual.Empresa.Funcionalidad(123).ToEntero) Then
+ If mesesTrans = 0 OrElse (mesesTrans = 1 AndAlso Day(NowADS()) <= UsuarioActual.Empresa.Funcionalidad(123).ToEntero) Then
Return True
End If
Return False
- 'Dim mesesTrans As Integer = DateDiff(DateInterval.Month, TxtFecha.Text.ToDate, Now).ToEntero
- 'If mesesTrans > 1 OrElse Day(Now) >= UsuarioActual.Empresa.Funcionalidad(123).ToEntero Then
+ 'Dim mesesTrans As Integer = DateDiff(DateInterval.Month, TxtFecha.Text.ToDate, NowADS()).ToEntero
+ 'If mesesTrans > 1 OrElse Day(NowADS()) >= UsuarioActual.Empresa.Funcionalidad(123).ToEntero Then
' Return True
'End If
'Return False
@@ -15495,7 +15495,7 @@ Partial Class Compras_Compras
DtDatosDetalle.Rows.Add(Row)
TxtSerieLote.Text = ""
- TxtFechaCaducidad.Text = Now.ToShortDateString
+ TxtFechaCaducidad.Text = NowADS().ToShortDateString
CargaSerie()
End Sub
@@ -16450,7 +16450,7 @@ Partial Class Compras_Compras
Autorizado = ObjCon.DtResultados.FiltraParametros($"CveClasificacion = {DdlClasificacion.SelectedValue.ToEntero} AND CveTipoGasto = {DdlTipoGasto.SelectedValue.ToEntero} AND Importe > 0").Rows(0)("Importe").ToString.ToDouble
End If
End If
- If ObjCon.GetPresupuestosRep(CvePresupuesto, DdlTipoGasto.SelectedValue.ToEntero, 1, $"01/09/{DateTime.Now.Year - 1}".ToDate, Now, UsuarioActual.CveEmpresa, DdlProyecto.SelectedValue.ToEntero,
+ If ObjCon.GetPresupuestosRep(CvePresupuesto, DdlTipoGasto.SelectedValue.ToEntero, 1, $"01/09/{NowADS().Year - 1}".ToDate, NowADS(), UsuarioActual.CveEmpresa, DdlProyecto.SelectedValue.ToEntero,
DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlClasificacion.SelectedValue.ToEntero) Then
If ObjCon.DtResultados.Rows.Count > 0 Then
Ejercido = ObjCon.DtResultados.Rows(0)("Ejercido").ToString.ToDouble
@@ -16600,7 +16600,7 @@ Partial Class Compras_Compras
End If
Dim CveCompraDetalleDesvicnualarAF As Integer = TmpDT.FiltroPrimeroValor("CveCompraDetalle", $"Consec={Index}").ToEntero
- 'If ObjAF.UpdateActivosFijosCompra(-1, CveCompraDetalleDesvicnualarAF, -1, 0, Now, Opcion:=2) Then
+ 'If ObjAF.UpdateActivosFijosCompra(-1, CveCompraDetalleDesvicnualarAF, -1, 0, NowADS(), Opcion:=2) Then
For Each dRow As DataRow In TmpDT.Rows
@@ -18057,7 +18057,7 @@ Partial Class Compras_Compras
For Each Row2 As DataRow In DT.Rows
ImporteMovimiento = DtTemporal.SUM("Total", String.Format("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveClasificacion = {0} AND CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString.ToDecimal
- ImporteAlmacen = DtTemporal.SUM("ImporteEnAlmacen", String.Format("ISNULL(TipoAF,0) <> 2 AND CveClasificacion = {0} AND CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString.ToDecimal
+ ImporteAlmacen = DtTemporal.SUM("ImporteEnAlmacen", String.Format("ISNULL(TipoAF,0) <> 2 AND CveClasificacion = {0} AND CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString.ToDecimal
ImporteMovimiento = (ImporteMovimiento - ImporteAlmacen) * Multiplicador
importeMN = ImporteMovimiento * TipoCambioActual
@@ -18453,7 +18453,7 @@ Partial Class Compras_Compras
Private Sub CargaModalFletesImportaciones()
- TxtFechaModalImportacionesFletes.Text = Now.ToShortDateString
+ TxtFechaModalImportacionesFletes.Text = NowADS().ToShortDateString
TxtDescripcionModalFletesImportacion.Text = ""
TxtPedimento.Text = ""
RblTipo.SelectedValue = "1"
@@ -18532,7 +18532,7 @@ Partial Class Compras_Compras
Case 240
DdlImportaciones.SelectedValueExist(CveImportacion)
End Select
- TxtFechaModalImportacionesFletes.Text = Now.ToShortDateString
+ TxtFechaModalImportacionesFletes.Text = NowADS().ToShortDateString
TxtDescripcionModalFletesImportacion.Text = ""
TxtPedimento.Text = ""
UpModalFletesImportaciones.Update()
diff --git a/Compras/EvaluacionProveedor.aspx.vb b/Compras/EvaluacionProveedor.aspx.vb
index 517bedcec..d755d2df7 100644
--- a/Compras/EvaluacionProveedor.aspx.vb
+++ b/Compras/EvaluacionProveedor.aspx.vb
@@ -85,7 +85,7 @@ Partial Class Compras_EvaluacionProveedor
TxtSerieFolio.Text = ""
TxtPS.Text = ""
TxtCodigo.Text = ""
- TxtFecha.Text = Now.ToString("dd/MM/yyyy")
+ TxtFecha.Text = NowADS().ToString("dd/MM/yyyy")
TxtFirma.Text = UsuarioActual.Nombre
TxtCalificacion.Text = ""
@@ -147,14 +147,14 @@ Partial Class Compras_EvaluacionProveedor
TxtRS.Text = Row.DataKey("RazonSocial")
TxtCodigo.Text = Row.DataKey("Codigo")
- TxtFecha.Text = Now.ToString("dd/MM/yyyy")
+ TxtFecha.Text = NowADS().ToString("dd/MM/yyyy")
UpEvaluacion.Update()
RegistraScript("$('#DvEvaluacion').modal('show');IniciarCalculo();")
End Sub
Protected Sub BtnEvaluarProveedor_Click(sender As Object, e As EventArgs)
CalcularCalificacion()
- Dim Fecha = Now
+ Dim Fecha = NowADS()
Dim Mes = Fecha.ToString("MMMM", New CultureInfo("es-MX"))
Dim Obs = TxtObs.Text.Trim()
@@ -287,7 +287,7 @@ Partial Class Compras_EvaluacionProveedor
Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas
Dim Documento As String = "CartaProveedor.docx"
Dim PathSource As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Plantillas\{Documento}"
- Dim PathDestino As String = PathRoot & "Temp\" & Now.Ticks & Documento
+ Dim PathDestino As String = PathRoot & "Temp\" & NowADS().Ticks & Documento
If File.Exists(PathDestino) Then
File.Delete(PathDestino)
@@ -321,7 +321,7 @@ Partial Class Compras_EvaluacionProveedor
Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas
Dim Documento As String = "FormatoEvaluacionProveedor.docx"
Dim PathSource As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Plantillas\{Documento}"
- Dim PathDestino As String = PathRoot & "Temp\" & Now.Ticks & Documento
+ Dim PathDestino As String = PathRoot & "Temp\" & NowADS().Ticks & Documento
If File.Exists(PathDestino) Then
File.Delete(PathDestino)
@@ -354,7 +354,7 @@ Partial Class Compras_EvaluacionProveedor
ListaTagsDocumentost.Add(New TagsDocumentos("{{Proveedor}}", Proveedor))
ListaTagsDocumentost.Add(New TagsDocumentos("{{Dia}}", Dia))
ListaTagsDocumentost.Add(New TagsDocumentos("{{Mes}}", Mes))
- ListaTagsDocumentost.Add(New TagsDocumentos("{{Anio}}", Now.Year.ToString))
+ ListaTagsDocumentost.Add(New TagsDocumentos("{{Anio}}", NowADS().Year.ToString))
ListaTagsDocumentost.Add(New TagsDocumentos("{{Calificacion}}", Calificacion))
ListaTagsDocumentost.Add(New TagsDocumentos("{{Resultado}}", Resultado))
'ListaTagsDocumentost.Add(New TagsDocumentos("{{Usuario}}", UsuarioActual.Nombre))
diff --git a/Compras/Importaciones.aspx.vb b/Compras/Importaciones.aspx.vb
index 6b3621f02..cc2a0d2a9 100644
--- a/Compras/Importaciones.aspx.vb
+++ b/Compras/Importaciones.aspx.vb
@@ -65,7 +65,7 @@ Partial Class Compras_Importaciones
DdlProveedores.SelectedText = "Todos"
DdlProveedores.SelectedValue = "-1"
- TxtFecha.Text = Now.ToShortDateString
+ TxtFecha.Text = NowADS().ToShortDateString
End Sub
#End Region
diff --git a/Compras/PopUpBuscarFolioC.aspx.vb b/Compras/PopUpBuscarFolioC.aspx.vb
index 40c5d023f..b567dfaf0 100644
--- a/Compras/PopUpBuscarFolioC.aspx.vb
+++ b/Compras/PopUpBuscarFolioC.aspx.vb
@@ -28,8 +28,8 @@ Partial Class Compras_PopUpBuscarFolioC
'RegistraScript("$get('tdContenido').style.height='470px'")
CargaProveedor()
- txtFechaI.Text = Now.AddDays(-30).ToShortDateString
- txtFechaI.Text = Now.AddYears(-1).ToShortDateString
+ txtFechaI.Text = NowADS().AddDays(-30).ToShortDateString
+ txtFechaI.Text = NowADS().AddYears(-1).ToShortDateString
If Request("Opt") = "Fact" Then
ViewState("Opt") = "MandaCveCompra"
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 0848d97b8..fc8cd8d8b 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -1578,7 +1578,7 @@ Partial Class PopUpVerFactura
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
- params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("AgrupoPor", $"{FechaCorte}{Usuario}"))
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
Dim lrds As New List(Of ReportDataSource)
@@ -1692,7 +1692,7 @@ Partial Class PopUpVerFactura
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
- params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Contrato", $"{ObjContratos.NumeroContrato} - {ObjContratos.DescripcionContrato} "))
params.Add(New ReportParameter("Proveedor", If(ObjContratos.CveProveedor > 0, ObjContratos.RazonSocial.ToString, ObjContratos.NombreComercial.ToString)))
params.Add(New ReportParameter("FechaInicio", ObjContratos.FechaInicial.ToShortDateString))
@@ -1748,13 +1748,13 @@ Partial Class PopUpVerFactura
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
- params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("EnvioContacto", EnvioContacto))
params.Add(New ReportParameter("SerieFolio", SerieFolio))
params.Add(New ReportParameter("PedidoContrato", PedidoContrato))
params.Add(New ReportParameter("EnvioDireccion", EnvioDireccion))
params.Add(New ReportParameter("Guia", Guia))
- ImprimirPDF("Empresas/Grales/Formatos/Cicovisa.rdlc", Dt, params, String.Format("Formato Cicovisa -{0}", Now.ToDateTime.ToShortDateString))
+ ImprimirPDF("Empresas/Grales/Formatos/Cicovisa.rdlc", Dt, params, String.Format("Formato Cicovisa -{0}", NowADS().ToDateTime.ToShortDateString))
End If
End If
End Sub
@@ -2066,7 +2066,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
- params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("DomicilioFiscal", $"{UsuarioActual.Empresa.Direccion}, {UsuarioActual.Empresa.Colonia}, {UsuarioActual.Empresa.Localidad}, {UsuarioActual.Empresa.Estado}, Tel. {Telefono}"))
params.Add(New ReportParameter("SerieFolio", SerieFolio))
params.Add(New ReportParameter("DomicilioSucursal", DomicilioSucursal))
@@ -2093,7 +2093,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Ciudad", Ciudad))
params.Add(New ReportParameter("Licencia", Licencia))
- ImprimirPDF($"Empresas/Grales/Formatos/{FormatoRDLC}", Dt, params, String.Format("Carta Porte -{0}", Now.ToDateTime.ToShortDateString))
+ ImprimirPDF($"Empresas/Grales/Formatos/{FormatoRDLC}", Dt, params, String.Format("Carta Porte -{0}", NowADS().ToDateTime.ToShortDateString))
End If
@@ -2525,7 +2525,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("RegimenFiscal", UsuarioActual.Empresa.Regimen))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
- params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("DomicilioFiscal", $"{UsuarioActual.Empresa.Direccion}, {UsuarioActual.Empresa.Colonia}, {UsuarioActual.Empresa.Localidad}, {UsuarioActual.Empresa.Estado}, Tel. {Telefono}"))
params.Add(New ReportParameter("SerieFolio", SerieFolio))
params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
@@ -2736,12 +2736,12 @@ Partial Class PopUpVerFactura
ObjFactura.Folio = Folio
ObjFactura.Serie = "Tra"
'ObjFactura.CveMesa = -1
- ObjFactura.Fecha = Now
+ ObjFactura.Fecha = NowADS()
ObjFactura.CvePrePoliza = -1
- ObjFactura.FechaPago = Now
+ ObjFactura.FechaPago = NowADS()
ObjFactura.MotivoDescuento = ""
ObjFactura.Observaciones = ""
- ObjFactura.FechaEjecucion = Now
+ ObjFactura.FechaEjecucion = NowADS()
ObjFactura.UsuarioCreo = UsuarioActual.Usuario
ObjFactura.CveCondicionEntrega = -1
ObjFactura.CondicionEntrega = ""
@@ -2762,7 +2762,7 @@ Partial Class PopUpVerFactura
ObjFactura.Amortizacion = 0
ObjFactura.CveContrato = 0
ObjFactura.CveVendedor = 0
- ObjFactura.FechaVencimiento = Now
+ ObjFactura.FechaVencimiento = NowADS()
ObjFactura.TipoEstatus = 0
ObjFactura.Det_OrdenCompra = ""
ObjFactura.Inv_CveEstatusEntrega = 0
@@ -3128,7 +3128,7 @@ Partial Class PopUpVerFactura
End If
End If
- If Vta.Version.ToEntero() = 4 AndAlso dr1("CodigoObjetoImpuesto").ToString() = "02" AndAlso Now.Date >= New DateTime(2022, 11, 1) AndAlso dr1("Descuento").ToString().ToDecimal().RoundSQL(2) = dr1("Total").ToString().ToDecimal().RoundSQL(2) Then
+ If Vta.Version.ToEntero() = 4 AndAlso dr1("CodigoObjetoImpuesto").ToString() = "02" AndAlso NowADS().Date >= New DateTime(2022, 11, 1) AndAlso dr1("Descuento").ToString().ToDecimal().RoundSQL(2) = dr1("Total").ToString().ToDecimal().RoundSQL(2) Then
dr1("CodigoObjetoImpuesto") = "04"
End If
@@ -3602,7 +3602,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Concepto", "Inventario Inicial"))
params.Add(New ReportParameter("Almacen", Almacen))
params.Add(New ReportParameter("Fecha", Fecha))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
'params.Add(New ReportParameter("Descuentos", (dr("Descuentos").ToString.ToDouble).FormatoNumero(2)))
@@ -3662,7 +3662,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("Concepto", ConceptoFormato))
params.Add(New ReportParameter("Almacen", Almacen))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Folio", Folio))
@@ -3714,7 +3714,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Concepto", concepto))
params.Add(New ReportParameter("Almacen", Almacen))
params.Add(New ReportParameter("Fecha", Fecha))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("FacturadoA", NombreCliente))
params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("SerieFolio").ToString, "")))
@@ -3766,7 +3766,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Concepto", "ENTRADA DE ALMACÉN"))
params.Add(New ReportParameter("Almacen", Almacen))
params.Add(New ReportParameter("Fecha", Fecha))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("FacturadoA", NombreCliente))
params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("SerieFolio").ToString, "")))
@@ -3836,7 +3836,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Telefono", DtMovimientos(0)("Telefono").ToString))
params.Add(New ReportParameter("Correo", DtMovimientos(0)("Correo").ToString))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("NombreEntrego", Capturo))
params.Add(New ReportParameter("NombreRecibio", Recibio))
@@ -3916,7 +3916,7 @@ Partial Class PopUpVerFactura
End If
params.Add(New ReportParameter("Concepto", concepto))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("Almacen", Almacen))
params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
@@ -3948,7 +3948,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
params.Add(New ReportParameter("FacturadoA", If(DtMovimientos(0)("Nombre").ToString <> "", DtMovimientos(0)("Nombre").ToString, NombreCliente)))
params.Add(New ReportParameter("Observaciones", Observaciones))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("Descuentos", ""))
params.Add(New ReportParameter("IVA", ""))
@@ -3984,7 +3984,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
params.Add(New ReportParameter("FacturadoA", If(DtMovimientos(0)("Nombre").ToString <> "", DtMovimientos(0)("Nombre").ToString, NombreCliente)))
params.Add(New ReportParameter("Observaciones", Observaciones))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("Descuentos", ""))
params.Add(New ReportParameter("IVA", ""))
@@ -4059,7 +4059,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Concepto", "Entrada por Desarmado de Paquete"))
params.Add(New ReportParameter("Almacen", Almacen))
params.Add(New ReportParameter("Fecha", Fecha))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("Descuentos", ""))
params.Add(New ReportParameter("IVA", ""))
@@ -4083,7 +4083,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Concepto", "Salida por Armado de Paquete"))
params.Add(New ReportParameter("Almacen", Almacen))
params.Add(New ReportParameter("Fecha", Fecha))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("Descuentos", ""))
params.Add(New ReportParameter("IVA", ""))
@@ -4126,7 +4126,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
params.Add(New ReportParameter("NombreProveedor", Proveedor))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
End If
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
@@ -4198,7 +4198,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
params.Add(New ReportParameter("NombreProveedor", Proveedor))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
End If
@@ -4359,7 +4359,7 @@ Partial Class PopUpVerFactura
If UsuarioActual.CveEmpresa = 140 Then
params.Add(New ReportParameter("Origen", Almacen))
params.Add(New ReportParameter("Destino", AlmacenDestino))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("CantidadProductos", CantidadProductos.ToString()))
@@ -4369,7 +4369,7 @@ Partial Class PopUpVerFactura
ElseIf UsuarioActual.CveEmpresa = 153 Then
params.Add(New ReportParameter("Origen", Almacen))
params.Add(New ReportParameter("Destino", AlmacenDestino))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("Observaciones", Observaciones)) 'TxtObservaciones.Text
@@ -4388,7 +4388,7 @@ Partial Class PopUpVerFactura
End If
If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 119 Then
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("AlmacenOrigen", Almacen))
params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
@@ -4404,7 +4404,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
params.Add(New ReportParameter("Origen", Almacen))
params.Add(New ReportParameter("Destino", AlmacenDestino))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
If UsuarioActual.CveEmpresa.Contiene(172, 173) Then
@@ -4439,7 +4439,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Factura", DtMovimientos(0)("SerieFolio").ToString))
If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 119 Then
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("AlmacenOrigen", Almacen))
params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
@@ -4451,7 +4451,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Origen", AlmacenDestino)) ' se invierte
params.Add(New ReportParameter("Destino", Almacen))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString()))
@@ -4460,7 +4460,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
params.Add(New ReportParameter("Origen", AlmacenDestino)) ' se invierte
params.Add(New ReportParameter("Destino", Almacen))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
End If
@@ -4473,7 +4473,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Origen", Almacen))
params.Add(New ReportParameter("Destino", AlmacenDestino))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
ImprimirPDF(String.Format("Empresas/Grales/Formatos/Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Recepción de Traslado - {0}", Folio), RDSName:="DsInventarios")
@@ -4544,7 +4544,7 @@ Partial Class PopUpVerFactura
End If
If UsuarioActual.CveEmpresa = 119 Then
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
End If
'ObjInventarios.Dispose()
@@ -4660,7 +4660,7 @@ Partial Class PopUpVerFactura
End If
params.Add(New ReportParameter("Concepto", "Entrada por garantia"))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("Fecha", Fecha))
params.Add(New ReportParameter("Almacen", Almacen))
@@ -4693,7 +4693,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Concepto", "Salida Garantía"))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("Fecha", Fecha))
params.Add(New ReportParameter("Almacen", Almacen))
@@ -4740,7 +4740,7 @@ Partial Class PopUpVerFactura
CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
End If
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("Concepto", "DEVOLUCIÓN DEL CLIENTE"))
params.Add(New ReportParameter("Fecha", Fecha))
@@ -4752,7 +4752,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString))
params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 119 Then
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
@@ -4780,7 +4780,7 @@ Partial Class PopUpVerFactura
CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
End If
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("Concepto", "DEVOLUCIÓN DEL CLIENTE"))
params.Add(New ReportParameter("Fecha", Fecha))
@@ -4792,7 +4792,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString))
params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
ImprimirPDF("Empresas/Grales/Formatos/DevolucionCliente.rdlc", DtMovimientos, params, String.Format("Devolucion del Cliente - {0}", Folio.ToString), RDSName:="DsInventarios")
@@ -4810,7 +4810,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Concepto", "Armado de Paquete"))
params.Add(New ReportParameter("Almacen", Almacen))
params.Add(New ReportParameter("Fecha", Fecha))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("Descuentos", ""))
params.Add(New ReportParameter("IVA", ""))
@@ -4835,7 +4835,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Concepto", "Desarmado de Paquete"))
params.Add(New ReportParameter("Almacen", Almacen))
params.Add(New ReportParameter("Fecha", Fecha))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("Descuentos", ""))
params.Add(New ReportParameter("IVA", ""))
@@ -4861,7 +4861,7 @@ Partial Class PopUpVerFactura
End If
params.Add(New ReportParameter("Almacen", Almacen))
params.Add(New ReportParameter("Fecha", Fecha))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("Descuentos", ""))
params.Add(New ReportParameter("IVA", ""))
@@ -4888,7 +4888,7 @@ Partial Class PopUpVerFactura
' params.Add(New ReportParameter("Concepto", "Entrada por Prestamo"))
' params.Add(New ReportParameter("Almacen", Almacen))
' params.Add(New ReportParameter("Fecha", Fecha))
- ' params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ ' params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
' params.Add(New ReportParameter("Folio", Folio))
' params.Add(New ReportParameter("Descuentos", ""))
' params.Add(New ReportParameter("IVA", ""))
@@ -4915,7 +4915,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Concepto", "Salida por resguardo"))
params.Add(New ReportParameter("Almacen", Almacen))
params.Add(New ReportParameter("Fecha", Fecha))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("Descuentos", ""))
params.Add(New ReportParameter("IVA", ""))
@@ -4997,7 +4997,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Concepto", ConceptoReporte))
params.Add(New ReportParameter("Almacen", Almacen))
params.Add(New ReportParameter("Fecha", Fecha))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("Proveedor", Proveedor))
params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
@@ -5037,7 +5037,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Telefono", DtMovimientos(0)("Telefono").ToString))
params.Add(New ReportParameter("Correo", DtMovimientos(0)("Correo").ToString))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("NombreEntrego", Capturo))
params.Add(New ReportParameter("NombreRecibio", Recibio))
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
@@ -5057,7 +5057,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Observaciones", Observaciones))
params.Add(New ReportParameter("Almacen", Almacen))
params.Add(New ReportParameter("NombreRecibio", Recibio))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/SalidaDemostracion.rdlc", DtMovimientos, params, String.Format("Salida por Demostración - {0}", Folio.ToString), RDSName:="DsInventarios")
End If
@@ -5100,7 +5100,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Telefono", DtMovimientos(0)("Telefono").ToString))
params.Add(New ReportParameter("Correo", DtMovimientos(0)("Correo").ToString))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("NombreEntrego", Capturo))
params.Add(New ReportParameter("NombreRecibio", Recibio))
@@ -5184,7 +5184,7 @@ Partial Class PopUpVerFactura
End If
params.Add(New ReportParameter("Concepto", ConceptoReporte))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("Almacen", Almacen))
params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
@@ -5207,7 +5207,7 @@ Partial Class PopUpVerFactura
Else
If UsuarioActual.CveEmpresa = 140 Then
params.Add(New ReportParameter("Concepto", ConceptoReporte))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro))
End If
params.Add(New ReportParameter("Folio", Folio))
@@ -5230,7 +5230,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
params.Add(New ReportParameter("Observaciones", Observaciones))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("Descuentos", ""))
params.Add(New ReportParameter("IVA", ""))
@@ -5306,7 +5306,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Sucursal", "Sucursal"))
params.Add(New ReportParameter("Cliente", NombreCliente))
params.Add(New ReportParameter("Folio", Folio))
- params.Add(New ReportParameter("FechaImpresion", Now.ToString("dd/MM/yyyy hh:mm tt")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy hh:mm tt")))
params.Add(New ReportParameter("Recibio", Recibio))
params.Add(New ReportParameter("Observaciones", Observaciones))
'params.Add(New ReportParameter("Observaciones", "Observaciones con un tamaño mas grande para ver como se ve en el ticket chico."))
@@ -5331,7 +5331,7 @@ Partial Class PopUpVerFactura
CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
End If
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("Concepto", "DEVOLUCIÓN DEL CLIENTE"))
params.Add(New ReportParameter("Fecha", Fecha))
@@ -5343,7 +5343,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString))
params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionCliente.rdlc", DtMovimientos, params, String.Format("Devolucion del Cliente - {0}", Folio.ToString), RDSName:="DsInventarios")
@@ -5479,7 +5479,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Año", dr("Año").ToString))
params.Add(New ReportParameter("TelefonoContacto", dr("TelefonoContacto").ToString))
- params.Add(New ReportParameter("FechaImpresion", Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
params.Add(New ReportParameter("Condiciones", dr("Condiciones").ToString))
params.Add(New ReportParameter("FechaAtencion", If(dr("FechaInicio").ToString.Length > 0, dr("FechaInicio").ToString.ToDate.ToString("dd/MM/yyyy hh:mm tt"), "")))
@@ -5503,7 +5503,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
- params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
@@ -5976,7 +5976,7 @@ Partial Class PopUpVerFactura
Tabla = ObjIE.DtResultados
Dim params As New List(Of ReportParameter)
- params.Add(New ReportParameter("Fecha", Now.ToDateTime.ToString))
+ params.Add(New ReportParameter("Fecha", NowADS().ToDateTime.ToString))
params.Add(New ReportParameter("FechaIE", ObjIE.DtResultados(0)("FechaDocumento").ToString.ToDate.ToShortDateString))
params.Add(New ReportParameter("CuentaCaja", CuentaCaja))
params.Add(New ReportParameter("CuentaDeposito", CuentaDeposito))
@@ -6105,7 +6105,7 @@ Partial Class PopUpVerFactura
ElseIf CveTipoTransaccion.Contiene(2, 8, 9, 10) Then
Dim Folio, Observacion, UsuarioRegistro, TextoImporte, PagueseA, Ruta, Banco, NumCuenta, AbonoCuenta, SubProyecto, NotificarA, RefCrediproveedor As String
- Dim FechaExpedicion As Date = Now
+ Dim FechaExpedicion As Date = NowADS()
Dim Importe As Double
Dim FormatoCheque As String = ""
@@ -6218,7 +6218,7 @@ Partial Class PopUpVerFactura
'IMPRESION DE FORMATO DE IE PAGO EN EFECTIVO PARA COMPU - VIATICOS
Dim Folio As String = "", Observacion As String = "", UsuarioRegistro As String = "", TextoImporte As String = "", PagueseA As String = ""
Dim Ruta As String = UsuarioActual.Empresa.Ruta
- Dim FechaExpedicion As Date = Now
+ Dim FechaExpedicion As Date = NowADS()
Dim Importe As Double
Dim FormatoCheque As String = ""
@@ -6302,7 +6302,7 @@ Partial Class PopUpVerFactura
If UsuarioActual.CveEmpresa = 72 Then
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
- params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToString))
params.Add(New ReportParameter("CveCajaChica", DtComprobacion.Rows(0)("CveCajaChica").ToString))
params.Add(New ReportParameter("CveFyE", "0")) '
@@ -6319,7 +6319,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Numero", "")) '
params.Add(New ReportParameter("Anio", DtComprobacion.FiltraParametros("CveCompra > 0").MAX("Fecha").ToDate.Year.ToString))
params.Add(New ReportParameter("Nombre", DtComprobacion.MAX("SubProyecto")))
- params.Add(New ReportParameter("Fecha", Now.Date.ToString))
+ params.Add(New ReportParameter("Fecha", NowADS().Date.ToString))
params.Add(New ReportParameter("Elaboro", ""))
params.Add(New ReportParameter("Autorizo", ""))
params.Add(New ReportParameter("ElaboroPuesto", ""))
@@ -6329,7 +6329,7 @@ Partial Class PopUpVerFactura
Else
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
- params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToString))
params.Add(New ReportParameter("cuentaRetiro", "Cuenta retiro: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
params.Add(New ReportParameter("CajaChica", "Caja chica: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
@@ -6382,7 +6382,7 @@ Partial Class PopUpVerFactura
Dim paramList As New List(Of ReportParameter)
With paramList
.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
- .Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+ .Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
.Add(New ReportParameter("Cuenta", ObjIE.NumCuenta, True))
.Add(New ReportParameter("Fecha", ObjIE.FechaDocumento.ToString("dd/MM/yyyy"), True))
diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb
index 7e10dd96d..ffd74af0e 100644
--- a/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -449,7 +449,7 @@ Partial Class Compras_Proveedores
Private Property FechaLimite As Date
Get
If ViewState("FechaLimite") Is Nothing Then
- Return Date.Now.AddDays(15)
+ Return NowADS().AddDays(15)
Else
Return ViewState("FechaLimite").ToString.ToDate
End If
@@ -546,7 +546,7 @@ Partial Class Compras_Proveedores
ImgAddObs.Visible = False
ChkEstado.Checked = True : ChkEstado.Enabled = False
- LblFechaCaptura.Text = Now.ToShortDateString()
+ LblFechaCaptura.Text = NowADS().ToShortDateString()
LblUsuarioCapturo.Text = UsuarioActual.Usuario
ViewState("CveProveedor") = -1
DivSucursales.Visible = False
@@ -625,8 +625,8 @@ Partial Class Compras_Proveedores
End If
- TxtFechaICredito.Text = Now.AddYears(-2).ToShortDateString
- TxtFechaFCredito.Text = Now.ToShortDateString
+ TxtFechaICredito.Text = NowADS().AddYears(-2).ToShortDateString
+ TxtFechaFCredito.Text = NowADS().ToShortDateString
If UsuarioActual.Empresa.Funcionalidad(560) = "1" Then
TabEvaluacion.Visible = True
@@ -734,7 +734,7 @@ Partial Class Compras_Proveedores
Private Function CargadeFactura(CveFactura As Integer) As Integer
Dim ObjeFacturas As New ClsCompras
- If ObjeFacturas.GetFacturas(CveFactura, "-1", Now.AddYears(-2), Now, "-1", "-1", -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa) Then
+ If ObjeFacturas.GetFacturas(CveFactura, "-1", NowADS().AddYears(-2), NowADS(), "-1", "-1", -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa) Then
Dim XMLDoc As New XmlDocument
Try
@@ -2229,7 +2229,7 @@ Partial Class Compras_Proveedores
Dim Para As String = TxtCorreoCobranza.Text.Trim
Dim Liga As String = ObjParametro.Cadena1 & "LogIn.aspx"
- Dim LigaActivar As String = Liga & "?p=" & Encripta("CveU=" & CveUsuario & "&Clave=" & "-acceso-" & "&Opcion=Activar&Hora=" & DateTime.Now.Ticks & "&CveE=" & UsuarioActual.CveEmpresa)
+ Dim LigaActivar As String = Liga & "?p=" & Encripta("CveU=" & CveUsuario & "&Clave=" & "-acceso-" & "&Opcion=Activar&Hora=" & NowADS().Ticks & "&CveE=" & UsuarioActual.CveEmpresa)
Dim ObjMail As New ClsSisMail()
@@ -3730,7 +3730,7 @@ Partial Class Compras_Proveedores
lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa))
lista.Add(New CrystalParametro("TipoCuentas", DdlTipoCuentasCxP.SelectedItem.Text))
lista.Add(New CrystalParametro("FechaInicio", If(FI = "-1", "-", FI)))
- lista.Add(New CrystalParametro("FechaFin", If(FF = "-1", DateTime.Now.ToShortDateString, FF)))
+ lista.Add(New CrystalParametro("FechaFin", If(FF = "-1", NowADS().ToShortDateString, FF)))
lista.Add(New CrystalParametro("NombreProveedor", LtlProveedor.Text))
lista.Add(New CrystalParametro("DireccionProveedor", TxtDireccion.Text))
lista.Add(New CrystalParametro("ProveedorRFC", TxtRFC.Text))
@@ -3885,7 +3885,7 @@ Partial Class Compras_Proveedores
' ' ArchivoTemp.Delete()
' ' Dim Descargas As New StringBuilder()
- ' ' Descargas.AppendFormat("
")
diff --git a/RH/Reclutamiento.aspx.vb b/RH/Reclutamiento.aspx.vb
index a1e137583..bea4bc3d4 100644
--- a/RH/Reclutamiento.aspx.vb
+++ b/RH/Reclutamiento.aspx.vb
@@ -458,7 +458,7 @@ Partial Class RH_Reclutamiento
Private Property FechaLimite As Date
Get
If ViewState("FechaLimite") Is Nothing Then
- Return Date.Now.AddDays(15)
+ Return NowADS().AddDays(15)
Else
Return ViewState("FechaLimite").ToString.ToDate
End If
@@ -1115,7 +1115,7 @@ Partial Class RH_Reclutamiento
If Not IsDBNull(objRH.DtResultados(0)("FechaInicioContrato")) Then
If objRH.DtResultados(0)("FechaInicioContrato").ToString.ToDate().ToString("dd/MM/yyyy") = "01/01/0001" Then
- TxtFechaInicio.Text = Now.ToShortDateString
+ TxtFechaInicio.Text = NowADS().ToShortDateString
Else
TxtFechaInicio.Text = objRH.DtResultados(0)("FechaInicioContrato").ToString.ToDate().ToString("dd/MM/yyyy")
End If
@@ -1586,7 +1586,7 @@ Partial Class RH_Reclutamiento
Dim _ParientesEmpresaDetalle As String
Dim _InfonavitNoCredito As String
Dim CveCaptacion As Integer = If(DdlCaptacion.SelectedValue.ToEntero = 0, -1, DdlCaptacion.SelectedValue.ToEntero)
- Edad = Now.Year - TxtFechaN4.Text.ToDate.Year
+ Edad = NowADS().Year - TxtFechaN4.Text.ToDate.Year
If TxtParientesEmpresaDetalle.Text.Trim.Length > 0 Then
_ParientesEmpresaDetalle = TxtParientesEmpresaDetalle.Text.Trim
@@ -3001,7 +3001,7 @@ Partial Class RH_Reclutamiento
Dim objDoc As New clsGemBoxDocument(pathDesti)
Dim objRH As New ClsRH
- Dim FechaActual As String = Now.Day.ToString("0#") & " de " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString & " del " & Now.Year.ToString()
+ Dim FechaActual As String = NowADS().Day.ToString("0#") & " de " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString & " del " & NowADS().Year.ToString()
objDoc.SustituirTags(objRH.GetDatosTagsDocumentos(CvePersonal, UsuarioActual.CveEmpresa))
@@ -3725,7 +3725,7 @@ Partial Class RH_Reclutamiento
Dim CveCaracteristicaOpcion As Integer = -1
Dim CaracteristicaValor As String = ""
- Dim CaracteristicaValorDate As Date = Now
+ Dim CaracteristicaValorDate As Date = NowADS()
Dim CaracteristicaValorInt As Integer = -1
@@ -5363,7 +5363,7 @@ Partial Class RH_Reclutamiento
End If
Dim CveCaptacion As Integer = If(DdlCaptacion.SelectedValue.ToEntero = 0, -1, DdlCaptacion.SelectedValue.ToEntero)
- Edad = Now.Year - TxtFechaN4.Text.ToDate.Year
+ Edad = NowADS().Year - TxtFechaN4.Text.ToDate.Year
If ValidaGuardaFirmaContratoEvento() Then
If objRh.PersonalReclutamientoUpdate(CvePersonal, TxtNombres4.Text, TxtAPaterno4.Text, TxtAmaterno4.Text, TxtEstatura4.Text.ToDecimal, TxtPeso4.Text.ToDecimal,
@@ -5696,7 +5696,7 @@ Partial Class RH_Reclutamiento
objRH.Dispose()
Cuerpo.AppendLine("
", StrSupervisa)
@@ -3358,7 +3358,7 @@ Public Class WSSIGApp
#Region "F U N C I O N E S"
Private Function notcurrentdate(fecha As DateTime) As Boolean
- Return Not (fecha > (DateTime.Now).AddMinutes(-15) And fecha < (DateTime.Now).AddMinutes(15))
+ Return Not (fecha > (ClsPaginas.NowADS()).AddMinutes(-15) And fecha < (ClsPaginas.NowADS()).AddMinutes(15))
End Function
Private Function ValorXML(n As System.Xml.XmlNode, Campo As String, Optional Retorno As String = "") As String
Dim o As System.Xml.XmlNode = n.Attributes.Cast(Of System.Xml.XmlAttribute)().SingleOrDefault(Function(a) String.Compare(a.Name, Campo, True) = 0)
@@ -3370,7 +3370,7 @@ Public Class WSSIGApp
End Function
Private Function IsCurrentDate(StrFecha As String) As Boolean
'Dim FechaServer As DateTime = ReturnTimeOnServer(StrFecha)
- 'Return (FechaServer > (DateTime.Now).AddMinutes(-15) And FechaServer < (DateTime.Now).AddMinutes(15))
+ 'Return (FechaServer > (ClsPaginas.NowADS()).AddMinutes(-15) And FechaServer < (ClsPaginas.NowADS()).AddMinutes(15))
Return True
End Function
Public Function ReturnTimeOnServer(clientString As String) As DateTime
@@ -3395,7 +3395,7 @@ Public Class WSSIGApp
Public Function GetTipoCambio() As String
Dim Retorno = "[]"
Dim ObjTC As New ClsGenerales
- If ObjTC.GetTipoCambio(-1, DateTime.Now) Then
+ If ObjTC.GetTipoCambio(-1, ClsPaginas.NowADS()) Then
Retorno = JsonConvert.SerializeObject(ObjTC.DtResultados.Rows(0).DataRowToObject(Of WsTipoCambio))
End If
ObjTC.Dispose()
@@ -3484,7 +3484,7 @@ Public Class WSSIGApp
},
.Respuestas = CreateListFromSingle(New With {.IDTempCveEmpresaCRM = -1, .CveEmpresaCRM = -1, .CveEncuesta = -1, .CveEncuestaAplicadaDetalle = -1, .CveEmpresa = -1, .CveUsuario = -1, .CvePregunta = -1, .CveRespuesta = -1, .Valor = ""}),
.Contactos = CreateListFromSingle(New With {.IDTempCveEmpresaCRM = -1, .CveContacto = -1, .Nombre = "", .TelefonoOficina = "", .Celular = "", .Correo = "", .CveUsuarioIng = -1, .CveEmpresaCRM = -1}),
- .Acercamientos = CreateListFromSingle(New With {.IDTemp = -1, .CveAcercamiento = -1, .CveEmpresaCRM = -1, .CveContactoPrincipal = -1, .CveTipoProceso = -1, .CveEtapaProcesoActual = -1, .CveVendedor = -1, .CveMedioCaptacion = -1, .CveRechazoMotivo = -1, .CveProbabilidadAcercamiento = -1, .FechaApertura = Now, .NombreAcercamiento = "", .Descripcion = "", .Importe = 0D, .Comision = 0D, .Prioridad = -1, .CveEmpresa = -1, .CveUsuarioIng = -1, .CveUsuarioMod = -1, .FechaCierre = Now, .CveEncuestaAplicadaProceso = -1}),
+ .Acercamientos = CreateListFromSingle(New With {.IDTemp = -1, .CveAcercamiento = -1, .CveEmpresaCRM = -1, .CveContactoPrincipal = -1, .CveTipoProceso = -1, .CveEtapaProcesoActual = -1, .CveVendedor = -1, .CveMedioCaptacion = -1, .CveRechazoMotivo = -1, .CveProbabilidadAcercamiento = -1, .FechaApertura = ClsPaginas.NowADS(), .NombreAcercamiento = "", .Descripcion = "", .Importe = 0D, .Comision = 0D, .Prioridad = -1, .CveEmpresa = -1, .CveUsuarioIng = -1, .CveUsuarioMod = -1, .FechaCierre = ClsPaginas.NowADS(), .CveEncuestaAplicadaProceso = -1}),
.BitacorasAcercamientos = CreateListFromSingle(New With {.IDTempCveAcercamiento = -1, .CveEvento = -1, .Descripcion = "", .CveTipoProcesoCRM = -1, .CveEmpresa = -1, .CveUsuarioIng = -1, .CveAcercamiento = -1, .CveEtapaProcesoCRM = -1})
}
Dim ObjCRM As New ClsCRM
@@ -3680,7 +3680,7 @@ Public Class WSSIGApp
Public Function SyncAcercamiento(params As String) As Boolean
Dim TieneError As Boolean = False
- Dim Estructura = CreateListFromSingle(New With {.CveAcercamiento = -1, .CveEmpresaCRM = -1, .CveContactoPrincipal = -1, .CveTipoProceso = -1, .CveEtapaProcesoActual = -1, .CveVendedor = -1, .CveMedioCaptacion = -1, .CveRechazoMotivo = -1, .CveProbabilidadAcercamiento = -1, .FechaApertura = Now, .NombreAcercamiento = "", .Descripcion = "", .Importe = 0D, .Comision = 0D, .Prioridad = -1, .CveEmpresa = -1, .CveUsuarioIng = -1, .CveUsuarioMod = -1, .FechaCierre = Now, .CveEncuestaAplicadaProceso = -1})
+ Dim Estructura = CreateListFromSingle(New With {.CveAcercamiento = -1, .CveEmpresaCRM = -1, .CveContactoPrincipal = -1, .CveTipoProceso = -1, .CveEtapaProcesoActual = -1, .CveVendedor = -1, .CveMedioCaptacion = -1, .CveRechazoMotivo = -1, .CveProbabilidadAcercamiento = -1, .FechaApertura = ClsPaginas.NowADS(), .NombreAcercamiento = "", .Descripcion = "", .Importe = 0D, .Comision = 0D, .Prioridad = -1, .CveEmpresa = -1, .CveUsuarioIng = -1, .CveUsuarioMod = -1, .FechaCierre = ClsPaginas.NowADS(), .CveEncuestaAplicadaProceso = -1})
Dim ObjCRM As New ClsCRM
Try
Dim JsonRequest = Decripta(params)
@@ -3689,7 +3689,7 @@ Public Class WSSIGApp
If item.CveAcercamiento > 0 Then
TieneError = Not ObjCRM.UpdateAcercamiento(item.CveAcercamiento, item.CveContactoPrincipal, item.CveTipoProceso, item.CveEtapaProcesoActual, item.CveVendedor, item.CveMedioCaptacion, item.CveProbabilidadAcercamiento, item.NombreAcercamiento, item.Descripcion, item.Importe, item.Comision, item.Prioridad, item.CveUsuarioMod, item.CveRechazoMotivo, item.CveEncuestaAplicadaProceso, item.FechaApertura, item.FechaCierre)
Else
- Dim i As Integer = ObjCRM.AddAcercamiento(item.CveEmpresaCRM, item.CveContactoPrincipal, item.CveTipoProceso, item.CveEtapaProcesoActual, item.CveVendedor, item.CveMedioCaptacion, item.CveRechazoMotivo, item.CveProbabilidadAcercamiento, item.FechaApertura, item.NombreAcercamiento, item.Descripcion, item.Importe, item.Comision, item.Prioridad, item.CveEmpresa, item.CveUsuarioIng, Now)
+ Dim i As Integer = ObjCRM.AddAcercamiento(item.CveEmpresaCRM, item.CveContactoPrincipal, item.CveTipoProceso, item.CveEtapaProcesoActual, item.CveVendedor, item.CveMedioCaptacion, item.CveRechazoMotivo, item.CveProbabilidadAcercamiento, item.FechaApertura, item.NombreAcercamiento, item.Descripcion, item.Importe, item.Comision, item.Prioridad, item.CveEmpresa, item.CveUsuarioIng, ClsPaginas.NowADS())
If i <= 0 Then TieneError = True
End If
If TieneError Then
@@ -4023,7 +4023,7 @@ Public Class WSSIGApp
If Not cevent.recurrenciatipo > 0 Then
'AGREGAMOS CUANDO NO ES RECURRENTE
- Dim tFecha As DateTime = DateAdd(DateInterval.Month, -6, Date.Now)
+ Dim tFecha As DateTime = DateAdd(DateInterval.Month, -6, ClsPaginas.NowADS())
'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL NO LO AGREGA
If dr("FechaFin").ToString.ToDateTime > tFecha Or dr("FechaInicio").ToString.ToDateTime > tFecha Then
Events.Add(cevent)
@@ -4102,7 +4102,7 @@ Public Class WSSIGApp
End If
'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL Y/0 SI LA FECHA INICIAL DE LA RECURRENCIA ES MENOR A LA FECHA QUE SE CREO EL EVENTO NO LO AGREGA
- If FIT > DateAdd(DateInterval.Month, -6, Date.Now) And FIT >= dr("FechaInicio").ToString.ToDateTime Then
+ If FIT > DateAdd(DateInterval.Month, -6, ClsPaginas.NowADS()) And FIT >= dr("FechaInicio").ToString.ToDateTime Then
Events.Add(cevent)
End If
Next
@@ -4139,7 +4139,7 @@ Public Class WSSIGApp
End If
'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL NO LO AGREGA
- If FI > DateAdd(DateInterval.Month, -6, Date.Now) Then
+ If FI > DateAdd(DateInterval.Month, -6, ClsPaginas.NowADS()) Then
Events.Add(cevent)
End If
End If
@@ -4271,7 +4271,7 @@ Public Class WSSIGApp
sb.Append($" ({CveUsuario}")
sb.Append($" ,CAST('{Fecha.ToString("yyyy-MM-dd HH:mm:ss")}' AS DATETIME) ")
sb.Append($" ,geography::STPointFromText('{$"POINT({Longitud} {Latitud})"}',4326)")
- sb.Append($" ,CAST('{DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss")}' AS DATETIME))")
+ sb.Append($" ,CAST('{ClsPaginas.NowADS().ToString("yyyy-MM-dd HH:mm:ss")}' AS DATETIME))")
Using ObjInventarios As New ClsInventarios
retorno = ObjInventarios.GetQuery(sb.ToString)
@@ -4777,8 +4777,8 @@ Namespace WebServiceAppModels
Total = 0
IVA = 0
SubTotal = 0
- Fecha = DateTime.Now
- FechaIng = DateTime.Now
+ Fecha = ClsPaginas.NowADS()
+ FechaIng = ClsPaginas.NowADS()
End Sub
Public Property IDTempVenta As Integer
diff --git a/asmx/WS_PuntoVenta.asmx b/asmx/WS_PuntoVenta.asmx
index 9978cf5c5..ce80827b3 100644
--- a/asmx/WS_PuntoVenta.asmx
+++ b/asmx/WS_PuntoVenta.asmx
@@ -851,7 +851,7 @@ Public Class WS_PuntoVenta
If objVentas.AddVenta(objVenta.TipoDocto, objVenta.FolioFact, objVenta.CveCliente, objVenta.CveClienteSucursal,
objVenta.SubTotal, objVenta.Descuento, objVenta.Amortizacion, objVenta.IVA, objVenta.RetIVA, objVenta.RetISR,
objVenta.Total, objVenta.CveMoneda, objVenta.TipoCambio, objVenta.CveMetodoPago, objVenta.CondicionesPago,
- objVenta.FormaPago, Now, objVenta.Fecha, objVenta.MotivoDescuento, objVenta.Observaciones, objVenta.FechaEjecucion,
+ objVenta.FormaPago, ClsPaginas.NowADS(), objVenta.Fecha, objVenta.MotivoDescuento, objVenta.Observaciones, objVenta.FechaEjecucion,
objVenta.CveVendedor, If(objVenta.Alfa1 IsNot Nothing, objVenta.Alfa1, ""), If(objVenta.Alfa2 IsNot Nothing, objVenta.Alfa2, ""), If(objVenta.Alfa3 IsNot Nothing, objVenta.Alfa3, ""), objVenta.Num1,
objVenta.Num2, objVenta.Num3, Fech1, Fech2, Fech3, objVenta.CveCorte, If(objVenta.NumeroPersonas > 255, 255, objVenta.NumeroPersonas), CvePrePoliza, objVenta.CveUsuario, objVenta.CveEmpresa, objVenta.Propina, objVenta.CveVentaTerminal, CveSubProyecto:=objVenta.CveSubProyecto, CveSubProyectoEjecucion:=objVenta.CveSubProyecto) Then
objVenta.CveVenta = objVentas.CveVenta