Variaveis Private e Public

Pablo.Softgraf · March 6, 2007

Bom dia FiveWinners

Estou desesperado, tenho uma rotina do tipo Main() onde chamo todas as subrotinas do sistema, preciso de uma variavel que seja vista em todo o sistema , mas nÃ£o consigo !!

Eu uso o VERCE para compilar ... segue exemplo

FUNCTION Main()

local hBWCC, oIco, oLogo1, oCur, oBar, oLogo2, wndOpen:= .f.

local oLogin, cLogin, oSenha, cSenha, btnConectar, btnCancelar

Public cSiglaImp := "123" id=red>

//MsgLogo( "logofrn5.bmp" )

hBWCC := LoadLibrary( "BWCC32.DLL" )

SET EPOCH TO 1930

SET DATE TO BRITISH

SET CENTURY OFF

SET DELETE ON

SET CONFIRM ON

SET SOFTSEEK OFF // Procura examente pela chave definida senÃ£o achar EOF // com clausula ON pega primeiro = ou >

SET 3DLOOK ON

SET MULTIPLE ON

SetHandleCount(80)

RddSetDefault("DBFNTX")

REQUEST DBFNTX

DbSetDriver("DBFNTX")

SET DATE FORMAT "dd/mm/yyyy"

SET RESOURCES TO "PADRAO.DLL"

BWCCRegister( GetResources() )

DEFINE DIALOG oDlgLogin ;

RESOURCE "SCR_SPLASH" ;

TITLE "Login"

REDEFINE GET oLogin VAR cLogin ID 4001 OF oDlgLogin

REDEFINE GET oSenha VAR cSenha ID 4002 OF oDlgLogin

REDEFINE BTNBMP LEFT btnConectar;

PROMPT "Conectar";

ID 531;

ACTION ( if ( cf_pol("CP_MEN0",cLogin,cSenha), ( oDlgLogin:End(),wndOpen:=.t. ,.t. ) ,( oLogin:setFocus() , .f.) ) );

OF oDlglogin

REDEFINE BTNBMP LEFT btnCancelar;

PROMPT "Cancelar";

ID 532;

ACTION ( oDlgLogin:End() );

OF oDlgLogin

ACTIVATE DIALOG oDlgLogin CENTERED

if wndOpen

DEFINE ICON oIco RESOURCE "260"

// Principio del Programa

DEFINE WINDOW oWPpal FROM 1,5 TO 20,75;

TITLE "SOFTGRAF";

MENU montaMenu();

MDI ICON oIco

ACTIVATE WINDOW oWPpal MAXIMIZED VALID MsgYesNo( "Deseja realmente sair do Cromosystem ","SOFTGRAF - Cromosystem" )

endif

RETURN NIL

function cf_pol(pol_prog,cLogin,cSenha)

msginfo(cSiglaIMP) id=red>

return .t.

Pablo AndrÃ©s Reyes Rivera

FWH 2.7 - xHarbour Compiler build 0.99.61 (SimpLex) - Workshop

Pablo.Softgraf · March 6, 2007

Bom dia FiveWinners

Estou desesperado, tenho uma rotina do tipo Main() onde chamo todas as subrotinas do sistema, preciso de uma variavel que seja vista em todo o sistema , mas nÃ£o consigo !!

Eu uso o VERCE para compilar ... segue exemplo

FUNCTION Main()

local hBWCC, oIco, oLogo1, oCur, oBar, oLogo2, wndOpen:= .f.

local oLogin, cLogin, oSenha, cSenha, btnConectar, btnCancelar

Public cSiglaImp := "123" id=red>

//MsgLogo( "logofrn5.bmp" )

hBWCC := LoadLibrary( "BWCC32.DLL" )

SET EPOCH TO 1930

SET DATE TO BRITISH

SET CENTURY OFF

SET DELETE ON

SET CONFIRM ON

SET SOFTSEEK OFF // Procura examente pela chave definida senÃ£o achar EOF // com clausula ON pega primeiro = ou >

SET 3DLOOK ON

SET MULTIPLE ON

SetHandleCount(80)

RddSetDefault("DBFNTX")

REQUEST DBFNTX

DbSetDriver("DBFNTX")

SET DATE FORMAT "dd/mm/yyyy"

SET RESOURCES TO "PADRAO.DLL"

BWCCRegister( GetResources() )

DEFINE DIALOG oDlgLogin ;

RESOURCE "SCR_SPLASH" ;

TITLE "Login"

REDEFINE GET oLogin VAR cLogin ID 4001 OF oDlgLogin

REDEFINE GET oSenha VAR cSenha ID 4002 OF oDlgLogin

REDEFINE BTNBMP LEFT btnConectar;

PROMPT "Conectar";

ID 531;

ACTION ( if ( cf_pol("CP_MEN0",cLogin,cSenha), ( oDlgLogin:End(),wndOpen:=.t. ,.t. ) ,( oLogin:setFocus() , .f.) ) );

OF oDlglogin

REDEFINE BTNBMP LEFT btnCancelar;

PROMPT "Cancelar";

ID 532;

ACTION ( oDlgLogin:End() );

OF oDlgLogin

ACTIVATE DIALOG oDlgLogin CENTERED

if wndOpen

DEFINE ICON oIco RESOURCE "260"

// Principio del Programa

DEFINE WINDOW oWPpal FROM 1,5 TO 20,75;

TITLE "SOFTGRAF";

MENU montaMenu();

MDI ICON oIco

ACTIVATE WINDOW oWPpal MAXIMIZED VALID MsgYesNo( "Deseja realmente sair do Cromosystem ","SOFTGRAF - Cromosystem" )

endif

RETURN NIL

function cf_pol(pol_prog,cLogin,cSenha)

msginfo(cSiglaIMP) id=red>

return .t.

Pablo AndrÃ©s Reyes Rivera

FWH 2.7 - xHarbour Compiler build 0.99.61 (SimpLex) - Workshop

CTOAS · March 6, 2007

OlÃ¡ Pablo...

Neste artigo do amigo Marllon Figueiredo (http://www.fivewin.com.br/artigos/tipos_scopo_variaveis.asp) vocÃª terÃ¡ todas as suas dÃºvidas com relaÃ§Ã£o a variÃ¡veis de memÃ³ria.

AbraÃ§os

Christiano A. Silveira

WebNet do Brasil

FiveWin 2.8 - xDevStudio 0.61 - Pelles C 4.50

Pablo.Softgraf · March 6, 2007

citaÃ§Ã£o:
Por favor . , ME AJUDEEEEEEEEEEEEEEEEEEEEEMMMMMMM

AbraÃ§os

id=quote>id=quote>

Pablo AndrÃ©s Reyes Rivera

FWH 2.7 - xHarbour Compiler build 0.99.61 (SimpLex) - Workshop

Pablo.Softgraf · March 6, 2007

citaÃ§Ã£o:
Meu amigo , muito obrigado ..

mas eu jÃ¡ li este tÃ³pico , e sei como funciona cada uma delas mas o problemas Ã© que estÃ¡ ocorrendo um erro que aparece assim :

C:\Seller_5WIN\cromosys.prg(39) Warning W0001 Ambiguous reference: 'CSIGLAIMP'

id=green>

id=quote>id=quote>

Pablo AndrÃ©s Reyes Rivera

FWH 2.7 - xHarbour Compiler build 0.99.61 (SimpLex) - Workshop

kapiaba · March 6, 2007

C:\Seller_5WIN\cromosys.prg(39) Warning W0001 Ambiguous reference: 'CSIGLAIMP'

PUBLIC CSIGLAIMP -> Em todos os mÃ³dulos que necessitar dela.

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

CTOAS · March 6, 2007

Meu amigo Pablo....

Isso nÃ£o Ã© um erro, Ã© somente um aviso.... e funcionarÃ¡ perfeitamente...

Para nÃ£o dar mais este tipo de aviso, verifique seu compilador a clausula /w e coloque /w 0 (zero)...

Mas nÃ£o esqueca.... isso nÃ£o Ã© erro, por exemplo, coloque em seu compilador /w 3 e compila e depois se quizer, reporte aqui quantos mil warnings acontecera....

AbraÃ§os

Christiano A. Silveira

WebNet do Brasil

FiveWin 2.8 - xDevStudio 0.61 - Pelles C 4.50

CTOAS · March 6, 2007

citaÃ§Ã£o:
C:\Seller_5WIN\cromosys.prg(39) Warning W0001 Ambiguous reference: 'CSIGLAIMP'

PUBLIC CSIGLAIMP -> Em todos os mÃ³dulos que necessitar dela.

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

id=quote>id=quote>

Kapiaba.... isso sÃ³ Ã© usado com compilador setado com /w 1 ou superior (sÃ³ maluco pra usar assim..... hehehehe)...

Isso Ã© uma referÃªncia externa e nÃ£o caracteriza erro de programaÃ§Ã£o....

AbraÃ§os

Christiano A. Silveira

WebNet do Brasil

FiveWin 2.8 - xDevStudio 0.61 - Pelles C 4.50

Pablo.Softgraf · March 6, 2007

citaÃ§Ã£o:
Oh mestre JediFive, tentei fazer a partir de teus ensinamentos mas mesmo assim nÃ£o consigo ele continua dando o mesmo erro , qdo coloco a variavel sem atribuiÃ§Ã£o nenhuma ele aceita qdo coloco qualquer valor dÃ¡ pau , exemplo :

function Main()

Public cSiglaIMP := space(3) " DÃ¡ Pau"

return nil

function Main()

Public cSiglaIMP "DÃ¡ Certo"

return nil

mas qdo atribuo qualquer valor nos submÃ³dulos dÃ¡ pau tambÃ©m

tipo

cSiglaIMP := 'GGH'

C:\Seller_5WIN\cromosys.prg(39) Warning W0001 Ambiguous reference: 'CSIGLAIMP'

PUBLIC CSIGLAIMP -> Em todos os mÃ³dulos que necessitar dela.

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

id=quote>id=quote>

Pablo AndrÃ©s Reyes Rivera

FWH 2.7 - xHarbour Compiler build 0.99.61 (SimpLex) - Workshop

Pablo.Softgraf · March 6, 2007

citaÃ§Ã£o:
Mas por que nÃ£o gera o exe ????

id=quote>id=quote>

Pablo AndrÃ©s Reyes Rivera

FWH 2.7 - xHarbour Compiler build 0.99.61 (SimpLex) - Workshop

giovanyvecchi · March 6, 2007

Aconselho deixar do jeito que ta e usar somente variaveis LOCAL e STATIC

Para usar uma variavel no programa inteiro Ã© simples, trate ela como funÃ§Ã£o ex

VARIAVEIS.PRG

STATIC _CSIGLAIMP

FUNCTION CSIGLAIMP(f_Atributo)

IF f_Atributo!=Nil

CSISLAIMP:=f_Atributo

ENDIF

RETURN CSIGLAIMP

////////////////////////////

Nos outros prgs

teste:=1

CSIGLAIMP(CSIGLAIMP()+teste) /// somando a variavel

CSIGLAIMP(200)/// Atribuindo

IF CSIGLAIMP()==200 /// verificando

ENTENDEU ?

Qualquer coisa tamos ai

Giovany Vecchi - Jales - SP

FWH 2.6 /Clipper 5.3b /Blinker 5.0 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 /PellesC

Pablo.Softgraf · March 6, 2007

citaÃ§Ã£o:
Muito obrigado amigo , bem que eu comentei com o meu sÃ³cio que poderia algo relacionado com os flags de compilaÃ§Ã£o ,

Ã© por esse tipo de ajuda que um dia o fivewin serÃ¡ uma potencia , te agradeÃ§o muito mesmo meu irmÃ£o valeu !!!!!!

nÃ£o vejo a hora de outro encontro de Fivewinners

id=quote>id=quote>

Pablo AndrÃ©s Reyes Rivera

FWH 2.7 - xHarbour Compiler build 0.99.61 (SimpLex) - Workshop

Pablo.Softgraf · March 6, 2007

citaÃ§Ã£o:
Muito obrigado mestre , bem que eu comentei com o meu sÃ³cio que poderia algo relacionado com os flags de compilaÃ§Ã£o ,

Ã© por esse tipo de ajuda que um dia o fivewin serÃ¡ uma potencia , te agradeÃ§o muito mesmo meu irmÃ£o Jedi FiveMaster valeu !!!!!!

nÃ£o vejo a hora de outro encontro de Fivewinners

id=quote>id=quote>

Pablo AndrÃ©s Reyes Rivera

FWH 2.7 - xHarbour Compiler build 0.99.61 (SimpLex) - Workshop

kapiaba · March 6, 2007

citaÃ§Ã£o:

citaÃ§Ã£o:
C:\Seller_5WIN\cromosys.prg(39) Warning W0001 Ambiguous reference: 'CSIGLAIMP'

PUBLIC CSIGLAIMP -> Em todos os mÃ³dulos que necessitar dela.

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

id=quote>id=quote>
Kapiaba.... isso sÃ³ Ã© usado com compilador setado com /w 1 ou superior (sÃ³ maluco pra usar assim..... hehehehe)...

Isso Ã© uma referÃªncia externa e nÃ£o caracteriza erro de programaÃ§Ã£o....

AbraÃ§os

Christiano A. Silveira

WebNet do Brasil

FiveWin 2.8 - xDevStudio 0.61 - Pelles C 4.50

id=quote>id=quote>

QUANDO O SENHOR FOR UM PROGRAMADOR DE VERDADE E SENIOR, AI SIM, DISCUTIREI COM O SENHOR. EM CONTRÃRIO, ATENHA-SE AOS SEUS AFAZERES. QUANDO QUISER SUA OPINIÃƒO, EU PEÃ‡O. POR ENQUANTO, SOMENTE NECESSITO DO MESTRE VAILTON RENATO. FALEI E DISSE...

VAILTON, NÃƒO ESQUEÃ‡A AQUELA FUNÃ‡ÃƒO DO SOM. AbraÃ§os.

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

vailtom · March 6, 2007

Fala JoÃ£o! Cheguei do almoÃ§o agora.. vou ver ela pra ti daqui a pouco...

Agora sobre o problema do Pablo seria bom se ele postasse aqui as msgs de erro, pois do jeito que ele diz fazer deveria rodar normal o sistema, atÃ© pq como o Christiano falou Ã© somente um ALERTA do compilador e nÃ£o deveria afetar o processo de compilaÃ§Ã£o a menos que ele tenha setado qqer valor para /w.

Tenho tanto em clipper como xHB este tipo de rotina de funciona 100%... entÃ£o tem q ser algum detalhe q estÃ¡ passando despercebido aÃª...

Vailton Renato

SQL LIB, wxWeb, xDevStudio & MyMake Developer

Empresa: (11) 5523.4359

"Quando vocÃª estiver preparado para deixar de trabalhar com arquivos DBFs, algo maior lhe levarÃ¡ para a SQL LIB".

ConheÃ§a o projeto em: www.sqllib.com.br

kapiaba · March 6, 2007

citaÃ§Ã£o:
Fala JoÃ£o! Cheguei do almoÃ§o agora.. vou ver ela pra ti daqui a pouco...

Agora sobre o problema do Pablo seria bom se ele postasse aqui as msgs de erro, pois do jeito que ele diz fazer deveria rodar normal o sistema, atÃ© pq como o Christiano falou Ã© somente um ALERTA do compilador e nÃ£o deveria afetar o processo de compilaÃ§Ã£o a menos que ele tenha setado qqer valor para /w.

Tenho tanto em clipper como xHB este tipo de rotina de funciona 100%... entÃ£o tem q ser algum detalhe q estÃ¡ passando despercebido aÃª...

Vailton Renato

SQL LIB, wxWeb, xDevStudio & MyMake Developer

Empresa: (11) 5523.4359

"Quando vocÃª estiver preparado para deixar de trabalhar com arquivos DBFs, algo maior lhe levarÃ¡ para a SQL LIB".

ConheÃ§a o projeto em: www.sqllib.com.br

id=quote>id=quote>

Toda Vez Que Se COMPILA com ESTES FLAGS, e NAO SE DECLARA as VARIAVEIS, LOGICAMENTE, o COMPILADOR, vai PARAR O FLUXO do PROGRAMA!

Exemplo:

%hdir%\bin\harbour SECAOPRO /es2/m/n/a/w2 /i%fwhdir%\include;%hdir%\include /w /p SECAOPRO.C >> Erro.log

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

Pablo.Softgraf · March 6, 2007

citaÃ§Ã£o:
Vailtom , consegui arrumar o problema adicionando /W0 aos Flags ,

Muito Obrigado !!!!!

id=quote>id=quote>

FWH 2.7 - xHarbour Compiler build 0.99.61 (SimpLex) - Workshop

Pablo.Softgraf · March 6, 2007

citaÃ§Ã£o:
Alias, muito obrigado a todos que me ajudaram , como sempre!!!

Pablo AndrÃ©s Reyes Rivera

FWH 2.7 - xHarbour Compiler build 0.99.61 (SimpLex) - Workshop

id=quote>id=quote>

FWH 2.7 - xHarbour Compiler build 0.99.61 (SimpLex) - Workshop

evandro · March 6, 2007

OlÃ¡,

citaÃ§Ã£o:QUANDO O SENHOR FOR UM PROGRAMADOR DE VERDADE E SENIOR, AI SIM, DISCUTIREI COM O SENHOR. EM CONTRÃRIO, ATENHA-SE AOS SEUS AFAZERES.

id=quote>id=quote>

JoÃ£o, tenha cuidado com o que fala. Da Ãºltima vez que desafiou alguÃ©m, levou uma surra memorÃ¡vel. E olhe que foi para um Capiau da roÃ§a. O Christiano nÃ£o Ã© pouca m.... nÃ£o. Ele Ã© da WebNet do Brasil, paulistano da gema. A surra pode ser maior ainda. Hehehehe

[]s,

Evandro G. de Paula

Curvelo - MG

evandro@skillnet.com.br (Escr. - na Cidade)

imortal@skillnet.com.br (Res. - na RoÃ§a)

FWH 2.6+PellesC+MyMake+xHarbour.org 0.99.5+SqlLib

kapiaba · March 6, 2007

citaÃ§Ã£o:
OlÃ¡,

citaÃ§Ã£o:QUANDO O SENHOR FOR UM PROGRAMADOR DE VERDADE E SENIOR, AI SIM, DISCUTIREI COM O SENHOR. EM CONTRÃRIO, ATENHA-SE AOS SEUS AFAZERES.
id=quote>id=quote>
JoÃ£o, tenha cuidado com o que fala. Da Ãºltima vez que desafiou alguÃ©m, levou uma surra memorÃ¡vel. E olhe que foi para um Capiau da roÃ§a. O Christiano nÃ£o Ã© pouca m.... nÃ£o. Ele Ã© da WebNet do Brasil, paulistano da gema. A surra pode ser maior ainda. Hehehehe

[]s,

Evandro G. de Paula

Curvelo - MG

evandro@skillnet.com.br (Escr. - na Cidade)

imortal@skillnet.com.br (Res. - na RoÃ§a)

FWH 2.6+PellesC+MyMake+xHarbour.org 0.99.5+SqlLib

id=quote>id=quote>

MAS VOCE JÃ Ã‰ SENIOR, E MUITO 'EXPERTO'. JÃ O CRISTIANO... TASK! TASK! hehehehehehe.

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

fluna · March 7, 2007

Passada a guerra de egos, vamos ao que interessa:

2 - Ã‰ sempre bom ter um pouco de humildade... (aprende-se muito mais no observar do que no muito falar)

3 - Esse tipo de erro indica que vc esta usando um campo na base de dados com o mesmo nome de uma variÃ¡vel de memÃ³ria, o sistema... nÃ£o dÃ¡ erro, mas os resultados podem ser imprevisÃveis para o usuÃ¡rio final.

4 - Se falei aqui alguma merda, perdoem-me...

Deus abenÃ§oe e ilumine a todos PRECISAMOS DE PAZ!!!

DougDba · March 7, 2007

Ola tive problemas parecidos aos seus.

SÃ³ que usava variaveis private. Resolvi com o MEMVAR.

Se precisar ainda te envio exemplo.

Sds,

"NÃ£o subestime seu usuÃ¡rio. Aprenda com ele."

Doug

Cajamar - SP

FWH / xHarbour 0.99.61

Msn-dba2000@hotmail.com

kapiaba · March 7, 2007

citaÃ§Ã£o:
Passada a guerra de egos, vamos ao que interessa:

1 - desligar avisos (/w1), assemelha-se a tomar remÃ©dio para passar a febre (que Ã© um aviso) sem combater a infecÃ§Ã£o

2 - Ã‰ sempre bom ter um pouco de humildade... (aprende-se muito mais no observar do que no muito falar)

3 - Esse tipo de erro indica que vc esta usando um campo na base de dados com o mesmo nome de uma variÃ¡vel de memÃ³ria, o sistema... nÃ£o dÃ¡ erro, mas os resultados podem ser imprevisÃveis para o usuÃ¡rio final.

4 - Se falei aqui alguma merda, perdoem-me...

Deus abenÃ§oe e ilumine a todos PRECISAMOS DE PAZ!!!

id=quote>id=quote>

OLÃ...

HUMILDEMENTE, NÃƒO TEM NENHUM PROBLEMA QUE VOCE TENHA UM CAMPO(FIELD) COM O MESMO NOME DE UMA VARIAVEL LOCAL, MEMVAR, PRIVATE OU PUBLICA.

FIELD JOSE

LOCAL JOSE

JOSE := 'EU SOU UMA VARIAVEL LOCAL'

? JOSE

? cAlias->JOSE //-> RETORNO DO CAMPO(FIELD) JOSE.

APONTA-SE PARA O CAMPO, E UM ABRACO.

NO CLIPPER, MAIS FACIL AINDA:

FIELD JOSE IN BANCOQUECONTEMJOSE.

MOLEZA!

AbraÃ§os.

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

CTOAS · March 7, 2007

Sem comentarios....

Christiano A. Silveira

WebNet do Brasil

FiveWin 2.8 - xDevStudio 0.61 - Pelles C 4.50

Variaveis Private e Public

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation