Linha Microsiga Protheus

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 5 minutos


01. DADOS GERAIS

Produto:

TOTVS Medicina e Segurança do Trabalho

Linha de Produto:

Linha Protheus

Segmento:

RH

Módulo:

TOTVS RH (Linha Protheus) - Medicina e Segurança do Trabalho (SIGAMDT)

Função:Funcionário X EPI (MDTA695)
País:Brasil
Ticket:Não há.
Issue:Não há.


02. DESCRIÇÃO

Criado ponto de entrada MDTA6955 na rotina de Funcionário X EPI (MDTA695) que pode ser utilizado para execuções específicas após gravação das solicitações de EPI ao armazém.


Ponto de EntradaMDTA6955()
Chamada

É executado após o envio de uma solicitação ao armazém na entrega de EPI.

Pré-Requisito

O parâmetro MV_NG2SA precisa estar ativo no ambiente.

Evento

Execuções e validações específicas após o envio de uma solicitação ao armazém na entrega de EPI.

Retorno

Não há.

03. DEMAIS INFORMAÇÕES

FunçãoMDTA6955()
Parâmetros

Local lRet, Lógico, retorna sempre verdadeiro (true).

Local cBody, monta o corpo do e-mail com HTML, usando as variáveis cAssunto e cDescric para o título e o conteúdo do e-mail.

Local cServer, Array, armazena o endereço do servidor SMTP que será usado para enviar o e-mail.

Local cAccount, Array, armazena o endereço de e-mail do remetente, ou seja, a conta que vai fazer o envio do e-mail.

Local lSmtpAuth, define se o envio do e-mail requer autenticação SMTP.

Local cFrom := cAccount, Array, define o remetente do e-mail.

Local lOk := .T., Variável, define o controle que indica se a operação (como conexão ou envio) foi bem sucedida.

Local cEmails := "", Array, contém a lista de destinatários do e-mail.

Local cAssunto := "Assunto", Array, define o assunto/título do e-mail que será exibido na caixa de entrada do destinatário.

Local cDescric := "Descrição do Workflow", Array, define o conteúdo/texto do e-mail.

RetornoNão há.

Cadastros Iniciais

  • Centro de Custo
  • Função
  • Funcionário
  • EPI
  • Fornecedor
  • Estoque inicial



Exemplo
#Include 'Protheus.ch'

User Function MDTA6955()

	Local lRet      := .T.

    //Variaveis de email
    Local cBody     := ""
    Local cServer := AllTrim( GetMV( "MV_RELSERV" , , " " ) )
    Local cAccount := AllTrim( GetMV( "MV_RELACNT" , , " " ) )
    Local cPassword := AllTrim( GetMV( "MV_RELPSW" , , " " ) )
    Local lSmtpAuth := GetMv( "MV_RELAUTH" , , .F. )
    Local cFrom := cAccount
    Local lOk := .T.
    Local cEmails   := ""
    Local cAssunto  := "Assunto"
    Local cDescric := "Descrição do Workflow"

    //Codigo do processo
    Local cCodProcesso  := "WMDT6955"
    Local oProcess

    //Área atual
    Local aArea         := GetArea()

    //Seta os emaisl para envio
    cEmails := "exemplo@email.com.br"

    cBody := "<html>"
    cBody += "<head>"
    cBody += "<meta http-equiv='Content-Language' content='pt-br'>"
    cBody += "<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"
    cBody += "<title>" + cAssunto + "</title>"
    cBody += "</head>"
    cBody += "<body bgcolor='#FFFFFF'>"
    cBody += "<p><b><font face='Arial'>" + cAssunto + "</font></b></p>"
    cBody += "<p>" + cDescric + "</p>"
    cBody += "<br><hr>"
    cBody += "</body>"
    cBody += "</html>"

    CONNECT SMTP SERVER cServer ACCOUNT cAccount PASSWORD cPassword RESULT lOk

    If !lSmtpAuth .Or. MailAuth(cAccount,cPassword)
        SEND MAIL FROM cFrom TO cEmails SUBJECT AllTrim( cAssunto ) BODY cBody Result lOk
    EndIf

    DISCONNECT SMTP SERVER

    RestArea( aArea )

Return


04. ASSUNTOS RELACIONADOS