Dinamik Kodlama İle standart raporlara kolon ekleme

Dinamik Kodlama İle standart raporlara kolon ekleme


Başlıktanda anlaşıldığı gibi script yardımıyla standart rapor ekranlarına yeni bir kolon eklemek artık çok kolay. Şimdi bunu bir örnekle açıklayalım, burada ben SMAR’da (Serbest Maliyet Ambar Raporu) kalan tutar-gerçek bakiye farkını gösteren bir kolon eklemeyi yerinde buldum. Bunun için aşağıdaki adımları takip edelim;
SMAR’ı bir kere çalıştırın ve açılan rapor ekranından Netsis Script Kod Desteği’ne girin
RaporForm nesnesinin “onnetscrsys_raporkapanis” olayına aşğdaki kodu;

For i=1 To RaporBook.LastRow

call SetFormat(i)

if RaporBook.TextRC(i, 1) = “Stok Kodu” then

call SetCaption(i)

else

call SetData(i)

end if

Next


Form Global kısmınada aşağıdaki kodu;



Const NewCol = 18

Sub SetCaption(row)

RaporBook.TextRC(row, NewCol) = “Fark Tutar”

End Sub



sub SetFormat(row)

RaporBook.SetSelection row, 17, row, 17

set cf = RaporBook.GetCellFormat

RaporBook.SetSelection row, NewCol, row, NewCol

RaporBook.SetCellFormat cf

end sub



sub SetData(Row)

RaporBook.NumberRC(row, NewCol) = (RaporBook.NumberRC(row, 13)-RaporBook.NumberRC(row, 17))

End Sub


Şimdi raporu tekrar çalıştırın, işte sonuç;