FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour xbrowse() problema con los decimales al enviar a Excel
Posts: 230
Joined: Thu Sep 17, 2015 11:40 PM
xbrowse() problema con los decimales al enviar a Excel
Posted: Tue Apr 22, 2025 09:25 PM

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

Carlos Atuncar - CaSoftSystem
Chincha - Per煤
+51983478218
carlosalbatun@gmail.com
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: xbrowse() problema con los decimales al enviar a Excel
Posted: Wed Apr 23, 2025 02:42 AM

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 230
Joined: Thu Sep 17, 2015 11:40 PM
Re: xbrowse() problema con los decimales al enviar a Excel
Posted: Thu Apr 24, 2025 03:04 AM
Saludos cNavarro este es mi codigo usado
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()
Carlos Atuncar - CaSoftSystem
Chincha - Per煤
+51983478218
carlosalbatun@gmail.com
Posts: 61
Joined: Wed Jul 26, 2023 12:08 PM
Re: xbrowse() problema con los decimales al enviar a Excel
Posted: Thu Apr 24, 2025 05:19 AM
Hello to Everybody,

https://forums.fivetechsupport.com/viewtopic.php?t=45548&start=15

I think you are facing the same problem,

Best regards,
Ertan Hakan 脰ZT脺RK
ertan_ozturk@yahoo.com
Best regards,
Ertan,

ertan_ozturk@yahoo.com
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: xbrowse() problema con los decimales al enviar a Excel
Posted: Thu Apr 24, 2025 06:10 AM
CARLOS ATUNCAR wrote: 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 ?
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: xbrowse() problema con los decimales al enviar a Excel
Posted: Thu Apr 24, 2025 02:38 PM
CARLOS ATUNCAR wrote: Saludos cNavarro este es mi codigo usado
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 ?
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 230
Joined: Thu Sep 17, 2015 11:40 PM
Re: xbrowse() problema con los decimales al enviar a Excel
Posted: Thu Apr 24, 2025 11:44 PM

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

Carlos Atuncar - CaSoftSystem
Chincha - Per煤
+51983478218
carlosalbatun@gmail.com
Posts: 230
Joined: Thu Sep 17, 2015 11:40 PM
Re: xbrowse() problema con los decimales al enviar a Excel
Posted: Thu Apr 24, 2025 11:46 PM
Antonio Linares wrote:
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
Carlos Atuncar - CaSoftSystem
Chincha - Per煤
+51983478218
carlosalbatun@gmail.com
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: xbrowse() problema con los decimales al enviar a Excel
Posted: Fri Apr 25, 2025 02:01 AM
Carlos, si eso no lo soluciona quiz谩s sea el mismo problema que comentaba el compa帽ero
https://forums.fivetechsupport.com/viewtopic.php?p=279144#p279144
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces

Continue the discussion