como eu faço pra saber o status de um bloco?
tentei
:SYSTEM.BLOCK_STATUS = 'DELETE'
mas pelo help parece que só existem:
Change, New e Query!
existe algum comando para saber se está em modo de exclusão?
valeu
:SYSTEM.BLOCK_STATUS = 'DELETE'
IF :System.Block_Status = 'CHANGED' THEN
Commit_Form;
END IF;
CHANGED Indica que o bloco contém ao menos um regisro alterado.
NEW Indica que o bloco contém apenas registros novos.
QUERY Indica que o bloco contém apenas registros válidos que vieram de uma consulta ao Banco.
IF :System.Record_Status IN ('CHANGED', 'INSERT') THEN
Commit_Form;
END IF;
CHANGED Indica que o registro consta como alterado.
NEW Indica que o registro consta como novo.
QUERY Indica que o registro consta como válido que veio de uma consulta ao Banco.
INSERT Indica que o registro consta como alterado e ainda não existe no Banco.
v_registro := Get_Block_Property('SEU_BLOCK', CURRENT_RECORD);
v_status := GET_RECORD_PROPERTY(v_registro,'SEU_BLOCK',STATUS);
NEW se o registro está marcado como novo e não existem registros modificados no bloco;
CHANGED se o registro está marcado como modificado.
QUERY se o registro veio de uma consulta ao Banco.
INSERT se o registro está marcado como uma inserção.
IF :SYSTEM.MODE <> 'NORMAL' THEN
COMMIT_FORM;
END IF;
NORMAL Indica que o FORM está no modo normal de processamento.
ENTER-QUERY Indica que o FORM está no modo Enter-Query.
QUERY Indica que o FORM está no modo Consultando, significa que a consulta está sendo executada.
Usuários navegando neste fórum: Nenhum usuário registrado e 11 visitantes