Depois de muito ler a respeito de Harbour e da Minigui decidi então tentar migrar alguns de meus aplicativos, mas é claro que no decorrer do percurso surgiu algumas duvidas, então estou aqui para pedir a ajuda de vcs colegas.
Bem Antes no clipper guando eu queiria colocar o nome do meu cliente na tela era assim.
*------------------------------------------------------------------------------*
LOCAL bMostra := { || DEVPOS( 4,23 ), DEVOUT( LEFT(Cliente->NOME,40), 'N/W' ) }
mHide(); EVAL( bTela ); mShow()
@ 4,15 GET nCodigo PICTURE '99999-9'COLOR 'N/W,W+/B,,,W+/B';
VALID( Contrato->(DBSEEK(nCodigo)), IF(Contrato->(!FOUND()), ALERTA('NAO CADASTRADO, VERIFIQUE',{'Pressione ENTER'}),EVAL(bMostra)),Contrato->(FOUND()))
READ
*------------------------------------------------------------------------------*
E agora com a Minigui como é que eu posso fazer para colocar na tela o nome do cliente ja que esta amarrado en outro DBF ?
STATIC PROCEDURE Nuevo()
*------------------------------------------------------------------------------*
DEFINE WINDOW Pricipal ;
AT 0,0 ;
WIDTH 800 ;
HEIGHT 600 ;
TITLE 'Cadastro' ;
MODAL ;
NOSIZE CURSOR NIL ;
FONT 'ARIAL' SIZE 12
@ 10, 10 FRAME FRAME_1 WIDTH 780 HEIGHT 550
@ 20, 23 LABEL LABEL_1 VALUE 'Cod. do Cliente:' WIDTH 150 BOLD
@ 20, 150 TEXTBOX nCodido WIDTH 75 NUMERIC MAXLENGTH 6 ON ENTER ( Cadastro->(DBSEEK(Vist_Nova.nCodigo.Value)), IF(Cadastro->(!FOUND()), MsgExclamation('Não Encontrado'),cNome := Cliente->NOME),Cadastro->(FOUND()))
@ 20, 323 LABEL LABEL_2 VALUE cNome WIDTH 150 BOLD
END WINDOW
CENTER WINDOW Principal
ACTIVATE WINDOW Principal
RETURN
Bem assim eu consigo pelo menos entrar no DBF e achar o nome do cliente so não sei como eu posso retornar e colocar o nome na tela novamente. Ja quebrei a cabeça. :%
Sei que para alguns de vcs deve ser coisa simples para pra mim que to começando aiaiai uiuiui
---
Nota da Moderação (Maligno):
A presente mensagem foi editada para a inserção das tags de indentação de código. Se ler o código alheio já é uma coisa extremamente aborrecida e difÃcil, sem a indentação fica muito pior. Indentando, pode-se notar agora, melhora muito. Portanto, por favor, futuramente, quando for postar código e/ou estruturas e/ou scripts, mesmo que em menor tamanho, use essas tags de identação. Aliás, isso já incentiva um pouco mais pessoas a ler o código e, assim, crescem suas chances de ter seu problema resolvido. Ou seja, você também ganha.
