Histórico da Página

#------------------------------------------------------------------------------#
FUNCTION LOG_tarDecompressExample()
#------------------------------------------------------------------------------#
    DEFINE l_status  SMALLINT
 
    DEFINE l_message CHAR(200)

    LET l_status = LOG_tarDecompress("D:/notas.tar",1,"D:/arquivos/",1)

    IF  NOT l_status THEN
        LET l_message = log0030_mensagem_get_texto()
        CALL log0030_processa_mensagem(l_message,"excl",0)
    ELSE
        LET l_message = "Arquivos descompactados com sucesso na pasta ""D:\arquivos"".","info",0)
    ELSE
        CALL log0030_processa_mensagem(log0030_mensagem_get_texto()l_message,"stopinfo",0)
    END IF

    RETURN l_status
END FUNCTION