/[papo]/papo/neb/examples/search.neb
ViewVC logotype

Diff of /papo/neb/examples/search.neb

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by jlenton, Wed Apr 9 23:52:49 2003 UTC revision 1.3 by jlenton, Thu Apr 10 05:07:58 2003 UTC
# Line 1  Line 1 
1  <!-- Componente de búsqueda -->  <!-- Componente de búsqueda -->
2  <neb:Vars>  <neb:Vars>
3  $detailblock                    # el nombre del bloque del detalle  $detailblock                    # el nombre del bloque del detalle
4  @fields                         # un array de referencias a hashes. Claves usadas: label, entry, width  $fields                         # una referencia a un array de referencias a hashes. Claves usadas: label, entry, width, name, field
5    $id_field                       # el nombre del campo en $resultds que es el ID
6  $name => 'Search'               # el nombre de la página (lo que dice en el tag de la página)  $name => 'Search'               # el nombre de la página (lo que dice en el tag de la página)
7  $searchblock => 'searchBlock'    # el nombre del bloque de la búsqueda  $searchblock => 'searchBlock'   # el nombre del bloque de la búsqueda
8  $resultblock => 'resultBlock'   # el nombre del bloque del resultado  $resultblock => 'resultBlock'   # el nombre del bloque del resultado
9  $searchds => 'searchDataSource' # el datasource de la búsqueda  $searchds => 'searchDataSource' # el datasource de la búsqueda
10  $resultds => 'resultDataSource' # el datasource del result  $resultds => 'resultDataSource' # el datasource del result
# Line 19  $prompt => 'Ingrese los datos' Line 20  $prompt => 'Ingrese los datos'
20      </trigger>      </trigger>
21      <block name="neb:$searchblock" datasource="neb:$searchds" transparentBlock="y">      <block name="neb:$searchblock" datasource="neb:$searchds" transparentBlock="y">
22        <label text="neb:$prompt" x="1" y="1"/>        <label text="neb:$prompt" x="1" y="1"/>
23  <neb:Block>my $row = 2; foreach (@fields) {</neb:Block>  <neb:Block>my $row = 2; foreach (@$fields) {</neb:Block>
24        <label text="neb:$_->{label}" x="1" y="neb:$row"/>        <label text="neb:$_->{label}" x="1" y="neb:$row"/>
25        <entry name="neb:$_->{entry}" x="neb:length($_->{label})+2" y="neb:$row++" width="neb:$_->{width}"/>        <entry name="neb:$_->{entry}" x="neb:length($_->{label})+2" y="neb:$row++" width="neb:$_->{width}"/>
26        <label text=" ó el Código Interno:" x="1" y="3"/>  <neb:Block>}</neb:Block>
27        <entry name="searchCodeEntry" x="23" y="3" width="19"/>        <button x="60" y="neb:$row++" trigger="productSearchTrigger" width="9" label="Buscar" name="searchBtn" height="1"/>
28        <button x="60" y="2" trigger="productSearchTrigger" width="9" label="Buscar" name="searchBtn" height="1"/>        <button x="60" y="neb:$row++" trigger="printTrigger" width="9" label="Imprimir" name="searchBtn" height="1"/>
29        <button x="60" y="3" trigger="printTrigger" width="9" label="Imprimir" name="searchBtn" height="1"/>        <entry name="funnyLabel" width="40" x="40" y="neb:$row" style="label"/>
       <entry name="funnyLabel" width="40" x="40" y="4" style="label"/>  
30       </block>       </block>
31       <block name="neb:$resultblock" datasource="resultDataSource" transparentBlock="y">       <block name="neb:$resultblock" datasource="neb:$resultds" transparentBlock="y">
32        <entry name="idREntry" field="_product_data._table" hidden="y" x="1" y="1" width="20" />        <entry name="idREntry" field="neb:$id_field" hidden="y" x="1" y="1" width="20" />
33        <label text="Resultado" x="1" y="4"/>        <label text="Resultado" x="1" y="neb:$row++"/>
34        <entry name="codeListEntry" field="_product_code_data.code" x="1" y="5" width="16" rows="15"/>  <neb:Block>my $col = 0; my $wid = int(67/@$fields); foreach (@$fields) {</neb:Block>
35        <entry name="nameListEntry" field="_product_data.canonical_name" x="17" y="5" width="50" rows="15"/>        <entry name="neb:$_->{name} . 'ListEntry'" field="neb:$_->{field}" x="neb:1+$wid*$col++" y="neb:$row" width="neb:$wid" rows="15"/>
36    <neb:Block>}</neb:Block>
37        <scrollbar page="12" x="68" y="5" width="1" height="15"/>        <scrollbar page="12" x="68" y="5" width="1" height="15"/>
38       </block>       </block>
39    </page>    </page>

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26