FoxPro/Visual FoxPro - txt de formularios

 
Vista:

txt de formularios

Publicado por Carina Buratto (6 intervenciones) el 28/10/2004 13:02:38
En que propiedades de un formulario indico a un txt.... que debe aparecer la información correspondiente.
Ej, en txtcodigo, del Cliente quiero que me permita ingresar el nº 1, y al costado quiero que automaticamente aparesca el nombre del cliente.
Estos campos existen en la tabla clientes , solo falta la instrucción para que realize la acción
Por favor, necesita que me respondan por cada propiedad lo que debo programar.
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:txt de formularios

Publicado por saul (362 intervenciones) el 29/10/2004 02:43:25
Hola ...
en tu METODO VALID (de tú txtcodigo) pon este codigo
y cambiale el nombre a tu txt que quieras que muestre la descripción
ojala te funcione..
bye..

select cliente
set order to codigo
**** si el campo lo dejas en blanco
IF EMPTY(ALLTRIM(this.value)) Then
BROWSE
if seek(ALLTRIM(cliente.cod_cli)) then
ThisForm.Text_nombre.value = cliente.nom_cli
endif
ELSE
*** si no esta en blanco lo busca
if seek(ALLTRIM(cliente.cod_cli)) then
ThisForm.Text_nombre.value = cliente.nom_cli
else
*** si no lo encuentra lo busca de nuevo con browse
BROWSE
if seek(ALLTRIM(cliente.cod_cli)) then
ThisForm.Text_nombre.value = cliente.nom_cli
endif
endif
endif

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

RE:txt de formularios

Publicado por Edgar Zambrano (90 intervenciones) el 29/10/2004 22:23:21
como te indico el compañero debes programarlo en el metodo valid de tu text.

ej:

*txtcodigo_valid
if empty(this.value)
*no te recomiendo enviar un mensaje o validar otros datos aqui porque te *bloquea el sistema
thisform.refresh
else
select cliente

locate for cliente.codigo == this.value

*si aparece muestro los datos
if found()
thisform.txtnombre.value = cliente.nombre
else
*si no aparece envias mensaje
wait windows 'registro no encontrado' nowait
endif
endif

pruebalo y despues me dices.

Edgar Zambrano
Programador VFP6
[email protected]
Soledad - Atlántico - Colombia.
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