// Summary: <specify the procedure action>
// Syntax:
//[ <Result> = ] evento_lista_objetos_gpw (<ninstancia>)
//
// Parameters:
// ninstancia: <specify the role of ninstancia>
// Example:
// <Specify a usage example>
//
// Return value:
PROCEDURE evento_lista_objetos_gpw(ninstancia)

//variaiveis auxiliares
i is int = 1
objs_form is string = ""
sControlName is string = ""
sControles is string = ""

ninstancia = ninstancia

<COMPILE IF Configuration<>"iOS application" AND Configuration<> "Android application">

IF ninstancia = 0 THEN

RESULT ""

ELSE

NomeForm is string = m_Tabela[ninstancia].gs_nomeJanela

WHEN EXCEPTION IN

sControlName = gpwEnumControl(NomeForm, i)

LOOP(5000)

// Process the control
Trace(sControlName)

// Next control
i++

sControlName = gpwEnumControl(NomeForm, i)

IF sControlName <> "" AND sControlName <> Null AND sControlName <> 0 AND sControlName <> VK_EREOF THEN
indirection is string = NoSpace(NomeForm) +"."+ NoSpace(sControlName)
IF ControlExist(sControlName) = True
sControles += indirection + "; "
END
ELSE
BREAK
END

END

RESULT sControles


DO
IF ExceptionInfo(errCode) THEN
RESULT sControles
END
END


END

<END>