Forms 10g مشكلة بالفورمة بيظهر لي حروف روسي

[sayed farouk]

عندي مشكلة ارجو الحل بسرعة يا جماعة

بعد الحفظ على الفورمة

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

الصورة الاولى

 التيكست الي في البرواز دا المفروض انه يحفظ بالعربي زي ما هو كلمة " اعتمادات مستندية "

^{الصورة الاولى بالمرفقات}

 

-------------------------------------

وعند الحفظ الزر تنفيذ مش بيشتغل غير انه يعمل استعلام ومش بيرضى ينفذ الامر دا 

--------------

set_block_property('LC_EXPENS',default_where,'(LC_NUM=:TR_HEAD.CODE_ACON) and (no_tr=:tr_head.no_tr)');
--LC_EXPENS where LC_NUM=:TR_HEAD.CODE_ACON
declare 
sayed1 number;
begin
select nvl(count(no_tr),0) into sayed1 from LC_EXPENS_tmp where no_tr = :tr_head.no_tr;
if sayed1 = 0
then
insert into LC_EXPENS_tmp
(  no_tr,
   LC_NUM,
   LC_NAME,
   I_CODE,
   I_ITEM,
   I_PRICE,
   I_PRICE1,
   TOTAL,
   FF)
   (select 
   :TR_HEAD.no_tr,
   LC_NUM,
   LC_NAME,
   I_CODE,
   I_ITEM,
   I_PRICE,
   I_PRICE1,
   TOTAL,
   FF from LC_EXPENS where LC_NUM=:TR_HEAD.CODE_ACON  );


commit;
else
null;
end if;
end;
go_block('LC_EXPENS');
execute_query;
-----------------------------------
declare
sayed number;
begin
select count(key_1) into sayed from tr_foot_mosh_pe where no_tr = :tr_head.no_tr ;
if sayed > 0 then
null;
else
insert into tr_foot_mosh_pe ( no_tr,code_item,name_item,i_qun,i_qun1,i_price,i_price1,key_1,TYPE_ITEM,NO_TR_LC,EXPS_OUT,EXPS_OTHR,i_price2,code_acon_po,name_acon_po)
(select :tr_head.no_tr,code_item,name_item,i_qun,i_qun1,i_price,0,key_1,tr_foot_lc.TYPE_ITEM,  tr_foot_lc.NO_TR,0,0,i_price2,tr_head_po.code_acon,tr_head_po.NAME_ACON 
from tr_foot_lc,tr_head_po where 
tr_head_po.NO_TR = tr_foot_lc.no_tr 
and 
 tr_foot_lc.no_tr in (select no_tr from tr_head_po where type_ok = 'NO11' and lc_num = :tr_head.code_acon and CODE_TR = 15
and lc_num is not null));
:system.message_level:=5;
commit;
go_block('tr_foot');
execute_query;
end if;
end;
-----------------------
commit;
-----------------
-----------------------
declare
CURSOR CURIR IS 


SELECT     KEY_1 ,I_PRICE, I_QUN
FROM     TR_FOOT_MOSH_pe
WHERE  no_tr=:tr_head.no_tr;


BEGIN
FOR R IN CURIR LOOP
UPDATE TR_FOOT_MOSH_pe
SET I_PRICE1 = ROUND((r.I_PRICE*:TR_HEAD.RATE),2), TOTAL_PRICE=ROUND((r.I_PRICE*:TR_HEAD.RATE),2)*R.I_QUN
 WHERE  TR_FOOT_MOSH_pe.KEY_1 = r.KEY_1;


END LOOP;
END;


commit;
go_block('tr_foot');
execute_query;


------------------
/*
declare
CURSOR CURIR IS 


SELECT     KEY_1 ,I_PRICE, I_QUN, TOTAL_PRICE
FROM     TR_FOOT_MOSH_pe
WHERE  no_tr=:tr_head.no_tr;


BEGIN
FOR R IN CURIR LOOP
UPDATE TR_FOOT_MOSH_pe
SET  EXPS_OUT=round(((:LC_EXPENS.TOTAL_EXPENS/ :TR_FOOT.TOTAL_BFR)*R.TOTAL_PRICE)/R.I_QUN,2)
 WHERE  TR_FOOT_MOSH_pe.KEY_1 = r.KEY_1;


END LOOP;
END;
*/
declare
hp number;
begin
select sum((nvl(i_qun1,0) - nvl(i_qun,0)) * nvl(i_price1,0)) as tot into hp
from tr_foot_mosh_pe
where no_tr = :tr_head.no_tr;
if hp > 0 then


insert into LC_EXPENS_tmp
(  no_tr,
   LC_NUM,
   LC_NAME,
   I_CODE,
   I_ITEM,
   I_PRICE,
   I_PRICE1,
   TOTAL,
   FF)
   (select 
   :TR_HEAD.no_tr,
   :TR_HEAD.CODE_ACON,
   :TR_HEAD.name_acon,
   123456,
   'فروق العجز والزيادة',
   hp,
   0,
   hp,
   'فروق العجز والزيادة' from dual );


commit;
else
null;
end if;
end;
go_block('LC_EXPENS');
execute_query;
go_block('tr_foot');
execute_query;


------------------
------------------

----------------

وبيظهر عالداتا بيس خانة التيكست كدا

الصورة التانية بالمرفقات

 

 

زي مانتو شايفين مع كلمة اعتمادات مستندية بيظهر حروف روسي مش عارف ليه مع ان الفورمة كانت شغالة كويس وماكانشي بيحصل فيها كدا

----------

الي يعرف ياريت يرد بسرعة عشان العميل مستني وجزاكم الله كل خير

 

الكود مرفق بالملف

button code.txt

[mlkmu1]

 

تأكد أخي من الـ nls_lang بالريجيستري ، فيه موجود nls_lang للغة العربية ابحث عنها بالموقع موجود مواضيع كثيرة خاصه بها ، 

انا حاليا لو عندي جهاز الشغل ارسلته لك بس ان شاء الله الشباب ما يقصرون معك وبالتوفيق .

 

[Neveen_Ebrahim]

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

بالنسبة لمشكلة الحفظ فى الزر أرجو إستبدال ال COMMIT

بهذا الأمر   ;('FORMS_DDL('COMMIT

 

---------------------------------------------------

 

أما كلمة اعتمادات مستندية 

فلا أدرى كيف يتم تخزينها ؟؟؟

لعلك محتاج تستخدم دالة TRIM 

[sayed farouk]

تم حل المشكلة

كانت في كلمة اعتمادات مستندية الي بتيجي من جدول اخر في الداتابيس كانت بتجيب من هناك حروف روسي معاها