Histórico da Página

#------------------------------------------------------------------------------#
FUNCTION TarDecompressExemple()
#------------------------------------------------------------------------------#
    DEFINE l_status SMALLINT
 
    LET l_status = LOG_tarDecompress("D:/notas.tar",1,"D:/arquivos/",1)

    IF  l_status THEN
        CALL log0030_processa_mensagem("Arquivo de notas descompactado com sucesso na pasta ""D:\arquivos"".","info",0)
    ELSE
        CALL log0030_processa_mensagem(log0030_mensagem_get_texto(),"stop",0)
    END IF

    RETURN l_status
END FUNCTION