Cross Segmentos - TOTVS BackOffice (Línea Protheus) - MI - Facturación (SIGAFAT) - Envío de la factura electrónica a una sola cuenta de correo desde el servicio DFACTURA

Duda
¿Cómo realizar el envío de la factura electrónica a una sola cuenta de correo desde el servicio DFACTURA?

Ambiente
Cross Segmentos - TOTVS BackOffice (Línea Protheus) - MI - Facturación (SIGAFAT) - A partir de la versión 12

Solución
Para solucionar esa duda, realice los siguientes pasos:
1. Verifique que la rutina M486PDFCOL tenga una fecha igual o superior al 03 de julio de 2020;
2.  Cree y compile el punto de entrada M486OWSCOL. Por ejemplo:
#include "protheus.ch"
User Function M486OWSCOL()
Local cCodCli := PARAMIXB[3] //Codigo de Cliente
Local cCodLoj := PARAMIXB[4] //Codigo de la Tienda
Local nOpc := PARAMIXB[6] //Nivel: 1-Encabezado, 2=detalle
Local oWS := PARAMIXB[7] //Objeto de web services
Local aEmail := {}
Local oWSDest := Nil
Local nX := 0
If nOpc == 1 //Encabezado
// Posicionar cliente
SA1->(dbSetOrder(1))
If SA1->(msSeek(xFilial("SA1")+cCodCli+cCodLoj))
// Como ejemplo se usa el campo A1_EMAIL (Comentarios de perfil)
If !Empty(SA1->A1_EMAIL)
// Las cuentas de correo están separadas por coma
aEmail := StrTokArr(alltrim(SA1->A1_EMAIL), ",")
// Indicar Sí notificar
oWS:oWSCliente:cnotificar := "SI"
// Crea objeto destinatario, el medio de entrega es 0=email
oWSDest := Service_Destinatario():NEW()
oWSDest:ccanalDeEntrega := "0"
// Crea arreglo de las cuentas de correo
oWSDest:oWSemail := Service_ArrayOfstring():NEW()
For nX := 1 to Len(aEmail)
aAdd(oWSDest:oWSEmail:cstring, aEmail[nX])
Next nX
// Agrega destinatario al objeto principal
aAdd(oWS:oWSCliente:oWSDestinatario:oWSDestinatario, oWSDest)
EndIf
EndIf
EndIf
Return Nil

3. Informe la cuenta de correo del cliente electrónico del cliente, con capacidad para un solo registro, en el campo el campo Email (A1_EMAIL); 
4. Registre una Factura de Venta para el cliente para el que se configuró el correo electrónico;
5. La Factura Electrónica es enviada a la cuenta de correo especificada siempre y cuando la transmisión haya sido exitosa y el elemento Indicar de la clase Cliente se haya informado como "SI" (Funcionalidad válida para versión 12.1.17 o superiores).