Farm Details
<NJFB Produce Membership Number is: 20010" /display
display farmID /display>>
|
back
<>
|
| Farm Name |
Specialties |
Products / Acreage |
<<
FOR NAME=FDHTM.db1_results ROWNAME=FDHTM.daRow DO
FDHTM.mycommods=GETCOLEQ(FDHTM.db2_results,3,FDHTM.daRow[2])
FDHTM.mydetails=FDHTM.mycommods
FDHTM.mycommods1=GETCOL(FDHTM.mycommods,4) # These are the Crop names /#
FDHTM.mycommods2=GETCOL(FDHTM.mycommods,5) # These are the Crop acreage /#
FDHTM.mycommods3=GETCOL(FDHTM.mycommods,6) # This is the Other text/#
#FDHTM.mycommods=COLTOLIST(FDHTM.mycommods,' � ')/#
FDHTM.mycommods=MERGE(FDHTM.mycommods1,FDHTM.mycommods2)
FDHTM.mycommods=MERGE(FDHTM.mycommods,FDHTM.mycommods3)
FDHTM.mycommods=SORTCOL(FDHTM.mycommods,1)
/FOR
IF FDHTM.daRow[4]>"0" then # Second address or name logic /#
FDHTM.darow[3] = FDHTM.darow[4]
FDHTM.darow[26] = FDHTM.darow[27]
FDHTM.darow[23] = FDHTM.darow[24]
FDHTM.darow[32] = FDHTM.darow[33]
FDHTM.varLocationFlag = "Retail Address:"
ELSE
FDHTM.darow[3] = FDHTM.darow[3]
FDHTM.darow[26] = FDHTM.darow[26]
FDHTM.darow[23] = FDHTM.darow[23]
FDHTM.darow[32] = FDHTM.darow[32]
FDHTM.varLocationFlag = ""
/IF
IF FDHTM.daRow[12]>"0" then
FDHTM.darow[13] = FDHTM.darow[12]
ELSE
/IF # End Second address or name logic /#
IF FDHTM.daRow[6] ="0" then #Coop logic /#
FDHTM.varCoop = ""
Else
FDHTM.varCoop = "Co Op"
/IF
IF FDHTM.daRow[15]="0" then #Grading logic /#
FDHTM.varGrading = ""
FDHTM.daRow[16]=""
Else
FDHTM.varGrading ="
Jersey Fresh Grading:
"
/IF
IF FDHTM.daRow[19] ="0" then #Org var set /#
FDHTM.varOrganic = ""
Else
FDHTM.varOrganic = "Organic Certified = Yes"
/IF
IF FDHTM.daRow[22] ="0" then #Retail market var set /#
FDHTM.varRetail = "No"
Else
FDHTM.varRetail = "Yes"
/IF
IF FDHTM.daRow[30]>"0" then #Value Added logic /#
FDHTM.varValAdded ="
Value Added Products:
"
Else
FDHTM.varValAdded =""
/IF
IF FDHTM.daRow[28]>"0" then #U-pick logic /#
FDHTM.varUPick ="'
Pick Your Own:
"
Else
FDHTM.varUPick =""
/IF
IF FDHTM.daRow[31]>"0" then # URL var and logic /#
FDHTM.varURL ="WebSite"
Else
FDHTM.varURL=""
FDHTM.varURL2=""
/IF
IF FDHTM.daRow[10]>"0" then # Email var and logic /#
FDHTM.varEMAIL ="Send E-mail"
Else
FDHTM.varEMAIL=""
FDHTM.varEMAIL2=""
/IF
FDHTM.varYear= GETYEAR(today,"short") # format date to cut out time (open/closed)/#
FDHTM.vardaRow9=CHOPRIGHT(FDHTM.daRow[9], FDHTM.varYear)
FDHTM.vardaRow7=CHOPRIGHT(FDHTM.daRow[7], FDHTM.varYear)
DISPLAY
''+
''+FDHTM.varLocationFlag+ '
'+ FDHTM.daRow[13]+ '
'+ FDHTM.daRow[3]+ '
'+ FDHTM.daRow[26]+ ", "+ FDHTM.daRow[23]+ " "+ FDHTM.daRow[32]+ '
' + FDHTM.daRow[34]+' COUNTY
'+ FDHTM.daRow[5]+ '
'+ FDHTM.daRow[20]+'
Fax: '+FDHTM.daRow[14]+'
'+FDHTM.varEMAIL+FDHTM.daRow[10]+FDHTM.varEMAIL2+'
'+ FDHTM.varURL + FDHTM.daRow[31] + FDHTM.varURL2+
'
Farming Since: '+FDHTM.daRow[21]+'
Total Acreage: '+FDHTM.daRow[25]+'
'+FDHTM.varCoop+ '
'+FDHTM.varOrganic+'
Retail Farm Market: '+FDHTM.varRetail+'
Open : '+FDHTM.vardaRow9+ '
Closed: '+FDHTM.vardaRow7 + '
' + FDHTM.daRow[35]+
' | '+FDHTM.daRow[11]+'
'+FDHTM.varValAdded+FDHTM.daRow[30]+FDHTM.varGrading+
FDHTM.daRow[16]+FDHTM.varUPick+FDHTM.daRow[28]+' | '+
''
/DISPLAY
DISPLAY '' /DISPLAY
FOR NAME=ae.i VALUE=1 TO ROWS(FDHTM.mycommods) DO
#If FDHTM.mycommods[1,ae.i]="Other Crop" then Specialty Items - acreage changes
FDHTM.mycommods[2,ae.i]="(see below)"
/IF /#
If FDHTM.mycommods[1,ae.i]="Other Crop" then
FDHTM.mycommods[1,ae.i]=FDHTM.mycommods[3,ae.i]
FDHTM.mycommods[2,ae.i]="varies"
/IF
If FDHTM.mycommods[1,ae.i]="Other Culinary" then
FDHTM.mycommods[1,ae.i]=FDHTM.mycommods[3,ae.i]
FDHTM.mycommods[2,ae.i]="varies"
/IF
If FDHTM.mycommods[1,ae.i]="Other Medicinal" then
FDHTM.mycommods[1,ae.i]=FDHTM.mycommods[3,ae.i]
FDHTM.mycommods[2,ae.i]="varies"
/IF
If FDHTM.mycommods[1,ae.i]="Other Veg" then
FDHTM.mycommods[1,ae.i]=FDHTM.mycommods[3,ae.i]
FDHTM.mycommods[2,ae.i]="varies"
/IF
If FDHTM.mycommods[1,ae.i]="Painted Pumpkins" then
FDHTM.mycommods[2,ae.i]="(varies)"
/IF
If FDHTM.mycommods[1,ae.i]="Pies" then
FDHTM.mycommods[2,ae.i]="(varies)"
/IF
If FDHTM.mycommods[1,ae.i]="Preserves" then
FDHTM.mycommods[2,ae.i]="(varies)"
/IF
If FDHTM.mycommods[1,ae.i]="Christmas Trees" then
FDHTM.mycommods[2,ae.i]="(varies)"
/IF
If FDHTM.mycommods[1,ae.i]="Baby vegetables" then
FDHTM.mycommods[2,ae.i]="(varies)"
/IF
If FDHTM.mycommods[2,ae.i]="0" then
FDHTM.mycommods[2,ae.i]="n/a"
/IF
DISPLAY
'| ' + ''+ FDHTM.mycommods[1,ae.i] + ' | ' + ''+ FDHTM.mycommods[2,ae.i] + ' | '
/DISPLAY
/FOR
DISPLAY ' ' /DISPLAY
>>
|
|
|