Clipper/FiveWin - Sobre como leer en un browse

 
Vista:

Sobre como leer en un browse

Publicado por Javier Vital (22 intervenciones) el 23/04/2005 00:20:49
Que tal, en una rutina de facturacion con clipper puro, trabajo con \"DbEdit\" y me resulta muy bien , pero para leer una columna del browse le tengo que dar un \"enter\", y despues ya puedo escribir, el detalle es que mi cliente \"YA NO QUIERE DAR EL <ENTER>\", solo quiere escribir y nadamas, si alguien ya tendra la solucion , si me podria echar la mano.

Gracias de antemano
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Sobre como leer en un browse

Publicado por richard jaime i. (71 intervenciones) el 25/04/2005 16:06:35
prueba con el siguiente codigo eso hara lo que tu quieres con dbedit
,pero si estas trabajando con facturas te recomiendo que lo hagas con el objeto tbrowse. es mas rapido y libera mucho mas memoria para el uso de un programa de facturacion. te puedo enviar algunos ejemplos a tu correo.
saludos


FUNCTION FUN_D4 (MODO,POS)
PRIVATE RETORNA,CAMPO_ACTUAL :=NOM_CAMPOS[POS]
DO CASE
CASE MODO = DE_IDLE
RETORNA= DE_CONT
CASE MODO = DE_HITTOP
RETORNA= DE_CONT
Case (LastKey() >= 32 .AND. LastKey() <= 126) .And. Len(cBusca) <= 25
set order to 3
cBusca += CHR(LastKey())

SEEK UPPER(CBUSCA)
nCurRec = RecNo()
cBusca = Left(cBusca, LEN(cBusca) + 1)

Set color to "N/W,N/W"
@20,56 SAY ' '
@20,56 SAY CBUSCA PICT '@ !!!!!!!!!!!!'
Case (LastKey() = 8)
set order to 3
cBusca = Left(cBusca, LEN(cBusca) - 1)

Set color to "N/W,N/W"
@20,56 SAY ' '
@20,56 SAY CBUSCA PICT '@ !!!!!!!!!!!!'



OTHERWISE
RETORNA=DE_REFRESH
ENDCASE
RETURN RETORNA
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar