Билет 7. Спец по платформе V8

[cheb73]

Сумма, СуммаВал - это задача ОУ, а не БУ причем партионного, поэтому и разрезается. Либо у меня другие билеты, либо проверьте свои)

[zorky]

Сумма, СуммаВал - это задача ОУ, а не БУ причем партионного, поэтому и разрезается. Либо у меня другие билеты, либо проверьте свои)

из билета 7 БУ:  Взаиморасчеты с покупателями ведутся одновременно в рублях и евро. Курс евро указывается пользователем вручную в документе.
Документ «Расходная накладная» формирует следующую проводку:
Дт «Покупатели» - Кт «Прибыли и убытки» на сумму продажи

Т.е. Расходка делает движение это.  Так вот - его не нужно (обязательно) делать в цикле, и резать по Номенклатуре...  )))  я вроде ваш билет смотрю, да - внизу после ОУ идут движения БУ.  У нас есть в Документе СуммаПоДокументу и Куср Евро.  Т.е. можно сделать проводку сразу, одну на обе суммы   ))  без цикла...

и в приходе денег внутри Договоров есть ещё и Накладные - их там сказано тоже сортировать   )))

 "В рамках каждого договора задолженность погашается в хронологическом порядке, начиная с самой первой недоплаченной накладной."

[cheb73]

блин, наконец-то поняла , о чем вы говорите, то что нужно не перебирать табчасть, а сделать одну проводку.Обычно делаю конструктором движения, которые просто записывают.  Сорри. ))

[Даженепытайся]

Доброе время суток, кто может объяснить почему в ОП не закроется в ноль РН? Так сказал Аксеонов. Посмотрел почти все решения, все просто делят себестоимость на курс из документа, но так неправильно. К сожалению, как правильно он не сказал.

[cheb73]

               Если  Выборка.КоличествоОстаток=Выборка.Количество Тогда
                  Себестоимость =  Выборка.СуммаОстаток;
                  СебестоимостьДоллар =  Выборка.СуммаОстатокДоллар;

               Иначе
                  Себестоимость =Списать*Выборка.СуммаОстаток/Выборка.КоличествоОстаток;    
                  СебестоимостьДоллар =?(Курс=0,0, Себестоимость/Курс);    
               КонецЕСли;   

так делали?

[Даженепытайся]

               Если  Выборка.КоличествоОстаток=Выборка.Количество Тогда
                  Себестоимость =  Выборка.СуммаОстаток;
                  СебестоимостьДоллар =  Выборка.СуммаОстатокДоллар;

               Иначе
                  Себестоимость =Списать*Выборка.СуммаОстаток/Выборка.КоличествоОстаток;    
                  СебестоимостьДоллар =?(Курс=0,0, Себестоимость/Курс);    
               КонецЕСли;   

так делали?

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

[alex1248]

Доброе время суток, кто может объяснить почему в ОП не закроется в ноль РН? Так сказал Аксеонов. Посмотрел почти все решения, все просто делят себестоимость на курс из документа, но так неправильно. К сожалению, как правильно он не сказал.

Не представляю, кто как делает.
Читаем фразу "Возникновение курсовых разниц на себестоимость при продаже не предполагается". Это значит, что при продаже себестоимость списывается по тому же курсу, который был при приходе (иначе возникают курсовые разницы).
У меня код при расчете выручки и себестоимости был такой:

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

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

[Даженепытайся]

Доброе время суток, кто может объяснить почему в ОП не закроется в ноль РН? Так сказал Аксеонов. Посмотрел почти все решения, все просто делят себестоимость на курс из документа, но так неправильно. К сожалению, как правильно он не сказал.

Не представляю, кто как делает.
Читаем фразу "Возникновение курсовых разниц на себестоимость при продаже не предполагается". Это значит, что при продаже себестоимость списывается по тому же курсу, который был при приходе (иначе возникают курсовые разницы).
У меня код при расчете выручки и себестоимости был такой:

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

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

Пожалуй, Вы правы.

[cheb73]

да,да у alex1248 правильно. Для себя тоже запомнила, спасибо

[IntelMan]

Уважаемые специалисты, только начали готовиться и решать задачи, сильно строго не пинайте. Возник вопрос по ОУ. Как определиться с составом регистров, т.е. как понять из условия задачи нужен 1 РН (только для остатков) или 2 РН (остатки + себестоимость)? Например, вот для этой задачи.

[alex1248]

Как определиться с составом регистров, т.е. как понять из условия задачи нужен 1 РН (только для остатков) или 2 РН (остатки + себестоимость)?

Чего пинать? Тут форум нормальный, бегающих ради провести время нет.
И всё же могу ответить только так - вникнуть в суть задачи, и понять, что от вас требуется, на основании этого и составлять структуру регистров. Это ж творчество, а вы хотите получить алгоритм на свои действия. Алгоритм будет у юзера, как следствие вашей творческой работы.

[IntelMan]

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

[alex1248]

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

Какое отношение к количеству регистров имеет необходимость выведения в ноль регистров остатков? Для этого надо просто написать правильную процедуру расчета.
В данной задаче, возможно, нет необходимости в отдельном регистре для остатков, если по старой методике остатки контролировать можно по другому регистру.

[IntelMan]

Понятно, примерно. Супер спасибо.

[unf13]

Посмотрел несколько решений расчетной части, в некоторых в РС "ГрафикиРаботы" почему-то добавлено измерение "Подразделение".

По идее в расчетной задаче хоть и есть совместительство,но ничего не сказано,что график может как-то зависеть от подразделения. Указывается только,что нужно предусмотреть возможность работы по нескольким графикам. Достаточно спорный момент.