Validasi untuk Requeired Column

// function : f_cek_required( datawindow dw )
// deskripsi : Untuk mencek column-column yang harus diisi (required)
// dan menampilkan pesan jika column tsb tidak diisi.
// Required column tsb harus diberi sesuai dengan
// label column tsb.
// return : 1 (success) , -1 (ada column yg tidak diisi)

string sTemp
long lRowCount, lColCount, i, j
dwitemstatus l_status
SetPointer(HourGlass!)
lRowCount = dw.RowCount()
lColCount = long(dw.Describe("DataWindow.Column.Count"))
if dw.AcceptText() = -1 then return -1

// Cek setiap column untuk setiap row
For i = 1 to lRowCount
l_status = dw.GetItemStatus(i,0,Primary!)
IF l_status <> NotModified! THEN
FOR j = 1 TO lColCount
sTemp = Trim(String(dw.object.data[i,j]))
IF isNull(sTemp) THEN sTemp = ""
IF sTemp <> "" THEN CONTINUE
sTemp = dw.Describe("#" + String(j) + ".tag")
IF sTemp <> "" THEN
IF sTemp <> "?" THEN
MessageBox("Validation Error","Sorry! " +sTemp + " cannot be Empty.")
sTemp = dw.Describe("#" + String(j) + ".name")
dw.SetFocus()
dw.ScrollToRow(i)
dw.SetColumn(sTemp)
RETURN -1
END IF
END IF
NEXT
END IF
Next

RETURN 1