Perguntas ALOCAÇÃO DINÂMICA DE MEMÓRIA

Local   aAux     := {}
Private aHeaders := {} //array onde estarão os aHeader de todos os folders
Private aCols    := {} //array onde estarão os aCols de todos os folders
Private aArqs    := {} //array contendo os nomes dos arquivos dbf

//aqui ocorre o preenchimento do aArqs com os arquivos dbf
//verificar como esses arquivos serão capturados

//Em seguida realiza um Loop no array contendo os arquivos para a geração dos aCols e aHeaders para cada um dos msNewGetDados

For i:= 1 To Len(aArqs)
   aAux := {}
   //verificar de onde serão puxadas as informações do aHeaders (quais tabelas do SX3)
   //exemplo:
   SX3->(dbSetOrder(1))
   SX3->(dbSeek(aArqs[i]))
   While SX3->X3_Arquivo == aArqs[i] .And. !SX3->(EOF())

      If X3Uso(SX3->X3_Usado)    .And.;                            // O Campo é usado.
         cNivel >= SX3->X3_Nivel                            // Nivel do Usuario >= Nivel do Campo.


         AAdd(aAux, {Trim(SX3->X3_Titulo),;
                        SX3->X3_Campo       ,;
                        SX3->X3_Picture     ,;
                        SX3->X3_Tamanho     ,;
                        SX3->X3_Decimal     ,;
                        SX3->X3_Valid       ,;
                        SX3->X3_Usado       ,;
                        SX3->X3_Tipo        ,;
                        SX3->X3_Arquivo     ,;
                        SX3->X3_Context})
		
      EndIf
	
      SX3->(dbSkip())
	
   EndDo
   aAdd(aHeaders,aAux) //aqui adiciona o aHeader de cada folder no aHeaders, garantindo que o aHeaders[1] terá toda a estrutura do aHeader do msNewGetDados do seu folder 1
Next i

Private aGetDados := {}
//aqui inicia o dialog
oTFolder := TFolder():New( 0,0,{},,oDlg,,,,.T.,,260,184 )
For i := 1 To Len(aArqs)
   oTFolder:AddItem("Nova Aba", .T.)
   &("oEnc"+aArqs[1])) := MsNewGetDados():New(nSuperior,nEsquerda,nInferior,nDireita, nOpc,cLinOk,cTudoOk,cIniCpos,aAlterGDa,nFreeze,nMax,cFieldOk, cSuperDel,cDelOk, oTFolder:aDialogs[i], aHeaders[i], aCols[i])
   aAdd(aGetDados, &("oEnc"+aArqs[1]))//considerando que na posição 1 tenha o nome da tabela
Next i

//aqui finaliza o dialog