АРМ Администратор : ИРБИС
Глобальная корректировка
Пользователь: Бойчун Андрей (IP-адрес скрыт)
Дата: 01, May, 2008 14:46
Здравствуйте.
В поле 910 у нас оказались не размноженные инвентарные номера после переброса записей из Exel.
Пример: "^A0^B113630, 113631, 113632, 113633^C20080415".
Помогите, пожалуйста.
В поле 910 у нас оказались не размноженные инвентарные номера после переброса записей из Exel.
Пример: "^A0^B113630, 113631, 113632, 113633^C20080415".
Помогите, пожалуйста.
Re: Глобальная корректировка
Пользователь: ochagova (IP-адрес скрыт)
Дата: 04, May, 2008 10:30
Попробуйте:
DEL
1910
*
REPEAT
ADD
1910
if &unifor('Av910^B#1'):',' then (if &unifor('1*R,?v910^B#1')<>''then if &unifor('Av910^A#1')<>'' then '^A',&unifor('Av910^A#1') fi,if &unifor('Av910^C#1')<>'' then '^C',&unifor('Av910^C#1') fi,,,'^B',&unifor('1*R,?v910^B#1') fi/) else &unifor('Av910#1') fi
DEL
910
1
UNTIL
if p(v910) then '1' fi
ADD
910
(v1910/)
DEL
1910
*
DEL
1910
*
REPEAT
ADD
1910
if &unifor('Av910^B#1'):',' then (if &unifor('1*R,?v910^B#1')<>''then if &unifor('Av910^A#1')<>'' then '^A',&unifor('Av910^A#1') fi,if &unifor('Av910^C#1')<>'' then '^C',&unifor('Av910^C#1') fi,,,'^B',&unifor('1*R,?v910^B#1') fi/) else &unifor('Av910#1') fi
DEL
910
1
UNTIL
if p(v910) then '1' fi
ADD
910
(v1910/)
DEL
1910
*
Re: Глобальная корректировка
Пользователь: Бойчун Андрей (IP-адрес скрыт)
Дата: 05, May, 2008 13:47
Спасибо большое!!! Все работает. и я наконец-то разобрался как правильно оформлять циклы.:)
Извините, только зарегистрированные пользователи могут писать в этом форуме.