!!!!!!!!!!!!!!!1 Очередной "подарок" бухгалтерия 474 рел. !!!!!!!!!!!!!!!!!!
01.03.2006
15:35
#1
"Прибегают бухгалтера и говорят, что после перепроведения документов "Начисление налогов" развалился налоговый учет.
Полезли смотреть в модуль проведения и видим шедевр программистского мастерства от 1С профессионалов
Если ВидНалога.Код <> "ФСС_НС" Тогда
Операция.НоваяПроводка();
Операция.Кредит.Счет = СчетУчетаНалогов;
Операция.Кредит.НалогиИОтчисления = ВидНалога;
Операция.Кредит.СрокиУплаты = СрокУплаты;
ИначеЕсли ВидРасхода = Перечисление.ВидыРасходов.НеПринимаемые Тогда
Продолжить;
Иначе
Операция.НоваяПроводка();
КонецЕсли;
Получается, что для налога ФС_НС кредит проводки не заполняется никогда.
Пишем следующий код
Если ВидНалога.Код <> "ФСС_НС" Тогда
Операция.НоваяПроводка();
Операция.Кредит.Счет = СчетУчетаНалогов;
Операция.Кредит.НалогиИОтчисления = ВидНалога;
Операция.Кредит.СрокиУплаты = СрокУплаты;
ИначеЕсли ВидРасхода = Перечисление.ВидыРасходов.НеПринимаемые Тогда
Продолжить;
Иначе
Операция.НоваяПроводка();
=====================
Операция.Кредит.Счет = СчетУчетаНалогов;
Операция.Кредит.НалогиИОтчисления = ВидНалога;
Операция.Кредит.СрокиУплаты = СрокУплаты;
=====================
КонецЕсли;
и все работает хорошо.
Доколе можно? Или 1С не мытьем, так катаньем хочет перевести всех на кривую восьмерку? Или может очередной подарок франям к восьмому марта? Наверно на своих закрытых форумах уже все написали?
"
Полезли смотреть в модуль проведения и видим шедевр программистского мастерства от 1С профессионалов
Если ВидНалога.Код <> "ФСС_НС" Тогда
Операция.НоваяПроводка();
Операция.Кредит.Счет = СчетУчетаНалогов;
Операция.Кредит.НалогиИОтчисления = ВидНалога;
Операция.Кредит.СрокиУплаты = СрокУплаты;
ИначеЕсли ВидРасхода = Перечисление.ВидыРасходов.НеПринимаемые Тогда
Продолжить;
Иначе
Операция.НоваяПроводка();
КонецЕсли;
Получается, что для налога ФС_НС кредит проводки не заполняется никогда.
Пишем следующий код
Если ВидНалога.Код <> "ФСС_НС" Тогда
Операция.НоваяПроводка();
Операция.Кредит.Счет = СчетУчетаНалогов;
Операция.Кредит.НалогиИОтчисления = ВидНалога;
Операция.Кредит.СрокиУплаты = СрокУплаты;
ИначеЕсли ВидРасхода = Перечисление.ВидыРасходов.НеПринимаемые Тогда
Продолжить;
Иначе
Операция.НоваяПроводка();
=====================
Операция.Кредит.Счет = СчетУчетаНалогов;
Операция.Кредит.НалогиИОтчисления = ВидНалога;
Операция.Кредит.СрокиУплаты = СрокУплаты;
=====================
КонецЕсли;
и все работает хорошо.
Доколе можно? Или 1С не мытьем, так катаньем хочет перевести всех на кривую восьмерку? Или может очередной подарок франям к восьмому марта? Наверно на своих закрытых форумах уже все написали?
"
"Торговля и склад" (7.70.938) Документ "Списание ТМЦ"Комплексная рел. 460 внешняя примочка "Передача данных в ИФНС" ?
Читают тему
(гостей: 1)