[RESOLVIDO] Cancelar Faturamento

Discussão em 'EMS , HCM e Totvs 11' iniciado por Rogerio, Outubro 21, 2011.

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

    Rogerio Moderator Moderador Equipe de Suporte

    Alguem mais poderia me ajudar?
    Rogerio, Outubro 25, 2011
    #7
  2. lima

    lima Membro Participativo

    Amigo, tentar incluir um erro manual na Bo, conforme exemplo abaixo.

    Me retorne pra ver se deu certo!

    Abraço.

    Código:
    {include/i-epc200.i}

DEF INPUT PARAM p-ind-event AS CHAR NO-UNDO.
DEF INPUT-OUTPUT PARAM TABLE FOR tt-epc.

DEFINE VARIABLE h-bo AS HANDLE      NO-UNDO.


    /* comandos */

FOR EACH tt-epc:

    IF tt-epc.cod-event = 'AfterEfetivaNota' THEN
    DO:
        ASSIGN h-bo = WIDGET-HANDLE(tt-epc.val-parameter).

        RUN _insertErrorManual IN h-bo(INPUT 17006, /*Numero do erro*/
                                       INPUT "EMS",
                                       INPUT "ERROR", 
                                       INPUT "descrição do erro",
                                       INPUT "Ajuda da mensagem de erro",
                                       INPUT "":U).              

        RETURN "OK".
    END.
END.
RETURN 'ok' .
    lima, Outubro 25, 2011
    #8
  3. Rogerio

    Rogerio Moderator Moderador Equipe de Suporte

    Lima não rolou.... apareceu a tela com o ERRO, mas mesmo assim gerou a Nota Fiscal.
    Rogerio, Outubro 25, 2011
    #9
  4. eduardo.leite

    eduardo.leite Equipe de Suporte Moderador Equipe de Suporte

    Rogério,

    Boa noite, testa o código abaixo na sua EPC.

    Código:
    
def buffer bf-tt-epc for tt-epc.

def var h-object-handle     as handle   no-undo.

find first tt-epc 
     where tt-epc.cod-event     = "BeforeEfetivaNota" 
       and tt-epc.cod-parameter = "Table-Rowid"       no-lock no-error.

if avail tt-epc then do:

    create  tt-epc.
    assign  tt-epc.cod-event     = "ERROR"
            tt-epc.cod-parameter = "EPC-ERROR"
            tt-epc.val-parameter = "Coloque aqui a mensagem de Erro!".

    find first bf-tt-epc 
         where bf-tt-epc.cod-event     = "BeforeEfetivaNota" 
           and bf-tt-epc.cod-parameter = "Object-Handle"     no-lock no-error.

    if avail bf-tt-epc then do:
        
        assign h-object-handle = widget-handle(bf-tt-epc.val-parameter).

        if valid-handle(h-object-handle) then
            run SetInterrompeCalculo in h-object-handle (input yes).

    end.

end.
    eduardo.leite, Outubro 27, 2011
    #10
  5. LFBuozi

    LFBuozi Membro Participativo

    A validação deve ser feita no BeforeEfetivaNota e não no After, porque depois que efetivou, a caca já foi feita, não tem mais o que validar.
    LFBuozi, Outubro 28, 2011
    #11
  6. Rogerio

    Rogerio Moderator Moderador Equipe de Suporte

    Valeu galera muito obrigado!!!
    Rogerio, Outubro 28, 2011
    #12
Página 2 de 2
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página