المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : الكود لإنشاء وعرض تعمير ديون العملاء

Monzer Osama
28-Jun-2011, 11:33 AM
السلام عليكم

هذا الكود لإنشاء تعمير ديون أعلى 100 عميل
كود متميز جدا



قم بتشغيل هذا الكود في قاعدة بيانات الشركة التي أنت تعمل بها



Select top 100 percent RM20101.CUSTNMBR, RM00101.CUSTNAME, RM20101.DOCNUMBR, RM20101.RMDTYPAL,
RM20101.DOCDATE, RM20101.DUEDATE, RM20101.GLPOSTDT, RM20101.ORTRXAMT, RM20101.CURTRXAM, RM20101.AGNGBUKT,
'Balance' = CASE WHEN RMDTYPAL = 1 THEN CURTRXAM
ELSE CASE WHEN RMDTYPAL = 9 THEN RM20101.CURTRXAM*-1 ELSE CURTRXAM*-1 END END,
[CURNT]= case when RM20101.AGNGBUKT = 1 then CASE WHEN RMDTYPAL = 1 THEN CURTRXAM ELSE RM20101.CURTRXAM*-1 end end ,
[Day30]= case when RM20101.AGNGBUKT = 2 then CASE WHEN RMDTYPAL = 1 THEN CURTRXAM ELSE RM20101.CURTRXAM*-1 end end ,
[Day3060]= case when RM20101.AGNGBUKT = 3 then CASE WHEN RMDTYPAL = 1 THEN CURTRXAM ELSE RM20101.CURTRXAM*-1 end end ,
[Day6090]= case when RM20101.AGNGBUKT = 4 then CASE WHEN RMDTYPAL = 1 THEN CURTRXAM ELSE RM20101.CURTRXAM*-1 end end ,
[Day90120]= case when RM20101.AGNGBUKT = 5 then CASE WHEN RMDTYPAL = 1 THEN CURTRXAM ELSE RM20101.CURTRXAM*-1 end end ,
[Day121]= case when RM20101.AGNGBUKT = 6 then CASE WHEN RMDTYPAL = 1 THEN CURTRXAM ELSE RM20101.CURTRXAM*-1 end end
From RM20101, RM00101
Where RM20101.VOIDSTTS = 0 AND
RM20101.CUSTNMBR = RM00101.CUSTNMBR AND RM20101.CURTRXAM<>0
order by RM20101.CUSTNMBR


وفق الله الجميع
Monzer Osama
28-Jun-2011, 11:35 AM
طبعا لعرض معلومات كافة العملاء فقط قم بحذف :

top 100 percent
MohammadSalah
28-Jun-2011, 12:03 PM
أخى العزيز
مشكور على الكود الممتاز ده ولكن أود أن أوضح جزء صغير

و هو إن RMDTYPAL =1 تكون فقط للفواتير و نحن نريد كل الحركات المدينه (Debit Trx) لذلك يمكن تغيير RMDTYPAL =1 ب RMDTYPAL <4
و بهذه الطريقه يكون كل شىء مضبوط إن شاء الله
Monzer Osama
28-Jun-2011, 12:18 PM
إضافة قيمة أخي الحبيب

تشكر عليها .... جزاك الله خير
حامد
13-Aug-2011, 11:49 AM
كود ممتاز ... جزاكم الله خير