1С:Предприятие 7.x (общие вопросы-ответы, обсуждения)

[lidfut]

Добрый день! Такая вот проблема в 1с предприятие 7.7 Торговля и Склад редакция 9.2 Оптово розничная коф-я 7.70.941. Захожу Отчеты\Остатки ТМЦ\ сформировать ошибка ПечКол = ПечКол / ТЗ.ПечЕд.Коэффициент;
{Отчет.ОстаткиТМЦ.Форма.Мод уль(437)}: Деление на 0. Прочитал что в какой то номенклатуре не указана единиц измерения, через отладчик ее отловил, ед измерения указана, коэффициент тоже. Помогите разобраться в чем проблема, заранее спасибо!!!

[shkurpat]

1С:Предприятие 7.7 для Украины
Никто не сталкивался с таким...
В журнале отбора заказов, если контрагент не выбран в списке - отображаются все счета-фактуры, но только стоит выбрать конкретного контрагента, в список попадают только те счета, в которых в соответствующем пункте "заказ" выбрано "без заказа", а все в которых стоит договор не попадают...

[skub]

Помогите пож., не могу установить платформу 1с7.7.027 на Windows7 пишет:

"...
It may be posible to skip this check using the/NCRC command line switch
(NOT RECOMMENDED)"

[lazarsr]

Как в Торговли и склад вести 2 предприятия используя 1 справочник номенклатуры

В справочник фирм ввести 2 фирмы и вести учет по одной номенклатуре.
Настроить ведения учета по фирме, по складу, по фирме в целом.

[Lengua]

После обновления программы, как и ожидалось слетели настройки сделанные при ее установке. Одной из таких настроек являлась бартарная операция: на основании ПоступленияТМЦ автомотически проводилось СписаниеТМЦ, ОприходованиеТМЦ, Реализация
прописано было таким образом:
//код добавлен_Б
//добавлено 3 процедуры
Процедура ЗаписатьСписаниеТМЦ()
Перем ВидПодчДок;

ВидПодчДок = "СписаниеТМЦ";
СписаниеТМЦ = глНайтиПодчПоступлениюТМЦ Док(Контекст,ВидПодчДок);

Если ПустоеЗначение(СписаниеТМ? ?) = 0 Тогда
ДокСписТМЦ = СоздатьОбъект("Документ."+В? ?дПодчДок);
ДокСписТМЦ.НайтиДокумент(С писаниеТМЦ);
// глЗаполнитьШапкуНаОсн(Док? ?писТМЦ,ТекущийДокумент());

ДокСписТМЦ.Фирма = Фирма;
ДокСписТМЦ.Склад = Склад;
ДокСписТМЦ.Валюта = Валюта;
ДокСписТМЦ.Курс = Курс;
ДокСписТМЦ.Кратность = Кратность;
ДокСписТМЦ.Проект = Проект;

ТаблицаДокумента = СоздатьОбъект("ТаблицаЗнач ений");
ВыгрузитьТабличнуюЧасть(Т? ?блицаДокумента);

// очищаем наш документ
ДокСписТМЦ.УдалитьСтроки();

ТаблицаДокумента.ВыбратьС? ?роки();
Пока ТаблицаДокумента.Получить? ?троку() = 1 Цикл
ДокСписТМЦ.НоваяСтрока();
ДокСписТМЦ.Номенклатура= ТаблицаДокумента.Номенкла? ?ура;
ДокСписТМЦ.Количество = ТаблицаДокумента.Количест? ?о;
ДокСписТМЦ.Единица = ТаблицаДокумента.Единица;
ДокСписТМЦ.Коэффициент = ТаблицаДокумента.Коэффици? ?нт;
ДокСписТМЦ.Цена = ТаблицаДокумента.Цена;
ДокСписТМЦ.Сумма = ДокСписТМЦ.Цена * ДокСписТМЦ.Количество;
КонецЦикла; // по строкам основания
ДокСписТМЦ.Записать();
КонецЕсли;
КонецПроцедуры //ЗаписатьСписаниеТМЦ()

Процедура ЗаписатьОприходованиеТМЦ()
Перем ВидПодчДок;

ВидПодчДок = "ОприходованиеТМЦ";
ОприходованиеТМЦ = глНайтиПодчПоступлениюТМЦ Док(Контекст,ВидПодчДок);

Если ПустоеЗначение(Оприходова? ?иеТМЦ) = 0 Тогда
ДокОприходТМЦ = СоздатьОбъект("Документ."+В? ?дПодчДок);
ДокОприходТМЦ.НайтиДокуме? ?т(ОприходованиеТМЦ);
глЗаполнитьШапкуНаОсн(Док? ?приходТМЦ,ТекущийДокумент ());

ДокОприходТМЦ.Фирма = Фирма;
ДокОприходТМЦ.Склад = Склад;
ДокОприходТМЦ.ТипЦен = ТипЦен;
ДокОприходТМЦ.Валюта = Валюта;
ДокОприходТМЦ.Курс = Курс;
ДокОприходТМЦ.Кратность = Кратность;
ДокОприходТМЦ.Проект = Проект;

ТаблицаДокумента = СоздатьОбъект("ТаблицаЗнач ений");
ВыгрузитьТабличнуюЧасть(Т? ?блицаДокумента);

// очищаем наш документ
ДокОприходТМЦ.УдалитьСтро? ?и();

ТаблицаДокумента.ВыбратьС? ?роки();
Пока ТаблицаДокумента.Получить? ?троку() = 1 Цикл
ДокОприходТМЦ.НоваяСтрока( );
ДокОприходТМЦ.ВидТМЦ = ТаблицаДокумента.ВидТМЦ;
ДокОприходТМЦ.Номенклатур? ?= ТаблицаДокумента.Номенкла? ?ура;
ДокОприходТМЦ.Количество = ТаблицаДокумента.Количест? ?о;
ДокОприходТМЦ.Единица = ТаблицаДокумента.Единица;
ДокОприходТМЦ.Коэффициент = ТаблицаДокумента.Коэффици? ?нт;
ДокОприходТМЦ.Цена = Окр(ТаблицаДокумента.Цена/КоэффициентБартера,2);
ДокОприходТМЦ.Сумма = ДокОприходТМЦ.Цена * ДокОприходТМЦ.Количество;
КонецЦикла; // по строкам основания
ДокОприходТМЦ.Записать();
КонецЕсли;
КонецПроцедуры //ЗаписатьОприходованиеТМЦ()

Процедура ЗаписатьРеализацию()
Перем ВидПодчДок;

ВидПодчДок = "Реализация";
Реализация = глНайтиПодчПоступлениюТМЦ Док(Контекст,ВидПодчДок);

Если ПустоеЗначение(Реализация) = 0 Тогда
ДокРеализ = СоздатьОбъект("Документ."+В? ?дПодчДок);
ДокРеализ.НайтиДокумент(Ре ализация);
глЗаполнитьШапкуНаОсн(Док? ?еализ,ТекущийДокумент());

ДокРеализ.Фирма = Фирма;
ДокРеализ.Склад = Склад;
ДокРеализ.ТипЦен = ТипЦен;
////ДокРеализ.Контрагент = Контрагент;
////ДокРеализ.Договор = Договор;
ДокРеализ.УчитыватьНДС = УчитыватьНДС;
ДокРеализ.УчитыватьНП = УчитыватьНП;
ДокРеализ.Валюта = Валюта;
ДокРеализ.Курс = Курс;
ДокРеализ.Кратность = Кратность;
ДокРеализ.Проект = Проект;

СправКонтрагенты = СоздатьОбъект("Справочник.? ?онтрагенты");

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

ТаблицаДокумента = СоздатьОбъект("ТаблицаЗнач ений");
ВыгрузитьТабличнуюЧасть(Т? ?блицаДокумента);

// очищаем наш документ
ДокРеализ.УдалитьСтроки();

ОбщСумма = 0;
ТаблицаДокумента.ВыбратьС? ?роки();
Пока ТаблицаДокумента.Получить? ?троку()=1 Цикл
ОбщСумма =ОбщСумма+ТаблицаДокумента .Сумма;
КонецЦикла;
СуммаИтог = ОбщСумма-Окр(ОбщСумма/КоэффициентБартера,2);

СправНоменкл = СоздатьОбъект("Справочник.? ?оменклатура");

Если (СправНоменкл.НайтиПоНаиме нованию("Пересчет бартера",0) = 1)
И (СправНоменкл.ТекущийЭлеме нт().Родитель.Наименование = "Услуги") Тогда
ДокРеализ.НоваяСтрока();
ДокРеализ.Номенклатура = СправНоменкл.ТекущийЭлеме? ?т();
ДокРеализ.Количество = 1;
ДокРеализ.Единица = ДокРеализ.Номенклатура.Осн овнаяЕдиница;
ДокРеализ.Коэффициент =ДокРеализ.Единица.Коэффиц? ?ент;
ДокРеализ.Цена = СуммаИтог;
ДокРеализ.Сумма = ДокРеализ.Цена * ДокРеализ.Количество;
ДокРеализ.СтавкаНДС = ДокРеализ.Номенклатура.Ста вкаНДС;
глПересчетТаблЧасти(ДокРе? ?лиз,"СтавкаНДС");
Иначе
Сообщить("Не обнаружен элемент ""Пересчет бартера"" справочника ""Номенклатура""."+Разделите? ?ьСтрок+
"Создайте в справочнике элемент ""Товары/Услуги/Пересчет бартера"" с единицей измерения шт. и %НДС 18%.");
СтатусВозврата(0);
КонецЕсли;

ДокРеализ.Записать();
КонецЕсли;
КонецПроцедуры //ЗаписатьРеализацию()

После обновления ругется:
СписаниеТМЦ = глНайтиПодчПоступлениюТМЦ Док<<?>>(Контекст,ВидПодчДок);
{Документ.ПоступлениеТМЦ.Ф? ?рма.Модуль(1358)}: Функция не обнаружена (глНайтиПодчПоступлениюТМ? ?Док)
ОприходованиеТМЦ = глНайтиПодчПоступлениюТМЦ Док<<?>>(ДокументОснование,В? ?дПодчДок);
{Документ.ПоступлениеТМЦ.Ф? ?рма.Модуль(1396)}: Функция не обнаружена (глНайтиПодчПоступлениюТМ? ?Док)
Реализация = глНайтиПодчПоступлениюТМЦ Док<<?>>(Контекст,ВидПодчДок) ;
{Документ.ПоступлениеТМЦ.Ф? ?рма.Модуль(1436)}: Функция не обнаружена (глНайтиПодчПоступлениюТМ? ?Док)

Не могу понять какую формулу нужно прописатьИ? Помогите пожалуйста

[lazarsr]

Не могу понять какую формулу нужно прописатьИ? Помогите пожалуйста[/QUOTE]

Надо посмотреть могут ли вводиться на основании документы которые участвуют в этом бартере.

[Lengua]

В редакторе ввод на основании указан (Так как все документы вводятся на основании ПоступленияТМЦ указанно именно оно)
В диалоге тоже прописаны обозначения бартера и коэфициента.

[lazarsr]

В редакторе ввод на основании указан (Так как все документы вводятся на основании ПоступленияТМЦ указанно именно оно)
В диалоге тоже прописаны обозначения бартера и коэфициента.

Значит в глобальнике нет процедуры "глНайтиПодчПоступлениюТМ? ?Док"

[Lengua]

Спасибо помогло!

[lazarsr]

Спасибо помогло!

Это радует.