Skip to main content

[archive] Help with Active-x Syntax

  • June 20, 2007
  • 3 replies
  • 0 views
D

[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

    3 replies

    D

    [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
    Can you post the entire "def" file created by AXDEFGEN?
    D

    [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
    def file is attached, thanks for your help,
    D

    [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
    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?

    Recent badge winners

    Explore all badges
    Terms & ConditionsAccessibility statement