gistfile1.txt

declare 
cursor c1 is
            SELECT DISTINCT P.IDLANCAMENTO, 
                P.IDPARTIDA, 
                M.IDMOV, 
                M.TIPO, 
                M.CODCONTA AS CONTA_MOV, 
                CPRD.CODCONTA AS CONTA_PRD, 
                M.VALOR AS VALOR_CONTABIL,                  
                PRD.CODCONTAGER AS CONTA_GERENCIAL_PRD, 
                R.CODGERENCIAL AS CONTA_GERENCIAL_RATEIO,
                M.COMPLHISTORICO
FROM CLANCAMENTO C INNER JOIN CPARTIDA P ON C.IDLANCAMENTO = P.IDLANCAMENTO
                   INNER JOIN TMOVCONT M ON P.IDPARTIDA = M.IDPARTIDA
                   INNER JOIN TITMMOV I ON M.IDMOV = I.IDMOV
                   INNER JOIN TPRODUTODEF PRD ON PRD.IDPRD = I.IDPRD
                   INNER JOIN TPRDCONT CPRD ON CPRD.IDPRD = I.IDPRD AND M.TIPO = CPRD.TIPO
                   LEFT OUTER JOIN CRATEIOLC R ON P.IDPARTIDA = R.IDPARTIDA
WHERE P.INTEGRAAPLICACAO = 'T'
      AND R.CODGERENCIAL IS NOT NULL
      --AND M.IDMOV = 161572 
      --AND P.IDPARTIDA = 1128170
      AND M.TIPO = 2 
      AND M.CODCONTA = CPRD.CODCONTA
      AND PRD.CODCONTAGER <> R.CODGERENCIAL;
v_cont number;
begin
    v_cont:=1;

  
    for r1 in c1 loop

       if r1.CONTA_GERENCIAL_PRD != r1.CONTA_GERENCIAL_RATEIO then
       DBMS_OUTPUT.put_line('id_partida: ' || r1.IDPARTIDA || ' -  ' || r1.CONTA_GERENCIAL_PRD );
       --cLINHA := cLINHA + 1;
       --SELECT * FROM CRATEIOLC R WHERE R.IDPARTIDA = 604740; 
       UPDATE CRATEIOLC SET CODGERENCIAL = r1.CONTA_GERENCIAL_PRD, RECMODIFIEDBY = 'alfredo.braga', RECMODIFIEDON = SYSDATE WHERE IDPARTIDA = r1.IDPARTIDA;
       -- COMMIT;
    end if;
       
    end loop;
    --commit;
end;

-- select * from CRATEIOLC where RECMODIFIEDBY = 'alfredo.braga' order by RECMODIFIEDON desc