Utilizando a Visual Lib

[Manoel]

Olá pessoal, bom dia.
Não dominar uma determinada lib é um problema, não é mesmo ?
:-O
Na realidade nem sei expressar direito o que estou precisando.
Utilizando a Visual lib, preciso que, nas opções de menu, ao invés de passar aquele bloco de código, passar uma procedure.
Na biblioteca do clipper, quando passamos uma procedure tipo " Do Cadastro" e esta rotina não está no módulo principal que está sendo compilado ela busca automaticamente a rotina no diretório atual. Preciso que seja desta forma pois, do contrário, o programa ficará imenso e isto dificulta a manutenção.
Espero que tenham entendido!
Atenciosamente.

[janio]

Olá Manuel,

Recebeu o e-mail?


Não vejo nenhum problema em passar uma FUNCTION ou PROCEDURE, utilizando a visual lib, que não esteja no PRG principal, veja como faço sem problemas:

Código: Selecionar todos

mMENU      := NewBarMenu()
mCONPAG    := NewDownMenu()
mCADPAG    := NewDownMenu()
mLANPAG    := NewDownMenu()
mRELPAG    := NewDownMenu()
...
...

AddBarItem( mMENU, "Contas a &Pagar" , "<F05> Calculadora - <F06> Caldendario" , mCONPAG )

AddDownItem( mCONPAG, "&Cadastros Gerais",, mCADPAG )
AddDownItem( mCONPAG, "&Lancamentos Diarios",, mLANPAG )
AddDownItem( mCONPAG, "&Relatorios Gerais",, mRELPAG )

// Sub menu de CADASTROS

AddDownItem( mCADPAG, "Cadastra &Fornecedores",, { || P17CCRE() } )

Eu tenho o meu PRG principal, chamado MENU.PRG, e os PRG´s que são chamados a cada chamada de menu. No exemplo acima, o P17CCRE.PRG é um arquivo à parte que é chamado sem problema a partir do PRG principal...

Espero ter ajudado, se é que entendi direito o que vc tá querendo...


Um Abraço,

Janio :xau

[Clipper]

Prezado Manoel

O que deve estar acontecendo é que você não está passando os módulos no arquivo LNK. Exemplo :

CLIPPER PROG1 /M
CLIPPER PROG2 /M
CLIPPER PROG3 /M
CLIPPER FUNC1 /M
CLIPPER FUNC2 /M

RTLINK FI PROG1,PROG2,PROG3,FUNC1,FUNC2

Desta forma você pode chamar a função de qualquer parte do sistema que irá funcionar beleza.

Creio que você esteja fazendo mais ou menos assim :

CLIPPER PROG1 (que é o que chama todos os outros através do DO)
RTLINK FI PROG1

Desta forma não funciona porque o PROG1 não encontrará as funções.

Isso foi só um exemplo básico, se preferir poste o seu BAT ou LNK aqui.

Até logo.

Marcelo

[Manoel]

Olá Jânio!
É exatamente o que preciso. Vou testar.
Quanto ao arquivo, ainda não recebi. Vou passar alguns outros porque você sabe né, provedor é complicado.

mmfonseca@acessa.com

mm-fonseca@ig.com.br

manoelmessiasfonseca@hotmail.com

Atenciosamente.

[janio]

Quanto ao arquivo, ainda não recebi. Vou passar alguns outros porque você sabe né, provedor é complicado.

mm-fonseca@ig.com.br

Pela QUARTA vez... enviado para mm-fonseca@ig.com.br.

ou pegue aki http://www.magnoman.vcnet.com.br/caclipper/funcao.shtml

Um Abraço,

Janio

[Manoel]

Valeu, obrigado.
Recebi na conta do Ig.
Pra você ver como são as coisas, nem tendo conta paga de e-mail ela não funciona. No Ig que é gratis recebi.
Forte abraço.