'***************************************************
' Name:     OnPortalLoaded
' -> Default the Global Search to "Companies" BO
'***************************************************
Sub OnPortalLoaded(ParameterList)
    Dim objInput
    Set objInput = UIMaster.documentMenu. _
        body.getElementsByTagName("INPUT")
    objInput(0).Value = "Companies" 

    ....
    ....
    ....
End Sub

'***************************************************
' Name:     OnGlobalQuickSearchLoaded
' -> Handle the Companies Global Search to run
' Company Quick Search
'***************************************************
Function OnGlobalQuickSearchLoaded(vntParameters)
    Dim objInput
    Dim strSearchText
    Dim objSearchFactory

    On Error Resume Next

    Set objInput = UIMaster.documentMenu._
        body.getElementsByTagName("INPUT")

    If objInput(0).Value = "Companies" Then
        strSearchText = objInput(1).Value
        Set objSearchFactory = _
      UIMaster.CreateCenterReference("quicksearch")
        With objSearchFactory
            .SearchType = 1 'A non-global quick search.
            Set .Table = _
        UIMaster.RSysClient.GetTable("Company")
            .SearchText = strSearchText
        End With
        UIMaster.ShowCenterReference _
    actionAskUser, objSearchFactory, Null
    End If

    OnGlobalQuickSearchLoaded = True
End Function

'**********************************************
' Name    : ChangeTabTitle
' Purpose : Use DHTML to Change the Tab Title
'**********************************************
Sub ChangeTabTitle(sTabName, sNewTabTitle)
    Dim sTabId
    sTabId = "Tab_" + _
    CStr((UIMaster.RUICenter.Form.Tabs(sTabName). _
    Ordinal - 2))

    UIMaster.documentCenter. _
    GetElementById(sTabId).innerText = sNewTabTitle 

End Sub

IRRecordset2 rstDeleted;
rstDeleted = (IRRecordset2) pForm.SecondaryFromVariantArray(
                                    Recordsets, “Assistants”);

foreach (object deletedId in rstDeleted.DeletedRecordIds)
{
    //Do Something with your id here
}

'**********************************************************************
' Name    : HideForeignFieldEx
' Purpose : To Hide FK Field using DHTML
'**********************************************************************
' Inputs:
'   sTabName : tab name   
'   sSegmentName : segment name       
'   sFieldName : field name
' Returns:
'   N/A
'**********************************************************************
Sub HideForeignFieldEx(sTabName, sSegmentName, sFieldName) 

    Dim oField
    Set oField = UIMaster.RUICenter.GetForeignFieldEx(sTabName, _
                                    sSegmentName, sFieldName)
    Dim oTDs
    Dim oTD

    'Hide the label
    UIMaster.RUICenter.GetFieldLabelEx(sTabName, _
                       sSegmentName, sFieldName).style.display = "none"
    'Hide the Input
    oField.InputElement.style.display = "none"
    Set oTDs = oField.ParentElement.GetElementsByTagName("TD")
    For Each oTD In oTDs
        oTD.style.display = "none"
    Next
End Sub

'**********************************************
' Name:    HideBusinessObject
' Purpose: To Hide Business Object 
'        from Left Hand Navigation
' Info:    To be called from OnMainWindowOpen 
'**********************************************
' 1.0            8/20/2007     JM        
'**********************************************
Sub HideBusinessObject(strBusinessObjectName)
    Dim objHTMLDoc
    For Each objHTMLDoc in _
        UIMaster.documentMenu.all
        If objHTMLDoc.tagName = "DIV" _
            and UCase(objHTMLDoc.title) = _
        UCase(strBusinessObjectName) Then
            objHTMLDoc.parentElement.parentElement. _
                parentElement.parentElement. _
        parentElement.parentElement. _
        style.display="none"
        End If
    Next
End Sub

<?xml version="1.0" encoding="utf-8"?>

<config>

  <logging logFile = "D:\PivotalLog.txt" logLevel = "2">

  </logging>

</config>

string ClientScriptMapping = "CMS_Config";

string mapping = 

    m_pivotalSystem.ClientScripts[ClientScriptMapping].Text;

string logSettingString = 

    string.Empty;

try

{

    XmlDocument xd = new XmlDocument();

    xd.LoadXml(mapping);

    string xPathString = "/config/logging";

    XmlNode xNode = xd.SelectSingleNode(xPathString);

    logFile = xNode.Attributes["logFile"].Value;

    logSettingString = xNode.Attributes["logLevel"].Value;

    logSetting = (LogLevel)Convert.ToUInt16(logSettingString);

}

@recordId binary (8)
@CurrentUserId binary(8)
@CurrentUserName varchar(255) 

USE AdventureWorksLT
GO
DECLARE @Last_Id AS BINARY(8)

SELECT
    @Last_Id = Last_Id_Value
FROM CMS59_ED.dbo.RSys_Last_Id
WHERE Table_Name = 'Contact'

SELECT
    CAST(
    CONVERT(bigint, @Last_Id) + ROW_NUMBER()
    OVER(ORDER BY CustomerID)
    AS Binary(8)) AS Contact_Id,
    *
FROM SalesLT.Customer