7.7 объеденение ТЗ

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 7.7"", создана пользователем Сергей123, 25 июл 2013.

0/5, Голосов: 0
  1. TopicStarter Overlay
    Сергей123
    Offline

    Сергей123 Опытный в 1С

    Регистрация:
    11 июл 2013
    Сообщения:
    69
    Симпатии:
    0
    Баллы:
    26
    Код:
     ВыбНомен = СоздатьОбъект("Справочник.Номенклатура");
ВыбНомен.НайтиПоКоду(130685);
ВыбНомен1 =ВыбНомен.ТекущийЭлемент();

ВыбНомен2 = СоздатьОбъект("Справочник.Номенклатура");
ВыбНомен2.НайтиПоКоду(130679);
ВыбНомен3 =ВыбНомен2.ТекущийЭлемент();
    Добрый день. готов к издевкам. задача для лузера, которым я и являюсь. Как можно в 1с 7,7 объединить две таблицы значений в одну?
    Сергей123, 25 июл 2013
    #1
  2. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    22.609
    Симпатии:
    541
    Баллы:
    204
    в цикле.
    Код:
    ТЗ1.ВыбратьЭлементы();
Пока ТЗ1.ПолучитьЭлемент()=1 Цикл
ТЗ2.НоваяСтрока();
ТЗ2.Элемент=ТЗ1.Элемент;
КонецЦикла;
    Бухгалтерский угодник, 25 июл 2013
    #2
  3. TopicStarter Overlay
    Сергей123
    Offline

    Сергей123 Опытный в 1С

    Регистрация:
    11 июл 2013
    Сообщения:
    69
    Симпатии:
    0
    Баллы:
    26
    Выдает ошибку....."Объект не может быть перепозиционирован!"
    Сергей123, 25 июл 2013
    #3
  4. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    22.609
    Симпатии:
    541
    Баллы:
    204
    Это что - элементы формы?
    Бухгалтерский угодник, 25 июл 2013
    #4
  5. TopicStarter Overlay
    Сергей123
    Offline

    Сергей123 Опытный в 1С

    Регистрация:
    11 июл 2013
    Сообщения:
    69
    Симпатии:
    0
    Баллы:
    26
    нет, выбираем из справочника "номенклатура" значения принадлежащие группе
    Сергей123, 25 июл 2013
    #5
  6. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    22.609
    Симпатии:
    541
    Баллы:
    204
    Приведите полный код. Если большой - лучше выложите в виде обработки
    Бухгалтерский угодник, 25 июл 2013
    #6
  7. TopicStarter Overlay
    Сергей123
    Offline

    Сергей123 Опытный в 1С

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

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

    ВыбНомен2 = СоздатьОбъект("Справочник.Номенклатура");
    ВыбНомен2.НайтиПоКоду(72820);
    ВыбНомен3 =ВыбНомен2.ТекущийЭлемент();



    Запрос = СоздатьОбъект("Запрос");
    ТекстЗапроса =
    "//{{ЗАПРОС(Прайс)
    |Количество = Регистр.ОстаткиТМЦ.Количество;
    |Номенклатура = Регистр.ОстаткиТМЦ.Номенклатура;
    |Функция КоличествоКонОст = КонОст(Количество);
    |Группировка Номенклатура без групп;
    |Условие(Номенклатура в ВыбНомен1);
    |"//}}ЗАПРОС
    ;

    Задача: запрос выбирает список номенклатуре которые принадлежат группам, есть две группы 130679 и 72820 по которым нужно совершить запрос.
    Сергей123, 25 июл 2013
    #7
  8. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    22.609
    Симпатии:
    541
    Баллы:
    204
    Не вижу подвоха. Должно работать. В какой строке ругается? И где ТаблицаЗначений
    Бухгалтерский угодник, 25 июл 2013
    #8
  9. TopicStarter Overlay
    Сергей123
    Offline

    Сергей123 Опытный в 1С

    Регистрация:
    11 июл 2013
    Сообщения:
    69
    Симпатии:
    0
    Баллы:
    26
    Ругается на "выбратьЭлементы" ....
    Сергей123, 25 июл 2013
    #9
  10. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    22.609
    Симпатии:
    541
    Баллы:
    204
    в посте №7 с примером этого нет
    Бухгалтерский угодник, 25 июл 2013
    #10
  11. TopicStarter Overlay
    Сергей123
    Offline

    Сергей123 Опытный в 1С

    Регистрация:
    11 июл 2013
    Сообщения:
    69
    Симпатии:
    0
    Баллы:
    26
    Процедура Прайс()
    Перем Запрос, ТекстЗапроса, Таб;
    //Создание объекта типа Запрос
    ТипЦен = СоздатьОбъект("Справочник.ТипыЦен");
    ТипЦен.НайтиПоКоду("00004");
    ТипыЦен1 = ТипЦен.ТекущийЭлемент();
    ВыбНомен = СоздатьОбъект("Справочник.Номенклатура");
    ВыбНомен.НайтиПоКоду(130679);
    ВыбНомен1 =ВыбНомен.ТекущийЭлемент();
    ВыбНомен2 = СоздатьОбъект("Справочник.Номенклатура");
    ВыбНомен2.НайтиПоКоду(72820);
    ВыбНомен3 =ВыбНомен2.ТекущийЭлемент();
    ВыбНомен1.ВыбратьЭлементы();
    Пока ВыбНомен1.ПолучитьЭлемент()=1 Цикл
    ВыбНомен3.НоваяСтрока();
    ВыбНомен3.Элемент=ВыбНомен1.Элемент;
    КонецЦикла;

    Запрос = СоздатьОбъект("Запрос");
    ТекстЗапроса =
    "//{{ЗАПРОС(Прайс)
    |Количество = Регистр.ОстаткиТМЦ.Количество;
    |Номенклатура = Регистр.ОстаткиТМЦ.Номенклатура;
    |Функция КоличествоКонОст = КонОст(Количество);
    |Группировка Номенклатура без групп;
    |Условие(Номенклатура в ВыбНомен1);
    |"//}}ЗАПРОС
    ;

    "объект не может быть перепозиционирован"
    Сергей123, 25 июл 2013
    #11
  12. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    22.609
    Симпатии:
    541
    Баллы:
    204
    Так вы не создали объект ТаблицаЗначений! И вообще... Для запроса нужен Список Значений...
    Примерно так
    Код:
    Процедура Прайс()
Перем Запрос, ТекстЗапроса, Таб;
//Создание объекта типа Запрос
Спис = СоздатьОбъект("СписокЗначений");

ТипЦен = СоздатьОбъект("Справочник.ТипыЦен");
ТипЦен.НайтиПоКоду("00004");

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

Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Прайс)
|Количество = Регистр.ОстаткиТМЦ.Количество;
|Номенклатура = Регистр.ОстаткиТМЦ.Номенклатура;
|Функция КоличествоКонОст = КонОст(Количество);
|Группировка Номенклатура без групп;
|Условие(Номенклатура в Спис);
|"//}}ЗАПРОС
;
    Бухгалтерский угодник, 25 июл 2013
    #12
  13. TopicStarter Overlay
    Сергей123
    Offline

    Сергей123 Опытный в 1С

    Регистрация:
    11 июл 2013
    Сообщения:
    69
    Симпатии:
    0
    Баллы:
    26
    Спасибо.... все работает....
    Сергей123, 25 июл 2013
    #13
  14. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    22.609
    Симпатии:
    541
    Баллы:
    204
    Не за что. Обращайтесь
    Бухгалтерский угодник, 25 июл 2013
    #14
Похожие темы
  1. Bahty

    8.х УТ Объеденение наменклатур

    Bahty, 27 июл 2016, в разделе: "1С:Управление торговлей УТ"
    Ответов:
    5
    Просмотров:
    886
    nickpugachev
    27 июл 2016
Загрузка...