CARREGAR CODIGO USUARIO ENTRE APPS

[SATINVANDERLEI]

Tenho a seguinte duvida:
Tenho um sistema dividido em módulos, sendo:

Principal.exe (executavel)
compras.app (app)
financeiro.app (app)
vendas.app (app)

qdo entro no sistema, cada usuario tem um idusuario (codigo) e nome (nome do usuario)

esta informação é carregada na propriedade que criei chamada idusuario no form do principal.exe

qdo carrego outra aplicacação com vendas.app, gostaria que o sistema
reconhece a propriedade que idusuario que esta no principal.exe

podendo inclusive utiliza num form que identifica por exemplo que foi que cadastrou um cliente xyz por exemplo.

não quero utilizar variavel publica
não quero usar arquivo temporario na maquina

alguem tem alguma idéia?

[Marcos Guedes]

Vamos ver se entendi:
Sua aplicação roda a partir do arquivo "principal.exe", correto?
A partir deste mesmo executável, você tem a identificação do usuário conectado e pretende passá-la para o arquivo "vendas.app", ok?!

Você já tentou fazer isto através de parâmetros?

[Você precisa estar registrado e conectado para ver este link.]

Execute o arquivo "o_exe.exe"!

[SATINVANDERLEI]

Ok. desta forma eu tinha tentando.

vi em algum lugar na web um esquema assim:

era definido um classe chamada conexaousuario

esta classe carregava o codigousuario,nome,datahora login

qdo precisa utilizar por exemplo no cadastro de pedidos o nome do usuario que digitou o pedido era feito assim

Código:


registro=createobject("Conexaousuario)
registro.idusuario

insert into pedidos  .... idusuario = registro.idusuario

ou seja fica transparente em toda a aplicacao, sem precisar enviar parametros e nem definir variaveis de memoria.

o esquema era esse.

no entanto não sei como poderia montar em classe seguindo o padrão da primeira pergunta.

[Marcos Guedes]

era definido um classe chamada conexaousuario

esta classe carregava o codigousuario,nome,datahora login

qdo precisa utilizar por exemplo no cadastro de pedidos o nome do usuario que digitou o pedido era feito assim

registro=createobject("Conexaousuario)
registro.idusuario

insert into pedidos .... idusuario = registro.idusuario

ou seja fica transparente em toda a aplicacao, sem precisar enviar parametros e nem definir variaveis de memoria.

Segundo o que você está citando, "Conexaousuario" é apenas uma classe contida num PRG, do tipo:

Código:

DEFINE CLASS Conexaousuario AS CUSTOM
   idusuario = 0 && O campo que será lido ao abrir o formulário
   
   PROCEDURE mudarIdUsuario AS VOID
   LPARAMETERS novoID
   *!* Função responsável por alterar o valor de
   *!* um campo numa tabela FREE
   ENDPROC
ENDDEFINE

Certamente está sendo utilizada uma tabela FREE para armazenar os valores desejados.
Esta tabela será controlada por usuário!

Então o que ocorre é o seguinte:
Antes de você chamar uma APP, terás que inserir o valor que será lido pela mesma numa tabela FREE.
E ao abrir a APP, a mesma irá levar o valor que foi incluído.

Resolve o teu problema?

[SATINVANDERLEI]

Correto. hj eu faço desta forma. como o sistema é multiusuario
eu gerava uma tabela free chamada _conexao.dbf e dentro marcava o nome e codigo do usuario no raiz ou c:\tempsistema

Acontece que percebi que qdo faço acesso remoto, isto acaba gerando conflito pois cada usuario que entra ele o _conexao.dbf.

segundo as informaçõesk que tenho a classe conexaousuario leva consigo as variaveis que preciso e todos os forms que precisam deste conteudo e chamado de forma automatica.

não usa variaveis, tabelas, ou passagem de parametros.

caso queira tenho meu email particular [Você precisa estar registrado e conectado para ver este link.]
mande o seu tel e ligo pra vc.

muito obrigado pela ajuda.

[SATINVANDERLEI]

veja topico:
[Você precisa estar registrado e conectado para ver este link.]

data storage with objects

[Marcos Guedes]

Conferi o link e não vi algo que podesse ajudar, no conteúdo.

Você disse que tem problemas apenas quando acessa remotamente, correto?
E se você criasse um controle para quando sua aplicação fosse acessada remotamente?

A função [Você precisa estar registrado e conectado para ver este link.] talvez ajude nisto.

Em caso negativo, você poderia explicar como sua aplicação funciona, e detalhar o tipo de erro (ou falha) que ocorre?

[SATINVANDERLEI]

classe artigo anterior:

Código:

DEFINE CLASS NewUser AS CUSTOM
  PROTECTED LogonTime, AccessLevel
  UserId = ""
  PassWord = ""
  LogonTime = { - - : : }
  AccessLevel = 0
  PROCEDURE Init
      DO FORM LOGON WITH ; && assuming you have created this form
        This.UserId, ;
        This.PassWord, ;
        This.AccessLevel
      This.LogonTime = DATETIME( )
  ENDPROC
* Create methods to return protected property values.
  PROCEDURE GetLogonTime
      RETURN This.LogonTime
  ENDPROC
  PROCEDURE GetAccessLevel
      RETURN This.AccessLevel
  ENDPROC
 
ENDDEFINE

chamada no programa principal

Código:

oUser = CREATEOBJECT('NewUser')

nome do topico no link:

Data Storage with Objects

leitura codigo em qualquer parte do aplicativo

Código:

IF oUser.GetAccessLevel( ) >= 4
  DO ADMIN.MPR
ENDIF
oUser.Logon

Essas são as dicas.
no entanto não sei onde colocar pois não trabalhei com classes;

[SATINVANDERLEI]

Pensei no seguinte, veja se é possivel:

no objeto _screen

adicionar uma propriedade idusuario

atualizou ela no form login

no demais formulario que irei usar de repente:

m.idusuario = _screen.idusuario

será que da certo alguma coisa asssim?

Obrigado mais uma vez.

[Marcos Guedes]

Acredito que sim!
Você já tentou fazer desta forma?

[hugo]

marcos, este esquema ai de separacao em "modulos" eh o que eu discuti num outro forum e que nao me entenderam muito bem! so dando uma
deixa aqui nisto pra voce pensar nisto pro projeto

no foxpro dos eu definia como variavel publica e dai tudo ficava ok, mais no
visual nao sei ne?!

obs. apos ler, se quiser exclua por favor!

[Marcos Guedes]

marcos, este esquema ai de separacao em "modulos" eh o que eu discuti num outro forum e que nao me entenderam muito bem! so dando uma
deixa aqui nisto pra voce pensar nisto pro projeto

no foxpro dos eu definia como variavel publica e dai tudo ficava ok, mais no
visual nao sei ne?!

obs. apos ler, se quiser exclua por favor!

Dependendo da aplicação, funcionará perfeitamente como citei em minha primeira mensagem, neste tópico, mas estou aguardando para ver se o SATINVANDERLEI resolveu de outra forma.

[Marcos Guedes]

Resolveu o problema, SATINVANDERLEI?

[lardecristo]

Veja o GETENV citado pelo Marcos é para buscar a variável do sistema operacional, como o exemplo que ele colocou acima, mas veja o sistema precisa que a variável seja criada no sistema operacional.
Quem lembra do famoso comando SET do DOS, bom como estamos na era do Windows, podemos fazer isso utilizando as API´s do Windows, abaixo vai um exemplo.

Com este exemplo, o sistema cria uma variável no S.O. e depois você pode recuperá-la, a recuperação pode ser via GETENV ou pela API demonstrada abaixo.

Obs:
- Na variável "lcName" está o nome da variável que sera criada no S.O.
- Outra coisa você disse que não queria uma variável pública, esta é publica mas do S.O.
- Alguns cuidados para serem tomados, como por exemplo, se a variável do S.O. existe e se contém dado, em qual instante você irá atualizá-la.

Qualquer dúvida por favor poste novamente.

Código:

DECLARE INTEGER GetEnvironmentVariable IN kernel32;
    STRING lpName, STRING @lpBuffer, INTEGER nSize
 
DECLARE INTEGER SetEnvironmentVariable IN kernel32;
    STRING lpName, STRING lpValue
 
lcName = "DebugMode"
? _GetEnv (lcName)
= _SetEnv (lcName, "True")
? _GetEnv (lcName)
 
FUNCTION _GetEnv(lcName)
    LOCAL lcBuffer, lnResult
    lcBuffer = SPACE(1024)
    lnResult = GetEnvironmentVariable (lcName, @lcBuffer, Len(lcBuffer))
RETURN  Iif(lnResult=0, "#nothing#", Left(lcBuffer, lnResult))
 
FUNCTION _SetEnv(lcName, lcValue)
RETURN SetEnvironmentVariable(lcName, lcValue) <> 0

[alceu11]

Aproveitando O topico,
Uma duvida que.. sempre me perseguiu,,,,,,
Ja tive situacoes semelhantes a esta....mais nunca fui afundo nisto.

Ai vai a Pergunta?
Pq usar APP, para varios modulos compras, financeiro, vendas, etc...
para gerar um executavel.


Qual é o objetivo principal, ter varios APP'S para gerar um exe. ??

Seria Ter separado cada parte de cada projeto?
Gerar executaveis separados, para cada setor da empresa.....??

Usuario de compras acessou o sistema pela senha do "S.O.", esta senha libera para
alterar pagamentos de ORdem de compras, mais nao libera pra, imprimir. Mais o controle de Usuarios esta no Modulo Principal, sera que nao é mais penoso , trabalhar assim,!!!

Diminuir o executavel ??

Nao seria mais facil ter um controle de usuarios, o qual libera ou nao os modulos...............?

So queria entender quais as facilidades para o programador, trabalhar com "APP"?

So encontrei uma resposta para esta duvida, ate hoje vender modulos separados !!

Desculpem ter invadido o topico, e a minnha falta de conhecimentos sobre app.
Fico no aguardo, pois nunca e tarde para aprender!!!