Imprimi Página | Fechar janela

Notificação por Email quando produto for alterado

Impresso de: Helpfacil - Portal do conhecimento
Nome do Forum: ADVPL
Descrição do Forum: Dúvidas sobre a programação em ADVPL
URL:http://www.helpfacil.com.br/display_topic_threads.asp?ForumID=1&TopicID=43479
Data da Impressão: quinta-feira, 28 de março de 2024 at 06:35


Topico: Notificação por Email quando produto for alterado

Postado por: BIASOUZA26
Assunto: Notificação por Email quando produto for alterado
Data Postagem: terça-feira, 17 de novembro de 2020 at 10:40

Pessoal, preciso criar uma customização ao qual quando um produto for alterado ou incluido a contabilidade receba uma notificação.

Alguem pode me ajudar?


Respostas:

Postado Por: INFOBRENO
Data Postagem: terça-feira, 17 de novembro de 2020 at 11:27

Breno Nogueira



Postado Por: DILSONDIAS
Data Postagem: terça-feira, 17 de novembro de 2020 at 11:44

Você pode utilizar o PE A010TOK, segue exemplo:

Testa assim qualquer coisa altera o que precisar.

#Include ‘Protheus.ch‘

User Function A010TOK()
Local lRet := .T.
If Inclui .Or. Altera
MEmail()
EndIf
Return lRet

Static Function MEmail()
Local cAccount := Lower(Alltrim(GetMv("MV_RELACNT")))
Local cEnvia     := Lower(Alltrim(GetMv("MV_RELFROM")))
Local cPassword := Alltrim(GetMv("MV_RELPSW"))
Local cServer   := Alltrim(GetMv("MV_RELSERV"))
Local cRecebe   := Alltrim(GetMv("MV_YMT010I"))
Local aFiles    := {}
Local nI        := 1
Local cMensagem := ‘‘
Local cTos
Local CRLF      := Chr(13) + Chr(10)
Local lConectou   := .F.

cMensagem := ‘ Novo Produto Cadastrado em Mossoró, Aquiraz e Itaú‘ + CRLF +;
             ‘ Produto Código ‘ + _cCod + CRLF
cMensagem += ‘ ‘ + CRLF
cMensagem += ‘ Descrição do Produto ‘ + _cDesc + CRLF
cMensagem += ‘ ‘ + CRLF
cMensagem += ‘ Todos os envolvidos por favor completar o cadastro ‘ + CRLF
cMensagem += ‘ ‘ + CRLF
cMensagem += ‘ Atenciosamente, ‘   + CRLF
cMensagem += ‘ ‘ + CRLF
cMensagem += ‘ Dilson Castro ‘ + CRLF
cMensagem += ‘ Gerente de Tecnologia da Informação ‘ + CRLF
cMensagem += ‘ USIBRAS Mossoró/Aquiraz ‘ + CRLF
cMensagem += ‘ FAN CONSTRUÇÕES Mossoró/Aquiraz ‘ + CRLF

CONNECT SMTP SERVER cServer ACCOUNT cAccount PASSWORD cPassword Result lConectou
MailAuth(ALLTRIM(cAccount),ALLTRIM(cPassword)) // qdo nao conseguir autenticar ver antivirus no servidor
SEND MAIL FROM cEnvia TO cRecebe SUBJECT ‘Cadastro de um novo Produto - Codigo ‘ + _cCod BODY cMensagem RESULT lEnviado

If lEnviado
     Alert("E-mail enviado")
Else
     cMensagem := ""
     GET MAIL ERROR cMensagem
     Alert(cMensagem)
Endif
   
DISCONNECT SMTP SERVER Result lDisConectou

If lDisConectou
     Alert("Desconectado com servidor de E-Mail - " + cServer)
Endif
Return



Postado Por: SILVAM
Data Postagem: terça-feira, 17 de novembro de 2020 at 12:33

O Protheus tem essa funcionalidade no padrão através da rotina Eventviewer.
Nela é possível configurar quais usuários receberam o evento de inclusão/alteração de qualquer cadastro. Segue o link da documentação:
https://tdn.totvs.com/display/public/PROT/Configurar+Event+Viewer



Postado Por: BIASOUZA26
Data Postagem: terça-feira, 17 de novembro de 2020 at 15:12

@silvam o Event Viewer não tem nada que contemple alteração



Postado Por: BIASOUZA26
Data Postagem: terça-feira, 17 de novembro de 2020 at 16:40

@breno na etapa da conecção esta apresentando erro de syntax pra mim

CONNECT SMTP SERVER cServer ACCOUNT cAccount PASSWORD cPassword Result lConectou





Postado Por: BIASOUZA26
Data Postagem: terça-feira, 17 de novembro de 2020 at 16:41

DILSONDIAS na etapa da conecção esta apresentando erro de syntax pra mim

CONNECT SMTP SERVER cServer ACCOUNT cAccount PASSWORD cPassword Result lConectou



Postado Por: EMERSON.EN
Data Postagem: terça-feira, 17 de novembro de 2020 at 17:42

veja se não está faltando declarar

#Include "AP5Mail.Ch"





Postado Por: DILSONDIAS
Data Postagem: terça-feira, 17 de novembro de 2020 at 18:03

No meu fonte utilizei esses includes
#INCLUDE "RWMAKE.CH"
#INCLUDE "TOPCONN.CH"
#INCLUDE "AP5MAIL.CH"

Desculpe não peguei do inicio do fonte, testa agora.



Postado Por: WALTERFCAR
Data Postagem: quarta-feira, 18 de novembro de 2020 at 08:54

Cara, eu abordaria esse problrma de outra maneira.
Criaria o campo reservado b1_msexp e então uma JOB, ou schedule para enviar para o email deles os produtos incluídos ou alterados no dia.



Postado Por: LCA.LEO
Data Postagem: terça-feira, 15 de dezembro de 2020 at 09:35

Bom dia,

Aqui na empresa utilizamos o MT010_MVC


Lè0




Imprimir Página | Fechar Janela