F811MAILTO - Permite definir otro e-mail para envío de la carta de cobranza

01. DATOS GENERALES

02. DESCRIPCIÓN

Permite definir una dirección de e-mail alternativo para el envío de la carta de cobranza, sustituyendo la dirección que está registrada en el campo A1_EMAIL. El registro correspondiente al cliente está ubicado en la tabla SA1. 

Este punto de entrada se ejecuta en la tercera ventana del wizard (Selección de clientes) de envío de cartas de cobranza.

03. PARÁMETROS

Vector con los datos del registro que se está verificando.

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

Array[2] = Array de títulos

Array[2][1] = Array del primer título

Array[2][1][1] = Número del proceso de la carta de corrección seleccionada en el Wizard

Array[2][1][2] = String con el valor referente al campo FK7_IDDOC

Array[2][1][3] = String de la E1_FILORIG 

04. DEVOLUCIÓN

Dirección de e-mail alternativo que se utilizará en el envío de la carta de cobranza

05. EJEMPLO DE UTILIZACIÓN

#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