xbrowse() problema con los decimales al enviar a Excel

[CARLOS ATUNCAR]

tengo una pantalla en XBROWSE() donde hay dos columnas numericas con 4 posiciones en los decimales y al enviarlo al excel lo envia con 4 posiciones en los decimales pero redondeados a 2
ejemplo
443.4784 en excel sale 443.4800

alguna solución hay que configurar algo

[cnavarro]

Carlos, una pregunta, esa columna tiene definido un picture? ( oCol:cEditPicture ), si no es así, prueba a definirlo y me dices

[CARLOS ATUNCAR]

Saludos cNavarro este es mi codigo usado

Code: Select all | Expand

cMsg := "SELECT mesv,t AS Aux,vou,cuenta,SUM(debes) AS debe,SUM(habers) AS haber "
cMsg += "FROM voucher_mov "
cMsg += "WHERE empresa=? AND periodo=? AND mesv=? AND ((debes != TRUNCATE(debes, 2)) OR (habers != TRUNCATE(habers, 2))) "
cMsg += "GROUP BY mesv,t,vou,cuenta "
cMsg += "ORDER BY mesv,t,vou"

cQry := aServer:RowSet( cMsg ,{op:empresa,op:ano,op:mes} )

WaitOff( @oWait )
If cQry:lastrec()>0
   XBrowse( cQry,"ANALISIS DE ASIENTOS CON DECIMALES > 2 DIGITOS" )
Else
   MsgStop( "NO EXISTE OPERACIONES A REVISAR","STOP")
EndIf
cQry:End()

[ertan]

Hello to Everybody,

viewtopic.php?t=45548&start=15

I think you are facing the same problem,

Best regards,
Ertan Hakan ÖZTÜRK
ertan_ozturk@yahoo.com

[Antonio Linares]

tengo una pantalla en XBROWSE() donde hay dos columnas numericas con 4 posiciones en los decimales y al enviarlo al excel lo envia con 4 posiciones en los decimales pero redondeados a 2
ejemplo
443.4784 en excel sale 443.4800

alguna solución hay que configurar algo

Estas usando SET DECIMALS TO 4 ?

[cnavarro]

Saludos cNavarro este es mi codigo usado

Code: Select all | Expand

cMsg := "SELECT mesv,t AS Aux,vou,cuenta,SUM(debes) AS debe,SUM(habers) AS haber "
cMsg += "FROM voucher_mov "
cMsg += "WHERE empresa=? AND periodo=? AND mesv=? AND ((debes != TRUNCATE(debes, 2)) OR (habers != TRUNCATE(habers, 2))) "
cMsg += "GROUP BY mesv,t,vou,cuenta "
cMsg += "ORDER BY mesv,t,vou"

cQry := aServer:RowSet( cMsg ,{op:empresa,op:ano,op:mes} )

WaitOff( @oWait )
If cQry:lastrec()>0
   XBrowse( cQry,"ANALISIS DE ASIENTOS CON DECIMALES > 2 DIGITOS" )
Else
   MsgStop( "NO EXISTE OPERACIONES A REVISAR","STOP")
EndIf
cQry:End()

Oye, el uso de la function TRUNCATE no te produce justo lo que dices que te ocurre?
o solo pretendes que te aparezcan los dos primeros decimales sin redondearlo, me refiero a usar esa function TRUNCATE ?

[CARLOS ATUNCAR]

cNavarro, si obtengo los resultados deseados en pantalla todo esta bien es al enviar a excel

[CARLOS ATUNCAR]

tengo una pantalla en XBROWSE() donde hay dos columnas numericas con 4 posiciones en los decimales y al enviarlo al excel lo envia con 4 posiciones en los decimales pero redondeados a 2
ejemplo
443.4784 en excel sale 443.4800

alguna solución hay que configurar algo

Estas usando SET DECIMALS TO 4 ?

no lo estoy usando pruebo haber si se soluciona

[cnavarro]

Carlos, si eso no lo soluciona quizás sea el mismo problema que comentaba el compañero
viewtopic.php?p=279144#p279144