removing zeros

silk

hi guys

last week the Zimbabwean Central Bank slashed off 3 zeros from our currency, which means that 1 000 000 is now 1 000. I need help with some code which will do this thing in navision automatically. A program whcih will go into all the table changing the 3 zeros or just dividing by a thousands.

PEzechiels

Hi silk,

We had this similair problem a few year back and we used the ECT( euro conversion tool) Now the ECT worked for standaard navision but for the addons i had to write a function to change the currency.
Take a look at the ECT . it could help you.

silk

thank you for the reply,, where can i find the ECT, since i use standard navision for the african region. i was playing around with a small function yesteday but it didnt seem to work here it is.


GLE.RESET;
IF GLE.FIND('-') THEN
REPEAT
BEGIN
myzero:=1000;
GLE.Amount := GLE.Amount/myzero;
IF GLE."Debit Amount" <> 0 THEN GLE."Debit Amount" := GLE."Debit Amount" / myzero;
IF GLE."Credit Amount" <> 0 THEN
GLE."Credit Amount" := GLE."Credit Amount" / myzero;
GLE.MODIFY;
END;
UNTIL GLE.NEXT = 0;

MESSAGE('The GL Entry table has been succesifully revalued!');

what am i doing wrong is this what yours looked like, because i was thinking that once it works for table 17 then i can identify all them other ledger entrie tables.

Albertvh

Hi Silk

Be careful of flowfields :whistle:

PEzechiels

silk,

Whats your email? i'll mail it to you.