Private Sub AdjGiftFind()

    Dim oAdj As IBBAdjustment
    Dim oAds As CGiftAdjustments
   
    Dim oGift As CGift
    Set oGift = New CGift
    oGift.Init REApplication.SessionContext
    oGift.Load 778
   
    Set oAds = oGift.Adjustments
   
    Dim oHelp As IBBGiftDataHelper
    Dim oAHelp As CGiftDataHelper
    Set oAHelp = New CGiftDataHelper
    oAHelp.Init REApplication.SessionContext
    Set oHelp = oAHelp
   
    For Each oAdj In oAds
        Debug.Print oAdj.Fields(ADJUSTMENT_fld_Constit_ID)
        Debug.Print oAdj.Fields(ADJUSTMENT_fld_ID)
        Debug.Print oHelp.GetGiftIDFromAdjustment(oAdj.Fields(ADJUSTMENT_fld_ID))
        Debug.Print ""
    Next oAdj
   
    Set oAdj = Nothing
    Set oAds = Nothing
   
    oAHelp.Closedown
    Set oAHelp = Nothing
   
    oGift.Closedown
    Set oGift = Nothing
   
End Sub