AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Solicitudes Ingresos Correcciones, Factuas 4.0 70 y 2 , Clientres Representante legal

Browse Source
This commit is contained in:
rakcsle
2022-08-05 17:51:02 -07:00
parent d90b4745f8
commit 1ed5910c6f
7 changed files with 760 additions and 121 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
Compras/eFacturas.aspx.vb
View File

@@ -1537,23 +1537,27 @@ Partial Class Compras_eFacturas
Dim sOnlyFilename As String
For Each filePath In fileEntries
ArchivoExtension = IO.Path.GetExtension(String.Format("{0}", filePath)).Replace(".", "")
sOnlyFilename = System.IO.Path.GetFileName(filePath)
If ArchivoExtension.ToUpper = "RAR" Or ArchivoExtension.ToUpper = "ZIP" Then
ListaComprimidos.Add(filePath)
'CREO DIRECTORIO ALEATORIO
Dim Aleatorio As New Random
Dim TempDirectorio As String = String.Format("{0}{1}\{2}{3}", UsuarioActual.Empresa.Ruta, "Temp\Facturas", Date.Now.Ticks, Aleatorio.Next(100, 999))
Directory.CreateDirectory(TempDirectorio)
ListaDirectoriosTemporales.Add(TempDirectorio)
'AGREGA DIRECTORIO A LA LISTA
ListDirectorios.Add(TempDirectorio)
'DESCOMPRIME RAR
DescomprimeFacturas(filePath, TempDirectorio)
'AGREGA XML A LA LISTA
ListXML.AddRange(Directory.GetFiles(TempDirectorio))
End If
If ArchivoExtension.ToUpper = "RAR" Or ArchivoExtension.ToUpper = "ZIP" Then
'ListaComprimidos.Add(filePath)
''CREO DIRECTORIO ALEATORIO
'Dim Aleatorio As New Random
'Dim TempDirectorio As String = String.Format("{0}{1}\{2}{3}", UsuarioActual.Empresa.Ruta, "Temp\Facturas", Date.Now.Ticks, Aleatorio.Next(100, 999))
'Directory.CreateDirectory(TempDirectorio)
'ListaDirectoriosTemporales.Add(TempDirectorio)
''AGREGA DIRECTORIO A LA LISTA
'ListDirectorios.Add(TempDirectorio)
''DESCOMPRIME RAR
'DescomprimeFacturas(filePath, TempDirectorio)
''AGREGA XML A LA LISTA
'ListXML.AddRange(Directory.GetFiles(TempDirectorio))
ListXML.Add(filePath)
End If
Next