Имя: Пароль:
1C
 
Проводки РБ
,
0 Daretisa
 
21.09.24
11:39
Добрый день, уважаемые форумчане, прошу поделиться мудростью.
На работе дали задание изменить регистры бухгалтерии, и вот тренируюсь дома на самописной базе.
Проблема такова: я создала набор записей, но вот установить отбор не могу, так как его надо установить по реквизиту «Клиент».
Как правильно собрать отбор для такого действия?
1 Мультук
 
гуру
21.09.24
10:52
(0)

На вашем уровне знаний - никак.
Это не издевательство, это констатация факта.


"изменить регистры бухгалтерии "

Написано умно, но совершенно непонятно, что от вас хотят, ибо вариантов тьма


P.S.

Звучит как "вчера я училась забивать гвоздики",
но ребята сказал, что это саморезы и нужна отвертка.

А сегодня меня попросили починить ядерный реактор.
Думаю - ничего сложного.
Вот только ядра брать от грецких орехов или кэшью тоже ок  ?
2 trdm
 
21.09.24
10:53
Проводки = РегистрыБухгалтерии.Основной.СоздатьНаборЗаписей();
Проводки.Отбор.Регистратор.Установить(Документ);
Проводки.Прочитать();

там отбор только по регистратору вроде и все.
3 Daretisa
 
21.09.24
10:59
(2) Спасибо большое, попробую по регистратору
4 trdm
 
21.09.24
11:01
имхо сначала запрос к РБ с детализацией до регистратора и с условием нужное субконто = клиент, а уже потом перебор движений регистраторов.
5 Daretisa
 
21.09.24
11:08
(4) Да вот и смотрю как сделать такое, не доходит до меня как выразить это программно
6 Daretisa
 
21.09.24
11:14
Процедура КнопкаВыполнитьНажатие(Кнопка)
    

Набор = РегистрыБухгалтерии.Управленческий.СоздатьНаборЗаписей();
Набор.Отбор.Регистратор.Установить(Документы.ПриходнаяНакладная);
Набор.Прочитать();
Для каждого Запись из Набор Цикл
    
    Если
        Набор.СчетДт =
         ПланыСчетов.Основной.НайтиПоКоду("41")
         Тогда
         Набор.КоличествоДт = Набор.КоличествоДт *2;
     КонецЕсли;
     КонецЦикла;

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



Пытаюсь так достучаться не выходит
7 Волшебник
 
21.09.24
11:19
Если Запись.СчетДт =
8 Daretisa
 
21.09.24
11:21
(7) Ошибка записи! Не установлен отбор по регистратору (Регистр бухгалтерии: Управленческий)

Вот такая ошибка теперь
9 Волшебник
 
21.09.24
11:25
(8) Бывает...
10 Daretisa
 
21.09.24
11:25
(9) Понятно...
11 trdm
 
21.09.24
11:26
(6) > Набор.Отбор.Регистратор.Установить(Документы.ПриходнаяНакладная);
так не катит. вместо "Документы.ПриходнаяНакладная" нужна ссылка, а не менеджер.
12 Daretisa
 
21.09.24
11:36
(11) Хмм, по ссылке объект не найден
13 Daretisa
 
21.09.24
11:36
(11) Набор.Отбор.Регистратор.Установить(Документы.ПриходнаяНакладная.ПолучитьСсылку());
14 Волшебник
 
21.09.24
11:37
(13) Поперхнулся кофем...
15 Daretisa
 
21.09.24
12:10
Процедура КнопкаВыполнитьНажатие(Кнопка)

ВыбДок=Документы.ПриходнаяНакладная.Выбрать();

Если ВыбДок.Следующий() Тогда
    Набор = РегистрыБухгалтерии.Управленческий.СоздатьНаборЗаписей();
    Набор.Отбор.Регистратор.Установить(ВыбДок.Ссылка);
    Набор.Прочитать();
    Для Каждого Проводка  Из Набор Цикл
        
        Если
            Проводка.СчетДт=ПланыСчетов.Основной.НайтиПоКоду("41")
            
            Тогда
            Проводка.КоличествоДт=Проводка.КоличествоДт*2;
            
    КонецЕсли;
КонецЦикла;
КонецЕсли;
    
           Набор.Записать(Истина);

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


Разобралась со своим тупым вопросом, но теперь другой тупой вопрос так как голова уже перестала варить вовсе, проводится только 1 документ, второй под этим же кодом остаётся без изменений, почему так?
16 Мультук
 
гуру
21.09.24
12:33
(15)

ПланыСчетов.Основной.НайтиПоКоду("41")

Гм-хм. Интересно. В ТОГДА код вообще попадает?
И слава богу (наверное).

>> почему так?
Потому что ПОКА ЦИКЛ и ЕСЛИ ТОГДА несколько разные операторы

P.S.
Вы понимаете, что данные в базе, после ваших манипуляций превращают базу в тыкву ?
17 Daretisa
 
21.09.24
12:41
(16) ТОГДА выполняется, хорошо язвите, видимо вам так же помогали когда то
18 Гена
 
гуру
21.09.24
12:49
(17) [шёпотом] фотку выложите - от желающих помочь отбоя не будет
19 Волшебник
 
21.09.24
12:56
А что мы делаем?
Мы удваиваем количество!

Где мы это делаем?
Внешней обработкой.
Мы пишем движения документов без их проведения!

Зачем мы это делаем?
А хрен его знает!
20 2S
 
21.09.24
12:53
(18) Геннадий, фото "пол мужской"?
21 Волшебник
 
21.09.24
12:54
(20) Но имя же женское и пишет "создала"
22 Гена
 
гуру
21.09.24
12:55
(20) Да ладно… просто при регистрации барышня была невнимательной )
23 Daretisa
 
21.09.24
12:56
(19) Я писала что делаю для понятия механизма на домашней учебной базе созданной по книге
24 Daretisa
 
21.09.24
12:56
(20) Вроде правильно заполняла, да и вообще какая разница)
25 Волшебник
 
21.09.24
12:57
Интересно, если у автора получится перебрать все документы и удвоить количество, что будет дальше?

Хорошо, что в первом же документе нет счета 41. Повезло!
26 Волшебник
 
21.09.24
12:59
(23) Вы писали, что на работе Вам дали задание. Можете озвучить задание?
27 Daretisa
 
21.09.24
13:00
(25) Проблема была в цикле, счет 41 имеется, уже всё получилось, спасибо за ваши комментарии, правда волшебник, любое желание развиваться в этой сфере магически пропадает)
28 Волшебник
 
21.09.24
13:02
(27) Чем больше проводок Вы уничтожите и получите обратную связь от бухгалтеров и начальников, тем быстрее поймёте, что программирование — это не ваше...
29 Daretisa
 
21.09.24
13:04
(28) И вам хороших выходных!
30 Волшебник
 
21.09.24
13:04
(29) Присылайте ещё больше вопросов. Мы поможем Вам в уничтожении баз данных
31 Daretisa
 
21.09.24
13:05
(30) Обязательно, вот в понедельник выйду на работу и увидимся)
32 Волшебник
 
21.09.24
13:07
Я умею уничтожать независимые регистры сведений одной строкой. Только назовите регистр. Я вам пришлю строку кода, а Вы его запустите. Только убедитесь, что у Вас есть права на запись регистра.
33 Волшебник
 
21.09.24
13:08
Могу пробежать по всем проводкам и удвоить сумму. Или даже утроить. Интересует?
34 Волшебник
 
21.09.24
13:10
Кстати, что с "Клиентом" из сабжа? Потеряли условие...
35 Смотрящий
 
21.09.24
13:46
(31) Оу, послезавтра файершоу.Не пропустить бы
36 osa1C
 
21.09.24
13:58
(0) Сильно не читая ветку скажу.. В регистрах бухгалтерии есть измерения Дебет/Кредит (Д/К) там ты берешь остатки или обороты по счету. А вот понимать что такое Дебет/Кредит очень нужно
   Я для этого целый Диплом бухгалтера получил (6 месяцев курсов очных)
37 Волшебник
 
21.09.24
14:16
(36) Знаете, чем отличаются балансовые измерения/ресурсы от небалансовых?
38 Максимка_
Космонавтом
 
21.09.24
15:11
На работе

Это троллинг такой, или что?
39 Максимка_
Космонавтом
 
21.09.24
15:14
(17) Тут помогают хорошо, и не язвят. Но тем, кто прорешал Радченко хотя бы, прочитал Хрусталеву и потом сдал ПРОФ или хотя бы знает информацию на уровне экзамена ПРОФ. Вам вот туда
40 Волшебник
 
21.09.24
15:32
Вот ещё полезный программный код, который решает многие проблемы с документами:

Для Каждого мдДок Из Метаданные.Документы Цикл
   Выборка = Документы[мдДок.Имя].Выбрать();
   Пока Выборка.Следующий() Цикл
     Об = Выборка.ПолучитьОбъект();
     Об.ОбменДанными.Загрузка = Истина;
     Об.Удалить();
   КонецЦикла;
КонецЦикла;
41 kuromanlich
 
21.09.24
15:35
(40) ну нельзя так, а еще форум высокой культуры быта )
42 Волшебник
 
21.09.24
16:03
(41) А не надо было удваивать количество. Бред на бред
43 trdm
 
21.09.24
19:11
(0) Напишите мне в личку, скину ссылки на вменяемый курс по 1С.
44 Волшебник
 
21.09.24
19:20
(43) А нам скинете? Или это секретный курс, что его можно только через личку отправлять?
Основная теорема систематики: Новые системы плодят новые проблемы.