Variables públicas

[juan_arroyo_t]

Amigos del foro

Estoy llamando a una funcion desde la entrada de mi aplicación (desde la creación del menú)

La funcion que llamo es

Function CreaFac()
MEMVAR calle
PUBLIC calle := "Av. de los Pinos"
-----
-----
VerDatos()
-----
-----
RETURN NIL

VerDatos()
MsgInfo( calle )
-----
-----
RETURN NIL

-------------------------------------------------
Se supone que al crear variables publicas las puedo ver en cualquier parte de mi aplicacion, entonces porque cuando compilo
me aparecen mensajes de ambiguos reference ( en este caso en la linea de MsgInfo )

Si alguien me pudiera ayudar

Saludos

[jll-fwh]

Hola Juan:

Declarala en en fuente principal de la aplicacion antes de Main().

#INCLUDE "FiveWin.ch"

MEMVAR callee
/*------------------------------------------------------------------------------*/
Function Main()
/*------------------------------------------------------------------------------*/

Un saludo
JLL

[wmormar]

juan_arroyo_t,

Efectivamente como dices, podras "ver" en todo el programa o proyecto la variable que declares como publica.

Pero hay ciertas restricciones que se tiene. Por ejemplo.

En el main debes hacer esto.

Code: Select all  Expand view

#include <fivewin.ch>

memvar calle
function main()
  public calle

  calle := "FWH forever"
  miotroprg()
RETURN NIL

otro prg:

Code: Select all  Expand view

#include <fivewin.ch>

memvar calle
function miotroprg()
   ? calle
return nil
 

Aqui si te das cuenta, veras que se coloca memvar calle en los dos PRGS, esto se debe hacer en todos los PRGS donde vayas a usar la variable calle, sino lo haces asi, te enviará un error, pues la variable no esta definida, no creada que son dos cosas diferentes.

[surGom]

Juan yo lo hago de la siguiente manera y no me da problemas

Code: Select all  Expand view

FUNCTION Main()
  LOCAL oBrush            // Almacena objeto BRUSH
  LOCAL oBar     // Almacena objeto BUTTONBAR
  LOCAL oCursorMano
  LOCAL oICON
  LOCAL oBmp
  LOCAL oFont
  LOCAL cinit := GetWinDir()+"\mega.ini"
  LOCAL memo:= GetpvProfString("camino","curpath",,cinit)
  LOCAL nBut := array(6)
  LOCAL cPantalla := GetpvProfString("pantalla","tipopan",,(GetWinDir()+"\mega.ini"))
  LOCAL cUsuario := (GetpvProfString("usuario","nombre",,(GetWinDir()+"\mega.ini")))




  local hDLL := LoadLibrary( "bwcc32.dll" )

  BWCCRegister( GetResources() )

  [color=#0000FF]public oApp := TApplication()[/color]
 

En oApp guardo variables que necesito que sean publicas

Luis

[surGom]

No leí bien tu mensaje y tiene razón wormar lo que hago es por ejemplo

calle := oApp:direccion

y en caso de quere hacerla general

oApp:direccion := calle

Disculpa el apresuramiento al leer el mensaje

Luis

[acuellar]

Juan

Si usas el UEstudio como editor enlazador en la configuración del proyecto en opciones del compilador debe poner:
Warning level=0

Y no te saldrán los errores.

Saludos,

Adhemar

[Patricio Avalos Aguirre]

hola

Para llamar una variable public antepone M->

Code: Select all  Expand view

PUBLIC cVar

M->cVar := "lo que sea"
 

[juan_arroyo_t]

Muchas gracias amigos

Funcionó perfecto

Me incliné por el tip de William creo que porque es muy parecido a como lo utilizaba en clipper

Debo decirles que tengo poco que pase de clipper a fivewin

A todos muchas gracias

Saludos