/* 01/02/2008 09:20:25 - Eliminei MHU do campo #30 devido a erros no XML */
select s(v6.1)
case 'm': ''
MHL,
,if nocc(v16)>3 then v16[1],' et al. '
else v16+|; |". ",
,fi
v17+|; |"."," "v54", ",v56".",''
,if p(v16) or p(v17)
then
'',v18,". "n181,": "d181,'',
else '',v18,". "n181,": "d181,''
,fi,
'',v181". ","["v19"]. ",v15+|; |". ",v63". ",v630". ",
,if p(v62) and v62<>v17 and v62<>v16 then " "v66[1],": "d62,v62+|; |", ",
else
," "v66[1]", ",
,fi,
,v64". ",v21". ",v31". ",if p(v19) then v20" p., ",v38". ","("v30"). " else
v20" p. ",v38". ","("v30"). " fi,
v51^a," ("v51^b")"," - "v50".", "Escala: "v39". "," "v61+|; |".",
,if p(v8) then "Disponível em: "v8^i,". Acesso em: "v8^u fi,''
case 'a': '',MHL,v10+|; |". ",v12,". In: "d18,
,if p(v10) and s(v10)=s(v16) then '___.' else,v16+|; |".",v17+|; |".",fi,
" "v54", ",v56".",'',' ',v18,". "n181,": "d181,'',
,if v6:'s' then '',v30". ",'',fi,
''v181". ", v63". ",
,if p(v62) then " "v66[1],else " "v66[1]", " fi,
,if v6:'s' then
": "v62[1]", ",
if val(v31.1)<>0 then "v."v31", " else v31", " fi,"n."v32", ",
if v14:'p' then v14". " else "p."v14". ",fi,v64". ",
v61+|; |".", else,
": "v62[1]", ",v64". ","("v30"). "," "v50".","p. "v14".",
v61+|; |".",fi,'',
case 's': ''v30^*". ",
if p(v62) then " "v66[1],else " "v66[1]", " fi,
": "v62[1]", ",
if val(v31.1)<>0 then "v."v31", " else v31", " fi,"n."v32". ",
v64". ",
if v20:'p' then v20 else v20"p. ",fi,
" "v61+|; |".",''
case 'c': '',v30^*". ",,
if p(v62) then " "v66[1],else " "v66[1]", " fi,
": "v62[1]", ",
if val(v31.1)<>0 then "v."v31", " else v31", " fi,"n."v32". ",
v64". ",
if v20:'p' then v20 else v20"p. ",fi,
" "v61+|; |".",''
endsel,