PAT формы
Модераторы: m0p3e, edward_K, Модераторы
-
- Сообщения: 13
- Зарегистрирован: 29 мар 2005, 17:49
- Контактная информация:
PAT формы
кто нибудь знает возможно при выгрузке пат формы в ексель сделать так чтобы разделителем была не точка а запятая?
-
- Постоянный гость
- Сообщения: 76
- Зарегистрирован: 29 мар 2005, 17:49
Re: PAT формы
Создание отчетов в MS Excel базируется на знании пользователем этого Windows–приложения, определенном опыте работы с ним, на знании и исполь-зовании Языка проектирования бухгалтерской отчетности.
Excel–документ должен быть создан с помощью шаблона PAT – отчет, который поставляется вместе с системой Галактика.
Файл–шаблон pat.xlt при установке программы рекомендуется скопировать в папку “Шаблоны” MS Excel.
Единственно описанная функция в документации GetPATVar. Есть несколько недокументированных, но нормально работающих.
В данном случае GetPATVarNum.
Пример использования - =GetPATVarNum("dox1";"&70151")
Excel–документ должен быть создан с помощью шаблона PAT – отчет, который поставляется вместе с системой Галактика.
Файл–шаблон pat.xlt при установке программы рекомендуется скопировать в папку “Шаблоны” MS Excel.
Единственно описанная функция в документации GetPATVar. Есть несколько недокументированных, но нормально работающих.
В данном случае GetPATVarNum.
Пример использования - =GetPATVarNum("dox1";"&70151")
Re: PAT формы
Посмотри в макросах формы
Function GetPATVar(ByVal sPATId As String, ByVal sPATVariable As String) As Double
' GetPATVar = GetPATVarCol(sPATId, sPATVariable, iValueCol) As Double
stemp = GetPATVarCol(sPATId, sPATVariable, iCurrencyValueCol)
' stemp = Replace(stemp, ".", ",", 1, -1, vbTextCompare)
' stemp = Replace(stemp, "'", ",", 1, -1, vbTextCompare)
GetPATVar = Val(stemp)
' GetPATVar = 0
' stemp
' Selection.NumberFormat = "#,##0.00"
End Function 'GetPATVar
Function GetPATVar(ByVal sPATId As String, ByVal sPATVariable As String) As Double
' GetPATVar = GetPATVarCol(sPATId, sPATVariable, iValueCol) As Double
stemp = GetPATVarCol(sPATId, sPATVariable, iCurrencyValueCol)
' stemp = Replace(stemp, ".", ",", 1, -1, vbTextCompare)
' stemp = Replace(stemp, "'", ",", 1, -1, vbTextCompare)
GetPATVar = Val(stemp)
' GetPATVar = 0
' stemp
' Selection.NumberFormat = "#,##0.00"
End Function 'GetPATVar
Re: PAT формы
А вообще Galpro уже это описывал на galpro.itpark.ru