Code

var vString1 as String
var vString2 as String
var vAllGroups as String
var vStr as String
var vGroup as String




Subroutine DisplayGroupList ( )

var vLoop as Int
var vRSHandle as int
var vNoOfRecords as int


vRSHandle = @XResultSetSearch(@FN, "Fon", SEARCH_MODE_AND, SEARCH_SYNTAX_QA, "!Groups=" + "/=") //This will get the all records with value in Groups element
		if(vRSHandle > -1)
		{
			vNoOfRecords = @XResultSetTotal(vRSHandle)
			WriteLn ("No of Records = " + @str (vNoOfRecords) )
			for vLoop = 1 to vNoOfRecords
				WriteLN ("Processing Record " + @Str (vLoop) + " of " + @Str (vNoOfRecords)  )
				XResultSetCurrentPosition(vRSHandle, vLoop)
				vGroup = @FormFieldValue ("Fon", "Groups", vLoop)   //This part is not working in Retrieve Mode
				WriteLn ("Value of vGroup = " + vGroup )

						If vAllGroups = "" then
							{
								vAllGroups = vGroup

							}
							Else
							{
								VAllGroups = vAllGroups + ";" + vGroup
							}




			next

			vAllGroups = @Replace (vAllGroups, ", ", ";")
			vAllGroups = @UniqueStringArray (vAllGroups)
			WriteLn ("All Unique Groups = " + vAllGroups )
			XResultSetClose(vRSHandle)
		}

		PopupSelectPosition(4, @Xpos(ThisElement), @Ypos(ThisElement))
		vStr = @PopUpMenu (vAllGroups, "Choose One")
			If Groups = "" then
				{
					Groups = vStr
				}
				Else
				{
					Groups = Groups + ", " + vStr
				}






End SubRoutine





If @Mode ( ) < 2 then
	{
		vString1 = "Add;Add New;Remove"
		PopupSelectPosition(4, @Xpos(ThisElement), @Ypos(ThisElement))
		vString2 = @PopUpMenu (vString1, "Choose One")
	}

If vString2 = "Add" then
	{
		DisplayGroupList ( )


	}


If vString2 = "Remove" then
	{
		vAllGroups = @Replace (Groups, ", ",  ";" )

		PopupSelectPosition(4, @Xpos(ThisElement), @Ypos(ThisElement))
		vStr = @PopUpMenu (vAllGroups, "Choose One")

		n = @FindStringArray (vAllGroups, vStr)
		vGroup = @DeleteStringArray (vAllGroups, n)
		Groups = vGroup
	}

If vString2 = "Add New" then
	{
		vGroup = @PromptForUserInput ("Name of New Group?", "")
		If vGroup <> "" then
			{
				If Groups = "" then
					{
						Groups = vGroup

					}
					Else
					{

						Groups = Groups + ", " + vGroup

					}


			}

	}

If @Mode ( ) = 2 then
	{
		DisplayGroupList ( )

	}