Имя: Пароль:
1C
1С v8
Движения по регистрам
,
0 4ekHyTblu NigGa
 
28.09.17
06:31
Сразу ребята скажу, я новенький в этом деле, только учусь. Задание в интернете нашел.
Подскажите пожалуйста как сделать, я пытался ну у меня не выходит
или дайте подсказку, где найти информацию.
Движения по регистрам:

ОстаткиТоваров – движение содержит записи (Приход) по каждой строчке табличной части «Товары», все данные для записи берутся из документа. Сумма в записи должна рассчитываться вот по такому алгоритму:

Сумма = Количество * СредневзвешеннаяЦена

СредневзвешеннаяЦена = ОстатокСумма / ОстатокКоличество;

ОстатокСумма = нужно вычислить остаток Суммы в регистре накопления ОстаткиТоваров, на дату документа, с отбором по Номенклатура и Склад:

ОстатокКоличество = нужно вычислить остаток Количество в регистре накопления ОстаткиТоваров, на дату документа, с отбором по Номенклатура и Склад
1 Zombi
 
28.09.17
06:50
Сумма прихода обычно берется непосредственно из документа прихода, а не рассчитывается исходя из остатков на складе. А что будешь делать если товар в первый раз приходит или просто его нет на остатках на дату документа?
2 VladZ
 
28.09.17
06:52
Либо кто-то не понял задание, либо "одна из черепашек звездит".
3 4ekHyTblu NigGa
 
28.09.17
06:53
Процедура ОбработкаПроведения(Отказ, Режим)
    // регистр ОстаткиТоваров Приход
    Движения.ОстаткиТоваров.Записывать = Истина;
    Движения.ОстаткиТоваров.Очистить();
    Для Каждого ТекСтрокаТовары Из Товары Цикл
        Движение = Движения.ОстаткиТоваров.Добавить();
        Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
        Движение.Период = Дата;
        Движение.Номенклатура = ТекСтрокаТовары.Товар;
        Движение.Склад = Склад;
        Движение.Количество = ТекСтрокаТовары.Количество;
        Движение.Сумма = ТекСтрокаТовары.Количество * РегистрыНакопления.ОстаткиТоваров.Остатки(Дата,РегистрыНакопления.ОстаткиТоваров.Номенклатура,,РегистрыНакопления.ОстаткиТоваров.Сумма) / РегистрыНакопления.ОстаткиТоваров.Остатки(Дата,РегистрыНакопления.ОстаткиТоваров.Номенклатура,,РегистрыНакопления.ОстаткиТоваров.Количество);
    КонецЦикла;

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

КонецПроцедуры
4 4ekHyTblu NigGa
 
28.09.17
06:53
в чем ошибка?
5 4ekHyTblu NigGa
 
28.09.17
06:56
вот ссылка на задание 1clancer.ru/download/fileId=41594
6 Мимохожий Однако
 
28.09.17
06:57
(4) Тебе то самому что не нравится? ))
7 Zombi
 
28.09.17
06:58
(4) В отборе ошибка В СП вот что про него пишут:

<Отбор> (необязательный)

Тип: Структура.
Структура, содержащая набор значений для измерений регистра. Имя ключа структуры должно совпадать с именем измерения регистра, заданного в конфигураторе, а значение элемента структуры - задает отбираемое по данному измерению значение.
Если параметр не указан, то отбор не используется.
8 Zombi
 
28.09.17
07:02
Измерение и ресурс - строка должны быть
9 Zombi
 
28.09.17
07:04
И вообще правильно все запросом делать и 1 раз обращаться к БД, а не в цикле, как у тебя. Короче, матчасть тебе учить и учить.
10 Oleg_ka
 
28.09.17
07:04
Ошибка...в задании.
Написано:  "Реализация товаров", а далее...движение содержит записи (Приход)<- вот тут должно быть "Расход"
11 4ekHyTblu NigGa
 
28.09.17
07:06
Где по этой теме найти информацию, посоветуйте источники или книги
12 Zombi
 
28.09.17
07:08
(11) Радченко купи. Для начинающего самое то.
13 4ekHyTblu NigGa
 
28.09.17
07:12
у меня есть, но в ней нет такого,именно алгоритмов в движении
14 4ekHyTblu NigGa
 
28.09.17
07:14
движениях*
15 Oleg_ka
 
28.09.17
07:15
Гхм. Занятие 11. (Радченко)
16 Мимохожий Однако
 
28.09.17
07:16
(14) Сделай теми алгоритмами, что в книге.
17 Zombi
 
28.09.17
07:17
(13) Тогда есть вероятность, что тебе ничего уж и не поможет.
18 4ekHyTblu NigGa
 
28.09.17
07:20
подбодрил) решение, то должно быть) пасиб, что хоть так помогли
19 Zombi
 
28.09.17
07:21
(18) Ну Радченко у тебя есть, это уже хорошо. Попробуй прочитать. Может и не настолько все плохо.
20 4ekHyTblu NigGa
 
28.09.17
07:23
какого года актуальна книга? у меня 2013 года
21 Zombi
 
28.09.17
07:25
(20) Норм. Для изучения основ она пока актуальна.
22 Oleg_ka
 
28.09.17
07:26
Радченко "не нравится", тогда рекомендую старые курс П.Чистова
23 4ekHyTblu NigGa
 
28.09.17
07:30
Может еще какие-нибудь источники есть?
24 Мимохожий Однако
 
28.09.17
07:32
Якни справа вверху. Там много чего
25 VladZ
 
28.09.17
07:59
(5) "2. Написать процедуры в формах документов." - корявая постановка задачи.
26 ildary
 
28.09.17
08:50
(25) Там же заголовок - ТестовОй задание.
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший