Имя: Пароль:
1C
1С v8
Ошибка "слишком много параметров" в документе "Поступление ТМЗ и услуг"
0 Dina_Davids
 
11.02.13
16:08
Здравствуйте, 1С-ники!
Конфигурация: Бухгалтерия для Казахстана, редакция 2.0, разработка для Казахстана: «1С-Рейтинг», 2011 (2.0.9.7) - нетиповая
После обновления вышла ошибка...

{Документ.ПоступлениеТоваровУслуг.МодульОбъекта(1403,127)}: Слишком много фактических параметров (ДвиженияРегистровПодсистемыНДС)
       ДвиженияРегистровПодсистемыНДС(СтруктураШапкиДокумента, ТаблицыДокумента, ТаблицаПоУчастникамСовместнойДеятельности, Отказ, <<?>>Заголовок); (Проверка: Толстый клиент (обычное приложение))

Если закомментировать, тогда движений по НДС не будет...
Что делать? Подскажите,плииз
1 ДенисЧ
 
11.02.13
16:09
одно из двух... ИЛи криво обновил, или выпустили с ошибкой.
Откати обновление и повтори его внимательно

А ещё лучше посмотри на определение процедурыДвиженияРегистровПодсистемыНДС()
2 Stim
 
11.02.13
16:11
как минимум - оставить
ДвиженияРегистровПодсистемыНДС(СтруктураШапкиДокумента, ТаблицыДокумента, ТаблицаПоУчастникамСовместнойДеятельности, Отказ);
3 Dina_Davids
 
11.02.13
16:35
И как всегда спасибо большое Stim-у...
Твой ответ верно решил мою проблемку
4 Dina_Davids
 
11.02.13
16:59
Далее ошибка пошла
{Документ.ПоступлениеТоваровУслуг.Форма.ФормаДокумента.Форма(604,9)}: Ожидается ключевое слово 'КонецПроцедуры' ('EndProcedure')
       <<?>>КонецЕсли; (Проверка: Толстый клиент (обычное приложение))
{Документ.ПоступлениеТоваровУслуг.Форма.ФормаДокумента.Форма(619,66)}: Обнаружено логическое завершение исходного текста модуля
   мИсходноеСтруктурноеПодразделение = СтруктурноеПодразделение;<<?>> (Проверка: Толстый клиент (обычное приложение))
5 Dina_Davids
 
11.02.13
17:00
Исходный код:

Процедура ПриИзмененииЗначенияОрганизации()
   
   Если мОтображатьСтруктурныеПодразделения Тогда
       ПриИзмененииЗначенияСтруктурногоПодразделения();
   КонецЕсли;
   
   Если (мИсходнаяОрганизация = Организация И ЗначениеЗаполнено(мИсходнаяОрганизация))
        И НЕ ФлагИзмененияОрганизации Тогда
       Возврат;
   КонецЕсли;              

   мЗапросНаИзменениеСчетов = Ложь;

   //при смене организации очищаем номер документа, если он не пустой
   Если Не ПустаяСтрока(Номер) Тогда
       РаботаСДиалогами.СброситьУстановленныйКодНомерОбъекта(ЭтотОбъект, "Номер", ЭлементыФормы.ДействияФормы.Кнопки.Подменю1, ЭлементыФормы.Номер);        
   КонецЕсли;
   
   РаботаСДиалогами.УстановитьЗаголовокЭлементуУправленияУчитыватьКПН(Организация, ЭлементыФормы.УчитыватьКПН);
   
   // Выполняем общие действия для всех документов при изменении Организация.
   РаботаСДиалогами.ПриИзмененииЗначенияОрганизации(ЭтотОбъект, глТекущийПользователь, мУчетнаяПолитикаПоНалоговомуУчету);
   
   ОрганизацияПлательщикНалогаНаПрибыль = ПроцедурыНалоговогоУчета.ПолучитьПризнакПлательщикаНалогаНаПрибыль(Организация, Дата, мУчетнаяПолитикаПоНалоговомуУчету) и не (ВидОперации = Перечисления.ВидыОперацийПоступлениеТоваровУслуг.ВПереработку);    
   ПроцедурыНалоговогоУчета.ПриИзмененииПризнакаОтраженияВНалоговомУчете(Организация, Дата, УчитыватьКПН, мУчетнаяПолитикаПоНалоговомуУчету, Истина);    
   
   ПроцедурыНалоговогоУчета.ЗаполнитьВидУчетаНУ(УчитыватьКПН, ВидУчетаНУ);
   
   мУчетнаяПолитикаПоБухгалтерскомуУчету = Неопределено;
   ПоддержкаУчетаВременныхРазниц = ?(ВидОперации = Перечисления.ВидыОперацийПоступлениеТоваровУслуг.ВПереработку, Ложь, ОрганизацияПлательщикНалогаНаПрибыль И ПроцедурыНалоговогоУчета.ПоддержкаУчетаВременныхРазницПоНалогуНаПрибыль(Организация, Дата, мУчетнаяПолитикаПоБухгалтерскомуУчету));
   
   // Выполняем установку реквизитов налогового учета в зависимости от параметров учетной политики организации.        
   УстановитьВидимость();

   Сделка = Неопределено;
   

   // Могли поменять договор.
   ПриИзмененииДоговора();
   Если (Товары.Количество() > 0 ИЛИ Услуги.Количество() > 0) И мЗапросНаИзменениеСчетов = Ложь
       Тогда Ответ = Вопрос("Изменилась организация документа. Установить в табличных частях ""ТМЗ"" и ""Услуги""
                      |счета бухгалтерского и налогового учета в соответствии со значениями по умолчанию?",
                       РежимДиалогаВопрос.ДаНет, , , "Изменения счетов учета номенклатуры (услуг)");
       Если Ответ = КодВозвратаДиалога.Да Тогда
           Если Товары.Количество() > 0 Тогда
               ЗаполнитьСчетаУчетаВТабЧасти(Товары, "Товары", Истина, ВидимостьНалоговогоУчета);
           КонецЕсли;
           Для Каждого СтрокаТабличнойЧасти Из Услуги Цикл
               Для Счетчик = 1 По 3 Цикл
                   СтрокаТабличнойЧасти["СубконтоЗатратБУ" + Счетчик] = Неопределено;
                   СтрокаТабличнойЧасти["СубконтоЗатратНУ" + Счетчик] = Неопределено;
               КонецЦикла;
               // Заполняем реквизиты табличной части.
               ЗаполнитьСчетаУчетаВСтрокеТабЧастиРегл(СтрокаТабличнойЧасти, "Услуги", Истина, ВидимостьНалоговогоУчета);
           КонецЦикла;
       КонецЕсли;
   КонецЕсли;
       мЗапросНаИзменениеСчетов = Ложь;
       КонецЕсли;

   Для Каждого СтрокаУслуги Из Услуги Цикл
       
       ПроцедурыБухгалтерскогоУчета.ПроверитьВладельцаСубконтоПодразделение(СтрокаУслуги,
                                               глТекущийПользователь,
                                               Организация,
                                               Новый Структура("НазваниеСубконтоБУ1, НазваниеСубконтоБУ2, НазваниеСубконтоБУ3,
                                                               |СубконтоЗатратБУ1, СубконтоЗатратБУ2, СубконтоЗатратБУ3",
                                                               "СубконтоЗатратБУ1", "СубконтоЗатратБУ2", "СубконтоЗатратБУ3",
                                                               СтрокаУслуги.СубконтоЗатратБУ1, СтрокаУслуги.СубконтоЗатратБУ2, СтрокаУслуги.СубконтоЗатратБУ3));
                                                               
   КонецЦикла;

   мИсходнаяОрганизация = Организация;
   мИсходноеСтруктурноеПодразделение = СтруктурноеПодразделение;
КонецПроцедуры
6 Митор
 
11.02.13
17:03
мЗапросНаИзменениеСчетов = Ложь;
    --->   КонецЕсли;

Конецесли  лишнее
7 Dina_Davids
 
11.02.13
17:06
(6) Митор!
Благодарю!
Оптимист верит, что мы живем в лучшем из миров. Пессимист боится, что так оно и есть.