1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

  2. Anuncie Aqui ! Entre em contato fdantas@4each.com.br
Cookies Anuncie aqui Patrocinador Anuncios

Duvida Abrir programa com detalhes do registro

Discussão em 'Progress 4GL' iniciado por lm1979, Maio 31, 2019.

Página 3 de 5
  1. lm1979

    lm1979 Membro Participativo

    Boa tarde,
    Então, eu estou tentando fazer o esquema, mas não está rolando.

    O que eu já fiz:
    Programa MAUCQ028 - movimentação das rastreabilidades.
    DEF VAR progMaucq033 AS HANDLE NO-UNDO.

    Na triggers da br_table.
    FIND FIRST rastreab-movto NO-LOCK
    WHERE rastreab-movto.nr-trans = ttrastreab-movto.nr-trans NO-ERROR.

    IF AVAIL rastreab-movto THEN DO:
    FIND FIRST rastreab NO-LOCK
    WHERE rastreab.cod-rastreab = rastreab-movto.desc-rastr NO-ERROR.
    IF AVAIL rastreab THEN DO:
    RUN cqp/maucq033.w PERSISTENT SET progMaucq033.
    RUN procMaucq033 IN progMaucq033(INPUT ROWID(rastreab)).
    END.

    END.

    ASSIGN progMaucq033 = ?.

    Programa MAUCQ033 - Cadastro das rastreabilidades
    Criei a Procedure procMaucq033 com o código abaixo.

    DEF INPUT PARAMETER RegistroRowID AS ROWID.

    FIND FIRST rastreab NO-LOCK WHERE ROWID(rastreab) = RegistroRowID NO-ERROR.

    MESSAGE 'RowID: ' STRING(ROWID(rastreab)) SKIP
    'Rastreabilidade: ' rastreab.cod-rastreab
    VIEW-AS ALERT-BOX INFO BUTTONS OK.

    WAIT-FOR CLOSE OF THIS-PROCEDURE.

    A mensagem aparece na tela, mas não abre o programa maucq033

    Obs.: Eu uso template ddk.
    lm1979, Junho 4, 2019
    #13
  2. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    faltou o run dispatch in progMaucq033('initialize'). antes do run proc......
    bootstrapmaster, Junho 4, 2019
    #14
    lm1979 curtiu isso.
  3. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    e da sua procedure, pode tirar o wait-for
    bootstrapmaster, Junho 4, 2019
    #15
    lm1979 curtiu isso.
  4. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    Como você usa o DDK tem que fazer o mesmo que o Richard, tirar o wait-for e usar o run dispatch
    rafael.andrade, Junho 4, 2019
    #16
    lm1979 curtiu isso.
  5. lm1979

    lm1979 Membro Participativo

    Bom dia,
    Agora sim.
    Muito obrigado pela ajuda.
    lm1979, Junho 5, 2019
    #17
  6. lm1979

    lm1979 Membro Participativo

    Pessoal,
    Mais uma dúvida.
    - Como faço para mostrar os dados no smartviewer?
    lm1979, Junho 5, 2019
    #18
Página 3 de 5

Compartilhe esta Página