*---------------------- Location Section ------------------------ * Library: Aqueueprocess.vcx * Class: Aassignqueues * Method: Error() *----------------------- Usage Section -------------------------- *) Description: *) * Scope: Public * Parameters: *$ Usage: *$ * Returns: *--------------------- Maintenance Section ---------------------- * Change Log: * CREATED 06/01/2005 - NN * MODIFIED *---------------------------------------------------------------- lparameters nError, cMethod, nLine if m.nError <> 1089 && Custom error local lcError, lnI, laErrors[1] lcError = "Encountered an error #" + transform(m.nError) + " " + ; message() + " " + message(1)+ " in method " + m.cMethod + ; "on line # " + transform(m.nLine) + chr(13) if not inlist(type('gaErrors[1]'),"U", "L") for lnI = 1 to alen(gaErrors) lcError = m.lcError + transform(gaErrors [m.lnI]) + chr(13) next endif this.lRealError = .t. this.cError = m.lcError endifand this in cError_Assign:
*---------------------- Location Section ------------------------ * Library: Aqueueprocess.vcx * Class: Aassignqueues * Method: Cerror_assign() *----------------------- Usage Section -------------------------- *) Description: *) * Scope: Public * Parameters: *$ Usage: *$ * Returns: *--------------------- Maintenance Section ---------------------- * Change Log: * CREATED 06/01/2005 - NN * MODIFIED *---------------------------------------------------------------- LPARAMETERS vNewVal *To do: Modify this routine for the Assign method THIS.cError = m.vNewVal this.WriteToLogfile(this.cError) IF NOT this.lRealError ERROR this.cError && Trigger an error endif this.lRealError = .f.Now, you're saying, that it would not work? :(