Профессиональные приемы работы в Microsoft Excel

Обмен опытом => Другие офисные программы => 1C => Тема начата: iron priest от 08.12.2009, 10:10

Название: Редакция ЖО
Отправлено: iron priest от 08.12.2009, 10:10
Хочу всетаки прилепить в обработку Алексея ЖО единицу измерения. решил уменьшить объем до выгрузки только ТМЦ. Изначально поэкспериментировал и сделал выгрузку справочника ТМЦ с указание единицы измерения:

Процедура Сформировать()
Таб=создатьобъект("Таблица");
Ит=создатьобъект("Справочник.ТМЦ");
ит.выбратьэлементы();
таб.вывестисекцию("секц");
Пока Ит.Получитьэлемент()=1 цикл
товар=ит.ПолнНаименование;
ед=ит.БазоваяЕдиница;
таб.вывестисекцию("секц");
//пока Ит.получитьэлемент()>0 цикл
// товар=ит.ПолнНаименование;
// ед=ит.БазоваяЕдиница;
КонецЦикла;


Таб.Показать();
КонецПроцедуры


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

Иначе
Ит.ВыбратьСубконто(1,,,,,,1);
Пока Ит.ПолучитьСубконто() = 1 Цикл
ПолнНаименование=Ит.субконто(1);
дебск=ит.скд();
кредск=ит.скк();
дебсккол=ит.скд("К");
кредсккол=ит.скк("К");
дебсн=ит.снд();
кредсн=ит.снк();
дебснкол=ит.снд("К");
кредснкол=ит.снк("К");
Таб.ВывестиСекцию("Секция");
КонецЦикла;
КонецЕсли;
КонецЦикла;
Таб.Показать();
КонецПроцедуры


но 1с мне выгружает все ТМЦ с единицей измерения "шт.". залез на форум программистов 1с, но они по данной теме ничего конкретного не предлагают. Может кто-то подскажет что к чему.

ЗЫ: на форуме сказали обратиться еще к справочнику "Единицы"  :-\



Название: Re: Редакция ЖО
Отправлено: iron priest от 16.12.2009, 16:04
сделал немного другую выгрузку по всем ТМЦ. может кому пригодится
Название: Re: Редакция ЖО
Отправлено: Шпец Докапыч от 24.12.2009, 06:55
Попробовал обработочку:
ИТ.ИспользоватьСубконто("ТМЦ");
{C:\ВЫГРУЗКА ТМЦ.ERT(7)}: Число фильтров субконто превысило допустимое значение!


Может что-то можно подкрутить?
Конфигурация: Штрих-М: Торговое предприятие PROF 4x.
Название: Re: Редакция ЖО
Отправлено: iron priest от 13.01.2010, 23:53
бог его знает, нада на работе подывыться

ЗЫ: первый раз такую конфу слышу :(


а как у вас в конфигураторе субконто товары называются? у меня ТМЦ, у вас может както иначе?