Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Gabriela Luane De Lima

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Ana Claudia Da Silva

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

GFEA5172 -

 Personalizar texto de e-mail para confirmação de agendamento da Rotina de Agendamento

PERSONALIZAR TEXTO DE E-MAIL PARA CONFIRMAÇÃO E CANCELAMENTO DE AGENDAMENTO DA ROTINA DE AGENDAMENTO

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Supply Chain - Logística

Módulo:

SIGAGFE

Ponto de Entrada

Descrição:

Permite personalizar texto de e-mail para confirmação e cancelamento de agendamento da Rotina de Agendamento.

Localização:

Na criação do menu do programa Agendamentos (GFEA517).

Programa Fonte:

GFEA517 - Agendamentos

Função:

GFEA5172()

Envio Ponto de entrada:

Nome

Tipo

Descrição

GWV->GWV_FILIAL
Filial do agendamento
GWV->GWV_NRAGEN
Número do agendamento
cPara
E-mail Emitente
cMensagem
Mensagem enviada
cAssunto
Título do e-mail
GWV->GWV_SIT
Situação Agendamento(1- aberto, 2 - Concluído, 3 - Cancelado)

Retorno:

Nome

Tipo

Descrição

Obrigatório

 aRotina

A

Define a exibição da nova Rotina.

Sim

 

Exemplo:

Bloco de código
languagedelphi
titleExemplo: GFEA5191GFEA5172
linenumberstrue
#Include 'Protheus.ch'
User Function GFEA5172() 


Local cFilialA  		  as Char
Local cNumAgend as Char
Local cMsg      	  as Char
Local cAssunto  	  as Char
Local aRet      		  as Array

//Verifica se os parametros não estão vazios.
If Len(PARAMIXB) <> 0 
    cFilialA   		cTmpFil	:= PARAMIXB[1]
	Local cTmpAge	:= PARAMIXB[2]
	Local cTmpFrm	:= PARAMIXB[3]
	Local cTmpMsg	:= PARAMIXB[4]
	Local cTmpAss	:= PARAMIXB[15]
    cNumAgend 	Local cSitagen	:= PARAMIXB[26]
	Local aRetmail	:= {}
	If  cPara     	cSitagen	== "1"
		cTmpFrm	:= "[email protected]"
		cTmpMsg	:= PARAMIXB[3]
    cMsg      		:= PARAMIXB[4]
    cAssunto  	:= PARAMIXB[5]

    cPara    "Você está recebendo um novo e-mail por conta do agendamento (Nr. Agendamento: "+cTmpAge+") que está gerado dentro da empresa."
		cTmpAss	:= "Agendamento GFE"
	ElseIf cSitagen	== "3"
		cTmpFrm	:= "teste@testefulano@totvs.com.br"
		cTmpMsg	:= "Você está recebendo um novo e-mail cMsgpor conta do cancelamento  	:= "Mensagem Teste"
    cAssunto do agendamento(Nr. Agendamento: "+cTmpAge+"). "
		cTmpAss	:= "AssuntoCancelamento TesteGFE"

  	EndIf
	
	aRetmail  aRet  := { { cParacTmpFrm, cMsgcTmpMsg, cAssuntocTmpAss } }
EndIf	
    
Return aRetaRetmail