scrset(
    sMeasureClusters:frm(#Count_Clusters,90|60|90,
    init:block(
        set($Clustercount,${0})
        set($pestCode, .pest, dDone),
        set($taskCode, .task, dDone),
    ),
    refresh:block(),

    focus:block(
        set($lblName,${qp('.lblName','dTemp')}),
        if(${notEmpty(lblName)}, block(
            focus(${'.'.lblName}),
            unset(.lblName,dTemp))
          )
      ),
    lbl(#Plot%3A,lo(2)),
    lbl(${qp('.plotName','dTemp')},lo(1)),
    lbl(#Crop%3A,lo(2)),
    lbl(${qp('.cropName','dTemp')},lo(1)),



    btn(#Increase,lo(3,m(10,10,10,10)),aln:center,call(na,block(
        //if(${ritems=='n/a'},set($ritems,${1}),set($ritems,${ritems+1})),
        set($Clustercount,${Clustercount+1}),
    ))),

    lbl(#Count,lo(3,style:caption),aln:center),

    lbl(${frm($Clustercount,0,0)},lo(3),sd:yes,aln:center),
    //lbl(${def(ritems,'n/a')},lo(3),sd:yes,aln:center),


    btn(#Store,lo(3,m(10,10,0,10)),aln:center,call(na,block(
        set(.pest,$pestCode,dDone),
        set(.task,$taskCode,dDone),
        set(.data,$Clustercount,dDone),
        set(.ritems,$Clustercount,dDone),
        store(dDone,yes)
        cancel()
    )))
    )
)