FUNCTION GS_NTOC(xTGL) IF EMPTY(xTGL) DO FORM LIBS\TGLPROSES TO xTGL IF EMPTY(xTGL) RETURN TO MASTER ENDIF ENDIF RETURN SUBSTR('ABCDEFGHIJKL',MAX(MONTH(xTGL),1),1) ENDFUNC
