FoxPro/Visual FoxPro - ayuda porfis

   
Vista:

ayuda porfis

Publicado por Meche Gironda (59 intervenciones) el 16/10/2007 17:52:27
hola programadores podran ayudarme gracias
tengo 2 tablas
consulta y cliente
sede cod_cli
fecha nomb
cod_cli
el problema esta cuando registro un dato en consulta (COD_CLI) y quiero que busque en la tabla cliente para ver si existe en esa tabla si no existe en cliente no graba los registros en consulta este el codigo que estoy utilizando.

B=thisform.codigo.value
select clientes
set order to cod_cli
seek B
if found()
=messagebox("Codigo no existe en la tabla cliente",48,"Error")
go bottom
delete
endif
thisform.refresh

if empty(thisform.text1.value) or empty(thisform.text2.value)
=messagebox("Registros incompletos","Mesaje del sistema")
else

IF MESSAGEBOX("Seguro de grabar",36,"Confirmacion")=6

APPEND BLANK
REPLACE SEDE WITH S
REPLACE FECHA WITH F
REPLACE COD_CLI WITH C
thisform.refresh

ELSE
=MESSAGEBOX("No se grabaron los datos",64,"Mensage del sistema")
endif
endif
endif
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

RE:ayuda porfis

Publicado por Ernesto Hernandez (4632 intervenciones) el 16/10/2007 18:32:44
B=thisform.codigo.value && aqui si tu campo es caracter pon
B=STR(ThisForm.Codigo.Value,6) && segun el tamaño de tu campo
select clientes
set order to cod_cli
seek (B,"CLIENTES",1) && aqui pon la tabla y el orden que uses

if found()
=messagebox("Codigo no existe en la tabla cliente",48,"Error")
go bottom
delete
endif
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

RE:ayuda porfis

Publicado por Meche Gironda (59 intervenciones) el 16/10/2007 19:22:00
Gracias chicos pero el resultado que requiero es que los datos guarde en la tabla consulta y no en cliente solamente quiero que lo busque en cliente y si no existe no graba, pasa que como habro la tabla al principio select clientes el proceso pìensa que lo guardara ahi y me tre conflictos chicos un ultimo esfuezo creo que no me explique bien
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:ayuda porfis

Publicado por Ernesto Hernandez (4632 intervenciones) el 16/10/2007 20:02:33
usa la clausula IN

APPEND BLANK IN Consulta

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

RE:ayuda porfis

Publicado por Plinio (7771 intervenciones) el 16/10/2007 18:34:45
DOnde dice FOUND pon !FOUND()
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:ayuda porfis

Publicado por Meche Gironda (59 intervenciones) el 16/10/2007 19:22:45
Gracias chicos pero el resultado que requiero es que los datos guarde en la tabla consulta y no en cliente solamente quiero que lo busque en cliente y si no existe no graba, pasa que como habro la tabla al principio select clientes el proceso pìensa que lo guardara ahi y me tre conflictos chicos un ultimo esfuezo creo que no me explique bien
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:ayuda porfis

Publicado por Plinio (7771 intervenciones) el 16/10/2007 22:58:08
Por lo menos se que found esta mal. Por que found significa que lo encontraste, mientras que !FOUND() es la negacion
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:ayuda porfis

Publicado por Meche Gironda (59 intervenciones) el 17/10/2007 16:13:14
gracias amiguito no sabia porque usar el !found creo que esta solucionado mi pregunta un besote
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:ayuda porfis

Publicado por Ernesto Hernandez (4632 intervenciones) el 17/10/2007 19:24:24
es correcto !
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