SET_RECORD_PROPERTY(:SYSTEM.CURSOR_RECORD, 'NOME_DO_BLOCO',ENABLED,PROPERTY_FALSE);

SET_RECORD_PROPERTY(:SYSTEM.CURSOR_RECORD, 'NOME_DO_BLOCO',ENABLED,PROPERTY_TRUE); 

SET_RECORD_PROPERTY(:SYSTEM.CURSOR_RECORD, 'NOME_DO_BLOCO',UPDATE_ALLOWED,PROPERTY_FALSE);

SET_RECORD_PROPERTY(:SYSTEM.CURSOR_RECORD, 'NOME_DO_BLOCO',UPDATE_ALLOWED,PROPERTY_TRUE);

SET_RECORD_PROPERTY(:SYSTEM.CURSOR_RECORD, 'NOME_DO_BLOCO',INSERT_ALLOWED,PROPERTY_FALSE);

SET_RECORD_PROPERTY(:SYSTEM.CURSOR_RECORD, 'NOME_DO_BLOCO',INSERT_ALLOWED,PROPERTY_TRUE);

Deixe um comentário