01. DATOS GENERALES


Producto

Línea de producto: 

Segmento:

Módulo:SIGAFIN - FINANCIERO
Función:
RutinaNombre TécnicoFecha
F887FIN.PRWReglas de negocio de Totvs Recibo para todos los países

F887FINMEX.PRWReglas de negocio de Totvs Recibo para México
País:Todos
Ticket:22729054
Requisito/Story/Issue (informe el requisito vinculado):DMINA-26064


02. SITUACIÓN/REQUISITO

El punto de entrada F998DMAIL no funciona correctamente en la rutina de TOTVS Recibo (FINA998) con el parámetro Nuevo Recibo en MVC (MV_RECMVC) activado.


03. SOLUCIÓN

Se realizan cambios en los siguientes fuentes:


  1. Realizar un respaldo del repositorio (RPO).
  2. Por medio del módulo configurador (SIGACFG) dar de alta un nuevo campo y activamos el parámetro "Nuevo Recibo en MVC" (MV_RECMVC). (NOTA: Este campo se usa para el ejemplo de este issue, no es obligatoria su configuración) 
    1. Configuración del campo:
      1. Campo = A1_XMAILRC
      2. Tipo = 1-Carácter
      3. Tamaño = 30
      4. Contexto = 1-Real
      5. Propiedad = 1-Modificar
      6. Nombre = PE Email
    2. Configuración del parámetro:
      1. MV_RECMVC = .T.
  3. Aplicar el parche correspondiente al issue DMINA-26064.
  4. Validar que las rutinas actualizadas en el repositorio, coincidan con las descritas en el encabezado del presente Documento Técnico
  5. Compilar el PE F998DMAIL

    1. El campo donde se muestra el correo electrónico tendrá, por defecto, el tamaño del valor retornado por el Punto de Entrada (PE). Si necesitas agregar más espacios a la derecha para incluir direcciones de correo electrónico adicionales, deberás utilizar la función PADR() en el PE (Se puede visualizar un ejemplo de este caso en el siguiente bloque de código). Esta función te permitirá agregar espacios adicionales al final del correo electrónico retornado.

    2. #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_XMAILRC)  //Se obtiene el correo del campo creado
	   //cCorreo:= PADR(SA1->A1_XMAILR, 99)   //Ejemplo agregando espacios a la derecha para agregar correos extra en el input
    EndIf
    SA1->(DbCloseArea())
    RestArea(aArea)
 
Return cCorreo
  6. A través de la rutina “Productos”, ubicada en el módulo de SIGAFAT (Actualizaciones | Archivos), incluir un producto.
  7. A través de la rutina “Bancos”, ubicada en el módulo de SIGAFAT (Actualizaciones | Archivos), incluir un banco.

  8. A través de la rutina “Clientes”, ubicada en el módulo de SIGAFAT (Actualizaciones | Archivos), incluir un cliente y en el campo PE Email (A1_XMAILRC) configuramos un correo diferente al del campo Email (A1_EMAIL).

  9. A través de la rutina "Tipo de Entrada y Salida", ubicada en el módulo de Facturación, SIGAFAT (Actualizaciones | Archivos), incluir una TES de salida.
  10. A través de la rutina "Factura de Venta", ubicada en el módulo Facturación, SIGAFAT (Actualizaciones | Movimientos), capturar una Factura timbrada para el Cliente con el producto y la TES previamente configurada.
  1. Ingresar a la rutina TOTVS Recibo; SIGAFIN - Actualizaciones | Cuentas por Cobrar | TOTVS Recibo.
    1. Ingresar a la opción de "Nuevo recibo".

      1. Capturar los datos del encabezado para obtener la Factura del cliente configurado.

      2. Seleccionar la Factura generada anteriormente.

      3. Agregar una Forma de Pago correspondiente al valor total de la Factura.

      4. Dar clic en los parámetros (F4) y habilitar el envío por email (En caso de no tener configurado estos parámetros de clic aquí.).

      5. Confirmar el guardado y verificar que en la ventana del correo electrónico se muestre el correo configurado al cliente en el campo PE Email (A1_XMAILRC).


04. INFORMACIÓN ADICIONAL

N/A



05. ASUNTOS RELACIONADOS