SoloCodigo

Programación General => Visual FoxPro => Mensaje iniciado por: jclaurian en Lunes 9 de Mayo de 2005, 04:42

Título: Concatenar
Publicado por: jclaurian en Lunes 9 de Mayo de 2005, 04:42
Saludos.
Tengo un formulario con el cual capturo datos de un empleado, pero necesito que al estar capturando, o bien, al final, en un text me aparesca la primera letra del ape pat, ape mat y del nombre.
¿De qué forma puedo realizar esto?
Gracias.
Título: Re: Concatenar
Publicado por: Perla_kiko en Lunes 9 de Mayo de 2005, 12:38
me imagino que el nombre apellido maternos y el apellido paterno los tines en TExtbox diferentes en ese caso haz:

m.inicial_nombre=substr(alltrim(thisform.textnombre.value),1,1)

y asi para los otros tb.
Título: Re: Concatenar
Publicado por: jclaurian en Martes 10 de Mayo de 2005, 20:16
Perfecto, muchas gracias
Tengo otra duda, lo que pasa es que son textbox, y quiero que la primera letra de cada uno aparesca en otro textbox, segun lo que me esplicaste, tengo esto:

val = SUBSTR(ALLTRIM(THISFORM.text1.Value),1,1)
THISFORM.Text4.Value = val

ok, esto me muestra la letra del primer text, pero cómo puedo sumarle los otros tres caracteres.
Gracias
Título: Re: Concatenar
Publicado por: Perla_kiko en Miércoles 11 de Mayo de 2005, 11:54
simplemete haz-->
val = SUBSTR(ALLTRIM(THISFORM.text1.Value),1,1)
val1 = SUBSTR(ALLTRIM(THISFORM.text2.Value),1,1)
val 2= SUBSTR(ALLTRIM(THISFORM.text3.Value),1,1)

THISFORM.Text4.Value = val +val 1+val2