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/Sistemas/CatSesiones.aspx.vb
+++ b/Sistemas/CatSesiones.aspx.vb
@@ -631,7 +631,7 @@ Partial Class Sistemas_CatSesiones

    Private Sub CargaTC()
        Dim ObjGral As New ClsGenerales
-        If ObjGral.GetTipoCambio(-1, Now) Then
+        If ObjGral.GetTipoCambio(-1, NowADS()) Then
            If ObjGral.DtResultados.Rows.Count > 0 Then
                Application("GlobalTipoCambio") = ObjGral.DtResultados.Rows(0)("TipoCambio").ToString
            End If