Estou fazendo uma rotina que é chamada por vários formulários ( form_1, form_2, etc... ) e controles diferentes, como por exemplo pegar o número do CEP pesquisar o mesmo e preencher os Textbox respectivos. Será que tem uma solução? Fiz a seguinte sintaxe:
FUNCTION BuscaCep( cCep )
LOCAL cFormulario
cFormulario := ThisWindow.Name
// Abre o arquivo de Dados
// Faz a pesquisa do CEP
// E pega os valores do campo para os TEXTBOX
(cFormulario).Endereco.Value := CEP->Endereco
(cFormulario).Bairro.Value := CEP->Bairro
(cFormulario).Cidade.Value := CEP->Cidade
(cFormulario).Estado.Value := CEP->Estado
RETURN NIL
Espero que alguém me possa ajudar, ficarei grato.
Abraços,
Paulo - JacareÃ/SP