SELECT PRECOD,PARCOD,PARDES,PARCALTIP,PARCALVAL, " +
" PROMCOD " +
"FROM PRESU1 WHERE PROMCOD = "+objBBDD.SQL.TratarCadena(objShmTextEditorCodigoPresupuesto.Text)