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),


        //average 1 berry weight
        set(.pest,${"ML15I2I3I"},dDone),
        set(.task,${"TS1003JD"},dDone),
        set(.ritems,$avg1BerryWeight,dDone),
        set(.data,$avg1BerryWeight,dDone),
        store(dDone,no),

        unset(.ritems,dDone)

        set($dsetName,${"dsBerriesOnHarvest"}),
        proc(copyNotes),
        set(.pest,$pestCode,dDone),
        set(.task,$taskCode,dDone),
        set(.data,${"yes"},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
)