` **7N : : :SAVU:AuthorSAVU:Database_PropertiesSCRP:Delete_operations~~~~ DIR^dUOp_list CU}Append Copy Crosstab Export Import Intersect Join Mark Post Query Subtract Summary Update Xtab  Op_list "Uplural_list CUAppends Copies Crosstabs Exports Imports Intersects Joins Marks Posts Queries Subtracts Summaries Updates Xtabs  Plural_list U,Op_type C"U-varC_result CU.a_Op_typeC$U/ a_Op_type[14] C U0 Enum_list CqU2R Append Copy Export Import Mark Post Query Summary Update   Enum_list $U@ layouts_avail C UAOper_type C.UB ""layouts_avail : UC 1 9  qx AUD"word(enum_list,qx,crlf())Oper_type B UE2eval("a5." + Oper_type + "_enum()") <> ""NUF+layouts_avail + crlf() + Oper_typelayouts_avail UG.UH- UJa5.join_enum() <> ""xUKUlayouts_avail + crlf() + "Join" + crlf() + "Intersect" + crlf() + "Subtract"layouts_avail UL- UMa5.xtab_enum() <> ""!aUN>layouts_avail + crlf() + "Xtab" + crlf() + "Crosstab"layouts_avail UO+ UR layouts_avail = ""USu!ui_msg_box( "*** NO SAVED OPERATIONS FOUND ***", "No saved operations were found in this application.", 16 ) UTUU1LUX)"sortsubstr(layouts_avail,crlf())#layouts_avail U[$head1 C8U\,%a_Op_type.initialize(Layouts_avail)VU]9&.T. 'not_dbc JU^/("Select Operation type to be deleted.")head1 U`u*ui_dlg_box("OPERATION TYPE", {region} {text=35,1head1} {endregion}; {region} [.35,15Op_type^#a_Op_type!OpType_*]; {endregion}; {line=1,0};;; <*15OK> <15Cancel>  , IF left(a_dlg_button,7) = "OpType_" Trace.WriteLn(a_dlg_button) IF a_dlg_button = "OpType_Dblclick" not_dbc = .F. ELSE a_dlg_button="" END IF END IF  )+varC_result b UtR,varC_result="Cancel" .or. (varC_result="" .and. not_dbc ) .or. Op_type=""= UuUv Uy] -Uz-Op_type = "Crosstab" ,U{."Xtab"/Op_type .U|0Op_type = "Intersect" U}1ui_msg_box( "*** NOTE ***", "An 'Intersect' is really just a special type of 'Join'." +crlf(2)+ "THE LIST WILL SHOW *ALL* 'JOIN' OPERATIONS.", 48 ),U~2"Join"3Op_type -U4Op_type = "Subtract" U5ui_msg_box( "*** NOTE ***", "A 'Subtract' is really just a special type of 'Join'." +crlf(2)+ "THE LIST WILL SHOW *ALL* 'JOIN' OPERATIONS.", 48 ),U6"Join"7Op_type UM U8Op_plural CWU89STRITRAN_MULTI( Op_type, Op_list, Plural_list ):Op_plural U;del_list C"U<varC_result C(U=auto_list_op_list CQU*>eval("a5." + Op_type + "_enum()")?auto_list_op_list / U@auto_list_op_list = ""wUkAui_msg_box( "NOTHING FOUND", "No " + Op_type + " operations were found in this application.", 16 ) UU !UBtemp_count NJU*Cw_count(auto_list_op_list,crlf())Dtemp_count UEa_op_listC,UFa_op_list[temp_count] CUGhead2 C<U0Ha_op_list.initialize(auto_list_op_list)VU;I"All highlighted " +Op_plural+ " will be deleted."Jhead1 VU;K"NOTE: You will be prompted before each deletion."Lhead2 UMui_dlg_box("SELECT " +upper(Op_plural)+" TO BE DELETED", {region} {text=60,1:head1}; {text=60,1:head2}; {endregion}; {region} [%M%.60,10del_list^#a_op_list]; {endregion}; {line=1,0};;; <*15OK> <15Cancel>  )NvarC_result A U1OvarC_result="Cancel" .or. varC_result="" UU) UPOp_type = "Xtab";0UQ"Crosstab"ROp_type UUSDel_cnt N#UTto_b_deleted C>U!Uw_count(del_list,crlf())VDel_cnt @ U W1 XDel_cnt Y Zqx CU![word(del_list,qx,crlf())\to_b_deleted CU7]eval(Op_type+".Delete('" + to_b_deleted +"')")U U U1677721602