Fórum List index out of bounds (4) #379993

Meus caros, bom dia.

Estou aqui mais uma vez pedindo a ajuda dos colegas.

O problema é o seguinte estou com um problema em uma query.

Ao executala no ISQL recebo a seguinte mensagem List index out of bounds (4).

Segue abaixo o código da query para facilitar a ajuda.

Conto com a costumeira colaboração de todos.

Grato.

SELECT DUPLICATAS.DATA_VENCIMENTO AS VENCIMENTO,
       CLIENTFOR.RAZAO_SOCIAL AS CLIFOR,
       BANCOS.BANCO || ' C/C ' || DUPLICATAS.BANCO_CONTA AS BANCO,
       DUPLICATAS.DUPLICATA AS DOCUMENTO,
       UDF_ROUNDDEC(DUPLICATAS.VALOR_RECEBER, 2) AS ENTRADAS,
       0 AS SAIDAS
FROM   DUPLICATAS, CLIENTFOR, BANCOS
WHERE  DUPLICATAS.EMPRESA = :nEmp
       AND DUPLICATAS.FILIAL = :nFil
       AND DUPLICATAS.DATA_PAGAMENTO IS NULL
       AND UDF_ROUNDDEC(DUPLICATAS.VALOR_RECEBER, 2) > 0
       AND DUPLICATAS.DATA_VENCIMENTO >= :nDti
       AND DUPLICATAS.DATA_VENCIMENTO <= :nDtf
       AND DUPLICATAS.EMPRESA = CLIENTFOR.EMPRESA
       AND DUPLICATAS.FILIAL = CLIENTFOR.FILIAL
       AND DUPLICATAS.CLIENTE = CLIENTFOR.CODIGO
       AND DUPLICATAS.BANCO_COMP = BANCOS.COMP
UNION
SELECT CAST(MVTPCP.VCT_PCP AS DATE) AS VENCIMENTO,
       MVTPCP.FOR_A AS CLIFOR,
       BANCOS.BANCO || 'C/C ' || MVTPCP.CONTA_DESTINO AS BANCO,
       MVTPCP.NUMERO_DOCUMENTO AS DOCUMENTO,
       0 AS ENTRADAS,
       UDF_ROUNDDEC(MVTPCP.VLR_PCP, 2) AS SAIDAS
FROM   MVTPCP, BANCOS
WHERE  MVTPCP.EMPRESA = :nEmp
       AND MVTPCP.FILIAL = :nFil
       AND MVTPCP.DT_PGTO IS NULL
       AND UDF_ROUNDDEC(MVTPCP.VLR_PCP, 2) > 0
       AND MVTPCP.VCT_PCP >= :nDti
       AND MVTPCP.VCT_PCP <= :nDtf
       AND MVTPCP.BANCO_DESTINO = BANCOS.COMP
ORDER  BY 1, 4