--reubicación de código de impuestos locales

-- reubicacion de código de timbre cfdirelacionados
en preparaTimbre

Ventas/Ventas.aspx.vb

@@ -11825,30 +11825,7 @@ Partial Class Ventas
         'End If
 
         ObjFactura.AplicaDevolucion = Me.AplicaDevolucion
-
         ObjFactura.CveTipoAmortizacionAnticipo = DdlTipoAmortizacionAnticipo.SelectedValue.ToEntero()
-        ObjFactura.Timbre.Comprobante.TipoComprobante = If(ObjFactura.TipoDocto.Contiene("Ing", "Ant"), "I", If(ObjFactura.TipoDocto.Contiene("Egs", "Dev"), "E", ""))
-
-        If ObjFactura.Timbre.Comprobante.TipoComprobante = "E" Then
-            If ObjFactura.TipoDocto = "Egs" Then
-                ObjFactura.Timbre.CFDIRelacionados.TipoRelacion = "01"
-                ObjFactura.Timbre.CFDIRelacionados.TipoRelacionTexto = "Nota de Crédito aplicada a Ingreso"
-
-            End If
-            If ObjFactura.TipoDocto = "Dev" Then
-                ObjFactura.Timbre.CFDIRelacionados.TipoRelacion = "03"
-                ObjFactura.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso"
-            End If
-            ObjFactura.CveTipoRelacion = DdlTiposRelacion.SelectedValue.ToEntero()
-            If HdnFolioFiscalNC.Value <> "0" And HdnFolioFiscalNC.Value <> "" Then ObjFactura.Timbre.CFDIRelacionados.UUID.Add(HdnFolioFiscalNC.Value)
-        End If
-        ' cuando es refacturacoin es cfdirelacionado, con relacion 04
-        If ObjFactura.Timbre.Comprobante.TipoComprobante = "I" AndAlso NuevaFactura = 1 Then
-            ObjFactura.Timbre.CFDIRelacionados.TipoRelacion = "04"
-            ObjFactura.Timbre.CFDIRelacionados.TipoRelacionTexto = "Refacturación de Ingreso"
-            ObjFactura.Timbre.CFDIRelacionados.UUID.Add(HdnFolioFiscalNC.Value)
-        End If
-
 
         If ObjFactura.TipoDocto.Contiene("Ing", "Ant") AndAlso NuevaFactura = 1 Then ' refacturación
             ObjFactura.CveTipoRelacion = DdlTiposRelacion.SelectedValue.ToEntero()
@@ -11888,33 +11865,6 @@ Partial Class Ventas
             Next
         End If
 
-
-        'RMF. faltan impuestos locales
-        If TmpDTImpuestos IsNot Nothing AndAlso TmpDTImpuestos.FiltraParametros("TipoImpuesto IN (1,3) ").Rows.Count > 0 Then
-
-            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
-                        {
-                         .TasaRetencion = DrImpuestosLocales("Porcentaje").ToString().ToDecimal,
-                         .ImpuestoLocalRetenido = DrImpuestosLocales("ImpuestoLocal").ToString(),
-                         .Importe = DrImpuestosLocales("Importe").ToString().ToDecimal(If(ObjFactura.ConvertirPesos, ObjFactura.TipoCambio, 1)).RoundSQL(2)
-                        }
-                    ObjFactura.Timbre.RetencionesLocales.Add(ret)
-                End If
-            Next
-        End If
-
-        If TmpDTImpuestos IsNot Nothing AndAlso TmpDTImpuestos.FiltraParametros("TipoImpuesto = 5").Rows.Count > 0 Then
-
-            For Each DrImpuestosLocales As DataRow In TmpDTImpuestos.FiltraParametros("TipoImpuesto = 5").Rows
-                If DrImpuestosLocales("Importe").ToString().ToDecimal > 0 Then
-                    Dim ret As New CFDITrasladosLocales With {.TasaTraslado = DrImpuestosLocales("Porcentaje").ToString().ToDecimal, .ImpuestoLocalTraslado = DrImpuestosLocales("ImpuestoLocal").ToString(), .Importe = DrImpuestosLocales("Importe").ToString().ToDecimal(If(ObjFactura.ConvertirPesos, ObjFactura.TipoCambio, 1))}
-                    ObjFactura.Timbre.TrasladosLocales.Add(ret)
-                End If
-            Next
-        End If
-
         'INE COMPLEMENTO   
         If RblComplementos.SelectedValue.ToEntero() > 0 Then
             ObjFactura.CveComplementoTimbrado = RblComplementos.SelectedValue.ToEntero()
@@ -12317,6 +12267,28 @@ Partial Class Ventas
         Timbre.Receptor.NumeroRegistroTributario = ""
         Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDI
 
+        Timbre.Comprobante.TipoComprobante = If(ObjFactura.TipoDocto.Contiene("Ing", "Ant"), "I", If(ObjFactura.TipoDocto.Contiene("Egs", "Dev"), "E", ""))
+
+        If Timbre.Comprobante.TipoComprobante = "E" Then
+            If ObjFactura.TipoDocto = "Egs" Then
+                Timbre.CFDIRelacionados.TipoRelacion = "01"
+                Timbre.CFDIRelacionados.TipoRelacionTexto = "Nota de Crédito aplicada a Ingreso"
+
+            End If
+            If ObjFactura.TipoDocto = "Dev" Then
+                Timbre.CFDIRelacionados.TipoRelacion = "03"
+                Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso"
+            End If
+            ObjFactura.CveTipoRelacion = DdlTiposRelacion.SelectedValue.ToEntero()
+            If HdnFolioFiscalNC.Value <> "0" And HdnFolioFiscalNC.Value <> "" Then Timbre.CFDIRelacionados.UUID.Add(HdnFolioFiscalNC.Value)
+        End If
+        ' cuando es refacturacoin es cfdirelacionado, con relacion 04
+        If Timbre.Comprobante.TipoComprobante = "I" AndAlso NuevaFactura = 1 Then
+            Timbre.CFDIRelacionados.TipoRelacion = "04"
+            Timbre.CFDIRelacionados.TipoRelacionTexto = "Refacturación de Ingreso"
+            Timbre.CFDIRelacionados.UUID.Add(HdnFolioFiscalNC.Value)
+        End If
+
         If HdnTipoDescuento.Value = "3" And DdlTipoAmortizacionAnticipo.SelectedValue.ToEntero() > 0 Then
 
             Timbre.CFDIRelacionados.TipoRelacion = "07"
@@ -12466,6 +12438,32 @@ Partial Class Ventas
             i += 1
         Next
 
+        'RMF. faltan impuestos locales
+        If TmpDTImpuestos IsNot Nothing AndAlso TmpDTImpuestos.FiltraParametros("TipoImpuesto IN (1,3) ").Rows.Count > 0 Then
+
+            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
+                        {
+                         .TasaRetencion = DrImpuestosLocales("Porcentaje").ToString().ToDecimal,
+                         .ImpuestoLocalRetenido = DrImpuestosLocales("ImpuestoLocal").ToString(),
+                         .Importe = DrImpuestosLocales("Importe").ToString().ToDecimal(If(ObjFactura.ConvertirPesos, ObjFactura.TipoCambio, 1)).RoundSQL(2)
+                        }
+                    Timbre.RetencionesLocales.Add(ret)
+                End If
+            Next
+        End If
+
+        If TmpDTImpuestos IsNot Nothing AndAlso TmpDTImpuestos.FiltraParametros("TipoImpuesto = 5").Rows.Count > 0 Then
+
+            For Each DrImpuestosLocales As DataRow In TmpDTImpuestos.FiltraParametros("TipoImpuesto = 5").Rows
+                If DrImpuestosLocales("Importe").ToString().ToDecimal > 0 Then
+                    Dim ret As New CFDITrasladosLocales With {.TasaTraslado = DrImpuestosLocales("Porcentaje").ToString().ToDecimal, .ImpuestoLocalTraslado = DrImpuestosLocales("ImpuestoLocal").ToString(), .Importe = DrImpuestosLocales("Importe").ToString().ToDecimal(If(ObjFactura.ConvertirPesos, ObjFactura.TipoCambio, 1))}
+                    Timbre.TrasladosLocales.Add(ret)
+                End If
+            Next
+        End If
+
         Dim AplicaComercioExteriorSubProyecto As Boolean = True
 
         If ChkEmitirComercioExterior.Checked Then