Texto..

[Francisco Horta]

Hola foro,
tengo un dbf con el nombre del cliente en mayusculas,
en consultas tengo un browse y despliega el campo del nombre del cliente en mayusculas, lo que quiero es si se muestra asi "FRANCISCO JAVIER HORTA GONZALEZ" cambiarlo y que se muestre asi "Francisco Javier Horta Gonzalez", la primer letra de cualquier texto siempre en mayuscula y lo demas en minuscula, hay alguna funcion?
Gracias
Paco

[rbt]

function main ()
? CapsFirst('PRIMERO SEGUNDO TERCERO')
? CapsFirst('primero segundo tercero')
? CapsFirst('pRIMero SeGUNdo terceRO')
? CapsFirst('1er 2do 3ero')
Return NIL

Function CapsFirst( cTxt )
Local nFor, cRet := ''
lCaps := .t.
For nFor := 1 to Len( cTxt )
if lCaps
cChar := Upper( SubStr( cTxt,nFor,1 ) )
lCaps := .f.
Else
cChar := Lower( SubStr( cTxt,nFor,1 ) )
Endif
cRet += cChar
if SubStr( cTxt,nFor,1 ) = ' '
lCaps := .t.
Endif
Next
Return cRet

// Saludos al Foro

[rbt]

Gracias...

[Francisco Horta]

function main ()
? CapsFirst('PRIMERO SEGUNDO TERCERO')
? CapsFirst('primero segundo tercero')
? CapsFirst('pRIMero SeGUNdo terceRO')
? CapsFirst('1er 2do 3ero')
Return NIL

Function CapsFirst( cTxt )
Local nFor, cRet := ''
lCaps := .t.
For nFor := 1 to Len( cTxt )
if lCaps
cChar := Upper( SubStr( cTxt,nFor,1 ) )
lCaps := .f.
Else
cChar := Lower( SubStr( cTxt,nFor,1 ) )
Endif
cRet += cChar
if SubStr( cTxt,nFor,1 ) = ' '
lCaps := .t.
Endif
Next
Return cRet

// Saludos al Foro

la probare
Gracias