I realized it by binding a TempTable via BindingSource to an UltraGrid, but as the code below confirms it's
not related to UI. Codepage used is 1252, tested with oe 11.1 and 11.3.2.
DEF TEMP-TABLE tTest NO-UNDO FIELD fString AS CHAR FIELD fClob AS CLOB. DEFINE VARIABLE v-longchar AS LONGCHAR NO-UNDO. v-longchar = "Über". CREATE tTest. tTest.fString = "Über". COPY-LOB v-longchar TO tTest.fClob. DEFINE VARIABLE v-bindingSource AS Progress.Data.BindingSource NO-UNDO. v-bindingSource = NEW Progress.Data.BindingSource(BUFFER tTest:HANDLE). DEFINE VARIABLE v-descriptorCollection AS System.ComponentModel.PropertyDescriptorCollection NO-UNDO. v-descriptorCollection = v-bindingSource:GetItemProperties(?). DEFINE VARIABLE v-descriptor1 AS System.ComponentModel.PropertyDescriptor NO-UNDO. DEFINE VARIABLE v-descriptor2 AS System.ComponentModel.PropertyDescriptor NO-UNDO. v-descriptor1 = CAST(v-descriptorCollection[0], System.ComponentModel.PropertyDescriptor). v-descriptor2 = CAST(v-descriptorCollection[1], System.ComponentModel.PropertyDescriptor). MESSAGE v-descriptor1:GetValue(v-bindingSource:List[0]) SKIP v-descriptor2:GetValue(v-bindingSource:List[0]) SKIP VIEW-AS ALERT-BOX.
I realized it by binding a TempTable via BindingSource to an UltraGrid, but as the code below confirms it's
not related to UI. Codepage used is 1252, tested with oe 11.1 and 11.3.2.
DEF TEMP-TABLE tTest NO-UNDO
FIELD fString AS CHAR
FIELD fClob AS CLOB.
DEFINE VARIABLE v-longchar AS LONGCHAR NO-UNDO.
v-longchar = "Über".
CREATE tTest.
tTest.fString = "Über".
COPY-LOB v-longchar TO tTest.fClob.
DEFINE VARIABLE v-bindingSource AS Progress.Data.BindingSource NO-UNDO.
v-bindingSource = NEW Progress.Data.BindingSource(BUFFER tTest:HANDLE).
DEFINE VARIABLE v-descriptorCollection AS System.ComponentModel.PropertyDescriptorCollection NO-UNDO.
v-descriptorCollection = v-bindingSource:GetItemProperties(?).
DEFINE VARIABLE v-descriptor1 AS System.ComponentModel.PropertyDescriptor NO-UNDO.
DEFINE VARIABLE v-descriptor2 AS System.ComponentModel.PropertyDescriptor NO-UNDO.
v-descriptor1 = CAST(v-descriptorCollection[0], System.ComponentModel.PropertyDescriptor).
v-descriptor2 = CAST(v-descriptorCollection[1], System.ComponentModel.PropertyDescriptor).
MESSAGE
v-descriptor1:GetValue(v-bindingSource:List[0]) SKIP
v-descriptor2:GetValue(v-bindingSource:List[0]) SKIP
VIEW-AS ALERT-BOX.
Flag this post as spam/abuse.
I realized it by binding a TempTable via BindingSource to an UltraGrid, but as the code below confirms it's
not related to UI. Codepage used is 1252, tested with oe 11.1 and 11.3.2.
DEF TEMP-TABLE tTest NO-UNDO
FIELD fString AS CHAR
FIELD fClob AS CLOB.
DEFINE VARIABLE v-longchar AS LONGCHAR NO-UNDO.
v-longchar = "Über".
CREATE tTest.
tTest.fString = "Über".
COPY-LOB v-longchar TO tTest.fClob.
DEFINE VARIABLE v-bindingSource AS Progress.Data.BindingSource NO-UNDO.
v-bindingSource = NEW Progress.Data.BindingSource(BUFFER tTest:HANDLE).
DEFINE VARIABLE v-descriptorCollection AS System.ComponentModel.PropertyDescriptorCollection NO-UNDO.
v-descriptorCollection = v-bindingSource:GetItemProperties(?).
DEFINE VARIABLE v-descriptor1 AS System.ComponentModel.PropertyDescriptor NO-UNDO.
DEFINE VARIABLE v-descriptor2 AS System.ComponentModel.PropertyDescriptor NO-UNDO.
v-descriptor1 = CAST(v-descriptorCollection[0], System.ComponentModel.PropertyDescriptor).
v-descriptor2 = CAST(v-descriptorCollection[1], System.ComponentModel.PropertyDescriptor).
MESSAGE
v-descriptor1:GetValue(v-bindingSource:List[0]) SKIP
v-descriptor2:GetValue(v-bindingSource:List[0]) SKIP
VIEW-AS ALERT-BOX.
Flag this post as spam/abuse.
Flag this post as spam/abuse.
To open a case from a thread, have a look at
[mention:f822c6bf04534292b3fe04704ddd8dd6:e9ed411860ed4f2ba0265705b8793d05]: Unfortunately I dont have the SupportLink option because this is my personal account, not the esd account from my employer. To which email address should I send it?