// Расчетный листок без разбивки и без сортировки.  
#CLIN(N,4,0)=СЧЕТЧИК_СТРОК(); #SIZL(N,4,0)=РАЗМ_ЛИСТА();  
$ЕСЛИ(_GT(СТРОК+CLIN+12-SIZL))  
  $LF  
$КОНЕЦ_ЕСЛИ  
&GORTAB(N,4,0)=0;  
${ЗОНА(3.Прочие настройки)  
&nazv(N,2,0) =  0; // 0-короткое название вида Н-У, 1-длинное имя  
// Размер поля при формировании строки квитка  
&lmes(N,4,0) =  2; // месяц (значение не должно быть меньше 2)  
&lkod(N,4,0) =  3; // код (значение не должно быть меньше 3)  
&lsrc(N,4,0) =  0; // источник финансирования  
&lpod(N,4,0) =  0; // подразделение  
&lcom(N,4,0) =  0; // совместительство  
&lsub(N,4,0) =  0; // объект  
&lnaz(N,4,0) =  7; // название вида  
&l_rv(N,4,0) =  7; // рабочее время  
&lsum(N,4,0) = 10; // сумма  
&lmni(N,4,0) =  1; // мнимость  
&sh(N,4,0)   =  0; // длина половины строки квитка (если 0 - вычисляем)  
&l_tn(N,4,0) =  7; // размер поля для табельного номера  
&lkat(N,4,0) =  2; // размер поля для категории  
$}ЗОНА(3.Прочие настройки)  
//  
$BEG_SCRIPT  
  
int _sh = atoi(sh);  
  
if ( !_sh ) // вычисляем только в том случае, если sh не задана явно, т.е. равна нулю  
{  
  int cProb = 0;  
  
  if ( lmes ) { _sh += lmes; cProb++; }  
  if ( lkod ) { _sh += lkod; cProb++; }  
  if ( lsrc ) { _sh += lsrc; cProb++; }  
  if ( lpod ) { _sh += lpod; cProb++; }  
  if ( lcom ) { _sh += lcom; cProb++; }  
  if ( lsub ) { _sh += lsub; cProb++; }  
  if ( l_rv ) { _sh += l_rv; cProb++; }  
  if ( lnaz ) { _sh += lnaz; } // после названия нет пробела  
  if ( lsum ) { _sh += lsum; } // после суммы нет пробела  
  if ( lmni ) { _sh += lmni; } // после мнимости нет пробела  
  
  sh = _sh;  
  sh = sh + cProb;  
}  
  
GORTAB = sh * 2 + 1 + 4;  
  
$END_SCRIPT  
$УСТАН(ГОРИЗ_ТАБ,@GORTAB)  // Отступ от левого края бумаги для второго квитка  
$BEG_SCRIPT  
  
  int Param[14];  
  
  Param[0]  = atoi(lmes);  
  Param[1]  = atoi(lkod);  
  Param[2]  = atoi(lsrc);  
  Param[3]  = atoi(lpod);  
  Param[4]  = atoi(lcom);  
  Param[5]  = atoi(lsub);  
  Param[6]  = atoi(lnaz);  
  Param[7]  = atoi(l_rv);  
  Param[8]  = atoi(lsum);  
  Param[9]  = atoi(lmni);  
  Param[10] = atoi(sh);  
  Param[11] = atoi(l_tn);  
  Param[12] = atoi(lkat);  
  Param[13] = atoi(nazv);  
  
 UnloadScriptModule("check\\check102");  
 LoadScriptModule("check\\check102");  
  MainCheck( Param );  
 UnloadScriptModule("check\\check102");  
  
$END_SCRIPT  
${ЗОНА(1.Суммы для проверки П/налога). НАЧАЛО сумм для П/налога.  
//$ЕСЛИ  // Закомментируйте эту строку для печати сумм по п/налогу. 
&FLSUMM(N,4,0)=1;  // 1 - печать сумм источника выплаты, 2 печать общих сумм 
#СУММЫ(C,160,0)=R_String(2,7,15,16,14); // перечислите в скобках нужные суммы 
#REM001(C,35,0)=R_String(Полный доход без учета скидок);            // 1 
#REM002(C,35,0)=R_String(Основной доход без учета скидок);          // 2 
#REM003(C,35,0)=R_String(Доход по 2-й таблице без учета скидок);    // 3 
#REM007(C,35,0)=R_String(Налог с полной суммы);                     // 7 
#REM008(C,35,0)=R_String(Налог с основной суммы);                   // 8 
#REM009(C,35,0)=R_String(Налог с суммы по 2-й таблице);             // 9 
#REM011(C,35,0)=R_String(Налог, переданный к взысканию в НИ);       // 11 
#REM012(C,35,0)=R_String(Налог,удержанный в периоде)                // 12 
#REM013(C,35,0)=R_String(Налог,удержанный в счет периода)           // 13 
#REM014(C,35,0)=R_String(Сумма вычетов);                            // 14 
#REM015(C,35,0)=R_String(Персональные вычеты);                      // 15 
#REM016(C,35,0)=R_String(Вычеты на иждивенцев);                     // 16 
#REM032(C,35,0)=R_String(Процент обложения налогом);                // 32 
#REM033(C,35,0)=R_String(Сумма скидок по доходу);                   // 33 
#REM034(C,35,0)=R_String(Сумма по 3-й таблице);                     // 34 
#REM035(C,35,0)=R_String(Облагаемая сумма по 3-й таблице);          // 35 
#REM036(C,35,0)=R_String(Сумма налога по 3-й таблице);              // 36 
#REM037(C,35,0)=R_String(Сумма вычетов по доходу);                  // 37 
#REM038(C,35,0)=R_String(Сумма вычетов по 2-й таблице);             // 38 
#REM039(C,35,0)=R_String(Сумма вычетов по 3-й таблице);             // 39 
#REM041(C,35,0)=R_String(Полный доход с учетом скидок);             // 41 
#REM042(C,35,0)=R_String(Основной доход с учетом скидок);           // 42 
#REM043(C,35,0)=R_String(Доход по 2-й таблице с учетом скидок);     // 43 
#REM044(C,35,0)=R_String(Доход по 3-й таблице с учетом скидок);     // 44 
#REM045(C,35,0)=R_String(Облагаемая сумма основного дохода);        // 45 
#REM046(C,35,0)=R_String(Облагаемая сумма по 2-й таблице);          // 46 
#REM047(C,35,0)=R_String(Облагаемая сумма по 3-й таблице);          // 47 
#REM048(C,35,0)=R_String(Общая облагаемая сумма);                   // 48 
#REM050(C,35,0)=R_String(Доход для расчета вычетов);                // 50 
#REM063(C,35,0)=R_String(Скидки по основному доходу);               // 63 
#REM064(C,35,0)=R_String(Скидки по 2-й таблице);                    // 64 
#REM065(C,35,0)=R_String(Скидки по 3-й таблице);                    // 65 
#REM300(C,35,0)=R_String(Материальная помощь);                      // 300 
#REM301(C,35,0)=R_String(Скидка по материальной помощи);            // 301 
#REM302(C,35,0)=R_String(Подарки);                                  // 302 
#REM303(C,35,0)=R_String(Скидка по подаркам);                       // 303 
#REM304(C,35,0)=R_String(Призы);                                    // 304 
#REM305(C,35,0)=R_String(Скидка по призам);                         // 305 
#REM306(C,35,0)=R_String(Вычет в ПФ с основного дохода);            // 306 
#REM307(C,35,0)=R_String(Вычет в ПФ с р/к);                         // 307 
#REM308(C,35,0)=R_String(Вычет в ПФ с дохода совместителей);        // 308 
#REM309(C,35,0)=R_String(Вычет в ПФ с р/к совместителей);           // 309 
#REM310(C,35,0)=R_String(Затраты на строительство);                 // 310 
#REM507(C,35,0)=R_String(Налог с полной суммы в БФ);                // 507 
#REM508(C,35,0)=R_String(Налог с основной суммы в БФ);              // 508 
#REM509(C,35,0)=R_String(Налог с суммы p/к в БФ);                   // 509 
#REM511(C,35,0)=R_String(Налог к взысканию в НИ в БФ);              // 511 
#REM512(C,35,0)=R_String(Удержано налога в периоде в БФ);           // 512 
#REM513(C,35,0)=R_String(Удержано налога в счет периода в БФ);      // 513 
  суммы для проверки п/налога       за тек.мес.  с нач.года 
$}ЗОНА(1.Суммы для проверки П/налога).  КОНЕЦ сумм для П/налога.  
// системная часть зоны сумм по п/налогу  
$ЕСЛИ (_EQ(FLSUMM-1))  
  #СУМНГОД001(N,11,@КОП )=R_Tax(1,1,g,0,Источник выплаты,*,Н);  
$ИНАЧЕ  
  #СУМНГОД001(N,11,@КОП )=R_Tax(1,1,g,0,*,*,Н);  
$КОНЕЦ_ЕСЛИ  
#СУМНГОД002(N,11,@КОП )=R_Tax(2);   #СУМНГОД003(N,11,@КОП )=R_Tax(3);  
#СУМНГОД007(N,11,@КОП )=R_Tax(7);   #СУМНГОД008(N,11,@КОП )=R_Tax(8);  
#СУМНГОД009(N,11,@КОП )=R_Tax(9);   #СУМНГОД011(N,11,@КОП )=R_Tax(11);  
#СУМНГОД012(N,11,@КОП )=R_Tax(12);  
#СУМНГОД013(N,11,@КОП )=R_Tax(13);  #СУМНГОД014(N,11,@КОП )=R_Tax(14);  
#СУМНГОД015(N,11,@КОП )=R_Tax(15);  #СУМНГОД016(N,11,@КОП )=R_Tax(16);  
#СУМНГОД032(N,11,@КОП )=R_Tax(32);  #СУМНГОД033(N,11,@КОП )=R_Tax(33);  
#СУМНГОД034(N,11,@КОП )=R_Tax(34);  #СУМНГОД035(N,11,@КОП )=R_Tax(35);  
#СУМНГОД036(N,11,@КОП )=R_Tax(36);  #СУМНГОД037(N,11,@КОП )=R_Tax(37);  
#СУМНГОД038(N,11,@КОП )=R_Tax(38);  #СУМНГОД039(N,11,@КОП )=R_Tax(39);  
#СУМНГОД041(N,11,@КОП )=R_Tax(41);  #СУМНГОД042(N,11,@КОП )=R_Tax(42);  
#СУМНГОД043(N,11,@КОП )=R_Tax(43);  #СУМНГОД044(N,11,@КОП )=R_Tax(44);  
#СУМНГОД045(N,11,@КОП )=R_Tax(45);  #СУМНГОД046(N,11,@КОП )=R_Tax(46);  
#СУМНГОД047(N,11,@КОП )=R_Tax(47);  #СУМНГОД048(N,11,@КОП )=R_Tax(48);  
#СУМНГОД050(N,11,@КОП )=R_Tax(50);  #СУМНГОД063(N,11,@КОП )=R_Tax(63);  
#СУМНГОД064(N,11,@КОП )=R_Tax(64);  #СУМНГОД065(N,11,@КОП )=R_Tax(65);  
#СУМНГОД300(N,11,@КОП )=R_Tax(list,Summa,2760,0,503,1," ");  
#СУМНГОД301(N,11,@КОП )=R_Tax(list,RealDiscount,2760,0,503,1," ");  
#СУМНГОД302(N,11,@КОП )=R_Tax(list,Summa,2720,0,501,1," ");  
#СУМНГОД303(N,11,@КОП )=R_Tax(list,RealDiscount,2720,0,501,1," ");  
#СУМНГОД304(N,11,@КОП )=R_Tax(list,Summa,2730,0,502,1," ");  
#СУМНГОД305(N,11,@КОП )=R_Tax(list,RealDiscount,2730,0,502,1," ");  
#СУМНГОД306(N,11,@КОП )=R_Tax(list,Summa,0,10,0,1," ");  
#СУМНГОД307(N,11,@КОП )=R_Tax(list,Summa,0,11,0,2," ");  
#СУМНГОД308(N,11,@КОП )=R_Tax(list,Summa,0,10,0,1,"0");  
#СУМНГОД309(N,11,@КОП )=R_Tax(list,Summa,0,11,0,2,"0");  
#СУМНГОД310(N,11,@КОП )=R_Tax(list,Summa,0,42,5,1," ");  
$ЕСЛИ (_EQ(FLSUMM-1))  
  #СУМНГОД507(N,11,@КОП )=R_Tax(7,1,g,0,Источник выплаты,*,Ф);  
$ИНАЧЕ  
  #СУМНГОД507(N,11,@КОП )=R_Tax(7,1,g,0,*,*,Ф);  
$КОНЕЦ_ЕСЛИ  
#СУМНГОД508(N,11,@КОП )=R_Tax(8);   #СУМНГОД509(N,11,@КОП )=R_Tax(9);  
#СУМНГОД511(N,11,@КОП )=R_Tax(11);  #СУМНГОД512(N,11,@КОП )=R_Tax(12);  
#СУМНГОД513(N,11,@КОП )=R_Tax(13);  
$ЕСЛИ (_EQ(FLSUMM-1))  
  #СУММЕС001(N,11,@КОП )=R_Tax(1,1,0,0,Источник выплаты,*,Н);  
$ИНАЧЕ  
  #СУММЕС001(N,11,@КОП )=R_Tax(1,1,0,0,*,*,Н);  
$КОНЕЦ_ЕСЛИ  
#СУММЕС002(N,11,@КОП )=R_Tax(2);    #СУММЕС003(N,11,@КОП )=R_Tax(3);  
#СУММЕС007(N,11,@КОП )=R_Tax(7);    #СУММЕС008(N,11,@КОП )=R_Tax(8);  
#СУММЕС009(N,11,@КОП )=R_Tax(9);    #СУММЕС011(N,11,@КОП )=R_Tax(11);  
#СУММЕС012(N,11,@КОП )=R_Tax(12);  
#СУММЕС013(N,11,@КОП )=R_Tax(13);   #СУММЕС014(N,11,@КОП )=R_Tax(14);  
#СУММЕС015(N,11,@КОП )=R_Tax(15);   #СУММЕС016(N,11,@КОП )=R_Tax(16);  
#СУММЕС032(N,11,@КОП )=R_Tax(32);   #СУММЕС033(N,11,@КОП )=R_Tax(33);  
#СУММЕС034(N,11,@КОП )=R_Tax(34);   #СУММЕС035(N,11,@КОП )=R_Tax(35);  
#СУММЕС036(N,11,@КОП )=R_Tax(36);   #СУММЕС037(N,11,@КОП )=R_Tax(37);  
#СУММЕС038(N,11,@КОП )=R_Tax(38);   #СУММЕС039(N,11,@КОП )=R_Tax(39);  
#СУММЕС041(N,11,@КОП )=R_Tax(41);   #СУММЕС042(N,11,@КОП )=R_Tax(42);  
#СУММЕС043(N,11,@КОП )=R_Tax(43);   #СУММЕС044(N,11,@КОП )=R_Tax(44);  
#СУММЕС045(N,11,@КОП )=R_Tax(45);   #СУММЕС046(N,11,@КОП )=R_Tax(46);  
#СУММЕС047(N,11,@КОП )=R_Tax(47);   #СУММЕС048(N,11,@КОП )=R_Tax(48);  
#СУММЕС050(N,11,@КОП )=R_Tax(50);   #СУММЕС063(N,11,@КОП )=R_Tax(63);  
#СУММЕС064(N,11,@КОП )=R_Tax(64);   #СУММЕС065(N,11,@КОП )=R_Tax(65);  
#СУММЕС300(N,11,@КОП )=R_Tax(list,Summa,2760,0,503,1," ");  
#СУММЕС301(N,11,@КОП )=R_Tax(list,RealDiscount,2760,0,503,1," ");  
#СУММЕС302(N,11,@КОП )=R_Tax(list,Summa,2720,0,501,1," ");  
#СУММЕС303(N,11,@КОП )=R_Tax(list,RealDiscount,2720,0,501,1," ");  
#СУММЕС304(N,11,@КОП )=R_Tax(list,Summa,2730,0,502,1," ");  
#СУММЕС305(N,11,@КОП )=R_Tax(list,RealDiscount,2730,0,502,1," ");  
#СУММЕС306(N,11,@КОП )=R_Tax(list,Summa,0,10,0,1," ");  
#СУММЕС307(N,11,@КОП )=R_Tax(list,Summa,0,11,0,2," ");  
#СУММЕС308(N,11,@КОП )=R_Tax(list,Summa,0,10,0,1,"0");  
#СУММЕС309(N,11,@КОП )=R_Tax(list,Summa,0,11,0,2,"0");  
#СУММЕС310(N,11,@КОП )=R_Tax(list,Summa,0,42,5,1," ");  
$ЕСЛИ (_EQ(FLSUMM-1))  
  #СУММЕС507(N,11,@КОП )=R_Tax(7,1,0,0,Источник выплаты,*,Ф);  
$ИНАЧЕ  
  #СУММЕС507(N,11,@КОП )=R_Tax(7,1,0,0,*,*,Ф);  
$КОНЕЦ_ЕСЛИ  
#СУММЕС508(N,11,@КОП )=R_Tax(8);   #СУММЕС509(N,11,@КОП )=R_Tax(9);  
#СУММЕС511(N,11,@КОП )=R_Tax(11);  #СУММЕС512(N,11,@КОП )=R_Tax(12);  
#СУММЕС513(N,11,@КОП )=R_Tax(13);  
  &CNT(N,4,0)=1;  
  $ПОВТОРЯТЬ  
    #N(V,3,0)=ЭЛЕМ_МАССИВА(СУММЫ,CNT);  
    $ЕСЛИ (_GT(N))  
      #ТЕКСТ(C,35,0)=R_String(REM@N );  
      &СУМНГОД(N,11,@КОП )=СУМНГОД@N;  
      &СУММЕС(N,11,@КОП )=СУММЕС@N;  
 @ТЕКСТ                             @СУММЕС     @СУМНГОД  
    $КОНЕЦ_ЕСЛИ  
    &CNT=CNT+1;  
  $ПОКА (_GT(N))  
$КОНЕЦ_ЕСЛИ                  // конец систеной части сумм по п/налогу  
${ЗОНА(2.Суммы по выборкам табл.вх-ти). НАЧАЛО сумм по выборкам.  
//#СУМФЗП(N,11,@КОП )=R_Col_S("1","*",15,0,0);  
//#СУМФМП(N,11,@КОП )=R_Col_S("2","*",15,0,0);  
// Сумма к отпуску ФЗП                @СУМФЗП  
// Сумма к отпуску ФМП                @СУМФМП  
$}ЗОНА(2.Суммы по выборкам табл.вх-ти).  КОНЕЦ сумм по выборкам.  
  
$ВЫХОД