01. DATOS GENERALES


Producto

Línea de producto: 

Segmento:

Módulo:SIGAFIN - FINANCIERO
Función:
RutinaNombre TécnicoFecha
FINA998.APPAplicativo de TOTVS Recibo (Front-end)
FINA998.PRWAplicativo de TOTVS Recibo (Back-end)
 
FINA998A.PRWLlamada de servicios por ADVPL
 
RECEIPT.CONTROLLER.TLPPControlador del servicio de recibos
 
RECEIPT.SERVICE.TLPPServicio para obtener los recibos
 
RECEIPT.DATA.TLPPDatos de recibos
 
País:Todos
Ticket:N/A
Requisito/Story/Issue (informe el requisito vinculado):DMINA-23425


02. DESCRIPCIÓN

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.


03. INFORMACIÓN ADICIONAL

Se realizan cambios en los siguientes fuentes:

Importante

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



  1. Realizar un respaldo del repositorio (RPO).
  2. Aplicar el paquete de expedición continua Financiero - Totvs Recibo MI con fecha del o posterior.  
  3. Aplicar el parche correspondiente al issue DMINA-22425.
  4. Validar que las rutinas actualizadas en el repositorio, coincidan con las descritas en el encabezado del presente Documento Técnico, así como las fechas.
  5. 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 realizar acciones sobre el recibo posicionado.
  6. Dentro del módulo Financiero ejecutar la rutina TOTVS Recibo (Actualizaciones | Cuentas por cobrar).
  7. En la sección Buscar recibo, especifique los criterios de consulta.
  8. Localice el recibo a modificar.
    1. Dar clic en la nueva opción agregada por el PE F887ROT en la lista de opciones por recibo.
  9. Verifique que se hayan realizado las acciones al recibo correctamente a través de la función enviada en el PE F887ROT.
  • El Punto de Entrada F887ROT proporciona una herramienta para que los usuarios puedan realizar acciones en el recibo seleccionado. Sin embargo, la decisión de realizar estas acciones son responsabilidad del cliente.
  • El sistema no válida ni verifica la información alterada o consultada por el usuario. Por lo tanto, el cliente debe asegurarse de que los cambios realizados en 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'  o SEL->EL_CLIENTE == '000001'. Las variables de memoria se posicionarán con prioridad en la tabla FJT (Encabezado de recibo). En caso de que el recibo no cuente con datos en dicha tabla, se actualizaran las variables de memoria a datos de la tabla de SEL (Recibos de cobro).
  • La función de usuario retornada en el PE F887ROT debe estar compilada en RPO, de lo contrario marcará error.


DescripciónActualizaciones
Nombre del programa fuente:RECEIPT.SERVICE.TLPP
Parámetros recibidos
NombreTipoDescripción
PARAMIXB[1]Carácter

Parámetro que permite al usuario verificar en qué tabla se está realizando el posicionamiento para determinar las acciones a realizar.

Las únicas opciones mandadas en este parámetro son:

  1. FJT  (Encabezado del recibo)
  2. SEL (Cobros Diversos).
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]CTítulo de la nueva opción que se habilitara en Buscar Recibos.Si
aRet[2]CFunción de usuario que será ejecutada al dar clic en la nueva opciónSi
#Include 'Protheus.ch'

User Function F887ROT

    Local aData	As Array

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

Return aData


User Function EjemploPE()
    Local aRet := {}
    
    IF PARAMIXB[1] == "FJT"
        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
    ELSEIF PARAMIXB[1] == "SEL"
        IF SEL->EL_CLIENTE == '000001'  //Cancelara recibos que pertenezcan a este cliente
            RecLock("SEL",.F.)
	        Replace EL_CANCEL With .T.
	        MsUnLock()
            aRet:={.T.,"PE Ejecutado correctamente"} //{.T.,Mensaje personalizado}
        ELSE
            aRet:={.F.,"ESTE CLIENTE NO PERMITE MODIFICACIONES"} //{.F.,Mensaje personalizado}
        ENDIF
    ELSE    
            aRet:={.F.,"NO SE LOCALIZARON DATOS (FJT y SEL)"} //{.T.,Mensaje personalizado}
    ENDIF
Return aRet  

04. ASUNTOS RELACIONADOS