[RESOLVIDO] Inserir erro em EPC

Tá, dei uma geral nas minhas UPCs, todas as upcs que tratam validação na hora de salvar, usa o ponto 'assign', e se é pra dar erro, é sempre RETURN 'NOK'.
Agora só olhando o fonte ....

por um .w que eu tenho aqui, mas é antigo, o MI0307A foi desenvolvido em ddk2000, usando BOs, só existe um ponto de UPC o evento "AFTER-SAVE-FIELDS" em "CONTAINER", então, meu caro, na verdade vc tem que criar uma EPC na bo que faz a manutenção dessa tabela, normalmente é BO... dump-name da tabela .... .p
Dai vc tem que usar as tecnicas de EPC.

Código:

{include/i-epc200.i}

def input        parameter p-ind-event as char no-undo.
def input-output parameter table for tt-epc.

            for first tt-epc no-lock
                where tt-epc.cod-event = 'beforeEfetivaNota'
                  and tt-epc.cod-parameter = 'Object-Handle':

                assign h-bo = widget-handle(tt-epc.val-parameter).
                run _insertErrorManual   in h-bo (17006,'EMS','ERROR','Erro Interno','FATURAMENTO NÇO LIBERADO. EXISTEM NOTAS FISCAIS COM PENDENCIA DE FRETE','').
                run setInterrompeCalculo in h-bo(true).
                return 'NOK'.
            end.