Ассоциация ЭБНИТ    ИРБИС-корпорация    Вики-Ирбис    Online/CHM справка Ирбис   
АРМ Книговыдача :  ИРБИС Irbis
 
Универсальный счетчик
Пользователь: NGVasilyeva (IP-адрес скрыт)
Дата: 28, August, 2009 15:10

Добрый день!
Мы внедряем автоматизированную книговыдачу, и потребовалось распечатывать контрольный талон. Для этого я создала новый формат на базе имеющегося. Он содержит краткие сведения о читателе, список выданных ему книг, дату и подпись.
Вопрос заключается в том, что список книг надо бы представить в виде пронумерованного списка. Функцию &unifor('S1') нашли, но не поняли, как с ней работать. Не могу сообразить, в какое место надо вставить эту функцию, чтобы она нумеровала список книг.
Помогите, пожалуйста!

Re: Универсальный счетчик
Пользователь: Куделя (IP-адрес скрыт)
Дата: 28, August, 2009 15:19

В начале формата поставьте &uf('S0'), далее перед выводом повторения поля 40 (вы же по нему формируете список выданных книг?) поставьте &uf(|S1A|d40). Если покажете фрагмент кода, который отвечает за вывод строки списка можно будет написать точнее

Иркутская ОГУНБ
ИРБИС64.21Турбо
WebИРБИС-PHP

Re: Универсальный счетчик
Пользователь: NGVasilyeva (IP-адрес скрыт)
Дата: 28, August, 2009 15:49

посылаю свой формат.
заранее спасибо!

Вложения: rdrKT.pft (475 bytes)  
Re: Универсальный счетчик
Пользователь: Куделя (IP-адрес скрыт)
Дата: 28, August, 2009 16:36

в самом начале
&uf('S0')

и строку
(if v40^f.1='*' then |\par |d40,v40^C.40 fi)
на
(if v40^f.1='*' then |\par |d40,&uf(|S1A|d40^c),|. |v40^C.40 fi)

Иркутская ОГУНБ
ИРБИС64.21Турбо
WebИРБИС-PHP

Re: Универсальный счетчик
Пользователь: Alio (IP-адрес скрыт)
Дата: 28, August, 2009 17:09

Для подобных действий надо пользоваться не универсальным счетчиком (это "древний" форматный выход), а глобальными переменными: &uf('+7..

Re: Универсальный счетчик
Пользователь: NGVasilyeva (IP-адрес скрыт)
Дата: 31, August, 2009 08:38

большое спасибо! всё отлично работает :)

Re: Универсальный счетчик
Пользователь: woodyfon (IP-адрес скрыт)
Дата: 04, October, 2012 01:08

Alio,
Не могли показать как реализовать эту задачу, используя глобальные переменные?
+
Если не прав, поправьте, пожалуйста:
&uf('+7'),
&uf('+7W100#'),
(if p(v40^f) then &uf('+7U100#'f((val(g100)+1),0,0))f(rsum(g100|;|),0,0)'. 'v40^c fi/),



Редактировано 2 раз. Последний раз 05.10.2012 02:24 пользователем woodyfon.



Извините, только зарегистрированные пользователи могут писать в этом форуме.
This forum powered by Phorum.