Local oXA As Xmladapter, oXT As Xmltable
oXA=Createobject("XMLAdapter")

Create Cursor info_acc( ;
	date_info T, ;
	firm v( 64 ), ;
	acc v( 16 ), ;
	cur v( 16 ), ;
	start b( 3 ), ;
	credit b( 3 ), ;
	debet b( 3 ), ;
	rests b( 3 ) ;
	)
*	Insert Into info_acc Values(Datetime(), "hhh","222333444555", "uah", - 771561 . 33 ,  0 . 00 ,  0 . 00 , - 771561 . 33 )
*	Cursortoxml("info_acc", "cXml1", 1 , 16 )
oXA.LoadXML("c:\source.xml",.T.)
oXA.AddTableSchema("info_acc",.T.,Strconv("info_acc", 5 ))

oXT=oXA.Tables( 1 )
*	mOld = Set("Sysformats")
*	Set Sysformats On
*	Set Point To ','
oXT.ToCursor(.T.)
*	Set Point To
*	Set Sysformats &mOld

Release oXT
Release oXA
Select info_acc
Browse
Wait "Все!" Window Nowait