// ПРОГРАММА ОПРЕДЕЛЕНИЯ ЧИСЛОВЫХ ПОЛЕЙ СПРАВКИ О ДОХОДАХ ЗА 1998 г.
//передаваемые параметры:
//aPars[1] = I44 - конечный период
//aPars[2] = I09 - статус сотрудника (001-штатный сотрудник)
//aPars[3] = "ПСВ" - вид ужержания "Пенсионный для совместителя"
//определение массива:
aVars[100]:=Val(right(aPars[1],2))
aVars[140]:=5000
aVars[141]:=20000
//определение месяцев дохода
aVars[80]:=""
AEval( ARRAY(12), FormulPars( "aVars[80] := aVars[80] + if( aVars[100] >=i .AND. CARDSPRI->(S_TS('НАЧИСЛЕНО',i)) != 0, '1', '0' )", { 'x', 'i' } ) )
// 3-ИЙ ПУНКТ. СВЕДЕНИЯ О ДОХОДАХ.
//определение кодов доходов
aVars[1]:=if(aPars[2]="001","0200",if(aPars[2]="003","2100","0300"))
aVars[3]:=" -"
aVars[4]:="     -"
aVars[9]:="5100"
aVars[11]:=" -"
aVars[12]:="     -"
aVars[17]:=" "
aVars[18]:=" "
aVars[19]:=" "
aVars[20]:=" "
aVars[5]:="3100"
aVars[7]:="02"
aVars[13]:="3200"
aVars[15]:="02"
aVars[21]:="3300"
aVars[23]:="02"
//определение кодов вычетов
aVars[25]:="10"
aVars[27]:="21"
aVars[29]:="11"
aVars[31]:="30"
aVars[33]:="22"
aVars[35]:="25"
aVars[37]:="31"
aVars[39]:="23"
aVars[41]:="41"
aVars[43]:="42"
//
//цикл с начала года для опредения сумм доходов и вычетов нарастающим итогом
AEval(ARRAY(12),FormulPars('FileEval("FRM\EXP_P3C.FRM",{i})',{'x','i'}))
//опеределение совокупных доходов по каждому месяцу
AEval(ARRAY(11),FormulPars('if(aVars[100]>=12-i+1,aVars[61-i+1]:=aVars[61-i+1]-aVars[61-i],)',{'x','i'}))
//5-ЫЙ ПУНКТ. ИСПОЛНЕНИЕ НАЛОГОВЫХ ОБЯЗАТЕЛЬСТВ.
//валовый доход
aVars[72]:=aVars[2]+aVars[10]+aVars[6]+aVars[14]+aVars[22]
//облагаемый доход
aVars[73]:=max(aVars[72]-aVars[70]-(aVars[26]+aVars[28]+aVars[32]+aVars[34]+aVars[36]+aVars[38]+aVars[40]+aVars[42]+aVars[44]-CARDSPRI->(S_SP("РЛЬГОТ",aPars[1]))),0)
//облагаемые районные надбавки
aVars[77]:=max(aVars[76]-(CARDSPRI->(S_SP("ПЕНСРАЙ",aPars[1]))+CARDSPRI->(S_IO("КОЛУД",CARDSPRI->(S_KSP("ПЕНСРАЙ")),aPars[1],aPars[1])))-CARDSPRI->(S_SP("РЛЬГОТ",aPars[1])),0)
//подоходный налог
aVars[74]:=CARDSPRI->(S_SP("ПОДОХОД",aPars[1]))+CARDSPRI->(S_IO("КОЛУД",CARDSPRI->(S_KSP("ПОДОХОД")),aPars[1],aPars[1]))
aVars[75]:=aVars[74]
//подоходный с районных надбавок
aVars[78]:=CARDSPRI->(S_SP("ПОДРАЙ",aPars[1]))+CARDSPRI->(S_IO("КОЛУД",CARDSPRI->(S_KSP("ПОДРАЙ")),aPars[1],aPars[1]))
aVars[79]:=aVars[78]
//добавление пенсионного с совместителя к сумме пенсионного за год
aVars[26]:=aVars[26]+CARDSPRI->(S_IO("ВИДУД",aPars[3],1,aVars[100]))
//вспоминаем, про период
aVars[80]