andrealuna
09 de Junio del 2005

hola experto

sera que me pueden ayudar, tengo un inconveniente con un combo tengo un cliente y este cliente tiene varias referncias de uso en nuestra emrpesa cuando el realiza un pedido tenemos que escoger la una de las referencias que el nos pide o si no existe crearla; estoy llamando las recferencias con un combo y no puedo llevar esta informacion a una caja de texto o sino como hago para introducir una nueva referencia.

cond = ".T."
****** DATOS A BUSCAR *****************
WAIT WINDOW "Formando las condiciones de búsqueda..." NOWAIT
IF !EMPTY (THISFORM.grid1.value)
clien = "'" + ALLTRIM (thisform.grid1.value)+ "'"
cond = cond + " and atc(&clien,tarjeta.nitclie)<> 0 "
ENDIF
WAIT WINDOW "Buscando en la base de datos..." NOWAIT
SELECT DISTINC referencia,nitclie;
FROM tarjeta;
WHERE &cond ;
INTO CURSOR temp
THISFORM.totalenc = _TALLY
WAIT CLEAR
IF THISFORM.totalenc > 0
WITH THISFORM.grid1
.RowSource = 'temp'
.VISIBLE = .T.
ENDWITH
ELSE
THISFORM.HEIGHT = 184
THISFORM.grid1.VISIBLE = .F.
=MESSAGEBOX("Registros no encontrados." + CHR(13)+" Revise los parametros",64,_Descripcion1)
ENDIF
*thisform.txtreferencia.value = thisform.combo4.value
THISFORM.REFRESH()