Forum Post: Re: Help With Subroutine, Can't Find Fault On Calling It.

  • Thread starter Thread starter GregHiggins
  • Start date Start date
Status
Not open for further replies.
G

GregHiggins

Guest
I really don't like this code. (Though don't take offense, I really don't like most code.) ON DEFAULT-ACTION OF BROWSE-12 IN FRAME DEFAULT-FRAME /* Paqs. Rechazados */ DO: IF AVAILABLE brCasoPaquete THEN DO on error undo, throw on quit undo, throw on stop undo, throw: FILE-INFO:FILE-NAME = "procs\suc\sSuc03002.r". IF FILE-INFO:FULL-PATHNAME gt "" THEN RUN procs\suc\sSuc03002.w (brCasoPaquete.Control#, brCasoPaquete.Nivel, brCasoPaquete.ProdNombre, brCasoPaquete.Sucursal, pUsuario, brCasoPaquete.PesoEtiqueta, brCasoPaquete.PesoLlegada, brCasoPaquete.StatusEtiqueta) . else undo, throw new AppError ( "No se encontró: sSuc03002.r" ). CATCH myApp AS Progress.Lang.AppError : MESSAGE "Error (Lang.AppError): " myApp:GETmessage(1) VIEW-AS ALERT-BOX. END CATCH. CATCH mySys AS Progress.Lang.SysError : MESSAGE "Error (Lang.SysError): " mySys:GETmessage(1) VIEW-AS ALERT-BOX. END CATCH. END /* if available ... */. END /* on default ... */.

Continue reading...
 
Status
Not open for further replies.
Back
Top