Ошибка: запрещенная команда
.end
То есть, ругается на последний .end
Что в нём запрещённого - ума не приложу.
Может кто сталкивался с такой проблемой?
Ниже текст исходника
Код: Выделить всё
.linkform 'raslistr_01' prototype is 'raslistr'
.group 'fullone'
.nameinlist'Полная форма расчетного листка'
.var
PeriodStr : string;
.endvar
.fields
CommonFormHeader
.endfields
^
.fields
NPred
! Mes God
PeriodStr
Podr Tabn FIO
ПодраздРаботника
N1 Okl
Msro Koldn Kolch Kod Nopl Summaop
Nachisl Neobl
FondDn FondCh
FaktDn FaktCh
PlanDn PlanCh
PaidDn PaidCh
Msru Kodud Nudr Summaud
Uder
str_Dolg1 Dolg1
str_Dolg2 Dolg2
Msrn Kodn Nudn Summan
Nenach
FOT_NALCODE FOT_NALNAME FOT_NALSUM
str4 доход str1 Годовой_доход str2 Налог
str6 Дополнит_налог str5 Дополнит_доход
str7 Пенс_Фонд str8 Пенс_Фонд_Район
ДоходИмЛьготу Вычеты
str9 Мат_Пом str10 Скид_МатПом
str_alter1 Сум_Подарки str_alter2 Сум_ПодаркиЛгот
pmCodeDoh pmSumDoh pmCodeVych pmSumVych
str_Необлагаемая_сумма
str11 НА_Себя str12 НА_Детей str13 Скидки
str14 ПРедМестоРАб
ESN_NAME ESN_SUMVIPL ESN_SUMNAL
Описание Код Дни Часы Дата_с Дата_по
.endfields
Предприятие :^
.{ RListMainLoop CheckEnter
.if cc0r
.begin
if(PDO_PeriodEnding = Date(Last_Day(PDO_PeriodEnding), month(PDO_PeriodEnding), year(PDO_PeriodEnding)))
PeriodStr :='за '+Mes+' месяц '+String(God)+' г.'
else
PeriodStr :='за период с '+String(PDO_PeriodBeginning)+' по '+String(PDO_PeriodEnding)
end.
Подразд Таб.номер Фамилия И.О.
^ ^ ^ ^
Подразделение сотрудника :^
^ Тарифная ставка/Оклад &'#&&&&&&&&&&&&&&&&&
М-ц Кол.дн Часов Код Наименование вида оплат(удержаний) СУММА
.{ RListNachLoop CheckEnter
^ ^ ^ ^ ^ ^
.}
НАЧИСЛЕНО.... ^
СУММА, НЕ ОБЛАГАЕМАЯ НАЛОГОМ.... ^
ФОНД ВРЕМЕНИ.... &&.&дн. &&&.&&ч.
ФАКТИЧЕСКИ ОТРАБОТАНО ВРЕМЕНИ.... &&.&дн. &&&.&&ч.
.if CRPLANDAYS
ПЛАНОВОЕ ВРЕМЯ.... &&.&дн. &&&.&&ч.
.end
.if CRPAIDDAYS
ОПЛАЧИВАЕМОЕ ВРЕМЯ.... &&.&дн. &&&.&&ч.
.end
.{ RListUderLoop CheckEnter
^ ^ ^ ^
.}
УДЕРЖАНО.... ^
^ ^
^ ^
.{ RListNeNachLoop CheckEnter
^ ^ ^ ^
.}
.if NENER
НЕНАЧИСЛЯЕМЫЙ ДОХОД... ^
.end
.if CNALOGFOT
Номер налога Наименование налога Сумма Налога
.{ FOTLoop CheckEnter
^ ^ ^
.}
.end
^ ^ ^ ^ ^ ^
^ ^ ^ ^
.if FIELDSPENS
^ ^ ^ ^
.end
.if PRINTMATPODAR
= Виды доходов имеющие налоговые вычеты.Доход ^ Вычеты ^=
.if PRINTMAT
^ ^ ^ ^
.end
.if PRINTPODAR
^ ^ ^ ^
.end
.{ TabHelpLoop CheckEnter
Доход ^ ^ Вычет ^ ^
.}
.end
.if PRINTSUMNEOBLAG
^
^ ^ ^ ^
^ ^ ^ ^
.end
!.}
.if PRINTESN
============================= Е С Н ================================
Название фонда Налоговая база Сумма налога
.{ ESNLoop CheckEnter
^ ^ ^
.}
.end
.if CC4R
=========================== Неявки ===============================
.{ nejav CheckEnter
^(@@@@@)&&&&дн. &&&&&&&.&&ч. C ^ По ^
.}
.end
.end
.}
.endform
