Página 1 de 1

Classe Metro

Enviado: 14 Mai 2015 13:34
por joaoalpande
Boa Tarde,

Estou a ver vários exemplos da classe metro e não estou a consiguir fazer o que desejo, preciso o seguinte:

na primeira tela quero que mostre 1 Metrobutton por cada registo da tabela REGIOES.DBF em que o caption é o campo nome desta mesma, quando o usuário clicar num deles preciso saber em que Recno() da REGIOES.DBF clicou , para depois fazer um filtro a tabela ARTIGOS.DBF em que o campo CodReg=RECNO() da tabela REGIOES clicado na primeira tela e mostrar todos os artigos filtrados em 1 metrobutton por cada registo, tem como fazer isso?


Cumprimentos
João Alpande

Classe Metro

Enviado: 28 Mai 2015 07:10
por joaoalpande
Bom dia , com a ajuda do amigo Kapiaba e do Antonio Linares resolvi o problema .

Antonio alterou metropnl.ch :

<{uAction}> para [{| Self |<uAction>}]

No meu prg fiz assim para pegar o recno() do arquivo dbf:

while !eof()
IF !EMPTY(FieldGet( 1 ))

DEFINE METROBUTTON oBtn OF oMetro ;
PROMPT oemtoansi(FieldGet( 1 ));
COLOR CLR_WHITE,CLR_RED ;
ALIGN "MIDDLECENTER" ;
FONT oFontSmall2 ;
GROUP 2 ;
large;
ACTION ShowRecords( ::Cargo,oWnd ,oMetro )


oBtn:Cargo := RecNo()

ENDIF
DbSkip()

end


Obrigado

João Alpande