Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- scrset(
- sBerriesOnHarvest:frm(#Berries_Harvest,90|60|90,
- init:block(
- set($pestCode, .pest, dDone),
- set($taskCode, .task, dDone),
- set($lc,.plot,dDone),
- set($plotCode,.plot,dDone),
- set($reportToday, ${qps('/data[plot==lc&&pest=="ML15I2I3I"].ritems', 'dHist')}),
- set($tempSamples,${dataSet(['plot',plotCode,'pest','ML15I2I2I'],['ritems','cluster_weight_teperberg','sample_number_teperberg'],
- [berriesWeightArr,clusterWeightArr,sampleNumArr],true)}),
- for(lineRow,$berriesWeightArr,block(
- set(${".berriesSamples:dlist/dset[".i_lineRow."].berries_weight"},${frm(lineRow,0,0)},dTemp),
- set(${".berriesSamples:dlist/dset[".i_lineRow."].cluster_weight"},${frm(clusterWeightArr[i_lineRow],0,0)},dTemp),
- set(${".berriesSamples:dlist/dset[".i_lineRow."].sample_number"},${frm(sampleNumArr[i_lineRow],0,0)},dTemp),
- //log(warn,${res("Cluster_weight").clusterWeightArr[i_lineRow]}),
- )
- )
- if(${allNotNull(berriesWeightArr,clusterWeightArr)},
- block(
- set($avgClusterWeight,${avg(clusterWeightArr)}),
- set($avgBerriesWeight,${avg(berriesWeightArr)}),
- if(${!isEmpty(avgBerriesWeight)},
- set($avg1BerryWeight,${avgBerriesWeight/5})
- )
- )
- )
- )
- refresh:block(),
- focus:block(
- set($lblName,${qp('.lblName','dTemp')}),
- if(${notEmpty(lblName)}, block(
- focus(${'.'.lblName}),
- unset(.lblName,dTemp))
- )
- ),
- //Headers
- lbl(${res("Plot").":"}, lo(1)),
- lbl(${qp(".plotName", "dTemp")}, lo(2)),
- lbl(${res("Crop").":"}, lo(1)),
- lbl(${qp(".cropName", "dTemp")}, lo(2)),
- //AddButton
- btn(#Add_Sample,lo(3,m(10,20,10,20),enabled:${isEmpty(reportToday)}),aln:center,call(na,block(
- goto(scr, .def.sAddSampleHarvest),
- )))
- //Summary
- lbl(${res("Summary")},lo(3,m(0,0,5,0),style:group),aln:center),
- pnl(cols:60|60|60|60,lo(3),
- lbl(#%23,lo(1,style:captionOrange),aln:center),
- lbl(${res("Cluster_Weight_")." (gr)"},lo(1),aln:center),
- lbl(${res("5_Berries_Weight_")." (gr)"},lo(1),aln:center),
- lbl(${res("Spine_Weight_")." (gr)"},lo(1),aln:center)
- ),
- prp(ivar:ri,lo(3,m(0,0,0,0)),dpath(dTemp,.berriesSamples\:dlist/dset[ri]),
- cont:pnl(cols:60|60|60|60|,
- lbl(${def(qp('.berriesSamples:dlist/dset[ri].sample_number','dTemp'),'')},lo(1,style:captionOrange),aln:center),
- lbl(${def(qp('.berriesSamples:dlist/dset[ri].cluster_weight','dTemp'),'')},lo(1),aln:center),
- lbl(${def(qp('.berriesSamples:dlist/dset[ri].berries_weight','dTemp'),'')},lo(1),aln:center),
- lbl(${'n/a'},lo(1),aln:center)
- )
- ),
- //Calculations
- lbl(${res("Calculations")},lo(3,m(10,0,5,0),style:group),aln:center),
- lbl(${res("Avg_weight_clusters").": "},lo(2,m(0,0,0,0))),
- lbl(${frm(def(avgClusterWeight,0),0,0)}),
- lbl(${res("Avg_weight_1_berry")},lo(2,m(0,0,0,0))),
- lbl(${frm(def(avg1BerryWeight,0),0,0)}),
- auxinfo:producer(prm(tags:no,photos:yes,notes:yes,enabled:${isEmpty(reportToday)},dset:dsBerriesOnHarvest)),
- btn(#Finalize,lo(3,m(10,20,10,20),enabled:${isEmpty(reportToday)}),aln:center,call(na,block(
- alert(question,${res("Proceed_finalization%3f")},continue),
- if(${continue},block(
- //average cluster weight
- set(.pest,${"ML15I2I4I"},dDone),
- set(.task,${"TS1003JA"},dDone),
- set(.ritems,$avgClusterWeight,dDone),
- set(.data,$avgClusterWeight,dDone),
- store(dDone,no),
- set($dsetName,${"dsBerriesOnHarvest"}),
- proc(copyNotes),
- //average 1 berry weight
- set(.pest,${"ML15I2I3I"},dDone),
- set(.task,${"TS1003JD"},dDone),
- set(.ritems,$avg1BerryWeight,dDone),
- set(.data,$avg1BerryWeight,dDone),
- store(dDone,yes),
- proc(cleanNotes),
- cancel(),
- )
- )
- ))
- ),
- back:call(#Back,block(
- cancel()
- ))
- )
- //#region addSample
- sAddSampleHarvest:frm(#Measurement,90|60|90,
- init:block(
- set($lc, .plot, dDone),
- set($clusterWeight,${0}),
- set($berriesWeight5,${0}),
- set($samplesNo, ${frm(def(cnt(qp('/data[plot==lc&&pest=="ML15I2I2I"].sample_number_teperberg', 'dHist')), 0), 0, 0)}),
- set($numSample, ${frm(samplesNo+1, 0, 0)}),
- //set{$numSample,${lastData("/data[plot=='AL100'&&pest=='PM200'].sample_number_teperberg"})
- log(warn,${res("SamplesNo").samplesNo}),
- log(warn,${res("numSample").numSample}),
- )
- refresh:block(),
- focus:block(
- set($lblName,${qp('.lblName','dTemp')}),
- if(${notEmpty(lblName)}, block(
- focus(${'.'.lblName}),
- unset(.lblName,dTemp))
- )
- ),
- lbl(${res("Berries_Weight")},lo(3,m(0,0,10,0),style:group),aln:center),
- lbl(${res("Cluster_Weight")." (gr)"},lo(1,m(0,0,0,0)))
- lbl(""),
- lbl(${res("5_Berries_Weight")." (gr)"},lo(1,m(0,0,0,0)))
- ni(clusterWeight,lo(1),dpath(dTemp,.cluster_Weight))
- lbl(""),
- ni(berriesWeight5,lo(1),dpath(dTemp,.berries_Weight5))
- auxinfo:producer(prm(tags:no,photos:yes,notes:yes,dset:dsBerriesOnHarvest)),
- btn(#Save,lo(3,m(20,20,20,20)),aln:center,call(na,block(
- if(${!allNotNull(berriesWeight5,clusterWeight)},block(end()))
- //cluster save
- set(.task,${"TS1003JA"},dDone),
- set(.pest,${"ML15I2I1I"},dDone),
- set(.ritems,$clusterWeight,dDone),
- set(.data,$clusterWeight,dDone),
- store(dDone,no),
- set($dsetName,${"dsBerriesOnHarvest"}),
- proc(copyNotes),
- //berries5 save
- set(.task,${"TS1003JB"},dDone),
- set(.pest,${"ML15I2I2I"},dDone),
- set(.ritems,$berriesWeight5,dDone),
- set(.cluster_weight_teperberg,$clusterWeight,dDone),
- set(.sample_number_teperberg,$numSample,dDone),
- set(.data,$berriesWeight5,dDone),
- store(dDone,yes),
- proc(cleanNotes),
- cancel(),
- )))
- back:call(#Back,
- cancel()
- )
- )
- //#endregion
- )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement