Программы "Простой софт" www.prostoysoft.ru

ВНИМАНИЕ! РЕКЛАМНЫЕ СООБЩЕНИЯ И ГИПЕРССЫЛКИ В ФОРУМЕ ЗАПРЕЩЕНЫ (посты удаляются автоматически часто с пользователем)
Текущее время: 20.11.2019 18:07

Часовой пояс: UTC + 4 часа




Начать новую тему Эта тема закрыта, вы не можете редактировать и оставлять сообщения в ней.  [ Сообщений: 3 ] 
Автор Сообщение
СообщениеДобавлено: 28.02.2016 19:33 
Не в сети

Зарегистрирован: 13.09.2015 23:15
Сообщения: 115
Откуда: Санкт-Петербург
Учёт пациентов 2.539, MS SQL

Здравствуйте.
Есть скрипт, который считает общую стоимость оказанных услуг по приёму из соответствующей подчинённой таблицы, общую стоимость использованных на приёме препаратов из другой подчинённой таблицы и суммирует их, высчитывая общую стоимость приёма.
Код:
Dim sAmountServ
Dim sAmountDr
Dim sAmountTot
sAmountServ = ExecuteSQL("SELECT sum(Amount) FROM tblServRend WHERE DocumentID = <tblDocOf>.<ID>")
If sAmountServ = '' Then
sAmountServ = 0
End If
sAmountDr = ExecuteSQL("SELECT sum(Amount) FROM qdfUsDr WHERE DocumentID = <tblDocOf>.<ID>")
If sAmountDr = '' Then
sAmountDr = 0
End If
sAmountTot = sAmountServ + sAmountDr
ExecuteSQL "UPDATE tblDocOf SET [Amount] = " & sAmountTot & " WHERE ID = <tblDocOf>.<ID>"

Если значения сумм - целые числа, то подсчёт производится; если одна из сумм дробная, то программа выдаёт ошибку преобразования значения varchar в тип данных int:
Вложение:
17.jpg
17.jpg [ 19.46 КБ | Просмотров: 8469 ]


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: 29.02.2016 10:30 
Не в сети

Зарегистрирован: 13.09.2015 23:15
Сообщения: 115
Откуда: Санкт-Петербург
Задачу решил, используя функцию replace.


Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Эта тема закрыта, вы не можете редактировать и оставлять сообщения в ней.  [ Сообщений: 3 ] 

Часовой пояс: UTC + 4 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Создано на основе phpBB® Forum Software © phpBB Group
Русская поддержка phpBB