Get_Custom_Property isn't returning any values
Hello,
I am trying to pass a variable value from a Java Bean back to an Oracle Form, but not having any success.
I have my Set_Custom_Property working, but not the Get_Custom_Property.
Here is my Oracle Forms Code (WORKING CODE - Set Custom Property):
// ---------------------------------------------------------------------------------
Set_Custom_Property( 'XFER.BEAN_INTFACES', 1, 'setHost', INTERFACE_CONNECT.v_HOST || ':' || INTERFACE_CONNECT.v_PORT );
Set_Custom_Property( 'XFER.BEAN_INTFACES', 1, 'setTerminal', INTERFACE_CONNECT.v_TERM_ID );
Set_Custom_Property( 'XFER.BEAN_INTFACES', 1, 'setTSAP', INTERFACE_CONNECT.v_TSAP );
Set_Custom_Property( 'XFER.BEAN_INTFACES', 1, 'setInitTransaction', 'ABSS_NULL_VALUE' );
Set_Custom_Property( 'XFER.BEAN_INTFACES', 1, 'setApplication', INTERFACE_CONNECT.v_APP );
Set_Custom_Property( 'XFER.BEAN_INTFACES', 1, 'setUserID', INTERFACE_CONNECT.v_USERID );
Set_Custom_Property( 'XFER.BEAN_INTFACES', 1, 'setPass', :XFER.PASSWORD );
Set_Custom_Property( 'XFER.BEAN_INTFACES', 1, 'setAccount', INTERFACE_CONNECT.v_ACCOUNT_NUMBER );
Set_Custom_Property( 'XFER.BEAN_INTFACES', 1, 'setProject', INTERFACE_CONNECT.v_PROJECT_NUMBER );
Set_Custom_Property( 'XFER.BEAN_INTFACES', 1, 'setIAPSConnect', INTERFACE_CONNECT.v_IAPS_CONNECT );
Set_Custom_Property( 'XFER.BEAN_INTFACES', 1, 'setUserInitials', INTERFACE_CONNECT.v_USER_INITIALS );
Set_Custom_Property( 'XFER.BEAN_INTFACES', 1, 'setConnection', '' );
Set_Custom_Property( 'XFER.BEAN_INTFACES', 1, 'setRwebConnect', '' );
Set_Custom_Property( 'XFER.BEAN_INTFACES', 1, 'setDisplay', '' );
Set_Custom_Property( 'XFER.BEAN_INTFACES', 1, 'Call_IAPS', '' );
// ---------------------------------------------------------------------------------
Here is my Oracle Forms Code (NOT_WORKING: BUTTON_1 - Get Custom Property):
// ---------------------------------------------------------------------------------
DECLARE
v_SCREEN VARCHAR2(2000);
BEGIN
show_message('Inside GetRowData.');
v_SCREEN := Get_Custom_Property( 'XFER.BEAN_INTFACES', 1, 'GetRowData');
show_message('GetRowData = "' || v_SCREEN || '".');
EXCEPTION
WHEN OTHERS THEN
show_message('OTHERS ERROR 1');
END;
// ---------------------------------------------------------------------------------
Here is my Oracle Forms Code (NOT_WORKING: BUTTON_2 - Get Custom Property):
// ---------------------------------------------------------------------------------
DECLARE
v_SCREEN VARCHAR2(2000);
BEGIN
show_message('Inside GetRowData2.');
v_SCREEN := Get_Custom_Property( 'XFER.BEAN_INTFACES', 1, 'GetRowData2');
show_message('GetRowData2= "' || v_SCREEN || '".');
EXCEPTION
WHEN OTHERS THEN
show_message('OTHERS ERROR 1');
END;
// ---------------------------------------------------------------------------------
Here is my Java Get Property Code Snippet (provided two functions one returns an Object and the other returns a String):
// ---------------------------------------------------------------------------------
public Object getProperty(ID id2)
{
if ( id2 == pGetRowData )
{
System.out.println("GetRowData1");
String col1 = conn.getDisplayText(1, 1, 80);
System.out.println("GetRowData2");
String col2 = conn.getDisplayText(2, 1, 80);
System.out.println("GetRowData3");
String col3 = conn.getDisplayText(3, 1, 80);
System.out.println("End GetRowData");
return col1+col2+col3;
}
else
System.out.println("GetProperty = '"+id2+"'");
return super.getProperty(id2);
}
public String getRowData2()
{
System.out.println("GetRowData1");
String col1 = conn.getDisplayText(1, 1, 80);
System.out.println("GetRowData2");
String col2 = conn.getDisplayText(2, 1, 80);
System.out.println("GetRowData3");
String col3 = conn.getDisplayText(3, 1, 80);
System.out.println("End GetRowData");
return col1+col2+col3;
}
// ---------------------------------------------------------------------------------
When I click on either Buttons (that call the Get_Custom_Property), neither one prints the System.out.println commands. I don't think that the java code (get functions) are getting executed?
What am I doing wrong?
Thanks in advance for the help,
Mike