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