>PROTECTED PROCEDURE Error(iError, sMethod, iLine) > > LOCAL sSource, sMessage > > WITH This > > ** Form the error strings > sSource = TRANSFORM(iError) + CHR(13)+; > sMethod+; > TRANSFORM(iLine) > > sMessage = "Error" > > ** Populate the COM exception structure > =COMRETURNERROR(sSource, sMessage) > > ENDWITH > >ENDPROC >>
>PROCEDURE Init > > LOCAL sString > > sString = "Kevin" > > ** This will trigger the Error method > ? DTOC(sString) > >ENDPROC >>