أكواد لمستخدمي برنامج جريت بلينز

السلام عليكم

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

هذا الكود لإنشاء تعمير ديون أعلى 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

وللمزيد

http://www.gp4arab.com/forum/forumdisplay.php?f=3

وفقك الله الجميع