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

8
Ventas/RepDocumentacionVencidaClientes.aspx.vb
View File

@@ -135,7 +135,7 @@ Partial Class Vta_RepDocumentacionVencidaClientes
End If
If objEDoc.DocumentacionVencidaDinamicaGet(1, -1, CveCliente, -1, UsuarioActual.Empresa.CveEmpresa, DDlDocumentacion.SelectedValue.ToEntero, DDLDocumentacionTipo.SelectedValue.ToEntero,
Now, Now, DDLSucursal.SelectedValue.ToEntero, -1, DDLVencidos.SelectedValue.ToEntero,
NowADS(), NowADS(), DDLSucursal.SelectedValue.ToEntero, -1, DDLVencidos.SelectedValue.ToEntero,
-1, -1, -1, Modulo:=2, GPO:=DdlGpo.SelectedValue.ToEntero, PermiteCredito:=If(ChkPermiteCredito.Checked, 1, -1),
FechaVI:=FechaInicio, FechaVF:=FechaFin) Then
@@ -312,7 +312,7 @@ Partial Class Vta_RepDocumentacionVencidaClientes
Dim documento As ExcelFile
Dim ws As ExcelWorksheet
Dim NombreReporte As String = "REPORTE DE DOCUMENTACIÓN"
Dim TextoFecha As String = "Fecha: " & Now.ToString(" dd/MM/yyyy hh:mm:ss tt")
Dim TextoFecha As String = "Fecha: " & NowADS().ToString(" dd/MM/yyyy hh:mm:ss tt")
documento = New ExcelFile
ws = documento.Worksheets.Add("ReporteDocumentacion")
@@ -371,7 +371,7 @@ Partial Class Vta_RepDocumentacionVencidaClientes
Response.Clear()
Response.ContentType = "application/force-download"
Response.AddHeader("content-disposition", "attachment; filename=" & NombreReporte & "_" & Now.ToString("yyyyMMddhhmmss") & ".xlsx")
Response.AddHeader("content-disposition", "attachment; filename=" & NombreReporte & "_" & NowADS().ToString("yyyyMMddhhmmss") & ".xlsx")
Response.BinaryWrite(bytesInStream)
Response.End()
memoryStream.Dispose()
@@ -381,7 +381,7 @@ Partial Class Vta_RepDocumentacionVencidaClientes
'ExportaExcel()
If DTDatos.Rows.Count > 0 Then
GvDocumentos.ExportToExcel("AvanceDocumentacion" & Now.ToString("yyyyMMddhhmmss") & ".xls")
GvDocumentos.ExportToExcel("AvanceDocumentacion" & NowADS().ToString("yyyyMMddhhmmss") & ".xls")
End If
End Sub