Initial commit — sursa COMUN (framework partajat ROA)

utile/hpdf/build_err_msgs.PRG

@@ -0,0 +1,18 @@
+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
+
+
+
+