| Producto | |||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| Línea de producto: | |||||||||||||||||||
| Segmento: | |||||||||||||||||||
| Módulo: | SIGAFIN - FINANCIERO | ||||||||||||||||||
| Función: |
| ||||||||||||||||||
| País: | Todos | ||||||||||||||||||
| Ticket: | N/A | ||||||||||||||||||
| Requisito/Story/Issue (informe el requisito vinculado): | DMINA-23425 |
Se requiere habilitar el punto de entrada 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 para realizar acciones sobre este recibo.
Se realizan cambios en los siguientes fuentes:
Importante La solución estará presente en el patch de expedición continua con fecha superior al 02/07/2024. |
|
| 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.
|
#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
|