Пересчёт цен.

[Pljushevij]

Добрый день
У нас в Латвии меняется денежная единица - были Ls (латы), стали Euro. Курс 1Eur=0.702804Ls. Как можно пересчитать все цены в базе?
Спасибо заранее

[dmitry]

Скопировать текст ниже,
в программе нажать Ctrl+F10,
вставить текст, нажать "ОК".

DB.Execute("UPDATE DocumentRows SET Price = [DocumentRows]![Price]*0.702804, PriceMin = [DocumentRows]![PriceMin]*0.702804, BuhPrice = [DocumentRows]![BuhPrice]*0.702804, PriceReport = [DocumentRows]![PriceReport]*0.702804")
DB.Execute("UPDATE Documents SET DocSum = [Documents]![DocSum]*0.702804")
DB.Execute("UPDATE PriceListes SET Price1 = [PriceListes]![Price1]*0.702804")

[Pljushevij]

Большое спасибо!

[Pljushevij]

Добрый день
Всё получилось, но только в одном прайс-листе. Как поменять в остальных, их у нас четыре?

[dmitry]

DB.Execute("UPDATE PriceListes SET Price2 = [PriceListes]![Price2]*0.702804")
DB.Execute("UPDATE PriceListes SET Price3 = [PriceListes]![Price3]*0.702804")
DB.Execute("UPDATE PriceListes SET Price4 = [PriceListes]![Price4]*0.702804")

[Pljushevij]

И снова -СПАСИБО!