G
Geraldo Moreira
Guest
Dear All, In the example below, any chance to keep yyteste1.p running after return command in the caller yyassincr.p ? Caller: yyassinc.p define variable hRequest as handle no-undo. define variable hServer as handle no-undo. define variable lReturn as logical no-undo. create server hServer. lReturn = hServer:connect(" -AppService as-hc-si -S 22015 -H tst -DirectConnect"). if lReturn then do: run yyteste1.p on hServer asynchronous (input "1") /*set hRequest no-wait*/. end. else message "Error to connect AppServer as-hc-si" view-as alert-box. /*wait-for procedure-complete of hRequest. .delete object hRequest no-error. .hServer:disconnect(). .delete object hServer no-error. */ return. Called: yyteste1.p define input parameter pvc_param as character no-undo. output to value("i_am_here." + pvc_param). put string(time,"hh:mm:ss") skip. if pvc_param <> "1" then for each sod_det no-lock : put sod_nbr " " sod_line " " sod_part " " sod_due_date " " skip. end. else for each pt_mstr no-lock: disp pt_part pt_desc1. end. put string(time,"hh:mm:ss") skip. output close. Thanks, Geraldo
Continue reading...
Continue reading...