import "layer92.dll"

AlgorithmCalc(&info,&r)
{
   return SysAlgorithmCalc(info,r);
}

SysAlgorithmCalc(&info,&r)
{
   // сначало вызываем пользовательскую часть алгоритмов, и только
   // потом - системную
   int R_C=UserAlgorithmCalc(info,r);
   if ( R_C ) return R_C;

   int Ver = GetVerInfo();
   if ( Ver )
   {
      if ( Ver & V_UVD      ) R_C=AlgorithmCalcSpecUVD(info,r);
      if ( R_C ) return R_C;
      if ( Ver & V_SCHOOL   ) R_C=AlgorithmCalcSpecRONO(info,r);
      if ( R_C ) return R_C;
      if ( Ver & V_MEDICINE ) R_C=AlgorithmCalcSpecMedicine(info,r);
      if ( R_C ) return R_C;
   }

   switch(info.kod_alg)
   {

      case 3:
         return SysAlg3(info,r);
      case 4:
         return SysAlg4(info,r);
      case 5:  case 192:
         return SysAlg5_192(info,r);
      case 6:
         return SysAlg6(info,r);
      case 12: case 15: case 25:  case 115:
         return SysAlg12_15_25_115(info,r);
      case 13:
         return SysAlg13(info,r);
      case 14:
         return SysAlg14(info,r);
      case 17:
         return SysAlg17(info,r);
      case 23:
         return SysAlg23(info,r);
      case 27:
         return SysAlg27(info,r);
      case 35:
         return SysAlg35(info,r);
      case 7:
      case 10:
      case 47:
          return SysAlg7_10_47(info,r);
      case 96: case 97: case 186: case 187:
         return SysAlg96_97_186_187(info,r);
      case 98: case 99:
         return SysAlg98_99(info,r);
      case 121:
         return SysAlg121(info,r);
      case 178:
         return SysAlg178(info,r);
      case 184:
         return SysAlg184(info,r);
      case 185:
         return SysAlg185(info,r);
      case 215:
         return SysAlg215(info,r);
      case 218:
         return SysAlg218(info,r);
      case 225:
         return SysAlg225(info,r);
      case 228:
         return SysAlg228(info,r);
//      case 255: case 256:
//         return SysAlg255_256(info,r);
      case 897:
         return SysAlg897(info,r);

      case 247:
         return SysAlg247(info,r);

      default:
         return 0;
   }
}



SysAlg3(&info,&r)
{
   worktime(info.crow,info.b3,0); // заполнение рабоч.дней в табеле
   if(r[2] == 0. && nkalend == knorm)
      // если строка считается по основному графику ЛС
      skoljko(r[2],data,info.z1,info.z2,rsimv,calm,cht);
   char t[20];
   if((info.c=korrv(r,t,0,info.h,flagrow,jf)) != 1)
      return code_ReturnCode;
   if(FL_V_ALG && uprc != NO_SCREEN)
      infolist.add_record("Рабочее время",r[2]);
   return code_Break;
}

SysAlg4(&info,&r) { return SysAlg4_6(info,r,false); }

SysAlg4_6(&info,&r,bHours)
{
   unsigned idxNorm = bHours?2:1;
   worktime(info.crow,info.b3,0);

   var ListBZ;// = CreateObject("MapString");
   unsigned cnt=GetListBZ(info.kod,data+0.01,data+countday/100.,GetBase(info.crow),ListBZ);

   // if ( ListBZ.Size()<2 )
   if ( cnt<2 )
   {
      if(nkalend == knorm) //* если строка считается по основному графику ЛС
      {
         if ( bHours )
            skoljko(r[2],data,info.z1,info.z2,rsimv,calm,cht);
         else
            r[2]=dney_v_tab(rsimv,calm,info.z1,info.z2);
      }
      char t[20];
      if((info.c=korrv(r,t,0,info.h,flagrow,jf)) != 1)
         return code_ReturnCode;
      info.n1=r[2]*info.bz/norm(idxNorm);
      if(FL_V_ALG && uprc != NO_SCREEN)
      {
         infolist.add_record("Рабочее время",r[2]);
         infolist.add_record(bHours?"Норма часов":"Норма дней",norm(idxNorm));
         infolist.add_record("Оклад",info.bz);
         infolist.add_record("Результат",info.n1);
      }
   }
   else
   {
      if(FL_V_ALG&&uprc!=NO_SCREEN)
      {
        infolist.add_record(bHours?"Норма часов":"Норма дней",norm(idxNorm));
      }

      // bool bCur = ListBZ.InitIterator();
      unsigned idx=0;
      double DatB = ListBZ[idx][1];// atof(ListBZ.GetCurKey());
      double _do = do_chisla(info.ikod);

      info.n1 = 0.;
      r[2]= 0.;
      var Tmp = CreateObject("KDate");
      var Tmp1 = CreateObject("KDate");
      // while (  bCur )
      while (  idx<cnt )
      {
         double bz = ListBZ[idx][0];//atof(ListBZ.GetCurValue());
         ++idx;//bCur = ListBZ.Next();
         double DatE=data+countday/100.;
         //if ( bCur ) 
         if ( idx<cnt )
         {
            Tmp.SetDateD(ListBZ[idx][1]/*atof(ListBZ.GetCurKey())*/);
            Tmp.Dec();
            DatE = Tmp.GetDouble();
         }
         int z1,z2;
         s6400(DatB,DatE,z1,z2,data);
         double rv=0.;
         if ( bHours )
            skoljko(rv,data,z1,z2,rsimv,calm,cht);
         else
            rv=dney_v_tab(rsimv,calm,z1,z2);
         char BufCommRv[256];
         BufCommRv="Рабочее время";
         if ( uprc!=NO_SCREEN )
         {
            Tmp.SetDateII(z1,mrasch/*DatB*/);
            Tmp1.SetDateII(z2,mrasch/*DatE*/);
            char Buf[256];
            sprintf(Buf,"Введите РВ для периода с %s по %s:",Tmp.GetStr(),Tmp1.GetStr());
            if ( zaprosd(scr04,windrow+1,0,Buf,6,rv,rv,-999999,999999,20)==ESC )
              return code_ReturnCode;
            if(FL_V_ALG&&uprc!=NO_SCREEN)
               sprintf(BufCommRv,"РВ(%s-%s)",Tmp.GetStr(),Tmp1.GetStr());

         }
         // if ( bCur ) 
         //   DatB = atof(ListBZ.GetCurKey());
         if ( idx<cnt )
            DatB = ListBZ[idx][1];

         double AddSum = rv*bz/norm(idxNorm);
         round2(AddSum,0,_do,AddSum);
         r[2] += rv;
         info.n1   += AddSum;
         if(FL_V_ALG&&uprc!=NO_SCREEN)
         {
           // infolist.add_record("Рабочее время",rv);
           infolist.add_record(static_cast_to_string(BufCommRv),rv);
           infolist.add_record("Оклад",bz);
           infolist.add_record("Сумма",AddSum);
           infolist.add_record("-------------------------","--------------------");
         }
      }
      if(FL_V_ALG&&uprc!=NO_SCREEN)
        infolist.add_record("Результат",info.n1);
   }
   return code_Break;
}

SysAlg5_192(&info,&r)
{
   worktime(info.crow,info.b3,0); // заполнение рабоч.дней в табеле
   if(nkalend == knorm)
      //* если строка считается по основному графику ЛС
      skoljko(r[2],data,info.z1,info.z2,rsimv,calm,cht);
   char t[20];
   if((info.c=korrv(r,t,0,info.h,flagrow,jf)) != 1)
      return code_ReturnCode;
   info.n1=(info.kod_alg == 192) ? r[2]*info.bz : r[2]*info.bz/100.;
   if(FL_V_ALG && uprc != NO_SCREEN)
   {
      infolist.add_record("Рабочее время",r[2]);
      infolist.add_record("Тариф",info.bz);
      infolist.add_record("Результат",info.n1);
   }
   return code_Break;
}

SysAlg6(&info,&r)
{
   return SysAlg4_6(info,r,true);
/*
   worktime(info.crow,info.b3,0);
   if(nkalend == knorm)
      // если строка считается по основному графику ЛС
      skoljko(r[2],data,info.z1,info.z2,rsimv,calm,cht);
   char t[20];
   if((info.c=korrv(r,t,0,info.h,flagrow,jf)) != 1)
      return code_ReturnCode;
   info.n1=r[2]*info.bz/norm(2);
   if(FL_V_ALG && uprc != NO_SCREEN)
   {
      infolist.add_record("Рабочее время",r[2]);
      infolist.add_record("Норма часов",norm(2));
      infolist.add_record("Оклад",info.bz);
      infolist.add_record("Результат",info.n1);
   }
   return code_Break;
*/
}

SysAlg12_15_25_115(&info,&r)
{
   struct Struct_Alg Work;
   var mes1=0;
   var mes2=0;
   int R_C=0;
   var stolbec=((info.kod_alg == 12) ? ST_MPREM : ST_PROCNADB)+1;
   // Тип работы с графой РВ:
   // 0 - без записи найденного значения БЗ в графу "РВ";
   // 1 - с записью;
   // 2 - с записью и запросом (возможностью корректировки);
   // Если к значению прибавить 10,  то - то же,  но значение РВ
   // не будет пересчитываться, если в графе "РВ" уже есть нену-
   // левое значение РВ.
   var TipFillRV=(info.kod_alg == 12) ? 12 : 0;
   // символы для выборки
   // по умолчанию - по всем ненулевым
   char StrSimv[51];
   sprintf(StrSimv,"*");
   Get_AlgWithParam(Work,info.ikod);   // 31.01.1995
   // Work.Count_Par - число паpаметpов для кода алгоpитма
   //-- параметр 1 - столбец таблицы входимости (по умолчанию = 2, для
   // 12 алгоритма и по умолчанию = 18 для алгоритма 15)
   if(Work.Count_Par > 0)
   {
   var i=atoi(reinterpret_cast_to_string(Work.List_Par[0]));
      if(
         (i > 0 && i <= 99) ||
         (
            info.kod_alg >= 25 && i > SPECT &&
            i <= SPECT+24
         )
      )
         stolbec=i;
   }
   //-- параметр 2 - месяц начала выборки (относительно расчетного)
   //   (по умолчанию берется за один текущий месяц)
   if(Work.Count_Par > 1)
   {
   var i=atoi(reinterpret_cast_to_string(Work.List_Par[1]));
      if(
         (i >= (- P2MES) && i <= B2MES) ||
         (
            info.kod_alg >= 25 && i >= (-P2MES) &&
            i <= B2MES
         )
      )
         mes1=mes2=i;
   }
   //-- параметр 3 - месяц конца выборки (относительно расчетного)
   //   (по умолчанию берется за один месяц, указанный параметром 2)
   if(Work.Count_Par > 2)
   {
   var i=atoi(reinterpret_cast_to_string(Work.List_Par[2]));
      if(
         (i >= mes1 && i <= B2MES) ||
         (info.kod_alg >= 25 && i >= mes1 && i <= B2MES)
      )
         mes2=i;
   }
   //-- параметр 4 - Тип работы с графой РВ:
   if(Work.Count_Par > 3)
      TipFillRV=atoi(reinterpret_cast_to_string(Work.List_Par[3]));
   //-- параметр 5 - символы выборки
   if(Work.Count_Par > 4)
      sprintf(StrSimv,"%.50s",reinterpret_cast_to_string(Work.List_Par[4]));
   //-- параметр 6 - способ выборки для
   //                алгоритмов 25 и 115
   var Flag=(info.kod_alg == 25)
   ? (
      CL_MV|
      CL_COL|
      CL_QUICK
      )
   : (
      CL_MV|
      CL_EXACT|
      CL_QUICK
   );

   // 23.08.05 SVV Вернулись к типу неполноты по рабочим дням, т.к.
   // вполне логично выглядит, что премия считается пропорционально 
   // отработанному времени. И к тому же так было и в стародавние времена.
   // Короче вообще непонятно с чего вдруг пришли к пропорции по нормативным дням
   // (скорее всего потому что при расчете через "параметры алгоритмов" тип неполноты
   // по умолчанию был равен 2, сейчас переправил на 4).
   int TipNep = 4;  // тип неполноты
   if ( Work.Count_Par>5 )
   {
      if ( info.kod_alg<25 )
         TipNep=atoi(reinterpret_cast_to_string(Work.List_Par[5]));
      else
      Flag=Tip__Flag(reinterpret_cast_to_string(Work.List_Par[5]));
   }

   //-- параметр 7 - псевдоним поля КЧ для хранения процента
   //   по времени
   string ps="";
   bool bTimeProc = false;
   if (Work.Count_Par>6)
   {   
      string p = reinterpret_cast_to_string(Work.List_Par[6]);
      long idx = InStrN(1,p,"ps:");
      if ( idx )
      {
         ps = MidN(p,idx+3,0);
         int Pos = kch_num_sys(ps);
         if ( Pos!=EOF ) bTimeProc=true;
         else ps="";
      }
   }

   var   n5=0.;
   if(info.kod_alg >= 25)
      toMatrLS();
   var hSrc=GetCurPropCountLS();
   for(var m=mes1; m<=mes2; m++)
   {
      double r9;
      if(info.kod_alg < 25)
         s1001simv(StrSimv,"*",info.d1,info.d2,m,stolbec-1,r9,TipNep,0);
      else
      {
         // проц. надбавка по мес. нач. без нормирования
         // по датам
         if(info.kod_alg == 25)
            r9=CollectSummPropSimv(
               static_cast_to_string(StrSimv),stolbec-1,0,m+mrasch,
               Flag|CL_SOURCE,hSrc
            );
         else
            r9=s1001simv_mvProp(
               StrSimv,info.d1,info.d2,m+mrasch,stolbec-1,TipNep,
               Flag|CL_SOURCE,
               hSrc
            );
      }
      n5+=r9;
   }  // 08.11.95
   
   if( FL_V_ALG && uprc!=NO_SCREEN)
   {
      infolist.add_record("Месяц начала выборки",mes1);
      infolist.add_record("Месяц окончания выборки",mes2);
      infolist.add_record("Столбец выборки",stolbec);
      infolist.add_record("Символы выборки",StrSimv);
      if ( info.kod_alg<25 )
         infolist.add_record("Тип неполноты",TipNep);
      infolist.add_record("Сумма выборки",n5);
   }

   double SrednProc = 0.;
   int CountProc = 0;
   if ( bTimeProc ) // определим "средний" процент если процент менялся по времени
   {
      // А теперь пройдемся по полю кадровой части
      // И возьмем оттуда все значения процентов, действовавшие
      // в рассчитываемом месяце
      info.n1=0.;  // обнулили итоговую сумму

      // Дата конца действия очередного значения процента
      // В самом начале она равна последнему дню месяца.
      var DateEnd = CreateObject("KDate");
      DateEnd.SetDateII(countday,mrasch);

      // Найдем дату начала действия очередного значения процента
      char StrD[21];
      GetKchDate(ps,StrD,10,DateEnd);
      var Date=CreateObject("KDate");
      Date.SetDate(static_cast_to_string(StrD));
      // Если вдруг дата начала пустая или выходит за рамки расчетного
      // месяца, то установим ее равной первому числу расчетного месяца
      if ( Date.IsEqI(INVALID_DATE_VALUE) || Date.GetAbs()<mrasch )
      {
         Date.SetDateII(1,mrasch);
         sprintf(StrD,"%02d.%02d.%4d",Date.GetDay(),Date.GetMonth(),Date.GetYear());
      }

      // Ну и просматриваем все значения процентов, действовавшие в
      // рассматриваемом месяце
      char StrProc[21];
      while ( 1 )
      {
         // находим очередное значение процента
         double Proc=atof(GetKchValue(ps,StrProc,20,DateEnd));

         // определяем коэффициент неполноты для очередного значения процента
         // (неполнота по нормативным дням)
         double KoefNepoln = 1.;
         nepoln(Date.GetDouble(),DateEnd.GetDouble(),info.d1,info.d2,KoefNepoln,2);
         /*
         double CurProc = Proc*KoefNepoln/100.;
         SrednProc += CurProc;
         double Add = n5*CurProc;
         // Увеличиваем итоговую сумму на очередную порцию премии
         info.n1 += Add;
         */
         SrednProc += Proc*KoefNepoln;
         CountProc++;

         // записываем, если надо, в таблицу найденные значения
         if(FL_V_ALG && uprc != NO_SCREEN)
         {
            infolist.add_record("------------------------","---------------------");
            infolist.add_record("Начало действия процента",StrD);
            sprintf(StrD,"%02d.%02d.%4d",DateEnd.GetDay(),DateEnd.GetMonth(),DateEnd.GetYear());
            infolist.add_record("Конец  действия процента",StrD);
            sprintf(StrD,"%.5f",KoefNepoln);
            infolist.add_record("Коэффициент",StrD);
            infolist.add_record("Процент",Proc);
            // infolist.add_record("Сумма",Add);
         }


         // Устанавливаем дату конца очередного значения процента
         // равной дате начала уже рассмотренного значения минус один день.
         DateEnd.SetDateD(Date.GetDouble());
         DateEnd.Dec();

         // Если дата конца вышла за пределы расчетного месяца - выходим
         if ( DateEnd.IsEqI(INVALID_DATE_VALUE) || DateEnd.GetAbs()<mrasch )
            break;

         // Находим дату начала для очередного значения премии
         GetKchDateP(ps,StrD,10,Date);
         Date.SetDate(static_cast_to_string(StrD));
         // Если вдруг дата начала пустая или выходит за рамки расчетного
         // месяца, то установим ее равной первому числу расчетного месяца
         if ( Date.IsEqI(INVALID_DATE_VALUE) || Date.GetAbs()<mrasch )
         {
            Date.SetDateII(1,mrasch);
            sprintf(StrD,"%02d.%02d.%4d",Date.GetDay(),Date.GetMonth(),Date.GetYear());
         }
      }

      if( FL_V_ALG && uprc!=NO_SCREEN)
         infolist.add_record("------------------------","---------------------");
   }

if(TipFillRV && TipFillRV != 10 && (TipFillRV < 10 || r[2] == 0.))
      r[2]=(bTimeProc)?SrednProc:info.bz; // 17.04.95
   char t[20];
   if(
      (TipFillRV == 2 || TipFillRV == 12) &&
      (info.c=korrv(r,t,0,info.h,flagrow,jf)) != 1
   )
      return code_ReturnCode;
   // когда в алгоритме РВ в r[2] не подсчитывается и
   // не корректируется в korrv, выход из алгоритма
   // лучше делать через goto mdfault; а не через break;
   // (на случай пересчета строк)
   double rv=0.;
   if(!TipFillRV || TipFillRV == 10)
   {
      rv = (bTimeProc)?SrednProc:info.bz;
      R_C=code_MDefault;
   }
   else
   {
      rv = r[2];
      R_C=code_Break;
   }
   info.n1=n5*rv/100.;
   if( FL_V_ALG && uprc!=NO_SCREEN)
   {
      infolist.add_record((bTimeProc && CountProc>1)?"Средн.процент":"Процент",rv);
      infolist.add_record("Результат",info.n1);
   }
   return R_C;
}

SysAlg13(&info,&r)
{
   // премия суммой за месяц
   if(info.n1 == 0. && func[6])
      info.n1=info.bz;
   return code_MDefault;
}

SysAlg14(&info,&r)
{
   // -- д о п л а т а  за сверхур.

   // SVV 06.12.05 проценты доплаты за первые 2 часа и 
   // за последующее время параметризованы, за счет этого
   // алгоритм можно использовать как для доплаты
   // за сверх.урочные (0.5 и 1) так и для ОПЛАТЫ
   // сверхурочных (1.5 и 2 соответственно)
   struct Struct_Alg Work;
   Get_AlgWithParam(Work,info.ikod);   // 31.01.1995
   double pr1 = 0.5,
          pr2 = 1;

   // Work.Count_Par - число паpаметpов для кода алгоpитма
   //-- параметр 1 - процент оплаты первых 2 часов
   if (Work.Count_Par>0)
   {
      double i=atof(reinterpret_cast_to_string(Work.List_Par[0]));
      if ( i!=0 )
         pr1 = i;
   }
   //-- параметр 2 - процент оплаты остальных часов
   if (Work.Count_Par>1)
   {
      double i=atof(reinterpret_cast_to_string(Work.List_Par[1]));
      if ( i!=0 )
         pr2 = i;
   }

   // БЗ - тариф доплаты
   r[2]=r[2]-info.h[2];  // учет для случая пересчета
   char t[20];
   indstr(scr04,mrasch,windrow,r,t,1);
   r[2]=r[2]+info.h[2];  // учет для случая пересчета
   //           if (mmimo==1) goto mdfault;
   //           if (uprc!=NO_SCREEN) flagrow1[jf1]=crow;
   double n3=0.,n4=0.; // 4.02.94
   if(uprc != NO_SCREEN)
   {
      flagrow[jf][2]=1;
      zaprosd(
         scr04,windrow+1,0,
         "Сверхурочное РВ за первые 2 часа",
         7,r[2],n3,-500.,500.,0
      );
      zaprosd(
         scr04,windrow+2,0,
         "Сверхурочное РВ за следующие часы",
         7,0.,n4,-500.,500.,0
      );
   }
   var n5=info.bz; // тариф
   var n6=0.5; // процент доплаты тарифа за первые 2 часа
   var n7=1.; // процент доплаты тарифа за след. часы
   info.n1=n5*(n3*n6+n4*n7)/100.;
   r[2]=n3+n4;
   if(FL_V_ALG && uprc != NO_SCREEN)
   {
      infolist.add_record("Тариф",n5);
      infolist.add_record("Коэффиц. за перв. 2 часа",n6);
      infolist.add_record("Время за первые 2 часа",n3);
      infolist.add_record("Коэффиц. за след. часы",n7);
      infolist.add_record("Время за след. часа",n4);
      infolist.add_record("Результат",info.n1);
   }
   return code_MDefault;
}

SysAlg17(&info,&r)
{
   // допл. за ночн. время; РВ - в часах
   // БЗ - процент доплаты
   double n5;
   s96(info.d1,info.d2,n5,1);
   char t[20];
   if((info.c=korrv(r,t,0,info.h,flagrow,jf)) != 1)
      return code_ReturnCode;
   info.n1=n5*r[2]*info.bz/100.;
   if(FL_V_ALG && uprc != NO_SCREEN)
   {
      infolist.add_record("Ставка",n5);
      infolist.add_record("Рабочее время",r[2]);
      infolist.add_record("Процент выплаты",info.bz);
      infolist.add_record("Результат",info.n1);
   }
   return code_Break;
}

SysAlg23(&info,&r)
{
   // различные надбавки суммой
   double n6;
   info.kod_alg=s98(0,n6);
   if(info.kod_alg == 1)
      // "дневник"
      n6=dney_v_tab(rsimv,calm,info.z1,info.z2)/norm(1);
   else
   {
   double n2;
      // "часовик"
      skoljko(n2,data,info.z1,info.z2,rsimv,calm,cht);
      n6=n2/norm(2);
   }
   // n6 - отношение ФРВ/НРВ
   info.n1=n6*info.bz;
   if(FL_V_ALG && uprc != NO_SCREEN)
   {
      infolist.add_record("Отношение ФРВ/НРВ",n6);
      infolist.add_record("Надбавка",info.bz);
      infolist.add_record("Результат",info.n1);
   }
   return code_MDefault;
}

SysAlg27(&info,&r)
{
   // дни повышенной оплаты
   double n6;
   var   m1=s98(0,n6);
   double n2;
   double k;
   if(m1 == 1)
      s97(info.d1,info.d2,n2,k,1); // дневные
   else
      s96(info.d1,info.d2,n2,1);    // часовые
   char t[20];
   if((info.c=korrv(r,t,0,info.h,flagrow,jf)) != 1)
      return code_ReturnCode;
   info.n1=r[2]*n2*info.bz/100.;
   if(FL_V_ALG && uprc != NO_SCREEN)
   {
      infolist.add_record("Рабочее время",r[2]);
      infolist.add_record("Ставка",n2);
      infolist.add_record("Процент",info.bz);
      infolist.add_record("Результат",info.n1);
   }
   return code_Break;
}

SysAlg35(&info,&r)
{
   double n2;
   double k;
   // учебные дни, БЗ-процент от ставочной оплаты дня
   s97(data+.01,data+countday/100.,n2,k,1);
   if(nkalend == knorm)
      // если строка считается по основному графику ЛС
      r[2]=dney_v_tab("У",calm,info.z1,info.z2);
   char t[20];
   if((info.c=korrv(r,t,0,info.h,flagrow,jf)) != 1)
      return code_ReturnCode;
   info.n1=r[2]*n2*info.bz/100.;
   if(FL_V_ALG && uprc != NO_SCREEN)
   {
      infolist.add_record("Учебные дни",r[2]);
      infolist.add_record("Ставка",n2);
      infolist.add_record("Процент",info.bz);
      infolist.add_record("Результат",info.n1);
   }
   return code_Break;
}

SysAlg96_97_186_187(&info,&r)
{
   r[2] = DefineSevS(mrasch, info.d1, info.d2)*100.;
   double r9;
   if(info.kod_alg == 97 || info.kod_alg == 187)  // ФЗП
      s1001simv("1","н",info.d1,info.d2,0,ST_RK,r9,2,0);
   if(info.kod_alg == 96 || info.kod_alg == 186)  // ФМП
      s1001simv("2","н",info.d1,info.d2,0,ST_RK,r9,2,0);
   char t[20];
   if((info.c=korrv(r,t,0,info.h,flagrow,jf)) != 1)
      return code_ReturnCode;
   info.n1=r9*r[2]/100.;
   if(FL_V_ALG && uprc != NO_SCREEN)
   {
      infolist.add_record("Сумма",r9);
      infolist.add_record("Северный процент",r[2]);
      infolist.add_record("Результат",info.n1);
   }
   return code_Break;
}
DefineSevS(month, d1, d2)
{
  return PriorityCall("UserDefineSev","SysDefineSev",month, d1, d2);
}
SysDefineSev(month, d1, d2)
{
  return DefineSev(month, d1, d2);
/*
   double proc_sev = 0;
   char Str_Work[11];
   double p1,p2;
   kch_from("data_r",Str_Work); // дата рождения
   var DR=CreateObject("KDate");
   DR.SetDate(static_cast_to_string(Str_Work));
   DR.ImproveDay();
   if ( kch_tip_ps("sever")!='T' )
      kch_from("sever",Str_Work);
   else
   {
      char StrStag[81];
      var D = CreateObject("KDate");
      D.SetDateII(1,month);
      GetKchDate("sever",Str_Work,10,D);
      GetKchValue("sever",StrStag,50,D);
      var DateBeg = CreateObject("KDate");
      DateBeg.SetDate(static_cast_to_string(Str_Work));
      DateBeg.ImproveDay();
      var DatTmp = CreateObject("KDate");
      DatTmp.SetDate(static_cast_to_string(StrStag));
      DatTmp.ImproveDay();
      if ( !DatTmp.IsEqI(INVALID_DATE_VALUE) && DateBeg.IsEqI(INVALID_DATE_VALUE) )
         DateBeg.SetDate(DatTmp.GetStr());
      else if ( !DateBeg.IsEqI(INVALID_DATE_VALUE) && Str_Cmp(StrStag," "," ") )
      {
         // Это значит что в КЧ задано: на такую то дату у человека был такой-то стаж
         // и нам надо считать с учетом этих данных
         var Param = CreateObject("ParamFuncRW");
         Param.IInitial(static_cast_to_string(StrStag),",./|;()[]<>\\- лгЛГмМmMдД",3);
         int CountParam = Param.Count();
         if ( CountParam )
         {
            int off_year=atoi(Param.Get(0));
            int off_m   =0, off_d=0;
            if ( CountParam>1 ) off_m=atoi(Param.Get(1));
            if ( CountParam>2 ) off_d=atoi(Param.Get(2));
            if ( off_year>-1 && off_m>-1 && off_d>-1 )
            {
               int CountM = off_year*12+off_m;
               DateBeg.SetDateII(DateBeg.GetDay(), DateBeg.GetAbs()-CountM);
               DateBeg.SetDateD(DateBeg.GetOffs(-off_d));
            }
         }
      }
      stccpy(Str_Work,DateBeg.GetStr('.'),11);
   }
   var DS=CreateObject("KDate");
   DS.SetDate(static_cast_to_string(Str_Work));
   DS.ImproveDay();
   var MRasch=CreateObject("KMonth");
   MRasch.SetMonth(month);   // расчетный месяц
   if(MRasch.GetAbs()-DR.GetAbs() <= 360 && !DR.IsEqI(INVALID_DATE_VALUE) )
      procent_ot_staga(80,"sever",1,0,1,EOF,d1,d2,proc_sev); // северные до 30 лет
   else // обычные северные tabl=81;
   {
      procent_ot_staga(80,"sever",1,0,1,EOF,d1,d2,p1);
      procent_ot_staga(81,"sever",1,0,1,EOF,d1,d2,p2);
      if(p1 == p2)
         proc_sev=p1; // северные полностью
      else
      {
         if( (DR.GetAbs()+360 < DS.GetAbs() && !DS.IsEqI(INVALID_DATE_VALUE) ) || DR.IsEqI(INVALID_DATE_VALUE)) // северный стаж начался
            procent_ot_staga(81,"sever",1,0,1,EOF,d1,d2,proc_sev);// после 30 летия
         else
         {
            DR.SetMonthYear(DR.GetMonth(),DR.GetYear()+30); // 30 летие

            // Необходимо вычислить "смещение" для даты начала стажа:
            // 1) Кол-во месяцев до 30-летия идет "месяц за два" (но только
            // после первых 12 месяцев, первые 12 месяцев считаются одинаково, что
            // до 30 лет, что после 30 лет)
            var i=DR.GetAbs()-DS.GetAbs();
            if(i-12 >= 0)
                 i=(i-12)*2+12;
            // else i=0; // не надо ничего обнулять - берем месяцы один к одному!
            // 2) Кол-во месяцев после 30-летия идут один к одному
            i += month-DR.GetAbs();
           
            var DS1=CreateObject("KDate");
            DS1.SetDateII(DS.GetDay(),month-i);
            procent_ot_staga(81,"",1,0,1,EOF,DS1.GetDouble(),d2,proc_sev);// получили % с учетом 30 летия
         }
      }
   }
  double Epsilon = 0.0000001; 
  return proc_sev / 100.;
  */
}
SysAlg7_10_47(&info,&r)
// 7:    /* оплата "по среднему"; БЗ-процент выплаты */
// 47:   /* выходное пособие */
// 10:   /* доплата до среднего;  БЗ-процент выплаты */
{
   struct Struct_Alg Work;
   Get_AlgWithParam(Work,info.ikod);   // 31.01.1995

   // Work.Count_Par - число паpаметpов для кода алгоpитма
   //-- параметр 1 - символ для табеля
   char SimvTab[2];
   SimvTab="Г";
   // Work.Count_Par - число паpаметpов для кода алгоpитма
   //-- параметр 1 - список символов суммирования
   if(Work.Count_Par > 0)
   {
      char Simv = reinterpret_cast_to_string(Work.List_Par[0])[0];
      if ( Simv>' ' )
         SimvTab[0]=Simv;
   }

   // Месяц, с которого нужен учет увеличения
   // ставки в периоде отпуска и "по среднему"
   double DATA_M_SRED=199501.;
   double Eps = 0.000001;
   double r9=0.;

   int FLAG_M_SRED;
   char str[256];
   char t[20];

   if ( strlen(GetCommonCnf("FL_M_SRED","r0alg",str,10)) < 1 )
     FLAG_M_SRED = 1;
   else
     FLAG_M_SRED = atoi(str);
   //--- вспомогательный вывод строки
   r[2]=r[2]-info.h[2];  // учет для случая пересчета
   indstr(scr04,mrasch,windrow,r,t,1);
   r[2]=r[2]+info.h[2];  // учет для случая пересчета

   var Dat=CreateObject("KDate");
   var PoSredn = CreateObject("KCalcSredn");
   if ( PoSredn.InitSredn(info.crow,info.kod_alg,Dat,uprc!=NO_SCREEN?2:0)==ESC ) return code_Break;

   // - запись изменений в табель ЛС перед вызовом tabl_sredn
   s145(colc2,1);

   //--- подсчет среднего за единицу времени
   PoSredn.Calculate(0,2);
   // if (uprc==3) menuras(0); // перевывод меню расчета

   var Nastr = PoSredn.GetNastr();
   double d1m= Nastr.GetMonthSr().GetDouble();
   //--- подсчет РВ и его запрос
   if ( info.kod_alg == 7 )  // 7 -"по среднему"
   {
      int day1=Nastr.GetDateSr().GetDay(),
          day2=Nastr.GetDateEndSr().GetDay();
      zamena_simv_v_tab(simv_nr,SimvTab,calm,day1,day2,info.crow,0);
      if (nkalend==knorm) /* если строка считается по основному графику ЛС */
      {
         if ( Nastr.GetNastr(TIP_RV)==1) r[2]=dney_v_tab(SimvTab,calm,day1,day2);
         else  skoljko(r[2],data,day1,day2,SimvTab,calm,cht);
      }
   }

   if ( info.kod_alg == 10 ) // 10 - доплата до среднего
   {
      if (nkalend==knorm) /* если строка считается по основному графику ЛС */
      {
         if (Nastr.GetNastr(TIP_RV)==1)  r[2]=dney_v_tab(rsimv,calm,info.z1,info.z2);
         else skoljko(r[2],data,info.z1,info.z2,rsimv,calm,cht);
      }
   }
   if ( (info.c=korrv(r,t,0,info.h,flagrow,jf)) != 1 ) return code_ReturnCode;

   // 20.03.95
   //--- подсчет суммы
   double stavka_1d, stavka_p, koef=1.;
   int flag_tarif=0; // тип основной оплаты: 0-оклад, 1-тариф

   if ( FLAG_M_SRED )
   {
      if ( info.kod_alg!=47 && KDateFromD(data).GE(KDateFromD(DATA_M_SRED)) )
      {  // !=47 - не выходное пособие и для месяцев с 01.95

         // - запись изменений в табель ЛС перед вызовом s50
         s145(colc2,1);
         int mvrem=mrasch;
         // ===== учет, что в течение оплаты или доплаты "по среднему"
         //       могла изменяться ставка
         // --- расчет ставки на НАЧАЛО оплаты или доплаты "по среднему"
         s50(absmec(d1m));
         s97(d1m,d1m,stavka_1d,r9,2);
         if ( nabs(r9)>Eps ) flag_tarif=1;
         if (flag_tarif==0) // окладники - ставка в месяц
               stavka_1d=stavka_1d*norm(1);
         else               // тарифники - ставка в час
               s96(d1m,d1m,stavka_1d,3);

         //--- расчет ставки на ПЕРИОД оплаты или доплаты
         //    "по среднему" в месяце mrasch
         s50(mvrem);
         if (flag_tarif==0)
         { // окладники - ставка в месяц
            if (info.kod_alg==10) s97(info.d1,info.d2,stavka_p,r9,4);
            else             s97(info.d1,info.d2,stavka_p,r9,SimvTab[0]);
            stavka_p=stavka_p*norm(1);
         }
         else
         { // тарифники - ставка в час
            if (info.kod_alg==10) s96(info.d1,info.d2,stavka_p,5);
            else             s96(info.d1,info.d2,stavka_p,300+SimvTab[0]);
         }

         // - нахождение коэффициента
         if (nabs(stavka_1d)>Eps)  koef=stavka_p/stavka_1d;
         if (nabs(koef)<1.)        koef=1.;
         // - запрос, нужно ли увеличивать
         if ( uprc!=NO_SCREEN && nabs(r[2])>Eps &&
              nabs(PoSredn.SumSredn())>Eps &&
              nabs(info.bz)>Eps  &&
              nabs(koef)>1.-Eps  /* && !func[4] */ )
               // при func[4]=1 (автомат.расчет) - не запрашивать (???)
         {  //- вспомогательный перевывод строки
            r[2]=r[2]-info.h[2];  // учет для случая пересчета
            indstr(scr04,mrasch,windrow,r,t,1);
            r[2]=r[2]+info.h[2];  // учет для случая пересчета
            //- запрос коэфф-та
            zaprosd(scr04,windrow+1,0,
            "В период оплаты увеличилась ставка. Увеличивать сумму на ###### ? (0-нет)",
            6,koef,koef,-summax,summax,13);
            if (nabs(koef)<Eps) koef=1.;
         }
      }
   }

   // - расчет суммы
   info.n1=r[2]*PoSredn.SumSredn()*koef*info.bz/100.;

   // 10 - доплата до среднего
   if (info.kod_alg==10)
   {
      s1001("н",info.d1,info.d2,0,ST_POSREDN,r9,3+Nastr.GetNastr(TIP_RV));
      if ( (info.n1-=r9) < 0. ) info.n1=0.;
   }
   if(FL_V_ALG&&uprc!=NO_SCREEN)
   {
     infolist.add_record("Рабочее время",r[2]);
     infolist.add_record("Сред. за ед.времени",PoSredn.SumSredn());
     infolist.add_record("Коэффициент",koef);
     infolist.add_record("Базовое значение",info.bz);
     infolist.add_record("Результат",info.n1);
   }
   return code_Break;
}

SysAlg98_99(&info,&r)
{
   // при изменениях измените и в s100ras_TFunc()
   var StrSimv;     // символы для выборки
   if(info.kod_alg == 99)
      StrSimv="1"; // ФЗП   // 08.11.95
   else
      StrSimv="2"; // ФМП   // 08.11.95
   double r9;
   s1001simv(StrSimv,"н",info.d1,info.d2,0,ST_RK,r9,2,0);
   if ( nabs(info.bz)<0.000001 )
      info.bz = DefineRk(data+countday/100.,0)*100.;
   info.n1=r9*info.bz/100.;
   if(FL_V_ALG && uprc != NO_SCREEN)
   {
      infolist.add_record("Столбец для выборки",ST_RK+1);
      infolist.add_record("Символ выборки",StrSimv);
      infolist.add_record("Выборка",r9);
      infolist.add_record("Процент",info.bz);
      infolist.add_record("Результат",info.n1);
   }
   return code_MDefault;
}

SysAlg178(&info,&r)
{
   int NumSet = 78; // номер сетки
   struct Struct_Alg Work;
   Get_AlgWithParam(Work,info.ikod);   // 31.01.1995
   // Work.Count_Par - число паpаметpов для кода алгоpитма
   //-- параметр 1 - список символов суммирования
   if(Work.Count_Par > 0)
   {
      int i = atoi(reinterpret_cast_to_string(Work.List_Par[0]));
      if ( i>0 ) NumSet = i;
   }
   // Выслуга лет  // 17.04.97
   //procent_ot_staga(78,"datavys",1,0,31,info.crow,d1,d2,&n3); //по-старому
   double n3;
   procent_ot_staga(NumSet,"datavys",1,0,1,info.crow,info.d1,info.d2,n3);
   // n3 - % от стажа
   double n6;
   s98(0,n6);
   r[2]=n6*norm(1); // r[2] - отработанных дней
   char t[20];
   if((info.c=korrv(r,t,0,info.h,flagrow,jf)) != 1)
      return code_ReturnCode;
   double n2;
   double n5;
   s97(info.d1,info.d2,n2,n5,1);  // n2 - дневная ставка
   info.n1=r[2]*n2*n3/100.;
   if(FL_V_ALG && uprc != NO_SCREEN)
   {
      infolist.add_record("ФРВ дни",r[2]);
      infolist.add_record("Ставка",n2);
      infolist.add_record("Процент выслуги",n3);
      infolist.add_record("Результат",info.n1);
   }
   return code_Break;
}

SysAlg184(&info,&r)
{
   // Полевые
   var pcW;
   struct Struct_Alg Work;
   Get_AlgWithParam(Work,info.ikod);   // 31.01.1995
   // Work.Count_Par - число паpаметpов для кода алгоpитма
   //-- параметр 1 - список символов суммирования
   if(Work.Count_Par > 0)
      pcW=Work.List_Par[0];
   else
      pcW=reinterpret_cast_to_long(rsimv);
   r[2]=dney_v_tab(reinterpret_cast_to_string(pcW),calm,info.z1,info.z2);
   char t[20];
   if((info.c=korrv(r,t,0,info.h,flagrow,jf)) != 1)
      return code_ReturnCode;
   info.n1=r[2]*info.bz;
   if(FL_V_ALG && uprc != NO_SCREEN)
   {
      infolist.add_record("Символы табеля",reinterpret_cast_to_string(pcW));
      infolist.add_record("Число дней",r[2]);
      infolist.add_record("Сумма за день",info.bz);
      infolist.add_record("Результат",info.n1);
   }
   return code_Break;
}

SysAlg185(&info,&r)
{
   // питание
   var n3=dney_v_tab("НПС",calm,info.z1,info.z2);
   r[2]=norm(1)-n3;
   char t[20];
   if((info.c=korrv(r,t,0,info.h,flagrow,jf)) != 1)
      return code_ReturnCode;
   info.n1=r[2]*info.bz/norm(1);
   if(FL_V_ALG && uprc != NO_SCREEN)
   {
      infolist.add_record("Норма",norm(1));
      infolist.add_record("Прогулы, Справки, Нераб.",n3);
      infolist.add_record("Рабочие дни",r[2]);
      infolist.add_record("На питание",info.bz);
      infolist.add_record("Результат",info.n1);
   }
   return code_Break;
}

SysAlg215(&info,&r)
{
   // СУММА=БЗ
   if(info.n1 == 0.)
      info.n1=info.bz;
   return code_MDefault;
}

SysAlg218(&info,&r)
{
   // алименты
   // 06.10.1999
   struct Struct_Alg Work;
   int TypeCalc = 0;
   Get_AlgWithParam(Work,info.ikod);  
   // Work.Count_Par - число паpаметpов для кода алгоpитма
   //-- параметр 1 - тип расчета ( по умолчанию = 0, по месяцу принадлежности, 1 - по месяцу начисления)
   if(Work.Count_Par > 0)
      TypeCalc = atoi(reinterpret_cast_to_string(Work.List_Par[0]));
   double n3=0.;
   double n4=0.;
   if ( TypeCalc==1 || TypeCalc==2 )
   {
      toMatrLS();
      var CurProp = GetCurPropCountLS();
      if ( TypeCalc==1 )
      {
         //--- выборка начислений за текущий месяц
         info.n1 = s1001simv_mvProp("1",info.d1,info.d2,mrasch,ST_ALIMENT,2, CL_EXACT | CL_MV | CL_NACH, CurProp);
         //--- выборка удержаний за текущий месяц
         n3 = s1001simv_mvProp("1",info.d1,info.d2,mrasch,ST_ALIMENT,2, CL_EXACT | CL_MV | CL_UD, CurProp);
      }
      else
      {
         //--- выборка начислений за текущий месяц
         info.n1 = CollectSummPropSimv("1", ST_ALIMENT, 0, mrasch, CL_MV | CL_COL | CL_NACH, CurProp);
         //--- выборка удержаний за текущий месяц
         n3 = CollectSummPropSimv("1", ST_ALIMENT, 0, mrasch, CL_MV | CL_COL | CL_UD, CurProp);
      }

   }
   else
   {
      //--- выборка начислений за текущий месяц
      s1001simv("1","н",info.d1,info.d2,0,ST_ALIMENT,info.n1,2,0);  // 08.11.95
      //--- выборка удержаний за текущий месяц
      s1001simv("1","у",info.d1,info.d2,0,ST_ALIMENT,n3,2,0);
      //--- выборка удержаний за прошлый месяц, если они назначены
      s1001simv("2","у",info.d1,info.d2,-1,ST_ALIMENT,n4,2,0);
   }
   var t_nu=info.n1-n3-n4;
   info.n1=info.n1-n3-n4;
   info.n1=info.n1*info.bz/100.;
   if(FL_V_ALG && uprc != NO_SCREEN)
   {
      infolist.add_record("Столбец Т/В",ST_ALIMENT+1);
      infolist.add_record("Начисл. - Удержержано",t_nu);
      infolist.add_record("Проц. алиментов",info.bz);
      infolist.add_record("Результат",info.n1);
   }
   var simv=poiskprch(info.ikod);
   if(simv == 4)
   {
   char str[256];
   char str1[256];
      Rkv_from(GetCode(info.crow),"долг",str1,str);
      // Долг по алиментам уменьшается при переходе
      // в новый месяц на сумму, вычисленную ниже
   var r9=atof(str);
      if(r9 && r9 < info.n1)
      {
      // Долг по алиментам ведется и
      // долг по алиментам  < суммы алиментов
      char str1[80];
            sprintf(str1,"Долг по алиментам %-8.2f",r9);
            if(uprc != NO_SCREEN)
            vwriteat(scr04,windrow+1,0,str1);
            info.n1=r9;
      }
   }
   return code_MDefault;
}

SysAlg225(&info,&r)
{
   // профс.взносы
   double r9;
   s1001("н",info.d1,info.d2,0,ST_PROFS,r9,2);  // 08.11.95
   info.n1=static_cast_to_long(r9)*0.01;
   if(FL_V_ALG && uprc != NO_SCREEN)
   {
      infolist.add_record("Столбец т/в",ST_PROFS+1);
      infolist.add_record("Выборка",r9);
      infolist.add_record("Процент",1.);
      infolist.add_record("Результат",info.n1);
   }
   return code_MDefault;
}

SysAlg228(&info,&r)
{
   // перечисление части, если есть (на сб/кассу, по почте);
   //  БЗ - месячная сумма перечисления
   if(info.n1 == 0.)
   {
      toMatrLS();
      var n7=CollectSummProp(
         'a',0,mrasch,
         CL_MV|CL_COL|
         CL_REAL|CL_SOURCE,
         GetCurPropCountLS()
      );
      var n6 = CollectSummProp(info.kod,mrasch,mrasch,
               CL_M|CL_MV|CL_REAL|CL_SOURCE|CL_EXACT,GetCurPropCountLS());
      n7 += n6;
      //n7=sum[1]-sum[5];   /* sum[1]-всего начислено */
      // sum[5]-всего удержано
      if(n7+0.001-info.bz < 0.)
         info.n1=0.;
      else
         info.n1=info.bz;
   }
   return code_MDefault;
}

SysAlg255_256(&info,&r)
{
   /* почтовый сбор - kod_alg==255 */
   /* возврат почтового сбора - kod_alg==256*/

   if ( info.kod_alg=255 && (info.b3==B3_OTPUSK || info.b3==B3_UVL || mrasch!=mtek) )
      return code_MDefault;
   /* БЗ - внешний код вида, на который накручивается сбор*/
   /* рассчитывается только при "Расчете за месяц" */
   /* для текущего месяца */
   {
      /* Следующие переменные предназначены для настройки
         расчета вида:
      */
      int reg=2; /* режим округления суммы для почтового сбора:
                  0 - округлять, 1 - отбрасывать, 2 - дополнять*/
      double _do=1.; /* сумма для почтового сбора округляется
                  (отбрасывается, дополняется)
                  до указанной в _do в рублях величины,
                  например, _do=1000.; - до тысячи рублей. */
      double dop_sum=0.; /* дополнительная сумма, прибавляемая
                  к почтовому сбору вне зависимости от
                  начисленной суммы почтового сбора */

      double oldsumm=0.;
      char str_proc[256],str_comm[256];
      int setka=0;

      double kod_rkv=info.kod;
                              // вычисляем внутренний код
      double int_kod=Extern_To_InternE(info.bz);
      if ( int_kod<0. ) return code_MDefault;

      toMatrLS();

      // для случая возврата п/сбора вычисляем сумму по нему
      // и его БЗ
      if ( info.kod_alg == 256 )
      {
         kod_rkv = int_kod;
         oldsumm = CollectSummProp(int_kod,0,mrasch,
            CL_MV | CL_EXACT | CL_SOURCE, GetCurPropCountLS());
         poiskbz(0,int_kod,1," ",int_kod);
         int_kod=Extern_To_InternE(int_kod);
      }

      struct Struct_Alg Work;
      Get_AlgWithParam(Work,kod_rkv+0.000001);   // 14.01.98
      // Work.Count_Par - число паpаметpов для кода алгоpитма
      //-- параметр 1 - величина до которой округляется (отбрасывается,
      // дополняется) сумма для почтового сбора (по умолчанию до 1 руб.)
      if (Work.Count_Par>0)
      {
         double i = atof(reinterpret_cast_to_string(Work.List_Par[0]));
         if ( i>=0 ) _do=i;
      }

      var Dat = CreateObject("KDate");
      Dat.SetDate("01.01.1998");
      if ( mrasch<Dat.GetAbs() ) _do = 1000.;

      //-- параметр 2 - режим округления суммы для почтового сбора
      //   (по умолчанию - дополнять до _do рублей)
      if (Work.Count_Par>1)
      {
         int i=atoi(reinterpret_cast_to_string(Work.List_Par[1]));
         if (0<=i && i<=2 ) reg = i;
      }
      //-- параметр 3 - дополнительная сумма к почтовому сбору
      //   (по умолчанию берется 0)
      if (Work.Count_Par>2)
      {
         double i=atof(reinterpret_cast_to_string(Work.List_Par[2]));
         if (i>=0) dop_sum=i;
      }

      //-- параметр 4 - минимальная сумма почтового сбора, определяет
      //   сумму меньше которой почтовый сбор быть не может
      double min_sum=0.; /* минимальная сумма почтового сбора */
      if (Work.Count_Par>3)
         min_sum=atof(reinterpret_cast_to_string(Work.List_Par[3]));

      double sum_mes=0.,sum_for=0.;
      info.n1=0.;

                              // читаем доп.реквизиты
      Rkv_from(kod_rkv,"процент", str_comm,str_proc);
      double proc=atof(str_proc);
                              // вычисляем процент по сетке
      Rkv_from(kod_rkv,"сетка", str_comm, str_proc);
      setka=atoi(str_proc);

      // Если нет сетки и установлен нулевой процент, то берем сетку по умолчанию
      if (setka == 0 && nabs(proc)<0.0001) setka = 84;

      Rkv_from(int_kod,"ном_спис",str_comm,str_proc);
      int numsp = atoi(str_proc);
      Rkv_from(int_kod,"кому",str_comm,str_proc);
      string Who=str_proc;

                              // вычисляем сумму для обложения
      for (int idxrow=0; idxrow<countkod; ++idxrow)
      {
         int iCod=GetIntegerCode(idxrow);
         if ( (nabs(iCod-int_kod)>0.00000001 && Sim_For_Intern_Cod(iCod,ST_PRCH) != '4') || GetEndDate(idxrow)<0.00001 )
            continue;

         double kod = GetCode(idxrow);

         // Если указан номер списка, то собираем информацию по другим строчкам с таким же номером
         if ( nabs(kod-int_kod)>0.00000001 )
         {
            if ( !numsp ) continue;
            Rkv_from(kod,"ном_спис",str_comm,str_proc);
            int num = atoi(str_proc);
            if ( numsp!=num ) continue;
            Rkv_from(kod,"кому",str_comm,str_proc);
            if ( Str_Cmpi(str_proc,Who," .,;") ) continue;
         }

         if ( mrasch == mtek )
         {
            for ( int mes=-P2MES;mes<=B2MES; mes++ )
               sumvid("=т",kod,mes,sum_mes),
               sum_for+=sum_mes;
         }
         else
         {
            sum_for += CollectSummProp(kod,0,mrasch,
               CL_MV | CL_EXACT | CL_SOURCE, GetCurPropCountLS());
         }
      }                        
                              // почтовый сбор на отрицательную
                              // сумму не начисляется
      if ( sum_for<0. ) sum_for = 0.;

                              // округление суммы для обложения
      round2(sum_for,reg,_do,sum_for);

      // проверим, есть ли регрессивная сетка с нужным номером
      // Вообще же регрессивная сетка, "зашитая" в алгоритм
      // вступила в действие по Свердловской области с 07.2002
      int NumSetP = GetNumFileSetP(setka,-1, mrasch, 0);

                              // учет процента по сетке
      int FlagRegress=0;
      // с 01.07.2002 по регрессивной шкале
      var DatRegr = CreateObject("KDate");
      DatRegr.SetDate("01.07.2002");
      if ( setka > 0 && NumSetP==EOF )
      {
         double proc_value=0.;
         int CodOrg = GetOrgForPodr(GetPodrOfCod(info.kod));
         if ( Value_Procent_SetkiO(setka,CodOrg,sum_for,data,proc_value) >=0 )
            proc=proc_value;
         else if ( mrasch>=DatRegr.GetAbs() ) 
            FlagRegress=1;
      }
      else if ( (proc<=0.001 && mrasch>=DatRegr.GetAbs()) || NumSetP!=EOF )
      {  // если не задана ни сетка ни процент или есть номер регрессивной сетки
         FlagRegress=1;
      }
                              // собственно расчет
      if ( !FlagRegress )
         info.n1=sum_for*proc*0.01;
      else if (sum_for>0.001)
      {
         if ( NumSetP!=EOF )
            info.n1=CalculatedSumSetkaP(sum_for, NumSetP, proc, 2);
         else
         {
            if (FL_V_ALG&&uprc!=NO_SCREEN)
               infolist.add_record("Нет регрес.сетки","Проверьте код сетки");
            info.n1=0.;
            /*
            if ( sum_for+0.001>50000.00 )
               info.n1 = 1810.00 + (sum_for-50000.00)*0.02;
            else if ( sum_for+0.001>25000.00 )
               info.n1 = 1060.00 + (sum_for-25000.00)*0.03;
            else if ( sum_for+0.001>6000.00 )
               info.n1 =  300.00 + (sum_for- 6000.00)*0.04;
            else if ( sum_for+0.001>200.00 )
               info.n1 =  sum_for*0.05;
            else info.n1 = 10.;
            */
         }
      } 

      // дополнительная сумма
      info.n1+=dop_sum;

      if (Work.Count_Par>3 && sum_for>0.001 && info.n1<min_sum)
         info.n1=min_sum;
                              // учет вида возврата
      if ( info.kod_alg == 256 )
      {
         info.n1-=oldsumm;
      }

      if(FL_V_ALG&&uprc!=NO_SCREEN)
      {
         infolist.add_record("Код для п/сбора",info.bz);
         infolist.add_record("Режим округления",reg);
         infolist.add_record("Округлять до:",_do);
         infolist.add_record("Сумма перечисления",sum_for);
         infolist.add_record("Процент",proc);
         infolist.add_record((FlagRegress && NumSetP!=EOF)?"Номер регр.сетки":"Номер сетки",setka);
         infolist.add_record("Доп. сумма",dop_sum);
         if (Work.Count_Par>3)
            infolist.add_record("Мин. сумма",min_sum);
         infolist.add_record("Результат",info.n1);
      }
   }
   return code_MDefault;
}

SysAlg250(&info,&r)
{
   /* перечисление остатка (по почте, в сберкассу); */
   /* БЗ - до скольки отбрасывать результат для перевода */
   /*      (0 - с копейками) */
   if ( info.b3==B3_OTPUSK || info.b3==B3_UVL || mrasch!=mtek)
   {
      info.kod_alg = 1000+'0';
      return code_ReturnCode;
   }
   /* рассчитывается только при "Расчете за месяц" */
   /* для текущего месяца */
   //r9=sum[1]-sum[5];  /* Остаток = Начислено - Удержано */
   toMatrLS();
   double r9 = CollectSummProp('a',0,0,CL_MTEK|CL_COL|CL_REAL|CL_SOURCE,GetCurPropCountLS());
   double n6 = CollectSummProp(info.kod,mtek,0,CL_M|CL_MTEK|CL_REAL|CL_SOURCE|CL_EXACT,GetCurPropCountLS());
   r9 += n6;
   if ( r9>0.)
   { 
      info.n1=r9;
      round2(info.n1,1,info.bz,info.n1); 
   }
   else info.n1=0.;
   return code_MDefault;
}

GetListBZobsolete(ikod,dateB,dateE,bz,&pmap)
//// ikod-код вида,dateB-дата начала,dateE-дата конца,bz-базовое значение,pmap-мэп
/// В отличие от функции bz_kod - получаем СПИСОК значений, действующих
//  в периоде [dateB,dateE] (если кончено бз закодировано и берется из сетки)
////////////////
{
   // допущение!!! Если значение bz_kod на дату начала периода и на дату конца периода окажется
   // одним и тем же, предполагаем, что оно и не менялось! И вообще отрабатываем в предположении,
   // что значение на дату конца в указанном периоде не повторяется
   var Date = CreateObject("KDate");

   double Epsilon = 0.0000001;
   double rzB=0.,rzE=0.;
   bz_kod(ikod,dateB,bz,rzB);
   bz_kod(ikod,dateE,bz,rzE);
   Date.SetDateD(dateB);
   Date.ImproveDay();
   char key[256];sprintf(key,"%.2f",Date.GetDouble());
   char value[256];sprintf(value,"%.2f",rzB);
   pmap.Add(static_cast_to_string(key),static_cast_to_string(value));
   double rz=rzB;
   while ( nabs(rzB-rzE)>Epsilon )
   {
      while(nabs(rzB-rz)<Epsilon)
        bz_kod(ikod,Date.Inc(),bz,rz);
      rzB=rz;
      sprintf(key,"%.2f",Date.GetDouble());
      sprintf(value,"%.2f",rzB);
      pmap.Add(static_cast_to_string(key),static_cast_to_string(value));
   }
   return 0;
}

GetNDFLInfo(Cod)
{
   int absMes = mrasch;
   char Arg[256],Str[256];
   sprintf(Arg,"%d,1,%d,%d,Источник выплаты,*,Н",Cod,mrasch-mtek,mrasch-mtek);
   double rez=atof(R_Tax(Arg,Str,14,2));
   if ( mrasch!=absMes )
      s50(absMes);
   return rez;
}

GetDiscount311(m1,m2)
//получаем сумму по 311 вычету за указанный период 
{  
   int absMes = mrasch;
   char Arg[256],Str[256];
   sprintf(Arg,"%d,1,%d,%d,Источник выплаты,*,Н",112,m1,m2);
   string s=R_Tax(Arg,Str,255,0);//получили  cписок вида "код вычета1,сумма вычета1;код вычета2,сумма вычета2;..."
   if ( mrasch!=absMes )
      s50(absMes);
   var Param = CreateObject("ParamFuncRW");
   Param.IInitial(static_cast_to_string(s),";",99);//разбили список  на элементы "код вычета,сумма вычета"
   int CountParam = Param.Count();
   for(int i=0;i<CountParam;i++)
   {
     string v=static_cast_to_string(Param.Get(i));      //получаем из списка i-е значение "код вычета(i),сумма вычета(i)"
     var Param2 = CreateObject("ParamFuncRW");
     Param2.IInitial(static_cast_to_string(v),",",2); //получаем код вычета и сумму вычета
     int codVich=atoi(Param2.Get(0));
     if (codVich!=311) continue; //перебираем элементы, пока не найдем 311 вычет
     return atof(Param2.Get(1)); //вернули сумму вычета
   }
   return 0;    //если 311 вычет не нашли - возвращаем 0
}

SysAlg247 ( &info, &r )
{
   toMatrLS();
   char Sim[2];Sim[1]=0;
   Sim[0]=Sim_For_Intern_Cod(info.kod,1018-1);  //определяем символ в 18 столбце спец.ТВХ
   // Получим информацию о доходе с учетом вычетов
   double NDFLBase = 0.;
   if (Sim=="*") //расчет основного источника
   {
      var ts = CreateObject("TempCommonSrc");
      ts.TempCommonSrcInitial(CMN_SRC_COUNT_LS);
      var Src=CreateObject("APropBE");
      SetCommonProp(CMN_SRC_COUNT_LS,Src);
      NDFLBase = GetNDFLInfo(45); // доход за минусом всех вычетов
      // Важно!!! Мы учли информацию о доходе в том числе и с учетом вычета по недвижимости, что стоял
      // в рассчитываемом виде до этого, поэтому добавим эту сумму
      NDFLBase += CashSumm(0,info.kod,mrasch,0,32,CL_EXACT|CL_M,0);
   }
   else  //расчет не основного источника
   {
      //полная сумма для обложения  с копейками+Общая сумма вычетов (фактически предоставленная сумма)
      NDFLBase=GetNDFLInfo(4)+GetNDFLInfo(108);
   }

   double sumVychIspolz = 0.;
   if ( mcal>1 )
   {
      //вычет нам нужен по всем источникам
      var ts = CreateObject("TempCommonSrc");
      ts.TempCommonSrcInitial(CMN_SRC_COUNT_LS);
      var Src=CreateObject("APropBE");
      SetCommonProp(CMN_SRC_COUNT_LS,Src);
      sumVychIspolz = GetDiscount311(mrasch-mtek-mcal+1,mrasch-mtek-1);
   }
   if (Sim=="*") //нужно учесть предоставленные вычеты по остальным источникам
   {
       sumVychIspolz+= GetDiscount311(mrasch-mtek,mrasch-mtek); //добавляем сумму по 311 вычету за тек. месяц (все источники)
       sumVychIspolz-= CashSumm(0,info.kod,mrasch,0,32,CL_EXACT|CL_M,0);//убираем сумму по текущему виду
   }
   double sumVychMes = min(NDFLBase,info.bz-sumVychIspolz); // Cумма 
   // Если полученный вычет меньше нуля (были пересчеты на минус или нет дохода, но есть стандартные вычеты)
   // в этом случае мы можем отрицательную сумму взять не больше, чем предодставили вычетов в предыдущих месяцах
   if ( sumVychMes<0. )
      if ( sumVychIspolz>-0.0001 )
         sumVychMes = max(sumVychMes,-sumVychIspolz);
      else
         sumVychMes = 0.;
   info.n1 = sumVychMes;
   if(FL_V_ALG && uprc != NO_SCREEN) 
   {
      infolist.add_record("Облагаемая база НДФЛ за месяц", NDFLBase);
      infolist.add_record("Использовано вычета ранее", sumVychIspolz);
      infolist.add_record("Вычет за месяц", info.n1);
   }

   return code_Break;
}

SysAlg897 ( &info, &r ) /* Доплата до МРОТ */
{    
   double Epsilon = 0.00001;
   struct Struct_Alg Work;
   //значения параметров по умолчанию: 19,86,0,0,0,0 
   Get_AlgWithParamEx(Work, info.ikod, "19,86,0,0,0,0,4");
   //-- параметр 1 - столбец таблицы входимости (по умолчанию 25) 
   int stolbec =19;
   int param=atoi(reinterpret_cast_to_string(Work.List_Par[0]));
   if ( param>0 && param<=99 ) stolbec=param;

   //-- параметр 2 - Номер сетки для МРОТ (по умолчанию 86) 
   int numberSet=86;
   param=atoi(reinterpret_cast_to_string(Work.List_Par[1]));
   if ( param>0 ) numberSet = param;

   //-- параметр 3 - Номер строки в сетке (по умолчанию 0) 
   int rowSet=0;
   param=atoi(reinterpret_cast_to_string(Work.List_Par[2]));
   if ( param > 0 && param <= 999) rowSet=param;

   //-- параметр 4 - Тип ФРВ:
   // 0 - в часах (по умолчанию)
   // 1 - в днях
   bool bHours= atoi(reinterpret_cast_to_string(Work.List_Par[3]))==0;
   int idxNorm = bHours?2:1;

   //-- параметр 5 - Увеличить МРОТ на РК и Северные (постановление КС от 07.12.2017 № 38-П)
   // 0 - доплата до "чистого МРОТ" (по умолчанию)
   // 1 - доплата до "МРОТ*(РК + Северные)"
   bool bUseRk=atoi(reinterpret_cast_to_string(Work.List_Par[4]))!=0;

   //-- параметр 6 - Особенности расчета доплаты (флаги):
   // 0x01 - не рассчитывать доплату, если ФРВ/НРВ<1
   // 0x02 - Ограничить ФРВ/НРВ единицей
   // 0x04 - вычислять ФРВ/НРВ через s98()
   // 0x08 - не заполнять табель (заводят вид "навсегда" и не хотят чтобы у уволенных делался расчет)
   // 0x10 - не заполнять РВ в виде (мешается в сводах и выборках)
   int Flag=atoi(reinterpret_cast_to_string(Work.List_Par[5]));
   bool  calcOnlyFullMonth=(Flag & 0x01)!=0;
   bool  limitFrv         =(Flag & 0x02)!=0;   
   bool  useS98           =(Flag & 0x04)!=0; 
   bool  fillTabel        =(Flag & 0x08)==0; 
   bool  fillRv           =(Flag & 0x10)==0;

   //-- параметр 7 - Тип неполноты для выборки сумм:
   int tipnep=atoi(reinterpret_cast_to_string(Work.List_Par[6]));
   double frv_nrv=1.;
   if(fillTabel)		
      worktime(info.crow,info.b3,0); /* заполнение рабоч.дней в табеле */
   //ФРВ
   if (useS98)
      s98(0,frv_nrv);
   else
   {
      if (nkalend==knorm) 
      {
         if (!bHours) r[2]=dney_v_tab(rsimv,calm,info.z1,info.z2);
         else skoljko(r[2],data,info.z1,info.z2,rsimv,calm,cht);
      }
      char t[20];
      if(fillRv && (info.c=korrv(r,t,0,info.h,flagrow,jf)) != 1)  return code_ReturnCode;
      frv_nrv=r[2]/norm(idxNorm);
   }
   // До 04.2018 было окргуление коэффициента. Убрали его только с 04.2018
   // чтобы у людей не полез пересчет за прошлые месяцы на копейки.
   if ( mrasch<364 ) roundd(frv_nrv, 2, frv_nrv);
   if ( limitFrv && frv_nrv>1+Epsilon ) frv_nrv=1.;   
		 
   //сумма выборки
   double summ=0.;
   s1001("н",info.d1,info.d2,0,stolbec-1,summ,tipnep);
   //сумма выборки не может быть отрицательной
   if(summ<-Epsilon) summ=0.;		

   // Коэффициент занятости из КЧ
   double k_employ=1.;
   char strTemp[11];
   var mraschLastDay = KDateFromInt_WithDay(countday,mrasch);
   var rowLastDay= KDateFromD(info.d2);
   //дата окончания строки меньше даты окончания mrasch
   var D=(rowLastDay.IsValid()&&rowLastDay.LE(mraschLastDay))?
          rowLastDay:
          mraschLastDay;
   GetKchValue("k_employ",strTemp,10,D);
   if (Str_Cmp(strTemp," "," ")!=0) k_employ=atof(strTemp);
   //double k_employ=GetKoefEmployment(D,0,0x1);
   
   //"чистый" МРОТ
   double mrot=0.;
   int CodOrg = GetOrgForPodr(GetPodrOfCod(info.kod));
   if (Value_For_Table_CodO(numberSet, CodOrg, rowSet, data, mrot) == EOF) mrot=info.bz; 


   // Определяемся с районными и северными надбавками
   double  rk_sev = 0.;
   if( bUseRk )
   {
      rk_sev= DefineRkFull(data+countday/100.,false);
      //2018.03.20 - процент северных определяем только в том случае, если в ЛС нашли действующую строку вида "северной надбавки"
      //вид является "северной надбавкой", если у его алгоритм один из: "96,97,186,187" 
      if (FindSevNu(mrasch)) rk_sev += DefineSev(mrasch,0.,0.);
   }

   //МРОТ для расчета
   double mrot_frv_nrv=mrot*k_employ*frv_nrv*(1 + rk_sev);
   roundd(mrot_frv_nrv, 2, mrot_frv_nrv);

   info.n1 = ( summ>mrot_frv_nrv || 
               calcOnlyFullMonth && frv_nrv+Epsilon<1. ) ? 0.
                                                         : mrot_frv_nrv-summ;
   if( FL_V_ALG && uprc!=NO_SCREEN )
   {
      if( !useS98 )
      {
         infolist.add_record("ФРВ",r[2]);
         infolist.add_record("НРВ",norm(idxNorm));
      }
      if ( limitFrv )
         infolist.add_record("ФРВ/НРВ не больше 1", "да");
      infolist.add_record("ФРВ/НРВ",frv_nrv);
      infolist.add_record("Столбец выборки",stolbec);
      infolist.add_record("Сумма выборки",summ);
      infolist.add_record("Тип неполноты",tipnep);
      infolist.add_record("-----------------------","------------------------------");
      infolist.add_record("Номер сетки для МРОТ",numberSet);
      infolist.add_record("Номер строки в сетке",rowSet);
      infolist.add_record("МРОТ",mrot);
      infolist.add_record("Коэфф.занятости",k_employ);
		if (bUseRk) infolist.add_record("% РК и Северных", rk_sev*100.);
      infolist.add_record("МРОТ для расчета",mrot_frv_nrv);
      infolist.add_record("-----------------------","------------------------------");
      if (calcOnlyFullMonth && frv_nrv+Epsilon<1. )
      	infolist.add_record("Доплата не нужна", "ФРВ/НРВ<1");
      infolist.add_record("Доплата",info.n1);
   } 
   if (!fillRv) r[2] = 0;

   return code_Break;
}

FindSevNu(month)
{
   double dmonth = KDateFromInt(month).GetDouble();
	//коды алгоритмов, которые используются для расчета "северных"
	var sevNuList;
   int cnt = CodeAlgToListNUSafeArray("96,97,186,187", ",",sevNuList);
	for (int i = 0; i < cnt; ++i)
	{
		int code = sevNuList[i]; //внутренний код вида
		if (poisk_row(code,0, dmonth,0) == EOF) //вид с вн.кодом code не нашли, переходим к следующему
			continue;
		
		return true;//нашли строку вида с кодом code, действующую в month
	}
	return false;
}

SysAlg121 ( &info, &r ) // оплата простоев
// алгоритм имеет 5 параметров
//  1: РВ в днях - 1; РВ в часах - 2
//  2: РВ задается - 0; РВ берется из табеля по символам 'В' для простоя по 
//     вине работодателя или 'Е' для простоя не по вине работодателя если
//     5-м параметром не определен другой символ
//  3: считать по тарифной ставке - 0; по среднему заработку - 1
//  4: коэффициент расчета простоя (не может быть меньше 2/3)
//  5: символ для обозначения дня простоя в табеле работника
{    
   double Epsilon = 0.00001;
   int tip_rv=1;  // 1 - РВ в днях; 2 - РВ в часах
   int where_rv=1;   // 0 - РВ задается; 1 - РВ из табеля по символам 'В'
   int tip_ras=1;  // 0- считать по тарифной ставке; 1- по среднему заработку
   double koef_prost=2./3.; // коэффициент расчета простоя
   char SimvTab[2]; SimvTab[0]=SimvTab[1]='\0';

   struct Struct_Alg Work;
   //значения параметров по умолчанию: 
   Get_AlgWithParamEx(Work, info.ikod, "1,1,1,0,0");

   // Work.Count_Par - число паpаметpов для кода алгоpитма
   //-- параметр 1 - РВ в днях - 0; РВ в часах - 1 
   int param=atoi(reinterpret_cast_to_string(Work.List_Par[0]));
   if ( param>=1 && param<=2 ) tip_rv=param;

   //-- параметр 2 - РВ задается - 0 или 
   //                РВ берется из табеля по симвалам 'В'- 1; по умолчанию - 0
   param = atoi(reinterpret_cast_to_string(Work.List_Par[1]));
   if (param >= 0 && param <= 1) where_rv = param;

   //-- параметр 3 - простой считать по тарифной ставке - 0; 
   //                по среднему заработку - 1
   param = atoi(reinterpret_cast_to_string(Work.List_Par[2]));
   if (param >= 0 && param <= 1) tip_ras = param;

   //-- параметр 4 - коэффициент расчета простоя (не менее 2/3)
   double paramf = atof(reinterpret_cast_to_string(Work.List_Par[3]));
   if ( paramf >= Epsilon ) koef_prost = paramf;

   //-- параметр 5 - символ для табеля
   //   по умолчанию 'В' - простой по вине работодателя
   //                'Е' - простой не по вине работодателя
   SimvTab[0]= (tip_ras)?'В':'Е';  
   if ( Work.List_Par[4] && GetCharFromStr(reinterpret_cast_to_string(Work.List_Par[4]),0)>'0' )
   {
      char Simv = GetCharFromStr(reinterpret_cast_to_string(Work.List_Par[4]),0);
      if ( Simv>' ' ) SimvTab[0] = Simv;
   }

   //--- вспомогательный вывод строки
   r[2]=r[2]-info.h[2];  // учет для случая пересчета
   char t[20];
   indstr(scr04,mrasch,windrow,r,t,1);
   r[2]=r[2]+info.h[2];  // учет для случая пересчета
 
   if (where_rv==1 && uprc!=NO_SCREEN)
   {
      // Табель рассматриваем только той строки, что рассчитываем
      var ts = CreateObject("TempCommonSrc");
      ts.TempCommonSrcInitial(CMN_SRC_INT_LS);
      SetCommonProp(CMN_SRC_INT_LS,GetPropOfCod(info.kod));
      corcal(mrasch,3);
   }

   int day1 = info.z1, day2 = info.z2;
   double base_sum = 0.;

   if (tip_ras) // считаем по среднему заработку
   {  
      var Dat=CreateObject("KDate");
      var PoSredn = CreateObject("KCalcSredn");
      if ( PoSredn.InitSredn(info.crow,info.kod_alg,Dat,uprc!=NO_SCREEN?2:0)==ESC ) return code_Break;
      var Nastr = PoSredn.GetNastr();
      Nastr.SetNastr(TIP_RV,tip_rv);
      
      // - запись изменений в табель ЛС перед вызовом tabl_sredn
      s145(colc2,1);
    
      //--- подсчет среднего за единицу времени
      PoSredn.Calculate(0,2);
      // if (uprc==3) menuras(0); // перевывод меню расчета
  
      // Дни за которые простой считаем + базовая сумма от которой делаем расчет
      day1 = Nastr.GetDateSr().GetDay(),
      day2 = Nastr.GetDateEndSr().GetDay();
      base_sum = PoSredn.SumSredn();
   }
   else // считаем по тарифной ставке
   {  
      double stavka=0.,r9=0.;

      if (tip_rv==1) // окладники - ставка в месяц
         s97(info.d1,info.d2,stavka,r9,0);
      else            // тарифники - ставка в час
         s96(info.d1,info.d2,stavka,3);

      if (nabs(stavka)<Epsilon)
      {
         double data=((mrasch-1)/12+1988)*100.+((mrasch%12)?mrasch%12:12);
         Value_For_Table_Cod(86,CodOrg,0,data,stavka);
         stavka=stavka/norm(tip_rv);
      }
    
      day1 = info.z1;
      day2 = info.z2;
      base_sum = stavka;
   }

   if (nkalend==knorm && where_rv==1) /* если строка считается по основному графику ЛС */
   {
       if (tip_rv==1) r[2]=dney_v_tab(SimvTab,calm,day1,day2);
       else           skoljko(r[2],data,day1,day2,SimvTab,calm, cht);
   }
 
   if((info.c=korrv(r,t,0,info.h,flagrow,jf)) != 1)
      return code_ReturnCode;
 
   PutBase(info.crow,base_sum);
   // - расчет суммы
   info.n1=r[2]*base_sum*koef_prost;
 
   if(FL_V_ALG&&uprc!=NO_SCREEN)
   {
      infolist.add_record(tip_ras?"Расчет по среднему":"Расчет по ставке","");
      infolist.add_record("Рабочее время",r[2]);
      infolist.add_record("Сумма за ед.времени", base_sum);
      infolist.add_record("Коэффициент простоя",koef_prost);
      infolist.add_record("Результат",info.n1);
   }
   return code_Break;
}