>>******************************************************************************************************* >>FUNCTION SocketExport( m.loSocketObject, m.lcExportTo, m.lxExchangeType, m.lxArea, m.lxKeyValue, m.lxEvent ) >>******************************************************************************************************* >>LOCAL m.lbSendEvent, m.lbSuccess >> >> m.lbSendEvent = ( PARAMETERS() = 6 ) >> >> PUSH KEY CLEAR >> >> m.lbSuccess = .F. >> >> DO WHILE ! m.lbSuccess >> IF m.lbSendEvent >> m.lbSuccess = m.loSocketObject.ProcessData( m.lcExportTo, m.lxExchangeType, m.lxArea, m.lxKeyValue, m.lxEvent ) >> ELSE >> m.lbSuccess = m.loSocketObject.ProcessData( m.lcExportTo, m.lxExchangeType, m.lxArea, m.lxKeyValue ) >> ENDIF >> IF ! m.lbSuccess ; >> AND ! RetryCancel( 'The following error was encountered while attempting ' + CHR(13) ; >> + 'to transmit data to ' + m.lcExportTo + ':' + CHR(13) + CHR(13) ; >> + m.loSocketObject.errorMsg, 'Data Transmission Error', '!' ) >> EXIT >> ENDIF >> ENDDO >> >> DO WHILE CHRSAW() >> INKEY() >> ENDDO >> >> POP KEY >> >>RETURN m.lbSuccess >>******************************************************************************************************* >>