API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 12th, 2019
101
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 148.34 KB | None | 0 0
raw download clone embed print report
  1.  
  2. scrset(
  3. sCFormPestsBeneficialsYadMordechaiNew:frm(#Pests_and_Beneficials,55|50|50|40|40,
  4. init:block(
  5. set($pestCode, .pest, dDone),
  6. set($taskCode, .task, dDone),
  7. set($lc,.plot,dDone),
  8. set($plotCode,.plot,dDone)
  9. set($crop, .crop, dDone),
  10. set($growerCode,.gCode,dDone),
  11. set($growerName,${qps('.def.sRoot/mi[val==growerCode].lbl')}),
  12. set($userLanguage, ${userLang()}, dTemp)
  13. log(warn,${'Crop '.crop}),
  14. log(warn,${'Contains any '.containsAny(crop,'CR15G0')}),
  15. log(warn,${'Contains any '.containsNone(crop,'CR15G0')}),
  16. )
  17.  
  18. refresh:block(),
  19.  
  20. focus:block(
  21. set($lblName,${qp('.lblName','dTemp')}),
  22. if(${notEmpty(lblName)}, block(
  23. focus(${'.'.lblName}),
  24. unset(.lblName,dTemp))
  25. )
  26. ),
  27.  
  28. @copyNotes1:block(
  29. if(${notEmpty(qp('.'.dsetName.':dset.notes','dTemp'))},set(.notes,${qp('.'.dsetName.':dset.notes','dTemp')},dDone)),
  30. for(photo,${qp('.'.dsetName.':dset.photo_note/dfile.file','dTemp')},
  31. set(.photo_note\:dlist/dfile[i_photo].file,$photo,dDone)),
  32. if(${notEmpty(qp('.'.dsetName.':dset.individual_recommendation','dTemp'))},set(.individual_recommendation,${qp('.'.dsetName.':dset.individual_recommendation','dTemp')},dDone)),
  33. unset(${'.'.dsetName},dTemp,true)
  34. ),
  35.  
  36. @cleanNotes1:block(
  37. unset(.notes,dDone),
  38. unset(.photo_note,dDone,true),
  39. unset(.individual_recommendation,dDone)
  40. ),
  41. @ldBeneficials:ldata(
  42. li(Please select beneficial,${res("Please_Select_Beneficial")},ord:1),
  43. li(PT217G4I0I,${res("Insidious_flower_bug")}),
  44. li(PT217G3I0I,${res("Aphidius_colemani")}),
  45. li(PT217DI4I,${res("Antilion")}),
  46. li(PT217G1I0I0I,${res("Parasitization").'('.res("Tabaco_whitefly").')'}),
  47. li(PT217G0I0I0I,${res("Parasitization").'('.res("Pseudococcidae").')'}),
  48. li(PT2171I2I,${res("Ladybug")}),
  49. li(PT2170I2I2I,${res("Amblyseius_swirskii")}),
  50. li(PT2170I2I4I,${res("Phytoseiulus_persimilis")})
  51. ),
  52. @ldPestSpread:ldata(
  53. li(Please Select Distribution,${res("Please_Select_Distribution")},ord:1),
  54. li(1. isolated cases,${res("Isolated_cases")}),
  55. li(2. a number of areas,${res("A_number_of_areas")}),
  56. li(3. mainly on the margins,${res("Mainly_on_the_margins")}),
  57. li(4. in the entire section,${res("In_the_entire_section")})
  58. ),
  59. // Headers
  60. lbl(${res('Plot').':'}, lo(2, m(5, 0, 0, 0), bg:FFc6d2d2)),
  61. lbl(${qp('.plotName', 'dTemp')}, aln:left, lo(3, m(5, 0, 0, 0), bg:FFc6d2d2)),
  62. lbl(${res('Grower').':'}, lo(2, style:captionGrey)),
  63. lbl(${def(growerName,res('n%2Fa'))}, aln:left, lo(3, style:captionGrey)),
  64. lbl(${res('Crop').':'}, lo(2, bg:FFc6d2d2)),
  65. lbl(${qp('.cropName', 'dTemp')}, aln:left, lo(3, bg:FFc6d2d2)),
  66.  
  67. lbl(${res("Report_Contamination_Levels")},lo(5,m(3,0,0,0),style:group),aln:center),
  68.  
  69. // Carmine spider mite
  70. lCarmineSpiderMite:lbl(${res("Carmine_spider_mite")},lo(4,m(1,0,0,0),style:caption)),
  71. btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  72. set(.dsetName,${'dsCarmineSpiderMite'},dTemp),
  73. set(.lblName,${'lCarmineSpiderMite'},dTemp),
  74. goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  75. ci(single,carmineSpiderMite,no,cols:5, lo(1, m(4, 40, 0, 0)),
  76. dpath(dTemp, .pests\:dlist/dset[0].level),
  77. opt(1, '1 '),
  78. opt(2, '2 '),
  79. opt(3, '3 '),
  80. opt(4, '4 '),
  81. opt(5, '5')),
  82. lbl(#Pest_spread,lo(2)),
  83. list(in:carmineSpiderMiteSpread,req:false,data:ldPestSpread,sort:no,
  84. dpath(dTemp, .pests\:dlist/dset[0].spread),
  85. lo(3)
  86. ),
  87. lbl(#Select_beneficial,lo(2)),
  88. list(in:carmineSpiderMiteBeneficial,data:ldBeneficials,req:false,sort:no,
  89. dpath(dTemp,.pests\:dlist/dset[0].beneficials_name),
  90. lo(3)
  91. ),
  92.  
  93. lbl(#Beneficial_levels,lo(2,visible:${carmineSpiderMiteBeneficial!='Please select beneficial'})),
  94. ci(single,levelCarmineSpiderMiteBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${carmineSpiderMiteBeneficial!='Please select beneficial'}),
  95. dpath(dTemp, .pests\:dlist/dset[0].beneficials_level),
  96. opt(1, '1 '),
  97. opt(2, '2 '),
  98. opt(3, '3 '),
  99. opt(4, '4 '),
  100. opt(5, '5')),
  101. lbl(#Select_beneficial,lo(2,visible:${notEmpty(levelCarmineSpiderMiteBeneficial)})),
  102. list(in:carmineSpiderMiteBeneficialTwo,data:ldBeneficials,req:false,sort:no,
  103. dpath(dTemp,.pests\:dlist/dset[0].beneficials_name_two),
  104. lo(3,visible:${notEmpty(levelCarmineSpiderMiteBeneficial)})
  105. ),
  106. lbl(#Beneficial_levels,lo(2,visible:${carmineSpiderMiteBeneficialTwo!='Please select beneficial'})),
  107. ci(single,levelCarmineSpiderMiteBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${carmineSpiderMiteBeneficialTwo!='Please select beneficial'}),
  108. dpath(dTemp, .pests\:dlist/dset[0].beneficials_level_two),
  109. opt(1, '1 '),
  110. opt(2, '2 '),
  111. opt(3, '3 '),
  112. opt(4, '4 '),
  113. opt(5, '5')),
  114.  
  115. // Broad mite
  116. lBroadMite:lbl(${res("Broad_mite")},lo(4,m(1,0,0,0),style:caption)),
  117. btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  118. set(.dsetName,${'dsBroadMite'},dTemp),
  119. set(.lblName,${'lBroadMite'},dTemp),
  120. goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  121. ci(single,broadMite,no,cols:5, lo(1, m(4, 40, 0, 0)),
  122. dpath(dTemp, .pests\:dlist/dset[1].level),
  123. opt(1, '1 '),
  124. opt(2, '2 '),
  125. opt(3, '3 '),
  126. opt(4, '4 '),
  127. opt(5, '5')),
  128. lbl(#Pest_spread,lo(2)),
  129. list(in:broadMiteSpread,data:ldPestSpread,req:false,sort:no,
  130. dpath(dTemp,.pests\:dlist/dset[1].spread),
  131. lo(3)
  132. ),
  133. lbl(#Select_Beneficial,lo(2)),
  134. list(in:broadMiteBeneficial,data:ldBeneficials,req:false,sort:no,
  135. dpath(dTemp,.pests\:dlist/dset[1].beneficials_name),
  136. lo(3)
  137. ),
  138. lbl(#Beneficial_levels,lo(2,visible:${broadMiteBeneficial!='Please select beneficial'})),
  139. ci(single,levelBroadMiteBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${broadMiteBeneficial!='Please select beneficial'}),
  140. dpath(dTemp, .pests\:dlist/dset[1].beneficials_level),
  141. opt(1, '1 '),
  142. opt(2, '2 '),
  143. opt(3, '3 '),
  144. opt(4, '4 '),
  145. opt(5, '5')),
  146. lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelBroadMiteBeneficial)})),
  147. list(in:broadMiteBeneficialTwo,data:ldBeneficials,req:false,sort:no,
  148. dpath(dTemp,.pests\:dlist/dset[1].beneficials_name_two),
  149. lo(3,visible:${notEmpty(levelBroadMiteBeneficial)})
  150. ),
  151. lbl(#Beneficial_levels,lo(2,visible:${broadMiteBeneficialTwo!='Please select beneficial'})),
  152. ci(single,levelBroadMiteBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${broadMiteBeneficialTwo!='Please select beneficial'}),
  153. dpath(dTemp, .pests\:dlist/dset[1].beneficials_level_two),
  154. opt(1, '1 '),
  155. opt(2, '2 '),
  156. opt(3, '3 '),
  157. opt(4, '4 '),
  158. opt(5, '5')),
  159.  
  160. // Gray Mould
  161. lGrayMould:lbl(${res("Gray_mould")},lo(4,m(1,0,0,0),style:caption)),
  162. btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  163. set(.dsetName,${'dsGrayMould'},dTemp),
  164. set(.lblName,${'lGrayMould'},dTemp),
  165. goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  166. ci(single,grayMould,no,cols:5, lo(1, m(4, 40, 0, 0)),
  167. dpath(dTemp, .pests\:dlist/dset[2].level),
  168. opt(1, '1 '),
  169. opt(2, '2 '),
  170. opt(3, '3 '),
  171. opt(4, '4 '),
  172. opt(5, '5')),
  173. lbl(#Pest_spread,lo(2)),
  174. list(in:grayMouldSpread,req:false,data:ldPestSpread,sort:no,
  175. dpath(dTemp,.pests\:dlist/dset[2].spread),
  176. lo(3)
  177. ),
  178. lbl(#Select_Beneficial,lo(2)),
  179. list(in:greyMouldBeneficial,data:ldBeneficials,req:false,sort:no,
  180. dpath(dTemp,.pests\:dlist/dset[2].beneficials_name),
  181. lo(3)
  182. ),
  183. lbl(#Beneficial_levels,lo(2,visible:${greyMouldBeneficial!='Please select beneficial'})),
  184. ci(single,levelGreyMouldBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${greyMouldBeneficial!='Please select beneficial'}),
  185. dpath(dTemp, .pests\:dlist/dset[2].beneficials_level),
  186. opt(1, '1 '),
  187. opt(2, '2 '),
  188. opt(3, '3 '),
  189. opt(4, '4 '),
  190. opt(5, '5')),
  191. lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelGreyMouldBeneficial)})),
  192. list(in:greyMouldBeneficialTwo,data:ldBeneficials,req:false,sort:no,
  193. dpath(dTemp,.pests\:dlist/dset[2].beneficials_name_two),
  194. lo(3,visible:${notEmpty(levelGreyMouldBeneficial)})
  195. ),
  196. lbl(#Beneficial_levels,lo(2,visible:${greyMouldBeneficialTwo!='Please select beneficial'})),
  197. ci(single,levelGreyMouldBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${greyMouldBeneficialTwo!='Please select beneficial'}),
  198. dpath(dTemp, .pests\:dlist/dset[2].beneficials_level_two),
  199. opt(1, '1 '),
  200. opt(2, '2 '),
  201. opt(3, '3 '),
  202. opt(4, '4 '),
  203. opt(5, '5')),
  204.  
  205. // TSWV
  206. lTSWV:lbl(${res("TSWV")},lo(4,m(1,0,0,0),style:caption)),
  207. btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  208. set(.dsetName,${'dsTSWV'},dTemp),
  209. set(.lblName,${'lTSWV'},dTemp),
  210. goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  211. ci(single,tSWV,no,cols:5, lo(1, m(4, 40, 0, 0)),
  212. dpath(dTemp, .pests\:dlist/dset[3].level),
  213. opt(1, '1 '),
  214. opt(2, '2 '),
  215. opt(3, '3 '),
  216. opt(4, '4 '),
  217. opt(5, '5')),
  218. lbl(#Pest_spread,lo(2)),
  219. list(in:TSWVSpread,req:false,data:ldPestSpread,sort:no,
  220. dpath(dTemp,.pests\:dlist/dset[3].spread),
  221. lo(3)
  222. ),
  223. lbl(#Select_Beneficial,lo(2)),
  224. list(in:TSWVBeneficial,data:ldBeneficials,req:false,sort:no,
  225. dpath(dTemp,.pests\:dlist/dset[3].beneficials_name),
  226. lo(3)
  227. ),
  228. lbl(#Beneficial_levels,lo(2,visible:${TSWVBeneficial!='Please select beneficial'})),
  229. ci(single,levelTSWVBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${TSWVBeneficial!='Please select beneficial'}),
  230. dpath(dTemp, .pests\:dlist/dset[3].beneficials_level),
  231. opt(1, '1 '),
  232. opt(2, '2 '),
  233. opt(3, '3 '),
  234. opt(4, '4 '),
  235. opt(5, '5')),
  236. lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelTSWVBeneficial)})),
  237. list(in:TSWVBeneficialTwo,data:ldBeneficials,req:false,sort:no,
  238. dpath(dTemp,.pests\:dlist/dset[3].beneficials_name_two),
  239. lo(3,visible:${notEmpty(levelTSWVBeneficial)})
  240. ),
  241. lbl(#Beneficial_levels,lo(2,visible:${TSWVBeneficialTwo!='Please select beneficial'})),
  242. ci(single,levelTSWVBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${TSWVBeneficialTwo!='Please select beneficial'}),
  243. dpath(dTemp, .pests\:dlist/dset[3].beneficials_level_two),
  244. opt(1, '1 '),
  245. opt(2, '2 '),
  246. opt(3, '3 '),
  247. opt(4, '4 '),
  248. opt(5, '5')),
  249.  
  250. // PYLCV
  251. lPYLCV:lbl(${res("PYLCV")},lo(4,m(1,0,0,0),style:caption)),
  252. btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  253. set(.dsetName,${'dsPYLCV'},dTemp),
  254. set(.lblName,${'lPYLCV'},dTemp),
  255. goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  256. ci(single,pYLCV,no,cols:5, lo(1, m(4, 40, 0, 0)),
  257. dpath(dTemp, .pests\:dlist/dset[4].level),
  258. opt(1, '1 '),
  259. opt(2, '2 '),
  260. opt(3, '3 '),
  261. opt(4, '4 '),
  262. opt(5, '5')),
  263. lbl(#Pest_spread,lo(2)),
  264. list(in:PYLCVSpread,req:false,data:ldPestSpread,sort:no,
  265. dpath(dTemp,.pests\:dlist/dset[4].spread),
  266. lo(3)
  267. ),
  268. lbl(#Select_Beneficial,lo(2)),
  269. list(in:PYLVCBeneficial,req:false,data:ldBeneficials,sort:no,
  270. dpath(dTemp,.pests\:dlist/dset[4].beneficials_name),
  271. lo(3)
  272. ),
  273. lbl(#Beneficial_levels,lo(2,visible:${PYLVCBeneficial!='Please select beneficial'})),
  274. ci(single,levelPYLVCBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${PYLVCBeneficial!='Please select beneficial'}),
  275. dpath(dTemp, .pests\:dlist/dset[4].beneficials_level),
  276. opt(1, '1 '),
  277. opt(2, '2 '),
  278. opt(3, '3 '),
  279. opt(4, '4 '),
  280. opt(5, '5')),
  281. lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelPYLVCBeneficial)})),
  282. list(in:PYLVCBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  283. dpath(dTemp,.pests\:dlist/dset[4].beneficials_name_two),
  284. lo(3,visible:${notEmpty(levelPYLVCBeneficial)})
  285. ),
  286. lbl(#Beneficial_levels,lo(2,visible:${PYLVCBeneficialTwo!='Please select beneficial'})),
  287. ci(single,levelPYLVCBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${PYLVCBeneficialTwo!='Please select beneficial'}),
  288. dpath(dTemp, .pests\:dlist/dset[4].beneficials_level_two),
  289. opt(1, '1 '),
  290. opt(2, '2 '),
  291. opt(3, '3 '),
  292. opt(4, '4 '),
  293. opt(5, '5')),
  294.  
  295. // Fruit Fly
  296. lFruitFly:lbl(${res("Fruit_fly")},lo(4,m(1,0,0,0),style:caption)),
  297. btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  298. set(.dsetName,${'dsFruitFly'},dTemp),
  299. set(.lblName,${'lFruitFly'},dTemp),
  300. goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  301. ci(single,fruitFly,no,cols:5, lo(1, m(4, 40, 0, 0)),
  302. dpath(dTemp, .pests\:dlist/dset[5].level),
  303. opt(1, '1 '),
  304. opt(2, '2 '),
  305. opt(3, '3 '),
  306. opt(4, '4 '),
  307. opt(5, '5')),
  308. lbl(#Pest_spread,lo(2)),
  309. list(in:fruitFlySpread,req:false,data:ldPestSpread,sort:no,
  310. dpath(dTemp,.pests\:dlist/dset[5].spread),
  311. lo(3)
  312. ),
  313. lbl(#Select_Beneficial,lo(2)),
  314. list(in:fruitFlyBeneficial,req:false,data:ldBeneficials,sort:no,
  315. dpath(dTemp,.pests\:dlist/dset[5].beneficials_name),
  316. lo(3)
  317. ),
  318. lbl(#Beneficial_levels,lo(2,visible:${fruitFlyBeneficial!='Please select beneficial'})),
  319. ci(single,levelFruitFlyBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${fruitFlyBeneficial!='Please select beneficial'}),
  320. dpath(dTemp, .pests\:dlist/dset[5].beneficials_level),
  321. opt(1, '1 '),
  322. opt(2, '2 '),
  323. opt(3, '3 '),
  324. opt(4, '4 '),
  325. opt(5, '5')),
  326. lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelFruitFlyBeneficial)})),
  327. list(in:fruitFlyBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  328. dpath(dTemp,.pests\:dlist/dset[5].beneficials_name_two),
  329. lo(3,visible:${notEmpty(levelFruitFlyBeneficial)})
  330. ),
  331. lbl(#Beneficial_levels,lo(2,visible:${fruitFlyBeneficialTwo!='Please select beneficial'})),
  332. ci(single,levelFruitFlyBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${fruitFlyBeneficialTwo!='Please select beneficial'}),
  333. dpath(dTemp, .pests\:dlist/dset[5].beneficials_level_two),
  334. opt(1, '1 '),
  335. opt(2, '2 '),
  336. opt(3, '3 '),
  337. opt(4, '4 '),
  338. opt(5, '5')),
  339.  
  340. // Mediterranean fruit fly
  341. lMediterraneanFruitFly:lbl(${res("Mediterranean_fruit_fly")},lo(4,m(1,0,0,0),style:caption)),
  342. btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  343. set(.dsetName,${'dsMediterraneanFruitFly'},dTemp),
  344. set(.lblName,${'lMediterraneanFruitFly'},dTemp),
  345. goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  346. ci(single,mediterraneanFruitFly,no,cols:5, lo(1, m(4, 40, 0, 0)),
  347. dpath(dTemp, .pests\:dlist/dset[6].level),
  348. opt(1, '1 '),
  349. opt(2, '2 '),
  350. opt(3, '3 '),
  351. opt(4, '4 '),
  352. opt(5, '5')),
  353. lbl(#Pest_spread,lo(2)),
  354. list(in:mediterraneanFruitFlySpread,req:false,data:ldPestSpread,sort:no,
  355. dpath(dTemp,.pests\:dlist/dset[6].spread),
  356. lo(3)
  357. ),
  358. lbl(#Select_Beneficial,lo(2)),
  359. list(in:mediterraneanFruitFlyBeneficial,req:false,data:ldBeneficials,sort:no,
  360. dpath(dTemp,.pests\:dlist/dset[6].beneficials_name),
  361. lo(3)
  362. ),
  363. lbl(#Beneficial_levels,lo(2,visible:${mediterraneanFruitFlyBeneficial!='Please select beneficial'})),
  364. ci(single,levelMediterraneanFruitFlyBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${mediterraneanFruitFlyBeneficial!='Please select beneficial'}),
  365. dpath(dTemp, .pests\:dlist/dset[6].beneficials_level),
  366. opt(1, '1 '),
  367. opt(2, '2 '),
  368. opt(3, '3 '),
  369. opt(4, '4 '),
  370. opt(5, '5')),
  371. lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelMediterraneanFruitFlyBeneficial)})),
  372. list(in:mediterraneanFruitFlyBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  373. dpath(dTemp,.pests\:dlist/dset[6].beneficials_name_two),
  374. lo(3,visible:${notEmpty(levelMediterraneanFruitFlyBeneficial)})
  375. ),
  376. lbl(#Beneficial_levels,lo(2,visible:${mediterraneanFruitFlyBeneficialTwo!='Please select beneficial'})),
  377. ci(single,levelMediterraneanFruitFlyBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${mediterraneanFruitFlyBeneficialTwo!='Please select beneficial'}),
  378. dpath(dTemp, .pests\:dlist/dset[6].beneficials_level_two),
  379. opt(1, '1 '),
  380. opt(2, '2 '),
  381. opt(3, '3 '),
  382. opt(4, '4 '),
  383. opt(5, '5')),
  384.  
  385. // Moth caterpillar
  386. lMothCaterpillar:lbl(${res("Moth_caterpillar")},lo(4,m(1,0,0,0),style:caption)),
  387. btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  388. set(.dsetName,${'dsMothCaterpillar'},dTemp),
  389. set(.lblName,${'lMothCaterpillar'},dTemp),
  390. goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  391. ci(single,mothCaterpillar,no,cols:5, lo(1, m(4, 40, 0, 0)),
  392. dpath(dTemp, .pests\:dlist/dset[7].level),
  393. opt(1, '1 '),
  394. opt(2, '2 '),
  395. opt(3, '3 '),
  396. opt(4, '4 '),
  397. opt(5, '5')),
  398. lbl(#Pest_spread,lo(2)),
  399. list(in:mothCaterpillarSpread,req:false,data:ldPestSpread,sort:no,
  400. dpath(dTemp,.pests\:dlist/dset[7].spread),
  401. lo(3)
  402. ),
  403. lbl(#Select_Beneficial,lo(2)),
  404. list(in:mothCaterpillarBeneficial,req:false,data:ldBeneficials,sort:no,
  405. dpath(dTemp,.pests\:dlist/dset[7].beneficials_name),
  406. lo(3)
  407. ),
  408. lbl(#Beneficial_levels,lo(2,visible:${mothCaterpillarBeneficial!='Please select beneficial'})),
  409. ci(single,levelMothCaterpillarBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${mothCaterpillarBeneficial!='Please select beneficial'}),
  410. dpath(dTemp, .pests\:dlist/dset[7].beneficials_level),
  411. opt(1, '1 '),
  412. opt(2, '2 '),
  413. opt(3, '3 '),
  414. opt(4, '4 '),
  415. opt(5, '5')),
  416. lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelMothCaterpillarBeneficial)})),
  417. list(in:mothCaterpillarBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  418. dpath(dTemp,.pests\:dlist/dset[7].beneficials_name_two),
  419. lo(3,visible:${notEmpty(levelMothCaterpillarBeneficial)})
  420. ),
  421. lbl(#Beneficial_levels,lo(2,visible:${mothCaterpillarBeneficialTwo!='Please select beneficial'})),
  422. ci(single,levelMothCaterpillarBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${mothCaterpillarBeneficialTwo!='Please select beneficial'}),
  423. dpath(dTemp, .pests\:dlist/dset[7].beneficials_level_two),
  424. opt(1, '1 '),
  425. opt(2, '2 '),
  426. opt(3, '3 '),
  427. opt(4, '4 '),
  428. opt(5, '5')),
  429.  
  430. // Chilli gall midge
  431. lChilliGallMidge:lbl(${res("Chilli_gall_midge")},lo(4,m(1,0,0,0),style:caption)),
  432. btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  433. set(.dsetName,${'dsChilliGallMidge'},dTemp),
  434. set(.lblName,${'lChilliGallMidge'},dTemp),
  435. goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  436. ci(single,chilliGallMidge,no,cols:5, lo(1, m(4, 40, 0, 0)),
  437. dpath(dTemp, .pests\:dlist/dset[8].level),
  438. opt(1, '1 '),
  439. opt(2, '2 '),
  440. opt(3, '3 '),
  441. opt(4, '4 '),
  442. opt(5, '5')),
  443. lbl(#Pest_spread,lo(2)),
  444. list(in:chilliGallMidgeSpread,req:false,data:ldPestSpread,sort:no,
  445. dpath(dTemp,.pests\:dlist/dset[8].spread),
  446. lo(3)
  447. ),
  448. lbl(#Select_Beneficial,lo(2)),
  449. list(in:chilliGallMidgeBeneficial,req:false,data:ldBeneficials,sort:no,
  450. dpath(dTemp,.pests\:dlist/dset[8].beneficials_name),
  451. lo(3)
  452. ),
  453. lbl(#Beneficial_levels,lo(2,visible:${chilliGallMidgeBeneficial!='Please select beneficial'})),
  454. ci(single,levelChilliGallMidgeBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${chilliGallMidgeBeneficial!='Please select beneficial'}),
  455. dpath(dTemp, .pests\:dlist/dset[8].beneficials_level),
  456. opt(1, '1 '),
  457. opt(2, '2 '),
  458. opt(3, '3 '),
  459. opt(4, '4 '),
  460. opt(5, '5')),
  461. lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelChilliGallMidgeBeneficial)})),
  462. list(in:chilliGallMidgeBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  463. dpath(dTemp,.pests\:dlist/dset[8].beneficials_name_two),
  464. lo(3,visible:${notEmpty(levelChilliGallMidgeBeneficial)})
  465. ),
  466. lbl(#Beneficial_levels,lo(2,visible:${chilliGallMidgeBeneficialTwo!='Please select beneficial'})),
  467. ci(single,levelChilliGallMidgeBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${chilliGallMidgeBeneficialTwo!='Please select beneficial'}),
  468. dpath(dTemp, .pests\:dlist/dset[8].beneficials_level_two),
  469. opt(1, '1 '),
  470. opt(2, '2 '),
  471. opt(3, '3 '),
  472. opt(4, '4 '),
  473. opt(5, '5')),
  474.  
  475. // Aphid
  476. lAphid:lbl(${res("Aphid")},lo(4,m(1,0,0,0),style:caption)),
  477. btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  478. set(.dsetName,${'dsAphid'},dTemp),
  479. set(.lblName,${'lAphid'},dTemp),
  480. goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  481. ci(single,aphid,no,cols:5, lo(1, m(4, 40, 0, 0)),
  482. dpath(dTemp, .pests\:dlist/dset[9].level),
  483. opt(1, '1 '),
  484. opt(2, '2 '),
  485. opt(3, '3 '),
  486. opt(4, '4 '),
  487. opt(5, '5')),
  488. lbl(#Pest_spread,lo(2)),
  489. list(in:aphidSpread,req:false,data:ldPestSpread,sort:no,
  490. dpath(dTemp,.pests\:dlist/dset[9].spread),
  491. lo(3)
  492. ),
  493. lbl(#Select_Beneficial,lo(2)),
  494. list(in:aphidBeneficial,req:false,data:ldBeneficials,sort:no,
  495. dpath(dTemp,.pests\:dlist/dset[9].beneficials_name),
  496. lo(3)
  497. ),
  498. lbl(#Beneficial_levels,lo(2,visible:${aphidBeneficial!='Please select beneficial'})),
  499. ci(single,levelAphidBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${aphidBeneficial!='Please select beneficial'}),
  500. dpath(dTemp, .pests\:dlist/dset[9].beneficials_level),
  501. opt(1, '1 '),
  502. opt(2, '2 '),
  503. opt(3, '3 '),
  504. opt(4, '4 '),
  505. opt(5, '5')),
  506. lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelAphidBeneficial)})),
  507. list(in:aphidBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  508. dpath(dTemp,.pests\:dlist/dset[9].beneficials_name_two),
  509. lo(3,visible:${notEmpty(levelAphidBeneficial)})
  510. ),
  511. lbl(#Beneficial_levels,lo(2,visible:${aphidBeneficialTwo!='Please select beneficial'})),
  512. ci(single,levelAphidBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${aphidBeneficialTwo!='Please select beneficial'}),
  513. dpath(dTemp, .pests\:dlist/dset[9].beneficials_level_two),
  514. opt(1, '1 '),
  515. opt(2, '2 '),
  516. opt(3, '3 '),
  517. opt(4, '4 '),
  518. opt(5, '5')),
  519.  
  520. // Green peach aphid
  521. lGreenPeachAphid:lbl(${res("Green_peach_aphid")},lo(4,m(1,0,0,0),style:caption)),
  522. btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  523. set(.dsetName,${'dsGreenPeachAphid'},dTemp),
  524. set(.lblName,${'lGreenPeachAphid'},dTemp),
  525. goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  526. ci(single,greenPeachAphid,no,cols:5, lo(1, m(4, 40, 0, 0)),
  527. dpath(dTemp, .pests\:dlist/dset[10].level),
  528. opt(1, '1 '),
  529. opt(2, '2 '),
  530. opt(3, '3 '),
  531. opt(4, '4 '),
  532. opt(5, '5')),
  533. lbl(#Pest_spread,lo(2)),
  534. list(in:greenPeachAphidSpread,req:false,data:ldPestSpread,sort:no,
  535. dpath(dTemp,.pests\:dlist/dset[10].spread),
  536. lo(3)
  537. ),
  538. lbl(#Select_Beneficial,lo(2)),
  539. list(in:greenPeachAphidBeneficial,req:false,data:ldBeneficials,sort:no,
  540. dpath(dTemp,.pests\:dlist/dset[10].beneficials_name),
  541. lo(3)
  542. ),
  543. lbl(#Beneficial_levels,lo(2,visible:${greenPeachAphidBeneficial!='Please select beneficial'})),
  544. ci(single,levelGreenPeachAphidBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${greenPeachAphidBeneficial!='Please select beneficial'}),
  545. dpath(dTemp, .pests\:dlist/dset[10].beneficials_level),
  546. opt(1, '1 '),
  547. opt(2, '2 '),
  548. opt(3, '3 '),
  549. opt(4, '4 '),
  550. opt(5, '5')),
  551. lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelGreenPeachAphidBeneficial)})),
  552. list(in:greenPeachAphidBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  553. dpath(dTemp,.pests\:dlist/dset[10].beneficials_name_two),
  554. lo(3,visible:${notEmpty(levelGreenPeachAphidBeneficial)})
  555. ),
  556. lbl(#Beneficial_levels,lo(2,visible:${greenPeachAphidBeneficialTwo!='Please select beneficial'})),
  557. ci(single,levelGreenPeachAphidBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${greenPeachAphidBeneficialTwo!='Please select beneficial'}),
  558. dpath(dTemp, .pests\:dlist/dset[10].beneficials_level_two),
  559. opt(1, '1 '),
  560. opt(2, '2 '),
  561. opt(3, '3 '),
  562. opt(4, '4 '),
  563. opt(5, '5')),
  564.  
  565. // Melon and cotton aphid
  566. lMelonAndCottonAphid:lbl(${res("Melon_and_cotton_aphid")},lo(4,m(1,0,0,0),style:caption)),
  567. btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  568. set(.dsetName,${'dsMelonAndCottonAphid'},dTemp),
  569. set(.lblName,${'lMelonAndCottonAphid'},dTemp),
  570. goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  571. ci(single,melonAndCottonAphid,no,cols:5, lo(1, m(4, 40, 0, 0)),
  572. dpath(dTemp, .pests\:dlist/dset[11].level),
  573. opt(1, '1 '),
  574. opt(2, '2 '),
  575. opt(3, '3 '),
  576. opt(4, '4 '),
  577. opt(5, '5')),
  578. lbl(#Pest_spread,lo(2)),
  579. list(in:melonAndCottonAphidSpread,req:false,data:ldPestSpread,sort:no,
  580. dpath(dTemp,.pests\:dlist/dset[11].spread),
  581. lo(3)
  582. ),
  583. lbl(#Select_Beneficial,lo(2)),
  584. list(in:melonAndCottonAphidBeneficial,req:false,data:ldBeneficials,sort:no,
  585. dpath(dTemp,.pests\:dlist/dset[11].beneficials_name),
  586. lo(3)
  587. ),
  588. lbl(#Beneficial_levels,lo(2,visible:${melonAndCottonAphidBeneficial!='Please select beneficial'})),
  589. ci(single,levelMelonAndCottonAphidBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${melonAndCottonAphidBeneficial!='Please select beneficial'}),
  590. dpath(dTemp, .pests\:dlist/dset[11].beneficials_level),
  591. opt(1, '1 '),
  592. opt(2, '2 '),
  593. opt(3, '3 '),
  594. opt(4, '4 '),
  595. opt(5, '5')),
  596. lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelMelonAndCottonAphidBeneficial)})),
  597. list(in:melonAndCottonAphidBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  598. dpath(dTemp,.pests\:dlist/dset[11].beneficials_name_two),
  599. lo(3,visible:${notEmpty(levelMelonAndCottonAphidBeneficial)})
  600. ),
  601. lbl(#Beneficial_levels,lo(2,visible:${melonAndCottonAphidBeneficialTwo!='Please select beneficial'})),
  602. ci(single,levelMelonAndCottonAphidBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${melonAndCottonAphidBeneficialTwo!='Please select beneficial'}),
  603. dpath(dTemp, .pests\:dlist/dset[11].beneficials_level_two),
  604. opt(1, '1 '),
  605. opt(2, '2 '),
  606. opt(3, '3 '),
  607. opt(4, '4 '),
  608. opt(5, '5')),
  609.  
  610. // Black bean aphid
  611. lBlackBeanAphid:lbl(${res("Black_bean_aphid")},lo(4,m(1,0,0,0),style:caption)),
  612. btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  613. set(.dsetName,${'dsBlackBeanAphid'},dTemp),
  614. set(.lblName,${'lBlackBeanAphid'},dTemp),
  615. goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  616. ci(single,blackBeanAphid,no,cols:5, lo(1, m(4, 40, 0, 0)),
  617. dpath(dTemp, .pests\:dlist/dset[12].level),
  618. opt(1, '1 '),
  619. opt(2, '2 '),
  620. opt(3, '3 '),
  621. opt(4, '4 '),
  622. opt(5, '5')),
  623. lbl(#Pest_spread,lo(2)),
  624. list(in:blackBeanAphidSpread,req:false,data:ldPestSpread,sort:no,
  625. dpath(dTemp,.pests\:dlist/dset[12].spread),
  626. lo(3)
  627. ),
  628. lbl(#Select_Beneficial,lo(2)),
  629. list(in:blackBeanAphidBeneficial,req:false,data:ldBeneficials,sort:no,
  630. dpath(dTemp,.pests\:dlist/dset[12].beneficials_name),
  631. lo(3)
  632. ),
  633. lbl(#Beneficial_levels,lo(2,visible:${blackBeanAphidBeneficial!='Please select beneficial'})),
  634. ci(single,levelBlackBeanAphidBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${blackBeanAphidBeneficial!='Please select beneficial'}),
  635. dpath(dTemp, .pests\:dlist/dset[12].beneficials_level),
  636. opt(1, '1 '),
  637. opt(2, '2 '),
  638. opt(3, '3 '),
  639. opt(4, '4 '),
  640. opt(5, '5')),
  641. lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelBlackBeanAphidBeneficial)})),
  642. list(in:blackBeanAphidBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  643. dpath(dTemp,.pests\:dlist/dset[12].beneficials_name_two),
  644. lo(3,visible:${notEmpty(levelBlackBeanAphidBeneficial)})
  645. ),
  646. lbl(#Beneficial_levels,lo(2,visible:${blackBeanAphidBeneficialTwo!='Please select beneficial'})),
  647. ci(single,levelBlackBeanAphidBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${blackBeanAphidBeneficialTwo!='Please select beneficial'}),
  648. dpath(dTemp, .pests\:dlist/dset[12].beneficials_level_two),
  649. opt(1, '1 '),
  650. opt(2, '2 '),
  651. opt(3, '3 '),
  652. opt(4, '4 '),
  653. opt(5, '5')),
  654.  
  655. // Tobacco aphid
  656. lTobaccoAphid:lbl(${res("Tobacco_aphid")},lo(4,m(1,0,0,0),style:caption)),
  657. btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  658. set(.dsetName,${'dsTobaccoAphid'},dTemp),
  659. set(.lblName,${'lTobaccoAphid'},dTemp),
  660. goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  661. ci(single,tobaccoAphid,no,cols:5, lo(1, m(4, 40, 0, 0)),
  662. dpath(dTemp, .pests\:dlist/dset[13].level),
  663. opt(1, '1 '),
  664. opt(2, '2 '),
  665. opt(3, '3 '),
  666. opt(4, '4 '),
  667. opt(5, '5')),
  668. lbl(#Pest_spread,lo(2)),
  669. list(in:tobaccoAphidSpread,req:false,data:ldPestSpread,sort:no,
  670. dpath(dTemp,.pests\:dlist/dset[13].spread),
  671. lo(3)
  672. ),
  673. lbl(#Select_Beneficial,lo(2)),
  674. list(in:tobaccoAphidBeneficial,req:false,data:ldBeneficials,sort:no,
  675. dpath(dTemp,.pests\:dlist/dset[13].beneficials_name),
  676. lo(3)
  677. ),
  678. lbl(#Beneficial_levels,lo(2,visible:${tobaccoAphidBeneficial!='Please select beneficial'})),
  679. ci(single,levelTobaccoAphidBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${tobaccoAphidBeneficial!='Please select beneficial'}),
  680. dpath(dTemp, .pests\:dlist/dset[13].beneficials_level),
  681. opt(1, '1 '),
  682. opt(2, '2 '),
  683. opt(3, '3 '),
  684. opt(4, '4 '),
  685. opt(5, '5')),
  686. lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelTobaccoAphidBeneficial)})),
  687. list(in:tobaccoAphidBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  688. dpath(dTemp,.pests\:dlist/dset[13].beneficials_name_two),
  689. lo(3,visible:${notEmpty(levelTobaccoAphidBeneficial)})
  690. ),
  691. lbl(#Beneficial_levels,lo(2,visible:${tobaccoAphidBeneficialTwo!='Please select beneficial'})),
  692. ci(single,levelTobaccoAphidBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${tobaccoAphidBeneficialTwo!='Please select beneficial'}),
  693. dpath(dTemp, .pests\:dlist/dset[13].beneficials_level_two),
  694. opt(1, '1 '),
  695. opt(2, '2 '),
  696. opt(3, '3 '),
  697. opt(4, '4 '),
  698. opt(5, '5')),
  699.  
  700. // Tobacco white fly
  701. lTobaccoWhitefly:lbl(${res("Tobacco_whitefly")},lo(4,m(1,0,0,0),style:caption)),
  702. btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  703. set(.dsetName,${'dsTobaccoWhitefly'},dTemp),
  704. set(.lblName,${'lTobaccoWhitefly'},dTemp),
  705. goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  706. ci(single,tobaccoWhitefly,no,cols:5, lo(1, m(4, 40, 0, 0)),
  707. dpath(dTemp, .pests\:dlist/dset[14].level),
  708. opt(1, '1 '),
  709. opt(2, '2 '),
  710. opt(3, '3 '),
  711. opt(4, '4 '),
  712. opt(5, '5')),
  713. lbl(#Pest_spread,lo(2)),
  714. list(in:tobaccoWhiteFlySpread,req:false,data:ldPestSpread,sort:no,
  715. dpath(dTemp,.pests\:dlist/dset[14].spread),
  716. lo(3)
  717. ),
  718. lbl(#Select_Beneficial,lo(2)),
  719. list(in:tobaccoWhiteFlyBeneficial,req:false,data:ldBeneficials,sort:no,
  720. dpath(dTemp,.pests\:dlist/dset[14].beneficials_name),
  721. lo(3)
  722. ),
  723. lbl(#Beneficial_levels,lo(2,visible:${tobaccoWhiteFlyBeneficial!='Please select beneficial'})),
  724. ci(single,levelTobaccoWhiteFlyBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${tobaccoWhiteFlyBeneficial!='Please select beneficial'}),
  725. dpath(dTemp, .pests\:dlist/dset[14].beneficials_level),
  726. opt(1, '1 '),
  727. opt(2, '2 '),
  728. opt(3, '3 '),
  729. opt(4, '4 '),
  730. opt(5, '5')),
  731. lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelTobaccoWhiteFlyBeneficial)})),
  732. list(in:tobaccoWhiteFlyBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  733. dpath(dTemp,.pests\:dlist/dset[14].beneficials_name_two),
  734. lo(3,visible:${notEmpty(levelTobaccoWhiteFlyBeneficial)})
  735. ),
  736. lbl(#Beneficial_levels,lo(2,visible:${tobaccoWhiteFlyBeneficialTwo!='Please select beneficial'})),
  737. ci(single,levelTobaccoWhiteFlyBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${tobaccoWhiteFlyBeneficialTwo!='Please select beneficial'}),
  738. dpath(dTemp, .pests\:dlist/dset[14].beneficials_level_two),
  739. opt(1, '1 '),
  740. opt(2, '2 '),
  741. opt(3, '3 '),
  742. opt(4, '4 '),
  743. opt(5, '5')),
  744.  
  745. // Solanum mealybug
  746. lSolanumMealybug:lbl(${res("Solanum_mealybug")},lo(4,m(1,0,0,0),style:caption)),
  747. btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  748. set(.dsetName,${'dsSolanumMealybug'},dTemp),
  749. set(.lblName,${'lSolanumMealybug'},dTemp),
  750. goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  751. ci(single,solanumMealybug,no,cols:5, lo(1, m(4, 40, 0, 0)),
  752. dpath(dTemp, .pests\:dlist/dset[15].level),
  753. opt(1, '1 '),
  754. opt(2, '2 '),
  755. opt(3, '3 '),
  756. opt(4, '4 '),
  757. opt(5, '5')),
  758. lbl(#Pest_spread,lo(2)),
  759. list(in:solanumMealybugSpread,req:false,data:ldPestSpread,sort:no,
  760. dpath(dTemp,.pests\:dlist/dset[15].spread),
  761. lo(3)
  762. ),
  763. lbl(#Select_Beneficial,lo(2)),
  764. list(in:solanumMealybugBeneficial,req:false,data:ldBeneficials,sort:no,
  765. dpath(dTemp,.pests\:dlist/dset[15].beneficials_name),
  766. lo(3)
  767. ),
  768. lbl(#Beneficial_levels,lo(2,visible:${solanumMealybugBeneficial!='Please select beneficial'})),
  769. ci(single,levelSolanumMealybugBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${solanumMealybugBeneficial!='Please select beneficial'}),
  770. dpath(dTemp, .pests\:dlist/dset[15].beneficials_level),
  771. opt(1, '1 '),
  772. opt(2, '2 '),
  773. opt(3, '3 '),
  774. opt(4, '4 '),
  775. opt(5, '5')),
  776. lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelSolanumMealybugBeneficial)})),
  777. list(in:solanumMealybugBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  778. dpath(dTemp,.pests\:dlist/dset[15].beneficials_name_two),
  779. lo(3,visible:${notEmpty(levelSolanumMealybugBeneficial)})
  780. ),
  781. lbl(#Beneficial_levels,lo(2,visible:${solanumMealybugBeneficialTwo!='Please select beneficial'})),
  782. ci(single,levelSolanumMealybugBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${solanumMealybugBeneficialTwo!='Please select beneficial'}),
  783. dpath(dTemp, .pests\:dlist/dset[15].beneficials_level_two),
  784. opt(1, '1 '),
  785. opt(2, '2 '),
  786. opt(3, '3 '),
  787. opt(4, '4 '),
  788. opt(5, '5')),
  789.  
  790. // Cotton mealybug
  791. lCottonMealybug:lbl(${res("Cotton_mealybug")},lo(4,m(1,0,0,0),style:caption)),
  792. btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  793. set(.dsetName,${'dsCottonMealybug'},dTemp),
  794. set(.lblName,${'lCottonMealybug'},dTemp),
  795. goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  796. ci(single,cottonMealybug,no,cols:5, lo(1, m(4, 40, 0, 0)),
  797. dpath(dTemp, .pests\:dlist/dset[16].level),
  798. opt(1, '1 '),
  799. opt(2, '2 '),
  800. opt(3, '3 '),
  801. opt(4, '4 '),
  802. opt(5, '5')),
  803. lbl(#Pest_spread,lo(2)),
  804. list(in:cottonMealybugSpread,req:false,data:ldPestSpread,sort:no,
  805. dpath(dTemp,.pests\:dlist/dset[16].spread),
  806. lo(3)
  807. ),
  808. lbl(#Select_Beneficial,lo(2)),
  809. list(in:cottonMealybugBeneficial,req:false,data:ldBeneficials,sort:no,
  810. dpath(dTemp,.pests\:dlist/dset[16].beneficials_name),
  811. lo(3)
  812. ),
  813. lbl(#Beneficial_levels,lo(2,visible:${cottonMealybugBeneficial!='Please select beneficial'})),
  814. ci(single,levelCottonMealybugBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${cottonMealybugBeneficial!='Please select beneficial'}),
  815. dpath(dTemp, .pests\:dlist/dset[16].beneficials_level),
  816. opt(1, '1 '),
  817. opt(2, '2 '),
  818. opt(3, '3 '),
  819. opt(4, '4 '),
  820. opt(5, '5')),
  821. lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelCottonMealybugBeneficial)})),
  822. list(in:cottonMealybugBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  823. dpath(dTemp,.pests\:dlist/dset[16].beneficials_name_two),
  824. lo(3,visible:${notEmpty(levelCottonMealybugBeneficial)})
  825. ),
  826. lbl(#Beneficial_levels,lo(2,visible:${cottonMealybugBeneficialTwo!='Please select beneficial'})),
  827. ci(single,levelCottonMealybugBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${cottonMealybugBeneficialTwo!='Please select beneficial'}),
  828. dpath(dTemp, .pests\:dlist/dset[16].beneficials_level_two),
  829. opt(1, '1 '),
  830. opt(2, '2 '),
  831. opt(3, '3 '),
  832. opt(4, '4 '),
  833. opt(5, '5')),
  834.  
  835. // Cotton root knot nematode
  836. lCottonRootKnotNematode:lbl(${res("Cotton_root%2Dknot_nematode")},lo(4,m(1,0,0,0),style:caption)),
  837. btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  838. set(.dsetName,${'dsCottonRootKnotNematode'},dTemp),
  839. set(.lblName,${'lCottonRootKnotNematode'},dTemp),
  840. goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  841. ci(single,cottonRootKnotNematode,no,cols:5, lo(1, m(4, 40, 0, 0)),
  842. dpath(dTemp, .pests\:dlist/dset[17].level),
  843. opt(1, '1 '),
  844. opt(2, '2 '),
  845. opt(3, '3 '),
  846. opt(4, '4 '),
  847. opt(5, '5')),
  848. lbl(#Pest_spread,lo(2)),
  849. list(in:cottonRootKnotNematodeSpread,req:false,data:ldPestSpread,sort:no,
  850. dpath(dTemp,.pests\:dlist/dset[17].spread),
  851. lo(3)
  852. ),
  853. lbl(#Select_Beneficial,lo(2)),
  854. list(in:cottonRootKnotNematodeBeneficial,req:false,data:ldBeneficials,sort:no,
  855. dpath(dTemp,.pests\:dlist/dset[17].beneficials_name),
  856. lo(3)
  857. ),
  858. lbl(#Beneficial_levels,lo(2,visible:${cottonRootKnotNematodeBeneficial!='Please select beneficial'})),
  859. ci(single,levelCottonRootKnotNematodeBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${cottonRootKnotNematodeBeneficial!='Please select beneficial'}),
  860. dpath(dTemp, .pests\:dlist/dset[17].beneficials_level),
  861. opt(1, '1 '),
  862. opt(2, '2 '),
  863. opt(3, '3 '),
  864. opt(4, '4 '),
  865. opt(5, '5')),
  866. lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelCottonRootKnotNematodeBeneficial)})),
  867. list(in:cottonRootKnotNematodeBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  868. dpath(dTemp,.pests\:dlist/dset[17].beneficials_name_two),
  869. lo(3,visible:${notEmpty(levelCottonRootKnotNematodeBeneficial)})
  870. ),
  871. lbl(#Beneficial_levels,lo(2,visible:${cottonRootKnotNematodeBeneficialTwo!='Please select beneficial'})),
  872. ci(single,levelCottonRootKnotNematodeBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${cottonRootKnotNematodeBeneficialTwo!='Please select beneficial'}),
  873. dpath(dTemp, .pests\:dlist/dset[17].beneficials_level_two),
  874. opt(1, '1 '),
  875. opt(2, '2 '),
  876. opt(3, '3 '),
  877. opt(4, '4 '),
  878. opt(5, '5')),
  879.  
  880. // Ants
  881. lAnts:lbl(${res("Ants")},lo(4,m(1,0,0,0),style:caption)),
  882. btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  883. set(.dsetName,${'dsAnts'},dTemp),
  884. set(.lblName,${'lAnts'},dTemp),
  885. goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  886. ci(single,ants,no,cols:5, lo(1, m(4, 40, 0, 0)),
  887. dpath(dTemp, .pests\:dlist/dset[18].level),
  888. opt(1, '1 '),
  889. opt(2, '2 '),
  890. opt(3, '3 '),
  891. opt(4, '4 '),
  892. opt(5, '5')),
  893. lbl(#Pest_spread,lo(2)),
  894. list(in:antsSpread,req:false,data:ldPestSpread,sort:no,
  895. dpath(dTemp,.pests\:dlist/dset[18].spread),
  896. lo(3)
  897. ),
  898. lbl(#Select_Beneficial,lo(2)),
  899. list(in:antsBeneficial,req:false,data:ldBeneficials,sort:no,
  900. dpath(dTemp,.pests\:dlist/dset[18].beneficials_name),
  901. lo(3)
  902. ),
  903. lbl(#Beneficial_levels,lo(2,visible:${antsBeneficial!='Please select beneficial'})),
  904. ci(single,levelAntsBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${antsBeneficial!='Please select beneficial'}),
  905. dpath(dTemp, .pests\:dlist/dset[18].beneficials_level),
  906. opt(1, '1 '),
  907. opt(2, '2 '),
  908. opt(3, '3 '),
  909. opt(4, '4 '),
  910. opt(5, '5')),
  911. lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelAntsBeneficial)})),
  912. list(in:antsBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  913. dpath(dTemp,.pests\:dlist/dset[18].beneficials_name_two),
  914. lo(3,visible:${notEmpty(levelAntsBeneficial)})
  915. ),
  916. lbl(#Beneficial_levels,lo(2,visible:${antsBeneficialTwo!='Please select beneficial'})),
  917. ci(single,levelAntsBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${antsBeneficialTwo!='Please select beneficial'}),
  918. dpath(dTemp, .pests\:dlist/dset[18].beneficials_level_two),
  919. opt(1, '1 '),
  920. opt(2, '2 '),
  921. opt(3, '3 '),
  922. opt(4, '4 '),
  923. opt(5, '5')),
  924.  
  925. // Herbarium
  926. lHerbarium:lbl(${res("Herbarium")},lo(4,m(1,0,0,0),style:caption)),
  927. btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  928. set(.dsetName,${'dsHerbarium'},dTemp),
  929. set(.lblName,${'lHerbarium'},dTemp),
  930. goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  931. ci(single,herbarium,no,cols:5, lo(1, m(4, 40, 0, 0)),
  932. dpath(dTemp, .pests\:dlist/dset[19].level),
  933. opt(1, '1 '),
  934. opt(2, '2 '),
  935. opt(3, '3 '),
  936. opt(4, '4 '),
  937. opt(5, '5')),
  938. lbl(#Pest_spread,lo(2)),
  939. list(in:herbariumSpread,req:false,data:ldPestSpread,sort:no,
  940. dpath(dTemp,.pests\:dlist/dset[19].spread),
  941. lo(3)
  942. ),
  943. lbl(#Select_Beneficial,lo(2)),
  944. list(in:herbariumBeneficial,req:false,data:ldBeneficials,sort:no,
  945. dpath(dTemp,.pests\:dlist/dset[19].beneficials_name),
  946. lo(3)
  947. ),
  948. lbl(#Beneficial_levels,lo(2,visible:${herbariumBeneficial!='Please select beneficial'})),
  949. ci(single,levelHerbariumBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${herbariumBeneficial!='Please select beneficial'}),
  950. dpath(dTemp, .pests\:dlist/dset[19].beneficials_level),
  951. opt(1, '1 '),
  952. opt(2, '2 '),
  953. opt(3, '3 '),
  954. opt(4, '4 '),
  955. opt(5, '5')),
  956. lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelHerbariumBeneficial)})),
  957. list(in:herbariumBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  958. dpath(dTemp,.pests\:dlist/dset[19].beneficials_name_two),
  959. lo(3,visible:${notEmpty(levelHerbariumBeneficial)})
  960. ),
  961. lbl(#Beneficial_levels,lo(2,visible:${herbariumBeneficialTwo!='Please select beneficial'})),
  962. ci(single,levelHerbariumBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${herbariumBeneficialTwo!='Please select beneficial'}),
  963. dpath(dTemp, .pests\:dlist/dset[19].beneficials_level_two),
  964. opt(1, '1 '),
  965. opt(2, '2 '),
  966. opt(3, '3 '),
  967. opt(4, '4 '),
  968. opt(5, '5')),
  969.  
  970. // False Codling Moth
  971. lFalseCodlingMoth:lbl(${res("False_codling_moth")},lo(4,m(1,0,0,0),style:caption)),
  972. btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  973. set(.dsetName,${'dsFalseCodlingMoth'},dTemp),
  974. set(.lblName,${'lFalseCodlingMoth'},dTemp),
  975. goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  976. ci(single,falseCodlingMoth,no,cols:5, lo(1, m(4, 40, 0, 0)),
  977. dpath(dTemp, .pests\:dlist/dset[20].level),
  978. opt(1, '1 '),
  979. opt(2, '2 '),
  980. opt(3, '3 '),
  981. opt(4, '4 '),
  982. opt(5, '5')),
  983. lbl(#Pest_spread,lo(2)),
  984. list(in:falseCodlingMothSpread,req:false,data:ldPestSpread,sort:no,
  985. dpath(dTemp,.pests\:dlist/dset[20].spread),
  986. lo(3)
  987. ),
  988. lbl(#Select_Beneficial,lo(2)),
  989. list(in:falseCpdlingMothBeneficial,req:false,data:ldBeneficials,sort:no,
  990. dpath(dTemp,.pests\:dlist/dset[20].beneficials_name),
  991. lo(3)
  992. ),
  993. lbl(#Beneficial_levels,lo(2,visible:${falseCpdlingMothBeneficial!='Please select beneficial'})),
  994. ci(single,levelFalseCpdlingMothBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${falseCpdlingMothBeneficial!='Please select beneficial'}),
  995. dpath(dTemp, .pests\:dlist/dset[20].beneficials_level),
  996. opt(1, '1 '),
  997. opt(2, '2 '),
  998. opt(3, '3 '),
  999. opt(4, '4 '),
  1000. opt(5, '5')),
  1001. lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelFalseCpdlingMothBeneficial)})),
  1002. list(in:falseCpdlingMothBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  1003. dpath(dTemp,.pests\:dlist/dset[20].beneficials_name_two),
  1004. lo(3,visible:${notEmpty(levelFalseCpdlingMothBeneficial)})
  1005. ),
  1006. lbl(#Beneficial_levels,lo(2,visible:${falseCpdlingMothBeneficialTwo!='Please select beneficial'})),
  1007. ci(single,levelFalseCpdlingMothBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${falseCpdlingMothBeneficialTwo!='Please select beneficial'}),
  1008. dpath(dTemp, .pests\:dlist/dset[20].beneficials_level_two),
  1009. opt(1, '1 '),
  1010. opt(2, '2 '),
  1011. opt(3, '3 '),
  1012. opt(4, '4 '),
  1013. opt(5, '5')),
  1014.  
  1015. // Pythium
  1016. lPythium:lbl(${res("Pythium")},lo(4,m(1,0,0,0),style:caption)),
  1017. btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  1018. set(.dsetName,${'dsPythium'},dTemp),
  1019. set(.lblName,${'lPythium'},dTemp),
  1020. goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  1021. ci(single,pythium,no,cols:5, lo(1, m(4, 40, 0, 0)),
  1022. dpath(dTemp, .pests\:dlist/dset[21].level),
  1023. opt(1, '1 '),
  1024. opt(2, '2 '),
  1025. opt(3, '3 '),
  1026. opt(4, '4 '),
  1027. opt(5, '5')),lbl(#Pest_spread,lo(2)),
  1028. list(in:pythiumSpread,req:false,data:ldPestSpread,sort:no,
  1029. dpath(dTemp,.pests\:dlist/dset[21].spread),
  1030. lo(3)
  1031. ),
  1032. lbl(#Select_Beneficial,lo(2)),
  1033. list(in:pythiumBeneficial,req:false,data:ldBeneficials,sort:no,
  1034. dpath(dTemp,.pests\:dlist/dset[21].beneficials_name),
  1035. lo(3)
  1036. ),
  1037. lbl(#Beneficial_levels,lo(2,visible:${pythiumBeneficial!='Please select beneficial'})),
  1038. ci(single,levelPythiumBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${pythiumBeneficial!='Please select beneficial'}),
  1039. dpath(dTemp, .pests\:dlist/dset[21].beneficials_level),
  1040. opt(1, '1 '),
  1041. opt(2, '2 '),
  1042. opt(3, '3 '),
  1043. opt(4, '4 '),
  1044. opt(5, '5')),
  1045. lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelPythiumBeneficial)})),
  1046. list(in:pythiumBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  1047. dpath(dTemp,.pests\:dlist/dset[21].beneficials_name_two),
  1048. lo(3,visible:${notEmpty(levelPythiumBeneficial)})
  1049. ),
  1050. lbl(#Beneficial_levels,lo(2,visible:${pythiumBeneficialTwo!='Please select beneficial'})),
  1051. ci(single,levelPythiumBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${pythiumBeneficialTwo!='Please select beneficial'}),
  1052. dpath(dTemp, .pests\:dlist/dset[21].beneficials_level_two),
  1053. opt(1, '1 '),
  1054. opt(2, '2 '),
  1055. opt(3, '3 '),
  1056. opt(4, '4 '),
  1057. opt(5, '5')),
  1058.  
  1059. // Ovulariopsis
  1060. lOvulariopsis:lbl(${res("Ovulariopsis")},lo(4,m(1,0,0,0),style:caption)),
  1061. btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  1062. set(.dsetName,${'dsOvulariopsis'},dTemp),
  1063. set(.lblName,${'lOvulariopsis'},dTemp),
  1064. goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  1065. ci(single,ovulariopsis,no,cols:5, lo(1, m(4, 40, 0, 0)),
  1066. dpath(dTemp, .pests\:dlist/dset[22].level),
  1067. opt(1, '1 '),
  1068. opt(2, '2 '),
  1069. opt(3, '3 '),
  1070. opt(4, '4 '),
  1071. opt(5, '5')),
  1072. lbl(#Pest_spread,lo(2)),
  1073. list(in:ovulariopsisSpread,req:false,data:ldPestSpread,sort:no,
  1074. dpath(dTemp,.pests\:dlist/dset[22].spread),
  1075. lo(3)
  1076. ),
  1077. lbl(#Select_Beneficial,lo(2)),
  1078. list(in:ovulariopsisBeneficial,req:false,data:ldBeneficials,sort:no,
  1079. dpath(dTemp,.pests\:dlist/dset[22].beneficials_name),
  1080. lo(3)
  1081. ),
  1082. lbl(#Beneficial_levels,lo(2,visible:${ovulariopsisBeneficial!='Please select beneficial'})),
  1083. ci(single,levelOvulariopsisBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${ovulariopsisBeneficial!='Please select beneficial'}),
  1084. dpath(dTemp, .pests\:dlist/dset[22].beneficials_level),
  1085. opt(1, '1 '),
  1086. opt(2, '2 '),
  1087. opt(3, '3 '),
  1088. opt(4, '4 '),
  1089. opt(5, '5')),
  1090. lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelOvulariopsisBeneficial)})),
  1091. list(in:ovulariopsisBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  1092. dpath(dTemp,.pests\:dlist/dset[22].beneficials_name_two),
  1093. lo(3,visible:${notEmpty(levelOvulariopsisBeneficial)})
  1094. ),
  1095. lbl(#Beneficial_levels,lo(2,visible:${ovulariopsisBeneficialTwo!='Please select beneficial'})),
  1096. ci(single,levelOvulariopsisBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${ovulariopsisBeneficialTwo!='Please select beneficial'}),
  1097. dpath(dTemp, .pests\:dlist/dset[22].beneficials_level_two),
  1098. opt(1, '1 '),
  1099. opt(2, '2 '),
  1100. opt(3, '3 '),
  1101. opt(4, '4 '),
  1102. opt(5, '5')),
  1103.  
  1104. // Cottony rot
  1105. lCottonyRot:lbl(${res("Cottony_rot")},lo(4,m(1,0,0,0),style:caption)),
  1106. btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  1107. set(.dsetName,${'dsCottonyRot'},dTemp),
  1108. set(.lblName,${'lCottonyRot'},dTemp),
  1109. goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  1110. ci(single,cottonyRot,no,cols:5, lo(1, m(4, 40, 0, 0)),
  1111. dpath(dTemp, .pests\:dlist/dset[23].level),
  1112. opt(1, '1 '),
  1113. opt(2, '2 '),
  1114. opt(3, '3 '),
  1115. opt(4, '4 '),
  1116. opt(5, '5')),
  1117. lbl(#Pest_spread,lo(2)),
  1118. list(in:cottonyRotSpread,req:false,data:ldPestSpread,sort:no,
  1119. dpath(dTemp,.pests\:dlist/dset[23].spread),
  1120. lo(3)
  1121. ),
  1122. lbl(#Select_Beneficial,lo(2)),
  1123. list(in:cottonyRotBeneficial,req:false,data:ldBeneficials,sort:no,
  1124. dpath(dTemp,.pests\:dlist/dset[23].beneficials_name),
  1125. lo(3)
  1126. ),
  1127. lbl(#Beneficial_levels,lo(2,visible:${cottonyRotBeneficial!='Please select beneficial'})),
  1128. ci(single,levelCottonyRotBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${cottonyRotBeneficial!='Please select beneficial'}),
  1129. dpath(dTemp, .pests\:dlist/dset[23].beneficials_level),
  1130. opt(1, '1 '),
  1131. opt(2, '2 '),
  1132. opt(3, '3 '),
  1133. opt(4, '4 '),
  1134. opt(5, '5')),
  1135. lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelCottonyRotBeneficial)})),
  1136. list(in:cottonyRotBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  1137. dpath(dTemp,.pests\:dlist/dset[23].beneficials_name_two),
  1138. lo(3,visible:${notEmpty(levelCottonyRotBeneficial)})
  1139. ),
  1140. lbl(#Beneficial_levels,lo(2,visible:${cottonyRotBeneficialTwo!='Please select beneficial'})),
  1141. ci(single,levelCottonyRotBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${cottonyRotBeneficialTwo!='Please select beneficial'}),
  1142. dpath(dTemp, .pests\:dlist/dset[23].beneficials_level_two),
  1143. opt(1, '1 '),
  1144. opt(2, '2 '),
  1145. opt(3, '3 '),
  1146. opt(4, '4 '),
  1147. opt(5, '5')),
  1148.  
  1149. // Tobacco thrips
  1150. lTobaccoThrips:lbl(${res("Tobacco_thrips")},lo(4,m(1,0,0,0),style:caption)),
  1151. btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  1152. set(.dsetName,${'dsTobaccoThrips'},dTemp),
  1153. set(.lblName,${'lTobaccoThrips'},dTemp),
  1154. goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  1155. ci(single,tobaccoThrips,no,cols:5, lo(1, m(4, 40, 0, 0)),
  1156. dpath(dTemp, .pests\:dlist/dset[24].level),
  1157. opt(1, '1 '),
  1158. opt(2, '2 '),
  1159. opt(3, '3 '),
  1160. opt(4, '4 '),
  1161. opt(5, '5')),
  1162. lbl(#Pest_spread,lo(2)),
  1163. list(in:tobaccoThripsSpread,req:false,data:ldPestSpread,sort:no,
  1164. dpath(dTemp,.pests\:dlist/dset[24].spread),
  1165. lo(3)
  1166. ),
  1167. lbl(#Select_Beneficial,lo(2)),
  1168. list(in:tobaccoThripsBeneficial,req:false,data:ldBeneficials,sort:no,
  1169. dpath(dTemp,.pests\:dlist/dset[24].beneficials_name),
  1170. lo(3)
  1171. ),
  1172. lbl(#Beneficial_levels,lo(2,visible:${tobaccoThripsBeneficial!='Please select beneficial'})),
  1173. ci(single,levelTobaccoThripsBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${tobaccoThripsBeneficial!='Please select beneficial'}),
  1174. dpath(dTemp, .pests\:dlist/dset[24].beneficials_level),
  1175. opt(1, '1 '),
  1176. opt(2, '2 '),
  1177. opt(3, '3 '),
  1178. opt(4, '4 '),
  1179. opt(5, '5')),
  1180. lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelTobaccoThripsBeneficial)})),
  1181. list(in:tobaccoThripsBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  1182. dpath(dTemp,.pests\:dlist/dset[24].beneficials_name_two),
  1183. lo(3,visible:${notEmpty(levelTobaccoThripsBeneficial)})
  1184. ),
  1185. lbl(#Beneficial_levels,lo(2,visible:${tobaccoThripsBeneficialTwo!='Please select beneficial'})),
  1186. ci(single,levelTobaccoThripsBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${tobaccoThripsBeneficialTwo!='Please select beneficial'}),
  1187. dpath(dTemp, .pests\:dlist/dset[24].beneficials_level_two),
  1188. opt(1, '1 '),
  1189. opt(2, '2 '),
  1190. opt(3, '3 '),
  1191. opt(4, '4 '),
  1192. opt(5, '5')),
  1193.  
  1194. // Western flower thrips
  1195. lWesternFlowerThrips:lbl(${res("Western_flower_thrips")},lo(4,m(1,0,0,0),style:caption)),
  1196. btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  1197. set(.dsetName,${'dsWesternFlowerThrips'},dTemp),
  1198. set(.lblName,${'lWesternFlowerThrips'},dTemp),
  1199. goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  1200. ci(single,westernFlowerThrips,no,cols:5, lo(1, m(4, 40, 0, 0)),
  1201. dpath(dTemp, .pests\:dlist/dset[25].level),
  1202. opt(1, '1 '),
  1203. opt(2, '2 '),
  1204. opt(3, '3 '),
  1205. opt(4, '4 '),
  1206. opt(5, '5')),
  1207. lbl(#Pest_spread,lo(2)),
  1208. list(in:westernFlowerThripsSpread,req:false,data:ldPestSpread,sort:no,
  1209. dpath(dTemp,.pests\:dlist/dset[25].spread),
  1210. lo(3)
  1211. ),
  1212. lbl(#Select_Beneficial,lo(2)),
  1213. list(in:westernFlowerThripsBeneficial,req:false,data:ldBeneficials,sort:no,
  1214. dpath(dTemp,.pests\:dlist/dset[25].beneficials_name),
  1215. lo(3)
  1216. ),
  1217. lbl(#Beneficial_levels,lo(2,visible:${westernFlowerThripsBeneficial!='Please select beneficial'})),
  1218. ci(single,levelWesternFlowerThripsBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${westernFlowerThripsBeneficial!='Please select beneficial'}),
  1219. dpath(dTemp, .pests\:dlist/dset[25].beneficials_level),
  1220. opt(1, '1 '),
  1221. opt(2, '2 '),
  1222. opt(3, '3 '),
  1223. opt(4, '4 '),
  1224. opt(5, '5')),
  1225. lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelWesternFlowerThripsBeneficial)})),
  1226. list(in:westernFlowerThripsBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  1227. dpath(dTemp,.pests\:dlist/dset[25].beneficials_name_two),
  1228. lo(3,visible:${notEmpty(levelWesternFlowerThripsBeneficial)})
  1229. ),
  1230. lbl(#Beneficial_levels,lo(2,visible:${westernFlowerThripsBeneficialTwo!='Please select beneficial'})),
  1231. ci(single,levelWesternFlowerThripsBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${westernFlowerThripsBeneficialTwo!='Please select beneficial'}),
  1232. dpath(dTemp, .pests\:dlist/dset[25].beneficials_level_two),
  1233. opt(1, '1 '),
  1234. opt(2, '2 '),
  1235. opt(3, '3 '),
  1236. opt(4, '4 '),
  1237. opt(5, '5')),
  1238.  
  1239. // Chilli thrips
  1240. lChilliThrips:lbl(${res("Chilli_thrips")},lo(4,m(1,0,0,0),style:caption)),
  1241. btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  1242. set(.dsetName,${'dsChilliThrips'},dTemp),
  1243. set(.lblName,${'lChilliThrips'},dTemp),
  1244. goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  1245. ci(single,chilliThrips,no,cols:5, lo(1, m(4, 40, 0, 0)),
  1246. dpath(dTemp, .pests\:dlist/dset[26].level),
  1247. opt(1, '1 '),
  1248. opt(2, '2 '),
  1249. opt(3, '3 '),
  1250. opt(4, '4 '),
  1251. opt(5, '5')),
  1252. lbl(#Pest_spread,lo(2)),
  1253. list(in:chilliThripsSpread,req:false,data:ldPestSpread,sort:no,
  1254. dpath(dTemp,.pests\:dlist/dset[26].spread),
  1255. lo(3)
  1256. ),
  1257. lbl(#Select_Beneficial,lo(2)),
  1258. list(in:chilliThripsBeneficial,req:false,data:ldBeneficials,sort:no,
  1259. dpath(dTemp,.pests\:dlist/dset[26].beneficials_name),
  1260. lo(3)
  1261. ),
  1262. lbl(#Beneficial_levels,lo(2,visible:${chilliThripsBeneficial!='Please select beneficial'})),
  1263. ci(single,levelChilliThripsBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${chilliThripsBeneficial!='Please select beneficial'}),
  1264. dpath(dTemp, .pests\:dlist/dset[26].beneficials_level),
  1265. opt(1, '1 '),
  1266. opt(2, '2 '),
  1267. opt(3, '3 '),
  1268. opt(4, '4 '),
  1269. opt(5, '5')),
  1270. lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelChilliThripsBeneficial)})),
  1271. list(in:chilliThripsBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  1272. dpath(dTemp,.pests\:dlist/dset[26].beneficials_name_two),
  1273. lo(3,visible:${notEmpty(levelChilliThripsBeneficial)})
  1274. ),
  1275. lbl(#Beneficial_levels,lo(2,visible:${chilliThripsBeneficialTwo!='Please select beneficial'})),
  1276. ci(single,levelChilliThripsBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${chilliThripsBeneficialTwo!='Please select beneficial'}),
  1277. dpath(dTemp, .pests\:dlist/dset[26].beneficials_level_two),
  1278. opt(1, '1 '),
  1279. opt(2, '2 '),
  1280. opt(3, '3 '),
  1281. opt(4, '4 '),
  1282. opt(5, '5')),
  1283.  
  1284. // No pests
  1285. lNoPests:lbl(${res("No_pests")},lo(4,m(1,0,0,0),style:caption)),
  1286. btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  1287. set(.dsetName,${'dsNoPests'},dTemp),
  1288. set(.lblName,${'lNoPests'},dTemp),
  1289. goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  1290. ci(single,noPests,no,cols:5, lo(1, m(4, 40, 0, 0)),
  1291. dpath(dTemp, .pests\:dlist/dset[27].level),
  1292. opt(1, '1 '),
  1293. opt(2, '2 '),
  1294. opt(3, '3 '),
  1295. opt(4, '4 '),
  1296. opt(5, '5')),
  1297. lbl(#Pest_spread,lo(2)),
  1298. list(in:noPestsSpread,req:false,data:ldPestSpread,sort:no,
  1299. dpath(dTemp,.pests\:dlist/dset[27].spread),
  1300. lo(3)
  1301. ),
  1302. lbl(#Select_Beneficial,lo(2)),
  1303. list(in:noPestsBeneficial,req:false,data:ldBeneficials,sort:no,
  1304. dpath(dTemp,.pests\:dlist/dset[27].beneficials_name),
  1305. lo(3)
  1306. ),
  1307. lbl(#Beneficial_levels,lo(2,visible:${noPestsBeneficial!='Please select beneficial'})),
  1308. ci(single,levelNoPestsBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${noPestsBeneficial!='Please select beneficial'}),
  1309. dpath(dTemp, .pests\:dlist/dset[27].beneficials_level),
  1310. opt(1, '1 '),
  1311. opt(2, '2 '),
  1312. opt(3, '3 '),
  1313. opt(4, '4 '),
  1314. opt(5, '5')),
  1315. lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelNoPestsBeneficial)})),
  1316. list(in:noPestsBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  1317. dpath(dTemp,.pests\:dlist/dset[27].beneficials_name_two),
  1318. lo(3,visible:${notEmpty(levelNoPestsBeneficial)})
  1319. ),
  1320. lbl(#Beneficial_levels,lo(2,visible:${noPestsBeneficialTwo!='Please select beneficial'})),
  1321. ci(single,levelNoPestsBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${noPestsBeneficialTwo!='Please select beneficial'}),
  1322. dpath(dTemp, .pests\:dlist/dset[27].beneficials_level_two),
  1323. opt(1, '1 '),
  1324. opt(2, '2 '),
  1325. opt(3, '3 '),
  1326. opt(4, '4 '),
  1327. opt(5, '5')),
  1328.  
  1329. // Other
  1330. lOther:lbl(${res("Other")},lo(4,m(1,0,0,0),style:caption)),
  1331. btn(img:ic_note_add,lo(1,m(1,0,0,0),style:caption),call(na,rvr:no,block(
  1332. set(.dsetName,${'dsOther'},dTemp),
  1333. set(.lblName,${'lOther'},dTemp),
  1334. goto(scr,.def.sCFormCustomNotesAndPhotosScreenPestBeneficialsNew)))),
  1335. ci(single,other,no,cols:5, lo(1, m(4, 40, 0, 0)),
  1336. dpath(dTemp, .pests\:dlist/dset[28].level),
  1337. opt(1, '1 '),
  1338. opt(2, '2 '),
  1339. opt(3, '3 '),
  1340. opt(4, '4 '),
  1341. opt(5, '5')),
  1342. lbl(#Pest_spread,lo(2)),
  1343. list(in:otherSpread,req:false,data:ldPestSpread,sort:no,
  1344. dpath(dTemp,.pests\:dlist/dset[28].spread),
  1345. lo(3)
  1346. ),
  1347. lbl(#Select_Beneficial,lo(2)),
  1348. list(in:otherBeneficial,req:false,data:ldBeneficials,sort:no,
  1349. dpath(dTemp,.pests\:dlist/dset[28].beneficials_name),
  1350. lo(3)
  1351. ),
  1352. lbl(#Beneficial_levels,lo(2,visible:${otherBeneficial!='Please select beneficial'})),
  1353. ci(single,levelOtherBeneficial,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${otherBeneficial!='Please select beneficial'}),
  1354. dpath(dTemp, .pests\:dlist/dset[28].beneficials_level),
  1355. opt(1, '1 '),
  1356. opt(2, '2 '),
  1357. opt(3, '3 '),
  1358. opt(4, '4 '),
  1359. opt(5, '5')),
  1360. lbl(#Select_Beneficial,lo(2,visible:${notEmpty(levelOtherBeneficial)})),
  1361. list(in:otherBeneficialTwo,req:false,data:ldBeneficials,sort:no,
  1362. dpath(dTemp,.pests\:dlist/dset[28].beneficials_name_two),
  1363. lo(3,visible:${notEmpty(levelOtherBeneficial)})
  1364. ),
  1365. lbl(#Beneficial_levels,lo(2,visible:${otherBeneficialTwo!='Please select beneficial'})),
  1366. ci(single,levelOtherBeneficialTwo,no,cols:5, lo(1, m(4, 40, 0, 0),visible:${otherBeneficialTwo!='Please select beneficial'}),
  1367. dpath(dTemp, .pests\:dlist/dset[28].beneficials_level_two),
  1368. opt(1, '1 '),
  1369. opt(2, '2 '),
  1370. opt(3, '3 '),
  1371. opt(4, '4 '),
  1372. opt(5, '5')),
  1373.  
  1374. btn(#Review_report_before_sending,aln:center,pim:yes,lo(5,m(15,20,8,20)),call(na,block(
  1375. if(${qpc('.pests/dset.level','dTemp')<=0&&qpc('.beneficials/dset.level','dTemp')<=0},block(
  1376. alert(warn, #Please_report_at_least_one_pest_or_beneficial),
  1377. end()
  1378. )),
  1379. //.Setting.Pests.Names.English
  1380. if(${userLanguage=="en"}, block(
  1381. set(.pests\:dlist/dset[0].name, ${"Carmine spider mite"}, dTemp),
  1382. set(.pests\:dlist/dset[1].name, ${"Broad mite"}, dTemp),
  1383. set(.pests\:dlist/dset[2].name, ${"Gray mould"}, dTemp),
  1384. set(.pests\:dlist/dset[3].name, ${"TSWV"}, dTemp),
  1385. set(.pests\:dlist/dset[4].name, ${"PYLCV"}, dTemp),
  1386. set(.pests\:dlist/dset[5].name, ${"Fruit fly"}, dTemp),
  1387. set(.pests\:dlist/dset[6].name, ${"Mediterranean fruit fly"}, dTemp),
  1388. set(.pests\:dlist/dset[7].name, ${"Moth caterpillar"}, dTemp),
  1389. set(.pests\:dlist/dset[8].name, ${"Chilli gall midge"}, dTemp),
  1390. set(.pests\:dlist/dset[9].name, ${"Aphid"}, dTemp),
  1391. set(.pests\:dlist/dset[10].name, ${"Green peach aphid"}, dTemp),
  1392. set(.pests\:dlist/dset[11].name, ${"Melon and cotton aphid"}, dTemp),
  1393. set(.pests\:dlist/dset[12].name, ${"Black bean aphid"}, dTemp),
  1394. set(.pests\:dlist/dset[13].name, ${"Tobacco aphid"}, dTemp),
  1395. set(.pests\:dlist/dset[14].name, ${"Tobacco whitefly"}, dTemp),
  1396. set(.pests\:dlist/dset[15].name, ${"Solanum mealybug"}, dTemp),
  1397. set(.pests\:dlist/dset[16].name, ${"Cotton mealybug"}, dTemp),
  1398. set(.pests\:dlist/dset[17].name, ${"Cotton root-knot nematode"}, dTemp),
  1399. set(.pests\:dlist/dset[18].name, ${"Ants"}, dTemp),
  1400. set(.pests\:dlist/dset[19].name, ${"Herbarium"}, dTemp),
  1401. set(.pests\:dlist/dset[20].name, ${"False codling moth"}, dTemp),
  1402. set(.pests\:dlist/dset[21].name, ${"Pythium"}, dTemp),
  1403. set(.pests\:dlist/dset[22].name, ${"Ovulariopsis"}, dTemp),
  1404. set(.pests\:dlist/dset[23].name, ${"Cottony rot"}, dTemp),
  1405. set(.pests\:dlist/dset[24].name, ${"Tobacco thrips"}, dTemp),
  1406. set(.pests\:dlist/dset[25].name, ${"Western flower thrips"}, dTemp),
  1407. set(.pests\:dlist/dset[26].name, ${"Chilli thrips"}, dTemp),
  1408. set(.pests\:dlist/dset[27].name, ${"No pests"}, dTemp),
  1409. set(.pests\:dlist/dset[28].name, ${"Other"}, dTemp)
  1410. ),
  1411. //.Setting.Pests.Names.Hebrew
  1412. else:block(
  1413. set(.pests\:dlist/dset[0].name, ${"אקרית אדומה"}, dTemp),
  1414. set(.pests\:dlist/dset[1].name, ${"אקרית עיוותים"}, dTemp),
  1415. set(.pests\:dlist/dset[2].name, ${"בוטריטיס"}, dTemp),
  1416. set(.pests\:dlist/dset[3].name, ${"וירוס TSWV"}, dTemp),
  1417. set(.pests\:dlist/dset[4].name, ${"וירוס PYLCV"}, dTemp),
  1418. set(.pests\:dlist/dset[5].name, ${"זבובי פירות"}, dTemp),
  1419. set(.pests\:dlist/dset[6].name, ${"זבוב פירות ים תיכוני"}, dTemp),
  1420. set(.pests\:dlist/dset[7].name, ${"זחלי עשים"}, dTemp),
  1421. set(.pests\:dlist/dset[8].name, ${"יתוץ החרוב"}, dTemp),
  1422. set(.pests\:dlist/dset[9].name, ${"כנימות עלה"}, dTemp),
  1423. set(.pests\:dlist/dset[10].name, ${"כנימת עלה אפרסק"}, dTemp),
  1424. set(.pests\:dlist/dset[11].name, ${"כנימת עלה דלועים"}, dTemp),
  1425. set(.pests\:dlist/dset[12].name, ${"כנימות עלה הפול"}, dTemp),
  1426. set(.pests\:dlist/dset[13].name, ${"כנימות עלה ניקוטיאנה"}, dTemp),
  1427. set(.pests\:dlist/dset[14].name, ${"כנימת עש הטבק"}, dTemp),
  1428. set(.pests\:dlist/dset[15].name, ${"כנימה קמחית הסולנית"}, dTemp),
  1429. set(.pests\:dlist/dset[16].name, ${"כנימה קמחית מנוקדת"}, dTemp),
  1430. set(.pests\:dlist/dset[17].name, ${"נמטודות"}, dTemp),
  1431. set(.pests\:dlist/dset[18].name, ${"נמלים"}, dTemp),
  1432. set(.pests\:dlist/dset[19].name, ${"עשבייה"}, dTemp),
  1433. set(.pests\:dlist/dset[20].name, ${"עש התפוח המדומה"}, dTemp),
  1434. set(.pests\:dlist/dset[21].name, ${"פתיום (מקמקת)"}, dTemp),
  1435. set(.pests\:dlist/dset[22].name, ${"קמחונית"}, dTemp),
  1436. set(.pests\:dlist/dset[23].name, ${"קשיוניה גדולה"}, dTemp),
  1437. set(.pests\:dlist/dset[24].name, ${"תריפס הטבק"}, dTemp),
  1438. set(.pests\:dlist/dset[25].name, ${"תריפס קליפורני"}, dTemp),
  1439. set(.pests\:dlist/dset[26].name, ${"תריפס קיקיון"}, dTemp),
  1440. set(.pests\:dlist/dset[27].name, ${"לא נמצאו מזיקים"}, dTemp),
  1441. set(.pests\:dlist/dset[28].name, ${"אחר"}, dTemp)
  1442. )),
  1443.  
  1444.  
  1445. goto(scr,.def.sReviewReportBeforeSendingYadMordecaiNew)
  1446. ))),
  1447.  
  1448. btn(#Back,lo(5,m(2,20,1,20)), pim:yes, call(#Back,cancel())),
  1449.  
  1450. back:call(#Back,
  1451. cancel()
  1452. )
  1453. ),
  1454. sCFormCustomNotesAndPhotosScreenPestBeneficialsNew:frm(#Aditional_info,55|40|40|60|40,
  1455. init:block(
  1456. set($dsetName,.dsetName,dTemp)
  1457.  
  1458. ),
  1459.  
  1460. lbl("",lo(5)),
  1461. lbl("",lo(5)),
  1462. btn(#Text_notes,lo(5,m(5,30,5,30)),aln:center,call(na,
  1463. goto(scr,.def.sCFormNotesCustomNew,mode:dialog))
  1464. ),
  1465. btn(#Recommendations,lo(5,m(5,30,5,30)),aln:center,call(na,
  1466. goto(scr,.def.sCFormRecommendationsYadMordechaiPestBeneficialsNew)
  1467. )),
  1468. btn(#Capture_photo,lo(5,m(5,30,5,30)),aln:center,call(na,
  1469. rvr:no,sys(cmd:photo,rid:dTemp,path:${dsetName.':dset.photo_note'},max:100))
  1470. ),
  1471. btn(#Add_photo,lo(5,m(5,30,5,30)),aln:center,call(na,
  1472. rvr:no,sys(cmd:gallery,rid:dTemp,path:${dsetName.':dset.photo_note'},max:100))
  1473. ),
  1474. btn(#Save,lo(5,m(5,20,5,20)),pim:yes,aln:center,call(na,block(
  1475.  
  1476. back()
  1477. ))),
  1478. back:call(#Back,
  1479. cancel()
  1480. )
  1481. ),
  1482. sCFormRecommendationsYadMordechaiPestBeneficialsNew:frm(#Recommendations,58|58|58|58,
  1483. init:block(
  1484. set($dsetName,.dsetName,dTemp),
  1485. set($crop, .crop,dDone)
  1486.  
  1487. ),
  1488. lbl(" ",lo(4)),
  1489. // List of Recommendations for all crops
  1490. list(in:recommendationsYad,req:yes,
  1491. dpath(dTemp, .individual_recommendation),
  1492. lo(4,visible:${containsNone(crop,'CR15G0')}),
  1493. producer(listOptions,prm(prop:recommendation_pepper_rest))
  1494. ),
  1495. ti(otherRecommendationsYad, lo(4,visible:${recommendationsYad=='0.0'}), req:false, dpath(dTemp, .other_recommendation)),
  1496.  
  1497. // List of Recommendations for Strawberies
  1498. list(in:recommendationsYadStrawberries,req:yes,
  1499. dpath(dTemp, .individual_recommendation_strawberries),
  1500. lo(4,visible:${containsAny(crop,'CR15G0')}),
  1501. producer(listOptions,prm(prop:recommendation_strawberries))
  1502. ),
  1503. ti(otherRecommendationsYadStrawberries, lo(4,visible:${recommendationsYadStrawberries=='0.0'}), req:false, dpath(dTemp, .other_recommendation_strawberries)),
  1504. lbl(" ",lo(4)),
  1505.  
  1506. btn(#Cancel,lo(2),call(na,block(
  1507. cancel()
  1508. ))),
  1509. btn(#OK,lo(2),call(na,block(
  1510. if(${containsNone(crop,'CR15G0')},
  1511. set(${'.'.dsetName.':dset.individual_recommendation'},${if(recommendationsYad=='0.0',otherRecommendationsYad,lbl_recommendationsYad)},dTemp), //then
  1512. set(${'.'.dsetName.':dset.individual_recommendation'},${if(recommendationsYadStrawberries=='0.0',otherRecommendationsYadStrawberries,lbl_recommendationsYadStrawberries)},dTemp) //else
  1513. ),
  1514. unset(.individual_recommendation, dTemp),
  1515. unset(.other_recommendation, dTemp),
  1516. unset(.other_recommendation_strawberries, dTemp),
  1517. back()
  1518. ))),
  1519. back:call(#Back,
  1520. cancel()
  1521. )
  1522. ),
  1523. sCFormNotesCustomNew:frm(#Notes,58|58|58|58,
  1524. init:block(
  1525. set($dsetName,.dsetName,dTemp),
  1526. set($crop, .crop,dDone)
  1527. ),
  1528. lbl(" ",lo(4)),
  1529. // List of notes for all Cropps
  1530. list(in:notesYad,req:yes,sort:no,
  1531. dpath(dTemp, .list_notes),
  1532. lo(4,visible:${containsNone(crop,'CR15G0')}),
  1533. producer(listOptions,prm(prop:notes_pepper_rest))
  1534. ),
  1535. ti(otherNotesYad, lo(4,visible:${notesYad=='1.0'&&containsNone(crop,'CR15G0')}), req:false, dpath(dTemp, .custom_notes)),
  1536.  
  1537. // List of notes for Strawberries
  1538. list(in:notesYadStrawberries,req:yes,sort:no,
  1539. dpath(dTemp, .list_notes_strawberries),
  1540. lo(4,visible:${containsAny(crop,'CR15G0')}),
  1541. producer(listOptions,prm(prop:notes_strawberries))
  1542. ),
  1543. ti(otherNotesYadStrawberries, lo(4,visible:${notesYadStrawberries=='1.0'&&containsAny(crop,'CR15G0')}), req:false, dpath(dTemp, .custom_notes_strawberries)),
  1544.  
  1545.  
  1546. lbl(" ",lo(4)),
  1547.  
  1548. btn(#Cancel,lo(2),call(na,block(
  1549. cancel()
  1550. ))),
  1551. btn(#OK,lo(2),call(na,block(
  1552. if(${containsNone(crop,'CR15G0')},
  1553. set(${'.'.dsetName.':dset.notes'},${if(notesYad=='1.0',otherNotesYad,lbl_notesYad)},dTemp), //Then
  1554. set(${'.'.dsetName.':dset.notes'},${if(notesYadStrawberries=='1.0',otherNotesYadStrawberries,lbl_notesYadStrawberries)},dTemp) //Else
  1555. ),
  1556. unset(.list_notes, dTemp),
  1557. unset(.list_notes_strawberries, dTemp),
  1558. unset(.custom_notes, dTemp),
  1559. unset(.custom_notes_strawberries, dTemp),
  1560. back()
  1561. ))),
  1562. back:call(#Back,
  1563. cancel()
  1564. )
  1565. ),
  1566. sReviewReportBeforeSendingYadMordecaiNew:frm(#Review_report, 58|58|58|58,
  1567. init:block(
  1568. set($pestCode, .pest, dDone),
  1569. set($taskCode, .task, dDone),
  1570. set($lc,.plot,dDone),
  1571. set($plotCode,.plot,dDone)
  1572. set($crop, .crop, dDone),
  1573. set($growerCode,.gCode,dDone),
  1574. set($growerName,${qps('.def.sRoot/mi[val==growerCode].lbl')})
  1575.  
  1576.  
  1577. ),
  1578. refresh:block(),
  1579.  
  1580. captionBlank:style(
  1581. style(spec:light,bg:FFfafafa),
  1582. style(spec:dark,bg:FF000000)
  1583. ),
  1584.  
  1585. @ldPestSpread:ldata(
  1586. li(Please Select Distribution,${res("Please_Select_Distribution")},ord:1),
  1587. li(1. isolated cases,${res("Isolated_cases")}),
  1588. li(2. a number of areas,${res("A_number_of_areas")}),
  1589. li(3. mainly on the margins,${res("Mainly_on_the_margins")}),
  1590. li(4. in the entire section,${res("In_the_entire_section")})
  1591. ),
  1592.  
  1593. // Headers
  1594. lbl(${res('Plot').':'}, lo(2, m(5, 0, 0, 0), bg:FFc6d2d2)),
  1595. lbl(${qp('.plotName', 'dTemp')}, aln:left, lo(2, m(5, 0, 0, 0), bg:FFc6d2d2)),
  1596. lbl(${res('Grower').':'}, lo(2, style:captionGrey)),
  1597. lbl(${def(growerName,res('n%2Fa'))}, aln:left, lo(2, style:captionGrey)),
  1598. lbl(${res('Crop').':'}, lo(2, bg:FFc6d2d2)),
  1599. lbl(${qp('.cropName', 'dTemp')}, aln:left, lo(2, bg:FFc6d2d2)),
  1600.  
  1601. lbl(${res("Summary")}, aln:center, lo(4,m(1,0,0,0), style:group)),
  1602. lbl(${res("Contamination_levels")}, aln:center, lo(4, style:caption)),
  1603.  
  1604. prp(ivar:pest, lo(4), dpath(dTemp, .pests\:dlist/dset[pest]),
  1605. cont:pnl(cols:120|35|35|45,
  1606. lbl(${res('Pest_and_beneficial').'('.res('name_and_level').')'},lo(4,m(5,0,5,0),style:caption,visible:${notEmpty(qp('.pests\:dlist/dset[pest].level','dTemp'))})),
  1607. lbl(${def(qp('.pests\:dlist/dset[pest].name','dTemp'), "n/a")}, lo(2,style:captionBlank, m(0,0,0,0), visible:${notEmpty(qp('.pests\:dlist/dset[pest].level','dTemp'))})),
  1608. lbl(${def(qp('.pests\:dlist/dset[pest].level','dTemp'), "n/a")}, lo(2,style:captionBlank, m(0,0,0,0), visible:${notEmpty(qp('.pests\:dlist/dset[pest].level','dTemp'))})),
  1609. lbl(#Pest_spread%3A,lo(2,style:captionBlank,m(0,0,0,0), visible:${notEmpty(qp('.pests\:dlist/dset[pest].level','dTemp'))&&qp('.pests\:dlist/dset[pest].spread','dTemp')!='Please Select Distribution'})),
  1610. // lbl(${def(qp('.pests\:dlist/dset[pest].spread','dTemp'), "n/a")}, lo(2,style:captionBlank, m(0,0,0,0), visible:${notEmpty(qp('.pests\:dlist/dset[pest].level','dTemp'))&&qp('.pests\:dlist/dset[pest].spread','dTemp')!='Please Select Distribution'})),
  1611. list(in:spreadList,req:yes,data:ldPestSpread,
  1612. dpath(dTemp, .pests\:dlist/dset[pest].spread),
  1613. lo(2, style:captionBlank, enabled:${false},visible:${notEmpty(qp('.pests\:dlist/dset[pest].level','dTemp'))&&qp('.pests\:dlist/dset[pest].spread','dTemp')!='Please Select Distribution'})
  1614. ),
  1615. list(in:beneficialOneName,req:yes,data:ldBeneficials,
  1616. dpath(dTemp, .pests\:dlist/dset[pest].beneficials_name),
  1617. lo(2, style:captionBlank, enabled:${false},visible:${notEmpty(qp('.pests\:dlist/dset[pest].beneficials_level','dTemp'))})
  1618. ),
  1619. lbl(${def(qp('.pests\:dlist/dset[pest].beneficials_level','dTemp'), "n/a")}, lo(2, style:captionBlank, m(0,0,0,0), visible:${notEmpty(qp('.pests\:dlist/dset[pest].beneficials_level','dTemp'))})),
  1620. list(in:beneficialTwoName,req:yes,data:ldBeneficials,
  1621. dpath(dTemp, .pests\:dlist/dset[pest].beneficials_name_two),
  1622. lo(2, style:captionBlank, enabled:${false},visible:${notEmpty(qp('.pests\:dlist/dset[pest].beneficials_level_two','dTemp'))})
  1623. ),
  1624. lbl(${def(qp('.pests\:dlist/dset[pest].beneficials_level_two','dTemp'), "n/a")}, lo(2,style:captionBlank, m(0,0,0,0), visible:${notEmpty(qp('.pests\:dlist/dset[pest].beneficials_level_two','dTemp'))}))
  1625.  
  1626. )
  1627. ),
  1628. lbl(${res("Reported_pests_and_beneficials").":"}, aln:center, lo(2,m(10,0,0,0), style:captionGrey)),
  1629. lbl(${qpc('.pests\:dlist/dset.level','dTemp')." / (29)"}, aln:center, lo(2,m(10,0,0,0), style:captionGrey)),
  1630.  
  1631. lbl(${""},lo(4)),
  1632.  
  1633. auxinfo:producer(prm(tags:yes,photos:yes,notes:yes,dset:dsInspectionNotes)),
  1634.  
  1635. btn(#Save,lo(4,m(5,20,5,20)),pim:yes,aln:center,call(na,block(
  1636.  
  1637. //Carmine Spider Mite
  1638. if(${notEmpty(qp('.pests\:dlist/dset[0].level','dTemp'))}, block(
  1639. if(${notEmpty(qp('.pests\:dlist/dset[0].beneficials_level','dTemp'))}, block(
  1640. set($beneficialLevelCarmineSpriderMite, ${qp('.pests\:dlist/dset[0].beneficials_level','dTemp')},dTemp),
  1641. set($beneficialPestCode, ${qp('.pests\:dlist/dset[0].beneficials_name','dTemp')},dTemp),
  1642. set(.task,${"TS100H3D"},dDone),
  1643. set(.pest,${beneficialPestCode},dDone),
  1644. set(.levels5,$beneficialLevelCarmineSpriderMite,dDone),
  1645. set(.data,$beneficialLevelCarmineSpriderMite,dDone),
  1646. store(dDone,no),
  1647. )),
  1648. if(${notEmpty(qp('.pests\:dlist/dset[0].beneficials_level_two','dTemp'))}, block(
  1649. set($beneficialLevelTwoCarmineSpiderMite, ${qp('.pests\:dlist/dset[0].beneficials_level_two','dTemp')},dTemp),
  1650. set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[0].beneficials_name_two','dTemp')},dTemp),
  1651. set(.task,${"TS100H3D"},dDone),
  1652. set(.pest,${beneficialPestCodeTwo},dDone),
  1653. set(.levels5,$beneficialLevelTwoCarmineSpiderMite,dDone),
  1654. set(.data,$beneficialLevelTwoCarmineSpiderMite,dDone),
  1655. store(dDone,no),
  1656. )),
  1657. set($carmineSpiderMite, ${qp('.pests\:dlist/dset[0].level','dTemp')}, dTemp),
  1658. set(.task,${"TS100H3C"},dDone),
  1659. set(.pest,${"PT204GSI0I"},dDone),
  1660. if(${notEmpty(beneficialLevelCarmineSpriderMite)}, block(
  1661. set(.beneficial_one, ${beneficialPestCode},dDone),
  1662. set(.beneficial_one_level, ${beneficialLevelCarmineSpriderMite},dDone),
  1663. )),
  1664. if(${notEmpty(beneficialLevelTwoCarmineSpiderMite)}, block(
  1665. set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  1666. set(.beneficial_two_level, ${beneficialLevelTwoCarmineSpiderMite},dDone)
  1667. )),
  1668. if(${notEmpty(qps(".dsCarmineSpiderMite:dset.individual_recommendation",'dTemp'))},
  1669. set(.individual_recommendation,${qps(".dsCarmineSpiderMite:dset.individual_recommendation",'dTemp')},dDone)
  1670. ),
  1671. if(${qp('.pests\:dlist/dset[0].spread','dTemp')!='Please select beneficial'}, block(
  1672. set(.pest_spread_yad, ${qp('.pests\:dlist/dset[0].spread','dTemp')},dDone),
  1673. )),
  1674. set(.items,${carmineSpiderMite},dDone),
  1675. set(.levels5,${carmineSpiderMite},dDone),
  1676. set(.data,$carmineSpiderMite,dDone),
  1677. set($dsetName,${"dsCarmineSpiderMite"}),
  1678.  
  1679. proc(copyNotes1),
  1680. store(dDone,no),
  1681. proc(cleanNotes1)
  1682. )),
  1683.  
  1684. //Broad mite
  1685. if(${notEmpty(qp('.pests\:dlist/dset[1].level','dTemp'))}, block(
  1686. if(${notEmpty(qp('.pests\:dlist/dset[1].beneficials_level','dTemp'))}, block(
  1687. set($beneficialLevelBroadMite, ${qp('.pests\:dlist/dset[1].beneficials_level','dTemp')},dTemp),
  1688. set($beneficialPestCode, ${qp('.pests\:dlist/dset[1].beneficials_name','dTemp')},dTemp),
  1689. set(.task,${"TS100H3D"},dDone),
  1690. set(.pest,${beneficialPestCode},dDone),
  1691. set(.levels5,$beneficialLevelBroadMite,dDone),
  1692. set(.data,$beneficialLevelBroadMite,dDone),
  1693. store(dDone,no),
  1694. )),
  1695. if(${notEmpty(qp('.pests\:dlist/dset[1].beneficials_level_two','dTemp'))}, block(
  1696. set($beneficialLevelTwoBroadMite, ${qp('.pests\:dlist/dset[1].beneficials_level_two','dTemp')},dTemp),
  1697. set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[1].beneficials_name_two','dTemp')},dTemp),
  1698. set(.task,${"TS100H3D"},dDone),
  1699. set(.pest,${beneficialPestCodeTwo},dDone),
  1700. set(.levels5,$beneficialLevelTwoBroadMite,dDone),
  1701. set(.data,$beneficialLevelTwoBroadMite,dDone),
  1702. store(dDone,no),
  1703. )),
  1704. set($broadMite, ${qp('.pests\:dlist/dset[1].level','dTemp')}, dTemp),
  1705. set(.task,${"TS100H3C"},dDone),
  1706. set(.pest,${"PT2047I1I"},dDone),
  1707. if(${notEmpty(beneficialLevelBroadMite)}, block(
  1708. set(.beneficial_one, ${beneficialPestCode},dDone),
  1709. set(.beneficial_one_level, ${beneficialLevelBroadMite},dDone),
  1710. )),
  1711. if(${notEmpty(beneficialLevelTwoBroadMite)}, block(
  1712. set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  1713. set(.beneficial_two_level, ${beneficialLevelTwoBroadMite},dDone),
  1714. )),
  1715. if(${qp('.pests\:dlist/dset[1].spread','dTemp')!='Please select beneficial'}, block(
  1716. set(.pest_spread_yad, ${qp('.pests\:dlist/dset[1].spread','dTemp')},dDone),
  1717. )),
  1718. set(.items,${broadMite},dDone),
  1719. set(.levels5,${broadMite},dDone),
  1720. set(.data,$broadMite,dDone),
  1721. set($dsetName,${"dsBroadMite"}),
  1722. if(${notEmpty(qps(".dsBroadMite:dset.individual_recommendation",'dTemp'))}, block(
  1723. set(.individual_recommendation,${qps(".dsBroadMite:dset.individual_recommendation",'dTemp')},dDone)
  1724. )),
  1725. proc(copyNotes1),
  1726. store(dDone,no),
  1727. proc(cleanNotes1)
  1728. )),
  1729.  
  1730. //Gray mould
  1731. if(${notEmpty(qp('.pests\:dlist/dset[2].level','dTemp'))}, block(
  1732. if(${notEmpty(qp('.pests\:dlist/dset[2].beneficials_level','dTemp'))}, block(
  1733. set($beneficialLevelGrayMould, ${qp('.pests\:dlist/dset[2].beneficials_level','dTemp')},dTemp),
  1734. set($beneficialPestCode, ${qp('.pests\:dlist/dset[2].beneficials_name','dTemp')},dTemp),
  1735. set(.task,${"TS100H3D"},dDone),
  1736. set(.pest,${beneficialPestCode},dDone),
  1737. set(.levels5,$beneficialLevelGrayMould,dDone),
  1738. set(.data,$beneficialLevelGrayMould,dDone),
  1739. store(dDone,no),
  1740. )),
  1741. if(${notEmpty(qp('.pests\:dlist/dset[2].beneficials_level_two','dTemp'))}, block(
  1742. set($beneficialLevelTwoGrayMould, ${qp('.pests\:dlist/dset[2].beneficials_level_two','dTemp')},dTemp),
  1743. set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[2].beneficials_name_two','dTemp')},dTemp),
  1744. set(.task,${"TS100H3D"},dDone),
  1745. set(.pest,${beneficialPestCodeTwo},dDone),
  1746. set(.levels5,$beneficialLevelTwoGrayMould,dDone),
  1747. set(.data,$beneficialLevelTwoGrayMould,dDone),
  1748. store(dDone,no),
  1749. )),
  1750. set($grayMould, ${qp('.pests\:dlist/dset[2].level','dTemp')}, dTemp),
  1751. set(.task,${"TS100H3C"},dDone),
  1752. set(.pest,${"PT15G2I3I"},dDone),
  1753. if(${notEmpty(beneficialLevelGrayMould)}, block(
  1754. set(.beneficial_one, ${beneficialPestCode},dDone),
  1755. set(.beneficial_one_level, ${beneficialLevelGrayMould},dDone),
  1756. )),
  1757. if(${notEmpty(beneficialLevelTwoGrayMould)}, block(
  1758. set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  1759. set(.beneficial_two_level, ${beneficialLevelTwoGrayMould},dDone),
  1760. )),
  1761. if(${qp('.pests\:dlist/dset[2].spread','dTemp')!='Please select beneficial'}, block(
  1762. set(.pest_spread_yad, ${qp('.pests\:dlist/dset[2].spread','dTemp')},dDone),
  1763. )),
  1764. set(.items,${grayMould},dDone),
  1765. set(.levels5,${grayMould},dDone),
  1766. set(.data,$grayMould,dDone),
  1767. set($dsetName,${"dsGrayMould"}),
  1768. if(${notEmpty(qps(".dsGrayMould:dset.individual_recommendation",'dTemp'))}, block(
  1769. set(.individual_recommendation,${qps(".dsGrayMould:dset.individual_recommendation",'dTemp')},dDone)
  1770. )),
  1771. proc(copyNotes1),
  1772. store(dDone,no),
  1773. proc(cleanNotes1)
  1774. )),
  1775.  
  1776. //TSWV
  1777. if(${notEmpty(qp('.pests\:dlist/dset[3].level','dTemp'))}, block(
  1778. if(${notEmpty(qp('.pests\:dlist/dset[3].beneficials_level','dTemp'))}, block(
  1779. set($beneficialLevelTSWV, ${qp('.pests\:dlist/dset[3].beneficials_level','dTemp')},dTemp),
  1780. set($beneficialPestCode, ${qp('.pests\:dlist/dset[3].beneficials_name','dTemp')},dTemp),
  1781. set(.task,${"TS100H3D"},dDone),
  1782. set(.pest,${beneficialPestCode},dDone),
  1783. set(.levels5,$beneficialLevelTSWV,dDone),
  1784. set(.data,$beneficialLevelTSWV,dDone),
  1785. store(dDone,no),
  1786. )),
  1787. if(${notEmpty(qp('.pests\:dlist/dset[3].beneficials_level_two','dTemp'))}, block(
  1788. set($beneficialLevelTwoTSWV, ${qp('.pests\:dlist/dset[3].beneficials_level_two','dTemp')},dTemp),
  1789. set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[3].beneficials_name_two','dTemp')},dTemp),
  1790. set(.task,${"TS100H3D"},dDone),
  1791. set(.pest,${beneficialPestCodeTwo},dDone),
  1792. set(.levels5,$beneficialLevelTwoTSWV,dDone),
  1793. set(.data,$beneficialLevelTwoTSWV,dDone),
  1794. store(dDone,no),
  1795. )),
  1796. set($tSWV, ${qp('.pests\:dlist/dset[3].level','dTemp')}, dTemp),
  1797. set(.task,${"TS100H3C"},dDone),
  1798. set(.pest,${"PT15GAI0I"},dDone),
  1799. if(${notEmpty(beneficialLevelTSWV)}, block(
  1800. set(.beneficial_one, ${beneficialPestCode},dDone),
  1801. set(.beneficial_one_level, ${beneficialLevelTSWV},dDone),
  1802. )),
  1803. if(${notEmpty(beneficialLevelTwoTSWV)}, block(
  1804. set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  1805. set(.beneficial_two_level, ${beneficialLevelTwoTSWV},dDone),
  1806. )),
  1807. if(${qp('.pests\:dlist/dset[3].spread','dTemp')!='Please select beneficial'}, block(
  1808. set(.pest_spread_yad, ${qp('.pests\:dlist/dset[3].spread','dTemp')},dDone),
  1809. )),
  1810. set(.items,${tSWV},dDone),
  1811. set(.levels5,${tSWV},dDone),
  1812. set(.data,$tSWV,dDone),
  1813. set($dsetName,${"dsTSWV"}),
  1814. if(${notEmpty(qps(".dsTSWV:dset.individual_recommendation",'dTemp'))}, block(
  1815. set(.individual_recommendation,${qps(".dsTSWV:dset.individual_recommendation",'dTemp')},dDone)
  1816. )),
  1817. proc(copyNotes1),
  1818. store(dDone,no),
  1819. proc(cleanNotes1)
  1820. )),
  1821.  
  1822. //PYLCV
  1823. if(${notEmpty(qp('.pests\:dlist/dset[4].level','dTemp'))}, block(
  1824. if(${notEmpty(qp('.pests\:dlist/dset[4].beneficials_level','dTemp'))}, block(
  1825. set($beneficialLevelPYLCV, ${qp('.pests\:dlist/dset[4].beneficials_level','dTemp')},dTemp),
  1826. set($beneficialPestCode, ${qp('.pests\:dlist/dset[4].beneficials_name','dTemp')},dTemp),
  1827. set(.task,${"TS100H3D"},dDone),
  1828. set(.pest,${beneficialPestCode},dDone),
  1829. set(.levels5,$beneficialLevelPYLCV,dDone),
  1830. set(.data,$beneficialLevelPYLCV,dDone),
  1831. store(dDone,no),
  1832. )),
  1833. if(${notEmpty(qp('.pests\:dlist/dset[4].beneficials_level_two','dTemp'))}, block(
  1834. set($beneficialLevelTwoPYLCV, ${qp('.pests\:dlist/dset[4].beneficials_level_two','dTemp')},dTemp),
  1835. set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[4].beneficials_name_two','dTemp')},dTemp),
  1836. set(.task,${"TS100H3D"},dDone),
  1837. set(.pest,${beneficialPestCodeTwo},dDone),
  1838. set(.levels5,$beneficialLevelTwoPYLCV,dDone),
  1839. set(.data,$beneficialLevelTwoPYLCV,dDone),
  1840. store(dDone,no),
  1841. )),
  1842. set($pYLCV, ${qp('.pests\:dlist/dset[4].level','dTemp')}, dTemp),
  1843. set(.task,${"TS100H3C"},dDone),
  1844. set(.pest,${"PT15H6BI0I"},dDone),
  1845. if(${notEmpty(beneficialLevelPYLCV)}, block(
  1846. set(.beneficial_one, ${beneficialPestCode},dDone,dDone,dDone),
  1847. set(.beneficial_one_level, ${beneficialLevelPYLCV},dDone,dDone,dDone),
  1848. )),
  1849. if(${notEmpty(beneficialLevelTwoPYLCV)}, block(
  1850. set(.beneficial_two, ${beneficialPestCodeTwo},dDone,dDone,dDone),
  1851. set(.beneficial_two_level, ${beneficialLevelTwoPYLCV},dDone,dDone,dDone),
  1852. )),
  1853. if(${notEmpty(qps(".dsPYLCV:dset.individual_recommendation",'dTemp'))}, block(
  1854. set(.individual_recommendation,${qps(".dsPYLCV:dset.individual_recommendation",'dTemp')},dDone)
  1855. )),
  1856. if(${qp('.pests\:dlist/dset[4].spread','dTemp')!='Please select beneficial'}, block(
  1857. set(.pest_spread_yad, ${qp('.pests\:dlist/dset[4].spread','dTemp')},dDone),
  1858. )),
  1859. set(.items,${pYLCV},dDone),
  1860. set(.levels5,${pYLCV},dDone),
  1861. set(.data,$pYLCV,dDone),
  1862. set($dsetName,${"dsPYLCV"}),
  1863. proc(copyNotes),
  1864. store(dDone,no),
  1865. proc(cleanNotes)
  1866. )),
  1867.  
  1868. //Fruit fly
  1869. if(${notEmpty(qp('.pests\:dlist/dset[5].level','dTemp'))}, block(
  1870. if(${notEmpty(qp('.pests\:dlist/dset[5].beneficials_level','dTemp'))}, block(
  1871. set($beneficialLevelFruitFly, ${qp('.pests\:dlist/dset[5].beneficials_level','dTemp')},dTemp),
  1872. set($beneficialPestCode, ${qp('.pests\:dlist/dset[5].beneficials_name','dTemp')},dTemp),
  1873. set(.task,${"TS100H3D"},dDone),
  1874. set(.pest,${beneficialPestCode},dDone),
  1875. set(.levels5,$beneficialLevelFruitFly,dDone),
  1876. set(.data,$beneficialLevelFruitFly,dDone),
  1877. store(dDone,no),
  1878. )),
  1879. if(${notEmpty(qp('.pests\:dlist/dset[5].beneficials_level_two','dTemp'))}, block(
  1880. set($beneficialLevelTwoFruitFly, ${qp('.pests\:dlist/dset[5].beneficials_level_two','dTemp')},dTemp),
  1881. set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[5].beneficials_name_two','dTemp')},dTemp),
  1882. set(.task,${"TS100H3D"},dDone),
  1883. set(.pest,${beneficialPestCodeTwo},dDone),
  1884. set(.levels5,$beneficialLevelTwoFruitFly,dDone),
  1885. set(.data,$beneficialLevelTwoFruitFly,dDone),
  1886. store(dDone,no),
  1887. )),
  1888. set($fruitFly, ${qp('.pests\:dlist/dset[5].level','dTemp')}, dTemp),
  1889. set(.task,${"TS100H3C"},dDone),
  1890. set(.pest,${"PT2008I1I"},dDone),
  1891. if(${notEmpty(beneficialLevelFruitFly)}, block(
  1892. set(.beneficial_one, ${beneficialPestCode},dDone,dDone),
  1893. set(.beneficial_one_level, ${beneficialLevelFruitFly},dDone,dDone),
  1894. )),
  1895. if(${notEmpty(beneficialLevelTwoFruitFly)}, block(
  1896. set(.beneficial_two, ${beneficialPestCodeTwo},dDone,dDone),
  1897. set(.beneficial_two_level, ${beneficialLevelTwoFruitFly},dDone,dDone),
  1898. )),
  1899. if(${notEmpty(qps(".dsFruitFly:dset.individual_recommendation",'dTemp'))}, block(
  1900. set(.individual_recommendation,${qps(".dsFruitFly:dset.individual_recommendation",'dTemp')},dDone)
  1901. )),
  1902. if(${qp('.pests\:dlist/dset[5].spread','dTemp')!='Please select beneficial'}, block(
  1903. set(.pest_spread_yad, ${qp('.pests\:dlist/dset[5].spread','dTemp')},dDone),
  1904. )),
  1905. set(.items,${fruitFly},dDone),
  1906. set(.levels5,${fruitFly},dDone),
  1907. set(.data,$fruitFly,dDone),
  1908. set($dsetName,${"dsFruitFly"}),
  1909. proc(copyNotes),
  1910. store(dDone,no),
  1911. proc(cleanNotes)
  1912. )),
  1913.  
  1914. //Mediterranean fruit fly
  1915. if(${notEmpty(qp('.pests\:dlist/dset[6].level','dTemp'))}, block(
  1916. if(${notEmpty(qp('.pests\:dlist/dset[6].beneficials_level','dTemp'))}, block(
  1917. set($beneficialLevelMediterraneanFruitFly, ${qp('.pests\:dlist/dset[6].beneficials_level','dTemp')},dTemp),
  1918. set($beneficialPestCode, ${qp('.pests\:dlist/dset[6].beneficials_name','dTemp')},dTemp),
  1919. set(.task,${"TS100H3D"},dDone),
  1920. set(.pest,${beneficialPestCode},dDone),
  1921. set(.levels5,$beneficialLevelMediterraneanFruitFly,dDone),
  1922. set(.data,$beneficialLevelMediterraneanFruitFly,dDone),
  1923. store(dDone,no),
  1924. )),
  1925. if(${notEmpty(qp('.pests\:dlist/dset[6].beneficials_level_two','dTemp'))}, block(
  1926. set($beneficialLevelTwoMediterraneanFruitFly, ${qp('.pests\:dlist/dset[6].beneficials_level_two','dTemp')},dTemp),
  1927. set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[6].beneficials_name_two','dTemp')},dTemp),
  1928. set(.task,${"TS100H3D"},dDone),
  1929. set(.pest,${beneficialPestCodeTwo},dDone),
  1930. set(.levels5,$beneficialLevelTwoMediterraneanFruitFly,dDone),
  1931. set(.data,$beneficialLevelTwoMediterraneanFruitFly,dDone),
  1932. store(dDone,no),
  1933. )),
  1934. set($mediterraneanFruitFly, ${qp('.pests\:dlist/dset[6].level','dTemp')}, dTemp),
  1935. set(.task,${"TS100H3C"},dDone),
  1936. set(.pest,${"PT2001I5I0I"},dDone),
  1937. if(${notEmpty(beneficialLevelMediterraneanFruitFly)}, block(
  1938. set(.beneficial_one, ${beneficialPestCode},dDone),
  1939. set(.beneficial_one_level, ${beneficialLevelMediterraneanFruitFly},dDone),
  1940. )),
  1941. if(${notEmpty(beneficialLevelTwoMediterraneanFruitFly)}, block(
  1942. set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  1943. set(.beneficial_two_level, ${beneficialLevelTwoMediterraneanFruitFly},dDone),
  1944. )),
  1945. if(${notEmpty(qps(".dsMediterraneanFruitFly:dset.individual_recommendation",'dTemp'))}, block(
  1946. set(.individual_recommendation,${qps(".dsMediterraneanFruitFly:dset.individual_recommendation",'dTemp')},dDone)
  1947. )),
  1948. if(${qp('.pests\:dlist/dset[6].spread','dTemp')!='Please select beneficial'}, block(
  1949. set(.pest_spread_yad, ${qp('.pests\:dlist/dset[6].spread','dTemp')},dDone),
  1950. )),
  1951. set(.items,${mediterraneanFruitFly},dDone),
  1952. set(.levels5,${mediterraneanFruitFly},dDone),
  1953. set(.data,$mediterraneanFruitFly,dDone),
  1954. set($dsetName,${"dsMediterraneanFruitFly"}),
  1955. proc(copyNotes),
  1956. store(dDone,no),
  1957. proc(cleanNotes)
  1958. )),
  1959.  
  1960. //Moth caterpillar
  1961. if(${notEmpty(qp('.pests\:dlist/dset[7].level','dTemp'))}, block(
  1962. if(${notEmpty(qp('.pests\:dlist/dset[7].beneficials_level','dTemp'))}, block(
  1963. set($beneficialLevelMothCaterpillar, ${qp('.pests\:dlist/dset[7].beneficials_level','dTemp')},dTemp),
  1964. set($beneficialPestCode, ${qp('.pests\:dlist/dset[7].beneficials_name','dTemp')},dTemp),
  1965. set(.task,${"TS100H3D"},dDone),
  1966. set(.pest,${beneficialPestCode},dDone),
  1967. set(.levels5,$beneficialLevelMothCaterpillar,dDone),
  1968. set(.data,$beneficialLevelMothCaterpillar,dDone),
  1969. store(dDone,no),
  1970. )),
  1971. if(${notEmpty(qp('.pests\:dlist/dset[7].beneficials_level_two','dTemp'))}, block(
  1972. set($beneficialLevelTwoMothCaterpillar, ${qp('.pests\:dlist/dset[7].beneficials_level_two','dTemp')},dTemp),
  1973. set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[7].beneficials_name_two','dTemp')},dTemp),
  1974. set(.task,${"TS100H3D"},dDone),
  1975. set(.pest,${beneficialPestCodeTwo},dDone),
  1976. set(.levels5,$beneficialLevelTwoMothCaterpillar,dDone),
  1977. set(.data,$beneficialLevelTwoMothCaterpillar,dDone),
  1978. store(dDone,no),
  1979. )),
  1980. set($mothCaterpillar, ${qp('.pests\:dlist/dset[7].level','dTemp')}, dTemp),
  1981. set(.task,${"TS100H3C"},dDone),
  1982. set(.pest,${"PT205I2I0I"},dDone),
  1983. if(${notEmpty(beneficialLevelMothCaterpillar)}, block(
  1984. set(.beneficial_one, ${beneficialPestCode},dDone),
  1985. set(.beneficial_one_level, ${beneficialLevelMothCaterpillar},dDone),
  1986. )),
  1987. if(${notEmpty(beneficialLevelTwoMothCaterpillar)}, block(
  1988. set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  1989. set(.beneficial_two_level, ${beneficialLevelTwoMothCaterpillar},dDone),
  1990. )),
  1991. if(${notEmpty(qps(".dsMothCaterpillar:dset.individual_recommendation",'dTemp'))}, block(
  1992. set(.individual_recommendation,${qps(".dsMothCaterpillar:dset.individual_recommendation",'dTemp')},dDone)
  1993. )),
  1994. if(${qp('.pests\:dlist/dset[7].spread','dTemp')!='Please select beneficial'}, block(
  1995. set(.pest_spread_yad, ${qp('.pests\:dlist/dset[7].spread','dTemp')},dDone),
  1996. )),
  1997. set(.items,${mothCaterpillar},dDone),
  1998. set(.levels5,${mothCaterpillar},dDone),
  1999. set(.data,$mothCaterpillar,dDone),
  2000. set($dsetName,${"dsMothCaterpillar"}),
  2001. proc(copyNotes),
  2002. store(dDone,no),
  2003. proc(cleanNotes)
  2004. )),
  2005.  
  2006. //Chilli gall midge
  2007. if(${notEmpty(qp('.pests\:dlist/dset[8].level','dTemp'))}, block(
  2008. if(${notEmpty(qp('.pests\:dlist/dset[8].beneficials_level','dTemp'))}, block(
  2009. set($beneficialLevelChilliGallMidge, ${qp('.pests\:dlist/dset[8].beneficials_level','dTemp')},dTemp),
  2010. set($beneficialPestCode, ${qp('.pests\:dlist/dset[8].beneficials_name','dTemp')},dTemp),
  2011. set(.task,${"TS100H3D"},dDone),
  2012. set(.pest,${beneficialPestCode},dDone),
  2013. set(.levels5,$beneficialLevelChilliGallMidge,dDone),
  2014. set(.data,$beneficialLevelChilliGallMidge,dDone),
  2015. store(dDone,no),
  2016. )),
  2017. if(${notEmpty(qp('.pests\:dlist/dset[8].beneficials_level_two','dTemp'))}, block(
  2018. set($beneficialLevelTwoChilliGallMidge, ${qp('.pests\:dlist/dset[8].beneficials_level_two','dTemp')},dTemp),
  2019. set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[8].beneficials_name_two','dTemp')},dTemp),
  2020. set(.task,${"TS100H3D"},dDone),
  2021. set(.pest,${beneficialPestCodeTwo},dDone),
  2022. set(.levels5,$beneficialLevelTwoChilliGallMidge,dDone),
  2023. set(.data,$beneficialLevelTwoChilliGallMidge,dDone),
  2024. store(dDone,no),
  2025. )),
  2026. set($chilliGallMidge, ${qp('.pests\:dlist/dset[8].level','dTemp')}, dTemp),
  2027. set(.task,${"TS100H3C"},dDone),
  2028. set(.pest,${"PT201GTI0I"},dDone),
  2029. if(${notEmpty(beneficialLevelChilliGallMidge)}, block(
  2030. set(.beneficial_one, ${beneficialPestCode},dDone,dDone,dDone,dDone,dDone),
  2031. set(.beneficial_one_level, ${beneficialLevelChilliGallMidge},dDone,dDone,dDone,dDone,dDone),
  2032. )),
  2033. if(${notEmpty(beneficialLevelTwoChilliGallMidge)}, block(
  2034. set(.beneficial_two, ${beneficialPestCodeTwo},dDone,dDone,dDone,dDone,dDone),
  2035. set(.beneficial_two_level, ${beneficialLevelTwoChilliGallMidge},dDone,dDone,dDone,dDone,dDone),
  2036. )),
  2037. if(${notEmpty(qps(".dsChilliGallMidge:dset.individual_recommendation",'dTemp'))}, block(
  2038. set(.individual_recommendation,${qps(".dsChilliGallMidge:dset.individual_recommendation",'dTemp')},dDone)
  2039. )),
  2040. if(${qp('.pests\:dlist/dset[8].spread','dTemp')!='Please select beneficial'}, block(
  2041. set(.pest_spread_yad, ${qp('.pests\:dlist/dset[8].spread','dTemp')},dDone),
  2042. )),
  2043. set(.items,${chilliGallMidge},dDone),
  2044. set(.levels5,${chilliGallMidge},dDone),
  2045. set(.data,$chilliGallMidge,dDone),
  2046. set($dsetName,${"dsChilliGallMidge"}),
  2047. proc(copyNotes),
  2048. store(dDone,no),
  2049. proc(cleanNotes)
  2050. )),
  2051.  
  2052. //Aphid
  2053. if(${notEmpty(qp('.pests\:dlist/dset[9].level','dTemp'))}, block(
  2054. if(${notEmpty(qp('.pests\:dlist/dset[9].beneficials_level','dTemp'))}, block(
  2055. set($beneficialLevelAphid, ${qp('.pests\:dlist/dset[9].beneficials_level','dTemp')},dTemp),
  2056. set($beneficialPestCode, ${qp('.pests\:dlist/dset[9].beneficials_name','dTemp')},dTemp),
  2057. set(.task,${"TS100H3D"},dDone),
  2058. set(.pest,${beneficialPestCode},dDone),
  2059. set(.levels5,$beneficialLevelAphid,dDone),
  2060. set(.data,$beneficialLevelAphid,dDone),
  2061. store(dDone,no),
  2062. )),
  2063. if(${notEmpty(qp('.pests\:dlist/dset[9].beneficials_level_two','dTemp'))}, block(
  2064. set($beneficialLevelTwoAphid, ${qp('.pests\:dlist/dset[9].beneficials_level_two','dTemp')},dTemp),
  2065. set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[9].beneficials_name_two','dTemp')},dTemp),
  2066. set(.task,${"TS100H3D"},dDone),
  2067. set(.pest,${beneficialPestCodeTwo},dDone),
  2068. set(.levels5,$beneficialLevelTwoAphid,dDone),
  2069. set(.data,$beneficialLevelTwoAphid,dDone),
  2070. store(dDone,no),
  2071. )),
  2072. set($aphid, ${qp('.pests\:dlist/dset[9].level','dTemp')}, dTemp),
  2073. set(.task,${"TS100H3C"},dDone),
  2074. set(.pest,${"PT135IBI"},dDone),
  2075. if(${notEmpty(beneficialLevelAphid)}, block(
  2076. set(.beneficial_one, ${beneficialPestCode},dDone,dDone,dDone,dDone),
  2077. set(.beneficial_one_level, ${beneficialLevelAphid},dDone,dDone,dDone,dDone),
  2078. )),
  2079. if(${notEmpty(beneficialLevelTwoAphid)}, block(
  2080. set(.beneficial_two, ${beneficialPestCodeTwo},dDone,dDone,dDone,dDone),
  2081. set(.beneficial_two_level, ${beneficialLevelTwoAphid},dDone,dDone,dDone,dDone),
  2082. )),
  2083. if(${notEmpty(qps(".dsAphid:dset.individual_recommendation",'dTemp'))}, block(
  2084. set(.individual_recommendation,${qps(".dsAphid:dset.individual_recommendation",'dTemp')},dDone)
  2085. )),
  2086. if(${qp('.pests\:dlist/dset[9].spread','dTemp')!='Please select beneficial'}, block(
  2087. set(.pest_spread_yad, ${qp('.pests\:dlist/dset[9].spread','dTemp')},dDone),
  2088. )),
  2089. set(.items,${aphid},dDone),
  2090. set(.levels5,${aphid},dDone),
  2091. set(.data,$aphid,dDone),
  2092. set($dsetName,${"dsAphid"}),
  2093. proc(copyNotes),
  2094. store(dDone,no),
  2095. proc(cleanNotes)
  2096. )),
  2097.  
  2098. //Green peach aphid
  2099. if(${notEmpty(qp('.pests\:dlist/dset[10].level','dTemp'))}, block(
  2100. if(${notEmpty(qp('.pests\:dlist/dset[10].beneficials_level','dTemp'))}, block(
  2101. set($beneficialLevelGreenPeachAphid, ${qp('.pests\:dlist/dset[10].beneficials_level','dTemp')},dTemp),
  2102. set($beneficialPestCode, ${qp('.pests\:dlist/dset[10].beneficials_name','dTemp')},dTemp),
  2103. set(.task,${"TS100H3D"},dDone),
  2104. set(.pest,${beneficialPestCode},dDone),
  2105. set(.levels5,$beneficialLevelGreenPeachAphid,dDone),
  2106. set(.data,$beneficialLevelGreenPeachAphid,dDone),
  2107. store(dDone,no),
  2108. )),
  2109. if(${notEmpty(qp('.pests\:dlist/dset[10].beneficials_level_two','dTemp'))}, block(
  2110. set($beneficialLevelTwoGreenPeachAphid, ${qp('.pests\:dlist/dset[10].beneficials_level_two','dTemp')},dTemp),
  2111. set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[10].beneficials_name_two','dTemp')},dTemp),
  2112. set(.task,${"TS100H3D"},dDone),
  2113. set(.pest,${beneficialPestCodeTwo},dDone),
  2114. set(.levels5,$beneficialLevelTwoGreenPeachAphid,dDone),
  2115. set(.data,$beneficialLevelTwoGreenPeachAphid,dDone),
  2116. store(dDone,no),
  2117. )),
  2118. set($greenPeachAphid, ${qp('.pests\:dlist/dset[10].level','dTemp')}, dTemp),
  2119. set(.task,${"TS100H3C"},dDone),
  2120. set(.pest,${"PT13G7I2I"},dDone),
  2121. if(${notEmpty(beneficialLevelGreenPeachAphid)}, block(
  2122. set(.beneficial_one, ${beneficialPestCode},dDone,dDone,dDone),
  2123. set(.beneficial_one_level, ${beneficialLevelGreenPeachAphid},dDone,dDone,dDone),
  2124. )),
  2125. if(${notEmpty(beneficialLevelTwoGreenPeachAphid)}, block(
  2126. set(.beneficial_two, ${beneficialPestCodeTwo},dDone,dDone,dDone),
  2127. set(.beneficial_two_level, ${beneficialLevelTwoGreenPeachAphid},dDone,dDone,dDone),
  2128. )),
  2129. if(${notEmpty(qps(".dsGreenPeachAphid:dset.individual_recommendation",'dTemp'))}, block(
  2130. set(.individual_recommendation,${qps(".dsGreenPeachAphid:dset.individual_recommendation",'dTemp')},dDone)
  2131. )),
  2132. if(${qp('.pests\:dlist/dset[10].spread','dTemp')!='Please select beneficial'}, block(
  2133. set(.pest_spread_yad, ${qp('.pests\:dlist/dset[10].spread','dTemp')},dDone),
  2134. )),
  2135. set(.items,${greenPeachAphid},dDone),
  2136. set(.levels5,${greenPeachAphid},dDone),
  2137. set(.data,$greenPeachAphid,dDone),
  2138. set($dsetName,${"dsGreenPeachAphid"}),
  2139. proc(copyNotes),
  2140. store(dDone,no),
  2141. proc(cleanNotes)
  2142. )),
  2143.  
  2144. //Melon and cotton aphid
  2145. if(${notEmpty(qp('.pests\:dlist/dset[11].level','dTemp'))}, block(
  2146. if(${notEmpty(qp('.pests\:dlist/dset[11].beneficials_level','dTemp'))}, block(
  2147. set($beneficialLevelMelonAndCottonAphid, ${qp('.pests\:dlist/dset[11].beneficials_level','dTemp')},dTemp),
  2148. set($beneficialPestCode, ${qp('.pests\:dlist/dset[11].beneficials_name','dTemp')},dTemp),
  2149. set(.task,${"TS100H3D"},dDone),
  2150. set(.pest,${beneficialPestCode},dDone),
  2151. set(.levels5,$beneficialLevelMelonAndCottonAphid,dDone),
  2152. set(.data,$beneficialLevelMelonAndCottonAphid,dDone),
  2153. store(dDone,no),
  2154. )),
  2155. if(${notEmpty(qp('.pests\:dlist/dset[11].beneficials_level_two','dTemp'))}, block(
  2156. set($beneficialLevelTwoMelonAndCottonAphid, ${qp('.pests\:dlist/dset[11].beneficials_level_two','dTemp')},dTemp),
  2157. set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[11].beneficials_name_two','dTemp')},dTemp),
  2158. set(.task,${"TS100H3D"},dDone),
  2159. set(.pest,${beneficialPestCodeTwo},dDone),
  2160. set(.levels5,$beneficialLevelTwoMelonAndCottonAphid,dDone),
  2161. set(.data,$beneficialLevelTwoMelonAndCottonAphid,dDone),
  2162. store(dDone,no),
  2163. )),
  2164. set($melonAndCottonAphid, ${qp('.pests\:dlist/dset[11].level','dTemp')}, dTemp),
  2165. set(.task,${"TS100H3C"},dDone),
  2166. set(.pest,${"PT13HHI0I"},dDone),
  2167. if(${notEmpty(beneficialLevelMelonAndCottonAphid)}, block(
  2168. set(.beneficial_one, ${beneficialPestCode},dDone,dDone),
  2169. set(.beneficial_one_level, ${beneficialLevelMelonAndCottonAphid},dDone,dDone),
  2170. )),
  2171. if(${notEmpty(beneficialLevelTwoMelonAndCottonAphid)}, block(
  2172. set(.beneficial_two, ${beneficialPestCodeTwo},dDone,dDone),
  2173. set(.beneficial_two_level, ${beneficialLevelTwoMelonAndCottonAphid},dDone,dDone),
  2174. )),
  2175. if(${notEmpty(qps(".dsMelonAndCottonAphid:dset.individual_recommendation",'dTemp'))}, block(
  2176. set(.individual_recommendation,${qps(".dsMelonAndCottonAphid:dset.individual_recommendation",'dTemp')},dDone)
  2177. )),
  2178. if(${qp('.pests\:dlist/dset[11].spread','dTemp')!='Please select beneficial'}, block(
  2179. set(.pest_spread_yad, ${qp('.pests\:dlist/dset[11].spread','dTemp')},dDone),
  2180. )),
  2181. set(.items,${melonAndCottonAphid},dDone),
  2182. set(.levels5,${melonAndCottonAphid},dDone),
  2183. set(.data,$melonAndCottonAphid,dDone),
  2184. set($dsetName,${"dsMelonAndCottonAphid"}),
  2185. proc(copyNotes),
  2186. store(dDone,no),
  2187. proc(cleanNotes)
  2188. )),
  2189.  
  2190. //Black bean aphid
  2191. if(${notEmpty(qp('.pests\:dlist/dset[12].level','dTemp'))}, block(
  2192. if(${notEmpty(qp('.pests\:dlist/dset[12].beneficials_level','dTemp'))}, block(
  2193. set($beneficialLevelBlackBeanAphid, ${qp('.pests\:dlist/dset[12].beneficials_level','dTemp')},dTemp),
  2194. set($beneficialPestCode, ${qp('.pests\:dlist/dset[12].beneficials_name','dTemp')},dTemp),
  2195. set(.task,${"TS100H3D"},dDone),
  2196. set(.pest,${beneficialPestCode},dDone),
  2197. set(.levels5,$beneficialLevelBlackBeanAphid,dDone),
  2198. set(.data,$beneficialLevelBlackBeanAphid,dDone),
  2199. store(dDone,no),
  2200. )),
  2201. if(${notEmpty(qp('.pests\:dlist/dset[12].beneficials_level_two','dTemp'))}, block(
  2202. set($beneficialLevelTwoBlackBeanAphid, ${qp('.pests\:dlist/dset[12].beneficials_level_two','dTemp')},dTemp),
  2203. set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[12].beneficials_name_two','dTemp')},dTemp),
  2204. set(.task,${"TS100H3D"},dDone),
  2205. set(.pest,${beneficialPestCodeTwo},dDone),
  2206. set(.levels5,$beneficialLevelTwoBlackBeanAphid,dDone),
  2207. set(.data,$beneficialLevelTwoBlackBeanAphid,dDone),
  2208. store(dDone,no),
  2209. )),
  2210. set($blackBeanAphid, ${qp('.pests\:dlist/dset[12].level','dTemp')}, dTemp),
  2211. set(.task,${"TS100H3C"},dDone),
  2212. set(.pest,${"PT135AI0I"},dDone),
  2213. if(${notEmpty(beneficialLevelBlackBeanAphid)}, block(
  2214. set(.beneficial_one, ${beneficialPestCode},dDone),
  2215. set(.beneficial_one_level, ${beneficialLevelBlackBeanAphid},dDone),
  2216. )),
  2217. if(${notEmpty(beneficialLevelTwoBlackBeanAphid)}, block(
  2218. set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  2219. set(.beneficial_two_level, ${beneficialLevelTwoBlackBeanAphid},dDone),
  2220. )),
  2221. if(${notEmpty(qps(".dsBlackBeanAphid:dset.individual_recommendation",'dTemp'))}, block(
  2222. set(.individual_recommendation,${qps(".dsBlackBeanAphid:dset.individual_recommendation",'dTemp')},dDone)
  2223. )),
  2224. if(${qp('.pests\:dlist/dset[12].spread','dTemp')!='Please select beneficial'}, block(
  2225. set(.pest_spread_yad, ${qp('.pests\:dlist/dset[12].spread','dTemp')},dDone),
  2226. )),
  2227. set(.items,${blackBeanAphid},dDone),
  2228. set(.levels5,${blackBeanAphid},dDone),
  2229. set(.data,$blackBeanAphid,dDone),
  2230. set($dsetName,${"dsBlackBeanAphid"}),
  2231. proc(copyNotes),
  2232. store(dDone,no),
  2233. proc(cleanNotes)
  2234. )),
  2235.  
  2236. //Tobacco Aphid
  2237. if(${notEmpty(qp('.pests\:dlist/dset[13].level','dTemp'))}, block(
  2238. if(${notEmpty(qp('.pests\:dlist/dset[13].beneficials_level','dTemp'))}, block(
  2239. set($beneficialLevelTobaccoAphid, ${qp('.pests\:dlist/dset[13].beneficials_level','dTemp')},dTemp),
  2240. set($beneficialPestCode, ${qp('.pests\:dlist/dset[13].beneficials_name','dTemp')},dTemp),
  2241. set(.task,${"TS100H3D"},dDone),
  2242. set(.pest,${beneficialPestCode},dDone),
  2243. set(.levels5,$beneficialLevelTobaccoAphid,dDone),
  2244. set(.data,$beneficialLevelTobaccoAphid,dDone),
  2245. store(dDone,no),
  2246. )),
  2247. if(${notEmpty(qp('.pests\:dlist/dset[13].beneficials_level_two','dTemp'))}, block(
  2248. set($beneficialLevelTwoTobaccoAphid, ${qp('.pests\:dlist/dset[13].beneficials_level_two','dTemp')},dTemp),
  2249. set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[13].beneficials_name_two','dTemp')},dTemp),
  2250. set(.task,${"TS100H3D"},dDone),
  2251. set(.pest,${beneficialPestCodeTwo},dDone),
  2252. set(.levels5,$beneficialLevelTwoTobaccoAphid,dDone),
  2253. set(.data,$beneficialLevelTwoTobaccoAphid,dDone),
  2254. store(dDone,no),
  2255. )),
  2256. set($tobaccoAphid, ${qp('.pests\:dlist/dset[13].level','dTemp')}, dTemp),
  2257. set(.task,${"TS100H3C"},dDone),
  2258. set(.pest,${"PT13J0I0I"},dDone),
  2259. if(${notEmpty(beneficialLevelTobaccoAphid)}, block(
  2260. set(.beneficial_one, ${beneficialPestCode},dDone),
  2261. set(.beneficial_one_level, ${beneficialLevelTobaccoAphid},dDone),
  2262. )),
  2263. if(${notEmpty(beneficialLevelTwoTobaccoAphid)}, block(
  2264. set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  2265. set(.beneficial_two_level, ${beneficialLevelTwoTobaccoAphid},dDone),
  2266. )),
  2267. if(${notEmpty(qps(".dsTobaccoAphid:dset.individual_recommendation",'dTemp'))}, block(
  2268. set(.individual_recommendation,${qps(".dsTobaccoAphid:dset.individual_recommendation",'dTemp')},dDone)
  2269. )),
  2270. if(${qp('.pests\:dlist/dset[13].spread','dTemp')!='Please select beneficial'}, block(
  2271. set(.pest_spread_yad, ${qp('.pests\:dlist/dset[13].spread','dTemp')},dDone),
  2272. )),
  2273. set(.items,${tobaccoAphid},dDone),
  2274. set(.levels5,${tobaccoAphid},dDone),
  2275. set(.data,$tobaccoAphid,dDone),
  2276. set($dsetName,${"dsTobaccoAphid"}),
  2277. proc(copyNotes),
  2278. store(dDone,no),
  2279. proc(cleanNotes)
  2280. )),
  2281.  
  2282. //Tobacco whitefly
  2283. if(${notEmpty(qp('.pests\:dlist/dset[14].level','dTemp'))}, block(
  2284. if(${notEmpty(qp('.pests\:dlist/dset[14].beneficials_level','dTemp'))}, block(
  2285. set($beneficialLevelTobaccoWhitefly, ${qp('.pests\:dlist/dset[14].beneficials_level','dTemp')},dTemp),
  2286. set($beneficialPestCode, ${qp('.pests\:dlist/dset[14].beneficials_name','dTemp')},dTemp),
  2287. set(.task,${"TS100H3D"},dDone),
  2288. set(.pest,${beneficialPestCode},dDone),
  2289. set(.levels5,$beneficialLevelTobaccoWhitefly,dDone),
  2290. set(.data,$beneficialLevelTobaccoWhitefly,dDone),
  2291. store(dDone,no),
  2292. )),
  2293. if(${notEmpty(qp('.pests\:dlist/dset[14].beneficials_level_two','dTemp'))}, block(
  2294. set($beneficialLevelTwoTobaccoWhitefly, ${qp('.pests\:dlist/dset[14].beneficials_level_two','dTemp')},dTemp),
  2295. set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[14].beneficials_name_two','dTemp')},dTemp),
  2296. set(.task,${"TS100H3D"},dDone),
  2297. set(.pest,${beneficialPestCodeTwo},dDone),
  2298. set(.levels5,$beneficialLevelTwoTobaccoWhitefly,dDone),
  2299. set(.data,$beneficialLevelTwoTobaccoWhitefly,dDone),
  2300. store(dDone,no),
  2301. )),
  2302. set($tobaccoWhitefly, ${qp('.pests\:dlist/dset[14].level','dTemp')}, dTemp),
  2303. set(.task,${"TS100H3C"},dDone),
  2304. set(.pest,${"PT217G1I0I1I"},dDone),
  2305. if(${notEmpty(beneficialLevelTobaccoWhitefly)}, block(
  2306. set(.beneficial_one, ${beneficialPestCode},dDone),
  2307. set(.beneficial_one_level, ${beneficialLevelTobaccoWhitefly},dDone),
  2308. )),
  2309. if(${notEmpty(beneficialLevelTwoTobaccoWhitefly)}, block(
  2310. set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  2311. set(.beneficial_two_level, ${beneficialLevelTwoTobaccoWhitefly},dDone),
  2312. )),
  2313. if(${notEmpty(qps(".dsTobaccoWhitefly:dset.individual_recommendation",'dTemp'))}, block(
  2314. set(.individual_recommendation,${qps(".dsTobaccoWhitefly:dset.individual_recommendation",'dTemp')},dDone)
  2315. )),
  2316. if(${qp('.pests\:dlist/dset[14].spread','dTemp')!='Please select beneficial'}, block(
  2317. set(.pest_spread_yad, ${qp('.pests\:dlist/dset[14].spread','dTemp')},dDone),
  2318. )),
  2319. set(.items,${tobaccoWhitefly},dDone),
  2320. set(.levels5,${tobaccoWhitefly},dDone),
  2321. set(.data,$tobaccoWhitefly,dDone),
  2322. set($dsetName,${"dsTobaccoWhitefly"}),
  2323. proc(copyNotes),
  2324. store(dDone,no),
  2325. proc(cleanNotes)
  2326. )),
  2327.  
  2328. //Solanum mealybug
  2329. if(${notEmpty(qp('.pests\:dlist/dset[15].level','dTemp'))}, block(
  2330. if(${notEmpty(qp('.pests\:dlist/dset[15].beneficials_level','dTemp'))}, block(
  2331. set($beneficialLevelSolanumMealybug, ${qp('.pests\:dlist/dset[15].beneficials_level','dTemp')},dTemp),
  2332. set($beneficialPestCode, ${qp('.pests\:dlist/dset[15].beneficials_name','dTemp')},dTemp),
  2333. set(.task,${"TS100H3D"},dDone),
  2334. set(.pest,${beneficialPestCode},dDone),
  2335. set(.levels5,$beneficialLevelSolanumMealybug,dDone),
  2336. set(.data,$beneficialLevelSolanumMealybug,dDone),
  2337. store(dDone,no),
  2338. )),
  2339. if(${notEmpty(qp('.pests\:dlist/dset[15].beneficials_level_two','dTemp'))}, block(
  2340. set($beneficialLevelTwoSolanumMealybug, ${qp('.pests\:dlist/dset[15].beneficials_level_two','dTemp')},dTemp),
  2341. set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[15].beneficials_name_two','dTemp')},dTemp),
  2342. set(.task,${"TS100H3D"},dDone),
  2343. set(.pest,${beneficialPestCodeTwo},dDone),
  2344. set(.levels5,$beneficialLevelTwoSolanumMealybug,dDone),
  2345. set(.data,$beneficialLevelTwoSolanumMealybug,dDone),
  2346. store(dDone,no),
  2347. )),
  2348. set($solanumMealybug, ${qp('.pests\:dlist/dset[15].level','dTemp')}, dTemp),
  2349. set(.task,${"TS100H3C"},dDone),
  2350. set(.pest,${"PT13HXI0I"},dDone),
  2351. if(${notEmpty(beneficialLevelSolanumMealybug)}, block(
  2352. set(.beneficial_one, ${beneficialPestCode},dDone),
  2353. set(.beneficial_one_level, ${beneficialLevelSolanumMealybug},dDone),
  2354. )),
  2355. if(${notEmpty(beneficialLevelTwoSolanumMealybug)}, block(
  2356. set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  2357. set(.beneficial_two_level, ${beneficialLevelTwoSolanumMealybug},dDone),
  2358. )),
  2359. if(${notEmpty(qps(".dsSolanumMealybug:dset.individual_recommendation",'dTemp'))}, block(
  2360. set(.individual_recommendation,${qps(".dsSolanumMealybug:dset.individual_recommendation",'dTemp')},dDone)
  2361. )),
  2362. if(${qp('.pests\:dlist/dset[15].spread','dTemp')!='Please select beneficial'}, block(
  2363. set(.pest_spread_yad, ${qp('.pests\:dlist/dset[15].spread','dTemp')},dDone),
  2364. )),
  2365. set(.items,${solanumMealybug},dDone),
  2366. set(.levels5,${solanumMealybug},dDone),
  2367. set(.data,$solanumMealybug,dDone),
  2368. set($dsetName,${"dsSolanumMealybug"}),
  2369. proc(copyNotes),
  2370. store(dDone,no),
  2371. proc(cleanNotes)
  2372. )),
  2373.  
  2374. //Cotton mealybug
  2375. if(${notEmpty(qp('.pests\:dlist/dset[16].level','dTemp'))}, block(
  2376. if(${notEmpty(qp('.pests\:dlist/dset[16].beneficials_level','dTemp'))}, block(
  2377. set($beneficialLevelCottonMealybug, ${qp('.pests\:dlist/dset[16].beneficials_level','dTemp')},dTemp),
  2378. set($beneficialPestCode, ${qp('.pests\:dlist/dset[16].beneficials_name','dTemp')},dTemp),
  2379. set(.task,${"TS100H3D"},dDone),
  2380. set(.pest,${beneficialPestCode},dDone),
  2381. set(.levels5,$beneficialLevelCottonMealybug,dDone),
  2382. set(.data,$beneficialLevelCottonMealybug,dDone),
  2383. store(dDone,no),
  2384. )),
  2385. if(${notEmpty(qp('.pests\:dlist/dset[16].beneficials_level_two','dTemp'))}, block(
  2386. set($beneficialLevelTwoCottonMealybug, ${qp('.pests\:dlist/dset[16].beneficials_level_two','dTemp')},dTemp),
  2387. set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[16].beneficials_name_two','dTemp')},dTemp),
  2388. set(.task,${"TS100H3D"},dDone),
  2389. set(.pest,${beneficialPestCodeTwo},dDone),
  2390. set(.levels5,$beneficialLevelTwoCottonMealybug,dDone),
  2391. set(.data,$beneficialLevelTwoCottonMealybug,dDone),
  2392. store(dDone,no),
  2393. )),
  2394. set($cottonMealybug, ${qp('.pests\:dlist/dset[16].level','dTemp')}, dTemp),
  2395. set(.task,${"TS100H3C"},dDone),
  2396. set(.pest,${"PT13J1I0I"},dDone),
  2397. if(${notEmpty(beneficialLevelCottonMealybug)}, block(
  2398. set(.beneficial_one, ${beneficialPestCode},dDone),
  2399. set(.beneficial_one_level, ${beneficialLevelCottonMealybug},dDone),
  2400. )),
  2401. if(${notEmpty(beneficialLevelTwoCottonMealybug)}, block(
  2402. set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  2403. set(.beneficial_two_level, ${beneficialLevelTwoCottonMealybug},dDone),
  2404. )),
  2405. if(${notEmpty(qps(".dsCottonMealybug:dset.individual_recommendation",'dTemp'))}, block(
  2406. set(.individual_recommendation,${qps(".dsCottonMealybug:dset.individual_recommendation",'dTemp')},dDone)
  2407. )),
  2408. if(${qp('.pests\:dlist/dset[16].spread','dTemp')!='Please select beneficial'}, block(
  2409. set(.pest_spread_yad, ${qp('.pests\:dlist/dset[16].spread','dTemp')},dDone),
  2410. )),
  2411. set(.items,${cottonMealybug},dDone),
  2412. set(.levels5,${cottonMealybug},dDone),
  2413. set(.data,$cottonMealybug,dDone),
  2414. set($dsetName,${"dsCottonMealybug"}),
  2415. proc(copyNotes),
  2416. store(dDone,no),
  2417. proc(cleanNotes)
  2418. )),
  2419.  
  2420. //Cotton root-knot nematode
  2421. if(${notEmpty(qp('.pests\:dlist/dset[17].level','dTemp'))}, block(
  2422. if(${notEmpty(qp('.pests\:dlist/dset[17].beneficials_level','dTemp'))}, block(
  2423. set($beneficialLevelCottonRootKnotNematode, ${qp('.pests\:dlist/dset[17].beneficials_level','dTemp')},dTemp),
  2424. set($beneficialPestCode, ${qp('.pests\:dlist/dset[17].beneficials_name','dTemp')},dTemp),
  2425. set(.task,${"TS100H3D"},dDone),
  2426. set(.pest,${beneficialPestCode},dDone),
  2427. set(.levels5,$beneficialLevelCottonRootKnotNematode,dDone),
  2428. set(.data,$beneficialLevelCottonRootKnotNematode,dDone),
  2429. store(dDone,no),
  2430. )),
  2431. if(${notEmpty(qp('.pests\:dlist/dset[17].beneficials_level_two','dTemp'))}, block(
  2432. set($beneficialLevelTwoCottonRootKnotNematode, ${qp('.pests\:dlist/dset[17].beneficials_level_two','dTemp')},dTemp),
  2433. set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[17].beneficials_name_two','dTemp')},dTemp),
  2434. set(.task,${"TS100H3D"},dDone),
  2435. set(.pest,${beneficialPestCodeTwo},dDone),
  2436. set(.levels5,$beneficialLevelTwoCottonRootKnotNematode,dDone),
  2437. set(.data,$beneficialLevelTwoCottonRootKnotNematode,dDone),
  2438. store(dDone,no),
  2439. )),
  2440. set($cottonRootKnotNematode, ${qp('.pests\:dlist/dset[17].level','dTemp')}, dTemp),
  2441. set(.task,${"TS100H3C"},dDone),
  2442. set(.pest,${"PT20162I1I"},dDone),
  2443. if(${notEmpty(beneficialLevelCottonRootKnotNematode)}, block(
  2444. set(.beneficial_one, ${beneficialPestCode},dDone),
  2445. set(.beneficial_one_level, ${beneficialLevelCottonRootKnotNematode},dDone),
  2446. )),
  2447. if(${notEmpty(beneficialLevelTwoCottonRootKnotNematode)}, block(
  2448. set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  2449. set(.beneficial_two_level, ${beneficialLevelTwoCottonRootKnotNematode},dDone),
  2450. )),
  2451. if(${notEmpty(qps(".dsCottonRootKnotNematode:dset.individual_recommendation",'dTemp'))}, block(
  2452. set(.individual_recommendation,${qps(".dsCottonRootKnotNematode:dset.individual_recommendation",'dTemp')},dDone)
  2453. )),
  2454. if(${qp('.pests\:dlist/dset[17].spread','dTemp')!='Please select beneficial'}, block(
  2455. set(.pest_spread_yad, ${qp('.pests\:dlist/dset[17].spread','dTemp')},dDone),
  2456. )),
  2457. set(.items,${cottonRootKnotNematode},dDone),
  2458. set(.levels5,${cottonRootKnotNematode},dDone),
  2459. set(.data,$cottonRootKnotNematode,dDone),
  2460. set($dsetName,${"dsCottonRootKnotNematode"}),
  2461. proc(copyNotes),
  2462. store(dDone,no),
  2463. proc(cleanNotes)
  2464. )),
  2465.  
  2466. //Ants
  2467. if(${notEmpty(qp('.pests\:dlist/dset[18].level','dTemp'))}, block(
  2468. if(${notEmpty(qp('.pests\:dlist/dset[18].beneficials_level','dTemp'))}, block(
  2469. set($beneficialLevelAnts, ${qp('.pests\:dlist/dset[18].beneficials_level','dTemp')},dTemp),
  2470. set($beneficialPestCode, ${qp('.pests\:dlist/dset[18].beneficials_name','dTemp')},dTemp),
  2471. set(.task,${"TS100H3D"},dDone),
  2472. set(.pest,${beneficialPestCode},dDone),
  2473. set(.levels5,$beneficialLevelAnts,dDone),
  2474. set(.data,$beneficialLevelAnts,dDone),
  2475. store(dDone,no),
  2476. )),
  2477. if(${notEmpty(qp('.pests\:dlist/dset[18].beneficials_level_two','dTemp'))}, block(
  2478. set($beneficialLevelTwoAnts, ${qp('.pests\:dlist/dset[18].beneficials_level_two','dTemp')},dTemp),
  2479. set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[18].beneficials_name_two','dTemp')},dTemp),
  2480. set(.task,${"TS100H3D"},dDone),
  2481. set(.pest,${beneficialPestCodeTwo},dDone),
  2482. set(.levels5,$beneficialLevelTwoAnts,dDone),
  2483. set(.data,$beneficialLevelTwoAnts,dDone),
  2484. store(dDone,no),
  2485. )),
  2486. set($ants, ${qp('.pests\:dlist/dset[18].level','dTemp')}, dTemp),
  2487. set(.task,${"TS100H3C"},dDone),
  2488. set(.pest,${"PT2017I7I"},dDone),
  2489. if(${notEmpty(beneficialLevelAnts)}, block(
  2490. set(.beneficial_one, ${beneficialPestCode},dDone),
  2491. set(.beneficial_one_level, ${beneficialLevelAnts},dDone),
  2492. )),
  2493. if(${notEmpty(beneficialLevelTwoAnts)}, block(
  2494. set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  2495. set(.beneficial_two_level, ${beneficialLevelTwoAnts},dDone),
  2496. )),
  2497. if(${notEmpty(qps(".dsAnts:dset.individual_recommendation",'dTemp'))}, block(
  2498. set(.individual_recommendation,${qps(".dsAnts:dset.individual_recommendation",'dTemp')},dDone)
  2499. )),
  2500. if(${qp('.pests\:dlist/dset[18].spread','dTemp')!='Please select beneficial'}, block(
  2501. set(.pest_spread_yad, ${qp('.pests\:dlist/dset[18].spread','dTemp')},dDone),
  2502. )),
  2503. set(.items,${ants},dDone),
  2504. set(.levels5,${ants},dDone),
  2505. set(.data,$ants,dDone),
  2506. set($dsetName,${"dsAnts"}),
  2507. proc(copyNotes),
  2508. store(dDone,no),
  2509. proc(cleanNotes)
  2510. )),
  2511.  
  2512. //Herbarium
  2513. if(${notEmpty(qp('.pests\:dlist/dset[19].level','dTemp'))}, block(
  2514. if(${notEmpty(qp('.pests\:dlist/dset[19].beneficials_level','dTemp'))}, block(
  2515. set($beneficialLevelHerbarium, ${qp('.pests\:dlist/dset[19].beneficials_level','dTemp')},dTemp),
  2516. set($beneficialPestCode, ${qp('.pests\:dlist/dset[19].beneficials_name','dTemp')},dTemp),
  2517. set(.task,${"TS100H3D"},dDone),
  2518. set(.pest,${beneficialPestCode},dDone),
  2519. set(.levels5,$beneficialLevelHerbarium,dDone),
  2520. set(.data,$beneficialLevelHerbarium,dDone),
  2521. store(dDone,no),
  2522. )),
  2523. if(${notEmpty(qp('.pests\:dlist/dset[19].beneficials_level_two','dTemp'))}, block(
  2524. set($beneficialLevelTwoHerbarium, ${qp('.pests\:dlist/dset[19].beneficials_level_two','dTemp')},dTemp),
  2525. set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[19].beneficials_name_two','dTemp')},dTemp),
  2526. set(.task,${"TS100H3D"},dDone),
  2527. set(.pest,${beneficialPestCodeTwo},dDone),
  2528. set(.levels5,$beneficialLevelTwoHerbarium,dDone),
  2529. set(.data,$beneficialLevelTwoHerbarium,dDone),
  2530. store(dDone,no),
  2531. )),
  2532. set($herbarium, ${qp('.pests\:dlist/dset[19].level','dTemp')}, dTemp),
  2533. set(.task,${"TS100H3C"},dDone),
  2534. set(.pest,${"ML207I7I0I"},dDone),
  2535. if(${notEmpty(beneficialLevelHerbarium)}, block(
  2536. set(.beneficial_one, ${beneficialPestCode},dDone),
  2537. set(.beneficial_one_level, ${beneficialLevelHerbarium},dDone),
  2538. )),
  2539. if(${notEmpty(beneficialLevelTwoHerbarium)}, block(
  2540. set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  2541. set(.beneficial_two_level, ${beneficialLevelTwoHerbarium},dDone),
  2542. )),
  2543. if(${notEmpty(qps(".dsHerbarium:dset.individual_recommendation",'dTemp'))}, block(
  2544. set(.individual_recommendation,${qps(".dsHerbarium:dset.individual_recommendation",'dTemp')},dDone)
  2545. )),
  2546. if(${qp('.pests\:dlist/dset[19].spread','dTemp')!='Please select beneficial'}, block(
  2547. set(.pest_spread_yad, ${qp('.pests\:dlist/dset[19].spread','dTemp')},dDone),
  2548. )),
  2549. set(.items,${herbarium},dDone),
  2550. set(.levels5,${herbarium},dDone),
  2551. set(.data,$herbarium,dDone),
  2552. set($dsetName,${"dsHerbarium"}),
  2553. proc(copyNotes),
  2554. store(dDone,no),
  2555. proc(cleanNotes)
  2556. )),
  2557.  
  2558. //False codling moth
  2559. if(${notEmpty(qp('.pests\:dlist/dset[20].level','dTemp'))}, block(
  2560. if(${notEmpty(qp('.pests\:dlist/dset[20].beneficials_level','dTemp'))}, block(
  2561. set($beneficialLevelFalseCodlingMoth, ${qp('.pests\:dlist/dset[20].beneficials_level','dTemp')},dTemp),
  2562. set($beneficialPestCode, ${qp('.pests\:dlist/dset[20].beneficials_name','dTemp')},dTemp),
  2563. set(.task,${"TS100H3D"},dDone),
  2564. set(.pest,${beneficialPestCode},dDone),
  2565. set(.levels5,$beneficialLevelFalseCodlingMoth,dDone),
  2566. set(.data,$beneficialLevelFalseCodlingMoth,dDone),
  2567. store(dDone,no),
  2568. )),
  2569. if(${notEmpty(qp('.pests\:dlist/dset[20].beneficials_level_two','dTemp'))}, block(
  2570. set($beneficialLevelTwoFalseCodlingMoth, ${qp('.pests\:dlist/dset[20].beneficials_level_two','dTemp')},dTemp),
  2571. set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[20].beneficials_name_two','dTemp')},dTemp),
  2572. set(.task,${"TS100H3D"},dDone),
  2573. set(.pest,${beneficialPestCodeTwo},dDone),
  2574. set(.levels5,$beneficialLevelTwoFalseCodlingMoth,dDone),
  2575. set(.data,$beneficialLevelTwoFalseCodlingMoth,dDone),
  2576. store(dDone,no),
  2577. )),
  2578. set($falseCodlingMoth, ${qp('.pests\:dlist/dset[20].level','dTemp')}, dTemp),
  2579. set(.task,${"TS100H3C"},dDone),
  2580. set(.pest,${"PT205G6I6I0I"},dDone),
  2581. if(${notEmpty(beneficialLevelFalseCodlingMoth)}, block(
  2582. set(.beneficial_one, ${beneficialPestCode},dDone),
  2583. set(.beneficial_one_level, ${beneficialLevelFalseCodlingMoth},dDone),
  2584. )),
  2585. if(${notEmpty(beneficialLevelTwoFalseCodlingMoth)}, block(
  2586. set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  2587. set(.beneficial_two_level, ${beneficialLevelTwoFalseCodlingMoth},dDone),
  2588. )),
  2589. if(${notEmpty(qps(".dsFalseCodlingMoth:dset.individual_recommendation",'dTemp'))}, block(
  2590. set(.individual_recommendation,${qps(".dsFalseCodlingMoth:dset.individual_recommendation",'dTemp')},dDone)
  2591. )),
  2592. if(${qp('.pests\:dlist/dset[20].spread','dTemp')!='Please select beneficial'}, block(
  2593. set(.pest_spread_yad, ${qp('.pests\:dlist/dset[20].spread','dTemp')},dDone),
  2594. )),
  2595. set(.items,${falseCodlingMoth},dDone),
  2596. set(.levels5,${falseCodlingMoth},dDone),
  2597. set(.data,$falseCodlingMoth,dDone),
  2598. set($dsetName,${"dsFalseCodlingMoth"}),
  2599. proc(copyNotes),
  2600. store(dDone,no),
  2601. proc(cleanNotes)
  2602. )),
  2603.  
  2604. //Pythium
  2605. if(${notEmpty(qp('.pests\:dlist/dset[21].level','dTemp'))}, block(
  2606. if(${notEmpty(qp('.pests\:dlist/dset[21].beneficials_level','dTemp'))}, block(
  2607. set($beneficialLevelPythium, ${qp('.pests\:dlist/dset[21].beneficials_level','dTemp')},dTemp),
  2608. set($beneficialPestCode, ${qp('.pests\:dlist/dset[21].beneficials_name','dTemp')},dTemp),
  2609. set(.task,${"TS100H3D"},dDone),
  2610. set(.pest,${beneficialPestCode},dDone),
  2611. set(.levels5,$beneficialLevelPythium,dDone),
  2612. set(.data,$beneficialLevelPythium,dDone),
  2613. store(dDone,no),
  2614. )),
  2615. if(${notEmpty(qp('.pests\:dlist/dset[21].beneficials_level_two','dTemp'))}, block(
  2616. set($beneficialLevelTwoPythium, ${qp('.pests\:dlist/dset[21].beneficials_level_two','dTemp')},dTemp),
  2617. set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[21].beneficials_name_two','dTemp')},dTemp),
  2618. set(.task,${"TS100H3D"},dDone),
  2619. set(.pest,${beneficialPestCodeTwo},dDone),
  2620. set(.levels5,$beneficialLevelTwoPythium,dDone),
  2621. set(.data,$beneficialLevelTwoPythium,dDone),
  2622. store(dDone,no),
  2623. )),
  2624. set($pythium, ${qp('.pests\:dlist/dset[21].level','dTemp')}, dTemp),
  2625. set(.task,${"TS100H3C"},dDone),
  2626. set(.pest,${"PT1570I0I"},dDone),
  2627. if(${notEmpty(beneficialLevelPythium)}, block(
  2628. set(.beneficial_one, ${beneficialPestCode},dDone),
  2629. set(.beneficial_one_level, ${beneficialLevelPythium},dDone),
  2630. )),
  2631. if(${notEmpty(beneficialLevelTwoPythium)}, block(
  2632. set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  2633. set(.beneficial_two_level, ${beneficialLevelTwoPythium},dDone),
  2634. )),
  2635. if(${notEmpty(qps(".dsPythium:dset.individual_recommendation",'dTemp'))}, block(
  2636. set(.individual_recommendation,${qps(".dsPythium:dset.individual_recommendation",'dTemp')},dDone)
  2637. )),
  2638. if(${qp('.pests\:dlist/dset[21].spread','dTemp')!='Please select beneficial'}, block(
  2639. set(.pest_spread_yad, ${qp('.pests\:dlist/dset[21].spread','dTemp')},dDone),
  2640. )),
  2641. set(.items,${pythium},dDone),
  2642. set(.levels5,${pythium},dDone),
  2643. set(.data,$pythium,dDone),
  2644. set($dsetName,${"dsPythium"}),
  2645. proc(copyNotes),
  2646. store(dDone,no),
  2647. proc(cleanNotes)
  2648. )),
  2649.  
  2650. //Ovulariopsis
  2651. if(${notEmpty(qp('.pests\:dlist/dset[22].level','dTemp'))}, block(
  2652. if(${notEmpty(qp('.pests\:dlist/dset[22].beneficials_level','dTemp'))}, block(
  2653. set($beneficialLevelOvulariopsis, ${qp('.pests\:dlist/dset[22].beneficials_level','dTemp')},dTemp),
  2654. set($beneficialPestCode, ${qp('.pests\:dlist/dset[22].beneficials_name','dTemp')},dTemp),
  2655. set(.task,${"TS100H3D"},dDone),
  2656. set(.pest,${beneficialPestCode},dDone),
  2657. set(.levels5,$beneficialLevelOvulariopsis,dDone),
  2658. set(.data,$beneficialLevelOvulariopsis,dDone),
  2659. store(dDone,no),
  2660. )),
  2661. if(${notEmpty(qp('.pests\:dlist/dset[22].beneficials_level_two','dTemp'))}, block(
  2662. set($beneficialLevelTwoOvulariopsis, ${qp('.pests\:dlist/dset[22].beneficials_level_two','dTemp')},dTemp),
  2663. set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[22].beneficials_name_two','dTemp')},dTemp),
  2664. set(.task,${"TS100H3D"},dDone),
  2665. set(.pest,${beneficialPestCodeTwo},dDone),
  2666. set(.levels5,$beneficialLevelTwoOvulariopsis,dDone),
  2667. set(.data,$beneficialLevelTwoOvulariopsis,dDone),
  2668. store(dDone,no),
  2669. )),
  2670. set($ovulariopsis, ${qp('.pests\:dlist/dset[22].level','dTemp')}, dTemp),
  2671. set(.task,${"TS100H3C"},dDone),
  2672. set(.pest,${"PT15L7I0I"},dDone),
  2673. if(${notEmpty(beneficialLevelOvulariopsis)}, block(
  2674. set(.beneficial_one, ${beneficialPestCode},dDone),
  2675. set(.beneficial_one_level, ${beneficialLevelOvulariopsis},dDone),
  2676. )),
  2677. if(${notEmpty(beneficialLevelTwoOvulariopsis)}, block(
  2678. set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  2679. set(.beneficial_two_level, ${beneficialLevelTwoOvulariopsis},dDone),
  2680. )),
  2681. if(${notEmpty(qps(".dsOvulariopsis:dset.individual_recommendation",'dTemp'))}, block(
  2682. set(.individual_recommendation,${qps(".dsOvulariopsis:dset.individual_recommendation",'dTemp')},dDone)
  2683. )),
  2684. if(${qp('.pests\:dlist/dset[22].spread','dTemp')!='Please select beneficial'}, block(
  2685. set(.pest_spread_yad, ${qp('.pests\:dlist/dset[22].spread','dTemp')},dDone),
  2686. )),
  2687. set(.items,${ovulariopsis},dDone),
  2688. set(.levels5,${ovulariopsis},dDone),
  2689. set(.data,$ovulariopsis,dDone),
  2690. set($dsetName,${"dsOvulariopsis"}),
  2691. proc(copyNotes),
  2692. store(dDone,no),
  2693. proc(cleanNotes)
  2694. )),
  2695.  
  2696. //Cottony rot
  2697. if(${notEmpty(qp('.pests\:dlist/dset[23].level','dTemp'))}, block(
  2698. if(${notEmpty(qp('.pests\:dlist/dset[23].beneficials_level','dTemp'))}, block(
  2699. set($beneficialLevelCottonyRot, ${qp('.pests\:dlist/dset[23].beneficials_level','dTemp')},dTemp),
  2700. set($beneficialPestCode, ${qp('.pests\:dlist/dset[23].beneficials_name','dTemp')},dTemp),
  2701. set(.task,${"TS100H3D"},dDone),
  2702. set(.pest,${beneficialPestCode},dDone),
  2703. set(.levels5,$beneficialLevelCottonyRot,dDone),
  2704. set(.data,$beneficialLevelCottonyRot,dDone),
  2705. store(dDone,no),
  2706. )),
  2707. if(${notEmpty(qp('.pests\:dlist/dset[23].beneficials_level_two','dTemp'))}, block(
  2708. set($beneficialLevelTwoCottonyRot, ${qp('.pests\:dlist/dset[23].beneficials_level_two','dTemp')},dTemp),
  2709. set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[23].beneficials_name_two','dTemp')},dTemp),
  2710. set(.task,${"TS100H3D"},dDone),
  2711. set(.pest,${beneficialPestCodeTwo},dDone),
  2712. set(.levels5,$beneficialLevelTwoCottonyRot,dDone),
  2713. set(.data,$beneficialLevelTwoCottonyRot,dDone),
  2714. store(dDone,no),
  2715. )),
  2716. set($cottonyRot, ${qp('.pests\:dlist/dset[23].level','dTemp')}, dTemp),
  2717. set(.task,${"TS100H3C"},dDone),
  2718. set(.pest,${"PT15L8I0I"},dDone),
  2719. if(${notEmpty(beneficialLevelCottonyRot)}, block(
  2720. set(.beneficial_one, ${beneficialPestCode},dDone),
  2721. set(.beneficial_one_level, ${beneficialLevelCottonyRot},dDone),
  2722. )),
  2723. if(${notEmpty(beneficialLevelTwoCottonyRot)}, block(
  2724. set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  2725. set(.beneficial_two_level, ${beneficialLevelTwoCottonyRot},dDone),
  2726. )),
  2727. if(${notEmpty(qps(".dsCottonyRot:dset.individual_recommendation",'dTemp'))}, block(
  2728. set(.individual_recommendation,${qps(".dsCottonyRot:dset.individual_recommendation",'dTemp')},dDone)
  2729. )),
  2730. if(${qp('.pests\:dlist/dset[23].spread','dTemp')!='Please select beneficial'}, block(
  2731. set(.pest_spread_yad, ${qp('.pests\:dlist/dset[23].spread','dTemp')},dDone),
  2732. )),
  2733. set(.items,${cottonyRot},dDone),
  2734. set(.levels5,${cottonyRot},dDone),
  2735. set(.data,$cottonyRot,dDone),
  2736. set($dsetName,${"dsCottonyRot"}),
  2737. proc(copyNotes),
  2738. store(dDone,no),
  2739. proc(cleanNotes)
  2740. )),
  2741.  
  2742. //Tobacco thrips
  2743. if(${notEmpty(qp('.pests\:dlist/dset[24].level','dTemp'))}, block(
  2744. if(${notEmpty(qp('.pests\:dlist/dset[24].beneficials_level','dTemp'))}, block(
  2745. set($beneficialLevelTobaccoThrips, ${qp('.pests\:dlist/dset[24].beneficials_level','dTemp')},dTemp),
  2746. set($beneficialPestCode, ${qp('.pests\:dlist/dset[24].beneficials_name','dTemp')},dTemp),
  2747. set(.task,${"TS100H3D"},dDone),
  2748. set(.pest,${beneficialPestCode},dDone),
  2749. set(.levels5,$beneficialLevelTobaccoThrips,dDone),
  2750. set(.data,$beneficialLevelTobaccoThrips,dDone),
  2751. store(dDone,no),
  2752. )),
  2753. if(${notEmpty(qp('.pests\:dlist/dset[24].beneficials_level_two','dTemp'))}, block(
  2754. set($beneficialLevelTwoTobaccoThrips, ${qp('.pests\:dlist/dset[24].beneficials_level_two','dTemp')},dTemp),
  2755. set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[24].beneficials_name_two','dTemp')},dTemp),
  2756. set(.task,${"TS100H3D"},dDone),
  2757. set(.pest,${beneficialPestCodeTwo},dDone),
  2758. set(.levels5,$beneficialLevelTwoTobaccoThrips,dDone),
  2759. set(.data,$beneficialLevelTwoTobaccoThrips,dDone),
  2760. store(dDone,no),
  2761. )),
  2762. set($tobaccoThrips, ${qp('.pests\:dlist/dset[24].level','dTemp')}, dTemp),
  2763. set(.task,${"TS100H3C"},dDone),
  2764. set(.pest,${"PT2102I1I"},dDone),
  2765. if(${notEmpty(beneficialLevelTobaccoThrips)}, block(
  2766. set(.beneficial_one, ${beneficialPestCode},dDone),
  2767. set(.beneficial_one_level, ${beneficialLevelTobaccoThrips},dDone),
  2768. )),
  2769. if(${notEmpty(beneficialLevelTwoTobaccoThrips)}, block(
  2770. set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  2771. set(.beneficial_two_level, ${beneficialLevelTwoTobaccoThrips},dDone),
  2772. )),
  2773. if(${notEmpty(qps(".dsTobaccoThrips:dset.individual_recommendation",'dTemp'))}, block(
  2774. set(.individual_recommendation,${qps(".dsTobaccoThrips:dset.individual_recommendation",'dTemp')},dDone)
  2775. )),
  2776. if(${qp('.pests\:dlist/dset[24].spread','dTemp')!='Please select beneficial'}, block(
  2777. set(.pest_spread_yad, ${qp('.pests\:dlist/dset[24].spread','dTemp')},dDone),
  2778. )),
  2779. set(.items,${tobaccoThrips},dDone),
  2780. set(.levels5,${tobaccoThrips},dDone),
  2781. set(.data,$tobaccoThrips,dDone),
  2782. set($dsetName,${"dsTobaccoThrips"}),
  2783. proc(copyNotes),
  2784. store(dDone,no),
  2785. proc(cleanNotes)
  2786. )),
  2787.  
  2788. //Western flower thrips
  2789. if(${notEmpty(qp('.pests\:dlist/dset[25].level','dTemp'))}, block(
  2790. if(${notEmpty(qp('.pests\:dlist/dset[25].beneficials_level','dTemp'))}, block(
  2791. set($beneficialLevelWesternFlowerThrips, ${qp('.pests\:dlist/dset[25].beneficials_level','dTemp')},dTemp),
  2792. set($beneficialPestCode, ${qp('.pests\:dlist/dset[25].beneficials_name','dTemp')},dTemp),
  2793. set(.task,${"TS100H3D"},dDone),
  2794. set(.pest,${beneficialPestCode},dDone),
  2795. set(.levels5,$beneficialLevelWesternFlowerThrips,dDone),
  2796. set(.data,$beneficialLevelWesternFlowerThrips,dDone),
  2797. store(dDone,no),
  2798. )),
  2799. if(${notEmpty(qp('.pests\:dlist/dset[25].beneficials_level_two','dTemp'))}, block(
  2800. set($beneficialLevelTwoWesternFlowerThrips, ${qp('.pests\:dlist/dset[25].beneficials_level_two','dTemp')},dTemp),
  2801. set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[25].beneficials_name_two','dTemp')},dTemp),
  2802. set(.task,${"TS100H3D"},dDone),
  2803. set(.pest,${beneficialPestCodeTwo},dDone),
  2804. set(.levels5,$beneficialLevelTwoWesternFlowerThrips,dDone),
  2805. set(.data,$beneficialLevelTwoWesternFlowerThrips,dDone),
  2806. store(dDone,no),
  2807. )),
  2808. set($westernFlowerThrips, ${qp('.pests\:dlist/dset[25].level','dTemp')}, dTemp),
  2809. set(.task,${"TS100H3F"},dDone),
  2810. set(.pest,${"PT2106I2I0I"},dDone),
  2811. if(${notEmpty(beneficialLevelWesternFlowerThrips)}, block(
  2812. set(.beneficial_one, ${beneficialPestCode},dDone),
  2813. set(.beneficial_one_level, ${beneficialLevelWesternFlowerThrips},dDone),
  2814. )),
  2815. if(${notEmpty(beneficialLevelTwoWesternFlowerThrips)}, block(
  2816. set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  2817. set(.beneficial_two_level, ${beneficialLevelTwoWesternFlowerThrips},dDone),
  2818. )),
  2819. if(${notEmpty(qps(".dsWesternFlowerThrips:dset.individual_recommendation",'dTemp'))}, block(
  2820. set(.individual_recommendation,${qps(".dsWesternFlowerThrips:dset.individual_recommendation",'dTemp')},dDone)
  2821. )),
  2822. if(${qp('.pests\:dlist/dset[25].spread','dTemp')!='Please select beneficial'}, block(
  2823. set(.pest_spread_yad, ${qp('.pests\:dlist/dset[25].spread','dTemp')},dDone),
  2824. )),
  2825. set(.items,${westernFlowerThrips},dDone),
  2826. set(.levels5,${westernFlowerThrips},dDone),
  2827. set(.data,$westernFlowerThrips,dDone),
  2828. set($dsetName,${"dsWesternFlowerThrips"}),
  2829. proc(copyNotes),
  2830. store(dDone,no),
  2831. proc(cleanNotes)
  2832. )),
  2833.  
  2834. //Chilli thrips
  2835. if(${notEmpty(qp('.pests\:dlist/dset[26].level','dTemp'))}, block(
  2836. if(${notEmpty(qp('.pests\:dlist/dset[26].beneficials_level','dTemp'))}, block(
  2837. set($beneficialLevelChilliThrips, ${qp('.pests\:dlist/dset[26].beneficials_level','dTemp')},dTemp),
  2838. set($beneficialPestCode, ${qp('.pests\:dlist/dset[26].beneficials_name','dTemp')},dTemp),
  2839. set(.task,${"TS100H3D"},dDone),
  2840. set(.pest,${beneficialPestCode},dDone),
  2841. set(.levels5,$beneficialLevelChilliThrips,dDone),
  2842. set(.data,$beneficialLevelChilliThrips,dDone),
  2843. store(dDone,no),
  2844. )),
  2845. if(${notEmpty(qp('.pests\:dlist/dset[26].beneficials_level_two','dTemp'))}, block(
  2846. set($beneficialLevelTwoChilliThrips, ${qp('.pests\:dlist/dset[26].beneficials_level_two','dTemp')},dTemp),
  2847. set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[26].beneficials_name_two','dTemp')},dTemp),
  2848. set(.task,${"TS100H3D"},dDone),
  2849. set(.pest,${beneficialPestCodeTwo},dDone),
  2850. set(.levels5,$beneficialLevelTwoChilliThrips,dDone),
  2851. set(.data,$beneficialLevelTwoChilliThrips,dDone),
  2852. store(dDone,no),
  2853. )),
  2854. set($chilliThrips, ${qp('.pests\:dlist/dset[26].level','dTemp')}, dTemp),
  2855. set(.task,${"TS100H3C"},dDone),
  2856. set(.pest,${"PT2105I0I"},dDone),
  2857. if(${notEmpty(beneficialLevelChilliThrips)}, block(
  2858. set(.beneficial_one, ${beneficialPestCode},dDone),
  2859. set(.beneficial_one_level, ${beneficialLevelChilliThrips},dDone),
  2860. )),
  2861. if(${notEmpty(beneficialLevelTwoChilliThrips)}, block(
  2862. set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  2863. set(.beneficial_two_level, ${beneficialLevelTwoChilliThrips},dDone),
  2864. )),
  2865. if(${notEmpty(qps(".dsChilliThrips:dset.individual_recommendation",'dTemp'))}, block(
  2866. set(.individual_recommendation,${qps(".dsChilliThrips:dset.individual_recommendation",'dTemp')},dDone)
  2867. )),
  2868. if(${qp('.pests\:dlist/dset[26].spread','dTemp')!='Please select beneficial'}, block(
  2869. set(.pest_spread_yad, ${qp('.pests\:dlist/dset[26].spread','dTemp')},dDone),
  2870. )),
  2871. set(.items,${chilliThrips},dDone),
  2872. set(.levels5,${chilliThrips},dDone),
  2873. set(.data,$chilliThrips,dDone),
  2874. set($dsetName,${"dsChilliThrips"}),
  2875. proc(copyNotes),
  2876. store(dDone,no),
  2877. proc(cleanNotes)
  2878. )),
  2879.  
  2880. //No pests
  2881. if(${notEmpty(qp('.pests\:dlist/dset[27].level','dTemp'))}, block(
  2882. if(${notEmpty(qp('.pests\:dlist/dset[27].beneficials_level','dTemp'))}, block(
  2883. set($beneficialLevelNoPests, ${qp('.pests\:dlist/dset[27].beneficials_level','dTemp')},dTemp),
  2884. set($beneficialPestCode, ${qp('.pests\:dlist/dset[27].beneficials_name','dTemp')},dTemp),
  2885. set(.task,${"TS100H3D"},dDone),
  2886. set(.pest,${beneficialPestCode},dDone),
  2887. set(.levels5,$beneficialLevelNoPests,dDone),
  2888. set(.data,$beneficialLevelNoPests,dDone),
  2889. store(dDone,no),
  2890. )),
  2891. if(${notEmpty(qp('.pests\:dlist/dset[27].beneficials_level_two','dTemp'))}, block(
  2892. set($beneficialLevelTwoNoPests, ${qp('.pests\:dlist/dset[27].beneficials_level_two','dTemp')},dTemp),
  2893. set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[27].beneficials_name_two','dTemp')},dTemp),
  2894. set(.task,${"TS100H3D"},dDone),
  2895. set(.pest,${beneficialPestCodeTwo},dDone),
  2896. set(.levels5,$beneficialLevelTwoNoPests,dDone),
  2897. set(.data,$beneficialLevelTwoNoPests,dDone),
  2898. store(dDone,no),
  2899. )),
  2900. set($noPests, ${qp('.pests\:dlist/dset[27].level','dTemp')}, dTemp),
  2901. set(.task,${"TS100H3C"},dDone),
  2902. set(.pest,${"PT225I1I"},dDone),
  2903. if(${notEmpty(beneficialLevelNoPests)}, block(
  2904. set(.beneficial_one, ${beneficialPestCode},dDone),
  2905. set(.beneficial_one_level, ${beneficialLevelNoPests},dDone),
  2906. )),
  2907. if(${notEmpty(beneficialLevelTwoNoPests)}, block(
  2908. set(.beneficial_two, ${beneficialPestCodeTwo},dDone),
  2909. set(.beneficial_two_level, ${beneficialLevelTwoNoPests},dDone),
  2910. )),
  2911. if(${notEmpty(qps(".dsNoPests:dset.individual_recommendation",'dTemp'))}, block(
  2912. set(.individual_recommendation,${qps(".dsNoPests:dset.individual_recommendation",'dTemp')},dDone)
  2913. )),
  2914. if(${qp('.pests\:dlist/dset[27].spread','dTemp')!='Please select beneficial'}, block(
  2915. set(.pest_spread_yad, ${qp('.pests\:dlist/dset[27].spread','dTemp')},dDone),
  2916. )),
  2917. set(.items,${noPests},dDone),
  2918. set(.levels5,${noPests},dDone),
  2919. set(.data,$noPests,dDone),
  2920. set($dsetName,${"dsNoPests"}),
  2921. proc(copyNotes),
  2922. store(dDone,no),
  2923. proc(cleanNotes)
  2924. )),
  2925.  
  2926. //Other
  2927. if(${notEmpty(qp('.pests\:dlist/dset[28].level','dTemp'))}, block(
  2928. if(${notEmpty(qp('.pests\:dlist/dset[28].beneficials_level','dTemp'))}, block(
  2929. set($beneficialLevelOther, ${qp('.pests\:dlist/dset[28].beneficials_level','dTemp')},dTemp),
  2930. set($beneficialPestCode, ${qp('.pests\:dlist/dset[28].beneficials_name','dTemp')},dTemp),
  2931. set(.task,${"TS100H3D"},dDone),
  2932. set(.pest,${beneficialPestCode},dDone),
  2933. set(.levels5,$beneficialLevelOther,dDone),
  2934. set(.data,$beneficialLevelOther,dDone),
  2935. store(dDone,no),
  2936. )),
  2937. if(${notEmpty(qp('.pests\:dlist/dset[28].beneficials_level_two','dTemp'))}, block(
  2938. set($beneficialLevelTwoOther, ${qp('.pests\:dlist/dset[28].beneficials_level_two','dTemp')},dTemp),
  2939. set($beneficialPestCodeTwo, ${qp('.pests\:dlist/dset[28].beneficials_name_two','dTemp')},dTemp),
  2940. set(.task,${"TS100H3D"},dDone),
  2941. set(.pest,${beneficialPestCodeTwo},dDone),
  2942. set(.levels5,$beneficialLevelTwoOther,dDone),
  2943. set(.data,$beneficialLevelTwoOther,dDone),
  2944. store(dDone,no),
  2945. )),
  2946. set($other, ${qp('.pests\:dlist/dset[28].level','dTemp')}, dTemp),
  2947. set(.task,${"TS100H3C"},dDone),
  2948. set(.pest,${"PTI13I"},dDone),
  2949. if(${notEmpty(beneficialLevelOther)}, block(
  2950. set(.beneficial_one, ${beneficialPestCode},dDone,dDone),
  2951. set(.beneficial_one_level, ${beneficialLevelOther},dDone,dDone),
  2952. )),
  2953. if(${notEmpty(beneficialLevelTwoOther)}, block(
  2954. set(.beneficial_two, ${beneficialPestCodeTwo},dDone,dDone),
  2955. set(.beneficial_two_level, ${beneficialLevelTwoOther},dDone,dDone),
  2956. )),
  2957. if(${notEmpty(qps(".dsOther:dset.individual_recommendation",'dTemp'))}, block(
  2958. set(.individual_recommendation,${qps(".dsOther:dset.individual_recommendation",'dTemp')},dDone)
  2959. )),
  2960. if(${qp('.pests\:dlist/dset[28].spread','dTemp')!='Please select beneficial'}, block(
  2961. set(.pest_spread_yad, ${qp('.pests\:dlist/dset[28].spread','dTemp')},dDone),
  2962. )),
  2963. set(.items,${other},dDone),
  2964. set(.levels5,${other},dDone),
  2965. set(.data,$other,dDone),
  2966. set($dsetName,${"dsOther"}),
  2967. proc(copyNotes),
  2968. store(dDone,no),
  2969. proc(cleanNotes)
  2970. )),
  2971.  
  2972.  
  2973.  
  2974. // Inspection Notes
  2975. set($dsetName,${"dsInspectionNotes"}),
  2976. if(${notEmpty(qp('.'.dsetName.':dset.notes', 'dTemp'))},block(
  2977. set(.task,${"TS100J2"},dDone),// Input Method "Text"
  2978. set(.pest,${"PT213IEI"},dDone),//Inspection Notes
  2979. set(.data,${qp('.'.dsetName.':dset.notes','dTemp')},dDone),
  2980. proc(copyNotes),
  2981. store(dDone,no),
  2982. proc(cleanNotes)
  2983. )),
  2984.  
  2985. set(.task,${taskCode},dDone),
  2986. set(.pest,${pestCode},dDone),
  2987. set(.data,${"yes"},dDone),
  2988. store(dDone,yes),
  2989.  
  2990. cancel(${qp('.pestPath','dTemp')})
  2991.  
  2992. ))),
  2993.  
  2994. btn(#Back,lo(4,m(2,20,1,20)), pim:yes, call(#Back,cancel())),
  2995.  
  2996. back:call(#Back,
  2997. cancel()
  2998. )
  2999. )
  3000. )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!