Foros de Informatica -> Problemas con VFP

" Hay la misma diferencia entre un sabio y un ignorante que entre un hombre vivo y un cadáver "

- Aristóteles -

Computerfacil.com

Chat

Fotos

Últimos Posts

Sin Respuesta

Ayuda

Búsqueda

Miembros

Calendario

Bienvenido, invitado ( Identificarse | Registrarse )

Reenviar mensaje de validación

Forista del Mes:

proquibas

Foros de Informatica -> Sistemas, Software y Hardware -> Software

Normas de los Foros

Problemas con VFP

Suscribirse | Enviar por correo | Imprimir

sleipnir

Publicado: Oct 22 2005, 06:11 AM

* Maese Linux *

Grupo: Miembros
Mensajes: 272
Miembro nº: 5.577
Registrado: 16-September 05

Bueno tengo una pequeña aplicacion que sorprendentemente me esta dando dolor de cabeza.

En El Proyecto tengo un contenedor (planilla_de_empleados) con 3 tablas

departamentos => (depto (indice principal))
personal => (depto (indice normal) y identidad (indice principal))
planilla => (identidad (indice normal) y nplan (indice normal))

La tabla de departamentos esta unida a personal por el campo depto y la tabla de personal esta unida a la de planilla por el campo identidad.

Lo que ando buscando es crear un formulario para agregar los departamentos para que de esa forma jalo los datos introducidos desde la tabla depto y no tenga que escribir cada campo en el combobox de depto en el formulario para agregar empleados con la tabla de personal. Este formulario solo tiene un campo (depto).

Lo raro es que tengo 4 botones y en ellos uso el seek para m.depto pero nunca encuentra el registro y siempre ejecuta el append blank y el gather memvar, pero nunca solo el gather memvar. Mire la tabla y me esta guardando el registro la primera vez pero como nunca lo encuentra no lo puedo eliminar.

Este es el codigo

----------------------------------------

Form1.Load

CODE

select departamentos
scatter memvar blank
set order to depto

txtDepto.valid

CODE

if empty(m.depto)
retu .t.
endif
if seek(m.depto)
scatter memvar
thisform.refresh
thisform.commandgroup1.command1.enabled=.t.
thisform.commandgroup1.command2.enabled=.t.
thisform.commandgroup1.command3.enabled=.t.
retu .t.
else
thisform.commandgroup1.command1.enabled=.t.
thisform.commandgroup1.command2.enabled=.f.
thisform.commandgroup1.command3.enabled=.t.
retu .t.
endif

txtDepto.Lostfocus

CODE

if empty(m.depto)
scatter memvar blank
thisform.commandgroup1.command1.enabled=.f.
thisform.commandgroup1.command2.enabled=.f.
thisform.commandgroup1.command3.enabled=.f.
thisform.commandgroup1.command4.setfocus
endif
thisform.refresh

Command1.click Salvar

CODE

if seek(m.depto)
gather memvar
else
append blank
gather memvar
endif
scatter memvar blank
thisform.commandgroup1.command1.enabled=.t.
thisform.commandgroup1.command2.enabled=.t.
thisform.commandgroup1.command3.enabled=.t.
thisform.txtdepto.setfocus
thisform.refresh

Command2.click Eliminar

CODE

if seek(m.depto)
delete
pack
endif
scatter memvar blank
thisform.commandgroup1.command1.enabled=.t.
thisform.commandgroup1.command2.enabled=.t.
thisform.commandgroup1.command3.enabled=.t.
thisform.txtdepto.setfocus
thisform.refresh

Command3.click Cancelar

CODE

scatter memvar blank
thisform.commandgroup1.command1.enabled=.t.
thisform.commandgroup1.command2.enabled=.t.
thisform.commandgroup1.command3.enabled=.t.
thisform.txtdepto.setfocus
thisform.refresh

command4.click Salir

CODE

thisform.release

Como ven el formulario no es nada complejo, y me hace pensar que talvez el vfp se haya dañado por alguna razon. Por cierto estoy usand VFP 6.0

--------------------

No existe puerta en el camino de la vida que rehuse abrirse ante aquellos que quieren pasar. Si quieres ir a cualquier parte, no importa qué camino elijas, hay miles y todos son buenos. Si, con suerte, alcanzas tu meta, el camino desaparecerá y tú te convertirás en el camino.

maik

Publicado: Oct 27 2005, 02:02 AM

* The Founder *
Group Icon

Grupo: Administradores
Mensajes: 4.880
Miembro nº: 2
Registrado: 23-August 04

¿Qué es VFP 6.0 ?

Visual Fortran Profesional??

¿Quieres ganar dinero escribiendo sobre tus aficiones? - www.Redactores.es

--------------------

Si te sirvió de ayuda el Foro, ayúdanos a crecer poniendo este enlace en tu web: Foro de Informatica

CODE

<a href="http://www.computerfacil.com" title="Foros de Informatica">Foro de Informatica</a>

Gracias!

sleipnir	Publicado: Oct 27 2005, 02:04 AM
* Maese Linux * Grupo: Miembros Mensajes: 272 Miembro nº: 5.577 Registrado: 16-September 05	Visual FoxPro 6.0 solo que ya resolvi el problema. -------------------- No existe puerta en el camino de la vida que rehuse abrirse ante aquellos que quieren pasar. Si quieres ir a cualquier parte, no importa qué camino elijas, hay miles y todos son buenos. Si, con suerte, alcanzas tu meta, el camino desaparecerá y tú te convertirás en el camino.

maik

Publicado: Oct 27 2005, 02:17 AM

* The Founder *
Group Icon

Grupo: Administradores
Mensajes: 4.880
Miembro nº: 2
Registrado: 23-August 04

Ok sleipnir, me alegro

yo en la vida usé el Visual FoxPro 6.0...

--------------------

Si te sirvió de ayuda el Foro, ayúdanos a crecer poniendo este enlace en tu web: Foro de Informatica

CODE

<a href="http://www.computerfacil.com" title="Foros de Informatica">Foro de Informatica</a>

Gracias!

0 usuario(s) está(n) leyendo esta discusión (0 invitado(s) y 0 usuario(s) anónimo(s))

0 miembro(s):

« Posterior | Software | Anterior »

Webs Afiliadas - Contacto
Ofertas PCs :: Consultor de Marketing Online :: Foros :: Posicionamiento Web :: Foros de Informatica :: Foros :: elhacker