Highlighted
Absent Member.
Absent Member.
190 views

[archive] Help with Active-x Syntax

[Migrated content. Thread originally posted on 15 June 2007]

Can anyone help me translate this Visual Basic code snippet into AcuCobol:

With .FieldDefinitions
.Item(.KeyByDisplayText("INVOICE#)).FieldValue = txtInvNum.Text
.Item(.KeyByDisplayText("VENDOR#)).FieldValue = txtVenNum.Text
End With

The copy book for the active-x control definition has this entry
Property-Get, 1745027075,@FieldDefinitions
Returning "_clsFielddefinitions*", type 9
0 Likes
3 Replies
Highlighted
Absent Member.
Absent Member.

RE: [archive] Help with Active-x Syntax

Can you post the entire "def" file created by AXDEFGEN?
0 Likes
Highlighted
Absent Member.
Absent Member.

RE: [archive] Help with Active-x Syntax

def file is attached, thanks for your help,
0 Likes
Highlighted
Absent Member.
Absent Member.

RE: [archive] Help with Active-x Syntax

The "def" file seems to have a problem. You would want to get the handle for _clsFielddefinitions doing something like this:

INQUIRE APPLICATION-HANDLE @FieldDefinitions IN FIELD-DEF-HANDLE.

However, I don't see "clsFielddefinitions" as a CLASS in the "def" file. It should be there. Unless someone else knows of a way to do this without it?
0 Likes
The opinions expressed above are the personal opinions of the authors, not of Micro Focus. By using this site, you accept the Terms of Use and Rules of Participation. Certain versions of content ("Material") accessible here may contain branding from Hewlett-Packard Company (now HP Inc.) and Hewlett Packard Enterprise Company. As of September 1, 2017, the Material is now offered by Micro Focus, a separately owned and operated company. Any reference to the HP and Hewlett Packard Enterprise/HPE marks is historical in nature, and the HP and Hewlett Packard Enterprise/HPE marks are the property of their respective owners.