Forms Set_Block_Property

Hello All,

I am trying to set where clause for a block. The code follows error description. If a leave the field blank the condition is set properly, otherwise it gives me FRM-40505 error: unable to perform query.

What I am doing wrong ?

I appreciate any suggestions.

Thanks in advance.

DECLARE
  blk_id Block;
BEGIN
  blk_id := Find_Block('PACRESULT');
  IF NOT Id_Null(blk_id) THEN
    IF (:findpac.item_contacto IS NOT NULL) THEN       Set_Block_Property(blk_id, DEFAULT_WHERE, ' PACRESULT.TELEFONE1 LIKE %' || :findpac.item_contacto || '% ASC');

    ELSE
      Set_Block_Property(blk_id,DEFAULT_WHERE, '');     END IF;
    Set_Block_Property(blk_id,ORDER_BY, 'CLIENTE');     GO_BLOCK('PACRESULT');
    EXECUTE_QUERY;
  ELSE
    Message('O bloco PACRESULT não existe.');     RAISE Form_Trigger_Failure;
  END IF;
END;

-- 


 ---------------------------------------------------- 

|  -°)                                          (°-  |
|  /\\  Linux the choice of the GNU generation  //\  |
| _\_v                                          v_/_ |


 ---------------------------------------------------- 


Breno de Avellar Gomes 
Database Applications & Internet Developer

Arquivo-Sistemas de Bases de Dados
P. O. Box 5006
EC Municipio
4017-001 Porto
Portugal

brenogomes_at_ieee.org
brenogomes_at_acm.org
Cellular phone: 351-917383469
Cellular messages: 917383469_at_sms.telecel.pt
ICQ # 35567342

Toll free fax and answering machine from USA
1-888-EXCITE2  extension  291-303-8152

Outside USA (international fares apply)
1-917-463-3173