Merhaba,

Bir müşterimizde Netsis Borç-Alacak Yaşlandırma Listesi'nde firmanın isteği üzerine raporda göstermek için ek kolonlar eklemiştik. Aşağıda RaporBook’un OnEnter eventinde yazdığımız scriptleri iletiyorum. Bu scriptler çalışarak istenilen ek kolonlar rapora getiriliyor fakat borç alacak yaşlandırma listesinde kısıt ve sıralama verdiğimizde aşağıdaki ekran görüntüsündeki gibi hata alıyoruz. Sebebi ne olabilir ?

Set rc = NETSISCORE.NetLibDB.GetNewQuery


Set rc2 = NETSISCORE.NetLibDB.GetNewQuery

For i=1 To RaporBook.LastRow-1
sql2= "select CARI_KOD FROM TBLCASABIT WHERE CARI_KOD='" & RaporBook.TextRC(i, 2) & "'"

rc2.RecSQL(sql2)

IF rc2.Fields(0).AsString<>"" THEN



sql= "select CASE ODEMETIPI WHEN 0 THEN 'NAKIT' WHEN 1 THEN 'HAVALE' ELSE 'ÇEK' END AS ODEMETIPI,VADE_GUNU,TBLCASABITEK.KULL1N AS OPSIYON,DBO.TRK(PLASIYER_ACIKLAMA),EMAIL from tblCASABIT INNER JOIN TBLCASABITEK ON TBLCASABITEK.CARI_KOD=TBLCASABIT.CARI_KOD LEFT OUTER JOIN TBLCARIPLASIYER ON TBLCARIPLASIYER.PLASIYER_KODU=TBLCASABIT.PLASIYER_KODU WHERE TBLCASABIT.CARI_KOD='" & RaporBook.TextRC(i, 2) & "' "


rc.RecSQL(sql)

IF rc.Fields(0).AsString<>"" THEN
RaporBook.TextRC(i, 4) = rc.Fields(0).AsString
call FormatlaSoldakiKolona(i,4)
RaporBook.TextRC(i, 5) = rc.Fields(1).AsString
call FormatlaSoldakiKolona(i,5)
RaporBook.TextRC(i, 6) = rc.Fields(2).AsString
call FormatlaSoldakiKolona(i,6)
RaporBook.TextRC(i, 7) = rc.Fields(3).AsString
call FormatlaSoldakiKolona(i,7)
RaporBook.TextRC(i, 8) = rc.Fields(4).AsString
call FormatlaSoldakiKolona(i,8)



END IF
rc.Close

END IF
rc2.Close

Next

Set rc = Nothing


Set rc2 = Nothing
'RaporBook.TextRC(1, 12)="mail"
'MsgBox RaporBook.LastRow