removing zeros

silk
silk Member Posts: 5
edited 2006-08-17 in Navision Attain
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.

Comments

  • PEzechiels
    PEzechiels Member Posts: 83
    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
    silk Member Posts: 5
    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
    Albertvh Member Posts: 516
    Hi Silk

    Be careful of flowfields :whistle:
  • PEzechiels
    PEzechiels Member Posts: 83
    silk,

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

Categories