<< db2_resultsCrop=SORTCOL(db2_resultsCrop,26) #DisplayThis = LAYOUT (db2_resultsCrop,[26],"
") Display DisplayThis /display /# dbnameCrop="/apps/dbcons/produce/AllCommod" # Populate the list box with avail Crops /# dbCrop_fieldlist="Commodname" PopulateCropBox=DBFINDSORT(dbnameCrop,"",1,10000,"CommodName","N",dbCrop_fieldlist) PopulateCropBox=NODUPS(PopulateCropBox) >>  back       home
New Jersey Produce Directory
Data reported below, last updated <>		 <> << # calculate some summary data /# # total number of records: dbresults[5,1] /# db5_totalrecords=dbResultsCountCrop[5,1] DISPLAY "" /DISPLAY >>
Summary Report
Total Records:" + db5_totalrecords + "
Find a farm by product/crop
Choose from the dropdown list below, and press select.

<> <<#
/#>>
<< DISPLAY "" /DISPLAY >>
<<#/#>> << If dbresultsCountCrop[5,1]= "0" then DISPLAY "Please try another Product.

" /DISPLAY Else db3_resultsCrop=MERGE(db1_resultsCrop,db2_resultsCrop) FOR NAME=db3_resultsCrop ROWNAME=daRow DO mycommods=GETCOLEQ(db3_resultsCrop,2,darow[2]) #mycommods=GETCOL(mycommods,1)/# mycommods=SORTCOL(mycommods,28) If myCommods[28]>"0" then C.varCity=", " C.varDetails1="Farm Details" Else C.varCity="" C.varDetails1="" C.varDetails2="" /IF mycommods=SORTCOL(mycommods,13) IF mycommods[24] ="0" then #Retail market var set /# bycrop.varRetail = "Retail Available = No" Else bycrop.varRetail = "Retail Available = Yes" /IF If db5_totalrecords = "" then bycrop.varRetail = "" /IF DISPLAY ''+ ''+ ''+ '' /DISPLAY myDetails = "" /FOR /IF >>
Product Farm NameOther Products
'+ daRow[1]+ ' '+ bycrop.varRetail +'

'+ mycommods[15]+ '
'+ mycommods[5]+ '
'+ mycommods[28]+C.varCity+ mycommods[25]+ ' '+ mycommods[34]+ '
'+ mycommods[7]+ '
'+ mycommods[22]+'
'+ C.varDetails1 + mycommods[4] + C.varDetails2+ '
<>


<<# dbresults /#>>

 
<>