t1=seco() put parameters to stackpoint Call subroutine ~~~~~~~~~~~~~~~ the proccesor time has another thread/process ~~~~~~~~~~~~~~~ get parameters and result from stackpoint t2=seco()MartiJ
>PROCEDURE addbeforeappendblank >1 Hit 1st 5.359766 Avg 5.359766 IF thisform.isnewbatch() >. >. >. >PROCEDURE isnewbatch >1 Hit 1st 0.000000 Avg 0.000000 DO CASE > >1 Hit 1st 0.000000 Avg 0.000000 CASE EMPTY(thisform.icbatchno) >0 Hits 1st 0.000000 Avg 0.000000 RETURN .T. > >1 Hit 1st 0.000000 Avg 0.000000 CASE thisform.chkNewBatch.Value > * check if all cards have been entered for this batch > IF oAppInfo.PreCountBatch AND thisform.inbatchrecordcount < thisform.inPreCountBatch ; >0 Hits 1st 0.000000 Avg 0.000000 AND X3MSGSVC("Card count, less") = "Y" >0 Hits 1st 0.000000 Avg 0.000000 thisform.chkNewBatch.Value = .F. >0 Hits 1st 0.000000 Avg 0.000000 RETURN .t. > ELSE >0 Hits 1st 0.000000 Avg 0.000000 RETURN .F. > ENDIF > > CASE oAppInfo.PreCountBatch AND thisform.inbatchrecordcount >= thisform.inPreCountBatch ; >1 Hit 1st 0.000000 Avg 0.000000 AND X3MSGSVC("The actual count of cards matches the pre-counted number") = "Y" >0 Hits 1st 0.000000 Avg 0.000000 RETURN .T. > > OTHERWISE >1 Hit 1st 0.000049 Avg 0.000049 RETURN .F. > > ENDCASE > ENDPROC >>