sayed farouk بتاريخ: 30 أبريل 2017 تقديم بلاغ مشاركة بتاريخ: 30 أبريل 2017 عندي مشكلة ارجو الحل بسرعة يا جماعة بعد الحفظ على الفورمة التيكست ايتم بيبقى فاضي او مكتوب فيه عربي ولما بعمل حفظ يظهر عالداتا بيس الحروف العربي واخرها حروف بالروسي والفورمة بتقف ومش بترضى تنفذ اي امر والزرار مش بينفذ اي حاجة غير انه بيعمل استعراض لداتا مش موجودة لانه مابينفذشي حاجة الصورة الاولى التيكست الي في البرواز دا المفروض انه يحفظ بالعربي زي ما هو كلمة " اعتمادات مستندية " الصورة الاولى بالمرفقات ------------------------------------- وعند الحفظ الزر تنفيذ مش بيشتغل غير انه يعمل استعلام ومش بيرضى ينفذ الامر دا -------------- 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 بتاريخ: 5 مايو 2017 تقديم بلاغ مشاركة بتاريخ: 5 مايو 2017 تأكد أخي من الـ nls_lang بالريجيستري ، فيه موجود nls_lang للغة العربية ابحث عنها بالموقع موجود مواضيع كثيرة خاصه بها ، انا حاليا لو عندي جهاز الشغل ارسلته لك بس ان شاء الله الشباب ما يقصرون معك وبالتوفيق . اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
Neveen_Ebrahim بتاريخ: 8 مايو 2017 تقديم بلاغ مشاركة بتاريخ: 8 مايو 2017 السلام عليكم ورحمه الله وبركاته بالنسبة لمشكلة الحفظ فى الزر أرجو إستبدال ال COMMIT بهذا الأمر ;('FORMS_DDL('COMMIT --------------------------------------------------- أما كلمة اعتمادات مستندية فلا أدرى كيف يتم تخزينها ؟؟؟ لعلك محتاج تستخدم دالة TRIM اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
sayed farouk بتاريخ: 14 يونيو 2017 كاتب الموضوع تقديم بلاغ مشاركة بتاريخ: 14 يونيو 2017 تم حل المشكلة كانت في كلمة اعتمادات مستندية الي بتيجي من جدول اخر في الداتابيس كانت بتجيب من هناك حروف روسي معاها اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
Recommended Posts
انضم إلى المناقشة
يمكنك المشاركة الآن والتسجيل لاحقاً. إذا كان لديك حساب, سجل دخولك الآن لتقوم بالمشاركة من خلال حسابك.