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

6
Bancos/RepCreditos.aspx.vb
View File

@@ -270,7 +270,7 @@ Partial Class Bancos_RepCreditos
e.Row.Cells(1).Text = e.Row.DBCampo("Contador")
End If
If e.Row.DBCampo("FechaVencimiento") <> "" AndAlso e.Row.DBCampo("FechaVencimiento").ToDate <= Now Then
If e.Row.DBCampo("FechaVencimiento") <> "" AndAlso e.Row.DBCampo("FechaVencimiento").ToDate <= NowADS() Then
e.Row.ForeColor = System.Drawing.Color.Red
e.Row.ToolTip = "Fecha Vencida"
End If
@@ -309,7 +309,7 @@ Partial Class Bancos_RepCreditos
''Exportar Excel
'Protected Sub ImgExcel_Click(sender As Object, e As System.Web.UI.ImageClickEventArgs) Handles ImgExcel.Click
' GvDatos.ExportToExcel("RepClientes_" & Now.ToShortDateString)
' GvDatos.ExportToExcel("RepClientes_" & NowADS().ToShortDateString)
'End Sub
#Region "A C T U A L I Z A R - E X C E L"
@@ -614,7 +614,7 @@ Partial Class Bancos_RepCreditos
fs = File.Create(path)
'NombreArchivo = "hola.excel"
' Add text to the file.
Dim info As Byte() = New UTF8Encoding(True).GetBytes(String.Format("{0}|{1}", NombreArchivo, Date.Now.ToShortDateString))
Dim info As Byte() = New UTF8Encoding(True).GetBytes(String.Format("{0}|{1}", NombreArchivo, NowADS().ToShortDateString))
fs.Write(info, 0, info.Length)
fs.Close()
Catch ex As Exception