FiveTech Software tech support forums

Gracias armando, quedo muy bien..
FUNCTION Redondear(nValor)
IF nValor % 10 <= 5
nValor := nValor - (nValor % 10)
ELSE
nValor := nValor + (10 - nValor % 10)
ENDIF
RETURN(Round(nValor,0))

saludos

José:

Creo que esto puede funcionar

FUNCTION Redondear(nValor)
IF nValor % 10 <= 5
nValor := nValor - (nValor % 10)
ELSE
nValor := nValor + (10 - nValor % 10)
ENDIF
RETURN(nValor)

Pruébalo, los hice de salida y asumo que en valor no hay fracciones decimales

Saludos

Es al revés, para mostrar punto como separador de miles y coma de decimales:
@ nRow,nCol GET nValor PICTURE "@E 999,999.99"

Saludos a todos
@ nRow,nCol GET nValor PICTURE "@E999.999,99"

Este ejemplo no muestra los puntos separadores de mil.

... RETIDO->COD_AVUL ) DO WHILE cAvulso == RETIDO->Cod_Avul .AND. cEmpresa == RETIDO->COD_EMPRES // .AND. !EOF() SYSREFRESH() nContador++ nValor := RETIDO->IMPOSTO //_Verif_Movimen_Esoc(cMesAno) aDados := _PegaDadosEnviados( "S-1200",cEmpresa, cAvulso,RETIDO->COD_PRODES,@lAllOk,nValor, ...

... la tdolphin. Saludos, ¿las consultas en sql no deben terminar con punto y coma? "SELECT * FROM tbtarifas WHERE tbtarifas.iditem= " + STR(nValor) + " GROUP BY tbtarifas.fecha ORDER BY tbtarifas.fecha DESC ;"

... 1335 #DEFINE EM_GETTOUCHOPTIONS 1334 orichedit:SendMsg( EM_SETTOUCHOPTIONS, 1, .t. ) sin embargo no hace nada, le pido que me devuelva el valor: nvalor := orichedit:SendMsg( EM_GETTOUCHOPTIONS, 1, 0 ) y siempre me devuelve 0 (falso) https://docs.microsoft.com/en-us/windows/win32/controls/em-gettouchoptions ...

... La clase realiza UPDATE si tiene registros, oTable:=OpenTable(cSql) IF oTable:RecCount()=0 oTable:AppendBlank() ENDIF oTable:Replace("CAMPO1,nValor) oTable:Commit(oTable:cWhere) // Si oTable:cWhere esta vacio, INSERT INTO FIELDS,VALUES, caso contrario UPDATE TABLE SET oTable:End() En la clase ...

... La clase realiza UPDATE si tiene registros, oTable:=OpenTable(cSql) IF oTable:RecCount()=0 oTable:AppendBlank() ENDIF oTable:Replace("CAMPO1,nValor) oTable:Commit(oTable:cWhere) // Si oTable:cWhere esta vacio, INSERT INTO FIELDS,VALUES, caso contrario UPDATE TABLE SET oTable:End() La acabo ...

... La clase realiza UPDATE si tiene registros, oTable:=OpenTable(cSql) IF oTable:RecCount()=0 oTable:AppendBlank() ENDIF oTable:Replace("CAMPO1,nValor) oTable:Commit(oTable:cWhere) // Si oTable:cWhere esta vacio, INSERT INTO FIELDS,VALUES, caso contrario UPDATE TABLE SET oTable:End()

... oGet3:Refresh() Pero no pasa el valor, si habilita el get pero no pasa el valor, alguna forma de forzarlo ?? como en el oSay:Settext(nValor) ? Alguna sugerencia ? Gracias

... LOCAL oGraph2,oShape LOCAL aVenta:={} LOCAL nTotReg:=0 LOCAL ntotal:=0 Local ntotVenta:=0 Local nMes,ndia LOCAL aGets := Array( 30 ) Local I Local nValor:=0 Local fila:=0 Local nTotalAgencia,nTotalCamino LOCAL cLogo:="c:\systema\bus\ima\logo.bmp" LOCAL rLogo:="c:\systema\bus\ima\logorojas.bmp" ...

... oGet VAR nNota ID 101 OF oDlg REDEFINE BUTTON oBtn ID 102 OF oDlg ACTIVATE DIALOG oDlg CENTERED ? oGet:LRIGHT ? oGet:RIGHT so it goes @ 07, 28 GET nvalor OF oDlg PICTURE "999,999.99" COLORS "B/BG" SIZE 60,10 RIGHT

... xbrowse.prg in all your projects We are making this change in FWH 16.04 Now, oCol:nFooterType := AGGR_SUM oCol:bFooter := { |o| o:nTotal + nValor } You may test with this sample function testx()   local oDlg, oBrw, oFont   DEFINE FONT oFont NAME "TAHOMA" ...

... de xbrowse.? o se podra usar bSumCondition .? no se si se podra forzar aCols[n]:nTotal, algo como: oBrw:aCols[n]:nTotal := aCols[n]:nTotal + nValor oBrw:refresh() espero alguna sugerencia o sample, gracias, saludos... :shock: