API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Aug 23rd, 2019
89
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 18.50 KB | None | 0 0
raw download clone embed print report
  1.  
  2. scrset(
  3. sHojaRedondaClusterAndBerriesCount:frm(#Cluster_and_Berries_Count, 80|45|45|40|40,
  4. init:block(
  5. set($pestCode, .pest, dDone),
  6. set($plotCode, .plot, dDone),
  7. set($plotArea, ${locationArea(plotCode, 'DEF')}),
  8. set($samplesMeasured, ${frm(def(cnt(qp('/data[plot==plotCode&&pest=="ML13I3IG1I"].data', 'dHist')), 0), 0, 0)}),
  9. set($berriesPerCluster, .berries_per_cluster, dTemp)
  10. ),
  11.  
  12. refresh:block(
  13.  
  14. log(warn,${'ARRAY LEN'.len(qp('.clusters\:dlist/dset.type','dTemp'))}),
  15.  
  16. // Calculating data
  17. set($typeData, ${qp('.clusters:dlist/dset.type', 'dTemp')}),
  18. set($classData, ${qp('.clusters:dlist/dset.class', 'dTemp')}),
  19. set($allData, ${joinAsStrings(typeData, classData)}),
  20. set($totalBerries, ${qp('.clusters:dlist/dset.berries_num', 'dTemp')}),
  21. set($sumBerries, ${sum(totalBerries)}),
  22.  
  23. if(${allNotNull(sumBerries,totalClusters)}, block(
  24. set($berriesPerCluster, ${sumBerries/totalClusters}),
  25. set(.berries_per_cluster,$berriesPerCluster, dTemp)
  26. )),
  27.  
  28. // Counting clusters per type and classification
  29. set($totalSimple, ${0}),
  30. set($totalDouble, ${0}),
  31. set($totalTriple, ${0}),
  32. set($totalCoulure, ${0}),
  33. set($totalWinged, ${0}),
  34. set($totalSemiWinged, ${0}),
  35. set($totalExtraWinged, ${0}),
  36. set($totalConed, ${0}),
  37. set($totalPompano, ${0}),
  38. for(cluster, $allData, block(
  39. if(${cluster=='simple'}, set($totalSimple, ${totalSimple + 1}),
  40. if(${cluster=='double'}, set($totalDouble, ${totalDouble + 1}),
  41. if(${cluster=='triple'}, set($totalTriple, ${totalTriple + 1}),
  42. if(${cluster=='coulure'}, set($totalCoulure, ${totalCoulure + 1}),
  43. if(${cluster=='1'}, set($totalWinged, ${totalWinged + 1}),
  44. if(${cluster=='2'}, set($totalSemiWinged, ${totalSemiWinged + 1}),
  45. if(${cluster=='3'}, set($totalExtraWinged, ${totalExtraWinged + 1}),
  46. if(${cluster=='4'}, set($totalConed, ${totalConed + 1}),
  47. if(${cluster=='5'}, set($totalPompano, ${totalPompano + 1}))
  48. )
  49. )
  50. )
  51. )
  52. )
  53. )
  54. )
  55. )
  56. )),
  57. set($totalClusters, ${qpc('.clusters:dlist/dset[type!="-1"].type', 'dTemp')})
  58. ),
  59. @clusterType:ldata(
  60. li("-1", "", ord:0),
  61. li(simple, #Simple),
  62. li(double, #Double),
  63. li(triple, #Triple),
  64. li(coulure, #Coulure)
  65. ),
  66.  
  67. @clusterClass:ldata(
  68. li("-1", "", ord:0),
  69. li(winged, #Winged),
  70. li(semi, #Semi%2Dwinged),
  71. li(coned, #Coned),
  72. li(small, #Small)
  73. ),
  74.  
  75. // Headers
  76. lbl(#Plot%3A, lo(2)),
  77. lbl(${qp('.plotName', 'dTemp')}, lo(3)),
  78. lbl(#Crop%3A, lo(2)),
  79. lbl(${qp('.cropName', 'dTemp')}, lo(3)),
  80. lbl(#Sample%3A, lo(2)),
  81. lbl(${frm((samplesMeasured + 1), 0, 0)}, lo(3)),
  82.  
  83.  
  84. // Input
  85. lbl(#Sample_Info, aln:center, lo(5, style:group)),
  86. lbl(#Line_%23%3A, lo(1)),
  87. ni(lineNum, req:true, min:0, int:true, lo(1), dpath(dTemp, .line_num)),
  88. lbl('', lo(3))
  89. lbl(#Plant_%23%3A, lo(1)),
  90. ni(plantNum, req:true, min:0, int:true, lo(1), dpath(dTemp, .plant_num)),
  91. lbl('', lo(3)),
  92. lbl(#Side%23%3A, lo(1)),
  93. list(in:side,req:yes,
  94. dpath(dTemp,.side),
  95. lo(1),
  96. li('Right','Right',ord:1),
  97. li('Left','Left',ord:2)
  98. ),
  99. lbl('', lo(3)),
  100.  
  101. // Clusters
  102. lbl(#Clusters, aln:center, lo(5, style:group)),
  103. pnl(cols:36|58|58|58|30, lo(5),
  104. lbl('', lo(1)),
  105. lbl(#Type, lo(1, style:caption)),
  106. lbl(#Class, lo(1, style:caption)),
  107. lbl(#Berries,lo(1, style:caption)),
  108. lbl('', lo(1))
  109. ),
  110. prp(ivar:ri, lo(5), dpath(dTemp, .clusters\:dlist/dset[ri]),
  111. cont:pnl(cols:36|58|58|58|30,
  112. lbl(${'#'.frm(ri+1, 0, 0)}, lo(1), sd:true),
  113. list(cType, lo(1), data:clusterType, dpath(dTemp, .clusters\:dlist/dset[ri].type)),
  114. list(cClass, lo(1), dpath(dTemp, .clusters\:dlist/dset[ri].class),producer(listOptions,prm(prop:cluster_classification_hr))),
  115. ni(berriesNum,req:yes,min:0,int:yes,lo(1),dpath(dTemp,.clusters\:dlist/dset[ri].berries_num)),
  116. del:btn(X, lo(1))
  117. ),
  118. add:btn(#Add_Cluster, lo(5, m(10, 30, 1, 30)))
  119. ),
  120.  
  121. // Summary
  122. pnl(cols:50|45|45|60|40, lo(5),
  123. lbl(#Summary, aln:center, lo(5, style:group)),
  124. lbl(#By_Type, lo(5, style:caption)),
  125. lbl(#Simple_clusters%3A, lo(3, style:captionGrey)),
  126. lbl(${if(totalClusters > 0, frm(100 * totalSimple / totalClusters, 0, 1).'%', '0.0%')}, lo(1, style:captionGrey), sd:true),
  127. lbl(${'('.frm(totalSimple, 0, 0).')'}, lo(1, style:captionGrey), sd:true),
  128. lbl(#Double_clusters%3A, lo(3, style:captionGrey)),
  129. lbl(${if(totalClusters > 0, frm(100 * totalDouble / totalClusters, 0, 1).'%', '0.0%')}, lo(1, style:captionGrey), sd:true),
  130. lbl(${'('.frm(totalDouble, 0, 0).')'}, lo(1, style:captionGrey), sd:true),
  131. lbl(#Triple_clusters%3A, lo(3, style:captionGrey)),
  132. lbl(${if(totalClusters > 0, frm(100 * totalTriple / totalClusters, 0, 1).'%', '0.0%')}, lo(1, style:captionGrey), sd:true),
  133. lbl(${'('.frm(totalTriple, 0, 0).')'}, lo(1, style:captionGrey), sd:true),
  134. lbl(#Coulure_clusters%3A, lo(3, style:captionGrey)),
  135. lbl(${if(totalClusters > 0, frm(100 * totalCoulure / totalClusters, 0, 1).'%', '0.0%')}, lo(1, style:captionGrey), sd:true),
  136. lbl(${'('.frm(totalCoulure, 0, 0).')'}, lo(1, style:captionGrey), sd:true),
  137. lbl(#By_Classification, lo(5, m(5, 0, 0, 0), style:caption)),
  138. lbl(#Winged_clusters%3A, lo(3, style:captionGrey)),
  139. lbl(${if(totalClusters > 0, frm(100 * totalWinged / totalClusters, 0, 1).'%', '0.0%')}, lo(1, style:captionGrey), sd:true),
  140. lbl(${'('.frm(totalWinged, 0, 0).')'}, lo(1, style:captionGrey), sd:true),
  141. lbl(#Semi%2Dwinged_clusters%3A, lo(3, style:captionGrey)),
  142. lbl(${if(totalClusters > 0, frm(100 * totalSemiWinged / totalClusters, 0, 1).'%', '0.0%')}, lo(1, style:captionGrey), sd:true),
  143. lbl(${'('.frm(totalSemiWinged, 0, 0).')'}, lo(1, style:captionGrey), sd:true),
  144. lbl(#Extra_winged%3A, lo(3, style:captionGrey)),
  145. lbl(${if(totalClusters > 0, frm(100 * totalExtraWinged / totalClusters, 0, 1).'%', '0.0%')}, lo(1, style:captionGrey), sd:true),
  146. lbl(${'('.frm(totalExtraWinged, 0, 0).')'}, lo(1, style:captionGrey), sd:true),
  147. lbl(#Coned_clusters%3A, lo(3, style:captionGrey)),
  148. lbl(${if(totalClusters > 0, frm(100 * totalConed / totalClusters, 0, 1).'%', '0.0%')}, lo(1, style:captionGrey), sd:true),
  149. lbl(${'('.frm(totalConed, 0, 0).')'}, lo(1, style:captionGrey), sd:true),
  150. lbl(#Pompano%3A, lo(3, style:captionGrey)),
  151. lbl(${if(totalClusters > 0, frm(100 * totalPompano / totalClusters, 0, 1).'%', '0.0%')}, lo(1, style:captionGrey), sd:true),
  152. lbl(${'('.frm(totalPompano, 0, 0).')'}, lo(1, style:captionGrey), sd:true),
  153.  
  154. // Totals
  155. lbl(${res("Avg_berries").'/'.res('cluster')}, lo(4, m(10, 0, 0, 0), style:captionBlue)),
  156. lbl(${frm(def(berriesPerCluster, 0), 0, 0)}, lo(1, m(10, 0, 0, 0), style:captionBlue), sd:true),
  157. lbl(#Total_clusters%3A, lo(4, style:captionBlue)),
  158. lbl(${" ".frm(totalClusters, 0, 0)}, lo(1, style:captionBlue), sd:true)
  159. ),
  160. // Comments
  161. auxinfo:producer(prm(tags:yes, photos:true, notes:true)),
  162.  
  163. // Save
  164. btn(#Store_Plant, lo(5, enabled:${totalClusters>0}, m(5, 20, 5, 20)), call(na, rvr:yes, block(
  165.  
  166. //Checking that both type and class are chosen for the clusters
  167. set($edit, ${0}),
  168. for(type, $typeData, block(
  169. if(${type == '-1' && edit == '0'}, block(
  170. set($edit, ${i_type + 1})
  171. ))
  172. )),
  173. if(${edit > 0}, block(
  174. alert(error, ${res('Cluster_%23').' '.frm(edit, 0, 0).' '.res('is_invalid%21%0APlease_add_type')}),
  175. end()
  176. )),
  177.  
  178. //Saving the sample for count
  179. set(.data, ${'yes'}, dDone),
  180. store(dDone, no),
  181.  
  182. // Saving each cluster data
  183. set($clustersArr, ${qp('.clusters\:dlist/dset.type','dTemp')}),
  184. for(eachCluster, ${clustersArr}, block(
  185. set($typeEachCluster, ${qps('.clusters\:dlist/dset[i_eachCluster].type','dTemp')}),
  186. set($classEachCluster, ${qps('.clusters\:dlist/dset[i_eachCluster].class','dTemp')}),
  187. set($berriesEachCluster, ${qps('.clusters\:dlist/dset[i_eachCluster].berries_num','dTemp')}),
  188.  
  189. log(warn,${'type'.def(typeEachCluster,'n/a')}),
  190. log(warn,${'class'.def(classEachCluster,'n/a')}),
  191. log(warn,${'berries'.def(berriesEachCluster,'n/a')}),
  192. log(warn,${'counter'.def(clusterNumber,'n/a')}),
  193.  
  194. set(.task, ${'TS1003Q05V'}, dDone),
  195. set(.pest, ${'ML13IGBIG4I'}, dDone),
  196. set(.cluster_classification_hr, $classEachCluster, dDone),
  197. set(.clusters_type_hr, $typeEachCluster, dDone),
  198. set(.cluster_num_hr, ${i_eachCluster+1}, dDone),
  199. set(.line_num_hr, $lineNum, dDone),
  200. set(.side_hr, $side, dDone),
  201. set(.plant_num_hr, $plantNum, dDone),
  202. set(.ritems, ${berriesEachCluster}, dDone),
  203. store(dDone, no)
  204. )),
  205.  
  206. // totalSimple
  207. // Quantity
  208. set(.task, ${'TS1004MH'}, dDone),
  209. set(.pest, ${'ML13IGBI0I'}, dDone),
  210. set(.line_num_hr, $lineNum, dDone),
  211. set(.side_hr, $side, dDone),
  212. set(.plant_num_hr, $plantNum, dDone),
  213. set(.items, ${frm(totalSimple, 0, 0)}, dDone),
  214. set(.data, ${frm(totalSimple, 0, 0)}, dDone),
  215. store(dDone, no),
  216.  
  217. // Percent
  218. set(.task, ${'TS100BNC'}, dDone),
  219. set(.pest, ${'ML13IGBI1I'}, dDone),
  220. set(.line_num_hr, $lineNum, dDone),
  221. set(.side_hr, $side, dDone),
  222. set(.plant_num_hr, $plantNum, dDone),
  223. set(.items, $totalSimple, dDone),
  224. set(.count, $totalClusters, dDone),
  225. set(.data, ${frm(100 * totalSimple / totalClusters, 0, 0)}, dDone),
  226. store(dDone, no),
  227.  
  228. // totalDouble
  229. // Quantity
  230. set(.task, ${'TS1004MH'}, dDone),
  231. set(.pest, ${'ML13IGBIG1I'}, dDone),
  232. set(.line_num_hr, $lineNum, dDone),
  233. set(.side_hr, $side, dDone),
  234. set(.plant_num_hr, $plantNum, dDone),
  235. set(.items, ${frm(totalDouble, 0, 0)}, dDone),
  236. set(.data, ${frm(totalDouble, 0, 0)}, dDone),
  237. store(dDone, no),
  238. // Percent
  239. set(.task, ${'TS100BNC'}, dDone),
  240. set(.pest, ${'ML13IGBI3I'}, dDone),
  241. set(.line_num_hr, $lineNum, dDone),
  242. set(.side_hr, $side, dDone),
  243. set(.plant_num_hr, $plantNum, dDone),
  244. set(.items, $totalDouble, dDone),
  245. set(.count, $totalClusters, dDone),
  246. set(.data, ${frm(100 * totalDouble / totalClusters, 0, 0)}, dDone),
  247. store(dDone, no),
  248.  
  249. // totalTriple
  250. // Quantity
  251. set(.task, ${'TS1004MH'}, dDone),
  252. set(.pest, ${'ML13IGBI4I'}, dDone),
  253. set(.line_num_hr, $lineNum, dDone),
  254. set(.side_hr, $side, dDone),
  255. set(.plant_num_hr, $plantNum, dDone),
  256. set(.items, ${frm(totalTriple, 0, 0)}, dDone),
  257. set(.data, ${frm(totalTriple, 0, 0)}, dDone),
  258. store(dDone, no),
  259. // Percent
  260. set(.task, ${'TS100BNC'}, dDone),
  261. set(.pest, ${'ML13IGBI5I'}, dDone),
  262. set(.line_num_hr, $lineNum, dDone),
  263. set(.side_hr, $side, dDone),
  264. set(.plant_num_hr, $plantNum, dDone),
  265. set(.items, $totalTriple, dDone),
  266. set(.count, $totalClusters, dDone),
  267. set(.data, ${frm(100 * totalTriple / totalClusters, 0, 0)}, dDone),
  268. store(dDone, no),
  269.  
  270. // totalCoulure
  271. // Quantity
  272. set(.task, ${'TS1004MH'}, dDone),
  273. set(.pest, ${'ML13IGBI6I'}, dDone),
  274. set(.line_num_hr, $lineNum, dDone),
  275. set(.side_hr, $side, dDone),
  276. set(.plant_num_hr, $plantNum, dDone),
  277. set(.items, ${frm(totalCoulure, 0, 0)}, dDone),
  278. set(.data, ${frm(totalCoulure, 0, 0)}, dDone),
  279. store(dDone, no),
  280. // Percent
  281. set(.task, ${'TS100BNC'}, dDone),
  282. set(.pest, ${'ML13IGBI7I'}, dDone),
  283. set(.line_num_hr, $lineNum, dDone),
  284. set(.side_hr, $side, dDone),
  285. set(.plant_num_hr, $plantNum, dDone),
  286. set(.items, $totalCoulure, dDone),
  287. set(.count, $totalClusters, dDone),
  288. set(.data, ${frm(100 * totalCoulure / totalClusters, 0, 0)}, dDone),
  289. store(dDone, no),
  290.  
  291. // totalWinged
  292. // Quantity
  293. set(.task, ${'TS1004MH'}, dDone),
  294. set(.pest, ${'ML13IGBI8I'}, dDone),
  295. set(.line_num_hr, $lineNum, dDone),
  296. set(.side_hr, $side, dDone),
  297. set(.plant_num_hr, $plantNum, dDone),
  298. set(.items, ${frm(totalWinged, 0, 0)}, dDone),
  299. set(.data, ${frm(totalWinged, 0, 0)}, dDone),
  300. store(dDone, no),
  301. // Percent
  302. set(.task, ${'TS100BNC'}, dDone),
  303. set(.pest, ${'ML13IGBI9I'}, dDone),
  304. set(.line_num_hr, $lineNum, dDone),
  305. set(.side_hr, $side, dDone),
  306. set(.plant_num_hr, $plantNum, dDone),
  307. set(.items, $totalWinged, dDone),
  308. set(.count, $totalClusters, dDone),
  309. set(.data, ${frm(100 * totalWinged / totalClusters, 0, 0)}, dDone),
  310. store(dDone, no),
  311.  
  312. // totalSemiWinged
  313. // Quantity
  314. set(.task, ${'TS1004MH'}, dDone),
  315. set(.pest, ${'ML13IGBIAI'}, dDone),
  316. set(.line_num_hr, $lineNum, dDone),
  317. set(.side_hr, $side, dDone),
  318. set(.plant_num_hr, $plantNum, dDone),
  319. set(.items, ${frm(totalSemiWinged, 0, 0)}, dDone),
  320. set(.data, ${frm(totalSemiWinged, 0, 0)}, dDone),
  321. store(dDone, no),
  322. // Percent
  323. set(.task, ${'TS100BNC'}, dDone),
  324. set(.pest, ${'ML13IGBIBI'}, dDone),
  325. set(.line_num_hr, $lineNum, dDone),
  326. set(.side_hr, $side, dDone),
  327. set(.plant_num_hr, $plantNum, dDone),
  328. set(.items, $totalSemiWinged, dDone),
  329. set(.count, $totalClusters, dDone),
  330. set(.data, ${frm(100 * totalSemiWinged / totalClusters, 0, 0)}, dDone),
  331. store(dDone, no),
  332.  
  333. // totalConed
  334. // Quantity
  335. set(.task, ${'TS1004MH'}, dDone),
  336. set(.pest, ${'ML13IGBICI'}, dDone),
  337. set(.line_num_hr, $lineNum, dDone),
  338. set(.side_hr, $side, dDone),
  339. set(.plant_num_hr, $plantNum, dDone),
  340. set(.items, ${frm(totalConed, 0, 0)}, dDone),
  341. set(.data, ${frm(totalConed, 0, 0)}, dDone),
  342. store(dDone, no),
  343. // Percent
  344. set(.task, ${'TS100BNC'}, dDone),
  345. set(.pest, ${'ML13IGBIDI'}, dDone),
  346. set(.line_num_hr, $lineNum, dDone),
  347. set(.side_hr, $side, dDone),
  348. set(.plant_num_hr, $plantNum, dDone),
  349. set(.items, $totalConed, dDone),
  350. set(.count, $totalClusters, dDone),
  351. set(.data, ${frm(100 * totalConed / totalClusters, 0, 0)}, dDone),
  352. store(dDone, no),
  353.  
  354. // totalPompano
  355. // Quantity
  356. set(.task, ${'TS1004MH'}, dDone),
  357. set(.pest, ${'ML13IGBIFI'}, dDone),
  358. set(.line_num_hr, $lineNum, dDone),
  359. set(.side_hr, $side, dDone),
  360. set(.plant_num_hr, $plantNum, dDone),
  361. set(.items, ${frm(totalPompano, 0, 0)}, dDone),
  362. set(.data, ${frm(totalPompano, 0, 0)}, dDone),
  363. store(dDone, no),
  364. // Percent
  365. set(.task, ${'TS100BNC'}, dDone),
  366. set(.pest, ${'ML13IGBIG0I'}, dDone),
  367. set(.line_num_hr, $lineNum, dDone),
  368. set(.side_hr, $side, dDone),
  369. set(.plant_num_hr, $plantNum, dDone),
  370. set(.items, $totalPompano, dDone),
  371. set(.count, $totalClusters, dDone),
  372. set(.data, ${frm(100 * totalPompano / totalClusters, 0, 0)}, dDone),
  373. store(dDone, no),
  374.  
  375. // totalExtraWinged
  376. // Quantity
  377. set(.task, ${'TS1004MH'}, dDone),
  378. set(.pest, ${'ML13IGBIG1I'}, dDone),
  379. set(.line_num_hr, $lineNum, dDone),
  380. set(.side_hr, $side, dDone),
  381. set(.plant_num_hr, $plantNum, dDone),
  382. set(.items, ${frm(totalExtraWinged, 0, 0)}, dDone),
  383. set(.data, ${frm(totalExtraWinged, 0, 0)}, dDone),
  384. store(dDone, no),
  385. // Percent
  386. set(.task, ${'TS100BNC'}, dDone),
  387. set(.pest, ${'ML13IGBIG2I'}, dDone),
  388. set(.line_num_hr, $lineNum, dDone),
  389. set(.side_hr, $side, dDone),
  390. set(.plant_num_hr, $plantNum, dDone),
  391. set(.items, $totalExtraWinged, dDone),
  392. set(.count, $totalClusters, dDone),
  393. set(.data, ${frm(100 * totalExtraWinged / totalClusters, 0, 0)}, dDone),
  394. store(dDone, no),
  395.  
  396. // Average berries per cluster
  397. set(.task, ${'TS1003Q05T'}, dDone),
  398. set(.pest, ${'ML13IGBIG3I'}, dDone),
  399. set(.line_num_hr, $lineNum, dDone),
  400. set(.side_hr, $side, dDone),
  401. set(.plant_num_hr, $plantNum, dDone),
  402. set(.ritems, ${frm(berriesPerCluster, 0, 0)}, dDone),
  403. set(.data, ${frm(berriesPerCluster, 0, 0)}, dDone),
  404. store(dDone, no),
  405.  
  406. // totalClusters
  407. // Quantity
  408. set(.task, ${'TS1003Q05U'}, dDone),
  409. set(.pest, ${'ML13IGBIEI'}, dDone),
  410. set(.line_num_hr, $lineNum, dDone),
  411. set(.side_hr, $side, dDone),
  412. set(.plant_num_hr, $plantNum, dDone),
  413. set(.berries_clusters, ${frm(berriesPerCluster, 0, 0)},dDone),
  414. set(.simple_clusters, ${frm(totalSimple, 0, 0)}, dDone),
  415. set(.simple_clusters_percent, ${frm(100 * totalSimple / totalClusters, 0, 0)}, dDone),
  416. set(.doubles_clusters, ${frm(totalDouble, 0, 0)}, dDone),
  417. set(.doubles_clusters_percent, ${frm(100 * totalDouble / totalClusters, 0, 0)}, dDone),
  418. set(.triples_clusters, ${frm(totalTriple, 0, 0)}, dDone),
  419. set(.triples_clusters_percent, ${frm(100 * totalTriple / totalClusters, 0, 0)}, dDone),
  420. set(.coulure_clusters, ${frm(totalCoulure, 0, 0)}, dDone),
  421. set(.coulure_clusters_percent, ${frm(100 * totalCoulure / totalClusters, 0, 0)}, dDone),
  422. set(.winged_clusters, ${frm(totalWinged, 0, 0)}, dDone),
  423. set(.winged_clusters_percent, ${frm(100 * totalWinged / totalClusters, 0, 0)}, dDone),
  424. set(.semi_winged_clusters, ${frm(totalSemiWinged, 0, 0)}, dDone),
  425. set(.semi_winged_clusters_percent, ${frm(100 * totalSemiWinged / totalClusters, 0, 0)}, dDone),
  426. set(.coned_clusters, ${frm(totalConed, 0, 0)}, dDone),
  427. set(.coned_clusters_percent, ${frm(100 * totalConed / totalClusters, 0, 0)}, dDone),
  428. set(.extrawinged_clusters, ${frm(totalExtraWinged, 0, 0)}, dDone),
  429. set(.extrawinged_clusters_percent, ${frm(100 * totalExtraWinged / totalClusters, 0, 0)}, dDone),
  430. set(.pompano_clusters, ${frm(totalPompano, 0, 0)}, dDone),
  431. set(.pompano_clusters_percent, ${frm(100 * totalPompano / totalClusters, 0, 0)}, dDone),
  432. set(.ritems, ${frm(totalClusters, 0, 0)}, dDone),
  433. set(.data, ${frm(totalClusters, 0, 0)}, dDone),
  434. store(dDone, yes),
  435.  
  436. cancel(${qp('.pestPath','dTemp')})
  437. ))),
  438.  
  439. back:call(#Back, cancel())
  440. )
  441. )
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!