Write method - error

[Gejza Horvath]

I have problem using WRITE method:
CLASS VemaVypHlava FROM VypisRiad
PROPERTY CisloUctu INIT SPACE(16) READ ::GetUcet() WRITE ::SetUcet(cValue)
METHOD New()
METHOD SetUcet()
METHOD GetUcet()
ENDCLASS
//---------------------------------------------------------- ------------------
METHOD SetUcet(cUcet) CLASS VemaVypHlava
* Prisposobi cislo uctu predpisanemu tvaru
cUcet := PADL(ALLTRIM(STR(VAL(cUcet))),16,"0")
::FCisloUctu := cUcet
RETURN ::FCisloUctu
//---------------------------------------------------------- ------------------
METHOD GetUcet() CLASS VemaVypHlava
RETURN ::FCisloUctu
//---------------------------------------------------------- ------------------
The usage :
oVemaHlavicka := VemaVypHlava():New()
oVemaHlavicka:CisloUctu := oVypis:CisloUctu
I get this error:
TFORM1:CREATEVEMAFROMOTP(187)
Error BASE/1005 Message not found: VEMAVYPHLAVA:_CISLOUCTU
Arguments: ()
Any idea, where is the bug?
Gejza Horvath