... return allway 9 nRow:=30 For n= 1 to 9 @ nRow,2 BTNBMP aBtnCalc[n] PROMPT ltrim(str(n+1)) FLAT SIZE 20,30 PIXEL of oDlg ; ACTION AddItems(oInvoice,aItems, GenBlock_(n) ,@nRowItems,fromdate,Todate) nRow+=32 NEXt fUNCTION GenBlock_(n) RETURN n and I Wish insert on GenBlock_(n) a right number (n)