>t1=seco() >put parameters to stackpoint >Call subroutine >~~~~~~~~~~~~~~~ >the proccesor time has another thread/process >~~~~~~~~~~~~~~~ >get parameters and result from stackpoint >t2=seco() >>
>>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 >>>>