// Пени за просрочку ЗП
UserAlg907(&info,&r)
{
 // Ссылка на калькулятор 
   string str;
    str = "https://glavkniga.ru/calculators/kompensazia";
    int result = AmbaMessageBox("Ссылка на калькулятор "+str + " Перейти на сайт? ", "Предупреждение!", MB_YESNO |MB_ICONWARNING, 0);
     if (result == IDYES) ShellExecute(0,"open","https://glavkniga.ru/calculators/kompensazia",0,0,1);
  
 // Значение ставки рефинансирования на дату
   double st_ref = 0.; double st150 = 0.; 
   Value_For_Table_Cod(85,3,data,st_ref);
   Value_For_Table_Cod(85,5,data,st150);

 // Запрос суммы просрочки и количества дней
   double sum = 0.; double dni = 0.;

   if (ESC==Panel_Zapros(" Введите дополнительные данные ","",
                                          "  Сумма просрочки ",sum, 20,
                                          "  Дней просрочки ",dni, 10)) return ESC;
 
 // Считаем сумму компенсации
    info.n1 = sum * dni  *st150/100.;
 // Инофрмация по расчету
   if(FL_V_ALG && uprc != NO_SCREEN)
   {
      infolist.add_record("Ставка рефинансирования",st_ref);
      infolist.add_record("=============","================");
      infolist.add_record("Сумма просрочки",sum);
      infolist.add_record("Дней просрочки",dni);
      infolist.add_record("=============","================");
      infolist.add_record("Результат",info.n1);

   }
   return code_Break;
}