VFD16.1
I have 2 objects cDbCJGridColumn and I want to put the value of the second column depending of the value of the first column.
I wanted to do it with the prompt procedure or the onexiting procedure. (see below)
The result of those procedures are that the value of the first column (oFonction_code1) is changed and not this from the second one (oFonction_valeur1)
The second one has no command "Entry_Item". I don't know if it is the reason

Jacques

Code:
        Object oFonction_code1 is a cDbCJGridColumn
            Entry_Item FONCTION.VALEUR1
            Set piWidth to 54
            Set psCaption to "Code"
            Set Prompt_Button_Mode to PB_PromptOn
            
            Procedure prompt
                String s_value s_type
                Forward Send Prompt
                Get field_current_value of oFonction_DD Field FONCTION.TYPE1 to s_type
                Get Value to s_value
                Set Value of oFonction_valeur1 to (F_description(Self,s_type,s_value))
            End_Procedure
            
            Function OnExiting Returns Boolean
                Boolean b_OK
                String s_value s_type
                Forward Get onExiting to b_OK
                Get field_current_value of oFonction_DD Field FONCTION.TYPE1 to s_type
                Get Value to s_value
                Set Value of oFonction_valeur1 to (F_description(Self,s_type,s_value))
                Function_Return b_OK
            End_Function
         End_Object // oFonction_code1

        Object oFonction_valeur1 is a cDbCJGridColumn
             Set piWidth to 100
             Set psCaption to "Valeur"
             Set pbFocusable to False
        
             Procedure OnSetCalculatedValue String ByRef sValue
                 Number nTaxRate
                 Move (F_description(Self,fonction.Type1,fonction.Valeur1)) to sValue
             End_Procedure
        End_Object