Задача 1.08

[BelousovKirill]

Граждане,помогите покомпактней реализовать данное головоломко)))Вложения:
1.08.dt

[1C_CoderVamp]

Это конечно хорошо, но:

1) Почему в запросах не используется соединение (связи)? Из-за этого у тебя абсолютно неправильно считаются остатки
 2) В создаваемом документы хорошо-бы хранить ссылку на документ основание, для этого хорошо подходит ввод на основании. Тогда не прийдется каждый раз вводить кучу документов, а только лишь один и он-же, в случае чего, будет перепроводиться

[Tolyas]

Решение работает, но думаю можно сделать оптимальней.Вложения:
1.8_Tolyas.dt

[bk]

pershinsergei, выкладываю свое решение с отчетом.Вложения:
1_08.dt

[User67]

bk, в расходной, если товара в точке не хватает - не проверяется, а хватает ли в отделе закупки, а по заданию должно!

[bk]

User67, в задании написано что нужно контролировать остатки по торговой точке и если их не хватает, то делать перемещение. При проведении в случае продажи я проверяю хватает ли товара в точке, если нет, то я добавляю строку в ТЗ_Перемещение в которой указываю сколько и чего нужно переместить из отдела закупок для проведения. Далее я пытаюсь сделать перемещение, если это не удается (в отделе закупок тоже нет остатков) тогда я взвожу флаг отказ и документ не проводится, помоему все верно

[marku]

Вот как я решилВложения:
1.08_marku.dt

[AS]

marku,
 1) Совсем не используются блокировки
 2) Перемещение должно проводиться документом "Расходная накладная" - по условию задачи.

[marku]

Quote (AS)

Спасибо что посмотрел
 
 1) Совсем не используются блокировки
 Да нужно, но алгоритм один и тот же как во всех задачах.

2) Перемещение должно проводиться документом "Расходная накладная" - по условию задачи.

 Перемещение делаю. а как же без него и провожу
 

Code

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

[Владик]

Решал билет на работе сегодня, посмотрел как сделал Bk,
 считаю у него оптимальное решение.
 Сам пытался уложиться в час с копейками, чтобы на экзамене успеть.Вложения:
1.8..dt

[trantor]

А не кажется ли вам что в задании есть потенциальная мина связанная с блокировками и программым созданием и проведением другого документа?
 При начале проведения документа продажи мы должны наложить блокировку на номенклатуру документа и два отдела закупки и тек. точки. Теперь после чтения остатков мы определяем, что нам нужно переместить часть товара с отдела закупок и в модуле проведения создаем новый документ и пытаемся его провести. Но у нас текущая транзакция не закончилась и действует блокировка - результат взаимные блокировки, новый ждет окончание текущего, текущий нового.
 Теоритически можно не накладывать блокировку на отдел закупок при продаже и взаимных блокировок можно избежать в данном случае, но тогда есть вероятность что другой пользователь может провести списание с отдела закупок на другую точку и потенциально появятся минуса.
 Кто что думает?

Добавлено (22.11.2010, 13:03)
---------------------------------------------
Вопрос снимается, т.к. в описании к объекту БлокировкаДанных, написано "Предназначен для явной блокировки данных от чтения или изменения другими сессиями.". Т.е. взаимной блокировки в рамках одной сессии не будет...

[AndreiPiter]

моё решение

marku, вопрос: может так делать не очень правильно
 ДокПеремещение.Дата = Дата-1;
 это так мысли вслух, хотя мне тоже другие варианты в голову не приходят.

Вложения:
0025613.dt

[Nitro]

Здесь вообще не нужен документ перемещение, по условию все делает расходная накладная, тогда и проблем с блокировками не будет.

[maniacminer]

Мое решение без отчета, вроде неплохо получилось.Вложения:
1_08_mm.dt

[Gulf_Stream]

Мой вариантВложения:
3732183.dt