PtGetSessions

PtGetSessions ( ) --> aSessions

aSessions(vetor)
• Retorna um array com todas as sessões da conexão.

Serão listadas, no array, apenas as sessões da conexão corrente entre o Smart Client e o Application Server.

Exemplo do array de saída da função.

• aProcess
  • aProcess[1] = "MAIN_THREAD"
    
  • aProcess[2] = "093539"
    
  • aProcess[3] = "093541"
    

User Function TstSession()DEFINE MSDIALOG oDlg TITLE "Exemplo CreateSession" FROM 000,000 TO 500,650 PIXEL  // Cria pasta da WorkSpace workFolder := TWorkspaceFolder():New( oDlg, 000, 000, 500, 500 ) workFolder:Align := CONTROL_ALIGN_ALLCLIENT // Cria primeira aba  workSpace1 := TWorkSpace():New( " Aba 01 MDI ", workFolder ) workSpace1:SetStatusBarText("Texto da barra de status - Tela 01") Thread_01 := getThread() CreateSession( Thread_01, workSpace1, "u_tstMdi", "", "Texto da Janela - 01" ) // Sleep de 500 milisegundos para terminar a criação  // da primeira Session e permitir a criação da segunda Sleep(500)   // Cria segunda aba  workSpace2 := TWorkSpace():New( " Aba 02 MDI ", workFolder ) workSpace2:SetStatusBarText("Texto da barra de status - Tela 02") Thread_02 := getThread() CreateSession( Thread_02, workSpace2, "u_tstMdi", "", "Texto da Janela - 02" )  // Retorna a lista de processos aProcess := PtGetSessions()oDlg:Activate()Return