Línea de producto: | Microsiga Protheus | ||||
---|---|---|---|---|---|
Segmento: | Servicios - Mercado Internacional. | ||||
Módulo: | SIGAFIN - Financiero. | ||||
Función: |
| ||||
Ticket: | 6924251 | ||||
Issue: | DMINA-7512 | ||||
Versión: | 12.1.17 | 12.1.23 | 12.1.25 |
El Punto de Entrada F087BTNSG que se tiene dentro de la rutina FINA087A, cuando se da clic en la opción de sugerir en los documentos del recibo de cobro, esta opción no realiza la acción del filtrado realizada en el Punto de Entrada (F087BTNSG).
En la función A087aSugerir(), la variable que recibe el Punto de Entrada es diferente a la utilizada en la función del arreglo; así mismo la condición del arreglo es incorrecta, ya que está mandando el arreglo original y NO el arreglo filtrado, el cual es retornado por el Punto de Entrada.
El Punto de Entrada recibe como parámetros los arreglos de los Documentos y de las Monedas asociados al Cliente del Recibo de Cobro; y retorna un arreglo con los documentos que se desean visualizar y las monedas de los mismos que se generan dentro del Punto de Entrada.
Ejemplo del punto de Entrada F087BTNSG :
User Function F087BTNSG()
Local aLinSE1 := {}
Local aLinMoed := {}
Local aRet := {}
Local nX := 0
Local nJ := 0
For nX := 1 to Len(ParamIXB)
For nJ := 1 to Len(ParamIXB[nX])
If nX == 1 .and. ParamIXB[nX][nJ][8] > 2000 // Filtro de títulos con valor mayores a 2000.
Aadd(aLinSE1,ParamIXB[nX][nJ])
ElseIf nX == 2
Aadd(aLinMoed,ParamIXB[nX][nJ])
EndIf
Next nJ
Next nX
Aadd(aRet,aLinSE1)
Aadd(aRet,aLinMoed)
Return aRet