In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Write method - error

Xailer professional forum in English
Responder
Gejza Horvath
Mensajes: 281
Registrado: Mar Ago 15, 2006 1:50 pm

Write method - error

Mensaje 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
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9469
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

Write method - error

Mensaje 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
>
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
NoName
Mensajes: 531
Registrado: Vie Feb 03, 2006 7:27 pm

Write method - error

Mensaje 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
>
>
Arriba
Gejza Horvath
Mensajes: 281
Registrado: Mar Ago 15, 2006 1:50 pm

Write method - error

Mensaje 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
>>
>>
>
>
>
Arriba
Gejza Horvath
Mensajes: 281
Registrado: Mar Ago 15, 2006 1:50 pm

Write method - error

Mensaje 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
>>
>>
>
>
>
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9469
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

Write method - error

Mensaje 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
>>>
>>>
>>
>>
>>
>
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
NoName
Mensajes: 531
Registrado: Vie Feb 03, 2006 7:27 pm

Write method - error

Mensaje 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
>>>
>>>
>>
>>
>>
>
>
Arriba
Responder

Volver a “Xailer Pro English”