Empresas Zona Horaria

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