عندي بلك فيه معلومات معينه ....ابغى اطبع المعلومات بمجرد الضغط على زر طباعه سويت الزر وكتبت في

when button presseed
الكود التالي بس لالاسف ما اشتغل

COMMIT_FORM;
DECLARE
PL_ID		PARAMLIST;
PL_NAME	VARCHAR2(06) := 'SUBKEY';
MY_FLATS NUMBER(5);
MY_BILL_NUMBER NUMBER(10);
MY_BILL_DATE DATE;
BILL_COUNT NUMBER(1);
MY_RCPT_NO  VARCHAR2(10);
MY_CURENT_BALANCE NUMBER(10);
V_TOTAL  NUMBER(10);
V_CURRENT NUMBER(10);
CHKPOINT NUMBER(5):=5000;
TEMP  DATE;
 TEMP1 VARCHAR2(10);
 TEMP2 NUMBER;
 TEMP4 NUMBER;
 TEMP5 DATE;
 SCECO_TEMP NUMBER;
 GROUP_TEMP CHAR(1);
BEGIN
	  IF :payments.p_no IS NOT NULL AND :RECEIVED_BY IS NOT NULL  THEN
		 PL_ID := GET_PARAMETER_LIST(PL_NAME);
			IF	NOT ID_NULL(PL_ID) THEN
					DESTROY_PARAMETER_LIST(PL_ID);
			END IF;
	MESSAGE('OK');
	   
			  PL_ID := CREATE_PARAMETER_LIST(PL_NAME);
			  ADD_PARAMETER(PL_ID,'PARAMFORM',TEXT_PARAMETER,'NO');
			  ADD_PARAMETER(PL_ID,'P_YEAR',TEXT_PARAMETER,:payments.p_no);
			  ADD_PARAMETER(PL_ID,'P_SERVECE_CODE',TEXT_PARAMETER,:payments.SERV_CODE);	
			  ADD_PARAMETER(PL_ID,'P_REC',TEXT_PARAMETER,:RECEIVED_BY);
			  ADD_PARAMETER(PL_ID,'P_WORD',TEXT_PARAMETER,:w_WORD);
			  RUN_PRODUCT(REPORTS,'PAYMENT',SYNCHRONOUS,RUNTIME,FILESYSTEM,PL_ID,NULL);
		 ELSE 
		 	  MESSAGE('لا يمكنك طباعة الوصل');
		 END IF;
		EXCEPTION
	WHEN NO_DATA_FOUND THEN
	NULL;
END;

ما في اخطاء طلعت لي في الكود بس دايما كل ما اضغط على الزر ما يسوي شي ويطلع لي رساله لا يمكنك طباعة الوصل يعني يروح لجملة else على طول

الاخ الكريم صاحب السؤال


السلام عليكم ورحمة الله وبركاته

واضح ان الكود سليم وان المشكلة فى ان اما "payments.p_no " فارغ أو "RECEIVED_BY" فارغ

فراجع قيمة الحقلين وقت التشغيل فواحد منها او كلاهما يكون فارغاً .



مع تحياتى

اسامه سليمان
القاهرة