Base data block on a web service

Question

Hy,
I need to integrate an oracle forms application with data provided from other applications (via web services), like countries, cities, users ecc.
there is a way to base a data block (in forms web 6/10 with Java Importer) on a data returned from a web service?
Can i base block on a PL/SQL variable, returned from java, that contains data from web service?
Thanks at all.
Davide

Answer 1

here is a snippet:
PROCEDURE BT_Poll IS
|| Name      : BT_Poll
||
|| Aufgabe   : Hier werden Bücher bestellt
||
|| Autor     : 05.03.2006, VOL
|| Updates   :
  R_App  SPU_Type.T_App := Init_App ('BT_Poll');
  v_list             ORA_JAVA.JARRAY;
  R_String           Const_lokal.T_CSV_Datensatz;
  E_kein_Webservice  EXCEPTION;
  PRAGMA EXCEPTION_INIT (E_kein_Webservice, -105100);
  v_Akt_Record       NUMBER;
BEGIN
  Go_block ('Workitems');
  v_Akt_Record := Akt.Record;
  Clear_Block;
-- user, pw, server
  v_list := BpelWorkflowClient.getAllWorkItems (
    a0    => Const_lokal.usr_Buchbesteller,
    a1    => Const_lokal.pwd_Buchbesteller,
    a2    => Const_lokal.srv_Default);
--  v_list_laenge := ORA_JAVA.get_array_length (v_list);
  :PARAMETER.PA_ANZ_POLLS := ORA_JAVA.get_array_length (v_list);
  FOR i in 0 .. :PARAMETER.PA_ANZ_POLLS - 1
  LOOP
    :WORKITEMS.ALL := ORA_JAVA.get_String_array_element (v_list, i);
    Get_CSV_Daten (:WORKITEMS.ALL, ';', R_String);
    :WORKITEMS.Task_Titel     := R_String.Wert_01;
    :WORKITEMS.Task_ID        := R_String.Wert_02;
    :WORKITEMS.ISBN           := R_String.Wert_03;
    :WORKITEMS.Buch_Titel     := R_String.Wert_04;
    :WORKITEMS.Autoren        := R_String.Wert_05;
    :WORKITEMS.Preis          := R_String.Wert_06;
    :WORKITEMS.Bestellername  := R_String.Wert_07;
    create_record;
  END LOOP;
  Go_Record (v_Akt_Record);
  IF :PARAMETER.PA_ANZ_POLLS = 0 THEN
    go_block ('BUECHER');
  END IF;
EXCEPTION
  WHEN E_kein_Webservice THEN
  WHEN OTHERS THEN
END;
  FUNCTION getAllWorkItems(
    a0    VARCHAR2,
    a1    VARCHAR2,
    a2    VARCHAR2) RETURN ORA_JAVA.JARRAY IS
  BEGIN
    args := JNI.CREATE_ARG_LIST(3);
    JNI.ADD_STRING_ARG(args, a0);
    JNI.ADD_STRING_ARG(args, a1);
    JNI.ADD_STRING_ARG(args, a2);
    RETURN JNI.CALL_OBJECT_METHOD(TRUE, NULL, 'de/opitzconsulting/bpel/wf/client/BpelWorkflowClient', 'getAllWorkItems', '(Ljava/lang/String;Ljava/lang/String;Ljava/lang/String;)[Ljava/lang/String;', args);
  END;
[/pre]
the getAllWorkItems is a generated Package which wraps the workflow-webservice-method
try it
Gerd