Движения по новому регистру.

1С v8

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