Page 1 of 1

crash in export date TXBrwColumn to excel

Posted: Wed May 17, 2017 2:45 pm
by AntoninoP
Hello,
Exporting to excel a xBrowse column of type Date, the program crashes in this line:

Code: Select all

oSheet:Cells( nRow, nCol ):NumberFormat   := Lower( Set( _SET_DATEFORMAT ) )
at begin of the

Code: Select all

METHOD ToExcel( oSheet, nRow, nCol ) CLASS TXBrwColumn
It is because I have excel in Italian and the dateFormat is like dd/mm/yyyy.
I put here the same fix I see in another place in the same file:

Code: Select all

      if lxlEnglish
        if ValType( ::cEditPicture ) == 'C' .and. Left( ::cEditPicture, 1 ) != '@'
           oSheet:Cells( nRow,nCol ):NumberFormat := Lower( ::cEditPicture )
        else
           oSheet:Cells( nRow,nCol ):NumberFormat := Lower( Set( _SET_DATEFORMAT ) )
        endif
      endif
 
I see that for OOCalc export there is a GetNumberFormatId that convert it for localized formats, maybe we can do it for excel too...