Апрельская флудилка

[Сэмпай]

а где остальное овно, я хочу вещать при свете софитов 

 а хз...

 

гдето тут торчали днем...

 

Непагода пиццу ищет...

 

Елена в отпуске...

 

Алехандра вот еще чото может-но медленно...

 

Дюк... ну он и есть Дюк..

[Svoy]

а йобушка гиде?

[Svoy]

йоба хорош

 

 

 

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

Метод = ОбщиеМеханизмы.ПолучитьМетодСписанияСебестоимости(Дата);

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

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


Если Метод = Перечисления.МетодСписанияСебестоимости.FIFO Тогда
Запрос.Текст = Запрос.Текст + "УПОРЯДОЧИТЬ ПО Партия.Дата ВОЗР ";
ИначеЕсли Метод = Перечисления.МетодСписанияСебестоимости.LIFO Тогда
Запрос.Текст = Запрос.Текст + "УПОРЯДОЧИТЬ ПО Партия.Дата УБЫВ ";
ИначеЕсли Метод = Перечисления.МетодСписанияСебестоимости.ПоСреднему Тогда

Запрос.Текст = Запрос.Текст + " ";

КонецЕсли;

Запрос.Текст = Запрос.Текст + "
| ИТОГИ МИНИМУМ (Количество), МИНИМУМ (КоличествоНаСкладе), МИНИМУМ (Выручка)
| ПО ТЧ.Номенклатура";
Запрос.УстановитьПараметр("Док", Ссылка);
Запрос.УстановитьПараметр("МоментВремени", МоментВремени()); //Только момементВремени!!!
Запрос.УстановитьПараметр("Склад", Склад);

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


ЕСЛИ Выборка.Количество > Выборка.КоличествоНаСкладе Тогда
// сообщение пользователю!
Сообщение = Новый СообщениеПОльзователю;
Сообщение.Текст = "Не хватает" + Выборка.Номенклатура + ", из необходимых: " +
Выборка.Количество + ", в наличии только: " + Выборка.КоличествоНаСкладе;
Сообщение.Сообщить();

Отказ = Истина; // если нет позиций, то отказ = истина

КонецЕсли; 


КонецЦикла;


Если Отказ Тогда
Возврат;
КонецЕсли;

Выборка.Сбросить();
Пока Выборка.Следующий()Цикл

// Партионное списание
ОсталосьСписать = Выборка.Количество;
СебестоимостьИтого = 0;

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

НужноСписать = Мин(ОсталосьСписать, ВыборкаПартий.КоличествоОбщее); //сколько осталось списать-сравнение,МИН-находит мин.
Себестоимость = НужноСписать / ВыборкаПартий.КоличествоОбщее * ВыборкаПартий.СтоимостьОбщее; //считаем себестоимость
СебестоимостьИтого = СебестоимостьИтого + Себестоимость;

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

ОсталосьСписать = ОсталосьСписать - НужноСписать;


//Движение.Стоимость = Выборка.СтоимостьОстаток / Выборка.КоличествоОстаток * Выборка.Количество;


КонецЦикла;

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

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


КонецЦикла;


СуммаДокумента = Товары.Итог("Сумма");
Движения.Взаиморасчеты.Записывать = Истина; // свойства поступления - записывать выбранные
Движение = Движения.Взаиморасчеты.ДобавитьПриход(); 
Движение.Период = Дата;
Движение.Контрагент = Контрагент;
Движение.Сумма = СуммаДокумента;


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

[Сэмпай]

а йобушка гиде?

жди...

 

 

слуш а ты как этого хмыря выеб?? прям на лесенках?? или всежтаке домой к себе таскал?? 

 

если на лесенке то оно должно быть экстримально

[Сэмпай]

 

йоба хорош

 

 

 

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

 

Метод = ОбщиеМеханизмы.ПолучитьМетодСписанияСебестоимости(Дата);

 

Движения.ОстаткиТоваров.Записывать = Истина;

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

Движения.Продажи.Записывать = Истина;

 

Запрос = Новый Запрос;

Запрос.Текст = 

"ВЫБРАТЬ

| РеализацияТовары.Номенклатура,

| СУММА(РеализацияТовары.Количество) КАК Количество,

| СУММА(РеализацияТовары.Сумма) КАК Выручка

|ПОМЕСТИТЬ ТЧ

|ИЗ

| Документ.Реализация.Товары КАК РеализацияТовары

|ГДЕ

| РеализацияТовары.Ссылка = &Док

| И НЕ РеализацияТовары.Номенклатура.ЭтоУслуга

|

|СГРУППИРОВАТЬ ПО

| РеализацияТовары.Номенклатура

|;

|

|////////////////////////////////////////////////////////////////////////////////

|ВЫБРАТЬ

| ТЧ.Номенклатура,

| ТЧ.Количество,

| ТЧ.Выручка,

| ОстаткиТоваровОстатки.Партия,

| ЕСТЬNULL(ОстаткиТоваровОстатки.СтоимостьОстаток, 0) КАК СтоимостьОбщее,

| ЕСТЬNULL(ОстаткиТоваровОстатки.КоличествоОстаток, 0) КАК КоличествоОбщее,

| ЕСТЬNULL(ОстаткиПоСкладамОстатки.КоличествоОстаток, 0) КАК КоличествоНаСкладе

|ИЗ

| ТЧ КАК ТЧ

| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ОстаткиТоваров.Остатки(

| &МоментВремени,

| Номенклатура В

| (ВЫБРАТЬ

| ТЧ.Номенклатура

| ИЗ

| ТЧ КАК ТЧ)) КАК ОстаткиТоваровОстатки

| ПО ТЧ.Номенклатура = ОстаткиТоваровОстатки.Номенклатура

| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ОстаткиПоСкладам.Остатки(

| &МоментВремени,

| Номенклатура В

| (ВЫБРАТЬ

| ТЧ.Номенклатура

| ИЗ

| ТЧ КАК ТЧ)

| И Склад = &Склад) КАК ОстаткиПоСкладамОстатки

| ПО ТЧ.Номенклатура = ОстаткиПоСкладамОстатки.Номенклатура ";

 

 

Если Метод = Перечисления.МетодСписанияСебестоимости.FIFO Тогда

Запрос.Текст = Запрос.Текст + "УПОРЯДОЧИТЬ ПО Партия.Дата ВОЗР ";

ИначеЕсли Метод = Перечисления.МетодСписанияСебестоимости.LIFO Тогда

Запрос.Текст = Запрос.Текст + "УПОРЯДОЧИТЬ ПО Партия.Дата УБЫВ ";

ИначеЕсли Метод = Перечисления.МетодСписанияСебестоимости.ПоСреднему Тогда

 

Запрос.Текст = Запрос.Текст + " ";

 

КонецЕсли;

 

Запрос.Текст = Запрос.Текст + "

| ИТОГИ МИНИМУМ (Количество), МИНИМУМ (КоличествоНаСкладе), МИНИМУМ (Выручка)

| ПО ТЧ.Номенклатура";

Запрос.УстановитьПараметр("Док", Ссылка);

Запрос.УстановитьПараметр("МоментВремени", МоментВремени()); //Только момементВремени!!!

Запрос.УстановитьПараметр("Склад", Склад);

 

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

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

 

 

ЕСЛИ Выборка.Количество > Выборка.КоличествоНаСкладе Тогда

// сообщение пользователю!

Сообщение = Новый СообщениеПОльзователю;

Сообщение.Текст = "Не хватает" + Выборка.Номенклатура + ", из необходимых: " +

Выборка.Количество + ", в наличии только: " + Выборка.КоличествоНаСкладе;

Сообщение.Сообщить();

 

Отказ = Истина; // если нет позиций, то отказ = истина

 

КонецЕсли; 

 

 

КонецЦикла;

 

 

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

Возврат;

КонецЕсли;

 

Выборка.Сбросить();

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

 

// Партионное списание

ОсталосьСписать = Выборка.Количество;

СебестоимостьИтого = 0;

 

ВыборкаПартий = Выборка.Выбрать(); //поиск выборка - сброс

Пока ВыборкаПартий.Следующий() И ОсталосьСписать <> 0 Цикл //КонецЦикла если все списано 0, открыть по деталям

 

НужноСписать = Мин(ОсталосьСписать, ВыборкаПартий.КоличествоОбщее); //сколько осталось списать-сравнение,МИН-находит мин.

Себестоимость = НужноСписать / ВыборкаПартий.КоличествоОбщее * ВыборкаПартий.СтоимостьОбщее; //считаем себестоимость

СебестоимостьИтого = СебестоимостьИтого + Себестоимость;

 

// формируем движение

Движение = Движения.ОстаткиТоваров.ДобавитьРасход();

Движение.Период = Дата;

Движение.Номенклатура = Выборка.Номенклатура;

Движение.Количество = НужноСписать; // поиск по списанию

Движение.Стоимость = Себестоимость;

Движение.Партия = ВыборкаПартий.Партия;

 

ОсталосьСписать = ОсталосьСписать - НужноСписать;

 

 

//Движение.Стоимость = Выборка.СтоимостьОстаток / Выборка.КоличествоОстаток * Выборка.Количество;

 

 

КонецЦикла;

 

Движение = Движения.ОстаткиПоСкладам.ДобавитьРасход();

Движение.Период = Дата;

Движение.Номенклатура = Выборка.Номенклатура;

Движение.Количество = Выборка.Количество;

Движение.Склад = Склад;

 

Движение = Движения.Продажи.Добавить();

Движение.Период = Дата;

Движение.Номенклатура = Выборка.Номенклатура;

Движение.Контрагент = Контрагент;

Движение.Количество = Выборка.Количество;

Движение.Себестоимость = СебестоимостьИтого;

Движение.СтоимостьПродаж = Выборка.Выручка;

 

 

КонецЦикла;

 

 

СуммаДокумента = Товары.Итог("Сумма");

Движения.Взаиморасчеты.Записывать = Истина; // свойства поступления - записывать выбранные

Движение = Движения.Взаиморасчеты.ДобавитьПриход(); 

Движение.Период = Дата;

Движение.Контрагент = Контрагент;

Движение.Сумма = СуммаДокумента;

 

 

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

он прекрасен это 

 

факт

[Svoy]

подопечного в мусоропровод башкой и понеслась 

Изменено 3 апреля, 2014 пользователем Вконтактик

[Svoy]

 

он прекрасен это 

эх, если бы зачика в эту веру обратили в 9м классе, щас бы в гугле у брина хурярил

[Сэмпай]

 

эх, если бы зачика в эту веру обратили в 9м классе, щас бы в гугле у брина хурярил

всё происходит непросто так... судьба не дура)) 

[Svoy]

 

судьба не дура

йоба не мудак

[ЛЕО]

 

 

Денис какой-то странный. Вы не находите?

он нормальный. у него ойфона нет

куда делся??

ачо, есть?

[Гусеёб]

На кожанных креслах это не интересно

[Сэмпай]

 

ачо, есть?

дак да....

[ЛЕО]

[ЛЕО]

http://www.colta.ru/articles/literature/2751

[Кадык]

Чо, шавермочный и недели без флуда не продержался? 

 

Жалко, на самом деле Войтикова, он думал без него здесь всё умрёт, а его отсутствие никто и не заметил кроме полторашки. Жестковато получилось. 

[ЛЕО]

[ЛЕО]

[ЛЕО]

[Сэмпай]

,твое отцутцтвее тоже кроме меня никто незамечал

[Сэмпай]

такое обычно спрашевают в темноте))