Linha Microsiga Protheus

Árvore de páginas

01. DATOS GENERALES


Producto

TOTVS Backoffice

Línea de producto: 

Línea Protheus

Segmento:

Backoffice

Módulo:SIGAFIN - Financiero
Función:
RutinaNombre TécnicoFecha
STORE-CLIENTS.SERVICE.TLPPServicio de Tiendas de Clientes de Totvs04/10/2024
País:Todos
Ticket:21121702
Requisito/Story/Issue (informe el requisito vinculado):DMINA-24377


02. DESCRIPCIÓN

Se solicita crear un punto de entrada (F998DMAIL) en Totvs Recibo (FINA998), para poder especificar el correo por defecto que se desea utilizar para el envío de correo en las pantallas de Nuevo Recibo y Buscar Recibo.


03. INFORMACIÓN ADICIONAL


En la rutina de Servicio de Tiendas de Clientes de Totvs Recibo (STORE-CLIENTS.SERVICE.TLPP), se da tratamiento para consultar del punto de entrada F998DMAIL el correo que se desea utilizar por defecto al realizar un envío de correo en Totvs Recibo.


  1. Realizar un respaldo del repositorio (RPO).
  2. Realizar la aplicación del parche correspondiente al issue DMINA-24377.
  3. Validar que las rutinas actualizadas en el repositorio, coincidan con las descritas en el encabezado del presente Documento Técnico, así como las fechas.
  4. Realice la compilación del punto de entrada F998DMAIL.

  5. En la rutina de Clientes (MATA030) que se encuentra en el menú perteneciente al módulo Financiero (Actualizaciones | Archivos) registre un cliente.

  6. En la rutina de Bancos (MATA070) que se encuentra en el menú perteneciente al módulo Financiero (Actualizaciones | Archivos) registre un cliente.

  7. En la rutina de Cuentas Por Cobrar (FINA040) que se encuentra en el menú perteneciente al módulo Financiero (Actualizaciones | Cuentas Por Cobrar) genere una cuenta por cobrar.

  1. Ingresar a la rutina TOTVS Recibo; SIGAFIN - Actualizaciones | Cuentas por Cobrar | TOTVS Recibo.
    1. Ingresar a la opción Nuevo Recibo.

    2. Informe los datos del encabezado, ingrese el primer cliente y de clic al botón Extraer Títulos.

    3. Seleccione el título generado previamente.

    4. Agregue una forma de pago por el valor del título financiero seleccionado.

    5. Marque el checkbox de envío de email.

    6. Confirme el recibo de cobro.

    7. Verifique que se cargue por defecto el correo configurado en el punto de entrada y que el correo sea enviado satisfactoriamente.

    8. Ingrese a la opción Buscar Recibo.

    9. Localice el recibo de cobro generado previamente, seleccione el recibo y de clic a la opción Enviar.

    10. Verifique que el correo sea enviado al correo configurado en el punto de entrada y que el correo sea enviado satisfactoriamente.


Ejemplo punto de entrada F998DMAIL:

Tiene el objetivo de especificar el correo por defecto que se desea utilizar para el envío de correo en Nuevo Recibo y en Buscar Recibo.

Parámetros recibidos: 

NombreTipoDescripción
Paramixb[1]CCliente
Paramixb[2]CTienda

Retorno: variable de tipo carácter (correo electrónico).

NombreTipoDescripción
cCorreoCCorreo electrónico.
Ejemplo de código
#Include 'Protheus.ch'
 
User Function F998DMAIL()
 
    Local cCliente  := Paramixb[1]
    Local cLoja     := Paramixb[2]
    Local cCorreo   := ""
    Local aArea     := GetArea()

    DbSelectArea("SA1")
    SA1->(DbSetOrder(1))//A1_FILIAL+A1_COD+A1_LOJA                                                                  
    If SA1->(MsSeek(xFilial("SA1")+cCliente+cLoja))
         cCorreo := Alltrim(SA1->A1_EMAIL)
    EndIf
    SA1->(DbCloseArea())
    RestArea(aArea)
 
Return cCorreo



04. ASUNTOS RELACIONADOS