How do I add a UDF in Recurring Postings?

Question

Hi All,
is there a way to add a UDF in Recurring Postings Form?
Thanks,
Vangelis

Answer 1

Hi Vangelis,
you can do it when you add the field via DIAPI.
i post here a simple vb6 sample.
to call the procedure i posted use this
AddUserDefinedFields "ORCR", "TEST", "TEST", SAPbobsCOM.db_Alpha, SAPbobsCOM.st_None, 100, 100
Public Sub AddUserDefinedFields(pTableName As String, pName As String, pDescription As String, pType As String, _
    pSubType As String, pSize As Long, pEditSize As Long)
On Error GoTo Err_Handling
    Dim oUserFieldsMD As SAPbobsCOM.UserFieldsMD
    Dim oValidValuesMD As SAPbobsCOM.ValidValuesMD
    Dim oRecordSet As SAPbobsCOM.Recordset
    Dim lRetCode As Long
    Dim sQuery As String
    Dim sTmpTableName
    Set oRecordSet = oCompany.GetBusinessObject(BoRecordset)
    Set oUserFieldsMD = oCompany.GetBusinessObject(oUserFields)
    sTmpTableName = pTableName
    sQuery = "Select tableid from cufd where aliasid = '" & pName & "' and tableid ='" & pTableName & "'"
    oRecordSet.DoQuery (sQuery)
    If oRecordSet.Fields(0).Value <> pTableName Then
        Set oRecordSet = Nothing
        oUserFieldsMD.TableName = sTmpTableName
        oUserFieldsMD.Name = pName
        oUserFieldsMD.Description = pDescription
        oUserFieldsMD.Type = pType
        oUserFieldsMD.SubType = pSubType
        oUserFieldsMD.Size = pSize
        oUserFieldsMD.EditSize = pEditSize
        lRetCode = oUserFieldsMD.Add
        If lRetCode <> 0 Then
            sNotAddedUDF = sNotAddedUDF & pName & "-" & pTableName & ", "
            'oCompany.GetLastError lErrCode, sErrMsg
            'MsgBox lErrCode & ", " & sErrMsg
        Else
            sAddedUDF = sAddedUDF & pName & ", "
        End If
    Else
        sNotAddedUDF = sNotAddedUDF & pName & "-" & pTableName & ", "
    End If
    Set oUserFieldsMD = Nothing
    Set oRecordSet = Nothing
    Set oValidValuesMD = Nothing
Exit_Sub:
Exit Sub
Err_Handling:
End Sub
use ORCR to add it to the header from Recurring Postings Form
use RCR1 to add a line UDF
i hope it helps - if you're happy reward points
regards
David