ayudaaaa....
Publicado por Sebastian (253 intervenciones) el 23/07/2008 15:22:00
Hola prpgramadores sigo con este tema me ayudan gracias pero esta vez creo q lo voy explico mejor. 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
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 pregunta


0