НДС у Предпринимателя

Новая тема
Показывать по 10 20 40 сообщений
я исправил в обработке место, де он определяет КПП - сразу стал все видть и заполнять... не знаю какие последствия, но на этапе заполнения - это сработало
Спасибо большое за поддержку
Как исправить сами разберетесь?
Разберусь, спасибо
Это что получается, ошибка в отчете, и исправлять самостоятельно. Тогда можно подробнее на этом месте? Где и что исправить, что бы с ИНН (КПП) было все нормально???
"Повторюсь, я не уверен, что это именно ошибка - может не догнал чего-то просто, но времени разбираться уже нет. Во всяком случае, после исправления у меня все заработало. Но, тем не менее, исправлять если будете - то на свой страх и риск :)

Заходим в конфигуратор. Файл - открыть. выбираем файл  "Каталог базы\ExtForms\Rp09q4.grp\NDS904.ERT"

В модуле обработки ищем процедурину "ЗаполнитьРеквизиты". В самомо ее начале следующий кусок:

Процедура ЗаполнитьРеквизиты( ИзмФирма=0 )
   
СписокДанных = СоздатьОбъект( "СписокЗначений" );
       
Если ИдентКонфигурации <> "NLGPL" Тогда

СписокДанных.Установить( "Контекст", Контекст );
СписокДанных.Установить( "Дата",     Дата2 );
СписокДанных.Установить( "ИНН",             """" );
СписокДанных.Установить( "КаталогХранения", """" );

Попытка
глПолучитьДанные( СписокДанных );  
Исключение
КонецПопытки;

ОргИНН = СписокДанных.Получить( "ИНН" );  
ИНН   = СРЕД(ОргИНН, 1, 10);                                        /// ИСПРАВЛЯТЬ ТУТ
КПП   = СРЕД(ОргИНН, 12,20);                                        /// И ТУТ

Иначе


Далее заменяем помеченные строки на

ИНН   = СРЕД(ОргИНН, 1, 12);
КПП   = СРЕД(ОргИНН, 13,20);

сохраняем и все...
Это пример для 3 раздела. При необходимости ту же процедуру проделать для файлов

NDS903.ERT
NDS905.ERT

и так далее..."
"Если Найти(ОргИНН, "\") = 0 Тогда
ИНН = Сред(ОргИНН, 1, 12);
КПП = """";
Иначе
ИНН = Сред(ОргИНН, 1, 10);
КПП = Сред(ОргИНН, 12, 20);
КонецЕсли;

так будет лучше мне кажется..."
разумеется :) я писал просто конкретно для базы предприниматель где :)
"
КонецЕсли;
// начало_____________________________________________________<­br> Если СтрДлина(ОргИНН) <> 12 Тогда
// Налогоплательщик - юр. лицо
ИНН = "00" + ИНН;
Иначе                                    
// Налогоплательщик - физ. лицо
ИНН = ОргИНН;
КПП = """";
КонецЕсли;
//конец_______________________________________________
Если  ПустоеЗначение(КаталогХранения)=1 Тогда
// Определяем каталог хранения из ИБ
КаталогХранения = СокрЛП(СписокДанных.Получить("КаталогХранения"));
КонецЕсли;          

ЗаполнитьИНН_КПП();



КонецПроцедуры // ЗаполнитьРеквизиты()

1с просто Забыла встваить кусок модуля. Интересно что в титульнике есть, а в разделах нет)). Такой кусок в 4 кв за 08г есть. имено он исключает проблему с каталогом)))"
Читают тему
(гостей: 1)

Быстрый переход