/[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.3 by jlenton, Thu Apr 10 05:07:58 2003 UTC revision 1.4 by jlenton, Thu Apr 10 23:01:39 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                         # 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 12  $prompt => 'Ingrese los datos' Line 12  $prompt => 'Ingrese los datos'
12  </neb:Vars>  </neb:Vars>
13    <page name="neb:$name">    <page name="neb:$name">
14      <trigger type="Pre-Focusout">      <trigger type="Pre-Focusout">
15          <neb:Perl>$detailblock</neb:Perl>.processRollback()          <neb:Inline>$detailblock</neb:Inline>.processRollback()
16          if <neb:Perl>$resultblock</neb:Perl>.getRecordCount() > 0 and not <neb:Perl>$resultblock</neb:Perl>.getCurrentRecord().isEmpty():          if <neb:Inline>$resultblock</neb:Inline>.getRecordCount() > 0 and not <neb:Inline>$resultblock</neb:Inline>.getCurrentRecord().isEmpty():
17            <neb:Perl>$detailblock</neb:Perl>.initQuery()            <neb:Inline>$detailblock</neb:Inline>.initQuery()
18            <neb:Perl>$detailblock</neb:Perl>.idEntry = ("%s" % <neb:Perl>$resultblock</neb:Perl>.idREntry)            <neb:Inline>$detailblock</neb:Inline>.idEntry = ("%s" % <neb:Inline>$resultblock</neb:Inline>.idREntry)
19            <neb:Perl>$detailblock</neb:Perl>.processQuery()            <neb:Inline>$detailblock</neb:Inline>.processQuery()
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"/>

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

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