Модераторы: stron
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Выборка товара из Справочник.Номенклатура ... по коду группы (нужен код, 1Cv77) 
V
    Опции темы
sergey_85
Дата 27.2.2009, 09:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 445
Регистрация: 17.4.2007
Где: Россия, Челябинск

Репутация: нет
Всего: 1
Привет! 

Как можно выбрать все товары по коду группы из справочника Номенклатура (1Cv77)
*нужен пример кода
 
Всем спасибо!




--------------------
A good design always pays off.
PM MAIL   Вверх
AkelaSQL
Дата 27.2.2009, 09:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 392
Регистрация: 14.9.2007
Где: Москва

Репутация: 6
Всего: 7
Код

Вариант №1

Перем ВыбГруппа, Запрос, ТекстЗапроса, ТЗ;

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

Если СпрНом.НайтиПоКоду("000001258",0) = 0 Тогда
    Возврат;
КонецЕсли;

ВыбГруппа = СпрНом.ТекущийЭлемент();

Если ВыбГруппа.ЭтоГруппа() = 0 Тогда
    Возврат;
КонецЕсли;

ТекстЗапроса = "
|Обрабатывать Все;
|Номенклатура = Справочник.Номенклатура.ТекущийЭлемент;
|Условие (Номенклатура В ВыбГруппа);
|";

Запрос = СоздатьОбъект("Запрос");

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
    Возврат;
КонецЕсли;

ТЗ = СоздатьОбъект("ТаблицаЗначений");
Запрос.Выгрузить(ТЗ,1,1);
ВыбГруппа = "";
Запрос = "";
ТекстЗапроса = "";


Добавлено через 5 минут и 52 секунды
Код

Вариант №2

Перем ВыбГруппа, СЗ;

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

Если СпрНом.НайтиПоКоду("000001258",0) = 0 Тогда
    Возврат;
КонецЕсли;

ВыбГруппа = СпрНом.ТекущийЭлемент();

Если ВыбГруппа.ЭтоГруппа() = 0 Тогда
    Возврат;
КонецЕсли;

СЗ = СоздатьОбъект("СписокЗначений");

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

ВыбГруппа = "";




--------------------
user posted image
PM MAIL ICQ   Вверх
sergey_85
Дата 27.2.2009, 09:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 445
Регистрация: 17.4.2007
Где: Россия, Челябинск

Репутация: нет
Всего: 1
ок, большое спасибо!
этот код буду использовать через OLE в проге по синхронизации бд 1с и бд моей проги, а код нужен потому как в 1с не шарю.


--------------------
A good design always pays off.
PM MAIL   Вверх
AkelaSQL
Дата 27.2.2009, 10:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 392
Регистрация: 14.9.2007
Где: Москва

Репутация: 6
Всего: 7
1 вариант будет работать быстрее...

Добавлено через 1 минуту и 34 секунды
Только в случае с оле тебе нужны не списки объектов справочника, а списки кодов...


|НоменклатураКод = Справочник.Номенклатура.Код;


--------------------
user posted image
PM MAIL ICQ   Вверх
sergey_85
Дата 27.2.2009, 10:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 445
Регистрация: 17.4.2007
Где: Россия, Челябинск

Репутация: нет
Всего: 1
Код

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


выбирает в группе все товары и !!! ДРУГИЕ ПОДГРУППЫ !!!, но мне они не нужны...

Добавлено @ 10:24
ну все подправил, теперь только обычные элементы дает

Код

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


... теперь дело за малым  smile перенести все это в с++ builder  через ole

Это сообщение отредактировал(а) sergey_85 - 27.2.2009, 10:26


--------------------
A good design always pays off.
PM MAIL   Вверх
AkelaSQL
Дата 27.2.2009, 10:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 392
Регистрация: 14.9.2007
Где: Москва

Репутация: 6
Всего: 7
Я тебе рекомендую всё это написать в отдельной функции в глобальном модуле конфигурации 1С. А в С++ тебе останется лишь зацепиться в 1С по ОЛЕ и "дёрнуть" эту функцию, которая вернёт тебе результат.


--------------------
user posted image
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "1C: Предприятие, SAP, ERP и учётные системы"
stron

Запрещается!

1. Обсуждение крэков, кейгенов и других подобных программ

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

Темы с подобными вещами будут немедленно удаляться, а нарушители - получать предупреждения.

Также запрещается обсуждение проблем работы этих программ (что куда вписать, куда что скопировать и т.п...)

2. Давать ссылки на взломанные продукты

  • Пожалуйста, пользуйтесь поиском перед тем, как задать вопрос - возможно ответ уже есть на форуме.
  • Название темы должно отражать её суть
  • Действия модераторов можно обсудить здесь

С уважением, stron, Pegas.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | 1C: Предприятие, SAP, ERP и учётные системы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0579 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.