PC Toledo

Olá a todos


Quando eu volto da tela dadosger, como faço para mostrar
novamente na janela menuAtende a variavel TEXTO_DADOSGERAIS
com o novo nome.


Se alguem puder dar uma dica, agradeço.



// MeATENDE.prg
// menu de atendimento
//////////////
# INCLUDE "MINIGUI.CH"
# INCLUDE "I_COLOR.CH"
# INCLUDE "ERROR.CH"
# INCLUDE "CEFFI.CH"
///////////////////

funct MenuAtende
local telaTit:="titulo qualquer"
vnome:=spac(40)
define window MenuAtende;
at 00,00;
WIDTH 780;
HEIGHT 490;
title TelaTit;
MODAL;
BACKCOLOR WHITE

DEFINE TOOLBAR BARRAatende ;
BUTTONSIZE 40,20 FONT "ARIAL" SIZE 10 flat BORDER

BUTTON BotaoDadosGerais CAPTION "&Dados Gerais";
ACTION dadosger() ;
AUTOSIZE;
SEPARATOR

BUTTON BOTAOSAIR CAPTION "&Sair";
ACTION MenuAtende.release ;
TOOLTIP "sai dessa tela";
AUTOSIZE;
sePARATOR
END TOOLBAR

@ 45,10 FRAME dadosgerais;
width 750;
height 40;
CAPTION "DADOS GERAIS";
FONT "ARIAL" SIZE 08;
BOLD;
FONTCOLOR BLUE;
opaque


texto_dadosgerais:="Nome: "+vnome

@ 60,15 getBox LABEL1;
value texto_dadosgerais;
width 740 height 20;
font "COURIER NEW" size 10;
backcolor WHITE

////////
// COMO FA€O PARA QUE
// QUANDO VOLTAR DA TELA DADOSGER
// QUERO IMPRIMIR ESSA VARIAVEL TEXTO_DADOSGERAIS
// JA COM O NOVO NOME
//////

END WINDOW

CENTER WINDOW MenuAtende
ACTIVATE WINDOW MenuAtende
Retu Nil
//////////////
funct dadosger
define window telaDadosGer;
at 0,0;
WIDTH 400;
HEIGHT 200;
title "Dados Gerais";
MODAL

DEFINE TOOLBAR BARRAdadosger ;
BUTTONSIZE 40,30 FONT "ARIAL" SIZE 10 flat BORDER

BUTTON BOTAOSAIR CAPTION "&Sair";
PICTURE "RETORNA.BMP" ;
ACTION Fsair();
TOOLTIP "sai dessa tela";
AUTOSIZE;
SEPARATOR
END TOOLBAR

@ 35,10 label LABEL1 value "Nome";
width 90 height 30;
font "COURIER NEW" size 10


@ 30,100 GETBOX t_nome ;
width 70 height 20 ;
value vnome ;
picture"@!x" ;
font "courier new";
size 10
END WINDOW

CENTER WINDOW teladadosger
ACTIVATE WINDOW teladadosger

Retu Nil
/////////////
stat func Fsair

vnome:=teladadosger.t_nome.value

teladadosger.release
retu nil



Um abraço

Poka

Testa pra ver se funciona.... blz

as alterações estão comantadas sobre as respectivas linhas.


// MeATENDE.prg
// menu de atendimento
//////////////
# INCLUDE "MINIGUI.CH"
# INCLUDE "I_COLOR.CH"
# INCLUDE "ERROR.CH"
# INCLUDE "CEFFI.CH"
///////////////////

funct MenuAtende
local telaTit:="titulo qualquer"
public texto_dadosgerais:=vnome:=spac(40)

define window MenuAtende;
at 00,00;
WIDTH 780;
HEIGHT 490;
title TelaTit;
MODAL;
BACKCOLOR WHITE

DEFINE TOOLBAR BARRAatende ;
BUTTONSIZE 40,20 FONT "ARIAL" SIZE 10 flat BORDER

BUTTON BotaoDadosGerais CAPTION "&Dados Gerais";
ACTION dadosger() ;
AUTOSIZE;
SEPARATOR

BUTTON BOTAOSAIR CAPTION "&Sair";
ACTION MenuAtende.release ;
TOOLTIP "sai dessa tela";
AUTOSIZE;
sePARATOR
END TOOLBAR

@ 45,10 FRAME dadosgerais;
width 750;
height 40;
CAPTION "DADOS GERAIS";
FONT "ARIAL" SIZE 08;
BOLD;
FONTCOLOR BLUE;
opaque

// passei essa linha para o inicio
// texto_dadosgerais:="Nome: "+vnome

// ALTERADO O LABEL1 E VALUE
@ 60,15 getBox TEXTO_DADOSGERAIS;
value @texto_dadosgerais;
width 740 height 20;
font "COURIER NEW" size 10;
backcolor WHITE

////////
// COMO FA€O PARA QUE
// QUANDO VOLTAR DA TELA DADOSGER
// QUERO IMPRIMIR ESSA VARIAVEL TEXTO_DADOSGERAIS
// JA COM O NOVO NOME
//////

END WINDOW

CENTER WINDOW MenuAtende
ACTIVATE WINDOW MenuAtende
Retu Nil
//////////////
funct dadosger
define window telaDadosGer;
at 0,0;
WIDTH 400;
HEIGHT 200;
title "Dados Gerais";
MODAL

// TIREI A TOOLBAR E ACHO QUE FICOU MELHOR, MAS PODE DEIXAR

// DEFINE TOOLBAR BARRAdadosger ;
// BUTTONSIZE 40,30 FONT "ARIAL" SIZE 10 flat BORDER

// BUTTON BOTAOSAIR CAPTION "&Sair";
// PICTURE "RETORNA.BMP" ;
// ACTION Fsair();
// TOOLTIP "sai dessa tela";
// AUTOSIZE;
// SEPARATOR
// END TOOLBAR

@ 35,10 label LABEL1 value "Nome";
width 90 height 30;
font "COURIER NEW" size 10


@ 30,100 GETBOX t_nome ;
width 70 height 20 ;
value vnome ;
picture"@!x" ;
font "courier new";
size 10

// BOTAO INCLUIDO
@ 60,100 BUTTONEX BTN CAPTION "&SAIR";
WIDTH 100 HEIGHT 024 ACTION FSAIR()

END WINDOW

CENTER WINDOW teladadosger
ACTIVATE WINDOW teladadosger

Retu Nil
/////////////
stat func Fsair

vnome:=teladadosger.t_nome.value

// LINHA INCLUIDA
MENUATENDE.TEXTO_DADOSGERAIS.VALUE:="Nome: "+alltrim(vnome)
teladadosger.release
retu nil



T+
Um abraço
Luiz

Olá Luiz Antonio

Obrigado por responder. Na função Fsair() eu já havia tentado colocar menuatende.texto_dadosgerais.value:=vnome, tentei agora as outras alterações que voce passou , colocando no inicio como public e tirei o TOLLBAR, mas o erro persiste.

Erro (Ilegal caracter) na linha da função Fsair() <menuatende.texto_dadosgerais.value:=vnome>

Se tiver + alguma dica, agradeço.

Um abraço

Poka

esse é o codigo que testei aqui....(algumas alterações foram feitas por não ter os outros fontes...blz) funcionou normal.

// MeATENDE.prg
// menu de atendimento
//////////////
# INCLUDE "MINIGUI.CH"
# INCLUDE "I_COLOR.CH"
# INCLUDE "ERROR.CH"
//# INCLUDE "CEFFI.CH"
///////////////////

funct Main
local telaTit:="titulo qualquer"
vnome:=spac(40)
define window MenuAtende;
at 00,00;
WIDTH 780;
HEIGHT 490;
title TelaTit;
Main;
BACKCOLOR WHITE

DEFINE TOOLBAR BARRAatende ;
BUTTONSIZE 40,20 FONT "ARIAL" SIZE 10 flat BORDER

BUTTON BotaoDadosGerais CAPTION "&Dados Gerais";
ACTION dadosger() ;
AUTOSIZE;
SEPARATOR

BUTTON BOTAOSAIR CAPTION "&Sair";
ACTION MenuAtende.release ;
TOOLTIP "sai dessa tela";
AUTOSIZE;
sePARATOR
END TOOLBAR

@ 45,10 FRAME dadosgerais;
width 750;
height 40;
CAPTION "DADOS GERAIS";
FONT "ARIAL" SIZE 08;
BOLD;
FONTCOLOR BLUE;
opaque


texto_dadosgerais:="Nome: "+vnome

@ 60,15 getBox texto_dadosgerais; //LABEL1;
value @texto_dadosgerais;
width 740 height 20;
font "COURIER NEW" size 10;
backcolor WHITE

////////
// COMO FA PARA QUE
// QUANDO VOLTAR DA TELA DADOSGER
// QUERO IMPRIMIR ESSA VARIAVEL TEXTO_DADOSGERAIS
// JA COM O NOVO NOME
//////

END WINDOW

CENTER WINDOW MenuAtende
ACTIVATE WINDOW MenuAtende
Retu Nil
//////////////
funct dadosger
define window telaDadosGer;
at 0,0;
WIDTH 400;
HEIGHT 200;
title "Dados Gerais";
MODAL

//DEFINE TOOLBAR BARRAdadosger ;
//BUTTONSIZE 40,30 FONT "ARIAL" SIZE 10 flat BORDER
//BUTTON BOTAOSAIR CAPTION "&Sair";
//PICTURE "RETORNA.BMP" ;
//ACTION Fsair();
//TOOLTIP "sai dessa tela";
//AUTOSIZE;
//SEPARATOR
//END TOOLBAR

@ 35,10 label LABEL1 value "Nome";
width 90 height 30;
font "COURIER NEW" size 10


@ 30,100 GETBOX t_nome ;
width 70 height 20 ;
value vnome ;
picture"@!x" ;
font "courier new";
size 10

@ 060,100 buttonex btn caption "&sair" width 100 height 024 action fsair()

END WINDOW

CENTER WINDOW teladadosger
ACTIVATE WINDOW teladadosger

Retu Nil
/////////////
stat func Fsair

vnome:=teladadosger.t_nome.value
menuatende.texto_dadosgerais.value:="Nome: "+alltrim(vnome)

teladadosger.release
retu nil

t+

Luiz Antonio, desculpe só estar respondendo agora. Deu certo sim , agora vou continuar com o sistema, qualquer duvida , posto aqui.


Um abraço

Poka