41 lines
1.3 KiB
Plaintext
41 lines
1.3 KiB
Plaintext
compile function ncr_comm(Branch)
|
|
begin condition
|
|
pre:
|
|
post:
|
|
end condition
|
|
|
|
$insert rds_equ
|
|
$insert ncr_equ
|
|
|
|
ReturnVar = 0
|
|
declare function set_property, fieldcount, get_property, msg, editcell, send_event
|
|
declare subroutine create_note
|
|
Branches = 'REACTOR_DEFAULT,CLOSE_STATUS'
|
|
convert ',' to @fm in Branches
|
|
locate Branch in Branches using @fm setting Bpos then
|
|
on Bpos gosub reactor_default, close_status
|
|
end else
|
|
Void = msg( '', 'Invalid Branch ':Bpos:' passed to ncr_comm' )
|
|
end
|
|
return ReturnVar
|
|
|
|
*===========================================================================*
|
|
reactor_default:
|
|
RdsId = get_property( @window:'.RDS_ID', 'TEXT' )
|
|
ReturnVar = xlate( 'RDS', RdsId, rds_reactor$, 'X' )
|
|
return
|
|
|
|
*============================================================================*
|
|
close_status:
|
|
DeptMgrSig = get_property( @window:'.DEPT_MGR_SIG', 'TEXT' )
|
|
AuthRejSig = get_property( @window:'.AUTH_REJ_SIG', 'TEXT' )
|
|
AuthShipSig = get_property( @window:'.AUTH_SHIP_SIG', 'TEXT' )
|
|
if ( DeptMgrSig <> '' ) and ( AuthRejSig <> '' ) and ( AuthShipSig <> '' ) then
|
|
* WILL CLOSE CAUSE IT HAS ALL THE PROPER SIGNATURES
|
|
Void = set_property( @window:'.STATUS', 'VALUE', 'C' )
|
|
end
|
|
return
|
|
|
|
*============================================================================*
|
|
|