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