String values contains letter R.

KB-20230721-01

Version

XFRX 22.4

Symptoms

Some string contains letter a R in all outputs.

Cause

Text field has source of data type string
Seted to "Character" on Format page of text file properties
Template charcters - Interleave

Workaround

Hook object for fixing bug in XFRX#INIT

loSession=EVALUATE([xfrx("XFRX#INIT")])

loHook=CREATEOBJECT("xfrxhook")
BINDEVENT(loSession, "setReportParams", loHook, "setReportParams")
loSession.ProcessReport(lcPath+"test2.frx")
UNBINDEVENTS(loSession)

DEFINE CLASS xfrxhook AS custom
   PROCEDURE setReportParams
      LPARAMETERS loo
      LOCAL m.liSele
      m.liSele=SELECT()
      SELECT UR_REPORT
      REPLACE PICTURE WITH STRTRAN(PICTURE, "@ R ", "@R ") FOR OBJTYPE=8 AND FILLCHAR="C" AND ATC("@ R ", PICTURE)>0
      SELECT (m.liSele)
      RETURN
   ENDPROC
ENDDEFINE