phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

pre cutover push

Browse Source
This commit is contained in:
Infineon\StieberD
2024-09-04 20:33:41 -07:00
parent 6ea6969f4b
commit 7762b129af
2072 changed files with 130000 additions and 95295 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
LSL2/STPROC/RDS_COMM2.txt
View File

@ -3,8 +3,8 @@ function rds_comm2(Branch)
* CREATED ON 3/19/99 by Bryce Meek - DUE TO BUFFER OVERLOAD IN RDS_COMM
declare function msg, get_property, entid, key_sort, repository, fieldcount, set_property
declare function dialog_box, send_event, obj_RDS
declare subroutine extract_si_keys, make.list, btree.extract
declare function dialog_box, send_event, obj_RDS, Supplement_Services
declare subroutine extract_si_keys, make.list, btree.extract, Supplement_Services
@ -97,9 +97,15 @@ RETURN
return
*===============================================================================================*
SUPPL_CHECK:
SupplInfo = get_property( @window:'.SUPPL_INFO', 'ARRAY' )
SupplFlag = SupplInfo<SupFlag$>
Void = set_property( @window:'.SUPPL_BUTTON', 'VISIBLE', SupplFlag )
* SupplInfo = get_property( @window:'.SUPPL_INFO', 'ARRAY' )
SupplInfo = get_property( @window:'.RDS_NO', 'TEXT' )
SuppsWithLots = Supplement_Services('GetSupplementsForLot', 'RDS', SupplInfo, '')
If SuppsWithLots EQ False$ then
SupplFlag = False$
end else
SupplFlag = True$
end
Void = set_property( @window:'.SUPPL_BUTTON', 'VISIBLE', SupplFlag )
return
*===============================================================================================*
SUPPL_CLICK:
@ -633,3 +639,4 @@ TC_HOURS_CHECK:
end
return