Здравствуйте.
Возникли следующие трудности при формировании «расчета авансовых платежей» (файл «Расчет ПФР.xls», УСНО версия 2009-09-25, OpenOffice 3.1.1 Pro):
1. Лист 6, колонка "Тариф, % / руб.", значение в виде 14.00% не распознается как число -> в колонке "Сумма, руб." нет результата вычисления (стоит "#ЗНАЧЕН!!"). Конечно, можно во всех ячейках заменить разделитель « . » на « , », однако это не совсем удобно.
2. Лист 3. отсутствует код ОКАТО
3. При формировании штрих кодов, ошибка в коде макроса
В результате чего, конечный файл не создается.
Возникли следующие трудности при формировании «расчета авансовых платежей» (файл «Расчет ПФР.xls», УСНО версия 2009-09-25, OpenOffice 3.1.1 Pro):
1. Лист 6, колонка "Тариф, % / руб.", значение в виде 14.00% не распознается как число -> в колонке "Сумма, руб." нет результата вычисления (стоит "#ЗНАЧЕН!!"). Конечно, можно во всех ячейках заменить разделитель « . » на « , », однако это не совсем удобно.
2. Лист 3. отсутствует код ОКАТО
3. При формировании штрих кодов, ошибка в коде макроса
Public Function GetString(hkey As Long, strpath As String, strValue As String) As String
Dim strData As String
Dim lngData As Long, i, hkey1 As Long
Dim rtn As Integer
rtn = RegOpenKey(hkey, strpath, hkey1)
strData = Space(255)
lngData = Len(strData)
If Not rtn = 0 Then
''MsgBox "Не могу найти программу отправки"
Else
rtn = RegQueryValueEx(hkey1, strValue, ByVal 0, 1, ByVal strData, lngData)
->
"синаксическая ошибка Basic, неожиданный символ: ByVal"
Dim strData As String
Dim lngData As Long, i, hkey1 As Long
Dim rtn As Integer
rtn = RegOpenKey(hkey, strpath, hkey1)
strData = Space(255)
lngData = Len(strData)
If Not rtn = 0 Then
''MsgBox "Не могу найти программу отправки"
Else
rtn = RegQueryValueEx(hkey1, strValue, ByVal 0, 1, ByVal strData, lngData)
->
"синаксическая ошибка Basic, неожиданный символ: ByVal"
Комментарий