//
//формирование записей в файле doxod.dbf
//
//строка основного дохода
if(aVars[2]!=0,doxod->(Addrec()),)
if(aVars[2]!=0,doxod->nom:=spisok->nom,)
if(aVars[2]!=0,doxod->kod:=aVars[1],)
if(aVars[2]!=0,doxod->sum:=aVars[2],)
//строка дополнительного дохода
if(aVars[10]!=0,doxod->(Addrec()),)
if(aVars[10]!=0,doxod->nom:=spisok->nom,)
if(aVars[10]!=0,doxod->kod:=aVars[9],)
if(aVars[10]!=0,doxod->sum:=aVars[10],)
//строка материальной помощи
if(aVars[6]!=0,doxod->(Addrec()),)
if(aVars[6]!=0,doxod->nom:=spisok->nom,)
if(aVars[6]!=0,doxod->kod:=aVars[5],)
if(aVars[6]!=0,doxod->sum:=aVars[6],)
if(aVars[6]!=0,doxod->ksk:=aVars[7],)
if(aVars[6]!=0,doxod->sk:=aVars[8],)
//строка подарков
if(aVars[14]!=0,doxod->(Addrec()),)
if(aVars[14]!=0,doxod->nom:=spisok->nom,)
if(aVars[14]!=0,doxod->kod:=aVars[13],)
if(aVars[14]!=0,doxod->sum:=aVars[14],)
if(aVars[14]!=0,doxod->ksk:=aVars[15],)
if(aVars[14]!=0,doxod->sk:=aVars[16],)
//строка призов
if(aVars[22]!=0,doxod->(Addrec()),)
if(aVars[22]!=0,doxod->nom:=spisok->nom,)
if(aVars[22]!=0,doxod->kod:=aVars[21],)
if(aVars[22]!=0,doxod->sum:=aVars[22],)
if(aVars[22]!=0,doxod->ksk:=aVars[23],)
if(aVars[22]!=0,doxod->sk:=aVars[24],)
//
//формирование записей в файле vicet.dbf
//
//строка пенсионного фонда
if(aVars[26]!=0,vicet->(Addrec()),)
if(aVars[26]!=0,vicet->nom:=spisok->nom,)
if(aVars[26]!=0,vicet->kod:=aVars[25],)
if(aVars[26]!=0,vicet->sum:=aVars[26],)
//строка однократный размер ММОТ
if(aVars[28]!=0,vicet->(Addrec()),)
if(aVars[28]!=0,vicet->nom:=spisok->nom,)
if(aVars[28]!=0,vicet->kod:=aVars[27],)
if(aVars[28]!=0,vicet->sum:=aVars[28],)
//строка пенсионный фонд с районной надбавки
if(aVars[30]!=0,vicet->(Addrec()),)
if(aVars[30]!=0,vicet->nom:=spisok->nom,)
if(aVars[30]!=0,vicet->kod:=aVars[29],)
if(aVars[30]!=0,vicet->sum:=aVars[30],)
//строка льгот на иждивенцев в однократном ММОТ
if(aVars[32]!=0,vicet->(Addrec()),)
if(aVars[32]!=0,vicet->nom:=spisok->nom,)
if(aVars[32]!=0,vicet->kod:=aVars[31],)
if(aVars[32]!=0,vicet->sum:=aVars[32],)
//строка двухкратный размер ММОТ
if(aVars[34]!=0,vicet->(Addrec()),)
if(aVars[34]!=0,vicet->nom:=spisok->nom,)
if(aVars[34]!=0,vicet->kod:=aVars[33],)
if(aVars[34]!=0,vicet->sum:=aVars[34],)
//строка пятикратный размер ММОТ
if(aVars[36]!=0,vicet->(Addrec()),)
if(aVars[36]!=0,vicet->nom:=spisok->nom,)
if(aVars[36]!=0,vicet->kod:=aVars[35],)
if(aVars[36]!=0,vicet->sum:=aVars[36],)
//строка льгот на иждивенцев в двухкратном ММОТ
if(aVars[38]!=0,vicet->(Addrec()),)
if(aVars[38]!=0,vicet->nom:=spisok->nom,)
if(aVars[38]!=0,vicet->kod:=aVars[37],)
if(aVars[38]!=0,vicet->sum:=aVars[38],)
//строка трехкратного размера ММОТ
if(aVars[40]!=0,vicet->(Addrec()),)
if(aVars[40]!=0,vicet->nom:=spisok->nom,)
if(aVars[40]!=0,vicet->kod:=aVars[39],)
if(aVars[40]!=0,vicet->sum:=aVars[40],)
//строка сумм на благотворительность
if(aVars[42]!=0,vicet->(Addrec()),)
if(aVars[42]!=0,vicet->nom:=spisok->nom,)
if(aVars[42]!=0,vicet->kod:=aVars[41],)
if(aVars[42]!=0,vicet->sum:=aVars[42],)
//строка льгот на строительство
if(aVars[44]!=0,vicet->(Addrec()),)
if(aVars[44]!=0,vicet->nom:=spisok->nom,)
if(aVars[44]!=0,vicet->kod:=aVars[43],)
if(aVars[44]!=0,vicet->sum:=aVars[44],)
//обнуление массива aVars
AEval(aVars,FormulPars('aVars[i]:=0',{'x','i'}),1,199)