UserAddSummToTableName(__AdrTable,__AdrMainTable,__MainTableRcr,nameFld,text)
{
  try
  {
    if ( __AdrMainTable ) 
    {
      var Tabl = CreateObject("CurPrnTbl");
      Tabl.Initial(__AdrTable);
      int FldSumm = Tabl.Find_Name_Fld(nameFld);
			if(FldSumm==-1) return;
      int Acc=Tabl.Accurasy_Fld(FldSumm);
      
      Tabl.Fill_Bottom_Text_1();
      double Sum = atof(Tabl.Get_Bottom_Text(FldSumm));
      //if ( Type==1 && Tabl.Count_Rcr() ) Sum /= Tabl.Count_Rcr();


      var TablMain=CreateObject("CurPrnTbl");
      TablMain.Initial(__AdrMainTable);
      if ( __MainTableRcr>=0 && __MainTableRcr<TablMain.Count_Rcr() )
      {
        int Fld = TablMain.Find_Name_Fld("Descriptor");
			
        if ( Fld==-1 ) return;
				int FldReest = Tabl.Find_Name_Fld("????");
        if ( FldReest==-1 ) return;
        char caption[256],tmp[256], reestr[256];
        caption = TablMain.Text(Fld,__MainTableRcr); FreeSpaceString(caption,3,"");
				reestr =Tabl.Text(FldReest,0); FreeSpaceString(caption,3,"");//берем номер реестра из первой записи
        sprintf(tmp,"%s (%s: %.*f) Реестр:%d",caption,text,Acc,Sum,atoi(reestr));
        TablMain.SText(Fld,__MainTableRcr,to_string(tmp));
        TablMain.Rewrite();
      }
    }
  }
  catch(...)
  {
    ;
  }  
}
GetProfName(Prof)
{
   char s[256];
   GetValueClassif("T_GUIDE\\prof.tab",Prof,s,255,"Value","Kod");
   return s;
}

Message ( &Arg,  &pcT, W, A)
//////////////////////////////////////////////////////////////////
// Сообщение(парам1,парам2)
// парам1 - текст сообщения
// парам2 - заголовок окна
//////////////////////////////////////////////////////////////////
{
   var FuncParam =  CreateObject("ParamFuncRW");
   FuncParam.IInitial(static_cast_to_string(Arg),",",10);
   int CountParam=FuncParam.Count();

   if ( CountParam )
   {
      AmbaMessageBox(FuncParam.Get(0),FuncParam.Get(1),1);
   }
   return pcT;
}

ToLeft( &Arg,  &pcT, W, A)
//////////////////////////////////////////////////////////////////
// Выравнивание числа по левому краю
//////////////////////////////////////////////////////////////////
{
   double Sum = atof(GetVarValue(Arg));
   char StrTmp[W+256];
   sprintf(StrTmp,"%-*.*f",W,A,Sum);
   Text_Text(pcT,StrTmp,W);
   return pcT;
}

UserCombineRefF2(&buffer,bufsize,handle,&C_Params)
{
  // функция для вызова справочника совместительств из таблицы
  // у поля Совместительство в таблице настройки написать в функции предварительной обработки:
  // CLASSIF(S:UserCombineRefF2) 
  // ЧИТАЕТ ЛИЦЕВОЙ СЧЕТ с табельным номером взятым из поля C_FIO 

  char ss[bufsize+1];
  CharToOem(buffer,ss);
  var CTabl=CreateObject("CurPrnTbl");
  CTabl.Initial(C_Params.pTabl);
  int Tn=atoi(CTabl.TextS("C_FIO",CTabl.Get_N_Rcr()));
  int er=LSRead(Tn,2);
  if (er==1)
  {
    int rc=ShowCombineRef(ss,ss, 2, 5, 70, 15);
    if (rc!=ESC)
    {
	   OemToChar(ss, buffer);
      return 1;
    }
  }
  return 0;
}