// Форма печати расчетного листка для расчета за месяц. #CLIN(N,4,0)=СЧЕТЧИК_СТРОК(); #SIZL(N,4,0)=РАЗМ_ЛИСТА(); $ЕСЛИ(_GT(СТРОК+CLIN+12-SIZL)) $LF $КОНЕЦ_ЕСЛИ ${ЗОНА(7. Признак печати копеек) &КОП(N,4,0)=2; // Поставьте &КОП(N,4,0)=2 для печати сумм с копейками $}ЗОНА(7. Признак печати копеек) ${ЗОНА(3.Шапка расчетного листка). НАЧАЛО оформления шапки. $УСТАН(ГОРИЗ_ТАБ,68) // Отступ от левого края бумаги для второго квитка $УСТАН(НУЛЬ_РВ, ); // Символ для представления нулевого рабочего времени #F(C,31,0)=R_Name(2); // Поставьте R_Name(1), если хотите полное ФИО в шапке &ДРМЕС(N,6,0)=0; // Поставьте &ДРМЕС(N,6,0)=1 для выделения сумм др.месяцев #S(C,2,0)=R_String( ); #OFICE(C,42,0)=R_String(ИМЯП); #PODR(C,7,0)=R_Face(podr); #T0(N,7,0)=R_Face(tn); &TN(N,7,0)=T0; #KAT(N,2,0)=R_Face(kat); &K(N,2,0)=KAT; #GOD(N,4,0)=ДАТЫ(5); #MES(N,2,0)=ДАТЫ(2); #MRASCH(C,8,0)=КАЛЕНД_МЕС(MES); Компенсация за задержку выплат (ч.1 п.2 ст.136 ТК РФ) 0,00 руб @OFICE @MRASCH @GOD г. Подр-е:@PODR @TN (@K): @F ------------------------------------------------------------ $}ЗОНА(3.Шапка расчетного листка). КОНЕЦ оформления шапки. &М(N,2,0)=0; &КН(N,3,0)=0; #НАЗВН(C,7,0)=R_String( ); &РВН(N,7,2)=0; &СУМН(N,10,@КОП )=0; #Н(C,2,0)=R_String( ); &ЗН(N,3,0)=0; #СТРН(C,35,0)=R_String( ); #СТРУ(C,27,0)=R_String( ); &СУМИТ2(N,11,@КОП )=0; &Е(N,2,0)=0; &КУ(N,3,0)=0; #НАЗВУ(C,7,0)=R_String( ); &РВУ(N,6,2)=0; &СУМУ(N,10,@КОП )=0; #У(C,2,0)=R_String( ); &ЗУ(N,3,0)=0; &СУМИТ(N,11,@КОП )=0; &ЗН0(N,3,0)=99; &ЗУ0(N,3,0)=99; &СУМИТ1(N,11,@КОП )=0; &RCN(N,4,0)=0; &RCU(N,4,0)=0; // Печать тела $ПОВТОРЯТЬ // Цикл по записям таблицы &ЗН0=ЗН; &ЗУ0=ЗУ; #O(N,2,0)=СТРОКА_НАЧ(М,КН,НАЗВН,РВН,СУМН,Н,ЗН,RCN); #Q(N,2,0)= СТРОКА_УД(Е,КУ,НАЗВУ,РВУ,СУМУ,У,ЗУ,RCU); $ЕСЛИ (_GE(ЗН+ЗУ-4)*_LT(ЗН0+ЗУ0-4)) $ЕСЛИ (RCN+RCU) ------------------------------------------------------------ $КОНЕЦ_ЕСЛИ М код начисл. рв сумма | М код удерж. сумма $КОНЕЦ_ЕСЛИ $ЕСЛИ ((1-_EQ(ЗН-3))*_GT(ЗН-ЗУ)) // формируем строку начислений #СТРН=R_String( |); // пустая строка $ИНАЧЕ $ЕСЛИ (_EQ(ЗН-3)) // итоги #O(N,2,0)=СТРОКА_НАЧ(М,КН,НАЗВН,РВН,СУМИТ,Н,ЗН,RCN); #СТРН=R_String( ИТОГО @СУМИТ @Н); &RCN=RCN+1; $КОНЕЦ_ЕСЛИ $ЕСЛИ (_LT(ЗН-3)) // сумма #СТРН=R_String(@М @КН @НАЗВН @РВН @СУМН @Н); &RCN=RCN+1; $КОНЕЦ_ЕСЛИ $КОНЕЦ_ЕСЛИ // формируем строку удержаний $ЕСЛИ (_GE(ЗУ-2)*_LT(ЗН-2)+_GE(ЗУ-7)*_LT(ЗН-7)) #СТРУ=R_String( ); // пустая строка $ИНАЧЕ $ЕСЛИ (_EQ(ЗУ-3)) // итоги #Q(N,2,0)= СТРОКА_УД(Е,КУ,НАЗВУ,РВУ,СУМИТ,У,ЗУ,RCU); #СТРУ=R_String( ИТОГО @СУМИТ ); &RCU=RCU+1; $КОНЕЦ_ЕСЛИ $ЕСЛИ (_EQ(ЗУ-4)) // комментарий к межрасчетным выплатам, строка 1 #СТРУ=R_String( ); &RCU=RCU+1; $КОНЕЦ_ЕСЛИ $ЕСЛИ (_EQ(ЗУ-5)) // комментарий к межрасчетным выплатам, строка 2 #СТРУ=R_String( Межрасчетные выплаты: ); &RCU=RCU+1; $КОНЕЦ_ЕСЛИ $ЕСЛИ (_LT(ЗУ-3)+_EQ(ЗУ-6)) // сумма #СТРУ=R_String(@Е @КУ @НАЗВУ @СУМУ @У); &RCU=RCU+1; $КОНЕЦ_ЕСЛИ $КОНЕЦ_ЕСЛИ $ЕСЛИ (_LT(ЗН-7)+_LT(ЗУ-7)) @СТРН @СТРУ $КОНЕЦ_ЕСЛИ $ПОКА (_LT(ЗН-7)+_LT(ЗУ-7)) $ЕСЛИ (RCN+RCU) ------------------------------------------------------------ $КОНЕЦ_ЕСЛИ #O(N,2,0)=СТРОКА_НАЧ(М,КН,НАЗВН,РВН,СУМИТ,Н,ЗН,RCN); #Q(N,2,0)= СТРОКА_УД(Е,КУ,НАЗВУ,РВУ,СУМИТ1,У,ЗУ,RCU); &RCN=RCN+1; &RCU=RCU+1; ВСЕГО начислено @СУМИТ | удержано @СУМИТ1 ------------------------------------------------------------ #O(N,2,0)=СТРОКА_НАЧ(М,КН,НАЗВН,РВН,СУМИТ,Н,ЗН,RCN); &RCN=RCN+1; // в ведомость, остаток, долг #O(N,2,0)=СТРОКА_НАЧ(М,КН,НАЗВН,РВН,СУМИТ1,Н,ЗН,RCN); #Q(N,2,0)= СТРОКА_УД(Е,КУ,НАЗВУ,РВУ,СУМИТ2,У,ЗУ,RCU); #СТРУ=R_String( ); $ЕСЛИ (_GT(СУМИТ1)) #СТРУ=R_String( остаток @СУМИТ1 ); $КОНЕЦ_ЕСЛИ $ЕСЛИ (_GT(СУМИТ2)) #СТРУ=R_String( долг @СУМИТ2 ); $КОНЕЦ_ЕСЛИ $ЕСЛИ (_GT(СУМИТ)) в вед. за месяц @СУМИТ @СТРУ $ИНАЧЕ К учету в следующем месяце @СТРУ $КОНЕЦ_ЕСЛИ #TABEL(C,40,0)=R_Caln(0); // табель Табель: @TABEL ${ЗОНА(1.Суммы для проверки П/налога). НАЧАЛО сумм для П/налога. //$ЕСЛИ // Закомментируйте эту строку для печати сумм по п/налогу. &FLSUMM(N,4,0)=1; // 1 - печать сумм источника выплаты, 2 печать общих сумм #СУММЫ(C,160,0)=R_String(2,7,16); // перечислите в скобках нужные суммы #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.Суммы по выборкам табл.вх-ти). КОНЕЦ сумм по выборкам. $ЕСЛИ (_EQ(ДРМЕС-1)) ${ЗОНА(6. Суммы за другие месяцы). НАЧАЛО сумм за другие месяцы. #СУММУ(N,12,@КОП )=R_Col_S(1,=т,0,-14,-1); #СУММБ(N,12,@КОП )=R_Col_S(1,=т,0,1,6); $ЕСЛИ (1-_EQ(СУММУ)) Выпл. за прошлые месяцы в расчет текущего @СУММУ $КОНЕЦ_ЕСЛИ $ЕСЛИ (1-_EQ(СУММБ)) Выпл. за будущие месяцы в расчет текущего @СУММБ $КОНЕЦ_ЕСЛИ $}ЗОНА(6. Суммы за другие месяцы). КОНЕЦ сумм за другие месяцы. $КОНЕЦ_ЕСЛИ #ТИП(N,4,0)=ТИП_КВИТКА("О"); $ЕСЛИ (_EQ(ТИП-1)) ${ЗОНА(4.Для квитка к отпуску). НАЧАЛО суммы к отпуску. #СУММУ(N,12,@КОП )=R_Face(ved1); Сумма к отпуску @СУММУ $}ЗОНА(4.Для квитка к отпуску). КОНЕЦ суммы к отпуску. $КОНЕЦ_ЕСЛИ #ТИП(N,4,0)=ТИП_КВИТКА("У"); $ЕСЛИ (_EQ(ТИП-1)) ${ЗОНА(5.Для квитка к увольнению). НАЧАЛО суммы к увольнению. #СУММУ(N,12,@КОП )=R_Face(ved1); Сумма к увольнению @СУММУ $}ЗОНА(5.Для квитка к увольнению). КОНЕЦ суммы к увольнению. $КОНЕЦ_ЕСЛИ $ВЫХОД