Xailer & OZ Software

El entorno de desarrollo definitivo en Xbase
https://forum.xailer.com/

Write method - error

https://forum.xailer.com/viewtopic.php?t=933

Página 1 de 1

Write method - error

Publicado: Mar Jul 03, 2007 4:51 pm
por 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

Write method - error

Publicado: Mar Jul 03, 2007 5:10 pm
por ignacio
Gejza,
PROPERTY CisloUctu INIT SPACE(16) READ GetUcet WRITE SetUcet
Regards,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Gejza Horvath" <_hsoftkn@nextra.sk> escribió en el mensaje
news:468a62bc$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>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
>
>

Write method - error

Publicado: Mar Jul 03, 2007 5:10 pm
por NoName
Gejza,
PROPERTY CisloUctu INIT SPACE(16) READ GetUcet WRITE SetUcet
Regards,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Gejza Horvath" <_hsoftkn@nextra.sk> escribió en el mensaje
news:468a62bc$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>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
>
>

Write method - error

Publicado: Mar Jul 03, 2007 5:37 pm
por Gejza Horvath
Ignacio,
doesn't help, I get the same error.
Gejza
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> pí¹e v diskusním pøíspìvku
news:468a66df$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Gejza,
>
> PROPERTY CisloUctu INIT SPACE(16) READ GetUcet WRITE SetUcet
>
> Regards,
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
>
>
> "Gejza Horvath" <_hsoftkn@nextra.sk> escribió en el mensaje
> news:468a62bc$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>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
>>
>>
>
>
>

Write method - error

Publicado: Mar Jul 03, 2007 5:37 pm
por Gejza Horvath
Ignacio,
doesn't help, I get the same error.
Gejza
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> pí¹e v diskusním pøíspìvku
news:468a66df$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Gejza,
>
> PROPERTY CisloUctu INIT SPACE(16) READ GetUcet WRITE SetUcet
>
> Regards,
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
>
>
> "Gejza Horvath" <_hsoftkn@nextra.sk> escribió en el mensaje
> news:468a62bc$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>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
>>
>>
>
>
>

Write method - error

Publicado: Mar Jul 03, 2007 6:12 pm
por ignacio
Sorry,
PROPERTY CisloUctu INIT SPACE(16) READ METHOD GetUcet WRITE METHOD
SetUcet
Take a look at OOP programming in the docs.
Regards,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Gejza Horvath" <_hsoftkn@nextra.sk> escribió en el mensaje
news:[email=468a6d5c@ozsrv2.ozlan.local...]468a6d5c@ozsrv2.ozlan.local...[/email]
> Ignacio,
> doesn't help, I get the same error.
>
> Gejza
>
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> pí¹e v diskusním pøíspìvku
> news:468a66df$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Gejza,
>>
>> PROPERTY CisloUctu INIT SPACE(16) READ GetUcet WRITE SetUcet
>>
>> Regards,
>>
>> --
>> Ignacio Ortiz de Zúñiga
>> http://www.xailer.com
>>
>>
>> "Gejza Horvath" <_hsoftkn@nextra.sk> escribió en el mensaje
>> news:468a62bc$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>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
>>>
>>>
>>
>>
>>
>
>

Write method - error

Publicado: Mar Jul 03, 2007 6:12 pm
por NoName
Sorry,
PROPERTY CisloUctu INIT SPACE(16) READ METHOD GetUcet WRITE METHOD
SetUcet
Take a look at OOP programming in the docs.
Regards,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Gejza Horvath" <_hsoftkn@nextra.sk> escribió en el mensaje
news:[email=468a6d5c@ozsrv2.ozlan.local...]468a6d5c@ozsrv2.ozlan.local...[/email]
> Ignacio,
> doesn't help, I get the same error.
>
> Gejza
>
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> pí¹e v diskusním pøíspìvku
> news:468a66df$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Gejza,
>>
>> PROPERTY CisloUctu INIT SPACE(16) READ GetUcet WRITE SetUcet
>>
>> Regards,
>>
>> --
>> Ignacio Ortiz de Zúñiga
>> http://www.xailer.com
>>
>>
>> "Gejza Horvath" <_hsoftkn@nextra.sk> escribió en el mensaje
>> news:468a62bc$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>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
>>>
>>>
>>
>>
>>
>
>
Todos los horarios son UTC+02:00
Página 1 de 1

Desarrollado por phpBB® Forum Software © phpBB Limited

Traducción al español por phpBB España