topic-27396

Posts: 226

Joined: Sun May 13, 2012 07:52 AM

rpreview excel fwh1308
Posted: Tue Oct 01, 2013 04:55 PM

ola
usando o codigo abaixo:
COLUMN TITLE "ATACADO";
DATA Prod->Pfa_Prod;
PICTURE "@E 999,999.99";
SIZE 08;
FONT 1

preview exibe:

=> 16,00 correto

excel exibe:

=> 16,099 nao correto

como solucionar?

grato

FWH2008 | xHarbour | BCC74 | SQLRDD

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: rpreview excel fwh1308
Posted: Wed Oct 02, 2013 12:56 PM

We understand that there appears to be problem with non-english installations of Excel.
We request your feed back for finding suitable solution.

Please let us know if the export is correct if the picture is changed as

Code (fw): Select all Collapse

PICTURE "@E 999999.99";

Regards

G. N. Rao.

Hyderabad, India

Sistem

Posts: 226

Joined: Sun May 13, 2012 07:52 AM

Re: rpreview excel fwh1308
Posted: Wed Oct 02, 2013 01:25 PM

nageswaragunupudi

office 2010 pt-br
column mysql => pfa_prod REAL (13,4)

COLUMN TITLE "ATACADO";
DATA Prod->Pfa_Prod;
PICTURE "@E 999999.99";
SIZE 08;
FONT 1

preview result:

excel result:

PICTURE "@E 999999.9999";

thanks

FWH2008 | xHarbour | BCC74 | SQLRDD

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: rpreview excel fwh1308
Posted: Wed Oct 02, 2013 02:13 PM

Please try modifying report.prg as suggested below.

Please locate the following code in report.prg ( line 2115 in version 13.08 )

Code (fw): Select all Collapse

         case 'N'
            :NumberFormat     := "##0"
            :HorizontalAlignment := xlRight
            if "." $ cPic
               :NumberFormat  += SubStr( cPic, At( ".", cPic ) )
            endif
            if "," $ cPic
               :NumberFormat  := "#," + :NumberFormat
            endif
            exit

Please substitute the above block of code with the code below:

Code (fw): Select all Collapse

         case 'N'
            :NumberFormat     := "##0"
            :HorizontalAlignment := xlRight
            if "." $ cPic
               :NumberFormat  += ( "," + Replicate( '0', Len( AfterAtNum( '.', cPic ) ) ) )
            endif
            if "," $ cPic
               :NumberFormat  := "#." + :NumberFormat
            endif
            exit

Please make the above changes, compile and link the modified report.prg with your application.

Please let us know the result of export to excel after making the above changes with picture clauses "@E 999,999.99" and "@E 999999.99"

Regards

G. N. Rao.

Hyderabad, India

Sistem

Posts: 226

Joined: Sun May 13, 2012 07:52 AM

Re: rpreview excel fwh1308 (resolved)
Posted: Wed Oct 02, 2013 02:36 PM

perfect :lol:
thanks

FWH2008 | xHarbour | BCC74 | SQLRDD

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: rpreview excel fwh1308
Posted: Wed Oct 02, 2013 04:27 PM

Thanks for your feedback. This is very useful to us.
I request you to make this correction in your copy of report.prg till we make general modification.

Wish to get feedback from users of other language installations of Excel.

Regards

G. N. Rao.

Hyderabad, India

Sistem

Posts: 226

Joined: Sun May 13, 2012 07:52 AM

Re: rpreview excel fwh1308
Posted: Wed Oct 02, 2013 07:48 PM

nageswaragunupudi

brother, If I ADD the TOTAL return 1 error

COLUMN TITLE "VLR.NF";
DATA Nota->Val_Nota;
PICTURE "@E 9,999,999.99";
SIZE 09;
FONT 2;
TOTAL <============= RETURN ERRO IN EXCEL =========> error 9003: Too many recursive

FWH2008 | xHarbour | BCC74 | SQLRDD

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: rpreview excel fwh1308
Posted: Wed Oct 02, 2013 09:22 PM

For totals we use the forumla
=SUBTOTAL( 9, <range> ) and <range> with syntax "A2:A5" for English installation of Excel.

I understand that your Excel Installation is Portugese (Brazil ). I read from documentation that the syntax for

Portugese (Poland) is "=SUBTOTAL( 9; A2:A5 )"
Portugese (Brazil) is "=SUBTOTAL( 9, A2:A5 )" // Same as English.

I thought the default English Syntax should work for you.

Please help by doing this test.
Open a blank Excel sheet. Enter some numbers in cells A2, A3, A4 and A5
In Cell A6 please enter the forumla "=SUBOTAL( 9, A2:A5 )"
Does it work or do you get error. If you get error, please find what is the correct syntax to enter.

We need your help and cooperation to implement your language in excel export.

Regards

G. N. Rao.

Hyderabad, India

Sistem

Posts: 226

Joined: Sun May 13, 2012 07:52 AM

Re: rpreview excel fwh1308
Posted: Wed Oct 02, 2013 09:51 PM

nageswaragunupudi

results:
=SUBTOTAL(9;A2:A5) <= ok
=SUBTOTAL(9,A2:A5) <= erro

FWH2008 | xHarbour | BCC74 | SQLRDD

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: rpreview excel fwh1308
Posted: Wed Oct 02, 2013 10:04 PM

#1. Please make this change in report.prg.

Locate this code in METHOD ToExcel(...) ( line no:2003 in ver 13.08)

Code (fw): Select all Collapse

   local cSubTot     := "=SUBTOTAL(9,"

Please change this as

Code (fw): Select all Collapse

   local cSubTot     := "=SUBTOTAL(9;"

After the change, please let me know the result.

#2. I would appreciate some more help and feedback from you.

Please write this small function for testing your language installation ID of Excel

Code (fw): Select all Collapse

function XlangID()

   local oExcel, nLangID

   oExcel := ExcelObj()
   nLangID := oExcel:LanguageSettings:LanguageID( 2 )
   ? nLangID

return nLangID

Please let me know the result you get.

Note:
I think
1046 = Portuguese Brazil
2070 = Portuguese Poland.

Regards

G. N. Rao.

Hyderabad, India

Sistem

Posts: 226

Joined: Sun May 13, 2012 07:52 AM

Re: rpreview excel fwh1308
Posted: Wed Oct 02, 2013 10:05 PM

nageswaragunupudi

local cSubTot := "=SUBTOTAL(9;" // thanks

suggestion:
local hWnd
...
..
oExcel:Visible := .t.

hWnd:=oExcel:hWnd
ShowWindow(hWnd, 3)
BringWindowToTop(hWnd)

calls excel to foreground

FWH2008 | xHarbour | BCC74 | SQLRDD

Sistem

Posts: 226

Joined: Sun May 13, 2012 07:52 AM

Re: rpreview excel fwh1308
Posted: Wed Oct 02, 2013 10:10 PM

XlangID() = 1046

FWH2008 | xHarbour | BCC74 | SQLRDD

Sistem

Posts: 226

Joined: Sun May 13, 2012 07:52 AM

Re: rpreview excel fwh1308
Posted: Wed Oct 02, 2013 10:40 PM

nageswaragunupudi

veja:

GROUP ON Nota->Nat_Nota ;
FOOTER "TOTAL DE NOTAS ICMS => "+oReport:aGroups[1]:cValue+ ;
" ( "+ltrim(str(oReport:aGroups[1]:nCounter))+" )" ;
FONT 2

FWH2008 | xHarbour | BCC74 | SQLRDD

FiveTech Support Forums

Continue the discussion