Кассир вводит приходный ордер, нажимает кнопочку "Сохранить и выйти".
Проиграмма проверяет введен ли курс используемой валюты на сегодняшний день и, если он введен,
то пересчитывает сумму прихода в условные единицы, а если нет, то выдает соответствующее сообщение.
Проблема в том, что при нажатии кнопки "Сохранить и выйти" выдается сообщение "Не введены курсы используемых валют",
несмотря на то, что они введены. После этого сообщения программа ПРАВИЛЬНО рассчитывает у.е.
Примечательно также и то, что эта проблема существует ТОЛЬКО на одной машине.
На всех остальных эта же копия программы работает нормально. В чем дело???
Я уже даже офис от отчаяния переустановил - не помогло!
Вот запрос, выполняемый при сохранении:
1.
2.
3.
4.
5.
6.
INSERT INTO cash ( [Реф №], ФИО, Организация, [Код кассы], Потребитель, Наименование, Валюта, Приход, Эквивалент1 )
SELECT [Forms]![КАССА_Приход]![fld_Ref] AS [Реф №], [Forms]![КАССА_Приход]![fld_FIO] AS ФИО,
[Forms]![КАССА_Приход]![lst_Organization] AS Организация, [Forms]![userid]![userid] AS [код кассы],
[Forms]![КАССА_Приход]![lst_Consumer] AS Потребитель, [Forms]![КАССА_Приход]![fld_Name] AS Наименование,
[Forms]![КАССА_Приход]![lst_Currency] AS Валюта, [Forms]![КАССА_Приход]![fld_Sum] AS Приход,
[Forms]![КАССА_Приход]![fld_Sum]*YeRate([Forms]![КАССА_Приход]![lst_currency])/(YeRate(YeType( "1 "))*YePer( "1 "))
AS Эквивалент1;
Соответственно это строка, в которой происходит проверка курса валюты и расчет у.е.
1.
[Forms]![КАССА_Приход]![fld_Sum]*YeRate([Forms]![КАССА_Приход]![lst_currency])/(YeRate(YeType( "1 "))*YePer( "1 "))
AS Эквивалент1
Соответствующая функция:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Public Function YeRate(CurrencyType As String)
On Error GoTo Err
Set rRecSet = CurrentDb.OpenRecordset _
( "select дата, [Курс ЦБ] from currency_rate Where ((([Код валюты]) = '" & CurrencyType & "'))" )
rRecSet.FindFirst "[дата] = date()"
If Not rRecSet.NoMatch Then
YeRate = rRecSet![Курс ЦБ]
rRecSet.Close
Else
MsgBox "Не введены курсы используемых валют"
End If
Exit_:
Exit Function
Err:
MsgBox Err.Description
Resume Exit_
End Function
