>LOCAL i >i = 0 > >IF VARTYPE(Thisform.p_ivr.SocketWrench0) <> 'U' && We have an object > IF Thisform.p_ivr.SocketWrench0.Listening > Thisform.p_ivr.SocketWrench0.Disconnect > ENDIF > > FOR i = 1 TO lnLastSocket > IF Thisform.p_ivr.SocketWrench&i..Connected > Thisform.p_ivr.SocketWrench&i..Disconnect > ENDIF > ENDFOR >ENDIF >>
FOR i = 1 TO lnLastSocket lcWrench = TRANS(I) IF Thisform.p_ivr.SocketWrench&lcWrench..Connected Thisform.p_ivr.SocketWrench&lcWrench..Disconnect ENDIF ENDFOR