Имя: Пароль:
1C
 
Как закрыть минусовые остатки по регистру затрат в УПП?
0 Хосе
 
25.02.16
17:43
Чтобы не болтались в минусах?
1 Джинн
 
25.02.16
17:49
(0) Найти причину и исправить.
2 Быдло замкадное
 
25.02.16
17:51
создать корректировку записей регистров))
3 Быдло замкадное
 
25.02.16
17:54
на тебе овнокод

НовыйДок = Документы.КорректировкаЗаписейРегистров.СоздатьДокумент();
    НовыйДок.Дата = ДатаОстатков -1;
    НовыйДок.Ответственный = ПараметрыСеанса.ТекущийПользователь;
    
    СтрокаТЧ=НовыйДок.ТаблицаРегистровНакопления.Добавить();
    СтрокаТЧ.Имя = "УчетЗатратРегл";
    СтрокаТЧ.Представление = "УчетЗатратРегл";
    ДвиженияУчетЗатрат = НовыйДок.Движения.УчетЗатратРегл;

    Запрос=новый Запрос;
    Запрос.Текст="ВЫБРАТЬ
                 |    УчетЗатратРеглОстатки.АналитикаВидаУчета,
                 |    УчетЗатратРеглОстатки.АналитикаУчетаЗатрат,
                 |    УчетЗатратРеглОстатки.АналитикаУчетаПартий,
                 |    УчетЗатратРеглОстатки.АналитикаРаспределенияЗатрат,
                 |    УчетЗатратРеглОстатки.КоличествоОстаток КАК Количество,
                 |    УчетЗатратРеглОстатки.КоличествоНУОстаток КАК КоличествоНУ,
                 |    УчетЗатратРеглОстатки.СтоимостьОстаток КАК Стоимость,
                 |    УчетЗатратРеглОстатки.СтоимостьНУОстаток КАК СтоимостьНУ,
                 |    УчетЗатратРеглОстатки.ПостояннаяРазницаОстаток КАК ПостояннаяРазница
                 |ИЗ
                 |    РегистрНакопления.УчетЗатратРегл.Остатки(&Дата, ) КАК УчетЗатратРеглОстатки
                 |ГДЕ
                 |    УчетЗатратРеглОстатки.КоличествоОстаток < 0";
    Запрос.УстановитьПараметр("Дата", ДатаОстатков);
    ТЗРезультат = Запрос.Выполнить().Выгрузить();    
    ДвиженияУчетЗатрат.Загрузить(ТЗРезультат);
    Для Каждого СтрокаДвижений Из  ДвиженияУчетЗатрат Цикл
        
        СтрокаДвижений.Активность = Истина;
        СтрокаДвижений.ВидДвижения = ВидДвиженияНакопления.Расход;
        СтрокаДвижений.Период = ДатаОстатков - 1;
        
    КонецЦикла;
    
    НовыйДок.Записать();
    Сообщить(НовыйДок);
4 Хосе
 
25.02.16
18:02
(1) а по-типовому никак
(3) спасибо, но хотелось бы блеснуть типовым способом. Никак? типа оприходования затрат какого-нибудь
5 vicof
 
25.02.16
18:46
(4) "оприходование затрат"
Звучит, тебе в бизнес -аналитики надо
6 Cyberhawk
 
25.02.16
18:53
Типовой способ: отчет по регистру учета затрат с группировками только по измерениям - увидишь, где вышел перекос (например, где-то качество указано в ключе аналитики, где-то - не указано)
Запрос для вычленения отрицательных остатков возьмешь из кода, где РСВ тебе ругается на наличие отрицательных остатков
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший