Página 1 de 1

Algun ejemplo xml

Publicado: Lun Abr 22, 2013 9:03 pm
por XeviCOMAS
Pos eso...
Ya se sabe que mas vale 1 imagen que 1000 palabras.
¿Alguien puede colgar un ejemplo de utilización de la clase TXmlDocument???
¿Alguna referencia de lectura de documentación de la clase???
Gracias.
Un Saludo,
Xevi.

Algun ejemplo xml

Publicado: Mar Abr 23, 2013 10:38 am
por ignacio
XeviCOMAS escribió el lun, 22 abril 2013 21:03Pos eso...
Ya se sabe que mas vale 1 imagen que 1000 palabras.
¿Alguien puede colgar un ejemplo de utilización de la clase TXmlDocument???
¿Alguna referencia de lectura de documentación de la clase???
Gracias.
Un Saludo,
Xevi.
Hola Xevi,
í‰chale un vistazo al ejemplo BTS.
Saludos

Algun ejemplo xml

Publicado: Mar Abr 23, 2013 2:28 pm
por emeasoft
Xevi:
TXmlDocument: é chato de usar (es molesto para utilizar).
Usamos assim:

LOCAL x01,nHandle,lOK
x01:='<?xml version="1.0" encoding="UTF-8"?>'
x01+='<NFe xmlns="http://www.portalfiscal.inf.br/nfe">'
x01+= '<infNFe versao="'+'001'+'" Id="NFe'+'3'+'">'
x01+= '<ide>'
x01+= '<cUF>'+cUF+'</cUF>'
x01+= '<cNF>'+cNf+'</cNF>'
...
x01+= '<finNFe>1</finNFe>'
x01+= '<procEmi>0</procEmi>'
x01+= '<verProc>2.00</verProc>'
x01+= '</ide>'
...
x01+= '</infNFe>'
x01+='</NFe>'

nHandle :=FCreate("TESTE.TMP")
x01:=StrTran(x01,CHR(13),"")
x01:=StrTran(x01,CHR(10),"")
lOK:=FWrite(nHandle,@x01 )#-1
FClose(nHandle)
IF lOK
FRename("TESTE.TMP","TESTE.XML")
ENDIF

Mário Angelini

Algun ejemplo xml

Publicado: Mar Abr 23, 2013 3:28 pm
por Cassiano de Oliveira
Legal Mário, obrigado
"www[dot]eMeAsOfT[dot]com" wrote in message
news:51767e5c$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Xevi:
TXmlDocument: é chato de usar (es molesto para utilizar).
Usamos assim:
LOCAL x01,nHandle,lOK
x01:='<?xml version="1.0" encoding="UTF-8"?>'
x01+='<NFe xmlns="http://www.portalfiscal.inf.br/nfe">'
x01+= '<infNFe versao="'+'001'+'" Id="NFe'+'3'+'">'
x01+= '<ide>'
x01+= '<cUF>'+cUF+'</cUF>'
x01+= '<cNF>'+cNf+'</cNF>'
...
x01+= '<finNFe>1</finNFe>'
x01+= '<procEmi>0</procEmi>'
x01+= '<verProc>2.00</verProc>'
x01+= '</ide>'
....
x01+= '</infNFe>'
x01+='</NFe>'
nHandle :=FCreate("TESTE.TMP")
x01:=StrTran(x01,CHR(13),"")
x01:=StrTran(x01,CHR(10),"")
lOK:=FWrite(nHandle,@x01 )#-1
FClose(nHandle)
IF lOK
FRename("TESTE.TMP","TESTE.XML")
ENDIF
Mário Angelini
--
http://www.eMeAsOfT.com
http://emeasoft.blogspot.com/
http://twitter.com/emeasoft
http://www.facebook.com/emeasoft
https://plus.google.com/102999253031532804222
http://g.co/maps/26gey

Algun ejemplo xml

Publicado: Mié Abr 24, 2013 8:37 am
por XeviCOMAS
Gracias a todos,
Hasta ahora, tambien tenia mi forma de "interpretar" el texto xml, pero al
ver la clase TXmlDocument creí­ que seria más sencillo tirar por ahí­... pues
donde existe una clase para el menester siempre se supone que debe de ser
mas manejable.
Miraré las opciones y me pelearé un poco con TXmlDocument, también.
Un Saludo,
Xevi.
"Xevi" ha escrit al missatge:51758988$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Pos eso...
Ya se sabe que mas vale 1 imagen que 1000 palabras.
¿Alguien puede colgar un ejemplo de utilización de la clase TXmlDocument???
¿Alguna referencia de lectura de documentación de la clase???
Gracias.
Un Saludo,
Xevi.

Algun ejemplo xml

Publicado: Jue Abr 25, 2013 9:18 am
por Jose A. Suarez
Mira en la carpeta samples el proyecto BTS ;-).
Saludos
Alf+.
El 24/04/13 08:37, Xevi escribió:
> Gracias a todos,
>
>
> Hasta ahora, tambien tenia mi forma de "interpretar" el texto xml, pero
> al ver la clase TXmlDocument creí­ que seria más sencillo tirar por
> ahí­... pues donde existe una clase para el menester siempre se supone
> que debe de ser mas manejable.
> Miraré las opciones y me pelearé un poco con TXmlDocument, también.
>
>
> Un Saludo,
> Xevi.
>
>
>
> "Xevi" ha escrit al missatge:51758988$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>
> Pos eso...
>
> Ya se sabe que mas vale 1 imagen que 1000 palabras.
> ¿Alguien puede colgar un ejemplo de utilización de la clase TXmlDocument???
>
> ¿Alguna referencia de lectura de documentación de la clase???
>
>
> Gracias.
>
> Un Saludo,
> Xevi.