EDT_T002_nome = Capitalize(EDT_T002_nome)
//abreviação
nTotal is int = Length(EDT_T002_nome)
x, nPos is int = 0
EDT_Abreviado = Middle(EDT_T002_nome,1,1)

LOOP (nTotal)
x+=1
IF EDT_T002_nome[[x]] = " "
EDT_Abreviado += Middle(EDT_T002_nome,x+1,1)
END
END

nTotal is int = Length(EDT_T002_nome)

x,y,Z, nPos is int = 0

LOOP (nTotal)

x+=1

IF EDT_T002_nome[[x]] = " " THEN

y += 1
Z += 1

IF y = 1 THEN
EDT_Abreviado = Middle(EDT_T002_nome,1,x)
EDT_Abreviado += Middle(EDT_T002_nome,x+1,1) +". "
ELSE IF y > 1 AND Z > 1
EDT_Abreviado += Middle(EDT_T002_nome,x+1,1) +". "
END

END

END

EDT_Abreviado = NoSpace(EDT_Abreviado)