Procedure Picture(valor, formato)

NewFormat is string = ""

Zeros is string = ""

IF valor <> "" AND formato <> "" AND Length(valor) > 0

NewValor is string = valor

Tamanho is int = Length(formato)

IF valor <> "" AND formato <> "" AND Length(valor) < Length(formato) AND PositionOccurrence(formato,"0",firstRank,FromBeginning) > 0 AND PositionOccurrence(formato,".",firstRank,FromBeginning) = 0 AND PositionOccurrence(formato,"-",firstRank,FromBeginning) = 0 AND PositionOccurrence(formato,"/",firstRank,FromBeginning) = 0

NewFormat = NumToString(Val(NewValor), "0"+Tamanho+".0f")

ELSE IF valor <> "" AND formato <> "" AND PositionOccurrence(formato,"0",firstRank,FromBeginning) = 0

//Completa com zeros no caso de cpf ou cnpj que inicia com zero
IF Length(valor) < Length(NoPicture(formato)) THEN
Diferenca is int = Length(NoPicture(formato)) - Length(valor)
LOOP (Diferenca)
Zeros += "0"
END
NewValor = Zeros +""+ valor
END

Pos01 is int = 0
Pos02 is int = 0
Total is int = Length(formato)

LOOP (Total)

Pos01 += 1

IF formato[[Pos01]] = 9 THEN
Pos02 += 1
NewFormat += Middle(NewValor,Pos02,1)
ELSE
NewFormat += Middle(formato,Pos01,1)
END

END

END

ELSE
NewFormat = valor
END

RESULT(NewFormat)