Re: Passing a parameter from developer/2000 Form to Graphics

From: Dean <deanp_at_lantic.co.za>
Date: 1997/10/01
Message-ID: <34329534.77EBBBFB_at_lantic.co.za>#1/1

This is a multi-part message in MIME format.

--------------C52CDA0AE6F80FE0FC63301B
Content-Type: text/plain; charset=iso-8859-1
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
Content-Transfer-Encoding: 8bit

§Ú·RºÎı wrote:

> How can I show the parameter in Dev2K Graphics passing from Dev2K
> Form ? Thank you very much !

I have extracted the attached procedure from one on my graphs. The way that Oracle displays the passed data on the graph is a bit confusing, but you can read about it in the help files.

Dean Pike

--------------C52CDA0AE6F80FE0FC63301B
Content-Type: text/plain; charset=us-ascii; name="graph.txt"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline; filename="graph.txt"

PROCEDURE OGTRIGGERPROC0 IS
  the_chart	og_object;
  text_obj	og_object;
  text_pos	og_point;
  smp_rec	og_smptext_attr;

  template	og_template;
  ftemp		og_ftemp;
 

BEGIN   the_chart := og_get_object('kzngrp01');

  og_set_title(the_chart,:amount || ' Worst Accident Sites for Year ' || :year || ' quarter ' || :low_quarter || ' to ' || :high_quarter);

  text_pos.x := 220*OG_APP.HSCREEN_RES; 
  text_pos.y := 440*OG_app.vscreen_res; 
  text_obj := og_make_text(text_pos);

  og_insert_cmptext(text_obj, 0);
  smp_rec.str := 'Based on Total Fatal + Serious Accidents';   smp_rec.mask := og_str_smptexta;
  og_insert_smptext(text_obj, smp_rec, 0, 0);

  og_set_font_ptsize(text_obj,'12');
  og_set_font_typeface(text_obj,'arial');
  og_set_font_weight(text_obj,0);
  og_set_horigin(text_obj, og_left_horigin);

  og_update_chart(the_chart, og_all_chupda);

  /*** Set the field templates ***/
  if :amount <= 5 then
    template := og_get_template('template0');     ftemp := og_get_ftemp(template, 0);
    og_set_plottype(ftemp, og_label_plottype + og_bar_plottype);

    ftemp := og_get_ftemp(template, 1);
    og_set_plottype(ftemp, og_label_plottype + og_bar_plottype);

    ftemp := og_get_ftemp(template, 2);
    og_set_plottype(ftemp, og_label_plottype + og_bar_plottype);   else
    template := og_get_template('template0');     ftemp := og_get_ftemp(template, 0);
    og_set_plottype(ftemp, og_bar_plottype);

    ftemp := og_get_ftemp(template, 1);
    og_set_plottype(ftemp, og_bar_plottype);

    ftemp := og_get_ftemp(template, 2);
    og_set_plottype(ftemp, og_bar_plottype);   end if;

  og_set_endpage(2);

END;
--------------C52CDA0AE6F80FE0FC63301B-- Received on Wed Oct 01 1997 - 00:00:00 CEST