FiveTech Software tech support forums

... mejorar algunas cosas de mi codigo. Actualmente, tengo una pantalla para editar información. Cuando al GET le digo que tiene una variable que es numerica, y le pongo VARNUM[1] := 0, puedo escribir hasta 9 digitos aproximadamente. Pero cuando pongo para editar, supongamos un 34 en el campo, me ...

Karina,

gracias x responder, el ejemplo es cualquier getbar que tengas una columna numerica y le pongas un bitmap al getbar.

Saludos.

... sobre decimales, me encuentro que el mismo al parecer es heredado del viejo CLIPPER donde la precision con decimales se pierde cuando la variable numerica excede su maximo que segun lo leido es de 19 digitos. Pense en un principio que era problema de la TDOLPHIN pero en las pruebas que hice en ...

... := 1 objExcel:Range("B7:L56"):Font:Size := 8 objExcel:Range("C7:C56"):NumberFormat := "###" // FORMATEAR CELDA NUMERICA nRen:=7 nCol:=2 Select 1 Do while !Eof() objExcel:Cells(nRen,nCol):Value := Alltrim(aInven->Descript) nRen:=nRen +1 IF nRen=57 nRen:=7 nCol:=nCol ...

Hola a Todos
Tengo una pregunta
Estoy intentando imprimir a un archivo TXT
Estoy haciendolo con TDosPrn, pero no puedo alinear
a la derecha en una variable numerica.

Alguien ya lo habra pasado?

De antemano muchas gracias.

armando.lagunas wrote:

Code: Select all  Expand view

oBrw:aCols[ x ]:cEditPicture  :=  "@E ###,###.##"

donde "x" es el numero de columna numerica

Saludos

Hola Armando

Muchas gracias por responder.

Ya había probado tu sugerencia y no funciono.

Muy agradecido por responder.

Saludos
Antonio

Code: Select all  Expand view

oBrw:aCols[ x ]:cEditPicture  :=  "@E ###,###.##"

donde "x" es el numero de columna numerica

Saludos

Le estas asignando a una variable de tipo numerica, un string, por eso te da el error. #include "FiveWin.ch"FUNCTION Main()MsgInfo(Consu())RETURN nil Function Consu()     Local oDlg1,oSay2  ...

cnavarro wrote:Francisco, creo que te falta en los DbSkip controlar el Eof() y el Bof()

Tienes toda la razón. Voy a modificarla.
Muchas gracias.

Francisco, creo que te falta en los DbSkip controlar el Eof() y el Bof()

Cristobal. Muchisimas gracias. Efectivamente, asi la he finalizado, comparando valores de registro anterior y registro donde se colocó el cursor, y el de menor diferencia lo tomo como el mas aproximado. Aqui esta la funcioncita, algo "chapiolla", pero me funciona. if misgets("Busc...

Bien, te cuento lo que se me ocurre Como el DbSeek( uval, .T. ) se sitúa en el valor superior al buscado, coge la diferencia con el anterior y posterior y compruebas cuál es el más aproximado Se me debe escapar algo que no te he entendido porque seguro que esa solución ya la habías pensado Lo segund...

Se me olvidó comentar que al usar DbSeek(nValue,.t.) y no encontrar el valor, el cursor se sitúa en el siguiente registro.
El caso es que el valor aproximado a encontrar puede ser mayor o menor al valor digitado.
Gracias.

No entiendo bien lo que quieres decir El número más aproximado al introducido? Está ordenado por ese campo la base de datos? Gracias por contestar. Asi es, el valor mas aproximado al introducido (o tomado de otra tabla). La tabla está ordenada de manera ascendente por estos valores, y muchos de ell...

No entiendo bien lo que quieres decir
El número más aproximado al introducido?
Está ordenado por ese campo la base de datos?