بسم الله الرحمن الرحيم


اخواني الاعزاء طالب عونكم في هذه الشاشة التي قمت بعملها على فورم 10 جي الاصدار الاخير والمشكلة بالضبط
انني عندما اقوم بالاستعلام مثلا عن ارقام الدوائر رقم 10 للموظفين واختار check_all تظهر لي مسج .

وانا اريد ايضا عند الضغط على زر الطباعة ان يقوم بطباعة ما هو على الشاشة فقط .


هذا هو الكود على زر CHECK ALL

DECLARE
CURSOR GET_DATA
IS	
SELECT EMPNO
FROM   EMP 
ORDER BY EMPNO; 


R_GET_DATA	GET_DATA%ROWTYPE;


BEGIN
IF NVL(:ALL_CHECK,0) > 0 THEN 	
OPEN GET_DATA;
GO_BLOCK('EMP');
	FIRST_RECORD;
--	CLEAR_BLOCK(NO_VALIDATE);

LOOP
	FETCH GET_DATA INTO R_GET_DATA;
	EXIT WHEN GET_DATA%NOTFOUND;
	

	:EMP.CHECK_SELECT := 1;
		
		NEXT_RECORD;
  :ALL_CHECK :=1;
END LOOP;
  SET_BLOCK_PROPERTY('EMP',DELETE_ALLOWED,PROPERTY_TRUE);	
  DELETE_RECORD;
--	  PREVIOUS_RECORD; 
  
CLOSE GET_DATA;
ELSE
	OPEN GET_DATA;
 GO_BLOCK('EMP');
 	FIRST_RECORD;
--	CLEAR_BLOCK(NO_VALIDATE);
LOOP
	FETCH GET_DATA INTO R_GET_DATA;
	EXIT WHEN GET_DATA%NOTFOUND;
	:EMP.CHECK_SELECT := 0;
	
	NEXT_RECORD;
	  :ALL_CHECK := 0;	
END LOOP;
SET_BLOCK_PROPERTY('EMP',DELETE_ALLOWED,PROPERTY_TRUE);	
DELETE_RECORD;

END IF;

END;

ساعدوني يا جماعة

CHECK_EMP.rar

تم تعديل 27 أبريل 200916 سنة بواسطة المقنع2005

السلام عليكم
اخي الحبيب...اعمل EMPNO >>>>> REQUIRED = NO
بالتوفيق

اخي الكريم انا جربت الطريقة وما نجت معي


ساعدوني يا اخووووان

السلام عليكم ورحمة الله وبركاته
أتمنى أن تكون هذه الفورم هي الحل لك


وبالنسبة للسؤال الثاني لطباعة ماهو مختار أتمنى أن تجد الحل في هذا الرابط
طباعة بيانات محددة من الفورم حسب التحديد

check.rar

اخي الغالي مصطفى بارك الله بك وربنا يزيدك من علمه , وفعلا المشكلة الاولى تم حلها , وبقيت مشكلة الطباعة بحيث يتم طباعة ما هو ظاهر على الشاشة

أنا أعطيتك رابط تمت مناقشته بين أعضاء متميزين ووصلوا إلى حل في النهاية أرجوا متابعته إلى النهاية