Ассоциация ЭБНИТ    ИРБИС-корпорация    Вики-Ирбис    Online/CHM справка Ирбис    FTP-сервер
АРМ Книговыдача :  ИРБИС Irbis
 
Добавить в чек ФИО выдавшего книги.
Пользователь: Konstantinus (IP-адрес скрыт)
Дата: 19, January, 2018 00:02

Добрый день!
Когда-то Светлана Михайловна Дунаевская помогла нас сделать супер-чек для термо-принтера.
Вот код pft-файла
'<p style="font-size: 10pt;">'&uf('32'),'.',&uf('34'),'.',&uf('30'),' <b>',v10' 'v11' 'v12'</b>',' квиток № <b>'v30'</b> отримав(ла) ',
f(rsum((if v40^f.1='*' and v40^v='*' then '1;' fi)),0,0)
' виданнь(я):<br>',
&uf('+7W1#'),
(if v40^f.1='*' then &uf('+7U1#',v40.400) fi),
if g1<>'' then '',&uf('S0'),
    (if g1<>'' then '____________________<br>'&uf('S1A'),') ',&uf('G0/'g1^a) '<br>' 
       if g1^c:'Журнал' then &uf('E8'g1^c) '<br>' g1^b,| (|g1^h|)|,| - | g1^v,'<br>'
       else 
          if &uf('E4'g1^c):'[Текст]' then &uf('G0['g1^c) else &uf('E4'g1^c) fi,
       '<br>', g1^b,| (|g1^h|)|,| - | g1^v,'<br>' fi fi )
'<br/><i>Розписка читача в одержанні літератури</i> _____________'
else '<br/><b>Заборгованість відсутня</b><br><br>Підпис бібліотекаря: _____________'
fi,
'</p>'

Помогите добавить в чек Логин выдавшего (или какую-то связку логин-ФИО).

Заранее спасибо!



Редактировано 1 раз. Последний раз 26.01.2018 15:11 пользователем Konstantinus.

Re: Добавить в чек ФИО выдавшего книги.
Пользователь: KPopov (IP-адрес скрыт)
Дата: 25, January, 2018 15:57

Сделайте примерно следующее:
if &uf('E4'g1^c):'[Текст]' then &uf('G0['g1^c) else &uf('E4'g1^c) fi,
'<br>', g1^b,| (|g1^h|)|,| - | g1^v, | (выдал - |,g1^I, |)| '<br>' fi fi )

Т.е. допишите где желаете видеть ответственного | (выдал - |,g1^I, |)|

40^I - ответственное лицо

Re: Добавить в чек ФИО выдавшего книги.
Пользователь: Konstantinus (IP-адрес скрыт)
Дата: 26, January, 2018 15:14

Спасибо!
Я поправил код формата. Но у меня получаются данные кто выдал конкретную книгу, а не кто обслужил читателя, то есть если выдали 2 книги вчера и одну сегодня, то на чеки будет список логинов выдавших, а мне хожеться перед подписью:
"обслужил - @текущий логин"
'<p style="font-size: 10pt;">'&uf('32'),'.',&uf('34'),'.',&uf('30'),' р.',' <b>',v10' 'v11' 'v12'</b>','чит. квиток № <b>'v30'</b> отримав(ла) ',
f(rsum((if v40^f.1='*' and v40^v='*' then '1;' fi)),0,0)
' виданнь(я):<br>',
&uf('+7W1#'),
(if v40^f.1='*' then &uf('+7U1#',v40.400) fi),
if g1<>'' then '',&uf('S0'),
    (if g1<>'' then '____________________<br>'&uf('S1A'),') ',&uf('G0/'g1^a) '<br>' 
       if g1^c:'Журнал' then &uf('E8'g1^c) '<br>' g1^b,| (|g1^h|)|,| - | g1^v,'<br>'
       else 
          if &uf('E4'g1^c):'[Текст]' then &uf('G0['g1^c) else &uf('E4'g1^c) fi,
       '<br>',|інв.№ |, g1^b,| (|g1^h|)|,| - | g1^v,| (вид. - |,g1^I|)|
       '<br>' fi fi ),
 
'<br/><i>Розписка читача в одержанні літератури</i> _____________'
else '<br/><b>Заборгованість відсутня</b><br><br>Підпис бібліотекаря: _____________'
fi,
'</p>'



Редактировано 2 раз. Последний раз 26.01.2018 15:16 пользователем Konstantinus.

Re: Добавить в чек ФИО выдавшего книги.
Пользователь: KPopov (IP-адрес скрыт)
Дата: 29, January, 2018 09:53

Я Вас понял.

Используйте функцию unifor:

Вернуть параметр из INI-файла – &uf('I…
Вид функции: I.
Назначение: Вернуть параметр из INI-файла.
Формат (передаваемая строка):
I<SECTION>,<PAR_NAME>,<DE-FAULT_VALUE>

В Вашем случае:

&unifor('IPRIVATE,FIO,') - ставьте вместо g1^I

Re: Добавить в чек ФИО выдавшего книги.
Пользователь: Konstantinus (IP-адрес скрыт)
Дата: 29, January, 2018 23:08

Сделал так, но не работает
'<p style="font-size: 10pt;">'&uf('32'),'.',&uf('34'),'.',&uf('30'),' р.',' <b>',v10' 'v11' 'v12'</b>',' чит. квиток № <b>'v30'</b> отримав(ла) ',
f(rsum((if v40^f.1='*' and v40^v='*' then '1;' fi)),0,0)
' виданнь(я):<br>',
&uf('+7W1#'),
(if v40^f.1='*' then &uf('+7U1#',v40.400) fi),
if g1<>'' then '',&uf('S0'),
    (if g1<>'' then '____________________<br>'&uf('S1A'),') ',&uf('G0/'g1^a) '<br>' 
       if g1^c:'Журнал' then &uf('E8'g1^c) '<br>' g1^b,| (|g1^h|)|,| - | g1^v,'<br>'
       else 
          if &uf('E4'g1^c):'[Текст]' then &uf('G0['g1^c) else &uf('E4'g1^c) fi,
       '<br>',|інв. № |, g1^b,| (|g1^h|)|,| - | g1^v,
       '<br>' fi fi ),
'<br><i>Видав</i> - <br>',
&unifor('IPRIVATE,FIO,'),
'<br/><i>Розписка читача в одержанні літератури</i> _____________'
else '<br/><b>Заборгованість відсутня</b><br><br>Підпис бібліотекаря: _____________'
fi,
'</p>'

Re: Добавить в чек ФИО выдавшего книги.
Пользователь: KPopov (IP-адрес скрыт)
Дата: 30, January, 2018 17:15

Посмотрите в ини-файле книговыдачи есть ли такая секция и параметр.

Re: Добавить в чек ФИО выдавшего книги.
Пользователь: Konstantinus (IP-адрес скрыт)
Дата: 30, January, 2018 23:05

Там нет этого параметра, но есть нужный мне, он называется UserName

Re: Добавить в чек ФИО выдавшего книги.
Пользователь: KPopov (IP-адрес скрыт)
Дата: 31, January, 2018 16:03

Попробуйте этот параметр
&unifor('IMAIN,UserName,')



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