Sybase NNTP forums - End Of Life (EOL)

The NNTP forums from Sybase - forums.sybase.com - are now closed.

All new questions should be directed to the appropriate forum at the SAP Community Network (SCN).

Individual products have links to the respective forums on SCN, or you can go to SCN and search for your product in the search box (upper right corner) to find your specific developer center.

ClassDefinition.DataTypeOf: workaround?

4 posts in Appeon (partner product) Last posting was on 2012-05-25 20:43:04.0Z
William Trindade Posted on 2012-05-24 18:58:22.0Z
Sender: 89e.4fbe7e0d.1804289383@sybase.com
From: William Trindade
Newsgroups: sybase.public.appeon
Subject: ClassDefinition.DataTypeOf: workaround?
X-Mailer: WebNews to Mail Gateway v1.1t
Message-ID: <4fbe84ce.9db.1681692777@sybase.com>
NNTP-Posting-Host: 172.20.134.41
X-Original-NNTP-Posting-Host: 172.20.134.41
Date: 24 May 2012 11:58:22 -0700
X-Trace: forums-1-dub 1337885902 172.20.134.41 (24 May 2012 11:58:22 -0700)
X-Original-Trace: 24 May 2012 11:58:22 -0700, 172.20.134.41
Lines: 40
Path: forums-1-dub!not-for-mail
Xref: forums-1-dub sybase.public.appeon:2980
Article PK: 21980

Hi,

We know that classdefinition is not supported by Appeon, but
we need to change this code:

string parameter
choose case TypeOf( lpo_object )
case datawindow!
datawindow l_dw
l_dw = lpo_object
lcd = l_dw.classdefinition
parameter= lcd.DataTypeOf + ' | ' + lcd.name + ' | ' +
lcd.LibraryName
case tab!
tab l_tab
l_tab = lpo_object
lcd = l_tab.classdefinition
parameter = lcd.DataTypeOf + ' | ' + lcd.name + ' | ' +
lcd.LibraryName
case else
userobject l_uo
if lower(left(Classname(lpo_object),7)) = 'tabpage' then
l_uo = lpo_object
lcd = l_uo.classdefinition
parameter = lcd.DataTypeOf + ' | ' + lcd.name + ' | ' +
lcd.LibraryName
else
parameter ="Objet inconnu" +Classname(lpo_object))
end if
end choose



The migration guide dont help in this case.

Any suggestions?

Thanks

William


Chris Pollach Posted on 2012-05-25 11:36:06.0Z
From: Chris Pollach <cpollach@travel-net.com>
User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:12.0) Gecko/20120428 Thunderbird/12.0.1
MIME-Version: 1.0
Newsgroups: sybase.public.appeon
Subject: Re: ClassDefinition.DataTypeOf: workaround?
References: <4fbe84ce.9db.1681692777@sybase.com>
In-Reply-To: <4fbe84ce.9db.1681692777@sybase.com>
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
NNTP-Posting-Host: vip152.sybase.com
X-Original-NNTP-Posting-Host: vip152.sybase.com
Message-ID: <4fbf6ea6$1@forums-1-dub>
Date: 25 May 2012 04:36:06 -0700
X-Trace: forums-1-dub 1337945766 10.22.241.152 (25 May 2012 04:36:06 -0700)
X-Original-Trace: 25 May 2012 04:36:06 -0700, vip152.sybase.com
Lines: 56
Path: forums-1-dub!not-for-mail
Xref: forums-1-dub sybase.public.appeon:2984
Article PK: 13689

Hi William;

Can you tell us what you use the "DataTyoeOf" property for and/or
what information you need from this property to process the DWO?

--
Regards ... Chris
President: OSUG / STD Inc.
Vice President: ISUG
Blog: http://chrispollach.blogspot.com
SourceForge: http://sourceforge.net/projects/stdfndclass
PBDJ: http://chrispollach.sys-con.com

On 5/24/2012 2:58 PM, William Trindade wrote:
> Hi,
>
> We know that classdefinition is not supported by Appeon, but
> we need to change this code:
>
> string parameter
> choose case TypeOf( lpo_object )
> case datawindow!
> datawindow l_dw
> l_dw = lpo_object
> lcd = l_dw.classdefinition
> parameter= lcd.DataTypeOf + ' | ' + lcd.name + ' | ' +
> lcd.LibraryName
> case tab!
> tab l_tab
> l_tab = lpo_object
> lcd = l_tab.classdefinition
> parameter = lcd.DataTypeOf + ' | ' + lcd.name + ' | ' +
> lcd.LibraryName
> case else
> userobject l_uo
> if lower(left(Classname(lpo_object),7)) = 'tabpage' then
> l_uo = lpo_object
> lcd = l_uo.classdefinition
> parameter = lcd.DataTypeOf + ' | ' + lcd.name + ' | ' +
> lcd.LibraryName
> else
> parameter ="Objet inconnu" +Classname(lpo_object))
> end if
> end choose
>
>
>
> The migration guide dont help in this case.
>
> Any suggestions?
>
> Thanks
>
> William


Mike S Posted on 2012-05-25 20:43:04.0Z
From: "Mike S" <M@M.com>
Subject: Re: ClassDefinition.DataTypeOf: workaround?
Newsgroups: sybase.public.appeon
References: <4fbf6ea6$1@forums-1-dub> <4fbf898e.35e6.1681692777@sybase.com>
User-Agent: XanaNews/1.18.1.6
MIME-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
NNTP-Posting-Host: vip152.sybase.com
X-Original-NNTP-Posting-Host: vip152.sybase.com
Message-ID: <4fbfeed8@forums-1-dub>
Date: 25 May 2012 13:43:04 -0700
X-Trace: forums-1-dub 1337978584 10.22.241.152 (25 May 2012 13:43:04 -0700)
X-Original-Trace: 25 May 2012 13:43:04 -0700, vip152.sybase.com
Lines: 115
Path: forums-1-dub!not-for-mail
Xref: forums-1-dub sybase.public.appeon:2987
Article PK: 21983

i think you will have to rewrite.
what i would do is use the control array on the window to process all
of the controls instead.

then use typeof and a case statement to process the change of text on
the controls.

the classname property will give you the actual name of the object

William Trindade wrote:

> Hi Chris,
>
> Thanks for your response.
>
> This routine is part of our routine internationalization.
> With the information obtained from the class we seek
> information on the database and replace the text properties
> (translation into other languages&#8203;&#8203;)
>
> Example. This is an excerpt of the table responsible for
> storing information about the content of object properties:
>
> NOMWINDOW,NOMOBJET,LANGUE,PROPRIETE,VALEUR,TYPEOBJET,VALIDE_O_N
> 'do_w_modifier_auteur','uo_1.cb_ok','FR','text','&Ok',2,'0'
> 'do_w_modifier_auteur','uo_1.cb_annuler','FR','text','&Annuler'
> ,2,'0'
> 'do_w_modifier_auteur','do_w_modifier_auteur','FR','title','Changement
> d''auteur',41,'0'
> 'do_w_modifier_auteur','uo_1.dw_a_trf.cote_t','FR','text','Cote'
> ,40,'0'
> 'do_w_modifier_auteur','uo_1.dw_a_trf.titre_t','FR','text','Titre'
> ,40,'0'
> 'do_w_modifier_auteur','uo_1.dw_dispo.cote_t','FR','text','Cote'
> ,40,'0'
> 'do_w_modifier_auteur','uo_1.dw_dispo.titre_t','FR','text','Titre'
> ,40,'0'
> 'do_w_modifier_auteur','uo_1.st_1','FR','text','Disponible
> ',25,'0'
> 'do_w_modifier_auteur','uo_1.st_2','FR','text','À
> Transférer ',25,'0'
> 'do_w_modifier_auteur','uo_1.dw_select.no_loc_a_t','FR','text'
> ,'À',40,'0'
>
>
> Thanks again.
>
> William
>
> > Hi William;
> >
> > Can you tell us what you use the "DataTyoeOf" property
> > for and/or what information you need from this property
> > to process the DWO?
> >
> > --
> > Regards ... Chris
> > President: OSUG / STD Inc.
> > Vice President: ISUG
> > Blog: http://chrispollach.blogspot.com
> > SourceForge: http://sourceforge.net/projects/stdfndclass
> > PBDJ: http://chrispollach.sys-con.com
> >
> > On 5/24/2012 2:58 PM, William Trindade wrote:
> > > Hi,
> > >
> > > We know that classdefinition is not supported by Appeon,
> > > but we need to change this code:
> > >
> > > string parameter
> > > choose case TypeOf( lpo_object )
> > > case datawindow!
> > > datawindow l_dw
> > > l_dw = lpo_object
> > > lcd = l_dw.classdefinition
> > > parameter= lcd.DataTypeOf + ' | ' + lcd.name +
> '
> > > > ' + lcd.LibraryName
> > > case tab!
> > > tab l_tab
> > > l_tab = lpo_object
> > > lcd = l_tab.classdefinition
> > > parameter = lcd.DataTypeOf + ' | ' + lcd.name
> +
> > > ' | ' + lcd.LibraryName
> > > case else
> > > userobject l_uo
> > > if lower(left(Classname(lpo_object),7)) =
> > > 'tabpage' then l_uo = lpo_object
> > > lcd = l_uo.classdefinition
> > > parameter = lcd.DataTypeOf + ' | ' +
> > > lcd.name + ' | ' + lcd.LibraryName
> > > else
> > > parameter ="Objet inconnu"
> > > +Classname(lpo_object)) end if
> > > end choose
> > >
> > >
> > >
> > > The migration guide dont help in this case.
> > >
> > > Any suggestions?
> > >
> > > Thanks
> > >
> > > William
> >
> >

--