I have included a script to illustrate my problem.
I am wanting to filter a condition which contains boolean .OR. and not having much success.
Can anyone advise if this is possible
Looking forward
I am wanting to filter a condition which contains boolean .OR. and not having much success.
Can anyone advise if this is possible
Code:
'Date Created: 11-Feb-2011 08:21:29 AM 'Last Updated: 07-Sep-2011 12:17:26 PM 'Created By : David 'Updated By : David ' ' plugs released amounts to Source Items ' dim Td_head as p 'pointer to Sop Head dim Td_itm as p 'pointer to Sop Items dim rel_log as l 'releas or not debug(1) Td_head = table.get("sop_head_job") 'Source table Td_itm = table.get("sop_items_job") 'Source table Td_itm.fetch_first() while .not. Td_itm.fetch_eof() if Td_itm.is_record_locked() = .t. then ui_msg_box("Error","Cannot update record as it is locked by another user, or in another session.",UI_STOP_SYMBOL) exit while '----->>>>> end if Td_itm.change_begin() ' if Td_itm.altrel < Td_itm.netamt then 'not yet released rel_log = .f. 'init ' ' .or. does not give result I expect ! ' compomise the long way round ' ' if((Td_itm.netamt = 0 .OR. Td_itm.altrel < Td_itm.netamt),rel_log,rel_log) ' iif((Td_itm.netamt = 0 .OR. Td_itm.altrel < Td_itm.netamt),rel_log,rel_log) if Td_itm.netamt = 0 'zero amount always released rel_log = .t. else if Td_itm.altrel < Td_itm.netamt rel_log = .t. end if end if if rel_log = .t. Td_itm.ALTREL = Td_itm.NETAMT 'display for Operator to see Released ' Td_itm.Altreltd = Td_itm.Altreltd + Td_itm.Netamt 'only when part release Td_itm.Altreltd = Td_itm.Netamt 'only single-shot release end if Td_itm.change_end(.t.) Td_itm.fetch_next() end while Td_head.change_begin() Td_head.relcmp = .t. 'Released completely Td_head.change_end(.t.)
Comment