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 14: return UserAlg14(info,r); // конец описания алгоритмов пользователя // Пример вызова алгоритма пользователя. //case 4: // return UserAlg4(info,r); // case 712: // return UserAlg712(info,r); 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; } UserAlg14(&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 var n6=0.5; // процент доплаты тарифа за первые 2 часа var n7=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 ) n6 = i; } //-- параметр 2 - процент оплаты остальных часов if (Work.Count_Par>1) { double i=atof(reinterpret_cast_to_string(Work.List_Par[1])); if ( i!=0 ) n7 = i; } int stolbec=-1; //-- параметр 3 - номер столбца по которому считается часовая ставка if (Work.Count_Par>2) { var i=atoi(reinterpret_cast_to_string(Work.List_Par[2])); if(i > 0 && i <= 99) stolbec=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; // тариф if(stolbec>0) { if(FL_V_ALG && uprc != NO_SCREEN) infolist.add_record("Столбец",stolbec); s96col(stolbec-1,info.d1,info.d2,n5,1); n5*=100; } 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; } 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()