Can't create object types in forms 10

Question

Hello,
I am trying to use object types in forms 10.
I have already created successfully two object types and also corresponding object views.
With one object type A everything works fine in form. But with the other object type B it doesn't.
I am calling the constructor of object B and after the constructor finshed, forms says that there is a numeric or value error.
Well, by nbow I have reduced attributes from object B so that they are identical to object A (which works). But still get the same error or if I use a different constructor I get NULL as a return value. I tested the constructors with test script in the database directly and viola - the constructor are working fine.
Only if I use the constructors in forms environment they fail.
Any ideas why this might happen?
Thank you
Matthias
Well, I fear to use the object types in my next project cause if I run into trouble if the object types are so easy with less code, what else might happen if they are filled up with much more code?

Answer 1

Hello again,
I have tried again and still get the exception.
Now I provide the code. Perhaps someone can see, why this exceptioon occurs.
In the database I coded the following:
create or replace type GenericObject as object
-- Attributes
iVersion VARCHAR2(8),
-- Member functions and procedures
MEMBER FUNCTION toString(SELF IN OUT NOCOPY GenericObject) RETURN VARCHAR2,
FINAL MEMBER FUNCTION toString001(SELF IN OUT NOCOPY GenericObject) RETURN VARCHAR2,
NOT INSTANTIABLE MEMBER PROCEDURE log(pLogger IN OUT MyLogger)
) NOT INSTANTIABLE NOT FINAL
create or replace type body GenericObject is
-- Member procedures and functions
MEMBER FUNCTION toString(SELF IN OUT NOCOPY GenericObject) RETURN VARCHAR2 IS
BEGIN
RETURN SELF.toString001();
END;
FINAL MEMBER FUNCTION toString001(SELF IN OUT NOCOPY GenericObject) RETURN VARCHAR2 IS
BEGIN
RETURN 'GenericObject(' || SELF.iVersion || ')';
END;
end;
create or replace type MyTestA UNDER GenericObject
-- Attributes
iPk VARCHAR2(16),
iName VARCHAR2(100),
iDCN NUMBER,
-- constructor
CONSTRUCTOR FUNCTION MyTestA(pName VARCHAR2, pDummy INTEGER) RETURN SELF AS RESULT,
CONSTRUCTOR FUNCTION MyTestA(pPk VARCHAR2) RETURN SELF AS RESULT,
STATIC FUNCTION mycreate(pName VARCHAR2) RETURN MyTestA,
-- Member functions and procedures
OVERRIDING MEMBER FUNCTION toString(SELF IN OUT NOCOPY MyTestA) RETURN VARCHAR2,
FINAL MEMBER FUNCTION toString002(SELF IN OUT NOCOPY MyTestA) RETURN VARCHAR2,
OVERRIDING MEMBER PROCEDURE log(SELF IN OUT NOCOPY MyTestA, pLogger IN OUT MyLogger)
) NOT FINAL
create or replace type body MyTestA is
-- constructors
CONSTRUCTOR FUNCTION MyTestA(pName VARCHAR2, pDummy INTEGER) RETURN SELF AS RESULT IS
BEGIN
SELF.iVersion := '1.1';
SELF.iPk := 1;
SELF.iName := pName;
SELF.iDCN := 1;
RETURN;
END;
CONSTRUCTOR FUNCTION MyTestA(pPk VARCHAR2) RETURN SELF AS RESULT IS
BEGIN
SELECT VALUE(o) INTO SELF FROM v_testa o WHERE o.ipk = pPk;
RETURN;
END;
STATIC FUNCTION mycreate(pName VARCHAR2) RETURN MyTestA IS
BEGIN
RETURN MyTestA(pName, 1);
END;
-- Member procedures and functions
OVERRIDING MEMBER FUNCTION toString(SELF IN OUT NOCOPY MyTestA) RETURN VARCHAR2 IS
BEGIN
RETURN toString002();
END;
FINAL MEMBER FUNCTION toString002(SELF IN OUT NOCOPY MyTestA) RETURN VARCHAR2 IS
lvText VARCHAR2(1000);
BEGIN
lvText := SELF.toString001();
RETURN 'MyTestA(' || iPk || ', ' || iName || ', ' || 'lvHersteller.toString()' || ', ' || lvText || ')';
END;
OVERRIDING MEMBER PROCEDURE log(SELF IN OUT NOCOPY MyTestA, pLogger IN OUT MyLogger) IS
BEGIN
pLogger.log(toString());
END;
end;
CREATE OR REPLACE VIEW v_testa OF MyTesta
WITH OBJECT IDENTIFIER (iPk) AS
SELECT
'1.0' iVersion
,g.pk iPk, g.NAME iName, g.ora_rowscn iDCN FROM o_geraete g
DROP TABLE o_geraete;
CREATE TABLE
o_geraete
pk VARCHAR2(16)
, name VARCHAR2(100)
, hersteller_FK VARCHAR2(16)
, zaehlernummer VARCHAR2(20)
, dummy VARCHAR2(10)
INSERT INTO o_geraete
VALUES(
'100', 'Stromzähler', '1', 'AB-56', 'dumb'
INSERT INTO o_geraete
VALUES(
'200', 'Wasserzähler', '2', 'WS-09', 'dumb'
In forms I created a form from the view and coded into the on-insert-trigger:
declare
     lvtest mytesta;
begin
     message('1');
     lvtest := new mytesta(:blk_testa.iname, 1);
     message('2');
     message('3' || lvtest.tostring());
exception
     when others then
          message('Exception: ' || sqlerrm);
end;
And in that forms block I got the exception.
Perhaps someone has ANY idea...
Thanx a lot
Matthias
Message was edited by:
user522343
Message was edited by:
user522343