xml_summ()
{
	var Tabl = CreateObject("CurPrnTbl");  
	int cr = Tabl.Count_Rcr();
	int fldTn = Tabl.Find_Name_Fld("C_FIO");
	if ( fldTn!=-1 ) Tabl.Sort_Field(fldTn);
	
string  WorkFile="c:\\111\\111.xml",
		tn,
		f,i,o,
		vid,sum;
		

		var XMLDoc = CrXMLobj();
		XMLDoc.documentElement=CreateElemXML(XMLDoc,OemToAnsi("Root"));                  
		var XMLElem=XMLDoc.documentElement;
		
		var XMLZaZarp = CreateChildElemXML(XMLDoc,XMLElem,OemToAnsi("ЗачислениеЗарплаты"));
		int curtn = -1;
		var XMLsotr = GetNothing();

		for (int zap=0; zap<cr; zap++)
		{
			tn = Tabl.TextS("C_FIO",zap); FreeSpaceString(tn,3,"");	
			int tni = atoi(tn);
			if ( curtn!=tni )
			{
    			XMLsotr = CreateChildElemXML(XMLDoc,XMLZaZarp,OemToAnsi("Сотрудник"));         
    			var XMLtn = CreateChildElemXML(XMLDoc,XMLsotr,OemToAnsi("ТабельныйНомер"));
	    		SetValueElemXML(XMLtn,to_string(tn));
				curtn = tni;
			}
		
			
			var XMLvid = CreateChildElemXML(XMLDoc,XMLsotr,OemToAnsi("КодВида"));
			vid = Tabl.TextS("Extern_Cod",zap); FreeSpaceString(vid,3,"");	
			SetValueElemXML(XMLvid,to_string(vid));
			
			var XMLsumm = CreateChildElemXML(XMLDoc,XMLsotr,OemToAnsi("Сумма"));
			sum = Tabl.TextS("Sum",zap); FreeSpaceString(sum,3,"");	
			SetValueElemXML(XMLsumm,to_string(sum));
		}
  
 
  if ( !SaveFileXMLFine(XMLDoc,WorkFile,"   ") )
  {   
    char s[256];
    sprintf(s,"Невозможно создать файл %s",WorkFile);
    AmbaMessageBox(static_cast_to_string(s),"ошибка",0,0);
    return false;
  }

  XMLDoc = 0;
  return 1;


}

  CrXMLobj()
{   
   UnloadScriptModule("msxml");
   LoadScriptModule("msxml");
   var XMLDoc = CreateXML("");
   return XMLDoc;
}