if a(v805) then
'
',
proc( 'd9001d9002',
'a9001|Id: |','a9002| ',v2,/,'|',
if p(v10) then
'a9001|Autor: |','a9002|'(v10^*,|^r|v10^r, if iocc < nocc(v10) then '; ' else '.' fi),'|',
fi,
if p(v11^p) then
'a9001|Autor: |','a9002|'(v11^p+|; |"."),/,'|',
else
if p(v11^*) then,
'a9001|Autor: |','a9002|'(v11^*+|; |"."),/,'|',
fi,
fi,
if p(v12) then
'a9001|Título:|','a9002|'(v12+| / |),| / |v13,"."n13,/,'|',
fi,
IF v06 = 'as' THEN
if p(v30) then,
'a9001|Fonte: |','a9002|'v30|;|,v31,|(|v32|)|,|:|v14|, |,v64|. |,v38+|, |,".",n13,/,'|',
fi,
FI,
IF v06 : 'am' THEN,
if p(v16^*) then
'a9001|Fonte:|','a9002|In: '(v16^*+|; |"."),
fi,
if p(v17^p) then
'a9001|Fonte:|','a9002|In: '(v17^p+|; |"."),
else
if p(v17) then
'a9001|Fonte:|','a9002|In: '(v17^*+|; |"."),
fi,
fi,
if p(v16) or p(v17) then,
v18'. ',v66', ',v62', ',v64'. ',|p.|v14,|, |v38'. ',/,|(|v30,|, |v31,|, |v32, if p(v30) then ').' fi, | (|v68|)|,/,'|',
fi,
FI,
IF v06*0.1 = 'm' THEN
if p(v16^*) then
'a9001|Autor:|','a9002|'(v16^*,|^r|v16^r, if iocc < nocc(v16) then '; ' else '.' fi/),'|',
fi,
if p(v17^p) then
'a9001|Autor:|','a9002|'(v17^p+|; |),/,'|',
else
if p(v17^*) then
'a9001|Autor:|','a9002|'(v17^*+|; |'*.'),/,'|',
fi,
fi,
if p(v18) then
'a9001|Título:|','a9002|'v18," / "v19,'.',"-"V21,/,'|',
fi,
if p(v66) then
'a9001|Fonte:|','a9002|'v66,'; ',v62,'; ',v64,'. ',v20| p. |,v38+|, |".",/,|(|v30, |, |v31, |, |v32, if p(v30) then ').' fi, |(|v68|).|,/,'|',
fi,
FI,
IF v06 = 'c' THEN
if p(v23^*) then
'a9001|Autor: |','a9002|'(v23^*+|;|),/,'|',
fi,
if p(v24^p) then
'a9001|Autor: |','a9002|'(v24^p+|; |),/,'|',
else
if p(v24^*) then
'a9001|Autor: |','a9002|'(v24^*+|; |),/,'|',
fi,
fi,
if p(v25) then
'a9001|Título: |','a9002|'(v25),|. |v27| vol.|,/,'|',
fi,
if p(v66) then
'a9001|Fonte: |','a9002|'v66'; ',v62'; ',v64'. ',v20| p. |,v38'.',/,'|',
fi,
FI,
if p(v50) then
'a9001|Tese:|','a9002|',|Apresentada a |,v50| para obtenção do grau de |,v51|.|,/,'|',
fi,
if p(v53) then
'a9001|Conferência:|','a9002|',|Apresentado em: |,v53|, |,v56|, |,v54|.|,/,'|',
fi,
if p(v58) then
'a9001|Projeto|','a9002|',(v58+|; |,'. '),v59|. |,v60|. |,/,'|',
fi,
if p(v83) then
'a9001|Resumo: |','a9002|',v83|.|,/,'|',
fi,
if p(v3) or p(v1) then
'a9001|Localização:|','a9002|',mhl,if a(v3) then v1 else (v3+|; |) fi,mpl,'|',
fi,
),
,@htmtable.pft,
'
',
FI,
,mpl,
if p(v805) then,
,@mailhtm.pft,
fi,
''