/[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.4 by jlenton, Thu Apr 10 23:01:39 2003 UTC revision 1.5 by mhepp, Mon Apr 14 20:25:30 2003 UTC
# Line 1  Line 1 
1  <!-- Componente de búsqueda -->  
2    <!-- Componente de busqueda -->
3  <neb:Vars>  <neb:Vars>
4  $detailblock                    # el nombre del bloque del detalle  $detailblock                    # el nombre del bloque del detalle
5  $fields                         # una referencia a un array de referencias a hashes. Claves usadas: label, entry, width, name, field  $fields                         # una referencia a un array de referencias a hashes. Claves usadas: label, entry, width, name, field
# Line 10  $searchds => 'searchDataSource' # el dat Line 11  $searchds => 'searchDataSource' # el dat
11  $resultds => 'resultDataSource' # el datasource del result  $resultds => 'resultDataSource' # el datasource del result
12  $prompt => 'Ingrese los datos'  $prompt => 'Ingrese los datos'
13  </neb:Vars>  </neb:Vars>
14    <page name="neb:$name">  
15    
16        <page name="neb:$name">
17      <trigger type="Pre-Focusout">      <trigger type="Pre-Focusout">
18          <neb:Inline>$detailblock</neb:Inline>.processRollback()      <neb:Inline>$detailblock</neb:Inline>.processRollback()
19          if <neb:Inline>$resultblock</neb:Inline>.getRecordCount() > 0 and not <neb:Inline>$resultblock</neb:Inline>.getCurrentRecord().isEmpty():      if <neb:Inline>$resultblock</neb:Inline>.getRecordCount() > 0 and not <neb:Inline>$resultblock</neb:Inline>.getCurrentRecord().isEmpty():
20            <neb:Inline>$detailblock</neb:Inline>.initQuery()      <neb:Inline>$detailblock</neb:Inline>.initQuery()
21            <neb:Inline>$detailblock</neb:Inline>.idEntry = ("%s" % <neb:Inline>$resultblock</neb:Inline>.idREntry)      <neb:Inline>$detailblock</neb:Inline>.idEntry = ("%s" % <neb:Inline>$resultblock</neb:Inline>.idREntry)
22            <neb:Inline>$detailblock</neb:Inline>.processQuery()      <neb:Inline>$detailblock</neb:Inline>.processQuery()
23      </trigger>      </trigger>
24      <block name="neb:$searchblock" datasource="neb:$searchds" transparentBlock="y">      <block name="neb:$searchblock" datasource="neb:$searchds" transparentBlock="y">
25        <label text="neb:$prompt" x="1" y="1"/>       <label text="neb:$prompt" x="1" y="1"/>
26  <neb:Block>my $row = 2; foreach (@$fields) {</neb:Block>  <neb:Block>my $row = 2; foreach (@$fields) {</neb:Block>
27        <label text="neb:$_->{label}" x="1" y="neb:$row"/>        <label text="neb:$_->{label}" x="1" y="neb:$row"/>
28        <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}"/>

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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