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 |