UserBeginPrintPartCheckHeader(tipKv)
{
  int combine=__CurrentCheckProp.GetCombine();//внутренний  код "печатаемой должности"  
  //печатаем "значение" оклада и НРВ
  if ( !Excel )
  {
   char str[256];
   sprintf(str," Оклад: %.2f Норма: %.2f (%.2f)",UserGetOklad(994,combine),UserGetNorm(combine,2),UserGetNorm(combine,1));
   print(str);
	 double frv=UserGetFrv(143,combine);//берем ФРВ из вида 143
   if (frv<0.001)// ФРВ в 143 нулевое - возьмем из 296 вида.	 
		 frv=UserGetFrv(296,combine);
	 sprintf(str," ФРВ: %.2f ",frv);
	 print(str);
  }
}
UserGetOklad(code,combine)
{
  int rowkod[ROWMAX];//массив с номерами строк
  var Prop = CreateObject("APropBE");Prop.Init(CLL_TOTAL_SRC,CLL_TOTAL_SUBJECT,CLL_TOTAL_PODR,combine); //инициализируем APropBE вн.кодом совместительства
  int cntrow=poiskosnkodProp(Extern_To_Intern(code),rowkod,0,Prop);//получаем список строк с внешним кодом code
  var monthKvitok=KDateFromInt_WithDay(1,mtek);
  for (int row=0; row<cntrow; row++)                    //перебираем все строки
  {
    //фильтр на недействующие строки
    var DatB = KDateFromD(GetBegDate(rowkod[row]));
    var DatE = KDateFromD(GetEndDate(rowkod[row]));
    if (DatB.GTM(monthKvitok)||DatE.LTM(monthKvitok)) 
      continue; 
      return GetBase(rowkod[row]); //возвращаем БЗ первой подходящей строки
  }  
  return 0.;//ни одной строки не нашли - возвращаем ноль
}
UserGetFrv(code,combine)
{
	int rowkod[ROWMAX];//массив с номерами строк
  var Prop = CreateObject("APropBE");Prop.Init(CLL_TOTAL_SRC,CLL_TOTAL_SUBJECT,CLL_TOTAL_PODR,combine); //инициализируем APropBE вн.кодом совместительства
  int cntrow=poiskosnkodProp(Extern_To_Intern(code),rowkod,0,Prop);//получаем список строк с внешним кодом code
  var monthKvitok=KDateFromInt_WithDay(1,mtek);
  for (int row=0; row<cntrow; row++)                    //перебираем все строки
  {
    //фильтр на недействующие строки
    var DatB = KDateFromD(GetBegDate(rowkod[row]));
    var DatE = KDateFromD(GetEndDate(rowkod[row]));
    if (DatB.GTM(monthKvitok)||DatE.LTM(monthKvitok)) 
      continue; 
		double rv=0;
		rvvid("=",GetCode(rowkod[row]),mrasch-mtek,rv); 
		if(rv>0.001)
			return rv;
  }  
	return 0;
}

UserGetNorm(combine,what)
{
  var tmpCurCombine=CreateObject("TmpCurCombine");  tmpCurCombine.Init(combine);
  s50(mtek);
  if(what==2)
    return norm(2);
  if (what==1)
    return norm(1);
  return 0.;  
}
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;
}