Duvida Programa não passa pela procedure "local-delete-record"

Discussão em 'Progress 4GL' iniciado por DTerra, Julho 28, 2015.

Página 1 de 2
  1. DTerra

    DTerra Sem Pontuação

    Bom dia a todos,
    Estou desenvolvendo um cadastro pai x filho - atualiza ambos, porém quando tento eliminar o registro pai o programa não está passando pela procedure "local-delete-record" onde eu faria algumas validações antes de deletar o registro.
    Alguém já passou por isso? Por outras procedures como a "local-display-fields" ou "local-create-record" o programa passa normalmente.

    Obrigado desde já!
    DTerra, Julho 28, 2015
    #1
  2. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    como assim??

    Você está fazendo RUN local-delete-record. e não está funcionando?
    rafael.andrade, Julho 28, 2015
    #2
  3. DTerra

    DTerra Sem Pontuação

    Eu criei a procedure "local-delete-record" na viewer principal e nessa procedure tem o run dispatch 'delete-record'.
    Normalmente quando eu deleto um registro o programa passa por esta procedure, mas não está passando.
    DTerra, Julho 28, 2015
    #3
  4. jaisonantoniazzi

    jaisonantoniazzi Membro Ativo

    Boa tarde a todos,
    as procedures LOCAL são sempre executadas antes das ADM, há diagrama dos SMARTOBJECTS ADM 1 mostrando isso.
    No caso, o procedimento padrão seria executar a procedures de eventos sempre com o RUN DISPATCH, assim?
    Run dispatch in handle-objeto ( "DISPLAY-FIELDS" ).
    O uso do DISPATCH garante a execução da LOCAL se esta existir.

    Por ser um cadastro pai x filho, verifique se a viewer, com a validação, está no programa.
    jaisonantoniazzi, Julho 28, 2015
    #4
  5. DTerra

    DTerra Sem Pontuação

    Segue código da procedure na viewer:

    Código:
    PROCEDURE local-delete-record :
/*------------------------------------------------------------------------------
  Purpose:    
  Parameters:  <none>
  Notes:      
------------------------------------------------------------------------------*/
    /* Code placed here will execute PRIOR to standard behavior. */
    MESSAGE 'teste 1'
        VIEW-AS ALERT-BOX INFO BUTTONS OK.

    /* Dispatch standard ADM method.                             */
    RUN dispatch IN THIS-PROCEDURE ( INPUT 'delete-record':U ) .

    /* Code placed here will execute AFTER standard behavior.    */

END PROCEDURE.
    DTerra, Julho 28, 2015
    #5
  6. jaisonantoniazzi

    jaisonantoniazzi Membro Ativo

    Esta viewer pertence ao programa que contêm o painel de update?
    jaisonantoniazzi, Julho 28, 2015
    #6
Página 1 de 2

Compartilhe esta Página