Re: SET_BLOCK_PROPERTY - DEFAULT_WHERE Problem
Date: Thu, 11 Oct 2018 06:02:09 -0700 (PDT)
Message-ID: <d5755f90-faba-42e7-a978-804d9194dba1_at_googlegroups.com>
On Friday, August 30, 2002 at 2:13:10 AM UTC+5:30, Daniel Morgan wrote:
> Finally ran into something where neither HELP, nor Oracle docs, nor my
> book collection seems to be able to provide an answer or a workaround.
>
> Has anyone figured out how to get past this in Oracle Froms 6i?
>
> SET_BLOCK_PROPERTY('permit_request', DEFAULT_WHERE, 'permit_request_no =
> ' || :workorder_permit.permit_request_no);
>
> Alters the default WHERE clause and adds the above parameter ... good so
> far.
>
> But there seems to be no way to get back to the default WHERE clause.
> Which in most cases for this particular form is no WHERE clause at all.
>
> Any suggestions welcome.
>
> Thanks,
>
> Daniel Morgan
On Friday, August 30, 2002 at 2:13:10 AM UTC+5:30, Daniel Morgan wrote:
> Finally ran into something where neither HELP, nor Oracle docs, nor my
> book collection seems to be able to provide an answer or a workaround.
>
> Has anyone figured out how to get past this in Oracle Froms 6i?
>
> SET_BLOCK_PROPERTY('permit_request', DEFAULT_WHERE, 'permit_request_no =
> ' || :workorder_permit.permit_request_no);
>
> Alters the default WHERE clause and adds the above parameter ... good so
> far.
>
> But there seems to be no way to get back to the default WHERE clause.
> Which in most cases for this particular form is no WHERE clause at all.
>
> Any suggestions welcome.
>
> Thanks,
>
> Daniel Morgan
[Quoted] Hi All,
I get error (ora 06502) while executing the below code. Pls help
DECLARE
CRI VARCHAR2(100); PER VARCHAR2(5); BEGIN PER := '%'; IF :CONTROL.CHOICE = 1 THEN CRI := 'INVH_DT BETWEEN '''||:CONTROL.FRDT||''''||'AND'''||:CONTROL.TODT||''''|| 'AND INVH_DOC_SRC_LOCN_CODE = '''||:CONTROL.LOC||''''; ELSIF :CONTROL.CHOICE = 2 THEN CRI := 'INVH_DT BETWEEN '''||:CONTROL.FRDT||''''||'AND'''||:CONTROL.TODT||''''|| 'AND INVH_DOC_SRC_LOCN_CODE ='''||:CONTROL.LOC||''''|| 'AND INVH_CUST_NAME LIKE '''||PER||UPPER(:CONTROL.TEXT1)||PER||''''; END IF; SET_BLOCK_PROPERTY('OT_INVOICE_HEAD',DEFAULT_WHERE,CRI); GO_BLOCK('OT_INVOICE_HEAD'); EXECUTE_QUERY(NO_VALIDATE);
END; Received on Thu Oct 11 2018 - 15:02:09 CEST