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

@deeller · Регистрация: 20.04.2011

Author24 — интернет-сервис помощи студентам

доброго времени суток! пишу программу на делфи, которая будет работать с 1с. не могли бы вы помочь мне с кодом 1с который будет формировать документ списаниеТМЦ и для примера заполнение 1 реквизита шапки(остальные по примеру сам сделаю) и ТЧ.

Добавлено через 2 часа 40 минут
есть вот такой код:

1C

Процедура Сформировать()
Док=СоздатьОбъект("Документ.СписаниеТМЦ");
фирмы=СоздатьОбъект("Справочник.Фирмы");
склад=СоздатьОбъект("Справочник.Склады");
Прод=СоздатьОбъект("Справочник.Номенклатура");
Док.Новый();     
фирмы.НайтиПоКоду("00001");           
склад.НайтиПоКоду("00002"); 
Прод.НайтиПоКоду("2923095");
Док.фирма =фирмы.текущийэлемент();
Док.склад=склад.текущийэлемент(); 
Док.НоваяСтрока();
Док.Номенклатура=Прод.текущийэлемент(); 
Док.Количество=10;
Док.Записать();
КонецПроцедуры

а вот эта строка почему то не выполняется

1C

1	Док.Номенклатура=Прод.текущийэлемент();

в итоге формируется документ вноситься количество,а номеклатура в ТЧ не заносится, товар с таким кодом точно есть подскажите в чем дело?

@mamedovvms · 25.11.2011, 14:05

1.Номер точно текстовый????
2.Попробуйте сделать так

1C

1
2
3

Если Прод.НайтиПоКоду("2923095") = 0 Тогда
 Сообщить("Элемент не найден");
КонецЕсли;

Добавлено через 8 минут
К стати а что за конфигурация

@deeller · 25.11.2011, 14:08 **[ТС]**

ккс магазин

@mamedovvms · 25.11.2011, 14:09

Ну что попробовали сделать с сообщением

@deeller · 25.11.2011, 14:20 **[ТС]**

да попробовал и вправду пишет что код не найден, хотя тип текстовый и длина 8... попробую по наименованию поиск сделать

Добавлено через 2 минуты
но наименованию пишет тоже что не найден элемент в чем может быть касяк?

Добавлено через 5 минут
разобрался нужно было передавать еще режим поиска

@duk337 · 25.11.2011, 14:20

Сообщение от deeller

есть вот такой код:

Код

Процедура Сформировать()
Док=СоздатьОбъект("Документ.СписаниеТМЦ");
фирмы=СоздатьОбъект("Справочник.Фирмы");
склад=СоздатьОбъект("Справочник.Склады");
Прод=СоздатьОбъект("Справочник.Номенклатура");
Док.Новый();     
фирмы.НайтиПоКоду("00001");           
склад.НайтиПоКоду("00002"); 
Прод.НайтиПоКоду("2923095");
Док.фирма =фирмы.текущийэлемент();
Док.склад=склад.текущийэлемент(); 
Док.НоваяСтрока();
Док.Номенклатура=Прод.текущийэлемент(); 
Док.Количество=10;
Док.Записать();
КонецПроцедуры

а вот эта строка почему то не выполняется

Код

Док.Номенклатура=Прод.текущийэлемент();

в итоге формируется документ вноситься количество,а номеклатура в ТЧ не заносится, товар с таким кодом точно есть подскажите в чем дело?

Странно. Всё правильно.
Переменная Прод дублирует идентификатор?
Прод.порядокКодов(); ?
а так?
Прод.НайтиПоКоду(2923095);
или тупо
Док.Номенклатура=Прод
- хотя явно не в этом дело, а не находит элемент или загоняет не в ту переменную.

В отладчик 1С лезть придётся?

@deeller · 25.11.2011, 14:31 **[ТС]**

заменил
на вот эту строку

Код

Прод.НайтиПоНаименованию("Баклажаны свеж.(сал.цех)",0)

теперьработает

Добавлено через 8 минут
а подскажите еще такой момент. при формировании документа списания из 1с при выборе номенклатуры в ТЧ выбирается еще и цена товара, во откуда она берется? как можно определить? или как сделать чтобы при программном формировании документа получалось тоже самое

@duk337 · 25.11.2011, 14:37

Ивент при изменении ТЧ.Номенклатура. Что-то типа НайтиЦенуТовара(Номенклатура). надо глянуть, что изпользуется при вводе на основании - и сделать так же.
В объекте Док доступен модуль документа, проки с "Экспорт".

Добавлено через 1 минуту
В свойствах колонки формула
глПересчетТаблЧасти(Контекст,Форма.ТекущаяКолонка())

Добавлено через 24 секунды
Искать её в глобальном модуле

@deeller · 25.11.2011, 14:42 **[ТС]**

в модуле документа ничего найти не могу "цена" встречаеться только в комменте. а свойства колонки формула это где? чет в 7 не могу найти глобальный модуль

@mamedovvms · 25.11.2011, 14:53

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

1C

1
2
3

Цена = СоздатьОбъект("Справочник.Цены");
Цена.ИспользоватьВладельца(Прод.ТекущийЭлемент());
Док.Цена = Цена.Цена.Получить(ТекущаяДата());

Вроде так

@deeller · 25.11.2011, 14:55 **[ТС]**

спасибо щас попробую, отпишусь

@mamedovvms · 25.11.2011, 14:56

Только я точно не помню как называется справочник толи Цена Толи Цены

@deeller · 25.11.2011, 16:17 **[ТС]**

Вот такой код наваял, но цену все равно не вытаскивает.

1C

Процедура Сформировать()
Док=СоздатьОбъект("Документ.СписаниеТМЦ");
фирмы=СоздатьОбъект("Справочник.Фирмы");
склад=СоздатьОбъект("Справочник.Склады");
Прод=СоздатьОбъект("Справочник.Номенклатура"); 
Цена=СоздатьОбъект("Справочник.Цены"); 
Прод.НайтиПоНаименованию("Баклажаны свеж.(сал.цех)",0);
Цена.ИспользоватьВладельца(Прод.ТекущийЭлемент());
Док.Новый();     
фирмы.НайтиПоКоду("00001");           
склад.НайтиПоКоду("00002"); 
Док.фирма =фирмы.текущийэлемент();
Док.склад=склад.текущийэлемент(); 
Док.НоваяСтрока();
Док.Номенклатура=Прод.текущийэлемент(); 
Док.Количество=10;  
Док.Цена=Цена.Цена.Получить(ТекущаяДата());
Док.Записать();
КонецПроцедуры

смотрел справочник "цены" чето там о номеклатуре ни слова нету...

@duk337 · 25.11.2011, 16:33

Сообщение от deeller

в модуле документа ничего найти не могу "цена" встречаеться только в комменте. а свойства колонки формула это где? чет в 7 не могу найти глобальный модуль

Проще взять так, как оно написано. Глобальник найти на рис.
Цена.ИспользоватьВладельца надо по каждой номенклатурине

@deeller · 25.11.2011, 16:43 **[ТС]**

уже нашел функцию в глобальном модуле, вроде бы она, но в нее передается чтото многовато параметров... и если честно не сильно представляю как из делфи вызвать функцию глобального модуля

@duk337 · 25.11.2011, 16:48

Сообщение от deeller

уже нашел функцию в глобальном модуле, вроде бы она, но в нее передается чтото многовато параметров... и если честно не сильно представляю как из делфи вызвать функцию глобального модуля

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

@deeller · 25.11.2011, 16:54 **[ТС]**

1C

Цена.ИспользоватьВладельца(Прод.ТекущийЭлемент()); 
Цена.ВыбратьЭлементы();               
Пока цена.ПолучитьЭлемент()  = 1 Цикл    
    ценаН=цена.ТекущийЭлемент();
    сообщить (ЦенаН.цена.Получить(ТекущаяДата()));
КонецЦикла;

выводит 2 раза одну и туже сумму ну почему одну и ту же понятно а 2 раза потому что цена менялась 2 раза на эту позицию?

@duk337 · 25.11.2011, 16:57

Сообщение от deeller

Код

Цена.ИспользоватьВладельца(Прод.ТекущийЭлемент()); 
Цена.ВыбратьЭлементы();               
Пока цена.ПолучитьЭлемент()  = 1 Цикл    
    ценаН=цена.ТекущийЭлемент();
	сообщить (ЦенаН.цена.Получить(ТекущаяДата()));
КонецЦикла;

выводит 2 раза одну и туже сумму ну почему одну и ту же понятно а 2 раза потому что цена менялась 2 раза на эту позицию?

Нет. Там, наверное, по типам цен ещё. А дата одна ведь

@deeller · 28.11.2011, 09:36 **[ТС]**

встал в тупик с последним полем документа - коэффициент, нашел его в справочнике единицы. думал получиться вытащить его как цену:

1C

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

но выводит 0, не правильно делаю или не оттуда вытаскиваю?

@duk337 · 28.11.2011, 10:36

Сообщение от deeller

встал в тупик с последним полем документа - коэффициент, нашел его в справочнике единицы. думал получиться вытащить его как цену:

Код

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

но выводит 0, не правильно делаю или не оттуда вытаскиваю?

Не парься. Коэфф - это перевод из единицы в единицу, и имеет смысл, когда ЕИ в доке отличается от ЕИ хранения остатков. Ставь 1.

@mamedovvms 2923 / 844 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	25.11.2011, 14:56	12
	Только я точно не помню как называется справочник толи Цена Толи Цены 1

@deeller 39 / 39 / 4 Регистрация: 20.04.2011 Сообщений: 789 Записей в блоге: 1
	25.11.2011, 16:43 [ТС]	15
	уже нашел функцию в глобальном модуле, вроде бы она, но в нее передается чтото многовато параметров... и если честно не сильно представляю как из делфи вызвать функцию глобального модуля 0

@duk337 2955 / 1767 / 82 Регистрация: 03.11.2011 Сообщений: 8,280
	25.11.2011, 16:57	18
	Сообщение от deeller Код Цена.ИспользоватьВладельца(Прод.ТекущийЭлемент()); Цена.ВыбратьЭлементы(); Пока цена.ПолучитьЭлемент() = 1 Цикл ценаН=цена.ТекущийЭлемент(); сообщить (ЦенаН.цена.Получить(ТекущаяДата())); КонецЦикла; выводит 2 раза одну и туже сумму ну почему одну и ту же понятно а 2 раза потому что цена менялась 2 раза на эту позицию? Нет. Там, наверное, по типам цен ещё. А дата одна ведь 0

@deeller 39 / 39 / 4 Регистрация: 20.04.2011 Сообщений: 789 Записей в блоге: 1
	25.11.2011, 14:08 [ТС]	3
	ккс магазин 0

@mamedovvms 2923 / 844 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	25.11.2011, 14:09	4
	Ну что попробовали сделать с сообщением 0

@deeller 39 / 39 / 4 Регистрация: 20.04.2011 Сообщений: 789 Записей в блоге: 1
	25.11.2011, 14:20 [ТС]	5
	да попробовал и вправду пишет что код не найден, хотя тип текстовый и длина 8... попробую по наименованию поиск сделать Добавлено через 2 минуты но наименованию пишет тоже что не найден элемент в чем может быть касяк? Добавлено через 5 минут разобрался нужно было передавать еще режим поиска 0

@duk337 2955 / 1767 / 82 Регистрация: 03.11.2011 Сообщений: 8,280
	25.11.2011, 14:20	6
	Сообщение от deeller есть вот такой код: Код Процедура Сформировать() Док=СоздатьОбъект("Документ.СписаниеТМЦ"); фирмы=СоздатьОбъект("Справочник.Фирмы"); склад=СоздатьОбъект("Справочник.Склады"); Прод=СоздатьОбъект("Справочник.Номенклатура"); Док.Новый(); фирмы.НайтиПоКоду("00001"); склад.НайтиПоКоду("00002"); Прод.НайтиПоКоду("2923095"); Док.фирма =фирмы.текущийэлемент(); Док.склад=склад.текущийэлемент(); Док.НоваяСтрока(); Док.Номенклатура=Прод.текущийэлемент(); Док.Количество=10; Док.Записать(); КонецПроцедуры а вот эта строка почему то не выполняется Код Док.Номенклатура=Прод.текущийэлемент(); в итоге формируется документ вноситься количество,а номеклатура в ТЧ не заносится, товар с таким кодом точно есть подскажите в чем дело? Странно. Всё правильно. Переменная Прод дублирует идентификатор? Прод.порядокКодов(); ? а так? Прод.НайтиПоКоду(2923095); или тупо Док.Номенклатура=Прод - хотя явно не в этом дело, а не находит элемент или загоняет не в ту переменную. В отладчик 1С лезть придётся? 1

@deeller 39 / 39 / 4 Регистрация: 20.04.2011 Сообщений: 789 Записей в блоге: 1
	25.11.2011, 14:31 [ТС]	7
	заменил на вот эту строку Код Прод.НайтиПоНаименованию("Баклажаны свеж.(сал.цех)",0) теперьработает Добавлено через 8 минут а подскажите еще такой момент. при формировании документа списания из 1с при выборе номенклатуры в ТЧ выбирается еще и цена товара, во откуда она берется? как можно определить? или как сделать чтобы при программном формировании документа получалось тоже самое 0

@duk337 2955 / 1767 / 82 Регистрация: 03.11.2011 Сообщений: 8,280
	25.11.2011, 14:37	8
	Ивент при изменении ТЧ.Номенклатура. Что-то типа НайтиЦенуТовара(Номенклатура). надо глянуть, что изпользуется при вводе на основании - и сделать так же. В объекте Док доступен модуль документа, проки с "Экспорт". Добавлено через 1 минуту В свойствах колонки формула глПересчетТаблЧасти(Контекст,Форма.ТекущаяКолонка()) Добавлено через 24 секунды Искать её в глобальном модуле 0

@deeller 39 / 39 / 4 Регистрация: 20.04.2011 Сообщений: 789 Записей в блоге: 1
	25.11.2011, 14:42 [ТС]	9
	в модуле документа ничего найти не могу "цена" встречаеться только в комменте. а свойства колонки формула это где? чет в 7 не могу найти глобальный модуль 0

@deeller 39 / 39 / 4 Регистрация: 20.04.2011 Сообщений: 789 Записей в блоге: 1
	25.11.2011, 14:55 [ТС]	11
	спасибо щас попробую, отпишусь 0

@duk337 2955 / 1767 / 82 Регистрация: 03.11.2011 Сообщений: 8,280
	25.11.2011, 16:33	14
	Сообщение от deeller в модуле документа ничего найти не могу "цена" встречаеться только в комменте. а свойства колонки формула это где? чет в 7 не могу найти глобальный модуль Проще взять так, как оно написано. Глобальник найти на рис. Цена.ИспользоватьВладельца надо по каждой номенклатурине Миниатюры 0

@duk337 2955 / 1767 / 82 Регистрация: 03.11.2011 Сообщений: 8,280
	25.11.2011, 16:48	16
	Сообщение от deeller уже нашел функцию в глобальном модуле, вроде бы она, но в нее передается чтото многовато параметров... и если честно не сильно представляю как из делфи вызвать функцию глобального модуля Она должна быть видима в аппликейшене. Прямо так и вызывай. Можно взять часть из неё, касающуюся цены. Уж разберёшься поди. А параметров много, потому что она во всех доках используется. Вместо "Контекст" можно отправлять "Док", колонка = "Номенклатура" ну и т.д. опять же проще написать проку в 1С в глобальнике с директивой "Экспорт" и вызвать Апп1С.ПрокаМояПрока() Ты ведь через ОЛЕ юзаешь базу? 0

@duk337 2955 / 1767 / 82 Регистрация: 03.11.2011 Сообщений: 8,280
	28.11.2011, 10:36	20
	Сообщение от deeller встал в тупик с последним полем документа - коэффициент, нашел его в справочнике единицы. думал получиться вытащить его как цену: Код коэфф=СоздатьОбъект("Справочник.Единицы"); коэфф.ИспользоватьВладельца(Прод.ТекущийЭлемент()); коэфф.ВыбратьЭлементы(); коэффН=коэфф.ТекущийЭлемент(); сообщить(КоэффН.Коэффициент.Получить(ТекущаяДата()); но выводит 0, не правильно делаю или не оттуда вытаскиваю? Не парься. Коэфф - это перевод из единицы в единицу, и имеет смысл, когда ЕИ в доке отличается от ЕИ хранения остатков. Ставь 1. 1