FoxPro/Visual FoxPro - REPLACE

   
Vista:

REPLACE

Publicado por Sebastian (253 intervenciones) el 22/07/2008 22:06:37
buenas programadores tengo una 2 campos en el primero guardo especialidad y el el otro su apellidos y codigo de los apellidos pero cuando no tenfgo su especialidad se guarda con N/E por ejemplo
vfp Perez 01
basic Fafan 02
pw Fano 03
N/E Villalta 04
NE Prado 05
N/E Villalta 04
como puedo hacer para reemplazar los codigo N/E con su respectivos codigo este es mi codigo.

selec tabla1
set order to codigo
thisform.refresh
seek codigo
if found()then
replace all especialidades with alltrim(thisform.combo2.value)
thisform.grid1.refresh
thisform.refresh

else
if messagebox("No se encontro el registro",36,"Mensaje del Sistema")=6
thisform.combo2.value=""
thisform.text5.value=""
thisform.grid1.column3.text1.setfocus
thisform.grid1.refresh
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:REPLACE

Publicado por Saul (El Guatemalteco...) (676 intervenciones) el 22/07/2008 23:06:42
selec tabla1
set order to codigo
thisform.refresh
seek codigo
if found()then
xVa =alltrim(thisform.combo2.value
if EMPTY(xVa)
xVa ="N/E"
ENDIF


replace all especialidades with xva
thisform.grid1.refresh
thisform.refresh

else
if messagebox("No se encontro el registro",36,"Mensaje del Sistema")=6
thisform.combo2.value=""
thisform.text5.value=""
thisform.grid1.column3.text1.setfocus
thisform.grid1.refresh
endif
endif
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:REPLACE

Publicado por Sebastian (253 intervenciones) el 23/07/2008 15:19:56
Gracias Saul pero creo que no me deje entender de nuevo amigo ok
tengo un grid mostrando codigos del medico, apellidos y el servicio pero estos servicios muestra N/E en algunos medicos que significa No Especifica, etonces lo que quiero lograr hacer es selecionar el medico y luego buscar en el combo la especialidad y luego reemplazar los N/E por la especialidad correcta de acuerdo al medico, Gracias por la ayuda prestada, envio el codigo.
selec tabla1
set order to codigo
thisform.refresh
seek codigo
if found()then
replace all especialidad with alltrim(thisform.combo1.value)
thisform.grid1.refresh
thisform.refresh
else
if messagebox("No se encontro el registro",36,"Mensaje del Sistema")=6
thisform.combo2.value=""
thisform.grid1.column3.text1.setfocus
thisform.grid1.refresh
set filter to
endif
endif
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