diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index b7a4ef535..dc6f3a20b 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -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 diff --git a/Empresas/2/Formatos/Factura.rdlc b/Empresas/2/Formatos/Factura.rdlc index 5068cbbff..59b130a68 100644 --- a/Empresas/2/Formatos/Factura.rdlc +++ b/Empresas/2/Formatos/Factura.rdlc @@ -23,7 +23,7 @@ Textbox3 0.92083in - 5.662in + 5.79542in 0.5cm 2.24597in - true @@ -2442,7 +2441,7 @@ DsOC 4.59222cm - 0.11468cm + 0.45356cm 1.01949cm 20.01064cm 25 @@ -2481,7 +2480,7 @@ Textbox19 1.6173in - 5.662in + 5.79542in 0.20317in 2.26391in 26 @@ -2770,7 +2769,7 @@ DataSet3 2.54983in - 5.73412in + 5.86754in 0.34081in 2.19818in 27 @@ -2889,7 +2888,7 @@ DataSet1 5.75282cm - 14.56464cm + 14.90352cm 0.6cm 5.58343cm 28 @@ -3438,7 +3437,7 @@ DsOC 5.75282cm - 0.11468cm + 0.45356cm 5.16188cm 14.34413cm 29 @@ -3483,7 +3482,7 @@ Textbox18 4.59585in - 0.04404in + 0.17746in 0.36457in 7.87931in 30 @@ -3519,7 +3518,7 @@ Textbox1 10.95026cm - 0.13016cm + 0.46904cm 0.6cm 19.96256cm 31 @@ -3611,7 +3610,7 @@ Textbox5 12.7053cm - 10.16136cm + 10.50025cm 2.37271cm 9.55228cm 32 @@ -3702,7 +3701,7 @@ Textbox5 12.7053cm - 0.50677cm + 0.84566cm 2.37271cm 9.55228cm 33 @@ -3716,11 +3715,523 @@ 2pt + + true + true + + + + + VERSION + + + + =Parameters!CFDIVersion.Value + + + + + + + Textbox5 + 20.52317cm + 16.8018cm + 0.65292cm + 3.68516cm + 34 + + + 2pt + 2pt + 2pt + 2pt + + + + + + true + true + + + + + CFDI Relacionados + + + + + + + Textbox5 + 0.14926cm + 0.07193cm + 0.54004cm + 20.01791cm + + + #bdd7ee + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Tipo Relación: + + + + + + + Textbox29 + 0.83025cm + 4.78817cm + 0.41981cm + 5.31841cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!TipoRelacionTexto.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 2.42456cm + + + 2.05585cm + + + 3.03631cm + + + 7.7847cm + + + + + 0.44125cm + + + + + true + true + + + + + Folio + + + + + + + Textbox10 + + + #bdd7ee + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox12 + + + #bdd7ee + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox21 + + + #bdd7ee + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Folio Fiscal + + + + + + + Textbox11 + + + #bdd7ee + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.41479cm + + + + + true + true + + + + + =Fields!SerieFolio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Fecha.Value + + + + + + + Fecha + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Importe1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!FolioFiscal.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet4 + 1.39643cm + 3.28643cm + 0.85604cm + 15.30142cm + 3 + + + + + + true + 18.09605cm + 0.39712cm + 2.25247cm + 20.08984cm + 35 + + =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) + + + + + - 22.9929cm + 25.5329cm - - true - true - - - - - VERSION 3.3 - - - - - - - Textbox5 - 2.28775cm - 17.08931cm - 0.6cm - 3.06609cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - true 19.72306cm 0.04112cm - 2.97096cm + 2.25247cm 20.1554cm 31 @@ -4289,11 +4252,57 @@ + + true + true + + + + + VERSION + + + + =Parameters!CFDIVersion.Value + + + + + + + Textbox5 + 22.07758cm + 16.48898cm + 0.56043cm + 3.68516cm + 36 + + + 2pt + 2pt + 2pt + 2pt + + 27.07124cm