genblock
Posted: Mon Jun 12, 2023 10:01 am
I have 9 button
when I press a button 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)
when I press a button 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)