if the number of chars in getAt(CDTypeList, g) > maxnum then
set display to display & char 1 to maxnum of getAt(CDTypeList, g) & RETURN
next repeat
end if
set display to display & getAt(CDTypeList, g) & RETURN
end repeat
put display into field "RVXRESType"
set the textSize of member "RVXRESType" to 9
set the boxType of member "RVXRESType" to #adjust
if the machineType > 200 then
set the textFont of member "RVXRESType" to "arial"
else
set the textFont of member "RVXRESType" to "geneva"
end if
set display to EMPTY
put EMPTY into field "RVXRESProd"
set maxnum to getAt(RVXNumCharList, 2)
repeat with g = 1 to count(CDProdList)
if the number of chars in getAt(CDProdList, g) > maxnum then
set display to display & char 1 to maxnum of getAt(CDProdList, g) & RETURN
next repeat
end if
set display to display & getAt(CDProdList, g) & RETURN
end repeat
put display into field "RVXRESProd"
set the textSize of member "RVXRESProd" to 9
set the boxType of member "RVXRESProd" to #adjust
if the machineType > 200 then
set the textFont of member "RVXRESProd" to "arial"
else
set the textFont of member "RVXRESProd" to "geneva"
end if
set display to EMPTY
put EMPTY into field "RVXRESSupp"
set maxnum to getAt(RVXNumCharList, 3)
repeat with g = 1 to count(RVSupplist)
if the number of chars in getAt(RVSupplist, g) > maxnum then
set display to display & char 1 to maxnum of getAt(RVSupplist, g) & RETURN
next repeat
end if
set display to display & getAt(RVSupplist, g) & RETURN
end repeat
put display into field "RVXRESSupp"
set the textSize of member "RVXRESSupp" to 9
set the boxType of member "RVXRESSupp" to #adjust
if the machineType > 200 then
set the textFont of member "RVXRESSupp" to "arial"
else
set the textFont of member "RVXRESSupp" to "geneva"
end if
set display to EMPTY
put EMPTY into field "RVXRESDept"
set maxnum to getAt(RVXNumCharList, 4)
repeat with g = 1 to count(CDDeptList)
if the number of chars in getAt(CDDeptList, g) > maxnum then
set display to display & char 1 to maxnum of getAt(CDDeptList, g) & RETURN
next repeat
end if
set display to display & getAt(CDDeptList, g) & RETURN
end repeat
put display into field "RVXRESDept"
set the textSize of member "RVXRESDept" to 9
set the boxType of member "RVXRESDept" to #adjust
if the machineType > 200 then
set the textFont of member "RVXRESDept" to "arial"
else
set the textFont of member "RVXRESDept" to "geneva"
end if
set display to EMPTY
put EMPTY into field "RVXRESCate"
set maxnum to getAt(RVXNumCharList, 5)
repeat with g = 1 to count(CDCateList)
if the number of chars in getAt(CDCateList, g) > maxnum then
set display to display & char 1 to maxnum of getAt(CDCateList, g) & RETURN
next repeat
end if
set display to display & getAt(CDCateList, g) & RETURN
end repeat
put display into field "RVXRESCate"
set the textSize of member "RVXRESCate" to 9
set the boxType of member "RVXRESCate" to #adjust
if the machineType > 200 then
set the textFont of member "RVXRESCate" to "arial"
else
set the textFont of member "RVXRESCate" to "geneva"
end if
set display to EMPTY
put EMPTY into field "RVXRESissu"
set maxnum to getAt(RVXNumCharList, 6)
repeat with g = 1 to count(CDIssuList)
if the number of chars in getAt(CDIssuList, g) > maxnum then
set display to display & char 1 to maxnum of getAt(CDIssuList, g) & RETURN
next repeat
end if
set display to display & getAt(CDIssuList, g) & RETURN
end repeat
put display into field "RVXRESissu"
set the textSize of member "RVXRESissu" to 9
set the boxType of member "RVXRESissu" to #adjust
if the machineType > 200 then
set the textFont of member "RVXRESissu" to "arial"
else
set the textFont of member "RVXRESissu" to "geneva"
end if
set display to EMPTY
put EMPTY into field "RVXRESPage"
set maxnum to getAt(RVXNumCharList, 7)
repeat with g = 1 to count(CDPageList)
if the number of chars in getAt(CDPageList, g) > maxnum then
set display to display & char 1 to maxnum of getAt(CDPageList, g) & RETURN
next repeat
end if
set display to display & getAt(CDPageList, g) & RETURN
end repeat
put display into field "RVXRESPage"
set the textSize of member "RVXRESPage" to 9
set the boxType of member "RVXRESPage" to #adjust
if the machineType > 200 then
set the textFont of member "RVXRESPage" to "arial"
else
set the textFont of member "RVXRESPage" to "geneva"
end if
set display to EMPTY
put EMPTY into field "RVXRESCont"
set maxnum to getAt(RVXNumCharList, 8)
repeat with g = 1 to count(CDContList)
if the number of chars in getAt(CDContList, g) > maxnum then
set display to display & char 1 to maxnum of getAt(CDContList, g) & RETURN
next repeat
end if
set display to display & getAt(CDContList, g) & RETURN
end repeat
put display into field "RVXRESCont"
set the textSize of member "RVXRESCont" to 9
set the boxType of member "RVXRESCont" to #adjust
if the machineType > 200 then
set the textFont of member "RVXRESCont" to "arial"
else
set the textFont of member "RVXRESCont" to "geneva"
end if
if the member of sprite 20 = member "RVXSomethingGraphic" then
else
repeat with t = 1 to count(RVXSearchMasterList)
if getAt(getAt(RVXSearchMasterList, t), 1) <> 31 then
set the locH of sprite getAt(getAt(RVXSearchMasterList, t), 1) to 2000
end if
end repeat
set the member of sprite RVXScrollBarSprite to member "RVXScrollBar"
set the loc of sprite RVXScrollBarSprite to point(320, 118)
set the ink of sprite RVXScrollBarSprite to 36
set the member of sprite RVXScrollBoxSprite to member "RVXScrollBox"
set the loc of sprite RVXScrollBoxSprite to point(38, 118)
set the ink of sprite RVXScrollBoxSprite to 0
end if
if RVXpageselect > 0 then
put "Table" && RVXpageselect && "of " && integer(RVXrecordsfound / 18) + 1 into field "RVXpagexofy"
set the textSize of member "RVXpagexofy" to 12
set the boxType of member "RVXpagexofy" to #fixed
if the machineType > 200 then
set the textFont of member "RVXpagexofy" to "arial"
else
set the textFont of member "RVXpagexofy" to "geneva"
end if
set the textStyle of member "RVXpagexofy" to "bold"
else
put "Table 1 of 1" into field "RVXpagexofy"
end if
repeat with t = 1 to count(RVXResFieldsList)
set the member of sprite getAt(getAt(RVXResFieldsList, t), 1) to member getAt(getAt(RVXResFieldsList, t), 5)
set the loc of sprite getAt(getAt(RVXResFieldsList, t), 1) to point(getAt(getAt(RVXResFieldsList, t), 2), getAt(getAt(RVXResFieldsList, t), 3))
set the ink of sprite getAt(getAt(RVXResFieldsList, t), 1) to getAt(getAt(RVXResFieldsList, t), 4)
end repeat
set the member of sprite RVXTitle to member "RVXResult"
set the member of sprite 4 to member "RVXExplanation"
set the loc of sprite 4 to point(262, 451)
set the ink of sprite 4 to 36
set the member of sprite 20 to member "RVXSomethingGraphic"
set the loc of sprite 20 to point(209, 156)
set the ink of sprite 20 to 36
put "RVXrecordsfound", RVXrecordsfound
if RVXrecordsfound > 18 then
if (the member of sprite 31 = member "RVXPREVIOUS") or (the member of sprite 31 = member "RVXPreviousRedOne") or (the member of sprite 31 = member "RVXPreviousRedTwo") then
else
set the locH of sprite 31 to 2000
end if
set the member of sprite 31 to member "RVXPREVIOUS"
set the member of sprite 32 to member "RVXNEXT"
if RVXpageselect = (integer(RVXrecordsfound / 18) + 1) then
set the locH of sprite 32 to 2000
else
set the loc of sprite 32 to point(95, 420)
end if
end if
set the castNum of sprite 33 to the number of member "RVXpagexofy"
