Имя: Пароль:
1C
1С v8
Движения по новому регистру.
0 capllary
 
26.02.15
09:28
Народ, прошу сразу не пинать, первый раз делаю движения по регистрам.

И вот такой вопрос как прописать, чтобы при наличии не заполненного значения из таблицы значений не заполнялся и регистр, а то в регистре куча пустых значений. Пробовал так прописать - не помогает.
Процедура ЗаполнениеДиженийПоРегиструНакопленияРПР()
    
    // регистр РезервыПредстоящихРасходов Приход
    Движения.РезервыПредстоящихРасходов.Очистить();
    Для Каждого ТекСтрокаРезервыОО Из РезервыОО Цикл
        Движение = Движения.РезервыПредстоящихРасходов.Добавить();
        Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
        Движение.Период = Дата;
        Движение.Сотрудник = ТекСтрокаРезервыОО.Сотрудник;
        Движение.ОстаткиОтпусков = ТекСтрокаРезервыОО.СуммаНачислено;
        //Движение.ИспользованоОО = -ТекСтрокаРезервыОО.СуммаИспользовано;
    КонецЦикла;
    Для Каждого ТекСтрокаРезервыОО Из РезервыОО Цикл
        Движение = Движения.РезервыПредстоящихРасходов.Добавить();
        Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
        Движение.Период = Дата;
        Движение.Сотрудник = ТекСтрокаРезервыОО.Сотрудник;
        Если ЗначениеЗаполнено(ТекСтрокаРезервыОО.СуммаИспользовано) ИЛИ НЕ ПустаяСтрока(ТекСтрокаРезервыОО.СуммаИспользовано) Тогда
        Движение.ОстаткиОтпусков = ТекСтрокаРезервыОО.СуммаИспользовано;
        КонецЕсли;
        //Движение.ИспользованоОО = -ТекСтрокаРезервыОО.СуммаИспользовано;
    КонецЦикла;
    
КонецПроцедуры
1 Godofsin
 
26.02.15
09:30
Проверку заполнения установи
2 Godofsin
 
26.02.15
09:30
У реквизита ТЧ
3 Лефмихалыч
 
26.02.15
09:30
Для Каждого ТекСтрокаРезервыОО Из РезервыОО Цикл
     Если не ЗначениеЗапронено() Тогда
         Продолжить;
     КонецЕсли;
     и вот тут уже все остальное
4 Cube
 
26.02.15
09:31
Для Каждого ТекСтрокаРезервыОО Из РезервыОО Цикл
        Если ЗначениеЗаполнено(ТекСтрокаРезервыОО.СуммаИспользовано) ИЛИ НЕ ПустаяСтрока(ТекСтрокаРезервыОО.СуммаИспользовано) Тогда
        Движение = Движения.РезервыПредстоящихРасходов.Добавить();
        Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
        Движение.Период = Дата;
        Движение.Сотрудник = ТекСтрокаРезервыОО.Сотрудник;
        Движение.ОстаткиОтпусков = ТекСтрокаРезервыОО.СуммаИспользовано;
        //Движение.ИспользованоОО = -ТекСтрокаРезервыОО.СуммаИспользовано;
        КонецЕсли;
    КонецЦикла;
5 mikecool
 
26.02.15
09:37
(4) а анфига ПустаяСтрока(ТекСтрокаРезервыОО.СуммаИспользовано) ?
6 Cube
 
26.02.15
09:40
(5) Это тупой копипаст, я даже не вникал, просто переставил строки "шоб работало как надо" :)
7 capllary
 
26.02.15
09:40
(3) Спасибо.
8 Крошка Ру
 
26.02.15
09:57
(3) "ЗначениеЗапронено()"

Хорошая функция, надо взять на вооружение.
Проблемы невозможно решaть нa том же уровне компетентности, нa котором они возникaют. Альберт Эйнштейн