cCodPac = ALLTRIM(.cboNombre_pac.Value)
SELECT tblPacientes
SELECT codigo_pac, id_pac,;
ALLTRIM(nombres_pac) +" "+;
ALLTRIM(apellidos_pac) as _nombrePac,;
nacion_pac, fecha_nac_pac,;
sexo_pac, edad_pac,;
religion_pac, ocupacion_pac,;
estado_civ_pac, telefono_pac,;
celular_pac, direccion_pac,;
pais_pac, depto_pac,;
muni_pac, foto_pac,;
email_pac, fecha_pac,;
usu_agr_pac, fecha_agr_pac,;
usu_mod_pac, fecha_mod_pac;
FROM tblPacientes;
WHERE codigo_pac = cCodPac;
INTO CURSOR _tblPacientesRQ1 READWRITE