Hola amigos. Aqui os dejo una rutina para pasar numeros a letras que admite hasta 21 digitos y puede ponerse en feminino: FUNCTION NumALetr(nNum,lMasc) LOCAL cNum,c100,cRtn := "" LOCAL nLnm,nOri,nGrp,nLtr,cTrio LOCAL lGen,lM1 := .F. LOCAL nN DEFAULT ...