Exibir origem

01. DATOS GENERALES

Producto

Línea de producto:

Segmento:

Módulo:

SIGAFIN - FINANCIERO

Función:

Rutina	Nombre Técnico	Fecha
FINA998.APP	Aplicativo de TOTVS Recibo (Front-end)
FINA998.PRW	Aplicativo de TOTVS Recibo (Back-end)
FINA998A.PRW	Llamada de servicios por ADVPL
GETCONTENTINI.SERVICE.TLPP	Servicio para obtener las configuraciones iniciales
FINANCIAL-TITLES.CONTROLLER.TLPP	Controlador para obtener los títulos financieros
FINANCIAL-TITLES.SERVICE.TLPP	Servicio para obtener los títulos financieros

País:

Todos

Ticket:

N/A

Requisito/Story/Issue (informe el requisito vinculado):

DMINA-23387

02. DESCRIPCIÓN

Se requiere habilitar el punto de entrada F998VALBX el cual tiene el objetivo de habilitar la opción de "Descuento por pronto pago" en la ventana "Edición de cobro" y realizar un descuento al título seleccionado por un porciento (%).

03. INFORMACIÓN ADICIONAL

Se realizan cambios en los siguientes fuentes:

Aplicativo de TOTVS Recibo (FINA998.PRW Y FINA998A.TLPP) habilitando el endpoint para obtener las configuraciones determinadas en el PE "Descuento por pronto pago" (F998VALBX) y aplicar la lógica matemática para realizar los descuentos.
Servicio para configuraciones iniciales (GETCONTENTINI.SERVICE.TLPP) se habilita una bandera para habilitar o deshabilitar la opción "Descuento por pronto pago" cuando se desea realizar la "Edición de cobro" a un título.
Controlador y servicio para obtener los títulos financieros (FINANCIAL-TITLES.CONTROLLER.TLPP y FINANCIAL-TITLES.SERVICE.TLPP) se realiza la ejecución del PE "Descuento por pronto pago"

Importante

La solución estará presente en el patch de expedición continua con fecha superior al 18/07/2024.

Realizar un respaldo del repositorio (RPO).
Aplicar el paquete de expedición continua Financiero - Totvs Recibo MI con fecha del 18/07/2024 o posterior.
Aplicar el parche correspondiente al issue DMINA-23387.
Validar que las rutinas actualizadas en el repositorio, coincidan con las descritas en el encabezado del presente Documento Técnico, así como las fechas.
Crear la función de usuario "Descuento por pronto pago" (F998VALBX) el cual retornará un jsobjeto Json con las siguientes opciones:
1. Nombre del campo nuevo a mostrar.
2. Deshabilitar o habilitar el campo de descuento, multa o interés.
3. Habilitar o deshabilitar el campo "Descuento por pronto pago".
  1. La siguiente imagen es un ejemplo del PE (F998VALBX):
Dentro del módulo Financiero ejecutar la rutina TOTVS Recibo (Actualizaciones | Cuentas por cobrar).
En la rutina de Clientes (MATA030), ubicada en el módulo Financiero (Actualizaciones | Archivos) registré un cliente.
En la rutina de Facturaciones (MATA467N), ubicada en el módulo de Facturación (Actualizaciones | Facturaciones) generamos un nuevo título.

Ingresar a la rutina TOTVS Recibo; SIGAFIN - Actualizaciones | Cuentas por Cobrar | TOTVS Recibo.
1. Ingresar a la opción Nuevo Recibo.
  1. Informe el encabezado del recibo de cobro con el cliente configurado anteriormente, después de clic en el botón Extraer Títulos.
  2. Informe una forma de pago de tipo CH con el número 1307001
  3. Confirme el recibo de cobro.
2. Ingresamos a la opción Buscar Recibo.
  1. Llenamos los filtros necesarios para localizar el recibo generado anteriormente.
  2. Damos clic en modificar.
  3. Modificamos el número de cheque de 1307001 a 1307000
  4. Verificar que salga la alerta de que el cheque no puede ser modificado

Descripción

Actualizaciones

Nombre del programa fuente:

RECEIPT.SERVICE.TLPP

Parámetros recibidos

N/A

Punto de entrada:

F887ROT

Respuesta:

Arreglo que contiene el nombre de la nueva opción habilitada y la función que se ejecutara al dar clic en ella.

Nombre	Tipo	Descripción	Obligatorio
aRet[1]	C	Título de la nueva opción que se habilitara en Buscar Recibos.	Si
aRet[2]	C	Función de usuario que será ejecutada al dar clic en la nueva opción	Si

#Include 'Protheus.ch'

//Punto de entrada F887ROT
User Function F887ROT

    Local aData	As Array

    aData := {"CANCEL FORZA","EjemploPE"} //{Nombre de la nueva opción, Funcion a ejecutarse}

Return aData

//Funcion de usuario que será ejecutada al dar clic en la nueva opción
User Function EjemploPE()
    LOCAL aRet := {}

    IF FJT->FJT_CLIENT == '000001'  //Cancelara recibos que pertenezcan a este cliente
        RecLock("FJT",.F.)
	    Replace FJT_CANCEL With "1"
	    MsUnLock()
        aRet:={.T.,"PE EJECUTADO CORRECTAMENTE"} //{.T., Mensaje personalizado}
    ELSE
        aRet:={.F.,"ESTE CLIENTE NO PERMITE MODIFICACIONES"} //{.F., Mensaje personalizado}
    ENDIF
Return aRet

01. DATOS GENERALES

02. DESCRIPCIÓN

03. INFORMACIÓN ADICIONAL

04. ASUNTOS RELACIONADOS