FoxPro/Visual FoxPro - insertar datos a una tabla

 
Vista:
sin imagen de perfil

insertar datos a una tabla

Publicado por robokick (9 intervenciones) el 19/09/2007 18:21:00
hola amigos,
veran tengo una tabla clientes con 5 campos, la tabla esta creada en el visual foxpro, y he creado mi formulario para registrar nuevos clientes,

mi pregunta es como puedo hacer para que en el momento que doy clic en el boton nuevo se genere un nuevo codigo de cliente(C0001,C0002,etc) y se limpie los textbox y cuando doy clic en el boton grabar, lo que ingreso en los textbox pasen a la tabla clientes

Gracias
saludos,
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

RE:insertar datos a una tabla

Publicado por neo (1604 intervenciones) el 19/09/2007 18:32:41
como puedo hacer para que en el momento que doy clic en el boton nuevo se genere un nuevo codigo de cliente(C0001,C0002,etc)
Respuesta 1:
&& En el boton nuevo:

Select Clientes
go bott
Thisform.text1.value=Clientes.codigo+1
&&Respuesta 2:
&& y se limpie los textbox :
Thisform.text2.value=""
Thisform.text3.value=0
Thisform.text4.value=ctod(" / / ")
Thisform.text5.value=""
Thisform.text2.Setfocus()
Thisform.refresh

Note
y cuando doy clic en el boton grabar, lo que ingreso en los textbox pasen a la; tabla clientes
Respuesta 3:
Set exact on
Select Clientes
Locate for clientes.codigo=Thisform.text1.value
If Found() then
replace codigo with Thisform.text1.value
replace nom_cliente with Thisform.text2.value
replace rfc with Thisform.text3.value
replace fecha with Thisform.text4.value
replace ciudad with Thisform.text5.value
Wait window "Datos Actualizados" timeout .8
Thisform.refresh
else
go bott
Append Blank
replace codigo with Thisform.text1.value
replace nom_cliente with Thisform.text2.value
replace rfc with Thisform.text3.value
replace fecha with Thisform.text4.value
replace ciudad with Thisform.text5.value
Wait window "Datos Almacenados" timeout .8
Thisform.refresh
endif

&& Suerte►
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:insertar datos a una tabla

Publicado por robokick (9 intervenciones) el 19/09/2007 18:40:51
Hola de nuevo gracias por tu respuesta lo voy a probar y te cuento, otra cosa, yo en mi tabla agrege manualmente un registro, con codigo del cliente C0001, como hago para que en el momento que se cargue mi formulario de registro de cliente en los textboxs me aparezca el primer registro agregado en mi tabla clientes

gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:insertar datos a una tabla

Publicado por neo (1604 intervenciones) el 19/09/2007 18:44:17
Facil:

En el Evento Activate del Formulario

Select Clientes
go top
Thisform.text1.value=codigo
Thisform.text2.value=campo2
Thisform.text3.value=campo3
Thisform.text4.value=campo4
Thisform.text5.value=campo5
Thisform.refresh

&& Suerte►
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:insertar datos a una tabla

Publicado por robokick (9 intervenciones) el 19/09/2007 19:15:00
Hola, sabes me funciona bien lo que me mandastes, se ve que sabes mucho y espero me puedas seguir ayudando ya que es la primera ves que programo en este lenguaje
pero sabes lo que no me sale es tu respuesta 1

Select Clientes
go bott
Thisform.text1.value=Clientes.codigo+1

cuando ejecuto el programa me sale este mensaje
Incompatibilidad entre el tipo de operador y el tipo de operando, como se puede solucionar
muchas gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:insertar datos a una tabla

Publicado por enrique (1041 intervenciones) el 19/09/2007 21:15:14
perdon por la intromision.
el caso es que si los codigo de clientes son "C0001" en realidad tenes un campo del tipo character por lo cual no podes sumar caracteres con numeros.
solucion

Select Clientes
go bott
Thisform.text1.value=left(Clientes.codigo,1)+padl(allt(str(val(subs(Clientes.codigo,2))+1)),4,"0")

ten en cuenta que si el codigo es mayor que 5 caracteres tenes que modificar el número 4 por la cantidad de caracteres de tu código-1
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:insertar datos a una tabla

Publicado por neo (1604 intervenciones) el 20/09/2007 14:49:40
Ahi está la respuesta, gracias por el apunte Enrique..

Buen dia►
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

insertar datos a una tabla

Publicado por saul (1 intervención) el 21/09/2007 22:32:26
buenas tarde sera que me puedes ayudar con el codigo del boton agregar.

necesito agregar registros de un cuadro de texto a una tabla.

muy agradecido...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:insertar datos a una tabla

Publicado por robokick (9 intervenciones) el 20/09/2007 16:55:20
Hola gracias a ambos por la ayuda, estoy aprendiendo como usar el visual foxpro gracias a ustedes, voy a seguir practicando y cualquier duda les aviso

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar