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