Fiz um sistema ha alguns anos que funciona ok, mas o dono da loja adicionou neste ultimo mes 47 grupos de trabalho...resultado que o meu SET FILTER TO cod_grupo == chAve que antes funcionava bem ficou lennnnnnnnnto.
Tentei fazer com um TBROWSER:
Mas não sei onde colocar a condicao cod_grupo == cHave
eis ai o codigo:
sset(3)
SEEK cChave
RESTSCREEN(,,,,tEl)
WHILE .T.
tela(03,02,19,77)
oTAB := sele_dados(04,03,18,76)
WHILE .T.
WHILE NEXTKEY()==0 .AND. .NOT. oTAB:STABILIZE()
END
tEcLa:=INKEY(0)
IF TECLA==K_ESC
EXIT
ELSE
testatec(tEcLa)
END
END
IF LASTKEY() == K_ENTER
EXIT
END
EXIT
END
RESTSCREEN(,,,,tel22); RELEASE tel22
RETURN
***************************************
FUNCTION sele_dados(nLINT,nCOLT,nLINB,nCOLB)
***************************************
Local ocolumn1,ocolumn2,ocolumn3,oColumn4,oColumn5
oTAB := TBROWSEDB(nLINT,nCOLT,nLINB,nCOLB)
oTAB : COLORSPEC :=(cCorMenu+","+cCorBarra+",,,"+cCorGet+","+cCormens )
oTAB : COLSEP := CHR(179)
oColumn1 := TBColumnNew('DESCRI€ŽO',{ || produto } )
oTAB:ADDCOLUMN(oColumn1)
RETURN (oTAB)
***************************************
FUNCTION testatec(tEcLa)
***************************************
DO CASE
CASE tEcLa==K_UP ;oTAB:UP(sobe())
CASE tEcLa==K_DOWN ;oTAB:DOWN(desce())
CASE tEcLa==K_LEFT ;oTAB:LEFT()
CASE tEcLa==K_ENTER ;a_executa()
CASE tEcLa==K_F2 ;a_pes()
END
RETURN
****
Alguem saberia como me ajudar ??
