Bom dia, estou com uma dúvida num ListBox que é a seguinte: Tenho para meu cadastro de clientes um cadastro de propriedades, assim, um cliente pode ter várias propriedades, pensei então no ListBox para listar as várias propriedades que pode ter um cliente, tenho um browse chamado clientes, de dentro dele pressiono uma tecla que abre o ListBox e na propriedade Items do ListBox amarrei uma rotina chamado Filtro que segue abaixo:
STATIC FUNCTION FILTRO()
xCodigoCli:=CODI
Select PROPRIED
DbSetOrder(3)
PROPRIED->(dbseek(xCodigoCli))
If Found()
ORDSCOPE(0,xCodigoCli)
ORDSCOPE(1,xCodigoCli)
Else
MsgExclamation('Não existe nenhuma Propriedade para este cliente!','Banco de Dados')
Endif
Return( nil )
Mas eu acredito que meu procedimento está todo errado, por isto peço ajuda dos senhores, para o Dudu está situação já é conhecida, uma vez ele me ajudou no mesmo problema.
Abraços,
Marcos.