**dian_sastro
**2005
CLEAR
SET safety OFF
LOCAL nomorku
CREATE TABLE dian2 (nomor c(10)) 
INSERT INTO dian2 (nomor) VALUES ('a001')
INSERT INTO dian2 (nomor) VALUES ('b001')
** INSERT INTO dian2 (nomor) VALUES ('z001')   && ini anda bisa pakai tuk cek perubahan ke a002

SELECT IIF(MAX(LEFT(nomor,1))='z','a'+ ;
right('0000'+ALLTRIM(STR(val(SUBSTR(MAX(nomor),2,LEN(ALLTRIM(MAX(nomor)))-1))+1)),3),;
CHR(ASC(MAX(LEFT(nomor,1)))+1) + right('0000'+ALLTRIM(STR(val(SUBSTR(MAX(nomor),2,LEN(ALLTRIM(MAX(nomor)))-1)))),3)) ;
as nomor_terakhir FROM dian2 INTO CURSOR curCucur

SELECT curCucur
IF _tally>0
    nomorku=curCucur.nomor_terakhir
ELSE
	nomorku='a001'
ENDIF
**nongolnya seharusnya 'c001'
? nomorku
IF USED('dian2')
	USE IN dian2
ENDIF