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