NoSpace, NoAccent, Upper, UpperCapitalize, Lower para todos os campos de um formulario

//PRINCIPAL PROCEDURE QUE LISTA OS OBJETOS

Procedure evento_lista_objetos(gs_nomeJanela)

i,j is int = 0
sBusca is string = ""
sControlName is string = ""
arrayControles is array of string

LOOP(5000)

i++

sControlName = gpwEnumControl(gs_nomeJanela, i)

IF Length(sControlName) > 0 THEN

sBusca = NoSpace(gs_nomeJanela)+"."+NoSpace(ExtractString(sControlName,1,TAB,FromBeginning))

IF Length(sBusca) > (Length(gs_nomeJanela) + 1)

Add(arrayControles,sBusca)
//Trace(sBusca)

ELSE
BREAK
END

ELSE
BREAK
END

END

ArrayDelete(arrayControles,ArrayCount(arrayControles))

RESULT arrayControles

//////////////////////////////////////////////////////////////

Procedure evento_objetos_nospace(objetos is array of string)

i is int = 0

LOOP( ArrayCount( objetos ))

i++

indirection is string = objetos[i]

{indirection} = NoSpace( {indirection} , sscLeft) //no space a esquerda

{indirection} = NoSpace( {indirection} , sscRight) //no space a direita

{indirection} = Replace( {indirection}, " "," ") // 2 para 1

{indirection} = Replace( {indirection}, " "," ") // 3 para 1

END

//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

Procedure evento_objetos_noaccent(objetos is array of string)

i is int = 0

LOOP( ArrayCount( objetos ))

i++

indirection is string = objetos[i]

{indirection} = NoAccent( {indirection} )

END

////////////////////////////////////////////////////////////////////////////////////////////////////////////////

Procedure evento_objetos_lower(objetos is array of string)

i is int = 0

LOOP( ArrayCount( objetos ))

i++

indirection is string = objetos[i]

{indirection} = Lower( {indirection} )

END

////////////////////////////////////////////////////////////////////////////////////////////////////

Procedure evento_objetos_upper(objetos is array of string)

i is int = 0

LOOP( ArrayCount( objetos ))

i++

indirection is string = objetos[i]

{indirection} = Upper( {indirection} )

END

///////////////////////////////////////////////////////////////////////////////////////////

Procedure evento_objetos_UpperCapitalizado(objetos is array of string)

i is int = 0

LOOP( ArrayCount( objetos ))

i++

indirection is string = objetos[i]

{indirection} = Capitalize( {indirection} )

END

//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

Procedure Capitalize(NomeTexto)

x is int = 0

Nome,newNome is string = ""

NomeTexto=NomeTexto+" "

IF NomeTexto <>""

nQtdeEspaco is int = StringCount(NomeTexto," ")

LOOP(nQtdeEspaco)
x++
Nome = NomeTexto
Nome = ExtractString(Nome,x," ",FromBeginning)
Nome = Upper(Middle(Nome,1,1)) + Lower(Middle(Nome,2,Length(Nome))) +" "
newNome += Nome
END

newNome = Replace(newNome," As "," as ")

newNome = Replace(newNome," Da "," da ")

newNome = Replace(newNome," Das "," das ")

newNome = Replace(newNome," De "," de ")

newNome = Replace(newNome," Do "," do ")

newNome = Replace(newNome," Dos "," dos ")

END

RESULT newNome

///////////////////////////////////////////////////////////////////////

// Summary: <specify the procedure action>
// Syntax:
// evento_objetos_obrigatorios ()
//
// Parameters:
// None
// Return value:
// None
//
// Example:
// <Specify a usage example>
//
PROCEDURE evento_objetos_obrigatorios(objetos is array of string)

i is int = 0

indirection is string = ""

asterisco is string = ""

CorPadrao is string = "#808080"

LOOP( ArrayCount( objetos ))

i++

indirection = objetos[i]

IF StringCount({indirection}..Name,"BTN",IgnoreCase) = 0 THEN

asterisco = {indirection}..Caption

IF StringCount(asterisco,"*",IgnoreCase) > 0 AND {indirection}..Value = ""
{indirection}..BackgroundColor = LightPink
ELSE IF StringCount(asterisco,"*",IgnoreCase) > 0 AND {indirection}..Value <> ""
{indirection}..BackgroundColor = CorPadrao
END

END

END

RESULT {indirection}

////////////////////////////////////////////////////////////////////////////////////////////////

// Summary: <specify the procedure action>
// Syntax:
//[ <Result> = ] evento_objetos_readonly (<objetos> is array (string))
//
// Parameters:
// objetos (array (ANSI string)):
// Example:
// <Specify a usage example>
//
PROCEDURE evento_objetos_readonly(objetos is array of string)

i is int = 0

indirection is string = ""

asterisco is string = ""

LOOP( ArrayCount( objetos ) )

i++

indirection = objetos[i]

IF StringCount({indirection}..Name,"BTN",IgnoreCase) = 0 THEN

asterisco = {indirection}..Caption

IF StringCount(asterisco,"**",IgnoreCase) > 0
{indirection}..State = DisplayOnly
ELSE IF StringCount(asterisco,"**",IgnoreCase) = 0
{indirection}..State = Active
END

END

END

RESULT {indirection}


///////////////////////////////////////////////////////////////////////////////////

// Summary: <specify the procedure action>
// Syntax:
//[ <Result> = ] evento_objetos_stategrayed (<objetos> is array (string))
//
// Parameters:
// objetos (array (ANSI string)):
// Example:
// <Specify a usage example>
//
PROCEDURE evento_objetos_stategrayed(objetos is array of string)

i is int = 0

indirection is string = ""

asterisco is string = ""

LOOP( ArrayCount( objetos ) )

i++

indirection = objetos[i]

IF StringCount({indirection}..Name,"BTN",IgnoreCase) = 0 THEN

asterisco = {indirection}..Caption

IF StringCount(asterisco,"***",IgnoreCase) > 0
{indirection}..State = Grayed
ELSE IF StringCount(asterisco,"***",IgnoreCase) = 0
{indirection}..State = Active
END

END

END

RESULT {indirection}