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}