LPARAMETERS menoxml, pripravene, m.cesta
PRIVATE m.crlf, m.XML_XMLDOM_PROGID, m.XML_SCHEMA_MEMOSIZE, m.WWXML_USE_VFP_XMLTOCURSOR, m.request
IF EMPTY(m.cesta)
	m.cesta=m.xml_export_path
ENDIF 
IF m.pripravene
	request=FILETOSTR(m.cesta+m.menoxml)
ELSE 
	SYS(3101, 65001)
	input_cursor_name="__wwXMLCust"
	XML_XMLDOM_PROGID="msxml2.domdocument"
	XML_SCHEMA_MEMOSIZE=2147483647
	WWXML_USE_VFP_XMLTOCURSOR=.F.

	SET CLASSLIB TO wwXML ADDITIVE
	SET PROCEDURE TO wwUtils ADDITIVE
	SYS(3101, 1250)

	CRLF=CHR(10)+CHR(13)
	mXML = CREATE("wwXML")
	mXML.nCreateDataStructure = 1
	request = mXML.CursorToXML(input_cursor_name, "param", 0)
	=STRTOFILE(m.request,(m.cesta+m.menoxml))
	RELEASE CLASSLIB wwxml
ENDIF 
RETURN m.request

