/* Teste */
/#
'<input type="hidden" name="tip',v1001,'" value="',if v77:'-' or v84:'-' or v80='Metalurgia & Materiais' then 'PERIODICO' else 'LIVRO' fi,'">',/#
'<input type="hidden" name="tit',v1001,'" value="',mhl,v50+|; |,mpl,'">',/
'<input type="hidden" name="aut',v1001,'" value="',mhl,v30+|; |,mpl,'">',/
'<input type="hidden" name="ins',v1001,'" value="',mhl,v40+|; |,mpl,'">',/
'<input type="hidden" name="loc',v1001,'" value="',mhl,v71+|; |,mpl,'">',/
'<input type="hidden" name="vol',v1001,'" value="',mhl,v76,mpl,'">',/
'<input type="hidden" name="pag',v1001,'" value="',mhl,v77,mpl,'">',/
'<input type="hidden" name="qtd',v1001,'" value="',
if v77:'-' or v84:'-' then,
  if p(v77) then,
    if size(left(v77,instr(v77,'-')-1)) > size(right(v77,size(v77)-instr(v77,'-'))) then
      f(val(s(left(v77,size(left(v77,instr(v77,'-')-1))-size(right(v77,size(v77)-instr(v77,'-')))),right(v77,size(v77)-instr(v77,'-'))))-val(left(v77,instr(v77,'-')-1)),1,0)
    else,
      f(val(right(v77,size(v77)-instr(v77,'-')))-val(left(v77,instr(v77,'-')-1)),1,0)
    fi,
  fi,
  if p(v84) then,
    if size(left(v84,instr(v84,'-')-1)) > size(right(v84,size(v84)-instr(v84,'-'))) then
      f(val(s(left(v84,size(left(v84,instr(v84,'-')-1))-size(right(v84,size(v84)-instr(v84,'-')))),right(v84,size(v84)-instr(v84,'-'))))-val(left(v84,instr(v84,'-')-1)),1,0)
    else
      f(val(right(v84,size(v84)-instr(v84,'-')))-val(left(v84,instr(v84,'-')-1)),1,0)
    fi,
  fi,
,else,
  if  v80='Metalurgia & Materiais' then,
    '1', /* Se nao tinha IF e eh Met. e Mat. eh uma página */
  ,else,
    '0',
  fi,
fi,
'">',/#