الفورم لا يقبل الحفظ ولا التعديل

[nan740]

انا سويت 2 بلك واحد في ازرار لمن اضغط على الزر يروح للبلك الثاني وفيه حقول اقوم بتعباتها بس المشكلة اني لمن اجي عن طريق الزر البلك يرفض عملية الخفظ واذا دخلت على البلك الثاني مباشره يقوم بعملية الحفظ وهذا هو الكود اللي في الازرار

DECLARE  IT_NAME VARCHAR2(40);
				B_IT ITEM;
				C_IT ITEM;
				
				
CURSOR SEND IS 
SELECT CUSTOMERS.CUST_id_card_no ,CUSTOMERS.CUST_NAME,CUSTOMERS.CUST_MEMBERS,
	             	CUSTOMERS.CUST_CITY,CUSTOMERS.CUST_MOBILE,CUSTOMERS.CUST_CAR_NO,CUSTOMERS.NATION
ALITY,CUSTOMERS.K_NAME,CUSTOMERS.K_MOBILE
				        ,CUST_RESORTS.C_RES_NUM,CUST_RESORTS.C_RES_RE_ID,CUST_RESORTS.C_RE_PRICE,CUST_RE
SORTS.C_RES_DATE_IN,
       					CUST_RESORTS.C_RES_DATE_OUT,CUST_RESORTS.C_STAY_DAY,CUST_RESORTS.C_RES_YEAR,CUST
_RESORTS.C_RES_COMMNETS,
			        	ACCOUNTS.ACC_CUST_NUM,ACCOUNTS.ACC_ID,ACCOUNTS.ACC_DATE,ACCOUNTS.ACC_TOTAL,ACCOU
NTS.ACC_RECEIPT,ACCOUNTS.ACC_REMAIN FROM CUSTOMERS,CUST_RESORTS,ACCOUNTS WHERE CUST_NAME=:T1 AND CUSTOMERS.CUST_ID_CARD_NO=CUST_RESORTS.C_RES_ID_CARD_NO AND CUSTOMERS.CUST_ID_CARD_NO=ACCOUNTS.ACC_ID_CARD_NO;
				
				
		
BEGIN IT_NAME:=:SYSTEM.CURRENT_ITEM;
:GLOBAL.IT_NAME:=IT_NAME;
:GLOBAL.RE_ID:=1;

B_IT:=FIND_ITEM('BLK.BACK');
C_IT:=FIND_ITEM('BLK.CLEAR_F');

SET_ITEM_PROPERTY(B_IT,ENABLED,PROPERTY_TRUE);
SET_ITEM_PROPERTY(C_IT,ENABLED,PROPERTY_TRUE);

IF :T1 IS NULL THEN
:RE_STATE:=1;
ELSE
:RE_STATE:=2;
END IF;





OPEN SEND;
FETCH SEND INTO :CUSTOMERS.CUST_id_card_no ,:CUSTOMERS.CUST_NAME,:CUSTOMERS.CUST_MEMBERS,
	             	:CUSTOMERS.CUST_CITY,:CUSTOMERS.CUST_MOBILE,:CUSTOMERS.CUST_CAR_NO,:CUSTOMERS.N_
LIST,:CUSTOMERS.K_NAME,:CUSTOMERS.K_MOBILE
				        ,:CUST_RESORTS.C_RES_NUM,:CUST_RESORTS.C_RES_RE_ID,:CUST_RESORTS.C_RE_PRICE,:CUS
T_RESORTS.C_RES_DATE_IN,
       					:CUST_RESORTS.C_RES_DATE_OUT,:CUST_RESORTS.C_STAY_DAY,:CUST_RESORTS.C_RES_YEAR,:
CUST_RESORTS.C_RES_COMMNETS,
			        :ACCOUNTS.ACC_CUST_NUM,:ACCOUNTS.ACC_ID,:ACCOUNTS.ACC_DATE,:ACCOUNTS.ACC_TOTAL,:
ACCOUNTS.ACC_RECEIPT,:ACCOUNTS.ACC_REMAIN;
    
CLOSE SEND;

END;


GO_BLOCK('CUSTOMERS');
:CUST_RESORTS.C_RES_RE_ID:=:GLOBAL.RE_ID;

وفي المرفقات الشاشة
PROJECT.rar

[nael14]

السلام عليكم

استخدم key-commit على مستوى forms

وفي الازرار استخدم do_key


بالتوفيق