Dúvida sobre chamada de rotina

[Paulo_CPV]

Boa noite!

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:

Código: Selecionar todos

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

[Toledo]

Amigo, tenta o seguinte:

Troque:

Código: Selecionar todos

(cFormulario).Endereco.Value := CEP->Endereco
(cFormulario).Bairro.Value := CEP->Bairro
(cFormulario).Cidade.Value := CEP->Cidade
(cFormulario).Estado.Value := CEP->Estado

Por:

Código: Selecionar todos

SetProperty( cFormulario, "Endereco", "Value", CEP->Endereco )
SetProperty( cFormulario, "Bairro", "Value", CEP->Bairro )
SetProperty( cFormulario, "Cidade", "Value", CEP->Cidade )
SetProperty( cFormulario, "Estado", "Value", CEP->Estado )

Abraços,