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 |
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"/> |