INSERT INTO PRESU(PROMCOD,PRECOD,PRETIP,PRETIPGI,PREFECI,PREEJE,PREDES,PRETIPPRE) VALUES 
SELECT 'XXXX',PRECOD,PRETIP,PRETIPGI,PREFECI,PREEJE,PREDES,PRETIPPRE FROM PRESU WHERE PROMCOD = '#" +  objSQL.TratarCadena("PromCod",sCodigoPresupuestoOrigen) 