-merge EntregaAlmacen.aspx

2021-06-03 18:06:08 -07:00
parent 0cbb44d04a 59713f2047
commit a9e67a6d62
93 changed files with 2962 additions and 6312 deletions
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -9961,9 +9961,9 @@ Partial Class Ventas


        'RMF. faltan impuestos locales
-        If TmpDTImpuestos IsNot Nothing AndAlso TmpDTImpuestos.FiltraParametros("TipoImpuesto = 1").Rows.Count > 0 Then
+        If TmpDTImpuestos IsNot Nothing AndAlso TmpDTImpuestos.FiltraParametros("TipoImpuesto IN (1,3) ").Rows.Count > 0 Then

-            For Each DrImpuestosLocales As DataRow In TmpDTImpuestos.FiltraParametros("TipoImpuesto = 1").Rows
+            For Each DrImpuestosLocales As DataRow In TmpDTImpuestos.FiltraParametros("TipoImpuesto IN (1,3) ").Rows
                If DrImpuestosLocales("Importe").ToString().ToDecimal > 0 Then
                    Dim ret As New CFDIRetencionesLocales With
                        {