http://www.paresi.net/clarion/index.html
!after global includes
INCLUDE('iQXML.inc','Equates')
!Inside The global map
INCLUDE('iQXML.inc','Modules')
! Load the XML file to process it
! ------------------------------- If ~Xml:LoadFromFile('InvoiceExample.xml') If ~xml:FindNextNode('Customers','Customer') Xml:PrimaryKeyCascade('CustomerName') Xml:PrimaryKeyCascade('CustomerID') IRecs = XML:LoadQueue(InvoicesQueue,True,True) End XML:Free() XML:DebugMyQueue(InvoicesQueue,'The Invoice Queue') End
Nenhum comentário:
Postar um comentário