Monthly Archives: June 2008

hi all,
i have unique(i think it is) way for creating menus and set level for various users.
in menufile.dbf contains sample records.
give 1-6 level to users.
example-accountant -3 && give .t. to 'level6' field for accessable menus to a  6 level user.
you  can add images to image field.
if you want to show a menu only to developer(like debug,pack data) give .t. to programmer field to that menu.

create a public variable _ulevel as string and assign the user level to it when a user login.example _ulevel = "6".

jijo
impossible is nothing but imagination
 

hi friends,
i have various type of clients, then i need to create various reports for each one.all are simple reports. then i create a dynamic data report for all.in this utility end user can select tables,conditions,outputs,and all.now ii want to share that idea to my foxite friends.

note

  • select table with 'add table' button in ddr toolbar first.

i updated this post with a help file.i will help you more..
jijo
impossible is nothing but imagination

hi all,
this is my first blog.
this is a simple program for convert
number to words.
usage : words(nnumber)
parameters
nnumber
number you want to convert

return
string
example
?
words(
1000)
returns: thousand only

*----------------------------

proc words
para num
* num="000000010.47"
if num>999999999.99
retu "*--numeric overfloaw--*"
endi
vv=int(num)
cnum = allt(str(vv,9))
cnum = padl(cnum,9,"0")
dec1=abs(num-vv)*100
dec=str(dec1,2)
cnum = cnum+"."+dec
num =cnum


*--crore
a1=subs(num,1,1)
a2=subs(num,2,1)
if a1 = "1"
cror=teen_num(a2)
else
cror=tenthplace(a1)+onethplace(a2)
endi
if !empt(cror)
cror=cror+"crore "… Continue reading