print utf8 word Incorrect

[richard-service]

Hi
Please look it. Preview user name not OK.



This is a user name problem

Code: Select all  Expand view

::cE_NAMEx := ::Transfor_Data( AllTrim(::cE_NOm) )

::oPrn:CmSay(  1.75,  1  , "編 號：[ " + AllTrim(::cE_NOm)   + " ]" )
::oPrn:CmSay(  1.75,  5  , "姓 名：[ " + AllTrim(::cE_NAMEx) + " ]" )


METHOD Transfor_Data( cData ) CLASS TRpt_EmployeeSalaryDataMsf

LOCAL cTmpData := ""

      cData := AllTrim( cData )

      ::oEmployeeMsfDBx:cQuery := "SELECT * FROM EmployeeMsf WHERE E_NO = '"+cData+"' LIMIT 1 AND COMP_NO ='"+AllTrim(Left(cCP_NO,3))+"' "
      ::oEmployeeMsfDBx:Refresh()

      IF ::oEmployeeMsfDBx:LastRec() <> 0
         cTmpData := FW_UTF8PADCHAR(::oEmployeeMsfDBx:E_NAME, 10)     //=>MsgInfo User name No problem
         RETURN cTmpData
      ELSE
         RETURN cTmpData
      ENDIF

RETURN cTmpData
 

This is Item name No problem.

Code: Select all  Expand view

::oPrn:CmSay( nPrnRow,  0.5, HB_UTF8SUBSTR(::oEmployeeSalaryMsfDB:ITMNM,1,16), , , , )
::oPrn:CmSay( nPrnRow,  7  , Transform( ::oEmployeeSalaryMsfDB:SRYAT,"9,999,999")+" 元", , , , )
 

[nageswaragunupudi]

does this work?
cTmpData := HB_UTF8LEFT(::oEmployeeMsfDBx:E_NAME, 10)

[richard-service]

does this work?
cTmpData := HB_UTF8LEFT(::oEmployeeMsfDBx:E_NAME, 10)

Mr.Rao
Not work.

cTmpData := HB_Utf8SubStr( ::oEmployeeMsfDBx:E_NAME, 1, 10 )
cTmpData := HB_UTF8LEFT(::oEmployeeMsfDBx:E_NAME, 10)

[nageswaragunupudi]

Can you please try
? ::oEmployeeMsfDBx:E_NAME
? HB_UTF8LEFT(::oEmployeeMsfDBx:E_NAME, 10)

[richard-service]

Can you please try
? ::oEmployeeMsfDBx:E_NAME
? HB_UTF8LEFT(::oEmployeeMsfDBx:E_NAME, 10)

Mr.Rao
Yes, it can show, but not work when print.

[nageswaragunupudi]

Now can you please try this?
? "姓 名：[ " + ::oEmployeeMsfDBx:E_NAME + " ]"

[richard-service]

Now can you please try this?
? "姓 名：[ " + ::oEmployeeMsfDBx:E_NAME + " ]"

? "姓 名："::oEmployeeMsfDBx:E_NAME

[nageswaragunupudi]

That means + is giving problems.
That is adding strings byte wise not character wise

[richard-service]

That means + is giving problems.
That is adding strings byte wise not character wise

Mr.Rao
Chinese Report must be add some strings below:

列印區間: ::oDB:Date1 +"~"+ ::oDB:Date2
報表製作者: ::oDB:Maker
.......ETC

Any solution for it? or Don't use +

[nageswaragunupudi]

Let me try

[richard-service]

Let me try

Mr.Rao
I try it below:

Old code, only one line code

Code: Select all  Expand view

oPrn:Say( XX, YY , "列印區間："+AllTrim(::cNo1) , oFnt2 )
 

for Unicode

Code: Select all  Expand view

oPrn:Say( XX, YY        , "列印區間："                                 , oFnt2 )
oPrn:Say( XX, YY+210 , AllTrim(HB_UTF8LEFT(::cNo1,50)) , oFnt2 )
 

Coding load heave......

[richard-service]

Let me try

Mr.Rao
I try it below:

Old code, only one line code

Code: Select all  Expand view

oPrn:Say( XX, YY , "列印區間："+AllTrim(::cNo1) , oFnt2 )
 

for Unicode

Code: Select all  Expand view

oPrn:Say( XX, YY        , "列印區間："                                 , oFnt2 )
oPrn:Say( XX, YY+210 , AllTrim(HB_UTF8LEFT(::cNo1,50)) , oFnt2 )
 

Coding load heave......

Report command syntax not work

Code: Select all  Expand view

REPORT oReport                                  ;
   TITLE   Trim(cTitle)                         ,;
                    ""                                   ,;
"列印區間："+ AllTrim(HB_UTF8LEFT(::cNo1, 10)) +" ~ " + AllTrim(HB_UTF8LEFT(::cNo2, 10)) + space(5) + ;
"製表人員："+ AllTrim(HB_UTF8LEFT(_USER_NAME, 20)) + SPACE(3) +;
 

First work no problem
Second not work

"列印區間："+ AllTrim(HB_UTF8LEFT(::cNo1, 10)) +" ~ " + AllTrim(HB_UTF8LEFT(::cNo2, 10)) + space(5) + ;
"製表人員："+ AllTrim(HB_UTF8LEFT(_USER_NAME, 20)) + SPACE(3) +;

so HB_UTF8xxx() support +"~"+ not work "Chinese word" or "[" + "]" ....

[richard-service]

Mr.Rao

Any news for it?
Today, I found problem from TReport

Code: Select all  Expand view

REPORT oReport                                  ;
            TITLE   Trim(cTitle)                         ,;
                       ""                                   ,;
                       "列印區間："+ "目前顯示資料" + space(5) + ;
                       "製表人員："+ AllTrim(HB_UTF8LEFT(_USER_NAME, 20)) + SPACE(3)      + ;
 

"製表人員："+ AllTrim(HB_UTF8LEFT(_USER_NAME, 20))

not work. if I use MsgStop(_USER_NAME), it can show good Chinese text.

[richard-service]

Hi
Today, I test it and find problem.

[richard-service]

Hi Mr.Rao and Antonio,

Any news for it?
I just saw fwh1712 not news for it.