PROCEDURE cekTgl(dTgl) LOCAL iTgl iTgl=DATE() IF TYPE('dTgl')='D' AND !EMPTY(dTGL) iTgl=dTgl ENDIF RETURN iTgl ENDPROC
