Página 1 de 1
Impressão com um espaço entre cada letra do campo a ser impr
Enviado: 01 Out 2004 12:36
por Fernando Borges
Caros colegas, estou tentando fazer um relatorio de Seguro Desemprego, só que o formulario vem com traços entre uma posição e outra e para isso preciso acrescentar um espaço entre cada letra dos campos. Ex.: o nome do dispensado é "JOAQUIM GOMES DE MENESES" no formulario tem que ficar da seguinte forma: "J O A Q U I M G O M E S D E M E N E S E S". Nunca fiz este tipo de relatorio. Peço que me ajudem.
Fernando Borges.
Espaços entre letras...
Enviado: 01 Out 2004 13:05
por gransoft
ARAGUARI-MG, 1. de outubro de 2004.
Prezado Fernando,
Verifique o exemplo:
Código: Selecionar todos
*
CLEAR
*
cNome := "JOAQUIM GOMES DE MENESES"
cN := ""
*
FOR nI:=1 TO LEN(cNome)
IF SUBSTR(cNome,nI,1) <> " "
cN := cN + SUBSTR(cNome,nI,1) + " "
END
NEXT
*
? cNome
? cN
*
QUIT
***
Atenciosamente,
Janis Peters Grants.
http://www.gransoft.com.br
gransoft@zipmail.com.br
Enviado: 06 Out 2004 10:46
por lima
Caro Colega;
Aproveitando o código do Janis voce pode fazer da seguinte forma:=
cNome := "JOAQUIM GOMES DE MENESES"
cN := TRANSFORM(cNome,"@R "+REPLICATE("X ",LEN(cNome) ) )
Espero ter ajudado
Até +
Lima
