INSERT INTO PRESU(PROMCOD,PRECOD,PRETIP,PRETIPGI,PREFECI,PREEJE,PREDES,PRETIPPRE) 
SELECT 'MALD',PRECOD,PRETIP,PRETIPGI,PREFECI,PREEJE,PREDES,PRETIPPRE FROM PRESU WHERE PROMCOD = '##09'; 



SELECT PROMCOD FROM PROMOCIO WHERE PROMCOD NOT IN (SELECT PROMCOD FROM PRESU);


SELECT * FROM PRESUSUB WHERE PROMCOD = 'ECU1';


INSERT INTO PRESUSUB (PROMCOD,PRECOD,PARCOD,CONTPAR,PARDESSUB,SPARFECI,SPARFECF,SPARUNI,SPARPRE,SPARCTEMP,SPARCTEJE,SPARCTA,SPARIVAT) 
SELECT 'ECU1',PRECOD,PARCOD,CONTPAR,PARDESSUB,SPARFECI,SPARFECF,0,0,SPARCTEMP,SPARCTEJE,SPARCTA,SPARIVAT FROM PRESUSUB WHERE PROMCOD = '##09'; 



INSERT INTO PRESU1 (PROMCOD,PRECOD,PARCOD,PARDES,PARPER,PARACT,PARNVTO,PARDIA," +
					"PARFECI," +
					"PARCTEMP," +
					"PARCTAEJE," +
					"PARCTA," +
					"PARIVAT," +
					"PARIMP," +
					"PARCALTIP," +
					"PARCALVAL" +
					") " +
					"SELECT " + 
					objSQL.TratarCadena(sCodigoPromocionDestino) + "," +
					"PRECOD," + 
					"PARCOD," + 
					"PARDES," + 
					"PARPER," +	
					"PARACT," + 
					"PARNVTO," +
					"PARDIA," +
					"PARFECI," +
					"PARCTEMP," +
					"PARCTAEJE," +
					"PARCTA," +
					"PARIVAT," +
					"ROUND(PARCALVAL * "  + nValorCosto + ",2)," +
					"PARCALTIP," +
					"PARCALVAL " +
					"FROM PRESU1 " +
					"WHERE" +  objSQL.TratarCadena("PROMCOD",sCodigoPresupuestoOrigen) + 
					"AND" + objSQL.TratarCadena("PARCALTIP","sCosto")  