/* Prototipo Beta - 01 */
/#
'<input type="hidden" name="tip',v1001,'" value="',
 if v77:'-' or v84:'-' or v80='Metalurgia & Materiais' or v1='ABM CA52' then
   if v1='ABM CA52' and s(mpu,v91,mpl):'CONGRESSO' then 'LIVRO' else 'PERIODICO' fi,
 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,
'">',/
'<input type="hidden" name="lug',v1001,'" value="',mhl,v1,mpl,'">',/
'<input type="hidden" name="evt',v1001,'" value="',mhl,v70,mpl,'">',/
'<input type="hidden" name="cid',v1001,'" value="',mhl,v73,mpl,'">',/
'<input type="hidden" name="edt',v1001,'" value="',mhl,v74,mpl,'">',/
'<input type="hidden" name="ano',v1001,'" value="',mhl,v75,mpl,'">',/#