... ) // inicializa la clase oQuery:Open( eval(bSeek,"") ) // efectua el query IF ( oQuery:nRowCount=0 ) // si no hay registros MSGALERT("No Existen Ramos, Incluya Alguno","Atención...") CreaRamo(oWnd,0,0,0,,1,.T.) oQuery:Open( eval(bSeek,"") ) ENDIF Nota: esto es para efectuar un listbox con busqueda ...