|
2
Ivan_495
17.03.14
✎
15:42
|
Процедура КодПоОКТМОПриИзменении(Элемент)
Если мОрганизацияЭтоЮрЛицо Тогда
ДокументОбъект2НДФЛ.КодИФНС = СправкиПоНДФЛ.КодНалоговогоОрганаПоОКАТО_КППиОрганизации(Организация, мОрганизацияЭтоЮрЛицо, Элемент.Значение);
ДокументОбъект2НДФЛ.ИмяФайла = СправкиПоНДФЛ.ИмяФайлаОбмена(Организация, ДокументОбъект2НДФЛ.Дата, мОрганизацияЭтоЮрЛицо, ДокументОбъект2НДФЛ.КодИФНС);
КонецЕсли;
КонецПроцедуры
|
|
|
3
Ivan_495
17.03.14
✎
15:53
|
что-то в это процедуре октмо не вижу, странно
бухи говорят после кода в ифнс д.б. октмо
Функция ИмяФайлаОбмена(Организация, Дата, ЭтоЮрЛицо = Неопределено, КодНО = Неопределено) Экспорт
Если ЭтоЮрЛицо = Неопределено Тогда
ЭтоЮрЛицо = ОбщегоНазначенияЗКПереопределяемый.ЭтоЮрЛицо(Организация);
КонецЕсли;
Параметры = ОбщегоНазначенияЗК.ПолучитьЗначенияРеквизитов(Организация, "КодИФНСПолучателя, КодИМНС, ИНН, КПП");
Возврат "NO_NDFL2"
+ "_" + ?(ЗначениеЗаполнено(Параметры.КодИФНСПолучателя), Параметры.КодИФНСПолучателя, ?(ЗначениеЗаполнено(КодНО),КодНО,Параметры.КодИМНС))
+ "_" + ?(ЗначениеЗаполнено(КодНО),КодНО,Параметры.КодИМНС)
+ "_" + ?(ЭтоЮрЛицо, СокрЛП(Параметры.ИНН) + СокрЛП(Параметры.КПП), СокрЛП(Параметры.ИНН))
+ "_" + Формат(Дата, "ДФ=ггггММдд")
+ "_" + Новый УникальныйИдентификатор();
КонецФункции // ИмяФайлаОбмена()
|
|