Files
vfp_roaauto/COMUN/utile/hpdf/build_err_msgs.PRG

19 lines
305 B
Plaintext

if not Used('hpdferr')
use hpdferr in 0
endif
set textmerge on
set textmerge to memvar _cliptext
select hpdferr
\ with this.errors
scan
\ .Add([<<Strtran(Trim(hpdferr.message),Chr(13),"] + CR + [")>>], "<<Transform(hpdferr.errno)>>")
endscan
\ endwith
use
set textmerge to