FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Bug en Xbrowse 10.3
Posts: 694
Joined: Fri Oct 07, 2005 06:58 AM
Bug en Xbrowse 10.3
Posted: Mon Apr 26, 2010 08:14 AM
Este es el código que aparece al comienzo del función clp2xlnumpic

Code (fw): Select all Collapse
Static function clp2xlnumpic( cPic )

   local cFormat, aPic, c, lEnglish := lxlEnglish

   if cPic == nil
      cFormat  += If( lThouSep .or. ",9" $ cPic, If( lEnglish, "#,##0", "#.##0" ), "0" )
   else


Al realizar "cFormat +=" da error ya que cFormat no tiene valor en ese punto.

Lo correcto sería:
Code (fw): Select all Collapse
Static function clp2xlnumpic( cPic )

   local cFormat, aPic, c, lEnglish := lxlEnglish

   if cPic == nil
      cFormat  := If( lThouSep .or. ",9" $ cPic, If( lEnglish, "#,##0", "#.##0" ), "0" )
   else
Un saludo

Fernando González Diez

ALSIS Sistemas Informáticos
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Bug en Xbrowse 10.3
Posted: Wed Apr 28, 2010 11:14 AM
Correct fix is:
Code (fw): Select all Collapse
   if cPic == nil
      cFormat  := If( lThouSep, If( lEnglish, "#,##0", "#.##0" ), "0" )

This fix is required for versions 9.12 to 10.3
Regards



G. N. Rao.

Hyderabad, India

Continue the discussion