hi,
thank you very much,for reply,help ,time and code.
best regards.

m.qasem
>i dont't have program, i get the message when i run myform
>thanks
>
>Mohammed, Try This
>

>PUBLIC oform1
>
>oform1=NEWOBJECT("myform")
>oform1.Show
>RETURN
>
>
>
>DEFINE CLASS myform AS form
>
>
>	Top = 1
>	Left = 7
>	Height = 568
>	Width = 944
>	DoCreate = .T.
>	Caption = "Myform"
>	Name = "Form"
>
>	ADD OBJECT text1 AS Textbox WITH ;
>		Height = 30, ;
>		Left = 20, ;
>		Top = 75, ;
>		Width = 60
>	PROCEDURE Load
>		CREATE CURSOR mstr (billno n(10,2),name c(15) )
>		FOR k= 1 TO 30
>		    APPEND BLANK
>		    REPLACE Billno WITH k,name WITH "asdfk"+STR(k)
>		NEXT
>
>	PROCEDURE INIT
>        SELECT MAX(billno) from mstr INTO ARRAY laAarray
>        IF _TALLY > 0
>           thisform.text1.value=(RIGHT(STR(YEAR(DATE()),4),2) + '_'+RIGHT(STR(10000+laAarray[1],5),4))
>        ELSE
>           THISFORM.TEXT1.VALUE = 0
>           MESSAGEBOX("No Value. No Records")
>       ENDIF
>
>	ENDPROC
>
>ENDDEFINE
>

>
>Next Time Try This
>

>PUBLIC oform1
>
>oform1=NEWOBJECT("myform")
>oform1.Show
>RETURN
>
>
>
>DEFINE CLASS myform AS form
>
>
>	Top = 1
>	Left = 7
>	Height = 568
>	Width = 944
>	DoCreate = .T.
>	Caption = "Myform"
>	Name = "Form"
>
>	ADD OBJECT text1 AS Textbox WITH ;
>		Height = 30, ;
>		Left = 20, ;
>		Top = 75, ;
>		Width = 60
>	PROCEDURE Load
>		CREATE CURSOR mstr (billno n(10,2),name c(15) )
>*!*			FOR k= 1 TO 30
>*!*			    APPEND BLANK
>*!*			    REPLACE Billno WITH k,name WITH "asdfk"+STR(k)
>*!*			NEXT
>
>	PROCEDURE INIT
>        SELECT MAX(billno) from mstr INTO ARRAY laAarray
>        IF _TALLY > 0
>           thisform.text1.value=(RIGHT(STR(YEAR(DATE()),4),2) + '_'+RIGHT(STR(10000+laAarray[1],5),4))
>        ELSE
>           THISFORM.TEXT1.VALUE = 0
>           MESSAGEBOX("No Value. No Records")
>       ENDIF
>
>	ENDPROC
>
>ENDDEFINE
>