Программно создать номенклатуру в 7.7

Доброго времени суток!
Ситуация такая... Переношу номенклатуру из УСН 7.7 в ТиС. Обе хорошо переписаны. Решил написать 2 обработки: 1-я выгружает из УСН в dbf, вторая - загружает из dbf в ТиС. столкнулся с проблемой заполнения базовой единицы измерения. Подскажите, как в 7-ке работать с подчиненными справочниками??

0

даж не знаю что бы посоветовать.. пожалуй почитать ;)
По идее ведь выбираешь элемент из подчиненного справочника и присваиваешь это значение одному из реквизитов нужного элемента справочника

0

если бы все было так просто...

ед = СоздатьОбъект ("Справочник.ОКЕИ");
ед.НайтиПоНаименованию ("шт", 1);
спр = СоздатьОбъект ("Справочник.Номенклатура");
спр.Новый ();
спр.Наименование = "товар";
спр.БазоваяЕдиница = ед.ТекущийЭлемент ();
спр.Записать ();

вот это срабатывает без ошибок, но базовая единица не появляется ;)

0

погляди в отладчике - находится ли ед - может там просто пустое значение.

0

единица находится. а ед лежит ссылка на нее

0

Если спр. Единицы подчинен спр. Номенклатура, тогда надо сначало записать элемент номеклатуры без единицы, а потом уже записать единицу - потому что владельца сначала надо записать, а потом уже подчиненный справочник дергать.

та же самая фигня... базовой единицы нет :(

0

1. У спр.БазоваяЕдиница тип точно "Справочник.ОКЕИ"?

2. Справочник.ОКЕИ - подчиненный?

3. Что показывает отладчик на спр.БазоваяЕдиница после спр.Записать (); ?

0

Вот тебе пример :

Function RefFindC(Mode,Code)
RefC = CreateObject("Reference."+Mode);
if RefC.FindByCode(Code) = 0 then
RefC.New();
if Mode = "ОКЕИ" then
RefC.Code = Code;
endif;
RefC.Write();
Message("--->В справочник "+Mode+" добавлен элемент "+RefC.Наименование);
endif;
Return RefC.CurrentItem();
EndFunction
//-----------------------------------

Function RefFindD(Mode,Name)
RefD = CreateObject("Reference."+Mode);
RefD.UseOwner(ТекущийТовар);
if RefD.FindByDescr(Name) = 0 then
RefD.New();
if Mode = "Единицы" then
RefD.Code = TrimALL(DBF.Field105);
RefD.Наименование = DBF.Field106;
RefD.ОКЕИ = ОКЕИ;
RefD.Коэффициент = 1;
endif;
RefD.Наименование = Name;
RefD.Write();
Message("--->В справочник "+Mode+" добавлен элемент "+RefD.Наименование);
endif;
Return RefD.CurrentItem();
EndFunction
//**************************************** **********************************
Ref = CreateObject("Reference."+Mode);
// Создаем новый элемент - сокращено для экономии
if Mode = "Номенклатура" then
Ref.Write();
ТекущийТовар = Ref.CurrentItem();
ОКЕИ = RefFindC("ОКЕИ",TrimALL(DBF.Field105));
Ref.БазоваяЕдиница = RefFindD("Единицы",TrimALL(DBF.Field106) );
Ref.Write();
endif;

Добавлено:

Сообщение от Спартак ед = СоздатьОбъект ("Справочник.ОКЕИ"); ед.НайтиПоНаименованию ("шт", 1); спр = СоздатьОбъект ("Справочник.Номенклатура"); спр.Новый (); спр.Наименование = "товар"; спр.БазоваяЕдиница = ед.ТекущийЭлемент (); спр.Записать ();

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

0

vbs, чисто так - для саморазвития... разве нельзя сразу найти ед.НайтиПоНаименованию("шт", 0) и передавать ссылку?

0

Сообщение от KiR vbs, чисто так - для саморазвития... разве нельзя сразу найти ед.НайтиПоНаименованию("шт", 0) и передавать ссылку?

В справочнике "единицы" в ТиС обычно наименование и код равны 0

Добавлено: Точнее, надо создавать новую единицу (ибо товар новый) так:

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

спр.БазоваяЕдиница = единицы.ТекущийЭлемент ();
спр.Записать ();

0

всем спасибо!! завтра приду на работу - попробую :( отпишусь

0

vbs
большое спасибо!!! заработало :welcome:

0