Code

var vRSHandle as int
var vTotalRecords as int
var vLoop as int
var vVisitDate as String
var vStringDate as String
var vVisitString as String
var vRecordNumber as String


var vDate as String
var vDateString as String



var vSelectedDate as Date





	vRSHandle = @XResultSetSearch(@FN, "Physical", SEARCH_MODE_AND, SEARCH_SYNTAX_QA, "!RecNumber=" + RecNumber)
	if(vRSHandle > -1)
	{
		vTotalRecords = @XResultSetTotal(vRSHandle)
		for vLoop = 1 to vTotalRecords
			XResultSetCurrentPosition(vRSHandle, vLoop)
			vVisitDate = @XResultSetValue(vRSHandle, "Date1")
			If vVisitString = "" then
				{
					vVisitString = vVisitDate
				}
				 Else
				{

					vVisitString = vVisitString + ";" + vVisitDate
				}
		next
			vVisitString = @SortStringArray (VVisitString, 0)
			vVisitString = @ReverseStringArray (vVisitString)
		XResultSetClose(vRSHandle)
	}


For vLoop = 1 to @CountStringArray(vVisitString)
	vDate = FormatDate (@AccessStringArray (vVisitString, vLoop))
	If vDateString = "" then
				{
					vDateString = vDate
				}
				 Else
				{

					vDateString = vDateString + ";" + vDate
				}
		next


//Writeln (vDateString)

PopupSelectPosition(4, @Xpos(ThisElement), @Ypos(ThisElement))
vSelectedDate = @PopupChoiceList(vDateString, "Select DATE")

If vSelectedDate <> "" Then
	{


		vRSHandle = @XResultSetSearch(@FN, "Physical", SEARCH_MODE_AND, SEARCH_SYNTAX_QA, "!RecNumber="+ RecNumber, "!Date1="+ vSelectedDate)
			if(vRSHandle > -1)
				{
					WarningLevel(0)
					XResultSetOpenForm(vRSHandle, "Physical")
					WarningLevel(1)

					XResultSetClose(vRSHandle)
				}
	}