F811MAILTO - Permite definir outro e-mail para envio da carta de cobrança

01. DADOS GERAIS

02. DESCRIÇÃO

Permite definir um endereço de e-mail alternativo para o envio da carta de cobrança, substituindo o endereço que está cadastrado no campo A1_EMAIL. O registro correspondente ao cliente está posicionado na tabela SA1. 

Esse ponto de entrada é executado na terceira janela do wizard (Seleção de Clientes) de envio das cartas de cobrança.

03. PARÂMETROS

Vetor contendo dados do registro que está sendo verificado.

Array[1] = String concatenada de A1_FILIAL + A1_COD + A1_LOJA posicionado

Array[2] = Array de títulos

Array[2][1] = Array do primeiro título

Array[2][1][1] = Número do Processo da carta de correção selecionada no Wizard

Array[2][1][2] = String com o valor referente ao campo FK7_IDDOC

Array[2][1][3] = String da E1_FILORIG 

04. RETORNO

Endereço de e-mail alternativo a ser utilizado no envio da carta de cobrança

05. EXEMPLO DE UTILIZAÇÃO

#Include 'Protheus.ch'

User Function F811MAILTO()
	Local cEmail := '[email protected]'
	Local cRet := ''

	If !Empty(cEmail)
    	cRet := cEmail
	Else
    	cRet := SA1->A1_EMAIL
	EndIf

Return cRet