Me deparei com um erro estranho, a minha idéia é criar uma sequencia de telas a partir de um único botão na janela principal;
ou seja várias telas "filhas" em sequência.
Para isto tenho que fechar a janesa anterior e abrir outra; partindo da principal a primeira (win_1) com a MODAL ficou exclusiva
mas a segunda ( win_2) não, inclusive permitindo eu clicar no ícone inicial da janela principal...ai trava tudo...
Alguém poderia dar uma luz ?
Segue o códio:
Código: Selecionar todos
#include "minigui.ch"
******************************************************************************************
FUNCTION MAIN
******************************************************************************************
DEFINE WINDOW Principal ;
AT 0,0 ;
WIDTH 640 ;
HEIGHT 480 ;
TITLE 'MixSistemas' ;
MAIN ;
ICON 'mix.ico'
DEFINE TOOLBAR ToolBar_1 FLAT BUTTONSIZE 110,35 RIGHTTEXT BORDER
BUTTON Button_1 ;
CAPTION 'INICIAR' ;
PICTURE 'tablet_icon.bmp' ;
ACTION inivendas()
END TOOLBAR
END WINDOW
MAXIMIZE WINDOW Principal
ACTIVATE WINDOW Principal
Return Nil
******************************************************************************************
PROCEDURE inivendas()
******************************************************************************************
DEFINE WINDOW Win_1 ;
AT 0,0 ;
WIDTH 826 ;
HEIGHT 460 ;
TITLE 'SELECIONAR OPERADOR' ;
MODAL ;
FONT 'ARIAL' SIZE 12 ;
ON INIT ( abrirdados()) ;
ON RELEASE fechardados()
ICON 'mix.ico'
DEFINE TOOLBAR ToolBar_1 BUTTONSIZE 120,35 FLAT BORDER
BUTTON PRIMERO ;
CAPTION '&PRIMEIRO' ;
PICTURE 'primero' ;
ACTION ( dBGoTop() , Win_1.Browse_1.Value := RecNo() )
BUTTON ANTERIOR ;
CAPTION '&ANTERIOR' ;
PICTURE 'anterior' ;
ACTION ( dBSkip ( -1 ) , Win_1.Browse_1.Value := RecNo() )
BUTTON SIGUIENTE ;
CAPTION '&PROXIMO' ;
PICTURE 'siguiente' ;
ACTION ( dBSkip (1) , if ( Eof() , DbGoBottom() , Nil ) , Win_1.Browse_1.Value := RecNo() )
BUTTON ULTIMO ;
CAPTION '&ULTIMO' ;
PICTURE 'ultimo' ;
ACTION ( dBGoBottom () , Win_1.Browse_1.Value := RecNo() ) SEPARATOR
BUTTON CERRAR ;
CAPTION '&CONTINUAR' ;
PICTURE 'cerrar' ;
ACTION (Win_1.release , mYoPer := codigo , fUncNme := nome , sele_venda())
BUTTON CANCELAR ;
CAPTION '&CANCELAR' ;
PICTURE 'cancelar' ;
ACTION Win_1.release
END TOOLBAR
@ 56,10 BROWSE Browse_1 ;
WIDTH 800 ;
HEIGHT 360 ;
HEADERS { ' OPERADORES' } ;
WIDTHS { 780 , 180 } ;
WORKAREA cad_fun ;
FIELDS { '" " + cad_fun->nome' } ;
ON CHANGE Atualizar() ;
ON DBLCLICK ( Win_1.release)
@ 56,210 FRAME FRAME_1 ;
WIDTH 400 ;
HEIGHT 360
END WINDOW
Win_1.Browse_1.SetFocus
CENTER WINDOW Win_1
ACTIVATE WINDOW Win_1
******************************************************************************************
PROCEDURE sele_venda()
******************************************************************************************
DEFINE WINDOW Win_2 ;
AT 0,0 ;
WIDTH 826 ;
HEIGHT 460 ;
TITLE 'SELECIONAR Nº VENDA' ;
MODAL ;
FONT 'ARIAL' SIZE 12 ;
ON INIT (nada()) ;
ON RELEASE nada()
ICON 'mix.ico'
DEFINE TOOLBAR ToolBar_2 BUTTONSIZE 120,35 FLAT BORDER
BUTTON PRIMERO ;
CAPTION '&PRIMEIRO' ;
PICTURE 'primero' ;
BUTTON ANTERIOR ;
CAPTION '&ANTERIOR' ;
PICTURE 'anterior' ;
BUTTON SIGUIENTE ;
CAPTION '&PROXIMO' ;
PICTURE 'siguiente' ;
BUTTON ULTIMO ;
CAPTION '&ULTIMO' ;
PICTURE 'ultimo' ;
BUTTON CERRAR ;
CAPTION '&CONTINUAR' ;
PICTURE 'cerrar' ;
BUTTON CANCELAR ;
CAPTION '&CANCELAR' ;
PICTURE 'cancelar' ;
ACTION Win_2.release
END TOOLBAR
END WINDOW
CENTER WINDOW Win_2
ACTIVATE WINDOW Win_2