5 |
$database |
$database |
6 |
$table |
$table |
7 |
$order_by |
$order_by |
8 |
$zotfile |
$zotfile => $ENV{ZOTFILE} |
9 |
</neb:Vars> |
</neb:Vars><neb:Block> |
10 |
|
use Zot; |
11 |
|
my $zot = Zot->new($zotfile); |
12 |
|
$zot->parse; |
13 |
|
$zot->add_history; |
14 |
|
|
15 |
|
my $hist = "_${table}_data"; |
16 |
|
|
17 |
|
$_->{name} = $_->{field} . 'Field' |
18 |
|
foreach (@$fields); |
19 |
|
|
20 |
|
if ($zot->table($hist)) |
21 |
|
{ |
22 |
|
$hist .= '.'; |
23 |
|
substr $order_by, 0, 0, $hist; |
24 |
|
substr $_->{field}, 0, 0, $hist |
25 |
|
foreach (@$fields, @$search); |
26 |
|
} |
27 |
|
|
28 |
|
|
29 |
|
|
30 |
|
</neb:Block> |
31 |
<datasource name="focusDataSource" cache="1"/> |
<datasource name="focusDataSource" cache="1"/> |
32 |
<datasource name="searchDataSource" cache="1"/> |
<datasource name="searchDataSource" cache="1"/> |
33 |
<neb:Sub neb:src="datasource.nebc" search="neb:$table" |
<neb:Sub neb:src="datasource.nebc" search="neb:$table" |
87 |
</trigger> |
</trigger> |
88 |
|
|
89 |
<page name="neb:$pages->{search}"> |
<page name="neb:$pages->{search}"> |
90 |
|
<lam:box height="1"/> |
91 |
|
<lam:box lam:boxtype="h"> |
92 |
|
<lam:box width="2"/> |
93 |
|
<lam:box> |
94 |
<trigger type="Pre-Focusout"> |
<trigger type="Pre-Focusout"> |
95 |
editBlock.clear() |
editBlock.clear() |
96 |
if resultBlock.getRecordCount() > 0 and not resultBlock.getCurrentRecord().isEmpty(): |
if resultBlock.getRecordCount() > 0 and not resultBlock.getCurrentRecord().isEmpty(): |
100 |
resultBlock.clear() |
resultBlock.clear() |
101 |
searchBlock.clear() |
searchBlock.clear() |
102 |
</trigger> |
</trigger> |
103 |
<block name="searchBlock" datasource="searchDataSource" transparentBlock="" restrictInsert=""> |
<block name="searchBlock" datasource="searchDataSource" transparentBlock="" restrictInsert=""> |
|
<lam:box> |
|
|
<neb:Block>foreach (0..$#$search) {</neb:Block> |
|
|
<label text="neb:$search->[$_]->{search_label}"/> |
|
|
<entry name="neb:qq'searchEntry$_'"/> |
|
|
<neb:Block>}</neb:Block> |
|
|
<button trigger="searchTrigger" label="Buscar" name="searchBtn"/> |
|
|
</lam:box> |
|
|
</block> |
|
|
<block name="resultBlock" datasource="resultDataSource" restrictInsert="y" transparentBlock="y"> |
|
|
<entry name="idREntry" field="id" hidden="y"/> |
|
|
<lam:box lam:boxtype="h"> |
|
|
<neb:Block>foreach (0..$#$search) {</neb:Block> |
|
104 |
<lam:box> |
<lam:box> |
105 |
<label text="neb:$search->[$_]->{result_label}"/> |
<neb:Block>foreach (0..$#$search) {</neb:Block> <label |
106 |
<entry name="neb:qq'listEntry$_'" field="neb:$search->[$_]->{field}" rows="*"/> |
text="neb:$search->[$_]->{search_label}"/> <entry |
107 |
</lam:box> |
name="neb:qq'searchEntry$_'"/> <neb:Block>}</neb:Block> |
108 |
<neb:Block>}</neb:Block> |
<button trigger="searchTrigger" label="Buscar" |
109 |
<lam:box width="1"> |
name="searchBtn"/> |
|
<scrollbar page="12"/> |
|
110 |
</lam:box> |
</lam:box> |
111 |
|
</block> |
112 |
|
<lam:box height="1"/> |
113 |
|
<block name="resultBlock" datasource="resultDataSource" restrictInsert="y" transparentBlock="y"> |
114 |
|
<entry name="idREntry" field="id" hidden="y"/> |
115 |
|
<lam:box lam:boxtype="h"> |
116 |
|
<neb:Block>foreach (0..$#$search) {</neb:Block> |
117 |
|
<lam:box> |
118 |
|
<label text="neb:$search->[$_]->{result_label}"/> |
119 |
|
<entry name="neb:qq'listEntry$_'" field="neb:$search->[$_]->{field}" rows="*"/> |
120 |
|
</lam:box> |
121 |
|
<neb:Block>}</neb:Block> |
122 |
|
<lam:box width="2"/> |
123 |
|
<lam:box> |
124 |
|
<label text=""/> |
125 |
|
<scrollbar/> |
126 |
|
</lam:box> |
127 |
|
<lam:box width="1"/> |
128 |
|
</lam:box> |
129 |
|
</block> |
130 |
</lam:box> |
</lam:box> |
131 |
</block> |
<lam:box width="2"/> |
132 |
|
</lam:box> |
133 |
|
<lam:box height="1"/> |
134 |
</page> |
</page> |
135 |
<page name="neb:$pages->{edit}"> |
<page name="neb:$pages->{edit}"> |
136 |
<trigger type="pre-Focusout" src="askForChangesTrigger"/> |
<trigger type="pre-Focusout" src="askForChangesTrigger"/> |
137 |
<block name="editBlock" datasource="editDataSource" restrictInsert="y"> |
<block name="editBlock" datasource="editDataSource" restrictInsert="y"> |
138 |
<entry x="0" y="0" name="idEntry" field="country.id" hidden="y"/> |
<entry x="0" y="0" name="idEntry" field="country.id" hidden="y"/> |
139 |
<button x="31" y="0" trigger="newTrigger" width="9" label="Nuevo" name="newButton" height="1"/> |
<lam:box lam:boxtype="h"> |
140 |
<lam:box> |
<lam:box width="1"/> |
141 |
<neb:Block>foreach (@$fields) {</neb:Block> |
<lam:box> |
142 |
<label text="neb:$_->{desc}"/> |
<lam:box height="1"/> |
143 |
<entry name="neb:$_->{name}" field="neb:$_->{field}"/> |
<lam:box lam:boxtype="h" halign="right"> |
144 |
<neb:Block>}</neb:Block> |
<lam:box width="*"/> |
145 |
|
<button trigger="newTrigger" label="Nuevo" name="newButton"/> |
146 |
|
</lam:box> |
147 |
|
<neb:Block>foreach (@$fields) {</neb:Block> |
148 |
|
<label text="neb:$_->{desc}"/> |
149 |
|
<entry name="neb:$_->{name}" field="neb:$_->{field}"/> |
150 |
|
<neb:Block>}</neb:Block> |
151 |
|
<lam:box height="*"/> |
152 |
|
<lam:box lam:boxtype="h"> |
153 |
|
<lam:box width="*"/> |
154 |
|
<button trigger="commitTrigger" label="Aceptar" name="commitBtn"/> |
155 |
|
<lam:box width="*"/> |
156 |
|
<button trigger="rollbackTrigger" label="Cancelar" name="rollbackBtn"/> |
157 |
|
<lam:box width="*"/> |
158 |
|
<button trigger="deleteTrigger" label="Borrar" name="deleteBtn"/> |
159 |
|
<lam:box width="*"/> |
160 |
|
</lam:box> |
161 |
|
<lam:box height="*"/> |
162 |
|
<lam:box height="*"/> |
163 |
|
</lam:box> |
164 |
|
<lam:box width="2"/> |
165 |
</lam:box> |
</lam:box> |
166 |
<button x="1" y="11" trigger="commitTrigger" width="9" label="Aceptar" name="commitBtn" height="1"/> |
</block> |
|
<button x="11" y="11" trigger="deleteTrigger" width="9" label="Borrar" name="deleteBtn" height="1"/> |
|
|
<button x="21" y="11" trigger="rollbackTrigger" width="9" label="Cancelar" name="rollbackBtn" height="1"/> |
|
|
</block> |
|
167 |
</page> |
</page> |