Histórico da Página

...

Não se aplica.

04. PARÂMETROS

Não se aplica.

05. RETORNO

Ponto do evento valida-box-movto retorna uma variável lógica indicando se na comparação da tabela de movimentos dos itens (wm-box-movto) deve utilizar também o estabelecimento e o local

06.

...

VERSÕES

...

Ponto de evento VerificaClienteExec com valor return sinaliza necessidade de lógica específica.

06. VERSÕES

12.1.31 ou superiores

08. EXEMPLO

Bloco de código

language	cpp
title	Exemplo
linenumbers	true
collapse	true

/****************************************************************************************************************
**  Cliente.....: Borrachas Vipal
**  Programa....: wm9084a-upc.p
****************************************************************************************************************/
{include/i-epc200.i1} /*Defini»’o da temp-table tt-epc*/

DEFINE INPUT        PARAMETER p-ind-event AS CHARACTER NO-UNDO.
DEFINE INPUT-OUTPUT PARAMETER TABLE FOR tt-epc.

IF p-ind-event = "VerificaClienteExecValidacaoBoxMovto" THEN DO:

   IF CAN-FIND( FIRST tt-epc
                WHERE tt-epc.cod-event     = p-ind-event
                  AND tt-epc.cod-parameter = "retornaClienteExecValidacaoBoxMovto" )NO-ERROR.
    IF AVAIL tt-epc THEN DO:

        create tt-epc.
        assign tt-epc.cod-event     = p"valida-indbox-eventmovto"
               tt-epc.cod-parameter = "returnvalida-box-movto"
               tt-epc.val-parameter = "vipal" string(YES).
  
    END.
END.

RETURN "OK":U.

Árvore de páginas

Versões comparadas

Versão antiga 2

Nova versão Atual

Chave