Update questionnaire answers from X++ code

Change \Classes\KMQuestionnaireAnswerControl_Win32\getControlValue methods from private to protected
Create new class which looks like:

class KMQuestionnaireAnswerControl_X extends KMQuestionnaireAnswerControl_Win32
{
    KMVirtualNetworkAnswerAnswer answer[];
}
protected KMVirtualNetworkAnswerAnswer getControlValue(Counter _counter)
{
    return answer[_counter];
}
public void setValue(int _seq, str _value)
{
    answer[_seq] = _value;
}
public static KMQuestionnaireAnswerControl_X construct()
{
    return new KMQuestionnaireAnswerControl_X();
}

How to save questionnaire answers from X++ code

static void testKMQuestionnaireSave(Args _args)
{
    // \Data Dictionary\Tables\KMCollection\Fields\kmCollectionId
    KMCollectionId                      collectionId;   
    // \Data Dictionary\Tables\KMVirtualNetworkAnswerLine\Fields\kmQuestionId
    // \Data Dictionary\Tables\KMCollectionQuestion\Fields\kmQuestionId
    KMQuestionId                        questionId;     
    // \Data Dictionary\Tables\KMVirtualNetworkAnswerTable\Fields\kmVirtualNetworkAnswerTableId
    // Might be empty if it is new answer
    KMVirtualNetworkAnswerTableId       tableAnswerId;
    
    KMVirtualNetworkAnswerLine          kMVirtualNetworkAnswerLine;
    KmQuestionnaireSave                 kmQuestionnaireSave;
    KMQuestionnaireIterator             kmQuestionnaireIterator;
    KMQuestionnaireAnswerControl_X      answerControl;
    KMCollectionQuestion                kMCollectionQuestion;
    HcmPersonRecId                      person;
    str                                 answer;
    int                                 seqCounter;

    person = DirPersonUser::current().PersonParty;
    if (!person)
    {
        throw warning(strfmt("@SYS32944", curuserid()));
    }
    
    // create as much answers as you Questionnaire requires
    answerControl = KMQuestionnaireAnswerControl_X::construct();
    answerControl.setQuestion(questionId);
    answerControl.setValue(seqCounter, answer);
    
    // delete all previous answers if any
    delete_from kMVirtualNetworkAnswerLine
        where kMVirtualNetworkAnswerLine.kmVirtualNetworkAnswerTableId == tableAnswerId;
    
    kmQuestionnaireIterator = new KMQuestionnaireIterator(collectionId);
    kmQuestionnaireIterator.generateArray();
    kmQuestionnaireSave = KmQuestionnaireSave::construct(
            kmQuestionnaireIterator.mandatoryQuestions(),
            tableAnswerId,
            collectionId,
            person);

    kMCollectionQuestion = KMCollectionQuestion::find(collectionId, questionId);
    // Add all your answers. It saves to TMP table
    kmQuestionnaireSave.save(kMCollectionQuestion, answerControl, kMCollectionQuestion.mandatory, false);

    
    // Actual write to DB.
    kmQuestionnaireSave.close();
}

---