Страница 1 из 1
Пересчёт цен.
Добавлено:
Чт янв 02, 2014 3:39 pm Pljushevij
Добрый день
У нас в Латвии меняется денежная единица - были Ls (латы), стали Euro. Курс 1Eur=0.702804Ls. Как можно пересчитать все цены в базе?
Спасибо заранее
Re: Пересчёт цен.
Добавлено:
Чт янв 02, 2014 4:04 pm 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")
Re: Пересчёт цен.
Добавлено:
Чт янв 02, 2014 6:06 pm Pljushevij
Большое спасибо!
Re: Пересчёт цен.
Добавлено:
Чт янв 09, 2014 12:21 pm Pljushevij
Добрый день
Всё получилось, но только в одном прайс-листе. Как поменять в остальных, их у нас четыре?
Re: Пересчёт цен.
Добавлено:
Чт янв 09, 2014 12:47 pm 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")
Re: Пересчёт цен.
Добавлено:
Чт янв 09, 2014 1:01 pm Pljushevij
И снова -СПАСИБО!
