Anónimo
Inserción de Datos Vacía en Visual Fox
- Buenas Qué tal Víctor...
Mira quisiera por favor me ayudes en lo siguiente:
-Tengo el siguiente código en un CommandBottom, y resulta que no hace absolutamente nada ni da ningún error ni mensaje, no se que parte del código esta mal.
-Quizás sea la parte final de los USE, pero no sé si así está correcto.
Te agradezco la ayuda y oportunidad.
IF !USED ("productos1")
USE productos1 IN 0
Endif
IF !USED ("productos2")
USE productos2 IN 0
Endif
SELECT productos1
Set Order To codigo
Seek intCodigo
If Eof()
Select productos2
Set Order To codigo
Seek intCodigo
If Eof()
INSERT INTO productos2 VALUES (intCodigo,UPPER(strDescripcion))
MESSAGEBOX ('Registro Guardado Satisfactoriamente',64,'Guardar Registro')
intCodigo=0
strDescripcion=''
THISFORM.Refresh
ELSE
MessageBox('Éste Código ya Existe',16,'Ingreso de Productos')
intCodigo=0
strDescripcion=''
THISFORM.Refresh
Endif
Endif
SELECT productos1
USE
Select productos2
USE
Mira quisiera por favor me ayudes en lo siguiente:
-Tengo el siguiente código en un CommandBottom, y resulta que no hace absolutamente nada ni da ningún error ni mensaje, no se que parte del código esta mal.
-Quizás sea la parte final de los USE, pero no sé si así está correcto.
Te agradezco la ayuda y oportunidad.
IF !USED ("productos1")
USE productos1 IN 0
Endif
IF !USED ("productos2")
USE productos2 IN 0
Endif
SELECT productos1
Set Order To codigo
Seek intCodigo
If Eof()
Select productos2
Set Order To codigo
Seek intCodigo
If Eof()
INSERT INTO productos2 VALUES (intCodigo,UPPER(strDescripcion))
MESSAGEBOX ('Registro Guardado Satisfactoriamente',64,'Guardar Registro')
intCodigo=0
strDescripcion=''
THISFORM.Refresh
ELSE
MessageBox('Éste Código ya Existe',16,'Ingreso de Productos')
intCodigo=0
strDescripcion=''
THISFORM.Refresh
Endif
Endif
SELECT productos1
USE
Select productos2
USE
1 respuesta
Respuesta de Víctor Arturo Mercado Fernández
1
¿Ya ejecutaste el código paso a paso para verificar que esté realizando lo que se espera o en que punto tiene un comportamiento extraño?
Mira Gracias...
Ejecuté el código por selección, lo revisé todo punto a punto y en teoría todo da resultado..., pero aún sigo teniendo el problema al ejecutar el CommandBottom
¿Cuál es la forma de ejecutarlo paso a paso?
Gracias por la atención
Ejecuté el código por selección, lo revisé todo punto a punto y en teoría todo da resultado..., pero aún sigo teniendo el problema al ejecutar el CommandBottom
¿Cuál es la forma de ejecutarlo paso a paso?
Gracias por la atención
Con el depurador
Mira Me da error acá:
A- IF !USED ("productos1")
USE productos1 IN 0
1- No Existe productos1.dbf
B- SELECT productos1
Set Order To codigo
Seek intCodigo
2-No existe productos1.dbf
¿A qué se debe ésto?
A- IF !USED ("productos1")
USE productos1 IN 0
1- No Existe productos1.dbf
B- SELECT productos1
Set Order To codigo
Seek intCodigo
2-No existe productos1.dbf
¿A qué se debe ésto?
Quizá no encuentra el archivo.