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

4
Bancos/PolizaCheque.aspx.vb
View File

@@ -487,7 +487,7 @@ Partial Class Bancos_PolizaCheque
Private Function CreaArchivo() As Boolean
DirectoryExistsCreate(String.Format("{0}Layout", UsuarioActual.Empresa.Ruta))
NombreArchivo = String.Format("{2}{1}{0}.txt", UsuarioActual.CveUsuario, Date.Now.ToString("yyyyMMdd-HH-mm"), "LAYOUTPAGONOMINA")
NombreArchivo = String.Format("{2}{1}{0}.txt", UsuarioActual.CveUsuario, NowADS().ToString("yyyyMMdd-HH-mm"), "LAYOUTPAGONOMINA")
Dim path As String = String.Format("{0}Layout\{1}", UsuarioActual.Empresa.Ruta, NombreArchivo)
Dim fs As FileStream = File.Create(path)
@@ -515,7 +515,7 @@ Partial Class Bancos_PolizaCheque
Dim CodigoPago As String = "R23"
Dim TipoServicio As String = "110"
Dim ClaveEntrada As String = "1"
Dim FechaArchivo As String = Date.Now.ToString("yyyyMMdd")
Dim FechaArchivo As String = NowADS().ToString("yyyyMMdd")
Dim FechaPago As String = TxtFechaDocumento.ToDate.ToString("yyyyMMdd")
Dim Filler As String = GeneraCampo("", 142)