Linha Microsiga Protheus

Page tree

You are viewing an old version of this page. View the current version.

Compare with Current View Page History

« Previous Version 7 Current »

Envio de e-mail na alteração de status nas diversas solicitações envolvidas no processo de reembolso.

Produto:

Microsiga Protheus

Versões:

12.1.8

Ocorrência:

Envio de e-mail na alteração de status nas diversas solicitações envolvidas no processo de reembolso.

Passo a passo:

ATENÇÃO: Para o correto funcionamento dessa rotina é necessário realizar a criação do sinalizadores que serão utilizados ( Podem ser utilizados os 4 sinalizadores liberados via RUP na versão 12.1.8).

Para realizar a chamada da nova rotina deverão ser passados os seguintes parâmetros:

  • aCampos = Matriz com todos os campos que poderão ser utilizados no sinalizador, essa matriz deverá ser montada da seguinte forma: {"Variável que será utilizada pelo Sinalizador", "Valor da Variável para Exibição no E-mail"} .

    Exemplo: {"cValTot", iif(nVlrPagPro = 0, "", nVlrPagPro)}.

    Esse array deverá possuir no minimo a variável cTipoSolicitacao.

  • aItens = Matriz com todos os itens que deverão ser exibidos no e-mail, essa matriz deverá ser montada da seguinte forma: {"Descrição do Procedimento", "Status do Procedimento", "É SUS ?" (Lógico), "É farmácia popular ?" (Lógico)}

  • cEmail = Email do beneficiário.
  • cRotina = Rotina que está utilizando o envio do e-mail: Exemplo PLSA001A.
  • cStatusId = Status que irá indicar qual o Sinalizador que deverá ser utilizado, exemplo:
    Se o status passado para a rotina genérica for C ("Aprovado parcialmente") o sistema irá buscar o sinalizador configurado com a Rotina igual a informada no parâmetro cRotina e com a Versão configurada como "1." + cStatusId (No Exemplo procuraria pelo sinalizador com a rotina PLSA001A e versão "1.C").

Observações:

Abaixo um exemplo da chamada da função.

Chamada da função PLRMBMAIL
	aadd(aItens, {"Procedimento Padrão", "Reprovado", .F., .F., "Procedimento não coberto"})
 
	aadd(aCampos, {"cProtoc", "0000001"})
	aadd(aCampos, {"cTipoSolicitacao", "Reembolso"})
	aadd(aCampos, {"cNomBen", "Beneficiário Exemplo")
	aadd(aCampos, {"cDtProvPagto", "12/12/2015")
	aadd(aCampos, {"cValTot", "150,00")
	aadd(aCampos, {"cMotiv", "Reembolso possuí Procedimentos não coberto"})//Motivo da Capa do Protocolo
	aadd(aCampos, {"cDatPar", "23/09/2015"})
	aadd(aCampos, {"cStatusAut", "Reprovado")

	PLRMBMAIL(aCampos, aItens, alltrim(BA1->BA1_EMAIL),  "4")

 

  • No labels