O.T. Usando XML con xHarbour ( 2 parte )

[thefull]

jajja , a mi me pasó igual, ME COSTÓ UN HUEVO encontrarlo, pensaba que lo habían quitado, que mal pensao que soy...
Lo que pasa, es que yo soy más insistente que tú

[elmoiquique]

alguien sabe como usar el <![CDATA[]] para crear archivos xml

[elmoiquique]

TheFull
creo que tu entiendes mucho mas que yo esto de los webservicey xml, tengo un problemon que no he podido solucionar, a ver si me puedes ayudar,

Mi consulta es la siguiente esto haciendo una consulta de un docuemento por su numero a un webservice, este me contesta de buena forma con un xml, diciendo que el el proceso fue satisfactorio y ademas trae dentro de un tag una cadena que al parecer es la que contiene el archivo adjunto, que en realidad es la factura que necesito ver, pero no he logrado consumir esa factura,, te adujnto el xml a ver si me puedes ayudar u orientar...


<env:Envelope xmlns:env="http://schemas.xmlsoap.org/soap/envelope/">
<env:Header xmlns:work="http://bea.com/2004/06/soap/workarea/">
<cl:token xmlns:cl="cl.zofri.sve">0e2099080517762c4--3bc04e97-f4-c-1303-0a88 a2d1-7f43-7:6434ab958b9:a6545-e40b9280507561c6-23-c-4090-147cc1-04-3ab80acd -3f13274673:af948495a95:5</cl:token>
<cl:respuesta xmlns:cl="cl.zofri.sve">
<java:resCodigo xmlns:java="java:cl.zofri.sve.utl.bo">0</java:resCodigo>
<java:resMensaje xmlns:java="java:cl.zofri.sve.utl.bo">Se ejecutó correctamente el servicio.</java:resMensaje>
<java:resSeveridad xmlns:java="java:cl.zofri.sve.utl.bo">O</java:resSeveridad>
</cl:respuesta>
<work:WorkContext xmlns:wsu="http://schemas.xmlsoap.org/ws/2002/07/utility">
<java class="java.beans.XMLDecoder">
<string>weblogic.app.sveProcDocEAR</string>
<int>214</int>
<string>weblogic.workarea.StringWorkContext</string>
<string>r43.3</string>
<string>weblogic.app.KNAEar</string>
<int>214</int>
<string>weblogic.workarea.StringWorkContext</string>
<string>r43.2</string>
<string/>
</java>
</work:WorkContext>
</env:Header>
<env:Body>
<m:exportarBorradoresResponse xmlns:m="http://cl/zofri/sve/prd/wsn">
<m:return>
<Include href="cid:return=216af389-dcc9-4770-80fb-610304b481e0@http://cl/zofri/sve/prd/wsn" xmlns="http://www.w3.org/2004/08/xop/include"/>
</m:return>
</m:exportarBorradoresResponse>
</env:Body>
</env:Envelope>

[Armando]

Y esto es el .XML que genera (el principio):

Code: Select all  Expand view  RUN

<?xml version="1.0" encoding="ISO-8859-1"?>
<FORMATO_GA FechaCreacion="16/12/2008">
   <CABECERA>
      <DATOS_GESTORIA>
         <NIF>43999999V</NIF>
         <NOMBRE>NOMBRE COMPLETO DEL</NOMBRE>
         <PROFESIONAL>00001</PROFESIONAL>
         <PROVINCIA>M</PROVINCIA>
      </DATOS_GESTORIA>
   </CABECERA>
   <MATRICULACION Procesar05_06="0" Procesar576="0" ProcesarIMVTM="0" ProcesarMatriculacion="0">
      <NUMERO_EXPEDIENTE></NUMERO_EXPEDIENTE>
      <NUMERO_DOCUMENTO>TF002750402008152712</NUMERO_DOCUMENTO>
      <NUMERO_PROFESIONAL>00001</NUMERO_PROFESIONAL>
 

Como puedes ver en el nodo MATRICULACION aparecen los atributos con un orden distinto al puesto en el código.

Amigos:

Retomo este post porque ahora ando metido en la creación de XML, buscando encontré este post,
y esta clase es bastante sencilla.

Ernesto: Todo hace parecer que el hash internamente es ordenado alfabéticamente, por eso no aparecen en el orden que se definen.

Y aprovecho para preguntar, en donde puedo ver los diferentes tipos de nodo, por ejemplo:

xmlNode():New( HBXML_TYPE_PI
xmlNode():New( HBXML_TYPE_COMMENT
xmlNode():New( HBXML_TYPE_TAG

Cuales más hay?

Saludos

[landaga]

Hola amigos,
yo utilizo desde hace tiempo este método de creación de XML sin problemas pero ahora me ha surgido una dificultad. Necesito crear una línea como la siguiente y no se como obtenerla, alguien me podría ayudar?

<InstdAmt Ccy="EUR">1273.00</InstdAmt>
con la creación de un simple Nodo (Tag) no funciona ya que aparecen espacios, signo =, " "

si hago
oInstdAmt:=TxmlNode():New(HBXML_TYPE_TAG,"InstdAmt",,"Ccy='EUR'"+IMPORTE)
me genera esta línea
<InstdAmt>Ccy='EUR'1273.00</InstdAmt>
pero no es lo que necesito

tampoco lo consigo añadiendo atributos después de crear el Nodo
oInstdAmt:=TxmlNode():New(HBXML_TYPE_TAG,"InstdAmt")
oInstdAmt:SetAttribute("Ccy","EUR"+IMPORTE)
me devuelve
<InstdAmt Ccy="EUR1273.00"/>

Un saludo y gracias

[Antonio Linares]

Has probado así ?

oInstdAmt := TxmlNode():New( HBXML_TYPE_TAG, "InstdAmt Ccy='EUR'",, IMPORTE )

ó asi:

oInstdAmt := TxmlNode():New( HBXML_TYPE_TAG, "InstdAmt",, IMPORTE )
oInstdAmt:SetAttribute( "Ccy", "EUR" )

[landaga]

Has probado así ?

oInstdAmt := TxmlNode():New( HBXML_TYPE_TAG, "InstdAmt Ccy='EUR'",, IMPORTE )

ó asi:

oInstdAmt := TxmlNode():New( HBXML_TYPE_TAG, "InstdAmt",, IMPORTE )
oInstdAmt:SetAttribute( "Ccy", "EUR" )

Gracias Antonio!!!
la primera da error pero las otras dos hacen exactamente lo que quiero.
Un saludo