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