Page History
...
[ 
|../../index.htm#lansa/lansa048_8015.htm]
...
...
VLF-ONE
...
VLF-ONE filters and command handlers now inherit new and simplified asynchronous handling methods.
These new methods automatically implement the most common activities performed in an asynchronous interaction with a server module, such as:
...
- ------------------------------------------------------------------------------
Evtroutine Handling(#StartCount.Click)
Define_Com Class(#std_Int) Name(#PhysicalCounter)
#Com_Owner.avQueueAsyncOperation Operationid(Count) Parameterreference1(#PhysicalCounter)
Endroutine - ------------------------------------------------------------------------------
Evtroutine Handling(#StopCount.Click)
#Com_Owner.avQueueAsyncOperation Operationid(Stop)
Endroutine - ------------------------------------------------------------------------------
Mthroutine Name(avExecuteAsyncOperation) Options(*REDEFINE)
Define_Com Class(#std_Int) Name(#UseCounter) Reference(*DYNAMIC)
Case (#OperationID)
When (= Count)
#UseCounter <= #ParameterReference1 *As #Std_Int
#UseCounter += 1
#VisibleCounter := #UseCounter.AsString
#Com_Owner.avQueueAsyncOperation Operationid(Count) Parameterreference1(#UseCounter)
When (= Stop)
#VisibleCounter := "Stopped"
#KillOtherPendingOperations := True
Otherwise
#SYS_WEB.Alert Caption("Unknown operation id " + #OperationID)
Endcase
Endroutine
End_Com
When executed it looks like this:
[ |../../index.htm#lansa/lansa048_8015.htm]