07/05/2014, 20:08
|
| | Fecha de Ingreso: noviembre-2002 Ubicación: DF
Mensajes: 1.056
Antigüedad: 22 años Puntos: 37 | |
Respuesta: Complemento Detallista En xml Respecto de si afecta la cadena original, lo sabras abriendo el archivo "cadenaoriginal_3_2.xslt" del SAT, para ver si son datos que se tomen ya sea como requeridos u opcionales, si los nodos aparecen alli, es que si "juegan" para la cadena original.
Ejemplo de como agregar un nodo a un objeto xml:
NdEmisor = Doc.CreateNode(XmlNodeType.Element, "Emisor", Me.xmlns)
Dim atributoEMI1 As XmlAttribute = Doc.CreateAttribute("rfc") : atributoEMI1.Value = Emisor.rfc
Dim atributoEMI2 As XmlAttribute = Doc.CreateAttribute("nombre") : atributoEMI2.Value = Emisor.nombre
NdEmisor.Attributes.Append(atributoEMI1)
' FINALMENTE.... AGREGAMOS EL NODO EMISOR (ndCom es un objeto xml con el CFDI)
NdCom.AppendChild(NdEmisor) 'AGREGAR EL NODO EMISOR AL NODO COMPROBANTE
Un ejemplo de como remover un nodo de un XML (donde prefijo="cfdi:"):
Dim nodoAddenda As XmlNode = comprobante.Item(prefijo & "Addenda") '.ChildNodes(0)
If Not nodoAddenda Is Nothing Then
If nodoAddenda.Name = prefijo & "Addenda" Then
nodoAddenda.ParentNode.RemoveChild(nodoAddenda)
'empleados.RemoveChild(nodoOld);
' Sobreescribimos con su mismo nombre original.. solo sin la addenda ya.
If chkDebug.Checked Then Log(" [proceso] guardara XML ya sin nodo addenda en: destinationIntermedio_Full=" & destinationIntermedio_Full)
doc.Save(destinationIntermedio_Full)
' http : //oscarsotorrio.com/post/2009/10/30/Modificar-y-borrar-datos-XML.aspx
End If
End If |