import "layer92.dll" UserAlgorithmCalc(&info,&r) { // инициализация локальных переменных int RetFlag = code_Break, crow = info.crow, b3 = info.b3, ikod = info.ikod, kod_alg = info.kod_alg, pos = info.pos, mkat = info.mkat, krabot = info.krabot, tip_s9600 = info.tip_s9600, flag_propusk0 = info.flag_propusk0, z1 = info.z1, z2 = info.z2; double h[4]; double kod = info.kod, n1 = info.n1, d1 = info.d1, d2 = info.d2, bz = info.bz; h[0] = info.h[0], h[1] = info.h[1], h[2] = info.h[2], h[3] = info.h[3]; int rowkod[ROWMAX],i,m,m1,b1,b2,mvrem; char t[20],str[81],str1[81]; double n2,n3,n4,n5,n6,n7,n8,n9,n10,r8,r9,k; /*-----------------------------------------------------*/ /* tip_s9600=0 - функция обработки СУММЫ по строке */ /* (s9600) - обнуляет РВ, если СУММА==0. */ /* tip_s9600=1 - не обнуляет (в спец.случаях) */ /*-----------------------------------------------------*/ /*-----------------------------------------------------*/ /* Если flag_propusk0=1, то расчет данного вида по его */ /* алгоритму производится только через режимы "Расчет */ /* произвольного вида", "Доп.расчеты" и при расчете от-*/ /* дельной строки в "Просмотре, корректировке ЛС". */ /* flag_propusk0=3, то же, что =1, только в этом случае*/ /* программа работает со строкой вида даже если у нее */ /* вышли даты действия (например, для квартал.дотаций).*/ /* В остальных режимах - если есть СУММА, то подается */ /* на корректировку, иначе - вид пропускается в расчете*/ /*-----------------------------------------------------*/ int c=-4096; switch(kod_alg) { // Сюда можно вставлять вызов собственных алгоритмов расчета. // Примеры функций с алгоритмами находятся // в файле SCRIPT\ALGSYS.S // начало описания алгоритмов пользователя // конец описания алгоритмов пользователя // Пример вызова алгоритма пользователя. //case 4: // return UserAlg4(info,r); // case 712: // return UserAlg712(info,r); case 917: // ночные (01.10.2012 согласно приказа МВД N 638 от 27.06.2012) // РВ - в часах, БЗ - процент доплаты // 1-й пар. алгоритма: столбец, по кот.берется сумма БЗ // 2-й пар. алгоритма: номер календаря для расчёта среднемесячного знач.часов // (если этот параметр равен 0, то номер календаря берём из строки // вида или из КЧ ЛС) // // норм.заработок по столбцу //ночные = -------------------------- * ФРВ * процент оплаты(БЗ) // среднемесячное знач.часов // //среднемесчное знач.часов = годовая норма времени (по графику) / 12 { struct Struct_Alg Work; int stolbec=25, k=0, otn_mes=0; double Proc=0.; //процент оплаты double n5=0.; // вытаскиваем значения из параметров Get_AlgWithParam(Work,ikod); // Work.Count_Par - число паpаметpов для кода алгоpитма //-- параметр 1 - столбец таблицы входимости (по умолчанию = 25) if (Work.Count_Par>0) { int i=atoi(reinterpret_cast_to_string(Work.List_Par[0])); if(i > 0) stolbec=i; } //-- параметр 2 - номер календаря для расчёта среднемесячного знач.часов // (если этот параметр равен 0, то номер календаря берём из строки // вида или из КЧ ЛС) if (Work.Count_Par > 1) { int i=atoi(reinterpret_cast_to_string(Work.List_Par[1])); if(i > 0) k=i; } //-- параметр 3 - месяц относительно mrasch if (Work.Count_Par > 2) { int i=atoi(reinterpret_cast_to_string(Work.List_Par[2])); if(i != 0) otn_mes=i; } // n2 - среднемесячное значение часов (вытаскиваем либо из календаря // строки, либо из графика в КЧ ЛС) if (k==0) //если календарь не указан в параметрах k=atoi(GetCalend(crow)); //то берём его из календаря вида if (k==0) //если календарь не указан, то берем из к.ч. { char str[256]; kch_from("grafik",str); k=atoi(str); } // k=3; // у ГУ МВД пятидневный календарь - это календарь 3, // поэтому для них k всегда равно 3 int tmpmrasch = mrasch; if(otn_mes!=0) //меняем mrasch s50(mrasch+otn_mes); double n2=GetYearNRV_svv(k,2); //годовая норма времени if (bz>0.0001) Proc=bz; /* n5 - сумма БЗ */ // s100simv("1","н",0,stolbec-1,n5,0); //b100(stolbec-1,d1,d2,n5,1); var kDate= KDateFromD(d1); if( !kDate.IsValid() || //не указана дата начала kDate.LT(KDateFromInt_WithDay(1,mrasch)) ) //дата начала вида меньше 1 числа mrasch kDate=KDateFromInt_WithDay(1,mrasch); ras_normzar(stolbec-1,"*",1,0x02|0x04,n5,kDate); if (mrasch!=tmpmrasch) //восстанавливаем mrasch s50(tmpmrasch); if((c=korrv(r,t,0,h,flagrow,jf)) != 1) return code_ReturnCode; // n1 - сумма if ( n2 ) n1=n5*r[2]/(n2/12.)*Proc/100.; if(FL_V_ALG&&uprc!=NO_SCREEN) { infolist.add_record("РВ(ч)",r[2]); infolist.add_record("Годовое знач.часов",n2); infolist.add_record("Среднемесчное знач.часов",n2/12.); infolist.add_record("Столбец",stolbec); infolist.add_record("Выборка по столбцу",n5); infolist.add_record("Базовое значение",bz); infolist.add_record("Результат",n1); } break; } default: RetFlag=0; break; } if ( RetFlag ) { info.crow = crow, info.b3 = b3, info.kod = kod, info.ikod = ikod, info.kod_alg = kod_alg, info.n1 = n1, info.d1 = d1, info.d2 = d2, info.pos = pos, info.mkat = mkat, info.krabot = krabot, info.tip_s9600 = tip_s9600, info.flag_propusk0 = flag_propusk0, info.z1 = z1, info.z2 = z2, info.h[0] = h[0], info.h[1] = h[1], info.h[2] = h[2], info.h[3] = h[3], info.bz = bz; if (c<=-4096) c=1; info.c = c; } return RetFlag; } GetYearNRV_svv(kalend,what) //what=1 - дни; 2-часы //┐ itog - цифры, соответствующие итоговой строке, когда просматриваем нормативный график { var Dat = CreateObject("KDate"); //мес¤ц, за который анализируем график Dat.SetDateD(GetDateFromFuncRWScript(mrasch)); char str[81]; int i; double itog; double _norm[3]; _rwnorma(kalend,"",0); itog=0; for(i=1;i<=12;i++) { _s118(Dat.GetYear(),i,_norm); itog+=_norm[what]; } Dat.SetDateD(GetDateFromFuncRWScript(mrasch)); _s118(Dat.GetYear(),Dat.GetMonth(),_norm); return itog; } UserAlg4(&info,&r) { return SysAlg4(info,r); } UserAlg712(&info,&r) { struct Struct_Alg Work; var mes1=0; var mes2=0; var stolbec=ST_MPREM+1; // символы для выборки // по умолчанию - по всем ненулевым char StrSimv[51]; sprintf(StrSimv,"*"); Get_AlgWithParam(Work,info.ikod); // 31.01.1995 // Work.Count_Par - число паpаметpов для кода алгоpитма //-- параметр 1 - столбец таблицы входимости if(Work.Count_Par > 0) { var i=atoi(reinterpret_cast_to_string(Work.List_Par[0])); if( i > 0 && i <= 99 ) stolbec=i; } //-- параметр 2 - месяц начала выборки (относительно расчетного) // (по умолчанию берется за один текущий месяц) if(Work.Count_Par > 1) { var i=atoi(reinterpret_cast_to_string(Work.List_Par[1])); if( i >= (- PMES) && i <= BMES ) 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 <= BMES ) mes2=i; } //-- параметр 4 - символы выборки if(Work.Count_Par > 3) sprintf(StrSimv,"%.50s",reinterpret_cast_to_string(Work.List_Par[3])); var n5=0.; for(var m=mes1; m<=mes2; m++) { double r9; s1001simv(StrSimv,"*",info.d1,info.d2,m,stolbec-1,r9,4,0); n5+=r9; } // Заполним таблицу уже найденными значениями if(FL_V_ALG && uprc != NO_SCREEN) { infolist.add_record("Месяц начала выборки",mes1); infolist.add_record("Месяц окончания выборки",mes2); infolist.add_record("Столбец выборки",stolbec); infolist.add_record("Символы выборки",StrSimv); infolist.add_record("Сумма выборки",n5); } // А теперь пройдемся по полю кадровой части "procPREM" // И возьмем оттуда все значения процентов, действовавшие // в рассчитываемом месяце info.n1=0.; // обнулили итоговую сумму // Дата конца действия очередного значения процента // В самом начале она равна последнему дню месяца. var DateEnd = CreateObject("KDate"); DateEnd.SetDateII(countday,mrasch); // Найдем дату начала действия очередного значения процента char StrD[21]; GetKchDate("procPREM",StrD,10,DateEnd); var Date=CreateObject("KDate"); Date.SetDate(static_cast_to_string(StrD)); // Если вдруг дата начала пустая или выходит за рамки расчетного // месяца, то установим ее равной первому числу расчетного месяца if ( Date.IsEqI(INVALID_DATE_VALUE) || Date.GetAbs()