Entrada com Senha

[Daniel_halon]

Olá pessoal, mais uma duvida de tantas que tenho

Estou tentando colocar na entrada ao sistema, uma janela com Usúario e senha, a ideia e que após ter carregado a tela principal com os menus e os Ownerbutton, abra o dialog pedidndo Usuario e senha, mas não consigo, se adiciono no INIT a clausula ON INIT Entrada(), abre o dialog antes de carregar a tela principal e logo ingresar os dados, abre a tela principal e os menus, porén os OwnerButton não abre, coloco a continuação o exemplo:

Código: Selecionar todos

 INIT WINDOW oTelaPrincipal TITLE "Tela Inicial";         
         COLOR COLOR_3DLIGHT+0;  
         AT 0,0; // BACKGROUND BITMAP oBmp;                   
         ICON oIcon//ON INIT {|| Entrada('Entrada', '1')}      
                                                           

   @ 0,0 PANEL oPanel SIZE 0,37

   @02,3 OWNERBUTTON oBoton2 OF oPanel ON CLICK {||Ped_inc(.t.)} ;
       SIZE 32,32;// FLAT
       BITMAP cImageDir + "Pedidos.bmp" Transparent;
        COORDINATES 0,4,0,0 TOOLTIP "Pedidos"
   @ 750,3 OWNERBUTTON oBoton1 OF oPanel ON CLICK {||saida(),eNDwINDOW()} ;
       SIZE 32,32;// FLAT
       BITMAP cImageDir + "Exit.bmp"; 
       COORDINATES 0,4,0,0 TOOLTIP "Sair do sistema"


   MENU OF oTelaPrincipal
      MENU TITLE "Parametros"
         MENUITEM "&Gerais"       ACTION  IIF(Valida_senha('Parametros', '1'), Parametros(), '' ) 
         MENUITEM "&Promoções"   ACTION  Para_promo()  //BITMAP "
         MENUITEM "&Data e Turno" ACTION  Para_data()              
         SEPARATOR
         MENU TITLE "&Tela"
           MENUITEM "&Tela"     ACTION  Tela_Inteira(.t.)
           MENUITEM "&Janela"  ACTION  Tela_inteira(.f.)
         ENDMENU
         MENUITEM "Trocar &Senha" ACTION  Troca_senha('Alteracao de Senha', '20')
         SEPARATOR
         MENUITEM "Sobre"      ACTION  Informe() 
         SEPARATOR
         MENUITEM "Sai&r"       ACTION oMain:Close() 
         ENDMENU

   ENDMENU

   ACTIVATE WINDOW oTelaPrincipal  MAXIMIZED

   Return Nil

Obrigado pessoal, Daniel... [/code]

[sygecom]

Daniel tentou colocar fora do ON INIT antes de mostrar os Menus ?

[Daniel_halon]

Ola Leonardo, tentei sim, porem não aparece, tentei tambem depois do menu e so aparece o dialog pedindo a senha quando fecho o programa, e quando coloco no init abre o dialogo antes de abrir a tela principal.

Vi um exemplo com Minigui e usam a clausula ON INIT entrada(), e o dialogo aparece apos carregar a tela principal, mas na HWGUI não acontece isso, qual será a solução???

[sygecom]

vou dar uma olhada nesse exemplo da Minigui...vc deve esta se referindo ao FINANCE vou ver e volto aqui ...

[Daniel_halon]

Leonardo, o prg e o f_menu, vai aqui o exemplo em minigui

Código: Selecionar todos

DEFINE WINDOW Form_0		;
		AT 0,0			;
                WIDTH 800 HEIGHT 600    ;
		TITLE SISTEMA		;
		ICON 'ICONE01'		;
		MAIN			;
		NOMAXIMIZE		;
		FONT 'Arial' SIZE 10		;
		BACKCOLOR GRAY		;
		ON INIT Ambiente_Inicial()	;
		ON RELEASE Abandona_Sistema()

[sygecom]

Pois é, eu vi esse exemplo ai...vou dar uma olhada com calma...até agora meu sistema sempre abrir primeiro a caixa de DIALOG com usuario e senha...mas vou ver pq ele naum aceita pela MDI abrir depois a dialog....mais atrde ou amanha volto com alguns resultados !!!

Abraços

[Daniel_halon]

Valeu, fico no aguardo...
Daniel

[sygecom]

Tche, sem chance !!! eu não faço ideia de como seja....se souber de algo...me passa que fiquei interesado tmb....e vi o modelo do Minigui....apenas uma observação naquele modelo se fechar com ALT+F4 ele passa batido....