GET & SPACE()
Posted: Wed Feb 13, 2013 2:22 pm
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 Software tech support forums
www.FiveTechSoft.com
https://forums.fivetechsupport.com/
GET & SPACE()
Page 1 of 1
Re: GET & SPACE()
Posted: Wed Feb 13, 2013 2:38 pm
cVar := ""
Re: GET & SPACE()
Posted: Wed Feb 13, 2013 3:08 pm
karinha wrote:cVar := ""
No se aceptan. Lo he intentado y no me permite escribir GET. Tenía otra idea? Gracias;
Re: GET & SPACE()
Posted: Wed Feb 13, 2013 3:10 pm
Usa un objecto DATABASE y él se encarga de todo eso 
samples/dbf01.prg
samples/dbf01.prg
Re: GET & SPACE()
Posted: Wed Feb 13, 2013 3:13 pm
Antonio Linares wrote:Usa un objecto DATABASE y él se encarga de todo eso
samples/dbf01.prg
¿Dónde puedo descargarlo? Gracias.
Re: GET & SPACE()
Posted: Wed Feb 13, 2013 3:24 pm
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...
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...
Re: GET & SPACE()
Posted: Wed Feb 13, 2013 3:26 pm
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
Re: GET & SPACE()
Posted: Sat Feb 16, 2013 11:48 am
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.
Re: GET & SPACE()
Posted: Sat Feb 16, 2013 1:07 pm
Por favor, prueba esto:
Con FWH 13.01 muestra el valor correctamente. Que te muestra a ti ?
Code: Select all | Expand
#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 ?
Re: GET & SPACE()
Posted: Tue Mar 05, 2013 12:51 pm
Antonio Linares wrote:Por favor, prueba esto:Code: Select all | Expand
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
Re: GET & SPACE()
Posted: Tue Mar 05, 2013 1:11 pm
Por favor, prueba el ejemplo que te he indicado y dime que te aparece aqui:
MsgInfo( oDbf:Salary )
MsgInfo( oDbf:Salary )
Re: GET & SPACE()
Posted: Tue Mar 05, 2013 2:09 pm
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'
Re: GET & SPACE()
Posted: Tue Mar 05, 2013 3:03 pm