From 7796a21c3b14b8f8cb45d50c047934e902216c75 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Sat, 31 Jul 2021 15:56:27 -0700
Subject: [PATCH] Compras  RetIVA    no se estaba enviando a prepoliza, 
 Efacturas correcion ruta archivos subidos para enviar a buzon.

---
 Compras/Compras.aspx.vb   | 8 ++++----
 Compras/eFacturas.aspx.vb | 2 +-
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 9cf041aca..cc37d055e 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1630,7 +1630,7 @@ Partial Class Compras_Compras
             Dim dr As DataRow = ObjeFacturas.DtResultados.Rows(0) ' no toma la cero, porque es el totalizador
 
             Dim XMLDoc As New XmlDocument
-            Dim Archivo As String = String.Format("{0}Compras\{2}\{3}", UsuarioActual.Empresa.Ruta, dr("RFCDe"), dr("XML"))
+            Dim Archivo As String = String.Format("{0}Compras\{1}\{2}", UsuarioActual.Empresa.Ruta, dr("RFCDe"), dr("XML"))
             If IO.File.Exists(Archivo) Then
 
                 Dim Validada As Boolean = True
@@ -6456,10 +6456,10 @@ Partial Class Compras_Compras
                                                             If DdlRetIVAConcepto.SelectedValue.ToEntero = 5 Then
 
                                                                 If CveMoneda = 2 Then
-                                                                    importeMN = TmpDT.SUMD("RetIVA") * TxtTC.Text.ToDecimal
+                                                                    importeMN = TxtRetIVA.Text.ToDecimal * TxtTC.Text.ToDecimal
                                                                 Else
-                                                                    importeMN = TmpDT.SUMD("RetIVA")
-                                                                    importeMovimiento = TmpDT.SUMD("RetIVA")
+                                                                    importeMN = TxtRetIVA.Text.ToDecimal
+                                                                    importeMovimiento = TxtRetIVA.Text.ToDecimal
 
                                                                 End If
 
diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb
index aa2e004dd..02c085bfd 100644
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -1428,7 +1428,7 @@ Partial Class Compras_eFacturas
 
             If filemove <> "" Then
                 'filemove.FilesMove("", String.Format("{0}\Temp\Facturas", UsuarioActual.Empresa.Ruta))
-                filemove.FilesMove("", String.Format("{0}Temp\Facturas", UsuarioActual.Empresa.Ruta))
+                filemove.FilesMove("", String.Format("Empresas\{0}\Temp\Facturas", UsuarioActual.CveEmpresa))
                 'AGREGA XML A LA LISTA
                 If FileExtension.ToUpper = "XML" Or FileExtension.ToUpper = "PDF" Then
                     ListXML.Add(String.Format("{0}Temp\Facturas\{1}", UsuarioActual.Empresa.Ruta, filemove))