Empresas Zona Horaria

2023-10-09 11:54:42 -07:00
parent 2df7c3976c
commit f43b7759a8
649 changed files with 11445 additions and 11105 deletions
--- a/Ventas/RepPUESinPago.aspx.vb
+++ b/Ventas/RepPUESinPago.aspx.vb
@@ -24,8 +24,8 @@ Partial Class Ventas_RepPUESinPago
    End Sub

    Private Sub InicializaValores()
-        TxtFechaI.Text = FirstDayOfMonth(Now).ToShortDateString
-        TxtFechaF.Text = Now.LastDayOfMonth.ToShortDateString
+        TxtFechaI.Text = FirstDayOfMonth(NowADS()).ToShortDateString
+        TxtFechaF.Text = NowADS().LastDayOfMonth.ToShortDateString

        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
        DdlSubProyecto.DataBind()