... METHOD New( cOut, cVer, cEncode, cSheet, lFormated ) CLASS TXMLWRITE DEFAULT cVer TO "1.0" DEFAULT cEncode TO "ISO-8859-1" //BYNAME lFormated ::CRLF := If( lFormated, Chr(13)+Chr(10), "" ) ::aMark := {} ::hFile := FCreate( AllTrim( cOut ), 0 ) ::Procesar( '<?xml version="' ...