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

بتاريخ: 30 أبريل 20178 سنة

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

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

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

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

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

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

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

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

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

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