otro

/**
Primero se debe crear un trigger  de tipo WHEN-TAB-PAGE-CHANGED
Para abrir un tab se debe dirijirse a un elemento dentro de ese tab para que se pueda visualizar
*/

DECLARE
	vcWhere VARCHAR2(1000);
BEGIN	
  /*IF :SYSTEM.TAB_NEW_PAGE = 'DIFERENCIA' THEN
	  :DEFECTO.BLOQUE:='PASIVO_FACT3';*/
	IF :SYSTEM.TAB_NEW_PAGE = 'COSTODET' THEN
	  :DEFECTO.BLOQUE:='COSTODET';   
	ELSIF :SYSTEM.TAB_NEW_PAGE = 'LOGS' THEN        
		:DEFECTO.BLOQUE:='LOG_CALCPROVPRESSOC'; 
	ELSIF :SYSTEM.TAB_NEW_PAGE = 'NO_AFORADOS' THEN        
		:DEFECTO.BLOQUE:='LOG_CALCPROVPRESSOC'; 		
	END IF;
  GO_BLOCK(:DEFECTO.BLOQUE);
  --EXECUTE_QUERY;
  --go_item('ITEM_IN_THE_TAB_PAGE'); puede tambien usarse
END;