FiveTech Support Forums

hola:

al traspasar una tabla DBF utilizando oBrw:ExcelOle(), la columna que contiene un campo numerico con decimales (con formato 9999.99), queda cargada a la izquierda y no es procesada como campo numerico, hay que cambiar manualmente a 9999,9 para que excel la considere com numerica y puedan hacerse operaciones matematicas con esta columna.

la pregunta es ¿ Cómo puedo cambiar el "." por la "," en el METHOD ExcelOle() para que cuando realize el traspaso a una planilla excel quede automaticamente como Numero y sus respectivos decimales?..

pd. los numeros sin decimales actuan en forma normal.

desde ya gracias.

disculpa que browse estas usando ?

yo uso xbrowse y el method se llama oBrw:ToExcel()

perdon Armando, ya mire que usas TSBRW sorry.

a mi me paso algo similar, pero con la txbrw y tuve que modificar las class para evitar que suprimiera los decimales..

saludos...

la idea es modificar algo en el metodo que maneja la sbrowse version 8.

creo que esta aqui, lina 3843 de la clase, pero no estoy seguro.

     If ::aColumns[ nCol ]:cPicture != Nil
        uData := Transform( uData, ::aColumns[ nCol ]:cPicture )
     EndIf

     uData  :=  IIF( ValType( uData )=="D", DtoC( uData ), ;
<!-- s:?: --><img src="{SMILIES_PATH}/icon_question.gif" alt=":?:" title="Question" /><!-- s:?: --> aqui--&gt;     IIF( ValType( uData )==&quot;N&quot;, Str( uData ) , ; &lt;-- <!-- s:?: --><img src="{SMILIES_PATH}/icon_question.gif" alt=":?:" title="Question" /><!-- s:?: --> 
                    IIF( ValType( uData )==&quot;L&quot;, IIF( uData ,&quot;.T.&quot; ,&quot;.F.&quot; ), cValToChar( uData )))

     cText += Trim( uData ) + Chr( 9 )

pero no se como realizar el cambio correcto...

espero que me ayuden...

armando.lagunas wrote:la idea es modificar algo en el metodo que maneja la sbrowse version 8.
creo que esta aqui, lina 3843 de la clase, pero no estoy seguro.

   bExtern := {|oSheet| oSheet:Columns( 10 ):Set( "NumberFormat", "#,##0.00" ) }

   Define Button OF oBar Resource "Excel" ;
          Action oBrw:ExcelOle( "Test.xls", .T.,, cTitle,,, bExtern ) ;
          ToolTip "Export Browse to Excel"

Estimado Manuel

utilice su sugerencia y resultó bien, pero para una sola columna, la tabla que llevo a excel tiene varias columnas con campos decimales y en diferentes posiciones, dependiendo del resultado obtenido de cálculos matemáticos, que determinan la demanda de un producto "x".

solucione el problema insertando una nueva instrucción en la linea 3844 de la clase original del método ExcelOle() en donde reemplazo el "punto" decimal por la "coma" del formato de salida de la columna utilizando la función STRTRAN().

3842 If ::aColumns[ nCol ]:cPicture != Nil
3843 uData := Transform( uData, ::aColumns[ nCol ]:cPicture )
3844 uData := Strtran ( uData,".",",") // decimales en excel by Armando Lagunas
3845 EndIf

con este cambio, todo funciona muy bien y el formato de salida es el correcto para las columnas que contengan números.

gracias a sus comentarios

saludos desde Chile.