Exemplo 6 – pesquisa em tabela com quantidade de exemplares

Formulário html

[codesyntax lang="html4strict" container="pre"]
<html>
<head><title>Script6</title></head>
<body>
<h3>Modelo de Formulário para Pesquisas</h3>
<form action="/cgi-bin/wxis.exe" method="post">
  <input type="hidden" name="IsisScript" value="curso/script6.xis">
   Digite sua expressão de pesquisa<br>
  <input type="text" name="expressao">
  <input type="submit" value="Pesquisar">
</form>
</body>
</html>
[/codesyntax]

Script

[codesyntax lang="html4strict" container="pre"]
<IsisScript>
<section>
<display><pft>'Content-type: text/html'/#</pft></display>
<field action="cgi" tag="2001">expressao</field>
<parm name="cipar">
<pft>
'BASE1.*=C:\bases\livro\livro.*'/
'GIZMO.*=C:\bases\gizmo\asc2ans.*'/
</pft>
</parm>
  <flow action="jump"><pft>if a(v2001) then 'ERRO1', fi</pft></flow>
  <do task="search">
<parm name="db">BASE1</parm>
<parm name="gizmo">GIZMO</parm>
<parm name="expression"><pft>v2001</pft></parm>
<field action="define" tag="1001">Isis_Current</field>
<field action="define" tag="1002">Isis_Total</field>

<!--ATENCAO: Variaveis do tipo define nao precisam ser importadas pelo Loop.
E é preciso MUITA atencao com maiusculas e minusculas-->

<field action="replace" tag="2010">0</field>
<!--Cria e inicializa contador de exemplares -->
<display>
<div align="center">
<h2>Resultados da Pesquisa na Base Livro</h2>
</div>
</display>
<display>
 <table border="1" align="center">
<tr>
 <td><b>Quant.</b></td>
 <td><b>MFN</b></td>
 <td><b>Autor/Título</b></td>
 <td><b>N. Exemplares</b></td>
</tr>
</display>
<loop>
<field action="import" tag="2010">2010</field>
<field action="replace" tag="2010"><pft>f(val(v2010)+nocc(v949),0,0)</pft></field>
<display>
<pft>
'<tr>
<td>'v1001'/'v1002'</td>
<td>'mfn'</td>
<td>'mhl,v245'</td>
<td>'f(nocc(v949),0,0)'</td>
[/codesyntax]

Was this helpful?

0 / 0

Deixe uma resposta 0

Your email address will not be published. Required fields are marked *