- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Cadastro de produto
×
Linguagem de Programação ADVPL
Perguntas Cadastro de produto
- Elinton
- Autor do Tópico
- Visitante
-
11 anos 5 meses atrás #14332
por Elinton
Cadastro de produto foi criado por Elinton
Estou precisando de uma rotina que me informe sempre que for cadastrado um novo produto. Alguém tem algo assim.
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 5 meses atrás #14334
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Cadastro de produto
#INCLUDE "rwmake.ch"
#INCLUDE "Ap5Mail.ch"
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³MT010INC ºAutor ³Luiz Alberto º Data ³ 26/04/05 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³ Ponto de entrada na inclusão do produto para enviar email º±±
±±º ³ º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³ AP7 º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function MT010INC()
Private _aArea := ""
Private ctexto := ""
_aArea := GetArea()
// Conecta com o Servidor SMTP
CONNECT SMTP SERVER "192.168.0.2" ;
ACCOUNT "test" PASSWORD "test1234" ;
RESULT lOk
If lOk
ctexto := "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>"
ctexto += "<HTML><HEAD>"
ctexto += "<META http-equiv=Content-Type content='text/html; charset=iso-8859-1'>"
ctexto += "<META content='MSHTML 6.00.2900.2627' name=GENERATOR></HEAD>"
ctexto += "<BODY>"
ctexto += "<DIV>O usuario <b>" + alltrim(Substr(cUsuario,7,15)) +"</b> cadastrou um novo produto no sistema.</DIV>"
ctexto += "<DIV>Codigo: <b>"+B1_COD+"</b></DIV>"
ctexto += "<DIV>Descrição: <b>"+B1_DESC+"</b></DIV>"
ctexto += "<DIV> </DIV>"
ctexto += "<DIV> </DIV>"
ctexto += "<DIV align=left><HR style='WIDTH: 531px; HEIGHT: 2px' SIZE=2></DIV>"
ctexto += "<DIV>Favor preencher/validar as informações de sua responsabilidade.</DIV>"
ctexto += "</BODY></HTML>"
// Nao manda para o Henrique se produto for PCP
If LEFT(B1_COD,1) $ "1/2/3/4/5"
SEND MAIL FROM "Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo." ;
TO "maria.bandeira@dominio.com.br;lourdes.marques@dominio.com.br" ;
SUBJECT "Novo produto cadastrado." ;
BODY ctexto ;
RESULT lOk
Else
SEND MAIL FROM "Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo." ;
TO "henrique.machado@araya.com.br;felipe.castro@dominio.com.br;lourdes.marques@dominio.com.br" ;
SUBJECT "Novo produto cadastrado." ;
BODY ctexto ;
RESULT lOk
Endif
If lOk
// MsgStop( "Envio OK" )
Else
GET MAIL ERROR cSmtpError
MsgSTop( "Erro de envio : " + cSmtpError)
Endif
// Desconecta do Servidor
DISCONNECT SMTP SERVER
Else
GET MAIL ERROR cSmtpError
MsgStop( "Erro de conexão : " + cSmtpError)
Endif
RestArea(_aArea)
Return
#INCLUDE "Ap5Mail.ch"
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³MT010INC ºAutor ³Luiz Alberto º Data ³ 26/04/05 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³ Ponto de entrada na inclusão do produto para enviar email º±±
±±º ³ º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³ AP7 º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function MT010INC()
Private _aArea := ""
Private ctexto := ""
_aArea := GetArea()
// Conecta com o Servidor SMTP
CONNECT SMTP SERVER "192.168.0.2" ;
ACCOUNT "test" PASSWORD "test1234" ;
RESULT lOk
If lOk
ctexto := "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>"
ctexto += "<HTML><HEAD>"
ctexto += "<META http-equiv=Content-Type content='text/html; charset=iso-8859-1'>"
ctexto += "<META content='MSHTML 6.00.2900.2627' name=GENERATOR></HEAD>"
ctexto += "<BODY>"
ctexto += "<DIV>O usuario <b>" + alltrim(Substr(cUsuario,7,15)) +"</b> cadastrou um novo produto no sistema.</DIV>"
ctexto += "<DIV>Codigo: <b>"+B1_COD+"</b></DIV>"
ctexto += "<DIV>Descrição: <b>"+B1_DESC+"</b></DIV>"
ctexto += "<DIV> </DIV>"
ctexto += "<DIV> </DIV>"
ctexto += "<DIV align=left><HR style='WIDTH: 531px; HEIGHT: 2px' SIZE=2></DIV>"
ctexto += "<DIV>Favor preencher/validar as informações de sua responsabilidade.</DIV>"
ctexto += "</BODY></HTML>"
// Nao manda para o Henrique se produto for PCP
If LEFT(B1_COD,1) $ "1/2/3/4/5"
SEND MAIL FROM "Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo." ;
TO "maria.bandeira@dominio.com.br;lourdes.marques@dominio.com.br" ;
SUBJECT "Novo produto cadastrado." ;
BODY ctexto ;
RESULT lOk
Else
SEND MAIL FROM "Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo." ;
TO "henrique.machado@araya.com.br;felipe.castro@dominio.com.br;lourdes.marques@dominio.com.br" ;
SUBJECT "Novo produto cadastrado." ;
BODY ctexto ;
RESULT lOk
Endif
If lOk
// MsgStop( "Envio OK" )
Else
GET MAIL ERROR cSmtpError
MsgSTop( "Erro de envio : " + cSmtpError)
Endif
// Desconecta do Servidor
DISCONNECT SMTP SERVER
Else
GET MAIL ERROR cSmtpError
MsgStop( "Erro de conexão : " + cSmtpError)
Endif
RestArea(_aArea)
Return
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- mbrigagao
- Desconectado
- Membro Platina
-
Menos
Mais
- Postagens: 350
- Obrigados Recebidos: 1
11 anos 5 meses atrás - 11 anos 5 meses atrás #14337
por mbrigagao
Respondido por mbrigagao no tópico Cadastro de produto
Bom dia,
Para fazer sem customização é só utilizar a funcionalidade padrão do Protheus M-messenger....
Em qualquer módulo, no meu Atualizções --> Cadastros --> M-messenger....
É só configurar os eventos para cada usuario...
Lembre-se de que, no cadastro do usuario (via configurador) deve ter um e-mail valido, e o seu Protheus deve estar apto a enviar e-mails (o que é bem provavel que já esteja pronto por conta da NFe)...
Boa sorte
Para fazer sem customização é só utilizar a funcionalidade padrão do Protheus M-messenger....
Em qualquer módulo, no meu Atualizções --> Cadastros --> M-messenger....
É só configurar os eventos para cada usuario...
Lembre-se de que, no cadastro do usuario (via configurador) deve ter um e-mail valido, e o seu Protheus deve estar apto a enviar e-mails (o que é bem provavel que já esteja pronto por conta da NFe)...
Boa sorte
Ultima edição: 11 anos 5 meses atrás por mbrigagao.
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Cadastro de produto
Tempo para a criação da página:0.111 segundos