Please run following simple test

Set PROCEDURE to fakturadata ADDITIVE 
_screen.AddProperty('data','')
_screen.data=CreateObject('parameterX')
_screen.data.aa='asda'
_screen.data.bb='asda'
?_screen.data		&& (Object)
CLEAR ALL
?_screen.data		&& Null

>No, it wont!
>
>>But CLEAR ALL will kill the object.