***function cari nomor terakhir
FUNCTION nokwit
LOCAL noakhir,nomor

SELECT 0
USE kwitansi ALIAS kw

SELECT MAX(urut) as akhir FROM kw INTO CURSOR curHsl
IF _tally >0 
	noakhir = VAL(curHsl.akhir) + 1
	nomor   = PADL(ALLTRIM(STR(noakhir)),7,'0')
ELSE
	nomor	= '0000001'
ENDIF
IF USED('kw')
	USE IN kw
ENDIF
IF USED('curHsl')
	USE IN curHsl
ENDIF

RETURN nomor