--Escape de caracteres al crear xml de cancelacion en el PAC 5

App_Code/Timbrado.vb

@@ -865,7 +865,7 @@ Public Class Timbrado
                                                     <usuario xmlns="""">{UsuarioServicio}</usuario>
                                                     <passwd xmlns="""">{PassServicio}</passwd>
                                                     <rfcEmisor xmlns="""">{rfcEmisor}</rfcEmisor>
-                                                    <arregloUUID xmlns="""">{arregloUUID}|{rfcReceptor}|{rfcEmisor}|{Total}|{MotivoCancelacion}|{FolioSustitucion}</arregloUUID>
+                                                    <arregloUUID xmlns="""">{arregloUUID}|{rfcReceptor.ToEscapeXML()}|{rfcEmisor.ToEscapeXML()}|{Total}|{MotivoCancelacion}|{FolioSustitucion}</arregloUUID>
                                                     <cert xmlns="""">{certBase64}</cert>
                                                     <key xmlns="""">{keyBase64}</key>
                                                     <keyPass xmlns="""">{keyPass}</keyPass>

App_Code/modExtensiones.vb

@@ -3960,6 +3960,19 @@ Namespace Extensiones
 
             Return text
         End Function
+
+
+        <Runtime.CompilerServices.Extension()>
+        Function ToEscapeXML(ByVal str As String) As String
+            Dim text As String = ""
+
+            text = str.Replace("'", "&apos;")
+            text = str.Replace("<", "&lt;")
+            text = str.Replace(">", "&gt;")
+            text = str.Replace("&", "&amp;")
+
+            Return text
+        End Function
     End Module
 #End Region