PROBLEMA CON PROGRAMAR BOTON GUARDAR

[Humberto Alejandro Hernadez Perez]

estimados amigos quisiera que me ayudaran urgentemente ya que realmente me mato la cabeza haciendo este programa y no me sale quisiera que me ayudara a ver que tengo que programar en el botón guardar este es mi programa:

me pueden enviar correo con el codigo ya que no me sale siempre me dice ERROR EN LA SINTAXIS.

[ZeRoberto]

Y cual es el codigo del boton guardar

[Jose Mario]

Si solo tenes un registro por orden esta bien así. Pero sino deberías utilizar un grid.

[Humberto Alejandro Hernadez Perez]

Me puedes ayudar ya que no se que hacer para que me guarde la informacion??

El 23 de febrero de 2015, 20:08, Jose Mario <maov...@gmail.com> escribió:

Si solo tenes un registro por orden esta bien así. Pero sino deberías utilizar un grid.

--

Alejandro Hernandez Perez

Telefono: 30014643

[HernanCano]

¿Y cuál es el código del botón Guardar?


>>> ... siempre me dice ERROR EN LA SINTAXIS ...

El lunes, 23 de febrero de 2015, 21:14:33 (UTC-5), Humberto Alejandro Hernadez Perez escribió:

Me puedes ayudar ya que no sé qué hacer para que me guarde la información??

[HernanCano]

Abriste dos preguntas iguales....

Cierra uno y continuemos con el que quieras....

 

[HernanCano]

[Carlos Miguel FARIAS]

En este hilo tampoco vino a trabajar Mandrake!

Es que solo viene los 29 y justo este mes es febrero (y el año no es bisiesto) ;-D

[Saúl Piña]

Saludos, va mi retroalimentación:

Me gusta su pantalla práctica y simple para trabajar, pero
Me preocupa que los botones estén algo removidos (como tipo fichas de dominó)
Te sugiero que los botones los tengas alineados y además en lugar de "primero, anterior, siguiente y ultimo" utilices el boton "buscar".

Para la opcion guardar, existen dos opciones que utilizo con frecuencia

**A) opcion 1

select mi_tabla
Append blank
replace mi_campo with thisform.text1.value

**B) opcion 2

Insert Into mi_tabla (mi_campo) values (thisform.text1.value)

Saludos!!!

[Jorge L. Florez C.]

¿Programas y no sabes que colocar para grabar la data?, parece que deseas que resuelvan tu tarea.

Saludos

Jorge Florez

Lima - Perú

[Mario Oviedo]

habemos como 20 que le decimos que coloque como graba, quizas no tiene codigo

[Fernando D. Bozzo]

Faltó poner "busco que me hagan programa gratis"

En la ayuda de Fox tenés el detalle de cada comando, además en el directorio "Solutions" dentro del directorio de instalación de Visual FoxPro tenés varios ejemplos de todo.
Lo único que hace falta es ponerse y practicar, o contratar a un programador que lo haga.

El error de sintaxis seguramente te lo de porque estás escribiendo mal un comando, función o parámetro, y para eso es la ayuda de Fox (tecla F1).


Saludos.-

[Julián May]

Jajajajaja estos estudiantes de hoy en día xD ......................... bueno recordando un poco xD mis inicios ya casi 5 años que nostalgia :P ah ah x) 

[Jorge Montúfar]

puta si no muestras el codigo para ver el error no se puede hacer nada para nadie y menos "que me hagan el programa " 

[Ricardo Pina]

jajaj, Creo que Humberto se ha decidido por VB

--

            

                   Ricardo Pina

Desarrollo y Servicios Informáticos

                  Profesionales
               www.dsip.com.ar

 

 

[panchimancuso]

En lo personal me gusta algo asi una pantalla de ingreso de datos ,

para guardar datos puedes usar el append blank , un eje de un boton guardar mio

with thisform

if empty(thisform.txtpac_nom.value)

messagebox("Error, exixten espacios vacios","Error")

    THISFORM.TXTPAC_NOM.SETFOCUS

    return

endif

if thisform.txtpac_nrocli.value = 0

messagebox("Error, Debe seleccionar un cliente","Veter 1.5")

thisform.command3.setfocus

return

endif

select 2

set dele on

set order to 1

go bottom

ux=pac000.pac_nro

append blank

rlock()

replace pac_ruta with ARCHIZ

repla pac_nro with ux+1

*.txtpac_nro.value

repla pac_nrocli with .txtpac_nrocli.value

repla pac_nom with .txtpac_nom.value

repla pac_raza with .txtpac_raza.value

repla pac_especi with .txtpac_especi.value

repla pac_color with .txtpac_color.value

repla pac_nacio with .txtpac_nacio.value

repla pac_ingre with .txtpac_ingre.value

repla pac_celo with .txtpac_celo.value

repla pac_murio with .txtpac_murio.value

repla pac_repro with .txtpac_repro.value

repla pac_castr with .txtpac_castr.value

*repla pac_socio with .txtpac_socio.value

repla pac_sexo with .txtpac_sexo.value

repla pac_datos with .txtpac_datos.value

flush

unlock all

? chr(7)

=MESSAGEBOX("PACIENTE GRABADO",64,"Veter 1.5")

thisform.text1.value=""

thisform.txtpac_nroCLI.value=0

thisform.refresh()

U=U+1

THISFORM.ACTIVATE()

thisform.init

thisform.image1.picture=""

thisform.reFRESH()

*THISFORM.command3.SETFOCUS

*thisform.release()

endwith

Espero te ayude mi codigo me hace acordar a mis primeras pantallas de diseño, tendrias que darle un toque mas elegante espero no te ofendas con este comentario.

saludos

[Carlos Miguel FARIAS]

desde el select 2 hasta el unlock se puede resolver con un INSERT INTO 

Ese código, si se sacan la parte de pantallas es foxbase

[Mario Oviedo]

with thisform

if empty(thisform.txtpac_nom.value)

messagebox("Error, exixten espacios vacios","Error")

    THISFORM.TXTPAC_NOM.SETFOCUS

    return

endif

if thisform.txtpac_nrocli.value = 0

*-------------------------------------------------------------------------

with thisform

si utilizar with thisform

if empty(thisform.txtpac_nom.value)

messagebox("Error, exixten espacios vacios","Error")

    THISFORM.TXTPAC_NOM.SETFOCUS

    return

endif

if thisform.txtpac_nrocli.value = 0

ya no es necesario anteponerle thisform

if empty(.txtpac_nom.value)

messagebox("Error, exixten espacios vacios","Error")

    .TXTPAC_NOM.SETFOCUS

    return

endif

if .txtpac_nrocli.value = 0

[HernanCano]

Hola.

Este mensaje es para Jose Mario ((disculpen )):

JMario:

Lo que mencionas de WITH THISFORM / ENDWITH, es correcto .... si dentro de la estructura WITH /ENDWITH no hay un RETURN.

El script completo sería así: (( observa que hay dos RETURN dentro de la estructura WITH / ENDWITH ))

with ThisForm

 if empty( .txtPac_Nom.Value)

MessageBox("Error: existen espacios vacíos","Error")

     .txtPac_Nom.SetFocus

    return

 endif

 if  .txtPac_NroCli.value = 0

MessageBox("Error: Debe seleccionar un cliente","Veter 1.5")

.Command3.SetFocus

return

 endif

endwith

select 2

set deleted on

...

... 

De hecho el colega Carlos Miguel fue quien escribió la estructura así, pero innecesaria 

[Carlos Miguel FARIAS]

Que estructura escribí yo?

Además, los returns dentro de una estructura WITH ENDWITH pueden hacer fallar el programa, ya que cuando fox tiene problemas para "recolectar basura" y muchos objetos quedan colgados dentro. Y puede provocar caída de la aplicación.

Es un bug ya de larga data (bueno, en fox muchos bugs realmente nuevos no hay)

Saludos: Miguel, La Pampa (RA)

[HernanCano]

Perdón, Carlos M.

Ahora veo que está escrita por PachiMancuso.

El viernes, 27 de febrero de 2015, 6:22:26 (UTC-5), Miguel escribió:

Que estructura escribí yo?

[Carlos Miguel FARIAS]

Uf, menos mal, No hay problema. Pensé que me estaba dando Alzheimer.

Saludos: Miguel, La Pampa (RA)