AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Empresas Zona Horaria

Browse Source
This commit is contained in:
rakcsle
2023-10-09 11:54:42 -07:00
parent 2df7c3976c
commit f43b7759a8
649 changed files with 11445 additions and 11105 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
ZDG/ActualizaPadron.aspx.vb
View File

@@ -179,7 +179,7 @@ Partial Class ZDG_ActualizaPadron
'ACTUALIZA BITACORA
If Not ErrorActualizacion Then
If Not ObjDG.AddActualizacionPadron(NombreArchivo, RegistrosActualizados, DateTime.Now, UsuarioActual.Usuario) Then
If Not ObjDG.AddActualizacionPadron(NombreArchivo, RegistrosActualizados, NowADS(), UsuarioActual.Usuario) Then
ErrorActualizacion = True
End If
End If

2
ZDG/CapturaManual.aspx.vb
View File

@@ -35,7 +35,7 @@ Partial Class ZDG_CapturaManual
Dim Dr = TempDT.NewRow
Dr("Consecutivo") = TxtConsecutivo.Text.ToEntero
Dr("Hora") = DateTime.Now
Dr("Hora") = NowADS()
Dr("Resultado") = False
If ObjDG.RegistrarVoto(TxtConsecutivo.Text.ToEntero) Then

8
ZDG/MensajeAutomatico.aspx.vb
View File

@@ -135,14 +135,14 @@ Partial Class ZDG_MensajeAutomatico
'MENSAJES A IPP
If ObjDG.EnviarMensajeWS("6313186706", String.Format("SE ENVIO SMS AUTOMATICO - Hora: {0}", Now.ToString("HH:mm:ss"))) Then
If ObjDG.MensajeAdd(2, "6313186706", String.Format("SE ENVIO SMS AUTOMATICO - Hora: {0}", Now.ToString("HH:mm:ss")), 100) Then
If ObjDG.EnviarMensajeWS("6313186706", String.Format("SE ENVIO SMS AUTOMATICO - Hora: {0}", NowADS().ToString("HH:mm:ss"))) Then
If ObjDG.MensajeAdd(2, "6313186706", String.Format("SE ENVIO SMS AUTOMATICO - Hora: {0}", NowADS().ToString("HH:mm:ss")), 100) Then
End If
End If
'MENSAJES A JA
If ObjDG.EnviarMensajeWS("6621317425", String.Format("SE ENVIO SMS AUTOMATICO - Hora: {0}", Now.ToString("HH:mm:ss"))) Then
If ObjDG.MensajeAdd(2, "6621317425", String.Format("SE ENVIO SMS AUTOMATICO - Hora: {0}", Now.ToString("HH:mm:ss")), 100) Then
If ObjDG.EnviarMensajeWS("6621317425", String.Format("SE ENVIO SMS AUTOMATICO - Hora: {0}", NowADS().ToString("HH:mm:ss"))) Then
If ObjDG.MensajeAdd(2, "6621317425", String.Format("SE ENVIO SMS AUTOMATICO - Hora: {0}", NowADS().ToString("HH:mm:ss")), 100) Then
End If
End If

8
ZDG/MensajeManual.aspx.vb
View File

@@ -262,14 +262,14 @@ Partial Class ZDG_MensajeManual
'MENSAJES A IPP
If ObjDG.EnviarMensajeWS("6313186706", String.Format("SE ENVIO SMS MANUAL - Hora:{0}", Now.ToString("HH:mm:ss"))) Then
If ObjDG.MensajeAdd(1, "6313186706", String.Format("SE ENVIO SMS MANUAL - Hora:{0}", Now.ToString("HH:mm:ss")), UsuarioActual.CveUsuario) Then
If ObjDG.EnviarMensajeWS("6313186706", String.Format("SE ENVIO SMS MANUAL - Hora:{0}", NowADS().ToString("HH:mm:ss"))) Then
If ObjDG.MensajeAdd(1, "6313186706", String.Format("SE ENVIO SMS MANUAL - Hora:{0}", NowADS().ToString("HH:mm:ss")), UsuarioActual.CveUsuario) Then
End If
End If
'MENSAJES A JA
If ObjDG.EnviarMensajeWS("6621317425", String.Format("SE ENVIO SMS MANUAL - Hora: {0}", Now.ToString("HH:mm:ss"))) Then
If ObjDG.MensajeAdd(1, "6621317425", String.Format("SE ENVIO SMS MANUAL - Hora:{0}", Now.ToString("HH:mm:ss")), UsuarioActual.CveUsuario) Then
If ObjDG.EnviarMensajeWS("6621317425", String.Format("SE ENVIO SMS MANUAL - Hora: {0}", NowADS().ToString("HH:mm:ss"))) Then
If ObjDG.MensajeAdd(1, "6621317425", String.Format("SE ENVIO SMS MANUAL - Hora:{0}", NowADS().ToString("HH:mm:ss")), UsuarioActual.CveUsuario) Then
End If
End If

2
ZDG/RepGeneral.aspx.vb
View File

@@ -48,7 +48,7 @@ Partial Class ZDG_RepGeneral
Dim ObjDG As New ClsDG
Dim Script = ""
LtActualizado.Text = String.Format("Actualizado: {0}", Now.ToString("HH:mm:ss tt"))
LtActualizado.Text = String.Format("Actualizado: {0}", NowADS().ToString("HH:mm:ss tt"))
TimmerRefresh.Enabled = False
TimmerRefresh.Enabled = True