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

12
OS/OrdenesServicios.aspx.vb
View File

@@ -347,7 +347,7 @@ Partial Class OS_OrdenesServicios
DivSeFactura.Visible = True
BtnGuardar.Text = "Guardar Cambios"
LtlTitulo.Text = "Consulta del Orden de Servicio"
TxtFecha.Text = Now.ToString("dd/MM/yyy")
TxtFecha.Text = NowADS().ToString("dd/MM/yyy")
If UsuarioActual.TienePermisoProceso(198) Then
ChkSeFacturara.Visible = True
@@ -358,7 +358,7 @@ Partial Class OS_OrdenesServicios
End If
Else
DivSeFactura.Visible = False
TxtFechaRecibido.Text = Now.ToString("dd/MM/yyy")
TxtFechaRecibido.Text = NowADS().ToString("dd/MM/yyy")
ViewState("CveOS") = -1
DdlEstatusOS.Enabled = False
CargaEstatusOS()
@@ -1173,7 +1173,7 @@ Partial Class OS_OrdenesServicios
' Dim objEventos As New ClsOIEventos(ObjOrdenServicio.IniciaTransacSQL)
' If Not objEventos.FinalizaEvento(Now, 3, "", -1, CveOS) Then
' If Not objEventos.FinalizaEvento(NowADS(), 3, "", -1, CveOS) Then
' Errores = True
' End If
@@ -1230,7 +1230,7 @@ Partial Class OS_OrdenesServicios
Dim CveUsuarioEntrego As Integer = If(Entregar = True, UsuarioActual.CveUsuario, -1)
Dim FechaEntrega As String = If(Entregar = True, Now.ToString("dd/MM/yyy"), "-1")
Dim FechaEntrega As String = If(Entregar = True, NowADS().ToString("dd/MM/yyy"), "-1")
Dim Consecutivo As Integer = Row("Consecutivo").ToString.ToEntero
CveConsecutivo = Consecutivo
@@ -1313,7 +1313,7 @@ Partial Class OS_OrdenesServicios
Dim objEventos As New ClsOIEventos(ObjOrdenServicio.IniciaTransacSQL)
If Not objEventos.FinalizaEvento(Now, 3, "", -1, CveOS, UsuarioActual.CveUsuario) Then
If Not objEventos.FinalizaEvento(NowADS(), 3, "", -1, CveOS, UsuarioActual.CveUsuario) Then
Errores = True
End If
@@ -2781,7 +2781,7 @@ Partial Class OS_OrdenesServicios
'End Sub
Private Sub LimpiaMovimiento()
CargaAlmacen()
TxtFecha.Text = Now.ToShortDateString
TxtFecha.Text = NowADS().ToShortDateString
UpAddMateriales.Update()
End Sub
Private Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged