Consulta última movimentação de Produtos

--CONSULTA PARA BUSCAR O ÚLTIMO MOVIMENTO DE DETERMINADOS PRODUTOS(ATRAVÉS DE UMA DATA)
SELECT DISTINCT A.IDMOV,
                B.IDPRD,
                B.CODIGOPRD,
                B.CODTBORCAMENTO,
                B.NATUREZAORCAMENTARIA,
                A.PRECOUNITARIO,
                To_Char(B.DATAEMISSAO, 'DD/MM/YYYY') DATAEMISSAO,
                To_Char(B.DATAENTRADA, 'DD/MM/YYYY') DATAENTRADA,
                B.NOMEFANTASIA
  FROM TITMMOV A
 INNER JOIN (SELECT DISTINCT B.IDPRD,
                             C.CODIGOPRD,
                             D.CODTBORCAMENTO,
                             D.DESCRICAO NATUREZAORCAMENTARIA,
                             MAX(A.IDMOV) as IDMOV,
                             MAX(A.DATAEMISSAO) as DATAEMISSAO,
                             MAX(A.DATASAIDA) as DATAENTRADA,
                             MAX(C.NOMEFANTASIA) as NOMEFANTASIA
               FROM TMOV A
              INNER JOIN TITMMOV B ON A.IDMOV = B.IDMOV
              INNER JOIN TPRODUTO C ON B.IDPRD = C.IDPRD
              INNER JOIN TTBORCAMENTO D ON B.CODTBORCAMENTO =
                                           D.CODTBORCAMENTO
              WHERE
              A.CODTMV in ('1.2.01', '1.2.10')
                                       and A.DATAEMISSAO >= '01/01/2023'
              GROUP BY B.IDPRD, C.CODIGOPRD, D.CODTBORCAMENTO, D.DESCRICAO) B ON A.IDPRD =
                                                                                 B.IDPRD
                                                                             AND A.IDMOV =
                                                                                 B.IDMOV

 ORDER BY B.CODIGOPRD