Histórico da Página

...

...

Se requiere habilitar el punto de entrada "Nueva opción en Buscar Recibo" (F887ROT) el cual tiene la funcionalidad de retornar un nombre para la nueva opción y una función que ejecutara este mismo, 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ón.

...

• Aplicativo de TOTVS Recibo (FINA998.PRW Y FINA998A.TLPP) hablitando habitando el endpoint para mandar a llamar la función configurada por el cliente en el PE "Nueva opción en Buscar Recibo" (F887ROT).
• Controlador y servicio para obtener los recibos (RECEIPT.CONTROLLER.TLPP y RECEIPT.SERVICE.TLPP) se realiza la ejecución del PE "Nueva opción en Buscar Recibo" (F887ROT) el cual retornara el nombre de la nueva opción así como la función de usuario a ejecutar.

...

04. INFORMACIÓN ADICIONAL

#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

...