Luciane
Utilizo em meus sistema de atendimento médico e recursos humanos da seguinte forma.
Faço uma Dialog com o nome qualquer prefiro definir como Folder para não esquecer.
Depois criei varias janelas Window Style para que fossem usadas no folder.
Exemplo: Fld_... Fld_... Fld_... Fld... (Dando nomes sugestivos para não ficar mais maluco do que sou)
Segue abaixo um exemplo que eu já utilizo, espero que tenha dado uma idéia a vc. - Atenção este exemplo q coloquei é apos o browse com banco de dados.
Tc
Oziel Lopes
oziellsilva@hotmail.com
oziellsilva@click21.com.br
-----------------------------------------
FUNCTION GetAtende(lAppend)
LOCAL oDlg, oFnt // Objetos Caixa de Dialogo
LOCAL lGravar := .F. // Para Alterar
DEFAULT lAppend := .F.
CursorWait()
IF lAppend
Select Numcod
SET ORDER TO 1
cNumCod := NumCod->NumAte+1
cCodigo = str(cNumCod,6)
Select Atende
SET ORDER TO 1
GO BOTT
Skip 1
ELSE
cCodigo := Atende->Codigo
ENDIF
If Travareg()
cNome = Atende->Nome
cSexo = Atende->Sexo
cEndereco = Atende->Endereco
cCep = Atende->Cep
cBairro = Atende->Bairro
cCidade = Atende->Cidade
....
....
Endif
// Caixa de Dialogo ----------------------------------------------------
DEFINE FONT oFnt NAME "Arial" SIZE 0,-10
DEFINE DIALOG oDlg RESOURCE "FOLDER_ATENDE" TITLE "ATENDIMENTO"
REDEFINE FOLDER oFld ID 101 OF oDlg ;
PROMPT "Cadastro de Atendimentos","Anamnese 1 ","Anamnese 2 ","A. S. O." ;
DIALOGS "FLD_ATENDE","FLD_ANAMNESE1","FLD_ANAMNESE2","FLD_ASO" // janela de cada aba do folder.
//--- Folder aba 1 --
REDEFINE CHECKBOX Atende->Demis ID 101 OF oFld:aDialogs[ 1 ]
REDEFINE CHECKBOX Atende->Admis ID 102 OF oFld:aDialogs[ 1 ]
REDEFINE CHECKBOX Atende->Perio ID 103 OF oFld:aDialogs[ 1 ]
//--- Folder aba 2 --
REDEFINE CHECKBOX Atende->Demis ID 101 OF oFld:aDialogs[ 2 ]
REDEFINE CHECKBOX Atende->Admis ID 102 OF oFld:aDialogs[ 2 ]
REDEFINE CHECKBOX Atende->Perio ID 103 OF oFld:aDialogs[ 2 ]
//---Folder aba 3 --
REDEFINE GET Atende->OutrasD Memo ID 155 OF oFld:aDialogs[ 3 ] FONT oFnt
REDEFINE GET Atende->ExameCli Memo ID 156 OF oFld:aDialogs[ 3 ] FONT oFnt
REDEFINE GET Atende->ExameCom Memo ID 157 OF oFld:aDialogs[ 3 ] FONT oFnt
// ----- Folder aba 4
REDEFINE GET Atende->Nome PICTURE '@!' ID 20 OF oFld:aDialogs[ 4 ] FONT oFnt
REDEFINE GET Atende->CTPS PICTURE '@!' ID 21 OF oFld:aDialogs[ 4 ] FONT oFnt
REDEFINE GET Atende->Serie PICTURE '@!' ID 22 OF oFld:aDialogs[ 4 ] FONT oFnt
//--- Fim ---------
REDEFINE BUTTON ID 701 OF oDlg ACTION(Libera(), oDlg:End() )
REDEFINE BUTTON ID 702 OF oDlg ACTION(Libera(), oDlg:End() )
ACTIVATE DIALOG oDlg CENTERED
RETURN NIL
//----------------------------
