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.
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour GET & SPACE()
cVar := ""
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
karinha wrote:cVar := ""
No se aceptan. Lo he intentado y no me permite escribir GET. Tenía otra idea? Gracias;
Usa un objecto DATABASE y él se encarga de todo eso 
samples/dbf01.prg
Antonio Linares wrote:Usa un objecto DATABASE y él se encarga de todo eso
samples/dbf01.prg
¿Dónde puedo descargarlo? Gracias.
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...
La documentación está en nuestro wiki:
http://wiki.fivetechsoft.com/doku.php?id=fivewin_class_tdatabase
http://wiki.fivetechsoft.com/doku.php?id=fivewin_class_tdatabase
Antonio Linares wrote: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.
Por favor, prueba esto:
Con FWH 13.01 muestra el valor correctamente. Que te muestra a ti ?
#include "FiveWin.ch"
function Main()
local oDbf
USE Customer
DATABASE oDbf
MsgInfo( oDbf:Salary )
return nilCon FWH 13.01 muestra el valor correctamente. Que te muestra a ti ?
Antonio Linares wrote:Por favor, prueba esto:
#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
Por favor, prueba el ejemplo que te he indicado y dime que te aparece aqui:
MsgInfo( oDbf:Salary )
Antonio Linares wrote:Por favor, prueba el ejemplo que te he indicado y dime que te aparece aqui:
MsgInfo( oDbf:Salary )
msginfo(odbf:ultdata) = '0'
Intente:
DATABASE oDbf
oDbf:Load()
oDbf:SetBuffer( .T. )
oDbf:GoTop()João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341