SET RADIOS = 3
SET RADIOS2 = 3	
!------------------- EVENT HANDLER -------------------------
!------------------- disable radios after OK is clicked
FOR CTL = 1 TO RADIOS
LET cosCtlId = IDC.REPORT1 + CTL - 1
Let cosState = cosEW.Disable
Gosub COS.EnableDlgItem
NEXT CTL
			
FOR CTL = 1 TO RADIOS2
LET cosCtlId = IDC.REPORT5 + CTL - 1
Let cosState = cosEW.Disable
Gosub COS.EnableDlgItem
NEXT CTL
!-----------------------------------------------------------
GetOutputOption:
cosCtlId = IDC.REPORT1		          	          ! 1st button of group
cosCtlIdEx = IDC.REPORT1 + RADIOS - 1   	          ! Last button of group
Gosub COS.GetCheckedRadioBtn
OUTPUT$ = STRIP(STR(cosItemId - IDC.REPORT1 + 1))      ! Button currently selected
RETURN

GetMaterialSub:
cosCtlId = IDC.REPORT5		          	          ! 1st button of group
cosCtlIdEx = IDC.REPORT5 + RADIOS2 - 1   	          ! Last button of group
Gosub COS.GetCheckedRadioBtn
MATLSUB$ = STRIP(STR(cosItemId - IDC.REPORT5 + 1))     ! Button currently selected
RETURN     
!-----------------------------------------------------------
InitOutputOption:
cosItemId = IDC.REPORT1         	                    ! Selected button
cosCtlId = IDC.REPORT1       			               ! 1st button of group
cosCtlIdEx = IDC.REPORT3                               ! Last button of group
Gosub COS.CheckRadioBtn
RETURN

InitMaterialSub:
cosItemId = IDC.REPORT6         	                    ! Selected button
cosCtlId = IDC.REPORT5       			               ! 1st button of group
cosCtlIdEx = IDC.REPORT7                               ! Last button of group
Gosub COS.CheckRadioBtn
RETURN
!-----------------------------------------------------------