Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Print
Message
From
27/06/1999 08:31:26
Dovi Gilberd
Dovtware Consulting Inc
Miami, Florida, United States
 
 
To
23/06/1999 15:38:52
General information
Forum:
Visual FoxPro
Category:
Other
Title:
Re: Print
Miscellaneous
Thread ID:
00233117
Message ID:
00234460
Views:
23
hey bill godd morning how are you today.im sorry to bother you..im stil dealing with the rate...im very new to fox, but im defending
myself however i can...boks, forums,,etc....Im sorry to bother you..please help me
regarding this..

i created a function in my main program called rate()
like this

key things about my problem
customer table's name is long_distance
the field in customers where i set the rates is long_distance.code
the calls made are in view1
the field that has the calls is named dialednr

my rates table name is Rates and it looks like this

code country rate 1 rate 2 rate n
011575 Colombia .23 .24 .25

i know that John doe has rate 2, and he made a call to 01157587654..
then that all with rate 2 to colombia should be billed at .24

Now first i neeD to compare the first digits of the call against the rate table to see which country was called
if dialednr starts with 0 then take left 6 of dialednr compared with rates.code
if dialednr starts with 1 then take left 4 of dialednr compared with rates.code
then i need to compare long_distance.code (rate asigned) the correct column of rates table( meaning if john doe
had rate 3, make sure that it uses the fith column of rates table..
now that i know the rate and the country i could knwo the rate


im triying with this function to doit but its not working properly..
CAN YOU PLEASE HELP ME OUT....I COULD PAY YOU FOR YOUR SERVICES...


function rate()
lparameter dialednr,code,result,result,n
select rates
set order to tag code
seek left(view1.dialednr,6)
for n=1 to fcount()
if field(n)=upper(code)
return eval(field(n))*result
endif
endfor
rate=n
return rate
endfunc
return rate
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform