Система учета на складе. Проверка возможности списания заданного количества товара со склада. - 1С - Ответ 10305931

@Xomych · 07.04.2017, 20:58

В интернетах и различных уроках по 1С это 100500 раз разжёвано
Например, я делаю так

1C

Процедура ОбработкаПроведения(Отказ, Режим)
    Движения.ОстаткиТоваров.Записывать=Истина;
    Движения.Пересортица.Записывать=Истина;
    Движения.Продажи.Записывать=Истина;
    
    
    ВТ=Новый МенеджерВременныхТаблиц;
    З=Новый Запрос;
    З.МенеджерВременныхТаблиц=ВТ;
    
    З.Текст="ВЫБРАТЬ
    |Товар,
    |Сумма(Количество) КАК Количество,
    |Сумма(Сумма) КАК Сумма,
    |Сумма(СуммаСоСкидкой) КАК СуммаСоСкидкой
    |ПОМЕСТИТЬ ТЧ
    |ИЗ Документ.РасходнаяНакладная.Товары КАК Товары
    |ГДЕ Ссылка=&Ссылка
    |СГРУППИРОВАТЬ ПО Товар
    |;
    |ВЫБРАТЬ 
    |ТЧ.Товар,
    |Остатки.ПрихНакл,
    |Количество,
    |Сумма,
    |СуммаСоСкидкой,
    |ЕСТЬNULL(Остатки.ОстатокТовараОстаток,0) КАК Остаток, 
    |ЕСТЬNULL(Остатки.БазоваяСтоимостьОстаток,0) КАК ПСумма, 
    |ЕСТЬNULL(Остатки.РозничнаяСтоимостьОстаток,0) КАК РСумма 
    |ИЗ ТЧ КАК ТЧ
    |ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ОстаткиТоваров.Остатки(&МоментВремени,Склад=&Склад И Товар В(ВЫБРАТЬ ТОВАР ИЗ ТЧ КАК ТЧ)) КАК Остатки
    |ПО ТЧ.Товар=Остатки.Товар
    |ГДЕ ЕСТЬNULL(Остатки.ОстатокТовараОстаток,0)>=0
    |УПОРЯДОЧИТЬ ПО ПрихНакл.Дата ВОЗР
    |ИТОГИ МАКСИМУМ(Количество),СУММА(Остаток),МАКСИМУМ(Сумма), МАКСИМУМ(СуммаСоСкидкой)
    |ПО ТЧ.Товар";
    
    З.УстановитьПараметр("МоментВремени",МоментВремени());
    З.УстановитьПараметр("Склад",Склад);
    З.УстановитьПараметр("Ссылка",Ссылка);
    
    Выб=З.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
    while Выб.Следующий() do
        Пересорт=Выб.Количество-Выб.Остаток;
//ВОТ ЗДЕСЬ ТЫ ДОЛЖЕН ДАВАТЬ ОТЛУП, я списываю в пересорт
        if Выб.Количество>Выб.Остаток then
            Сообщить("Не хватает товара """+Выб.Товар+""",
            |в пересортицу будет списано "+Пересорт);
        endif;
//===========================================       
        ОстСпис=Min(Выб.Количество,Выб.Остаток);
        БСум=0;
        
        ВыбПН=Выб.Выбрать();
        while ВыбПН.Следующий() И ОстСпис>0 do
            КолСпис=Мин(ОстСпис,ВыбПН.Остаток);
            ОстСпис=ОстСпис-КолСпис;
            
            Движение = Движения.ОстаткиТоваров.Добавить();
            Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
            Движение.Период = Дата;
            Движение.Товар = ВыбПН.Товар;
            Движение.Склад = Склад;
            Движение.ПрихНакл = ВыбПН.ПрихНакл;
            Движение.ОстатокТовара = КолСпис ;
            Движение.БазоваяСтоимость = КолСпис/ВыбПН.Остаток*ВыбПН.ПСумма;
            Движение.РозничнаяСтоимость = КолСпис/ВыбПН.Остаток*ВыбПН.РСумма;
            
            БСум=БСум+КолСпис/ВыбПН.Остаток*ВыбПН.ПСумма;
        enddo;  
        
        if Пересорт>0 then
            Движение = Движения.Пересортица.Добавить();
            Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
            Движение.Период = Дата;
            Движение.Товар = Выб.Товар;
            Движение.Склад = Склад;
            Движение.Количество = Пересорт ;
            Движение.Сумма = Пересорт/Выб.Количество * ?(ДисконтнаяКарта.Пустая(),Выб.Сумма,Выб.СуммаСоСкидкой);
        endif;
        
        Движение = Движения.Продажи.Добавить();
        Движение.Период = Дата;
        Движение.Товар = Выб.Товар;
        Движение.Склад = Склад;
        Движение.Количество = Выб.Количество;
        Движение.СуммаПрих = БСум;
        Движение.СуммаПрод = ?(ДисконтнаяКарта.Пустая(),Выб.Сумма,Выб.СуммаСоСкидкой);
        
    enddo;
    Движения.Записать();
    
    if Режим=РежимПроведенияДокумента.Неоперативный then
        З.Текст="ВЫБРАТЬ
        |ТЧ.Товар,
        |Остатки.ПрихНакл,
        |ЕСТЬNULL(Остатки.ОстатокТовараОстаток,0) КАК Остаток 
        |ИЗ ТЧ КАК ТЧ
        |ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ОстаткиТоваров.Остатки(,Склад=&Склад И Товар В(ВЫБРАТЬ ТОВАР ИЗ ТЧ КАК ТЧ)) КАК Остатки
        |ПО ТЧ.Товар=Остатки.Товар
        |ГДЕ ЕСТЬNULL(Остатки.ОстатокТовараОстаток,0)<0";
        
        З.УстановитьПараметр("Склад",Склад);
        
        Выб=З.Выполнить().Выбрать();
        if Выб.Количество()>0 then
            Сообщить("В результате проведения документа задним числом
                     |появляются отрицательные остатки:",СтатусСообщения.ОченьВажное);
            Отказ=Истина;         
        endif;           
        while Выб.Следующий() do
            Сообщить("По товару """+Выб.Товар+""", остаток по """+Выб.ПрихНакл.Номер+""": "+Выб.Остаток);
        enddo;
    endif;  
    
    Движения.ОстаткиТоваров.Записывать=НЕ Отказ;
    Движения.Пересортица.Записывать=НЕ Отказ;
    Движения.Продажи.Записывать=НЕ Отказ;
КонецПроцедуры

Вернуться к обсуждению:
Система учета на складе. Проверка возможности списания заданного количества товара со склада. 1С

Следующий ответ

Другие темы раздела
1С Заполнение таблицы документа данными справочника автоматически https://www.cyberforum.ru/ 1c-custom/ thread1955323.html Здравствуйте. Делаю простую программу на 1С и столкнулся с проблемой. У меня есть Справочник(Сотрудники) в котором кроме стандартных реквизитов есть поле ТабельныйНомер. Заполняю таблицу документа в одном столбце указываю ссылку на Справочник(наименование). Теперь нужно чтобы в другом столбце поставился табельный номер выбранного элемента справочника. Я думаю получить Код выбранного элемента...	1С Автоматическое открытие формы справочника при переходе в Подсистему. Как можно реализовать, чтобы когда я нажимаю на подсистему, при переходе сразу открывалсь форма подсистемы, как на картинке 2, а у меня на данный момент открывается как на картинке 2, форма справочника
1С Передача табличной части обработки в запрос Здравствуйте. Делаю внешнюю обработку для Документооборота. Сделал запрос для вывода просроченных задач пользователей: ПереченьПросроченныхЗадач.Текст="ВЫБРАТЬ \| ЗадачаИсполнителя.Исполнитель КАК Сотрудник, \| ЗадачаИсполнителя.Дата КАК ЗадачаСоздана, \| ЗадачаИсполнителя.СрокИсполнения КАК Срок, ... https://www.cyberforum.ru/ 1c-custom/ thread1955258.html	1С Вывод задолженностей абонентов за последний квартал Здравствуйте, у меня вопрос. Как в модуле прописать процедуру на оплату -3 месяца. Пример: У меня есть таблица по текущим задолженностям абонентов, а мне нужно добавить в эту же таблицу еще и задолженность абонентов за последний квартал. как это сделать и что писать в модуль понятия не имею. Помогите пожалуйста. https://www.cyberforum.ru/ 1c-custom/ thread1955120.html
Упростить условия если а > 1000 и б > 2000 или а <=1000 тогда 1С Всем привет. Есть задачка с теста, говорят очень сложная, и говорят я ее не решил. ответ не говорят :)) прошу помощи в решении. задача такова: как можно упростить условия если а > 1000 и б > 2000 или а <=1000 тогда я упростил если а <= 1000 или б > 2000 тогда	1С Программная загрузка кладра https://www.cyberforum.ru/ 1c-custom/ thread1953707.html Здравствуйте, скачивал кладр с сайта гнифц по коду ниже. Все было нормально до 20.03. Теперь же по данному коду не могу скачать файл. СерверИсточник = "www.gnivc.ru"; Адрес = "html/gnivcsoft/KLADR"; ПутьДляСохранения = ПолучитьИмяВременногоФайла(".7z"); ФайлКЛАДР = "BASE.7z"; ФайлКЛАДРНаВебСервере = "https://" + СерверИсточник + "/" + Адрес+ "/" + ФайлКЛАДР;...
1С Мини-библиотека - 1С Помогите пожалуйста, может у кого готовое есть в версии 8.1? Тема уже обсуждалась,поэтому и спрашиваю. Задание с сайта на версии 7.7 http://www.mista.ru/tutor_1c/example_lib.htm Выручайте,добрые люди...не успеваю...завал полный:cry: https://www.cyberforum.ru/ 1c-custom/ thread1953534.html	1С Чтение TXT файла Добрый день Подскажите как разделить файл TXT на отдельные значения разделено \| "1\|NULL\|ОгМОА1\|NULL\|0\|NULL\|72000005\|Ц00000009\|2017-03-28 20:06:24.000\|2017-03-28 20:06:24\|2017-03-29 20:05:13.000\|2017-03-29...
1С Корректировка данных в документе Доброго времени суток. Имеется самописная конфигурация. Необходимо организовать механизм корректировки данных в табличной части проведенного документа. С чего начать? https://www.cyberforum.ru/ 1c-custom/ thread1952868.html	1С Арм как модуль к 1c Необходимо Разработать как модуль к 1с как это понять? Просто программу написать или это как отдельный модуль будет как в делфи или c#? https://www.cyberforum.ru/ 1c-custom/ thread1952768.html
1С Умножение в табличной части На форме расположена табличная часть: Как на основании ячеек количества и стоимости получить сумму?	1С Вывести историю по всем адресам либо по выбранному. https://www.cyberforum.ru/ 1c-custom/ thread1952259.html Может кто-нибудь знает что я делаю не так. Нужно вывести историю по всем адресам либо по выбранному. //******************************************* Процедура Сформировать() тз = создатьОбъект("ТаблицаЗначений"); тз.НоваяКолонка("Номер_заявки"); тз.НоваяКолонка("Рабочий"); тз.НоваяКолонка("Дата_начала");

	07.04.2017, 20:58