no Designer funciona perfeitamente um <PAGE> dentro de outro <PAGE> e os gets asumindo os parametros do dialog .. porem na versão 2.23 b7 o mesmo codigo não funciona .. alguem pode me dar uma força ??
Codigo gerado pelo Designer .. aí funciona com com <enter> se compilo o mesmo codigo no meu sistema .. quando dou <enter> nao acontece nada ... e se sou um <tab> ele volta para o tab1 ... bem doido!
Código: Selecionar todos
#Include "hwgui.ch"
STATIC Thisform
FUNCTION controle( ... )
RETURN _controle( HB_AParams() )
FUNCTION _controle( )
LOCAL oDlg, oPage1, oPage2, oOwnerbutton1, oOwnerbutton2, oOwnerbutton3, oOwnerbutton4, oEdit1 ;
, oEdit2, oEdit3, oEdit4, oButton1
LOCAL vEdit1 := "" , vEdit2 := "" , vEdit3 := "" , vEdit4 := ""
INIT DIALOG oDlg TITLE "Form1" ;
AT 0, 0 SIZE 1200,645 CLIPPER NOEXIT ;
STYLE WS_POPUP+WS_CAPTION+WS_SYSMENU+WS_SIZEBOX+DS_CENTER
Thisform := oDlg
@ 4,3 TAB oPage1 ITEMS {} SIZE 1192,632 ;
STYLE 0 +0
BEGIN PAGE 'teste 1' OF oPage1
END PAGE OF oPage1
BEGIN PAGE 'teste 2' OF oPage1
END PAGE OF oPage1
BEGIN PAGE 'teste 3' OF oPage1
@ 229,36 OWNERBUTTON oOwnerbutton4 SIZE 68,47 ;
TEXT '' ;
COORDINATES 0, 0, 0, 0
@ 1,91 TAB oPage2 ITEMS {} SIZE 1189,541 ;
STYLE 0 +0
BEGIN PAGE 'teste 1' OF oPage2
END PAGE OF oPage2
BEGIN PAGE 'teste 2' OF oPage2
@ 40,63 GET oEdit1 VAR vEdit1 SIZE 80,24
@ 48,124 GET oEdit2 VAR vEdit2 SIZE 80,24
@ 58,179 GET oEdit3 VAR vEdit3 SIZE 80,24
@ 67,232 GET oEdit4 VAR vEdit4 SIZE 80,24
@ 69,343 BUTTON oButton1 CAPTION "ok" SIZE 90,30 ;
STYLE BS_CENTER +WS_TABSTOP
END PAGE OF oPage2
@ 10,34 OWNERBUTTON oOwnerbutton1 SIZE 68,47 ;
TEXT '' ;
COORDINATES 0, 0, 0, 0
@ 83,34 OWNERBUTTON oOwnerbutton2 SIZE 68,47 ;
TEXT '' ;
COORDINATES 0, 0, 0, 0
@ 155,35 OWNERBUTTON oOwnerbutton3 SIZE 68,47 ;
TEXT '' ;
COORDINATES 0, 0, 0, 0
END PAGE OF oPage1
ACTIVATE DIALOG oDlg
RETURN oDlg:lresult
Código: Selecionar todos
#include "hwgui.ch"
STATIC oBrw , ThisCli
FUNCTION controle( ... )
RETURN DB_CADCLI( HB_AParams() )
PROCEDURE DB_CADCLI() // Função principal de cadastro de clientes
LOCAL GETLIST := {}
PRIVATE oDlg, oTab1, oTab2
PRIVATE oOwnerbutton1, oRadiobutton1, oOwnerbutton2, oRadiobutton2 , oOwnerbutton3, oOwnerbutton4
PRIVATE vEdit1_pesquisar := "", vRadiogroup1 := 1 , vRadioSelect
PRIVATE oEdit1_pesquisar, oRadiogroup1, oGroup1
PRIVATE oPhantom , cPHANTOM
// Cria o diálogo e centraliza ele na janela principal
INIT DIALOG oDlg ;
TITLE "Registro de Clientes" ;
CLIPPER NOEXIT;
AT 0, 0 ;
SIZE 1200, 645 ;
FONT oFontDlg ;
STYLE WS_POPUP+WS_CAPTION+WS_SYSMENU+DS_CENTER+MB_USERICON ;
ON INIT {|This| HWG_SETWINDOWTHEME( this:handle,0),oBrw:lInfocus := .T., SimulaAltDuasVezes() }
ThisCli := oDlg
@ 5,5 TAB oTab1 ITEMS {"Consulta","Datos del Cadastro","Movimientos","Pedidos","Facturas","Productos"} SIZE 1188, 635 ; //
ON CHANGE { || IIF(oTab1:GetActivePage() == 2, (oTab2:SetTab(1), oTab2:SetFocus()), NIL) };
ON SIZE ANCHOR_TOPABS + ANCHOR_LEFTABS + ANCHOR_RIGHTABS + ANCHOR_BOTTOMABS ;// BITMAP {"cmdBrowse","cmdBrowse","cmdBrowse","cmdBrowse","cmdBrowse","cmdBrowse"} FROM RESOURCE
BEGIN PAGE "Consulta" OF oTab1
@ 2,30 OWNERBUTTON oOwnerbutton1 SIZE 62,50 ;
TEXT 'Incluir' COORDINATES 0, 28, 0, 0 ;
FONT HFont():Add( 'MS Sans Serif',0,-11,400,,,) ;
BITMAP HBitmap():AddResource('bmp_new') COORDINATES 0, 5, 0, 0 TRANSPARENT COLOR 12632256 ;
TOOLTIP "Incluir Cliente"
@ 67,30 OWNERBUTTON oOwnerbutton2 SIZE 62,50 ;
TEXT 'Alterar' COORDINATES 0, 28, 0, 0 ;
FONT HFont():Add( 'MS Sans Serif',0,-11,400,,,) ;
BITMAP "bmp_edit" FROM RESOURCE COORDINATES 0, 5, 0, 0 TRANSPARENT COLOR 12632256;
TOOLTIP "Alterar datos del Cliente"
@ 132,30 OWNERBUTTON oOwnerbutton3 SIZE 62,50 ;
TEXT 'Eliminar' COORDINATES 0, 28, 0, 0 ;
FONT HFont():Add( 'MS Sans Serif',0,-11,400,,,) ;
BITMAP "smcancel" FROM RESOURCE COORDINATES 0, 5, 0, 0 TRANSPARENT COLOR 12632256;
TOOLTIP "Borrar Registro"
@ 1120,30 OWNERBUTTON oOwnerbutton4 SIZE 62,50 ON CLICK {|| hwg_EndDialog(oDlg:handle()) } ;
TEXT 'Salir' COORDINATES 0, 28, 0, 0 ;
FONT HFont():Add( 'MS Sans Serif',0,-11,400,,,) ;
BITMAP "smexit" FROM RESOURCE COORDINATES 0, 5, 0, 0 TRANSPARENT COLOR 12632256;
TOOLTIP "Salir del los registros"
@ 250,26 GET RADIOGROUP oRadiogroup1 VAR vRadiogroup1 CAPTION "Orden" OF oTab1 SIZE 380,56;
@ 255,40 RADIOBUTTON oRadiobutton1 CAPTION "&Nombre" SIZE 90,22;
ON CLICK {|| vEdit1_pesquisar := "", oEdit1_pesquisar:Refresh(), ORDSETFOCUS("CLICX_02"), oBrw:SetFocus(), oBrw:Refresh(), oEdit1_pesquisar:SetFocus() }
@ 255,58 RADIOBUTTON oRadiobutton2 CAPTION "No&mbre Comercial" SIZE 140,22;
ON CLICK {|| vEdit1_pesquisar := "", oEdit1_pesquisar:Refresh(), ORDSETFOCUS("CLICX_06"), oBrw:SetFocus(), oBrw:Refresh(), oEdit1_pesquisar:SetFocus() }
@ 400,58 RADIOBUTTON oRadiobutton3 CAPTION "&RUC" SIZE 90,21;
ON CLICK {|| vEdit1_pesquisar := "", oEdit1_pesquisar:Refresh(), ORDSETFOCUS("CLICX_09"), oBrw:SetFocus(), oBrw:Refresh(), oEdit1_pesquisar:SetFocus() }
@ 400,40 RADIOBUTTON oRadiobutton4 CAPTION "&Código" SIZE 90,22;
ON CLICK {|| vEdit1_pesquisar := "", oEdit1_pesquisar:Refresh(), ORDSETFOCUS("CLICX_01"), oBrw:SetFocus(), oBrw:Refresh(), oEdit1_pesquisar:SetFocus() }
@ 545,40 RADIOBUTTON oRadiobutton5 CAPTION "Ciu&dad" SIZE 80,22;
ON CLICK {|| vEdit1_pesquisar := "", oEdit1_pesquisar:Refresh(), ORDSETFOCUS("CLICX_10"), oBrw:SetFocus(), oBrw:Refresh(), oEdit1_pesquisar:SetFocus() }
@ 545,58 RADIOBUTTON oRadiobutton5 CAPTION "&Teléfono" SIZE 80,22;
ON CLICK {|| vEdit1_pesquisar := "", oEdit1_pesquisar:Refresh(), ORDSETFOCUS("CLICX_07"), oBrw:SetFocus(), oBrw:Refresh(), oEdit1_pesquisar:SetFocus() }
END RADIOGROUP SELECTED vRadiogroup1
@ 649, 26 GROUPBOX oGroup1 CAPTION "&Búsqueda" SIZE 389, 55
@ 655, 50 GET oEdit1_pesquisar VAR vEdit1_pesquisar PICTURE "@!" SIZE 371, 22 MAXLENGTH 30;
VALID { || PesquisaClientes(oEdit1_pesquisar:GetText(), oBrw), oBrw:SetFocus(), .T. }
@ 0,0 GET oPhantom VAR cPHANTOM SIZE 0, 0
BrowserCliente()
END PAGE OF oTab1
BEGIN PAGE "Datos del Cadastro" OF oTab1
@ 1, 22 TAB oTab2 ITEMS { "Personales", "Cobranzas", "Comerciales", "Profissionales", "Otros" } ;
SIZE 1187, 635 ;
ON SIZE ANCHOR_TOPABS + ANCHOR_LEFTABS + ANCHOR_RIGHTABS + ANCHOR_BOTTOMABS // ON INIT {|| oTab2:SetTab(1) }
BEGIN PAGE "Personales" OF oTab2
page_cliente()
END PAGE OF oTab2
BEGIN PAGE "Cobranzas" OF oTab2
END PAGE OF oTab2
BEGIN PAGE "Comerciales" OF oTab2
END PAGE OF oTab2
BEGIN PAGE "Profissionales" OF oTab2
END PAGE OF oTab2
BEGIN PAGE "Otros" OF oTab2
END PAGE OF oTab2
END PAGE OF oTab1
BEGIN PAGE "Movimientos" OF oTab1
END PAGE OF oTab1
BEGIN PAGE "Pedidos" OF oTab1
END PAGE OF oTab1
BEGIN PAGE "Facturas" OF oTab1
END PAGE OF oTab1
BEGIN PAGE "Productos" OF oTab1
END PAGE OF oTab1
ACTIVATE DIALOG oDlg
RETURN oDlg:lresult
o estranho é q se deixo somente o tab1 .. eu consigo se movimentar com o <enter> entre os gets..
Abraço,
Deivid
