25 Aralık 2009 Cuma

Datawindow kolonunun en büyük değerini almak

Evaluate fonksiyonu kullanılarak datawindow kolonunun en yüksek değerini bulabliriz.

f_dw_mak fonksiyonu:
====================

$PBExportHeader$f_dw_mak.srf
global type f_dw_mak from function_object
end type

forward prototypes
global function long f_dw_mak (datawindow a_dw, string a_kolon)
end prototypes

global function long f_dw_mak (datawindow a_dw, string a_kolon);
string ls_deger
if isnull(a_dw) or not isvalid(a_dw) then return 0
if a_dw.rowcount() = 0 then return 0
if isnull(a_kolon) or trim(a_kolon) = "" then return 0
if not isnumber(a_dw.describe(a_kolon + ".ID")) then return 0
ls_deger = a_dw.describe("evaluate('max(if(isnull(" + a_kolon + "), 0, " + a_kolon + "))', 1)")
if not isnumber(ls_deger) then return 0
return long(ls_deger)
end function

Hiç yorum yok:

Yorum Gönder