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

16
AF/ResguardoAF.aspx.vb
View File

@@ -69,7 +69,7 @@ Partial Class AF_ResguardoAF
CveResguardoPadre = -1
CargaDTResguardos()
'RESGUARDO
TxtFecha.Text = Now.ToShortDateString
TxtFecha.Text = NowADS().ToShortDateString
CargaAFResguardos()
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
@@ -85,7 +85,7 @@ Partial Class AF_ResguardoAF
'TRASPASO
TxtFechaT.Text = Now.ToShortDateString
TxtFechaT.Text = NowADS().ToShortDateString
CargaAFResguardosTraslado()
DdlSubProyectoT.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlSubProyectoT.DataBind()
@@ -110,7 +110,7 @@ Partial Class AF_ResguardoAF
DdlSubProyectoRTA.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
DdlSubProyectoRTA.DataBind()
DdlSubProyectoRTA.Items.Insert(0, New ListItem("Seleccione", "-1"))
TxtFechaR.Text = Now.ToShortDateString
TxtFechaR.Text = NowADS().ToShortDateString
'LIBERACION
@@ -123,7 +123,7 @@ Partial Class AF_ResguardoAF
DdlSubProyectoL.DataBind()
DdlSubProyectoL.Items.Insert(0, New ListItem("Seleccione", "-1"))
TxtFechaRecepcion.Text = Now.ToShortDateString
TxtFechaRecepcion.Text = NowADS().ToShortDateString
DdlPersonalR.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto")
@@ -253,7 +253,7 @@ Partial Class AF_ResguardoAF
TxtObservacionesR.Text = ""
TxtObservacionesRecepcion.Text = ""
TxtObservacionesT.Text = ""
TxtFecha.Text = Now.ToShortDateString
TxtFecha.Text = NowADS().ToShortDateString
End Sub
#End Region
@@ -331,7 +331,7 @@ Partial Class AF_ResguardoAF
DdlSubProyectoT.SelectedValue = "-1"
DdlResponsableT.SelectedValue = "-1"
TxtObservacionesT.Text = ""
TxtFechaT.Text = Now.ToShortDateString
TxtFechaT.Text = NowADS().ToShortDateString
UPTraslado.Update()
End Sub
#End Region
@@ -419,7 +419,7 @@ Partial Class AF_ResguardoAF
Private Sub LimpiaRT()
GvAFTR.DataBind()
TxtObservacionesR.Text = ""
TxtFechaR.Text = Now.ToShortDateString
TxtFechaR.Text = NowADS().ToShortDateString
DdlPersonalRT.SelectedValue = "-1"
TxtFolioT.Text = ""
DdlSubProyectoRT.SelectedValue = "-1"
@@ -507,7 +507,7 @@ Partial Class AF_ResguardoAF
Private Sub LimpiaRecepcion()
GvRecepcion.DataBind()
TxtObservacionesRecepcion.Text = ""
TxtFechaRecepcion.Text = Now.ToShortDateString
TxtFechaRecepcion.Text = NowADS().ToShortDateString
DdlPersonalR.SelectedValue = "-1"
DdlSubProyectoRL.SelectedValue = "-1"
TxtFolioRL.Text = ""