$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) {$x+=$_->{width};}