DECLARE V_CDPRECOBASE VARCHAR2(02);
BEGIN
   FOR C_PEDIDO IN (SELECT CDFILIAL,CDMODPGTO, NRPEDIDO
                    FROM PEDIDO
                    WHERE CDPRECOBASE IS NULL) LOOP

      SELECT MAX(CDPRECOBASE)
      INTO V_CDPRECOBASE
      FROM PRECOUTI
      WHERE CDFILIAL  = C_PEDIDO.CDFILIAL AND
            CDMODPGTO = C_PEDIDO.CDMODPGTO;

      UPDATE PEDIDO
      SET CDPRECOBASE = V_CDPRECOBASE
      WHERE CDFILIAL = C_PEDIDO.CDFILIAL AND
            NRPEDIDO = C_PEDIDO.NRPEDIDO;
   END LOOP;
   COMMIT;
END;
/
