FoxPro/Visual FoxPro - CONSULTA CON COMBO Y GRILLA

 
Vista:

CONSULTA CON COMBO Y GRILLA

Publicado por MARCELA RODRIGUEZ (1 intervención) el 17/07/2007 01:59:18
HOLA HOLA, GRACIAS, DESEO SABER SI ALGUIEN ME PUEDE AYUDAR CON LO SIGUIENTE...

TENGO DOS TABLAS
TABLA1= PEDIDO
TABLA2= DETALLE_PEDIDO
TENGO UN COMBOBOX CON LOS DATOS DE UN PEDIDO, COMO SON CODIGO DEL PEDIDO, CLIENTE Y FECHA DEL PEDIDO.

PRETENDO SELECCIONAR EL PEDIDO Y Q ME MUESTRE EL DETALLE DEL PEDIDO EN UNA GRILLA.

SELECT CODPROD, NOMPROD, VALOR FROM DETALLE_PEDIDO WHERE DETALLE_PEDIDO.CODPEDIDO= THISFORM.TEXT1.VALUE INTO TABLE TEMPO1

TENGO LA GRID CON RECORDSOURCE TEMPO1, CUANDO DOY CLICK AL COMBO ME SALE UN AVISO Q DICE Q LA TABLA YA EXISTE Y Q SI DESEO SOBREESCRIBIRLA.

DE VERDAD AGRADEZCO A QUIEN ME PUEDA AYUDAR
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:CONSULTA CON COMBO Y GRILLA

Publicado por juan fernando (537 intervenciones) el 17/07/2007 14:44:33
Esta Text hace referencia a algún campo ?
si es así crea un cursor dentro del evento clic del Combo1
THISFORM.TEXT1.VALUE

Te sugiero algo asi ..esto es de un sistema mío ..
este código va en el evento Interactive Change de la Text

cod3=lower(alltrim(this.value)+"*")
With Thisform.Pageframe1.Page3.Combo1
.ColumnCount = 4
.columnwidths = "122,203,100,100"
.RowSourceType = 0
.RowSource = "select codarticul,nomarticul,Preciovent,Exp_3 from bodegataller;
order by codarticul where ;
like(cod3,lower(codarticul))into cursor temporal3"
.RowSourceType = 3
Thisform.Pageframe1.Page3.Combo1.Refresh
EndWith
if Thisform.Pageframe1.Page3.Combo1.listcount=0
messagebox("Nombre no registrado",0+64,"Atención")
endif
*________________________________________

Esto otro en el evento clic del Combo1

Set delete On

publ nomart3
publ ca3


Thisform.Pageframe1.Page3.Grid1.column2.Text1.Value=temporal3.codarticul+""+temporal3.nomarticul
Thisform.Pageframe1.Page3.Grid1.column3.Text1.Value=temporal3.preciovent

nomart3=temporal3.nomarticul
ca3=temporal3.Exp_3
MessageBox (Allt(nomart3)+""+Str(ca3),256+48,"Esto Queda en Bodega Taller")
Retu

Thisform.Pageframe1.Page3.Combo1.Refresh

* Sólo hay que quitar el código que esta demás
* Si estás atorada escribemé . *
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:CONSULTA CON COMBO Y GRILLA

Publicado por Cesar Almanza (40 intervenciones) el 17/07/2007 15:01:29
hola puedes hacer lo siguiente...

En tu consulta cambia "TABLE" por "CURSOR"
RESULTADO =

"SELECT CODPROD, NOMPROD, VALOR FROM DETALLE_PEDIDO WHERE DETALLE_PEDIDO.CODPEDIDO= THISFORM.TEXT1.VALUE INTO CURSOR TEMPO1 "

cambia el RECORDSOURCETYPE a 1 (RECORDSOURCETYPE = 1)

Si por otro lado necesitas tener la tabla temporal por alguna otra razon entonces escribe en el init del formulario SET SAFETY OFF para que no te pregunte si sobreescribe o no tabla...

Espero que te sirva
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