procedure save_clas_det if(empty(tcur_clas)) do mesg_wind with 'Incomplete Details . Please Check......' return endif decl temp_arr[1] if(told_or_new = 1) sele 5 seek class_arr[tclass_no,2] trec_no = recno() temp_arr = 0 select count(*) from &tcl_det_file ; where name = tcur_clas .and. recno() # trec_no ; into array temp_arr if(temp_arr[1] > 0) do mesg_wind with 'Duplicate Entry . Please Check......' return endif else temp_arr = 0 select count(*) from &tcl_det_file ; where name = tcur_clas ; into array temp_arr if(temp_arr[1] > 0) do mesg_wind with 'Duplicate Entry . Please Check......' return endif sele 5 append blank temp_arr = 0 select max(class) from &tcl_det_file ; into array temp_arr repl class with temp_arr[1] + 1 endif repl name with tcur_clas if(told_or_new = 1) if(tcur_clas # substr(class_arr[tclass_no,1],3)) class_arr[tclass_no,1] = space(2) + tcur_clas show gets endif else do get_cl_det with .f. tcur_clas = space(tclas_name_len) show gets endif do mesg_wind with 'Class Details Saved......'
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)