Tempo de leitura: 1 minuto
Olá, a função MemoWrite tem como objetivo escrever e salvo um arquivo texto em ADVPL. Ela é uma das funções de manipulação de arquivos, discos e IO em ADVPL.
Sintaxe:
MemoWrite(cLocal,cTexto)
Parâmetros(s):
Retorno:
Exemplo de MemoWrite em ADVPL:
#include 'protheus.ch'
/*{Protheus.doc} User Function fMeWrite
Escreve e salva um arquivo texto
@type Function
@author Adilio Costa
@since 26/03/2025
@version 1.0
@Link de referência:https://tdn.totvs.com/display/tec/MemoWrite
@Inscreva-se no Blog ProtheusAdvpl:
https://www.protheusadvpl.com.br
@Inscreva-se no Canal ProtheusAdvpl:
https://www.youtube.com/protheusadvpl
@Siga-nos no Instagram:
https://www.instagram.com/protheusadvpl
@Conheça os Cursos do ProtheusAdvpl:
https://cursos-e-formacoes-protheusadvpl.gr-site.com/
@Participe de nossas comunidades no WhatsApp:
-Comunidade Protheus Backoffice:https://chat.whatsapp.com/KMUIAjwZ6EZ6eAHsLkPTyb
-Comunidade Protheus-RH:https://chat.whatsapp.com/L5dUyAna6xU4ylG5DUgfOW
-Comunidade Protheus-Programação:https://chat.whatsapp.com/LsD6z0apdqKHlOz67bcaEn
-Comunidade Protheus-Framework:https://chat.whatsapp.com/BzUFpjaSnTC3vtsfa77jmG
|Se esse conteúdo foi útil pra você nos ajude divulgando
ele e nossas redes sociais!!|
-Plataforma: Portal ProtheusAdvpl-https://hotm.art/portal_protheusadvpl
-Módulo 7: 7.44.2 - [Programação ADVPL III/Manipulação de Arquivos, Discos e IO] - Escrevendo e Salvando Arquivo Texto com a Função MemoWrite
*/
User Function fMeWrite()
Local cLocal:="C:\ProtheusAdvpl\Consulta_SQL.txt"
Local lRet := .F.
Local cQuery := "SELECT "
cQuery += "A1_COD,A1_NOME "
cQuery += "FROM SA010 WHERE "
cQuery +="D_E_L_E_T_<>'*' "
lRet := MemoWrite(cLocal,cQuery)
If(lRet)
FWAlertInfo("O arquivo "+cLocal+" foi criado com o texto "+cQuery+" com sucesso!","Função MemoWrite")
Else
FWAlertInfo("Ocorreu um erro ao tentar criar o arquivo "+cLocal+". Erro:"+FError(),"Função MemoWrite")
EndIf
Return
É isso aí, finalizamos aqui o post, caso tenha ficado alguma dúvida deixe seu comentário ou nos envie um e-mail para adiliocosta@protheusadvpl.com.br, até um próximo post, grande abraço e fica com Deus.
Link de referência no TDN da TOTVS:https://tdn.totvs.com/display/tec/MemoWrite
Link permanente
I do agree with all of the ideas you’ve presented in your post. They’re very convincing and will certainly work. Still, the posts are very short for newbies. Could you please extend them a bit from next time? Thanks for the post.
Link permanente
8uypsp
Link permanente
Когда запой становится угрозой для жизни и здоровья, своевременная помощь профессионала может стать решающим фактором для скорейшего восстановления. В Мурманске, где суровые климатические условия добавляют стресса и осложнений, квалифицированные наркологи оказывают помощь на дому, обеспечивая оперативную детоксикацию и индивидуальную терапию в привычной обстановке. Такой подход позволяет пациентам избежать лишних перемещений и получить поддержку в комфортной атмосфере.
Ознакомиться с деталями – [url=https://vyvod-iz-zapoya-murmansk0.ru/]срочный вывод из запоя в мурманске[/url]