Histórico da Página

RUN btb\btapi003.r (INPUT "c:\temp\BTR002AA.LST").

IF RETURN-VALUE = 'ERROR' THEN DO:

    Run utp/ut-msgs.p ( Input "show",
                        Input 17006,
                        Input "Central de Documentos ~~Problema ao executar API de envio.").
END.
ELSE DO:
    IF RETURN-VALUE = 'OK' THEN
        Run utp/ut-msgs.p ( Input "show",
                            Input 15825,
                            Input "Central de Documentos~~Arquivo enviado para Central de Documentos.").
    ELSE
        Run utp/ut-msgs.p ( Input "show",
                            Input 27979,
                            Input "Central de Documentos~~O arquivo não foi envidado para Central de Documentos").
END.