V7.7 Рарус. ТехКарта программно, кто-нибудь сможет помочь?

[Woodall]

Доброго всем времени суток!

Так и не смог найти ответ на вопрос на форуме.
Вопрос состоит в следующем:
Позаказное индивидуальное мебельное производство, т.е. все проекты разные. Разработка проектов ведется в К3. Задача: автоматизировать передачу данных из К3 в 1С. Стандартный модуль загрузки заказов из К3 формирует Множественное задание на производство, которое нам не подходит. Попробовали переделать модуль на формирование Задания на производство, после импорта материалы СРАЗУ списываются. Получилось только создание техкарты, с материалами нет проблем, а вот как в нее программно добавить производственные операции?

Хотелось бы вот этот код изменить типа:
Если КодНоменклатуры=«такой-то» тогда добавить материал иначе добавить операцию

ДокТехКарта=СоздатьОбъект("Документ.ТехнологическаяКарта");
Для к=НомерЗаписи по БД_Материалы.КоличествоЗаписей() Цикл
КодНоменклатуры=СокрЛП(БД_Материалы.MATID);
НаимНоменклатуры=СокрЛП(БД_Материалы.MATNAME);
Номенклатура=ПолучитьНоменклатуру(КодНоменклатуры,НаимНоменклатуры,"Материалы");
КодЕд=СокрЛП(БД_Материалы.UNITID); НаимЕд=СокрЛП(БД_Материалы.UNITNAME);
ДокТехКарта.НоваяСтрока();
ДокТехКарта.Номенклатура=Номенклатура;
ДокТехКарта.Количество=БД_Материалы.COUNT;
ДокТехКарта.Единица=ПолучитьЕдиницу(Номенклатура,КодЕд,Наимед);
БД_Материалы.Следующая();
КонецЦикла;
тз=СоздатьОбъект("ТаблицаЗначений");
ДокЗадание.ВыгрузитьТабличнуюЧасть(тз);

Может кто-то сталкивался с таким вопросом, подскажите, пожалуйста, как можно это реализовать?

[Kivals]

Судя по коду - эта проверка должна выполняться внутри функции ПолучитьНоменклатуру() - смотрите ее

[Woodall]

Возможно, я не правильно сформулировал.
С интерпретацией кода проблем нет.
Есть проблема с занесением в табличную часть операций.
Судя по конфигуратору в документе ТехКарта, как в принципе и в других, которые могут содержать производственные операции, просто нет такой таблицы значений. Такое ощущение, что для 1С производственная операция что-то абстрактное и имеет вес только при проводке Наряда. В коде загрузки формы ТехКарты есть функции добавления различных закладок, где присутствуют производственные операции, но это форма, и код там совсем непростой, особенно для "продвинутого юзера", каковым я являюсь . Причем когда создаешь техкарту врукопашную, на закладку операии невозможно перейти пока ее не запишешь. Может стоит сначала запустить цикл для материалов, записать, а потом добавить операции???
В любом случае спасибо за ответ

[Kivals]

Я не работал с рарусовскими конфигурациями, кроме как Общепит, и то немного - потому подробностей не знаю.
Вполне возможно, что они настроены таким образом, что там возможно ручное редактирование операций, и вполне логично, появятся они только после записи. К сожалению в этом случае только придется разбираться в коде.

Может стоит сначала запустить цикл для материалов, записать, а потом добавить операции???

Звучит очень логично - стоит попробовать

[Woodall]

Тогда, если можно, еще один маленький вопрос:
раз уж их нет в кофигураторе, где можно посмотреть, куда они записываются эти присовокупленные параметры, которые вводятся на дополнительных закладках форм?

[Kivals]

Покажите хотя бы скриншот этой "дополнительной закладки"

[Woodall]

Покопавшись вот что нашел:
В документе Технологическая карта только одна табличная часть-для материалов.
В модуле формы технологической карты в процедуре ПриЗаписи() операции записываются в справочник Таблица производственных операций.
Ниже код формы:

Код:

Процедура ПриЗаписи()
АвтоВремяТекущее(); 
Записан=глДокументПриЗаписи(Контекст);
СтатусВозврата(Записан); Если Записан=0 Тогда Возврат; КонецЕсли;

Если тзОпераций.КоличествоСтрок()>0 Тогда
Спр=СоздатьОбъект("Справочник.ТаблицаПроизводственныхОпераций");
Если Выбран()=0 Тогда Записать(); КонецЕсли;
тзОпераций.ВыбратьСтроки();
Пока тзОпераций.ПолучитьСтроку()=1 Цикл
Если ПустоеЗначение(тзОпераций.Элемент)=1 Тогда
Спр.Новый();
Спр.Документ=ТекущийДокумент();

Иначе Спр.НайтиЭлемент(тзОпераций.Элемент);
КонецЕсли;
Спр.ПроизводственнаяОперация=тзОпераций.ПроизводственнаяОперация;
Спр.Количество=тзОпераций.Количество;
Спр.НеИзмКоличество=?(тзОпераций.НеИзмКоличество=2,1,0);
Спр.Порядок=тзОпераций.Порядок;
Спр.Записать();
Если Спр.ПометкаУдаления()=1 Тогда Спр.СнятьПометкуУдаления(); КонецЕсли; 
КонецЦикла;
КонецЕсли;

Добавлено через 18 секунд:
Вроде все хорошо, но моих скудных навыков VBA не хватает, чтобы скрутить вместе документ Технологическая карта и справочник Таблица производственных операций
Что не так в моем коде?:

Код:

Спр=СоздатьОбъект("Справочник.ТаблицаПроизводственныхОпераций");
СпрОпер=СоздатьОбъект("Справочник.ПроизводственныеОперации");
Для к=НомерЗаписи по БД_Материалы.КоличествоЗаписей() Цикл
Если БД_Материалы.Ключ.CUSTID<>БД.CUSTID Тогда Прервать; КонецЕсли;
Если Число(БД_Материалы.SORT)>5 Тогда //Ругается, что сначала надо установить объект на запись
Спр.Новый();
Спр.Документ=ДокЗадание.НомерДок;
ПрОперация=ПолучитьОперацию(БД_Материалы.MATNAME);
Спр.Количество=БД_Материалы.COUNT; 
Спр.ПроизводственнаяОперация=ПрОперация;
Спр.Записать();
КонецЕсли;
БД_Материалы.Следующая();
КонецЦикла; 

[Kivals]

1. При чем тут VBA в вопросе по 1С?
2. А что есть БД_Материалы?
3. Обрамляй код тегами: [code]Код[/code] и форматируй его отступами

[Woodall]

1. При чем тут VBA в вопросе по 1С?

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

2. А что есть БД_Материалы?

Импортируемый объект .dbf, в котором содержатся данные о необходимых материалах и работах, ну или XBase, не знаю как правильней

3. Обрамляй код тегами: [code]Код[/code] и форматируй его отступами

Искренне извиняюсь, в следующий раз обязательно, видимо где-то пропустил, читая правила форума.

4. Практически все получилось, по крайней мере работает
кому интересно:

Код:

Спр.Документ=ДокЗадание.НомерДок;

заменил на

Код:

Спр.Документ=ДокЗадание.ТекущийДокумент();

правда на дбф ругается во втором цикле для операций, работа для "напильника" осталась:)

5. Тему можно закрывать, спасибо за участие.

[Kivals]

К слову: цикл по DBF обычно строится с использованием EOF(). Возможно просто произошел выход за пределы таблицы.
Если ругается на запись - проверь что ты в ПолучитьОперацию() передаешь значение, а не ссылку (похоже внутри этой функции происходит изменение).

Код:

// Сравни:
Функция ПолучитьОперацию(НаименованиеМатериала)
    НаименованиеМатериала = СокрЛП(НаименованиеМатериала);
КонецФункции
// И
Функция ПолучитьОперацию(Знач НаименованиеМатериала) // Ключевое слово "Знач"
    НаименованиеМатериала = СокрЛП(НаименованиеМатериала);
КонецФункции

В твоем случае нужен второй вариант

[Woodall]

К слову: цикл по DBF обычно строится с использованием EOF(). Возможно просто произошел выход за пределы таблицы.

Именно так оно и было. Перед вторым циклом нужно было перепозиционироваться

Код:

БД_Материлы.Первая()

Не успел найти EOF()=Последняя() и BOF()=Первая()?
А так все работает и не ругается 
Ещё раз спасибо

[Kivals]

EOF()=Последняя() и BOF()=Первая()?

Не понял вопроса.
EOF() == ВКонце(), Первая() == First()
Цикл выглядит так:

Код:

DBF.First()
Пока DBF.EOF()=0 Цикл
    ...
    DBF.Next();
КонецЦикла;