From 7796a21c3b14b8f8cb45d50c047934e902216c75 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Sat, 31 Jul 2021 15:56:27 -0700 Subject: [PATCH 1/3] 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)) From ce6a8b55d0dc0e8863c9af8f0c8f9c11a891cc3d Mon Sep 17 00:00:00 2001 From: rakcsle Date: Sat, 31 Jul 2021 19:08:23 -0700 Subject: [PATCH 2/3] Compras, aliniamiento caveceras GVPS --- Compras/Compras.aspx | 33 +++++++++++++-------------------- 1 file changed, 13 insertions(+), 20 deletions(-) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index ca2f18d1d..e7cb3ca6c 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -639,7 +639,7 @@ # Cant Unidad - Clasificación + Clasificación @@ -661,7 +661,7 @@
Producto o Servicio - Observación + Observación   @@ -675,14 +675,7 @@ - Tipo de Gasto - - - - - - - + Tipo de Gasto
@@ -690,7 +683,7 @@ P.U.  % IVA  % IEPS  - Total  + Total 
¿No Deducible? 
@@ -741,7 +734,7 @@ - + <%-- 0 --%> @@ -760,7 +753,7 @@ <%-- 3 --%> - +
@@ -775,7 +768,7 @@ <%-- 4 --%> <%-- 5 --%> - + @@ -784,17 +777,17 @@ <%-- 6 --%> - + <%-- 7 --%> <%-- 8 --%> - + <%-- 9 --%> - + <%----%> @@ -804,7 +797,7 @@ <%-- 10 --%> - + <%-- 11 --%> @@ -814,13 +807,13 @@ <%-- 12 --%> - + <%-- 13 --%> - + From 811071c4501b58533690d4f49567a863a4b1c766 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Sat, 31 Jul 2021 19:56:54 -0700 Subject: [PATCH 3/3] Se agrega iva en columna % de IVA --- Compras/Compras.aspx | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index e7cb3ca6c..626eaac84 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -681,7 +681,7 @@ P.U.  - % IVA  + IVA  % IEPS  Total 
@@ -734,7 +734,7 @@ - + <%-- 0 --%> @@ -783,6 +783,7 @@ <%-- 8 --%> +