FoxPro/Visual FoxPro - Grid interactiva

   
Vista:

Grid interactiva

Publicado por ISA (32 intervenciones) el 13/03/2010 18:42:43
Estoy utilizando una grid cuando realizo el paso a paso me funciona utilizando el evento interactiveChage me funciona pero cuando le quito el paso ha paso la grid no se activa.

Envio como realice el procedimiento para que por favor alguien me pueda ayudar en que estoy fallando

IF LEN(ALLTRIM(THIS.VALUE)) > 1
SELECT * ;
FROM prdref ;
WHERE refmina = THISFORM.txtarti.VALUE ;
INTO CURSOR prdref READWRITE

codigo11 = LEFT(codi_arti,12)
SELECT prdref.refmina AS codigo, prdref.existencia AS cantidad, prdref.codi_arti ;
FROM prdref ;
WHERE prdref.refmina = THISFORM.txtarti.VALUE ;
INTO CURSOR tmprd READWRITE
IF _TALLY >0

THISFORM.grid1.RECORDSOURCE = "tmprd"
THISFORM.img1.VISIBLE = .T.
THISFORM.grid1.VISIBLE = .T.
THISFORM.grdrollos.RECORDSOURCE = ""

SELECT rolm.arti, rolm.rollo, rolm.tramo, ROUND(rolm.exisr,2) AS Mts, ;
rolm.bod_rol, rolm.stn_rol, rolm.niv_rol, rolm.sniv_rol, rolm.ubi_rol, tmprd.codi_arti ;
FROM rolm, tmprd ;
WHERE rolm.arti = tmprd.codi_arti AND rolm.exisr > 0 AND rolm.niv_rol <> "*" ;
ORDER BY rolm.arti, rolm.rollo, rolm.tramo ;
INTO CURSOR xrollo
LEFT(prodm.codi_arti,1) = THISFORM.cmbbodega.VALUE
THISFORM.grdrollos.RECORDSOURCE = "xrollo"
GO TOP

ELSE

THISFORM.grid1.RECORDSOURCE = ""
THISFORM.img1.VISIBLE = .F.
THISFORM.grid1.VISIBLE = .F.
codigo11 = ""

ENDIF
ENDIF
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