Não foi eu quem resolvel mais segue ak como foi resolvido....
Foi mantido o mesmo formato e substuido por sentença SQL, muito simples depois de pronto.
SELECT
A.CODTMV
, A.NUMEROMOV
, A.DATAMOVIMENTO
, A.DATAENTREGA
, C.NOMEFANTASIA
, A.NUMEROMOV
, B.QUANTIDADE AS QUANTIDADE_TOTAL
, 1 AS QUANTIDADE_UNITARIA
FROM
TMOV A
, TITMMOV B
, FCFO C
, (SELECT
P.CODCOLIGADA
,(SELECT
COUNT(1)
FROM
TPRD
WHERE
IDPRD <= P.IDPRD
AND CODCOLIGADA = P.CODCOLIGADA) AS SEQ_ITEM
FROM
TPRD P) TABELA_VIRTUAL
WHERE
A.CODTMV = '2.1.20'
AND A.IDMOV = B.IDMOV
AND A.CODCFO = C.CODCFO
AND A.NUMEROMOV = :NUMERO_MOVIMENTO
AND B.CODCOLIGADA = TABELA_VIRTUAL.CODCOLIGADA
AND TABELA_VIRTUAL.SEQ_ITEM <= B.QUANTIDADE
Obs.: Muito obrigado a todos pela força.....