$masterDatasource # el nombre del datasource del abm $masterBlock => 'addressentityBlock' $fields # una referencia a un array de referencias a hashes. Claves usadas: label, entry, width, name, field $masterBoxLabel => 'Sucursal' #locales $name => 'Search' # el nombre de la página (lo que dice en el tag de la página) = 0.5 from gnue.common.events.Event import Event as GFEvent # busy clock form._object.dispatchEvent(GFEvent('beginWAIT')) setStatusText('buscando...') def setAddressType (recNo): if recNo>=0: addressTypeResultBlock.jumpRecord (recNo) addressBlock.addressTypeIdEntry= str(addressTypeResultBlock.addressTypeResultIdEntry) addressBlock.addressTypeNameEntry= str(addressTypeResultBlock.addressTypeResultNameEntry) # look for the name... addressTypeResultBlock.processRollback () addressTypeResultBlock.initQuery () addressTypeResultBlock.addressTypeResultNameEntry= str(addressBlock.addressTypeNameEntry)+'%' addressTypeResultBlock.processQuery () # are there too much results? resultCount= addressTypeResultBlock.getRecordCount () if resultCount>1: # do the select-man runForm ('addressTypeSelect.gfd', { 'data':addressTypeResultBlock, 'callback': setAddressType }) elif resultCount==1: setAddressType (0) setStatusText('Aceptar') form._object.dispatchEvent(GFEvent('endWAIT')) ]]> my $x = 1; foreach (@$fields) {