SAP Business One Object Type

 

Matrix CFL SAP B1

Dear All,
   Today ,we will see to set CFL in Matrix through SAP B1 SDK.

''' <summary>
    ''' Get CFL Data and Display Matrix  [Change Name MatrixDisplayCFL  To DisplayCFLToMatrix] On 06.01.2017

    ''' </summary>

    ''' <param name="oForm">Pass Form Name</param>

    ''' <param name="oMatrix">Pass Matrix</param>

    ''' <param name="itemUID">Pass Matrix Unique ID</param>

    ''' <param name="colName">Pass Column Name</param>

    ''' <param name="pVal">Refer Item Event</param>

    ''' <returns></returns>

    ''' <remarks></remarks>

    Friend Function DisplayCFLToMatrix(ByVal oForm As SAPbouiCOM.Form, ByVal oMatrix As SAPbouiCOM.Matrix, ByVal itemUID As String, ByVal colName As String, ByRef pVal As SAPbouiCOM.ItemEvent) As String

        Dim oCFLEvento As SAPbouiCOM.IChooseFromListEvent = Nothing

        Dim oCFL As SAPbouiCOM.ChooseFromList = Nothing

        Dim sCHFL_ID As String = String.Empty

        Dim val As String = String.Empty

        Dim oDataTable As SAPbouiCOM.DataTable = Nothing

        Try

            oCFLEvento = pVal

            sCHFL_ID = oCFLEvento.ChooseFromListUID

            oCFL = oForm.ChooseFromLists.Item(sCHFL_ID)

            If (oCFLEvento.BeforeAction = False) Then

                oDataTable = oCFLEvento.SelectedObjects

                Select Case pVal.ItemUID

                    Case itemUID

                        oMatrix = oForm.Items.Item(itemUID).Specific

                        val = oDataTable.GetValue(colName, 0)

                End Select

            End If

        Catch ex As Exception

        Finally

            oDataTable = Nothing

            oCFLEvento = Nothing

            oCFL = Nothing

        End Try

        Return val

    End Function

Display Project Details in CFL

Dear All,
   Today, we will discuss about below points
1) Display Active Project
2) Display Project based on Posting Date.

Code Here,

  '*************************************************************************************************************

    'Type               : Friend  Sub

    'Name               : CardDetailsCondition

    'Parameter          :

    'Return Value       :

    'Author             : Lakshmi Narayanan

    'Created Dt         : 26-11-2016

    'Last Modified By   :                       

    'Modified Dt        :

    'Purpose            : This Method is used for Project Details CFL Condition

    '*************************************************************************************************************

    Friend Sub ProjectDetailsCondition(ByVal SBO_Application As SAPbouiCOM.Application, ByVal oForm As SAPbouiCOM.Form, ByVal cflIndex As Object, ByVal strPostingDate As Object)

        Dim ocfl As SAPbouiCOM.ChooseFromList = Nothing

        'Dim oCFLcollection As SAPbouiCOM.ChooseFromListCollection

        Dim ocondition As SAPbouiCOM.Condition = Nothing

        Dim oconditions As SAPbouiCOM.Conditions = Nothing

        'oCFLcollection = oForm.ChooseFromLists

        ocfl = SBO_Application.Forms.ActiveForm.ChooseFromLists.Item(cflIndex)

        Try

            oconditions = ocfl.GetConditions

            If 0 = oconditions.Count Then

                ocondition = oconditions.Add

                ocondition.Alias = "Active"

                ocondition.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL

                ocondition.CondVal = "Y"

                ocondition.Alias = "ValidTo"

                ocondition.Operation = SAPbouiCOM.BoConditionOperation.co_GRATER_THAN

                ocondition.CondVal = strPostingDate



                ocfl.SetConditions(oconditions)

            End If

        Catch ex As Exception



        Finally

            ocfl = Nothing

            ocondition = Nothing

            oconditions = Nothing



        End Try

       

    End Sub