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-14278 |
Se necesita crear el punto de entrada F998BRFLT 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.
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 más 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.
|
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
Ejemplo con el Grupo de preguntas FINA998BUS
User Function F998BRFLT()
Local querySelect := Paramixb[1]
Local queryWhere := Paramixb[2]
Local queryOption := Paramixb[3]
Local jPergunte := Paramixb[4] // Objeto Json de Preguntas
Local whereNew := " "
Local queryNew := ""
IF jPergunte['form']['mv_par11'] != ""
whereNew :=" AND EL_NATUREZ = '"+jPergunte['form']['mv_par11']+"' "
EndIF
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