Linha Microsiga Protheus

Árvore de páginas


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

Ponto de entrada MDTA6955 chamado 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.

RetornoApresenta as novas implementações do ponto de entrada após a solicitação ao Armazém.

03. DEMAIS INFORMAÇÕES

FunçãoMDTA6955()
Parâmetros

lRet, Lógico, Retorna sempre verdadeiro (true).

cBody, Caracter, 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.

cServer, Caracter, Armazena o endereço do servidor SMTP que será usado para enviar o e-mail.

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

lSmtpAuth, Lógico, Define se o envio do e-mail requer autenticação SMTP.

cFrom, Caracter, Define o remetente do e-mail.

lOk, Lógico, Define o controle que indica se a operação (como conexão ou envio) foi bem sucedida.

cEmails, Caracter, Contém a lista de destinatários do e-mail.

cAssunto, Caracter, Define o assunto/título do e-mail que será exibido na caixa de entrada do destinatário.

cDescric, Caracter, Define o conteúdo/texto do e-mail.

RetornoNulo.
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 := "[email protected]"

    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