Версия для печати темы (https://pro1c.org.ua/index.php?s=6f85dc325b57be2c8d03554098e493ea&showtopic=53078)

Нажмите сюда для просмотра этой темы в обычном формате

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 _ Программирование в 1С Предприятие 7.7 _ Обработка заполнения Расходной Накладной остатками номенклатуры на складе

Автор: Sirius83 17.07.19, 10:28

1С 7,7 7.70.27 ABBY Торговля + Склад
Доброго дня,
Прошу помощи:
Ищу Обработку заполнения Расходной Накладной остатками номенклатуры на складе.
Заранее благодарен.

Автор: Naghual 17.07.19, 12:56

Проще написать под себя чем найти непонятно что и переделывать.

Автор: Винила 18.07.19, 11:17

Sirius83 @ Вчера, 11:28 * ,
Можно сделать так:

ТЗ_Номенклатур = СоздатьОбъект("ТаблицаЗначений");

ТекстЗапроса = "
    |select
    |    Рег.Товар as [Товар $Справочник.Номенклатура],
    |    sum(Рег.КоличествоОстаток) as Количество
    |from
    |  $РегистрОстатки.ОстаткиТМЦ(
    |        :КонДата~,
    |        ,Склад in (select val from #tmp4))
    |       ,(Товар,Склад),) as Рег
    |group by Рег.Товар";

        лRecordSet=СоздатьОбъект("ODBCRecordSet");

        лRecordSet.УстановитьТекстовыйПараметр("КонДата",ТекущаяДата());
    лRecordSet.УложитьСписокОбъектов(ВыбСклады,"#tmp4", "Склады");

    лRecordSet.Отладка(0);
    Если лRecordSet.Открыть(ТекстЗапроса)=0 Тогда
        Сообщить(лRecordSet.ПолучитьОписаниеОшибки());
    КонецЕсли;

        лRecordSet.ПолучитьРезультатыВ_ТЗ(ТЗ_Номенклатур, 1);

        ТЗ_Номенклатур.ВыбратьСтроки();
        Пока ТЗ_Номенклатур.ПолучитьСтроку() = 1 Цикл
                _Номенклатура = ТЗ_Номенклатур.Товар;
                _Количество = ТЗ_Номенклатур.Количество;
        КонецЦикла;

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua