Имя: Пароль:
1C
1C 7.7
v7: Отбор документов Перемещения
0 myr4ik07
 
03.10.16
21:05
Привет. Не могу понять, вот такая писанина http://paste1c.ru/2am хочу  пометить документы перемещения единичкой, как бы помечаю, но в результате получаю http://prntscr.com/cpe5yg хотя, есть и правильная пометка, где ошибся подскажите пожалуйтса?
1 HawkEye
 
03.10.16
21:10
(0) код в скрине - это нечто, долго думал? ))

ошибся в цикле цикла, если последний документ второго цикла накладная, то будет то, что на скрине
2 myr4ik07
 
03.10.16
21:11
(1) долго )), и так хорошо хоть такой написал ), 7-ка это нечто
3 myr4ik07
 
03.10.16
21:12
(1) там где группировка ошибка?
4 HawkEye
 
03.10.16
21:12
(2) когда руки кривые, даже счеты "это нечто"....
5 myr4ik07
 
03.10.16
21:13
(4) это не от рук, поверь, это от не понимания механизмов, всего лишь
6 HawkEye
 
03.10.16
21:13
(3) ошибка в построении логики кода...
циклов два, а новаястрока - одна...
7 HawkEye
 
03.10.16
21:14
(5) это не понимание механизмов, это не понимание логики, от языка не зависит... поверь....
8 HawkEye
 
03.10.16
21:15
(5) после ТЗ.удалить = 1; поставь Прервать;
9 myr4ik07
 
03.10.16
21:16
(7) верю, но руки тут не причем, как исправить напишешь? потому как методом тыка буду пользоваться ), пожалей )
10 myr4ik07
 
03.10.16
21:17
(8) спасибо, в точку, шаришь )
11 myr4ik07
 
03.10.16
21:18
(8) если честно, вот смотрю и не доходит ), не знаю, в интерфейсе конфигуратора 8-ки как то легче даже думать
12 HawkEye
 
04.10.16
08:31
(11) при чем тут интерфейс то? с чего ты решил, что последний документ во втором цикле это перемещение?
13 пипец
 
04.10.16
09:11
запрос - запрос выгрузить в ТЗ и цикл по тз
14 myr4ik07
 
13.10.16
16:33
(13) для чего промежуточное звено ТЗ? Выборкой не проще, а потом что подходит то в ТЗ?
15 VoditelKobyly
 
17.10.16
04:18
Вот запрос, который пометит все документы перемещения единичкой:

    ТекстЗапроса =
    "//{{ЗАПРОС(Сформировать)
    |Период с ВыбНачПериода по ВыбКонПериода;
    |Склад = Регистр.ОстаткиТМЦ.Склад;
    |Фирма = Регистр.ОстаткиТМЦ.Фирма;
    |Номенклатура = Регистр.ОстаткиТМЦ.Номенклатура;
    |Количество = Регистр.ОстаткиТМЦ.Количество;
    |Док = Регистр.ОстаткиТМЦ.ТекущийДокумент;
    |Функция КоличествоНачОст = НачОст(Количество);
    |Функция КоличествоПриход = Приход(Количество);
    |Функция КоличествоРасход = Расход(Количество);
    |Функция КоличествоКонОст = КонОст(Количество);
    |Функция КоличествоПеремещения = Минимум(1) когда(Док.Вид()=""ПеремещениеТМЦ"");
    |Группировка Номенклатура без групп;
    |Группировка Док;
    |Условие(Склад в ВыбСклад);
    |Условие(Фирма в ВыбФирма);
    |Условие(Номенклатура в ВыбНоменклатура);
    |"//}}ЗАПРОС
    ;
    // Если ошибка в запросе, то выход из процедуры
    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
        Возврат;
    КонецЕсли;