zOPER_EXPORT zSHORT OPERATION oTZERSASO_RefreshOneSA_Entity( zVIEW vSubjectArea, zVIEW vEntpModel ) { zVIEW vEntpModel_Wrk; zLONG lEntityZKey; zSHORT nRC; CreateViewFromViewForTask( &vEntpModel_Wrk, vEntpModel, 0 ); GetIntegerFromAttribute( &lEntityZKey, vSubjectArea, "ER_Entity", "ZKey" ); nRC = SetCursorFirstEntityByInteger( vEntpModel_Wrk, "ER_Entity", "ZKey", lEntityZKey, "" ); if ( nRC > zCURSOR_UNCHANGED ) { ExcludeEntity( vSubjectArea, "ER_Entity" ); // SetCursorPrevEntity( vSubjectArea, "SA_Entity", "" ); IncludeSubobjectFromSubobject( vSubjectArea, "ER_Entity", vEntpModel_Wrk, "ER_Entity", zPOS_AFTER ); nRC = 0; } else { DeleteEntity( vSubjectArea, "SA_Entity" ); nRC = 1; } DropView( vEntpModel_Wrk ); return( nRC ); }
zOPER_EXPORT zSHORT OPERATION zwTZHKEYAD_IncludeOperation( zVIEW vSubtask ) { zVIEW vHotKeys; zVIEW vOperationList; zVIEW vOperation; GetViewByName( &vHotKeys, "KZHKEYSO", vSubtask, zLEVEL_TASK ); GetViewByName( &vOperationList, "CM_List", vSubtask, zLEVEL_TASK ); if ( ActivateMetaOI( vSubtask, &vOperation, vOperationList, zREFER_GO_META, 0 ) >= 0 ) { if ( SetCursorFirstEntity( vHotKeys, "Operation", 0 ) >= zCURSOR_SET ) ExcludeEntity( vHotKeys, "Operation", zREPOS_NONE ); IncludeSubobjectFromSubobject( vHotKeys, "Operation", vOperation, "Operation", zPOS_FIRST ); DropView( vOperation ); } return( 0 ); }