Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada para execução de tratativas específicas após a gravação da solicitação de EPI ao armazém.

Características do Requisito

Linha de Produto:

Microsiga Protheus.

Segmento:

Serviços.

Módulo:

Medicina e Segurança do Trabalho (SIGAMDT).

Rotina:

Rotina

Nome Técnico

MDTA695

EPI x Funcionário

Cadastros Iniciais:

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

País(es):

Brasil

Banco(s) de Dados:

Todos

Tabelas Utilizadas:

SCP - Solicitação ao Armazém

TNF - Entrega de EPI

Sistema(s) Operacional(is):

Windows e Linux  

Versão Expedida:Release 12.1.17

Descrição

Ponto de entrada executado após a gravação da solicitação de EPI ao armazém na rotina de EPI entregues aos funcionário, para a possibilitar a tratativa de execuções específicas

Ponto de Entrada

Descrição:

O ponto de entrada MDTA6955 pode ser utilizado para execuções específicas após gravação das solicitações de EPI ao armazém.

Localização:

Atualizações\Epi\Funcionário x Epi

Eventos:

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

Programa Fonte:

MDTA695.prx

Função:

MDTA6955()

Retorno:

Nulo


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