PERGUNTAS E RESPOSTAS
 
Bem Vindo, Visitante  Todos os Fórums
  ADVPL
Enviar para a impressoraImprimir  Enviar e-mail para um amigoEnviar Para um Amigo
Precisa estar Logado

Subject Assunto:
Notificação por Email quando produto for alterado
Versão:
12.1.25
Plataforma:
Microsoft
Complemento:
DB:
SQL Server
Complemento:
Item_PE.prw (anexo)
FBEMAIL.prw (anexo)
LinkedIn
Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário BIASOUZA26 BIASOUZA26 em 17/11/2020, 10:40 h
Local: RJ  Registro: 18/09/2020  Postagens: 6
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?

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário INFOBRENO INFOBRENO em 17/11/2020, 11:27 h
Local: MT  Registro: 02/03/2011  Postagens: 104
Breno Nogueira

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário DILSONDIAS DILSONDIAS em 17/11/2020, 11:44 h
Local: CE  Registro: 30/03/2006  Postagens: 86
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

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário SILVAM SILVAM em 17/11/2020, 12:33 h
Local: SP  Registro: 22/09/2020  Postagens: 1
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

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário BIASOUZA26 BIASOUZA26 em 17/11/2020, 15:12 h
Local: RJ  Registro: 18/09/2020  Postagens: 6
@silvam o Event Viewer não tem nada que contemple alteração

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário BIASOUZA26 BIASOUZA26 em 17/11/2020, 16:40 h
Local: RJ  Registro: 18/09/2020  Postagens: 6
@breno na etapa da conecção esta apresentando erro de syntax pra mim

CONNECT SMTP SERVER cServer ACCOUNT cAccount PASSWORD cPassword Result lConectou


Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário BIASOUZA26 BIASOUZA26 em 17/11/2020, 16:41 h
Local: RJ  Registro: 18/09/2020  Postagens: 6
DILSONDIAS na etapa da conecção esta apresentando erro de syntax pra mim

CONNECT SMTP SERVER cServer ACCOUNT cAccount PASSWORD cPassword Result lConectou

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário EMERSON.EN EMERSON.EN em 17/11/2020, 17:42 h
Local: SP  Registro: 20/08/2010  Postagens: 549
veja se não está faltando declarar

#Include "AP5Mail.Ch"


Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário DILSONDIAS DILSONDIAS em 17/11/2020, 18:03 h
Local: CE  Registro: 30/03/2006  Postagens: 86
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.

Mensagem do Enviar e-mail Abrir o Perfil do usuário WALTERFCAR WALTERFCAR em 18/11/2020, 08:54 h
Local: SP  Registro: 14/10/2015  Postagens: 55
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.

Para postar no Fórum você precisa efetuar o seu login ou se registrar

 Mudar para Fórum

 

 

 
 
   
Pagina Principal Shopping PROTHEUS Tire suas duvidas Vagas Microsiga em todo Brasil Aprofunde seus conhecimentos Noticias Online Fale Conosco Pagina Principal