Списывать количество материалов со склада, указанного в реквизите документа
Затем материалы списываются с остальных складов в алфавитном порядке
______________________________________________________________

написала херь, от которой сама в ужасе. конечно же не работает.
запнулась. гляньте, бывалые, подскажите зеленой
______________________________________________________________

Процедура ОбработкаПроведения(Отказ, Режим)

    // регистр СтоимостьМатериалов Расход
    Движения.СтоимостьМатериалов.Записывать = Истина;
    
    // регистр ОстаткиМатериалов Расход
    Движения.ОстаткиМатериалов.Записывать = Истина;
    
    // регистр Продажи
    Движения.Продажи.Записывать = Истина;
    

                                                          
Для Каждого ТекСтрокаПереченьНоменклатуры
Из ПереченьНоменклатуры Цикл
Если ТекСтрокаПереченьНоменклатуры.Номенклатура.ВидНоменклатуры =
        Перечисления.ВидыНоменклатуры.Материал Тогда
            
// делаем запрос остатков по всем складам
ОбщийЗапрос = Новый Запрос;
ОбщийЗапрос.Текст =
        "ВЫБРАТЬ
                   |    регОстатков.КоличествоКонечныйОстаток КАК КонОстаток,
                |    регОстатков.Материал
                |ИЗ
                |    РегистрНакопления.ОстаткиМатериалов.ОстаткиИОбороты КАК регОстатков
                |ГДЕ
                |    регОстатков.Материал = &парМатериал";
        
            ОбщийЗапрос.УстановитьПараметр("парМатериал", ТекСтрокаПереченьНоменклатуры.Номенклатура);
            
            Выборка = ОбщийЗапрос.Выполнить().Выбрать();
            Выборка.Следующий();
            
            // если в запросе выбрать нечего (пусто), то присваиваем 0,
            // если есть, то дальше разбираемся...
            КонОстаток = ?(Выборка.Количество() = 0, 0, Выборка.КонОстаток);
            
            // первый вариант - так или иначе, а если в остатках меньше чем надо,
            // то показываем сколько нехватает
            Если Выборка.КонОстаток < ТекСтрокаПереченьНоменклатуры.Количество Тогда
                                
                Дефицит = ТекСтрокаПереченьНоменклатуры.Количество - Выборка.КонОстаток;
                Сообщить("Не хватает " + Строка(Дефицит)
                         + " единиц материала """ + Выборка.Материал + """");
                Отказ = Истина;
                
            Иначе // второй вариант -  Списываем с Текущего заданного склада, указанного в документе
                
                ЗапросТекСклад = Новый Запрос;
                ЗапросТекСклад.Текст =
                    "ВЫБРАТЬ
                       |    регОстатков.КоличествоКонечныйОстаток КАК КонОстаток,
                    |    регОстатков.Материал
                    |ИЗ
                    |    РегистрНакопления.ОстаткиМатериалов.ОстаткиИОбороты КАК регОстатков
                    |ГДЕ
                    |    регОстатков.Материал = &парМатериал И
                    |    регОстатков.Склад = &парСклад";
                                
                ЗапросТекСклад.УстановитьПараметр("парМатериал", ТекСтрокаПереченьНоменклатуры.Номенклатура);
                ЗапросТекСклад.УстановитьПараметр("парСклад", Склад);
                
                Выборка2 = ЗапросТекСклад.Выполнить().Выбрать();
                Выборка2.Следующий();
                
                // Если на ТекСкладе нехватает...
                Если Выборка2.КонОстаток < ТекСтрокаПереченьНоменклатуры.Количество Тогда
                    Дефицит = ТекСтрокаПереченьНоменклатуры.Количество - Выборка.КонОстаток;
                    
                    ЗапросДрСклады = Новый Запрос;  // ...делаем запрос к др.складам
                    ЗапросДрСклады.Текст =
                           "ВЫБРАТЬ
                        |    спрСклады.Наименование КАК Склад,
                        |    регОстатков.КоличествоКонечныйОстаток КАК КонОстаток,
                        |    регОстатков.Материал КАК Материал
                        |ИЗ
                        |    Справочник.Склады КАК спрСклады
                        |    ЛЕВОЕ СОЕДИНЕНИЕ
                        |    РегистрНакопления.ОстаткиМатериалов.ОстаткиИОбороты КАК регОстатков
                        |    ПО спрСклады.Ссылка = регОстатков.Склад
                        |ГДЕ
                        |    регОстатков.Материал = &парМатериал И
                        |    регОстатков.Склад <> &парСклад    
                        |УПОРЯДОЧИТЬ ПО
                        |    Склад";
                        
                    ЗапросДрСклады.УстановитьПараметр("парМатериал", ТекСтрокаПереченьНоменклатуры.Номенклатура);
                    ЗапросДрСклады.УстановитьПараметр("парСклад", Склад);
                
                    Выборка3 = ЗапросДрСклады.Выполнить().Выбрать();
                    // А ВОТ ТУТ МЫСЛЬ ПОТЕРЯЛА И НЕ ЗНАЮ ЧТО К ЧЕМУ ПРИБАВИТЬ И ОТНЯТЬ    
                    Пока Выборка3.Следующий() Цикл
                    
                    КонецЦикла;
                КонецЕсли;        
              КонецЕсли;

                    
            Движение = Движения.ОстаткиМатериалов.Добавить();
            Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
            Движение.Период = Дата;
            Движение.Материал = ТекСтрокаПереченьНоменклатуры.Номенклатура;
            Движение.Склад = Склад;
            Движение.Количество = ТекСтрокаПереченьНоменклатуры.Количество;

            // Движение по стоимости материалов    
            Движение = Движения.СтоимостьМатериалов.Добавить();
            Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
            Движение.Период = Дата;
            Движение.Материал = ТекСтрокаПереченьНоменклатуры.Номенклатура;
            Движение.Стоимость = ТекСтрокаПереченьНоменклатуры.Цена;
        КонецЕсли;
           
        
        // Движение по оборотам - услуги, выручка
        Движение = Движения.Продажи.Добавить();
        Движение.Период = Дата;
        Движение.Номенклатура = ТекСтрокаПереченьНоменклатуры.Номенклатура;
        Движение.Клиент = Клиент;
        Движение.Мастер = Мастер;
        Движение.Количество = ТекСтрокаПереченьНоменклатуры.Количество;
        Движение.Стоимость = ТекСтрокаПереченьНоменклатуры.Цена;
        Движение.Выручка = ТекСтрокаПереченьНоменклатуры.Сумма;
    КонецЦикла;

КонецПроцедуры

Документ оказания услуг списывает материалы?

(0) без фото в личке даже на + (в строке + Соde - нажимать не будут) Традиция (с)

Выгрузить запросом остатки на складах и приоритетом, отфильтровать по приоритету и списывать построчно, пока необходимо.

ага, документ услуг

Выгрузить запросом остатки на складах и приоритетом, отфильтровать по приоритету и списывать построчно, пока необходимо. // так я итак выгрузила остатки запросом, разве нет?

лучше сделай заполнение ТЧ

(2) ваша галя балована

и потом по заполненому списывай

вообще не понимаю о чем вы. написала же, что зеленая совсем

(9) не понимаешь, значит и не нужно? свежее предложение - выйти замуж за программиста и готовить ему борщ, а он пусть программирует

Будет весело когда при перепроведении (или отмене и снова проводка) дока материалы не смогут уйти в минус ))

смотрю, много спецов трепаться не по теме) мда, вот тебе и "возлюби ближнего своего".

при отмене и перепроводке все норм

(12) Делаешь 2 одинаковые дока, затем проводишь 1-й, затем его распроводишь, проводишь "новый" 2-й и пробуешь снова провести "старый" 1-й.

Особенно будет весело если кто то распроведет/перепроведет сильно старый документик этак полугодовой/годовой давности...

И да нескоко "вложенных" запросов в цикле это мощно!

(12) ну как бы если хочется на 100500 постов троллить по поводу решения тестовых задач, то хотя бы скачать фотку из инета и поставить в личку можно. а то скучно.

Эх, Мишаня, я из приличных. еще при реге пробовала, но чет выдает ошибку. хотя все по требованиям

(5) Нет. Вы какую-то хрень сделали.

Хм задачка навела что хорошо бы в платформе реализовать функцию для ТЗ не тока Свернуть().

Но и Распределить()

Без фото - не vзлетит

http://xn--d1acpke4c.org/images/board/medium/9745577b8b58c97bb8d1abe2b98162d8.jpg

=)

Стартуйте =)

(0)без фото нет

слабо свежее фоту накопать?)

(23) А слабо алгоритм разработать?

Общение работодателя с кандидатом на мисте это нечто новое...

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

(26) Выбираешь остатки отсортированно по складам. Первый склад- всегда из документа, остальные (за исключением первого) по алфавиту. Списываешь по порядку, не хватает - идешь на следующий склад. Все.

(26) Подсказки (3) и (10) чем не устроили?

Как то так:

//Выбираем всю номенклатуру из перечня, для каждой получаем остатки. Сортируем по наименованиям складов, но склад документа - всегда первый в выборке. Итоги по номенклатуре
Запрос.Текст =
"ВЫБРАТЬ Номенклатура ПОМЕСТИТЬ ПереченьНоменклатуры
|ИЗ &ПереченьНоменклатуры КАК ПереченьНоменклатуры;
|ВЫБРАТЬ
|Остатки.Склад,
|ПереченьНоменклатуры.Номенклатура,
|СУММА(ПереченьНоменклатуры.Количество) КАК Количество,
|СУММА(ЕстьNULL(Остатки.КонечныйОстаток, 0)) КАК КонечныйОстаток
|ИЗ ПереченьНоменклатуры КАК ПереченьНоменклатуры
|ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ОстаткиМатериалов.ОстаткиИОбороты(&ДатаДокумента, Номенклатура В (ВЫБРАТЬ Номенклатура ИЗ ПереченьНоменклатуры)) КАК Остатки
|ПО Остатки.Номенклатура = ПереченьНоменклатуры.Номенклатура
|СГРУППИРОВАТЬ ПО
|Остатки.Склад,
|ПереченьНоменклатуры.Номенклатура
|УПОРЯДОЧИТЬ ПО
|ВЫБОР КОГДА Склад = &СкладДокумента Тогда 0 ИНАЧЕ 1000 КОНЕЦ,
|Склад.Наименование
|ИТОГИ СУММА(Количество), СУММА(КонечныйОстаток) ПО
|Номенклатура";

Запрос.УстановитьПараметр("СкладДокумента", Объект.Склад);
Запрос.Установитьпараметр("ДатаДокумента", Объект.Дата);
Запрос.УстановитьПараметр("ПереченьНоменклатуры", Объект.Товары);

ВыборкаНоменклатура = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

Если ВыборкаНоменклатура.Следующий() Тогда
    Если ВыборкаНоменклатура.Количество<ВыборкаНоменклатура.КонечныйОстаток Тогда
        //Сообщаем о недостатке кол-ва на всех складах
    Иначе
        КоличествоДляРаспределения = ВыборкаНоменклатура.Количество;
        ВыборкаДетальные = ВыборкаНоменклатура.Выбрать();
        Пока ВыборкаДетальные.Следующий() И КоличествоДляРаспределения>0 Цикл
            Движение = Движения.ОстаткиМатериалов.Добавить();
                    Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
                    Движение.Период = Дата;
                    Движение.Материал = ВыборкаНоменклатура.Номенклатура;
                    Движение.Склад = ВыборкаДетальные.Склад;
                    Движение.Количество = Мин(ВыборкаДетальные.Количество, ВыборкаДетальные.КонечныйОстаток);
            КоличествоДляРаспределения = КоличествоДляРаспределения  - Движение.Количество;
        КонецЦикла;
    КонецЕсли
КонецЕсли;

Это как шаблон. При Ctrl+C, Ctrl+V не заработает, надо допилить.
Ну, с группировкой количества перечня номенклатуры сделал по тупому, сами разберетесь.

(0) Без фото не взлетит

(28) (10) слабо тянет на подсказку) а впрочем, если и тянет, сами такой и пользуйтесь)

пусть и не летит) решила

(29) о, интересен Ваш вариант, погляжу

Ух! Сама решила ? да ладно ?
Борщъ видимо тоже умеешь ?
Выходи за него !