Requisito/Story/Issue (informe el requisito vinculado):
DMINA-23425
02.
...
DESCRIPCIÓN
Se requiere habilitar el punto de entrada "Nueva opción en Buscar Recibo" (F887ROT) el F887ROT el cual tiene la funcionalidad de retornar un nombre para la nueva opción y una función de usuario que ejecutara este mismo nuevo botón, el nombre será colocado como nueva opción en Buscar recibo y al accionar esta nueva opción se ejecutara la función configurada en el PE posicionándose en memoria el recibo seleccionado para su ediciónpara realizar acciones sobre este recibo.
03.
...
INFORMACIÓN ADICIONAL
Se realizan cambios en los siguientes fuentes:
...
Aviso
title
Importante
Importante
La solución estará presente en el patch deexpedición continuacon fecha superior al 0203/07/2024.
Totvs custom tabs box
tabs
Procedimiento de utilización, Paso 02, Paso 03, Paso 04Conf. Previas y flujo de prueba
ids
Procedimiento de utilizaciónpaso1,paso2
Totvs custom tabs box items
default
yes
referencia
paso1
Realizar un respaldo del repositorio (RPO).
Aplicar el paquete de expedición continua Financiero - Totvs Recibo MI con fecha del o posterior.
Aplicar el parche correspondiente al issue DMINA-22425.
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 "Nueva opción en Buscar Recibo" (F887ROT) el cual retornará un arreglo con el nombre de la nueva opción y una función de usuario que será ejecutada al dar clic en la nueva opción y el encargado de cambiar los valores del realizar acciones sobre el recibo posicionado.
Dentro del módulo Financiero ejecutar la rutina TOTVS Recibo (Actualizaciones | Cuentas por cobrar).
En la sección Buscar recibo, especifique los criterios de consulta.
Localice el recibo a modificar.
Dar clic en la nueva opción agregada por el PE F887ROT en la lista de opciones por recibo.
Verifique que se haya modificado el recibo de acuerdo a hayan realizado las acciones al recibo correctamente a través de la función enviada en el PE F887ROT.
Aviso
title
Importante
El Punto de Entrada F887ROT proporciona Entrada F887ROT proporciona una herramienta para que los usuarios puedan modificar recibosrealizar acciones en el recibo seleccionado. Sin embargo, la decisión de realizar estos cambios y las consecuencias de los mismos estas acciones son responsabilidad exclusiva del cliente.
El sistema no válida ni verifica la información modificada alterada o consultada por el usuario. Por lo tanto, el cliente debe asegurarse de que los cambios realizados en los recibos el recibo sean correctos y no generen problemas posteriores.
...
Al ejecutar la función de usuario, los datos del recibo seleccionado vienen en memoria, por lo cual el cliente puede hacer uso de ellas. Ejemplo:
FJT->FJT_CLIENT == '000001'
La función de usuario retornada en el PE F887ROT debe estar compilada en RPO, de lo contrario marcará error.
Card documentos
Informacao
La presente solución aplica para versión 12.1.2210 o superior, siempre y cuando se encuentre aplicado el paquete de expedición continua Financiero - Totvs Recibo MI con fecha de corte superior a este comunicado.
Titulo
¡IMPORTANTE!
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
Bloco de código
language
actionscript3
title
Ejemplo de PE F887ROT y función de usuario
linenumbers
true
#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
Card documentos
Informacao
La presente solución aplica para versión 12.1.2210 o superior, Aplicar el paquete de expedición continua Financiero - Totvs Recibo MI con fecha superior a este comunicado".