Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: 1С для программиста

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.508 RSS
←   Декабрь 2010   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Открыта: 02-06-2005

Автор
Калашников О.А.

Статистика

2.508 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: 1С для программиста


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты данной рассылки

Лиджи-Гаряев Владимир
Статус: Профессионал
Рейтинг: 1707
∙ повысить рейтинг » 		Владимир Лазурко
Статус: Профессор
Рейтинг: 964
∙ повысить рейтинг » 		Тимошенко Дмитрий
Статус: Практикант
Рейтинг: 590
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И СОФТ / Программирование / 1С для программиста

Номер выпуска:1162
Дата выхода:15.12.2010, 16:30
Администратор рассылки:Владимир Лазурко (Профессор)
Подписчиков / экспертов:288 / 98
Вопросов / ответов:1 / 1

Вопрос № 181207: Здравствуйте, уважаемые эксперты! 1С:Предприятие 8.1 Конфигурация с нуля. Прошу Вас помочь: Создаю простейшую базу с нуля. Необходимо чтобы было поступление товара, его продажа со списанием. Также оплата поставщиками. Не могу сделать списание товаров...

Вопрос № 181207:

Здравствуйте, уважаемые эксперты! 1С:Предприятие 8.1 Конфигурация с нуля. Прошу Вас помочь: Создаю простейшую базу с нуля. Необходимо чтобы было поступление товара, его продажа со списанием. Также оплата поставщиками. Не могу сделать списание товаров по средней стоимости или по партиям. Покажите примерный код списания товара.

Отправлен: 10.12.2010, 16:16
Вопрос задал: Тайгер (Посетитель)
Всего ответов: 1
Страница вопроса »

Отвечает sada1 (1-й класс) :
Здравствуйте, mapat89!

ФИФО/ЛИФО

Движения.ОстаткиНоменклатуры.Записывать = Истина;
Движения.Продажи.Записывать = Истина;

МетодСписания = РегистрыСведений.УчетнаяПолитика.ПолучитьПоследнее(Дата).МетодСписания;
Если МетодСписания = Перечисления.УчетнаяПолитика.ФИФО Тогда
Метод = "Возр";
ИначеЕсли МетодСписания = Перечисления.УчетнаяПолитика.ЛИФО Тогда
Метод = "Убыв";
КонецЕсли;

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

Запрос.УстановитьПараметр("Момент", Новый Граница(МоментВремени(),ВидГраницы.Включая));
Запрос.УстановитьПараметр("Ссылка", Ссылка);

Результат = Запрос.Выполнить();

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

Пока ВыборкаНоменклатура.Следующий() Цикл

Перевышение = ВыборкаНоменклатура.Количество - ВыборкаНоменклатура.КоличествоОстаток;
Если Перевышение>0 Тогда

Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = "Не хватает: " + ВыборкаНоменклатура.Номенклатура + Строка(Перевышение);
Сообщение.УстановитьДанные(Ссылка);
Сообщение.Сообщить();
Отказ = Истина;

КонецЕсли;

Если Не Отказ Тогда

Списать = ВыборкаНоменклатура.Количество;
Себестоимость = 0;

ВыборкаДетальныеЗаписи = ВыборкаНоменклатура.Выбрать();
Пока ВыборкаДетальн ыеЗаписи.Следующий() и Списать > 0 Цикл

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

Списать = Списать-Движение.Количество;

Себестоимость = Себестоимость+ Движение.Сумма;
КонецЦикла;

// регистр Продажи
Движение = Движения.Продажи.Добавить();
Движение.Период = Дата;
Движение.Номенклатура = ВыборкаНоменклатура.Номенклатура;
Движение .Количество = ВыборкаНоменклатура.Количество;
Движение.Сумма = ВыборкаНоменклатура.Сумма;
Движение.Себестоимость = Себестоимос ть;

КонецЕсли;

КонецЦикла;

Ответ отправил: sada1 (1-й класс)
Ответ отправлен: 11.12.2010, 12:53
Номер ответа: 264658

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это!
Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 264658 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:

    • Оценить выпуск »
    Нам очень важно Ваше мнение об этом выпуске рассылки!

    Задать вопрос экспертам этой рассылки »

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)
    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров »

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

    © 2001-2010, Портал RFPRO.RU, Россия
    Авторское право: ООО "Мастер-Эксперт Про"
    Автор: Калашников О.А. | Программирование: Гладенюк А.Г.
    Хостинг: Компания "Московский хостер"
    Версия системы: 2010.6.25 от 13.12.2010
    В избранное