Class: | FTP_SERVICE |
Description: | Watch dog of this FTP Service |
Type | Boolean |
Direction | Input |
LPARAMETERS INP llShowMessage LOCAL lcMessage IF m.llShowMessage * Build Error Message Here lcMessage = "Error (" + ALLTRIM(STR(This.nResult_Code)) + ") - " + ; This.GetErrorText(This.nResult_Code) IF !EMPTY(This.cExtended_Message) lcMessage = m.lcMessage + CHR(13) + CHR(13) + "Extended Error Info - (" + ; ALLTRIM(STR(This.nExtended_Result)) + ; ") - " + This.cExtended_Message ENDIF =MESSAGEBOX(m.lcMessage, 48, "FTP Error Message") ENDIF RETURN This.nResult_Code