01. DATOS GENERALES
Producto | TOTVS Backoffice | ||||||
---|---|---|---|---|---|---|---|
Línea de producto: | Línea Protheus | ||||||
Segmento: | Servicios | ||||||
Módulo: | SIGAFIN - Financiero | ||||||
Función: |
| ||||||
País: | Todos | ||||||
Ticket: | N/A | ||||||
Requisito/Story/Issue (informe el requisito vinculado): | DMINA-14278 |
02. SITUACIÓN/REQUISITO
Se necesita crear un punto de entrada en el cual se pueda agregar más filtros al Query de selección de recibos al momento de dar clic en aplicar filtros al buscar recibo.
03. SOLUCIÓN
Se crea el punto de entrada F998BRFLT en la rutina RECEIPT.DATA.TLPP - Data del servicio de recibos, con el objetivo de que el usuario pueda agregar mas filtros al Query de selección de recibos al momento de dar clic en aplicar filtros al buscar un recibo desde el programa de TOTVS Recibo.
Crear la función de usuario F998BRFLT para agregar filtro de campos para búsqueda de recibos.
- La función debe retornar la expresión SQL para la consulta correspondiente.
- Dentro del modulo Financiero ejecutar la rutina TOTVS Recibo (Actualizaciones | Cuentas por cobrar).
- Dentro del aplicativo de TOTVS Recibo, ir a Buscar recibo, llenar los campos de consulta de acuerdo a los recibos que se desea buscar y visualizar.
- Al dar clic en Aplicar se ejecutará el punto de entrada F998BRFLT.
- La función de usuario afectará la búsqueda de recibos, aplicando los filtros definidos por el usuario desde TOTVS Recibo más los filtros agregados desde el punto de entrada (F998BRFLT). esta función retornará la expresión SQL necesaria para realizar la consulta (Query) a la base de datos mostrando los recibos que cumplan todas las condiciones.
04. INFORMACIÓN ADICIONAL
Descripción | Actualizaciones | ||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Punto de entrada: | F998BRFLT | ||||||||||||
Nombre del programa fuente: | RECEIPT.DATA.TLPP | ||||||||||||
Parámetros recibidos: |
| ||||||||||||
Respuesta: |
|
Ejemplo:
#Include 'Protheus.ch'
User Function F998BRFLT
Local querySelect := Paramixb[1]
Local queryWhere := Paramixb[2]
Local queryOption := Paramixb[3]
Local whereNew := " AND SEL.EL_RECIBO >= 0040"
Local queryNew := ""
IF queryOption == 'complete'
queryNew := " SELECT " + querySelect + " AS totalreceipts FROM " + RetSqlName("SEL")
queryNew += +" SEL WHERE " + queryWhere + whereNew
ELSEIF queryOption == 'where'
queryNew := queryWhere + whereNew
ENDIF
RETURN queryNew
La presente solución aplica para versión 12.1.33 o superior, siempre y cuando se tengan las rutinas actualizadas a la fecha de la expedición del issue.¡IMPORTANTE!