GET & SPACE()

[nixbeau]

Amigos, me pregunto puedo declarar un GET con un tamaño igual a la base de datos sin necesidad de utilizar el "s.p.a.c.e()'. Gracias a todos.

[karinha]

cVar := ""

[nixbeau]

cVar := ""

No se aceptan. Lo he intentado y no me permite escribir GET. Tenía otra idea? Gracias;

[Antonio Linares]

Usa un objecto DATABASE y él se encarga de todo eso

samples/dbf01.prg

[nixbeau]

Usa un objecto DATABASE y él se encarga de todo eso

samples/dbf01.prg

¿Dónde puedo descargarlo? Gracias.

[Antonio Linares]

Lo incluye FiveWin, para usarlo solo tienes que hacer:

USE customers

DATABASE oDbf

@ ..., ... GET oDbf:First ...

Usa los nombres de los campos directamente con oDbf: ...

el objeto DATABASE crea un buffer automaticamente, asigna los Space()s, etc...

[Antonio Linares]

La documentación está en nuestro wiki:

http://wiki.fivetechsoft.com/doku.php?id=fivewin_class_tdatabase

[nixbeau]

La documentación está en nuestro wiki:

http://wiki.fivetechsoft.com/doku.php?id=fivewin_class_tdatabase

Mis Linares gran amigo. En sus vacaciones en Brasil si quieres el desayuno en mi casa. Será un gran placer.
El comando se ha ejecutado correctamente para los campos de alfa, pero no para los campos numéricos. Ellos todavía están llenas de espacios. Ejemplo: declarado en la base de datos de una variable de DOUBLE (10,2). Yo puedo transferir esta información al GET y me muestra "0" para mostrar el formato que utilizo: "@e 99,999.99"
¿Cómo puedo rellenar los campos numéricos con información de la base de datos?

La idea es que los usuarios no ven la cantidad de campos.
Mejor que valores con tipo de derecha a izquierda y un par de formato fueron apareciendo a medida que escribe.

[Antonio Linares]

Por favor, prueba esto:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDbf

   USE Customer

   DATABASE oDbf

   MsgInfo( oDbf:Salary )

return nil

Con FWH 13.01 muestra el valor correctamente. Que te muestra a ti ?

[nixbeau]

Por favor, prueba esto:

Code: Select all  Expand view

#include "FiveWin.ch"
function Main()

   local oDbf
   USE Customer
   DATABASE oDbf
   MsgInfo( oDbf:Salary )

return nil

Con FWH 13.01 muestra el valor correctamente. Que te muestra a ti ?

Amigo Antonio, corrió a la información declarada como STRING. Así que era perfecto. Con el tipo de información numérica, no funcionó. Yo sé cómo hacerlo? sigue algunas de las declaraciones de variables numéricas para explicar mejor:

redefine get oPrCompra var odbf:ultcompra ID 4038 update picture "@e 99,999.99" // @! = UPPERCASE //
redefine get oMargem var odbf:Margem ID 4022 update picture "@e 99,999.99" // @! = UPPERCASE
redefine get oPrVenda var odbf:Precoa ID 4006 update picture "@e 99,999.99" // @! = UPPERCASE

!Gracias

[Antonio Linares]

Por favor, prueba el ejemplo que te he indicado y dime que te aparece aqui:

MsgInfo( oDbf:Salary )

[nixbeau]

Por favor, prueba el ejemplo que te he indicado y dime que te aparece aqui:

MsgInfo( oDbf:Salary )

msginfo(odbf:ultdata) = '0'

[karinha]

Intente:

Code: Select all  Expand view

   DATABASE oDbf
   oDbf:Load()
   oDbf:SetBuffer( .T. )
   oDbf:GoTop()