- 001
- 002
- 003
- 004
- 005
- 006
- 007
- 008
- 009
- 010
- 011
- 012
- 013
- 014
- 015
- 016
- 017
- 018
- 019
- 020
- 021
- 022
- 023
- 024
- 025
- 026
- 027
- 028
- 029
- 030
- 031
- 032
- 033
- 034
- 035
- 036
- 037
- 038
- 039
- 040
- 041
- 042
- 043
- 044
- 045
- 046
- 047
- 048
- 049
- 050
- 051
- 052
- 053
- 054
- 055
- 056
- 057
- 058
- 059
- 060
- 061
- 062
- 063
- 064
- 065
- 066
- 067
- 068
- 069
- 070
- 071
- 072
- 073
- 074
- 075
- 076
- 077
- 078
- 079
- 080
- 081
- 082
- 083
- 084
- 085
- 086
- 087
- 088
- 089
- 090
- 091
- 092
- 093
- 094
- 095
- 096
- 097
- 098
- 099
- 100
Процедура ОбработкаПроведения(Отказ, РежимПроведения)
///////////////////////////////////////////////////////
// Подготовка табличной части документа
тчТовары = Товары.Выгрузить();
Отказ = ОбщийМодуль.СформироватьТабличнуюЧастьСОстаткамиНаСкладе(тчТовары, Ссылка, РежимПроведения, Расшифровка, ВыявлятьНехваткуТоваров);
Для Каждого СтрокаТЧТовары Из тчТовары Цикл
Если ЗначениеЗаполнено(СтрокаТЧТовары.НовыйАдресХранения) И ЗначениеЗаполнено(СтрокаТЧТовары.АдресХраненияАВТО) Тогда
// тут добавляются движения
....
КонецПроцедуры
Функция СформироватьТабличнуюЧастьСОстаткамиНаСкладе(ТабличнаяЧасть, ДокументСсылка, РежимПроведения, Расшифровка, ВыявлятьНехваткуТоваров=Истина) Экспорт
Отказ = Ложь;
Запрос = Новый Запрос;
МВТ = Новый МенеджерВременныхТаблиц;
Запрос.МенеджерВременныхТаблиц = МВТ;
Запрос.Текст =
"ВЫБРАТЬ
| ТЧДокумента.ОбъектНоменклатуры КАК ОбъектНоменклатуры,
| ТЧДокумента.АдресХранения КАК АдресХранения,
| ТЧДокумента.НовыйАдресХранения КАК НовыйАдресХранения,
| ТЧДокумента.Количество КАК Количество,
| ТЧДокумента.КоличествоУУ КАК КоличествоУУ
|ПОМЕСТИТЬ ТЧДокумента
|ИЗ
| &ТЧ КАК ТЧДокумента";
Запрос.УстановитьПараметр("ТЧ", ТабличнаяЧасть);
Запрос.Выполнить();
Запрос.Текст =
"ВЫБРАТЬ
| ТЧДокумента.ОбъектНоменклатуры КАК ОбъектНоменклатуры,
| ТЧДокумента.ОбъектНоменклатуры.Номенклатура КАК Номенклатура,
| ТЧДокумента.ОбъектНоменклатуры.Нарезка.Размер КАК РазмерНарезки,
| ТЧДокумента.АдресХранения КАК АдресХранения,
| ТЧДокумента.НовыйАдресХранения КАК НовыйАдресХранения,
| ЯССМ_ТоварыНаСкладахПоЯчейкамОстатки.АдресХранения КАК АдресХраненияАВТО,
| ЕСТЬNULL(ТЧДокумента.Количество, 0) КАК КоличествоТребуется,
| ЕСТЬNULL(ЯССМ_ТоварыНаСкладахПоЯчейкамОстатки.КоличествоОстаток, 0) КАК КоличествоОстаток,
| ЕСТЬNULL(ТЧДокумента.КоличествоУУ, 0) КАК КоличествоУУТребуется,
| ЕСТЬNULL(ЯССМ_ТоварыНаСкладахПоЯчейкамОстатки.КоличествоУУОстаток, 0) КАК КоличествоУУОстаток,
| ЯССМ_ТоварыНаСкладахПоЯчейкамОстатки.Склад КАК Склад
|ИЗ
| ТЧДокумента КАК ТЧДокумента
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ЯССМ_ТоварыНаСкладахПоЯчейкам.Остатки(&МоментДокумента, ) КАК ЯССМ_ТоварыНаСкладахПоЯчейкамОстатки
| ПО ТЧДокумента.ОбъектНоменклатуры = ЯССМ_ТоварыНаСкладахПоЯчейкамОстатки.ОбъектНоменклатуры
|ГДЕ
| ТЧДокумента.АдресХранения = ЗНАЧЕНИЕ(Справочник.ЯС_АдресаХранения.ПустаяСсылка)
|";
ТабличнаяЧасть.Очистить();
Запрос.УстановитьПараметр("МоментДокумента", ДокументСсылка.МоментВремени());
// !!!!! делаю это для автоматического получения колонок результирующего запроса. Это крэзи конечно, но пока оставлю так. Нет времени
ТабличнаяЧасть = Запрос.Выполнить().Выгрузить();
ТабличнаяЧасть.Очистить();
ВыборкаОбъект = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока ВыборкаОбъект.Следующий() Цикл
ВыборкаАдресХранения = ВыборкаОбъект.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока ВыборкаАдресХранения.Следующий() Цикл
Если ВыявлятьНехваткуТоваров И ВыборкаАдресХранения.КоличествоТребуется>ВыборкаАдресХранения.КоличествоОстаток Тогда
Расшифровка = Расшифровка + Символы.ПС + "Недостаточно товара (код номенкл.: "+ВыборкаАдресХранения.Номенклатура.Код+") """+ВыборкаАдресХранения.ОбъектНоменклатуры + """" +
?(ЗначениеЗаполнено(ВыборкаАдресХранения.АдресХранения), " по адресу хранения """+ВыборкаАдресХранения.АдресХранения+"""", "")+"! "+
"Остаток товара "+ВыборкаАдресХранения.КоличествоОстаток+", а требуется "+ВыборкаАдресХранения.КоличествоТребуется+".";
Отказ = Истина;
Иначе
ВыборкаАдресХраненияАвто = ВыборкаАдресХранения.Выбрать();
Пока ВыборкаАдресХраненияАвто.Следующий() Цикл
Если ВыборкаАдресХраненияАвто.Количество()>1 Тогда
Расшифровка = Расшифровка + Символы.ПС + "Для товара (код номенкл.: "+ВыборкаАдресХранения.Номенклатура.Код+") """+ВыборкаАдресХранения.ОбъектНоменклатуры + """" +
" невозможно определить адрес хранения, т.к. остатки товаров расположены "+ Символы.ПС
+ " более чем в одном адресе хранения. Необходимо в документе явно указать адрес хранения товара!";
Отказ = Истина;
Иначе
// добавляем строку в результирующую таблицу
НоваяСтрока = ТабличнаяЧасть.Добавить();
ЗаполнитьЗначенияСвойств(НоваяСтрока, ВыборкаАдресХраненияАвто);
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецЦикла;
Возврат Отказ;
КонецФункции //СформироватьТабличнуюЧастьСОстаткамиНаСкладе
Обработка проведения одного писателя...
Сначала берём выгружаем в ТЗ табличную часть, потом отдаём в общий модуль, там ТЗ передаём параметром в запрос, кладём в ВТ потом в другом запросе соединяем с остатками, меняем имена и состав колонок, выгружаем в ТЗ, возвращаем ТЗ в обработку проведения и уже по ней делаем движения.
Вообще, эта задача решается одним запросом. Но зачем?! Ведь если общий модуль существует, должен же кто-то его испрользовать...
imihajlov 09.12.2015 15:13 # +1
imihajlov 10.12.2015 12:52 # 0
АдресХраненияАВТО, <Enter><Tab><Alt+Shift>|<Tab><Alt+Shift> ЕСТЬ<Alt+Shift>NULL(<Alt+Shift>ТЧДокумен та.Количество
HomoAlbus 10.12.2015 13:34 # 0
Vasiliy 10.12.2015 14:25 # +2