CopyTo: Copy SalesOrder to UDO Form

Question

Hi All,
In my scenario, I have a button in the Sales Order form, and I want to copy some Sales Order's values to my User Defined Form.
So, BaseForm = SalesOrder and TargetForm = MyUDOForm
The problem I'm faced with, is that when I copy a value from the BaseForm to it's equivalent field in the TargetForm (Field which has a CFL associated), the ChooseFromList event of the TargetForm is being fired if I set the value directly in the form and throws an exception... If I set the values in the DBDataSource, a HRESULT exception is thrown...
Public Function GenerateNP(ByRef oCompany As SAPbobsCOM.Company, ByRef oApplication As SAPbouiCOM.Application, _
        ByRef oFormOV As SAPbouiCOM.Form) As Boolean
        GenerateNP = False
        Dim oFormNP As SAPbouiCOM.Form = LoadForm(oCompany, oApplication, "frmNP_" & GetLanguageCode(oApplication) & ".srf")
        oFormNP.Freeze(True)
        Try
            If FormNPLoadDefaultValues(oCompany, oApplication, oFormNP) = False Then
                oApplication.StatusBar.SetText(TranslateStr(oApplication, GenNPFailed), BoMessageTime.bmt_Short)
            End If
            With oFormNP.DataSources.DBDataSources.Item("@ADAT_ONP")
                .SetValue("U_CardCode", .Offset, oFormOV.Items.Item("4").Specific.Value)
                .SetValue("CardName", .Offset, oFormOV.Items.Item("54").Specific.Value)
                .SetValue("ContPrsn", .Offset, oFormOV.Items.Item("85").Specific.Selected.Description)
                .SetValue("RefNum", .Offset, oFormOV.Items.Item("14").Specific.Value)
            End With
            oFormNP.Visible = True
            Return True
            'oFormNP.Items.Item("CardCode").Specific.String = oFormOV.Items.Item("4").Specific.Value
            'oFormNP.Items.Item("CardName").Specific.String = oFormOV.Items.Item("54").Specific.Value
            'oFormNP.Items.Item("ContPrsn").Specific.String = oFormOV.Items.Item("85").Specific.Selected.Description
            'oFormNP.Items.Item("RefNum").Specific.String = oFormOV.Items.Item("14").Specific.Value
            Dim oMatrixOV As SAPbouiCOM.Matrix = oFormOV.Items.Item("38").Specific
            Dim oMatrixNP As SAPbouiCOM.Matrix = oFormNP.Items.Item("mtx_NP").Specific
            Dim MatrixNPRowCount As Integer = 0
            For i As Integer = 1 To oMatrixOV.RowCount - 1
                For j As Integer = 1 To oMatrixOV.Columns.Item("QtdPlt").Cells.Item(i).Specific.Value
                    oMatrixNP.AddRow()
                    MatrixNPRowCount += 1
                    oMatrixNP.Columns.Item("LineId").Cells.Item(MatrixNPRowCount).Specific.Value = MatrixNPRowCount
                    oMatrixNP.Columns.Item("BaseDoc").Cells.Item(MatrixNPRowCount).Specific.Value = oFormOV.Items.Item("8").Specific.Value
                    oMatrixNP.Columns.Item("PltCode").Cells.Item(MatrixNPRowCount).Specific.Value = oMatrixOV.Columns.Item("PltCode").Cells.Item(i).Specific.Value
                    oMatrixNP.Columns.Item("PltName").Cells.Item(MatrixNPRowCount).Specific.Value = oMatrixOV.Columns.Item("PltName").Cells.Item(i).Specific.Value
                    oMatrixNP.Columns.Item("QtdCaixa").Cells.Item(MatrixNPRowCount).Specific.Value = oMatrixOV.Columns.Item("QtdCaixa").Cells.Item(i).Specific.Value
                    oMatrixNP.Columns.Item("CaixaCod").Cells.Item(MatrixNPRowCount).Specific.Value = oMatrixOV.Columns.Item("CaixaCod").Cells.Item(i).Specific.Value
                    oMatrixNP.Columns.Item("CaixaNam").Cells.Item(MatrixNPRowCount).Specific.Value = oMatrixOV.Columns.Item("CaixaNam").Cells.Item(i).Specific.Value
                    oMatrixNP.Columns.Item("QtdEmbal").Cells.Item(MatrixNPRowCount).Specific.Value = oMatrixOV.Columns.Item("EmbalCod").Cells.Item(i).Specific.Value
                    oMatrixNP.Columns.Item("EmbalCod").Cells.Item(MatrixNPRowCount).Specific.Value = oMatrixOV.Columns.Item("EmbalCod").Cells.Item(i).Specific.Value
                    oMatrixNP.Columns.Item("EmbalNam").Cells.Item(MatrixNPRowCount).Specific.Value = oMatrixOV.Columns.Item("EmbalNam").Cells.Item(i).Specific.Value
                    'oMatrixNP.Columns.Item("QtdEmbal").Cells.Item(MatrixNPRowCount).Specific.Value = oMatrixOV.Columns.Item("QtdEmbal").Cells.Item(i).Specific.Value
                    'oMatrixNP.Columns.Item("QtdEmbal").Cells.Item(MatrixNPRowCount).Specific.Value = oMatrixOV.Columns.Item("QtdEmbal").Cells.Item(i).Specific.Value
                    'oMatrixNP.Columns.Item("QtdEmbal").Cells.Item(MatrixNPRowCount).Specific.Value = oMatrixOV.Columns.Item("QtdEmbal").Cells.Item(i).Specific.Value
                    'oMatrixNP.Columns.Item("QtdEmbal").Cells.Item(MatrixNPRowCount).Specific.Value = oMatrixOV.Columns.Item("QtdEmbal").Cells.Item(i).Specific.Value
                Next
            Next
            oFormNP.Visible = True
        Catch ex As Exception
            oApplication.MessageBox("GenerateNP(): " & oCompany.GetLastErrorCode.ToString & ", " & ex.Message)
        Finally
            oFormNP.Freeze(False)
        End Try
    End Function
Can someone tell me what I'm doing wrong (or not taking into account)?
Or can someone provide me with some code that can help?
Thanks in advanced,
Vítor Vieira

Answer 1

Janos,
I get the error
-2028, Excepção de HRESULT: 0xFFFFE4A8
in the following code line
            With oFormNP.DataSources.DBDataSources.Item("@ADAT_ONP")
                .SetValue("U_CardCode", .Offset, oFormOV.Items.Item("4").Specific.Value)
                .SetValue("CardName", .Offset, oFormOV.Items.Item("54").Specific.Value)   '// <---- THIS LINE THROWS THE EXCEPTION
                .SetValue("ContPrsn", .Offset, oFormOV.Items.Item("85").Specific.Selected.Description)
                .SetValue("RefNum", .Offset, oFormOV.Items.Item("14").Specific.Value)
            End With
Regards,
Vítor Vieira