by ricardog » Wed Aug 23, 2017 3:38 am
karinha, Gracias por la ayuda.
Pero lo que necesito es:
function main()
oObjeto := MainGdo(a,b,c,d,e) //
Msginfo( oObjeto:a )
Msginfo( oObjeto:b )
Msginfo( oObjeto:c )
Msginfo( oObjeto:d )
Msginfo( oObjeto:e )
return Nil
***********************************************************************
//Esto esta en la DLL
function MainGdo(a,b,c,d,e)
local oRegreso := TSeguro():New(a,b,c,d,e)
return oRegreso
CLASS TSeguro
DATA a,b,c,d
METHOD New( a,b,c,d,e)
ENDCLASS
METHOD New( a,b,c,d,e) CONSTRUCTOR
::a := a + 25
::b := b += "un texto x"
::c := c
::d := d
::e := e
RETURN self
Gracias