// FINALIDADE CONVERTER UM REGISTRO OU UMA TABELA EM XML
//
// Summary: <specify the procedure action>
// Syntax:
//[ <Result> = ] VariantToXml (<tabela>, <id>)
//
// Parameters:
// tabela: <specify the role of tabela>
// id: <specify the role of id>
// Example:
// <Specify a usage example>
//
// variante (variant):
// nomeRaiz (ANSI string): <specify the role of nomeRaiz>
PROCEDURE VariantToXml(tabela, id)

sXML is string

IF id > 0

//hfilter para pegar o id que deseja gerar o xml
sXML = HRecordToXML(tabela)

RESULT sXML

ELSE

hora is Time = TimeSys()

HExportXML({tabela},fCurrentDir()+fSep()+tabela+hora+".xml","",hExpCreation)

sXML = fLoadText(fCurrentDir()+fSep()+tabela+hora+".xml",foAnsi)

fDelete(fCurrentDir()+fSep()+tabela+hora+".xml",frReadOnly)

RESULT sXML

END