[RESOLVIDO] Mensangens de erros ignoradas!

Discussão em 'EMS , HCM e Totvs 11' iniciado por Alexandre, Janeiro 16, 2015.

Status do Tópico:
Não esta aberto para novas mensagens.
Página 2 de 4
  1. Alexandre

    Alexandre Membro Participativo

    é um programa especifico, fica numa viewer:

    PROCEDURE pi-valida-pedido :
    /*------------------------------------------------------------------------------
    Purpose:
    Parameters: <none>
    Notes:
    ------------------------------------------------------------------------------*/


    FIND FIRST ped-venda NO-LOCK
    WHERE ped-venda.nr-pedcli = INPUT FRAME {&FRAME-NAME} pedido-inftec.cp
    AND ped-venda.nome-abrev = INPUT FRAME {&FRAME-NAME} pedido-inftec.nome-abrev NO-ERROR.
    IF AVAIL ped-venda THEN DO:
    IF SUBSTRING(ped-venda.nr-pedcli,2,1) = "0" OR SUBSTRING(ped-venda.nr-pedcli,2,1) = "4" THEN DO:
    RUN MESSAGE.p("Produto Configurado","Não é possivel alterar produto configurado!").
    RETURN "NOK".
    END.

    END.
    ELSE DO:
    RUN MESSAGE.p("Pedido inexistente.","Pedido inexistente. Favor verificar").
    RETURN "NOK".
    END.


    END PROCEDURE.
    Alexandre, Janeiro 16, 2015
    #7
  2. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    tenta return 'adm-error'. as templates do datasul reconhecem esse retorno de erro e não o 'NOK' quando vc está dentro de uma procedure assign-record e tal.
    bootstrapmaster, Janeiro 16, 2015
    #8
  3. Alexandre

    Alexandre Membro Participativo

    BOM DIA PESSOAL

    o adm-error tambem passa pelas validaçoes e continua o processo.

    Acho que é alguma coisa no padrao que controla isso.

    Alguem tem alguma ideia?
    Alexandre, Janeiro 20, 2015
    #9
  4. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    Mostra o trecho que chama o pi-valida-pedido por favor
    bootstrapmaster, Janeiro 20, 2015
    #10
  5. Alexandre

    Alexandre Membro Participativo

    JA ALTEREI OS GATINHOS PRA VALIDATE, BEFORE ASSIGN ETC....

    IF p-ind-event = "BEFORE-ASSIGN"
    AND p-ind-object = "VIEWER"
    AND (INDEX(PROGRAM-NAME(2), "v35in172") > 0) THEN DO:

    IF (wgh-ge-codigo:SCREEN-VALUE = "1" OR
    wgh-ge-codigo:SCREEN-VALUE = "2" OR
    wgh-ge-codigo:SCREEN-VALUE = "3") AND wgh-fm-cod-com:SCREEN-VALUE = "" THEN DO:
    RUN MESSAGE.p (INPUT "Situação Inválida!",
    INPUT "O Campo Família Comercial é Obrigatório!").
    APPLY 'ENTRY' to wgh-fm-cod-com.
    RETURN 'NOK':U.
    END.
    END.
    Alexandre, Janeiro 20, 2015
    #11
  6. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    Seguinte, tenta então return error. só assim, sem aspas nem nada.

    Porque se vc faz return 'NOK', return 'adm-error' o chamador tem que fazer um if return-value = 'NOK' por exemplo, mas no caso de upcs em eventos, nem sempre tratam isso, então vc tem que fazer return error. ou seja um erro PROGRESS, mas o que tem haver esse trecho de codigo que vc mandou com o pi-valida-pedido ??????
    bootstrapmaster, Janeiro 20, 2015
    #12
Página 2 de 4
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página