From f3c350fe126bf9d9a7e1c38ad09c373a41b751ba Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 16 Jun 2022 11:01:15 -0700
Subject: [PATCH] --

---
 App_Code/ClsPaginas.vb | 29 -----------------------------
 1 file changed, 29 deletions(-)

diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 4f690b468..b9e31dd39 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -9041,8 +9041,6 @@ Public Class ClsPaginas
             Else ' se considera que es la version 4.0
                 cfdVer = "http://www.sat.gob.mx/cfd/4"
             End If
-
-
             If Version = "4.0" Then
 
                 If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
@@ -9053,8 +9051,6 @@ Public Class ClsPaginas
                 End If
             End If
 
-
-
             namespaces.AddNamespace(Prefijo, cfdVer)
             namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
             namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
@@ -9119,17 +9115,8 @@ Public Class ClsPaginas
 
                         DrRelacionado("MonedaDR") = Relacionado.Attributes("MonedaDR").Value
 
-
                         If UsuarioActual.Empresa.Funcionalidad(350) = "1" AndAlso Version = "4.0" Then
 
-
-
-                            ' Relacionado.SelectSingleNode($"//{PagoVersion}:ImpuestosDR/{PagoVersion}:TrasladosDR/{PagoVersion}:TrasladoDR", namespaces)
-
-                            'Dim NodoImpuestosDR As XmlNode = Relacionado.SelectSingleNode($"{PagoVersion}:ImpuestosDR", namespaces)
-                            'Dim NodoTrasladosDR As XmlNode = NodoImpuestosDR.SelectSingleNode($"{PagoVersion}:TrasladosDR", namespaces)
-                            'Dim TrasladoDR As XmlNodeList = NodoTrasladosDR.ChildNodes
-
                             Dim NodosTraslados = Relacionado.SelectNodes($"{PagoVersion}:ImpuestosDR/{PagoVersion}:TrasladosDR/{PagoVersion}:TrasladoDR", namespaces)
                             For Each NodoTraslados As XmlNode In NodosTraslados
 
@@ -9138,7 +9125,6 @@ Public Class ClsPaginas
                                 Dim TasaOCuotaDR As String = ValorXML(NodoTraslados, "TasaOCuotaDR")
                                 Dim ImporteDR As Decimal = ValorXML(NodoTraslados, "ImporteDR").ToDecimal
 
-
                                 If ImpuestoDR = "001" Then
                                     DrRelacionado("Tra001ImpuestoDR") = ImpuestoDR
                                     DrRelacionado("Tra001TipoFactorDR") = TipoFactor
@@ -9159,19 +9145,15 @@ Public Class ClsPaginas
                                     DrRelacionado("Tra003TasaOCuotaDR") = TasaOCuotaDR
                                     DrRelacionado("Tra003ImporteDR") = ImporteDR
                                 End If
-
                             Next
 
-
                             For Each NodoRetenciiones As XmlNode In Relacionado.SelectNodes($"{PagoVersion}:ImpuestosDR/{PagoVersion}:RetencionesDR/{PagoVersion}:RetencionDR", namespaces)
 
-
                                 Dim ImpuestoDR As String = ValorXML(NodoRetenciiones, "ImpuestoDR")  ' ImpuestoDR
                                 Dim TipoFactor As String = ValorXML(NodoRetenciiones, "TipoFactorDR")
                                 Dim TasaOCuotaDR As String = ValorXML(NodoRetenciiones, "TasaOCuotaDR")
                                 Dim ImporteDR As Decimal = ValorXML(NodoRetenciiones, "ImporteDR").ToDecimal
 
-
                                 If ImpuestoDR = "001" Then
                                     DrRelacionado("Ret001ImpuestoDR") = ImpuestoDR
                                     DrRelacionado("Ret001TipoFactorDR") = TipoFactor
@@ -9192,20 +9174,10 @@ Public Class ClsPaginas
                                     DrRelacionado("Ret003TasaOCuotaDR") = TasaOCuotaDR
                                     DrRelacionado("Ret003ImporteDR") = ImporteDR
                                 End If
-
                             Next
-
-
-
-
                         End If
-
                         DTConceptosPagoRelacionado.Rows.Add(DrRelacionado)
-
-
-
                     Next
-
                 End If
             Next
 
@@ -9221,7 +9193,6 @@ Public Class ClsPaginas
                     Cantidad = nodeconcepto.Attributes("Cantidad").InnerText
                     CvePS = nodeconcepto.Attributes("ClaveProdServ").InnerText
                 End If
-
             End If
 
             Dim CadenaOriginal As String = $"||1.0| {FolioFiscal} |  {FechaCertificacion.ToDate.ToShortDateString}  T {FechaCertificacion.ToDateTime.ToShortTimeString}  | {SelloCFDi}  |  {NoSerieCertificado}  ||"