GedeminWiki - Свежие правки [ru]

Импорт данных в ресторанный фронт офис

SYSDBA — Mon, 06 Sep 2010 12:24:22 GMT

← Предыдущая		Версия 12:24, 6 сентября 2010
(1 промежуточная версия не показана)
Строка 139:		Строка 139:
	End Function		End Function
	</syntaxhighlight>		</syntaxhighlight>
		+
		+	==== Примечание ====
		+
		+	Для корректной работы макроса импорта на компьютере должны быть установлены:
		+
		+	* Формат даты: дд.мм.гггг
		+	* Использование точки в качестве десятичного разделителя

	[[Category:VBScript]]		[[Category:VBScript]]
	[[Category:Импорт/экспорт данных]]		[[Category:Импорт/экспорт данных]]
	[[Category:Учебный курс]]		[[Category:Учебный курс]]
		+	[[Category:Кассовая система]]

Категория:Кассовая система

SYSDBA — Mon, 06 Sep 2010 12:15:23 GMT

Новая страница: «Список документации по кассовой системе на платформе Гедымин.»

Новая страница

Список документации по кассовой системе на платформе Гедымин.

Импорт данных в ресторанный фронт офис

SYSDBA — Mon, 06 Sep 2010 12:12:38 GMT

← Предыдущая		Версия 12:12, 6 сентября 2010
(1 промежуточная версия не показана)
Строка 1:		Строка 1:
-	Рассмотрим задачу импорта списка меню (вместе с группами, блюдами, ценами и т.п.) во фронт-офисную программу систему "~~ГедыминЖ~~ Ресторан". Данные подготовливаются внешней бухгалтерской программой и предоставляются нам ввиде XML файла, пример которого приведен ниже:	+	Рассмотрим задачу импорта списка меню (вместе с группами, блюдами, ценами и т.п.) во фронт-офисную программу систему "Гедымин: Ресторан". Данные подготовливаются внешней бухгалтерской программой и предоставляются нам ввиде XML файла, пример которого приведен ниже:
	<syntaxhighlight lang="XML">		<syntaxhighlight lang="XML">
	<?xml version="1.0" encoding="windows-1251"?>		<?xml version="1.0" encoding="windows-1251"?>
Строка 34:		Строка 34:
	</syntaxhighlight>		</syntaxhighlight>

-	Разбор XML документа мы будем вести с помощью стандартного объекта MSXML.DomDocument. Ниже приведен макрос импорта. Алгоритм работы следующий:	+	Разбор XML документа мы будем вести с помощью стандартного объекта [http://msdn.microsoft.com/en-us/library/aa468547.aspx MSXML.DomDocument]. Ниже приведен макрос импорта. Алгоритм работы следующий:

	* Загрузим файл (имя файла передается в качестве входящего параметра процедуры)		* Загрузим файл (имя файла передается в качестве входящего параметра процедуры)
	* Пробежимся по списку меню в файле и для каждого вызовем функцию pd_imp_ProcessMenu		* Пробежимся по списку меню в файле и для каждого вызовем функцию pd_imp_ProcessMenu
-	* Внутри функции pd_imp_ProcessMenu создадим/найдем меню в базе данных с помощью бизнес-объекта. Организуем цикл по группам блюд. Для каждой вызовем функцию pd_imp_ProcessGroup	+	* Внутри функции pd_imp_ProcessMenu создадим/найдем меню в базе данных с помощью бизнес-объекта.
-	* Внутри функции pd_imp_ProcessGroup создадим/найдем группу в базе данных с помощью бизнес-объекта. Организуем цикл по блюдам. Для каждой вызовем функцию pd_imp_ProcessMeal	+	** Организуем цикл по группам блюд.
		+	** Для каждой вызовем функцию pd_imp_ProcessGroup
		+	* Внутри функции pd_imp_ProcessGroup создадим/найдем группу в базе данных с помощью бизнес-объекта.
		+	** Организуем цикл по блюдам.
		+	** Для каждой вызовем функцию pd_imp_ProcessMeal
	* Внутри функции pd_imp_ProcessMeal создадим/найдем блюдо в базе данных с помощью бизнес-объекта		* Внутри функции pd_imp_ProcessMeal создадим/найдем блюдо в базе данных с помощью бизнес-объекта

VBScript. Функция TimeValue

SYSDBA — Mon, 06 Sep 2010 12:10:10 GMT

← Предыдущая		Версия 12:10, 6 сентября 2010
Строка 6:		Строка 6:

	Если на вход передается дата и время, функция вернет только время.		Если на вход передается дата и время, функция вернет только время.
		+
		+	Вместо использования функции TimeValue для конвертации строки во время можно использовать непосредственное присваивание значения с помощью литерала времени, например:
		+
		+	MyTime = #4:35:17 PM#

	[[Category:VBScript]]		[[Category:VBScript]]
	[[Category:Книга]]		[[Category:Книга]]

VBScript. Функция DateValue

SYSDBA — Mon, 06 Sep 2010 12:08:04 GMT

Пример:

← Предыдущая		Версия 12:08, 6 сентября 2010
Строка 13:		Строка 13:
	Dim MyDate		Dim MyDate
	MyDate = DateValue("10, сентябрь, 2005") ' 10.09.2005		MyDate = DateValue("10, сентябрь, 2005") ' 10.09.2005
		+
		+	Приведенный пример использует функцию DateValue для конвертации строки в дату. Вы также можете использовать литералы даты для присвоения значения переменной, например:
		+
		+	MyDate = #9/11/63#

	[[Category:VBScript]]		[[Category:VBScript]]
	[[Category:Книга]]		[[Category:Книга]]

VBScript. Функция CDate

SYSDBA — Mon, 06 Sep 2010 12:05:52 GMT

Пример:

← Предыдущая		Версия 12:05, 6 сентября 2010
Строка 14:		Строка 14:
	' 31 декабря 2007 года		' 31 декабря 2007 года

-	''Совет: не указывайте даты строками в тексте программы, так как их преобразование может зависеть от региональных установок компьютера. Используйте литералы даты.''	+	''Совет: не указывайте даты строками в тексте программы, так как их преобразование может зависеть от региональных установок компьютера. Используйте литералы даты, например, #10/19/1962#.''

	[[Category:VBScript]]		[[Category:VBScript]]
	[[Category:Книга]]		[[Category:Книга]]

Импорт данных в ресторанный фронт офис

SYSDBA — Mon, 06 Sep 2010 12:03:41 GMT

Новая страница

Рассмотрим задачу импорта списка меню (вместе с группами, блюдами, ценами и т.п.) во фронт-офисную программу систему "ГедыминЖ Ресторан". Данные подготовливаются внешней бухгалтерской программой и предоставляются нам ввиде XML файла, пример которого приведен ниже:
<syntaxhighlight lang="XML">
<?xml version="1.0" encoding="windows-1251"?>



<MENU_LIST>
<MENU name="Обеденное меню" id="1" menu_kind="K" active_from="01.10.2010" active_to="10.10.2010">
<MEAL_GROUP name="Закуски" id="222">
<MEAL name="Caлат летний" id="333" price="7800" />
<MEAL name="Caлат мясной" id="444" price="12800" />
</MEAL_GROUP>

<MEAL_GROUP name="Супы" id="2">
<MEAL name="Суп гороховый" id="555" price="12800" />
</MEAL_GROUP>

<MEAL_GROUP name="Горячие блюда" id="3">
<MEAL name="Бифштекс" id="3344" price="19800" />
</MEAL_GROUP>
</MENU>

<MENU name="Вечернее меню" id="2" menu_kind="K" active_from="01.10.2010" active_to="10.10.2010">
</MENU>
</MENU_LIST>
</syntaxhighlight>

Разбор XML документа мы будем вести с помощью стандартного объекта MSXML.DomDocument. Ниже приведен макрос импорта. Алгоритм работы следующий:

* Загрузим файл (имя файла передается в качестве входящего параметра процедуры)
* Пробежимся по списку меню в файле и для каждого вызовем функцию pd_imp_ProcessMenu
* Внутри функции pd_imp_ProcessMenu создадим/найдем меню в базе данных с помощью бизнес-объекта. Организуем цикл по группам блюд. Для каждой вызовем функцию pd_imp_ProcessGroup
* Внутри функции pd_imp_ProcessGroup создадим/найдем группу в базе данных с помощью бизнес-объекта. Организуем цикл по блюдам. Для каждой вызовем функцию pd_imp_ProcessMeal
* Внутри функции pd_imp_ProcessMeal создадим/найдем блюдо в базе данных с помощью бизнес-объекта

<syntaxhighlight lang="vb">
Option Explicit

Sub pd_ImportMenu(FileName)

Dim oXML
Set oXML = CreateObject("MSXML.DomDocument")
oXML.Async = False

If Not oXML.Load(FileName) Then
MsgBox "Invalid file name"
Exit Sub
End If

oXML.setProperty "SelectionNamespaces", "xmlns:xsl='http://www.w3.org/1999/XSL/Transform'"
oXML.setProperty "SelectionLanguage", "XPath"

Dim Item, Nodes
Set Nodes = oXML.documentElement.selectNodes("//MENU")

For Each Item In Nodes
If Not pd_imp_ProcessMenu(Item) Then _
Exit Sub
Next

MsgBox "Success!"
End Sub

Function pd_imp_ProcessMenu(ByRef MenuNode)
pd_imp_ProcessMenu = False

Dim MenuName, MenuID, MenuKind, ActiveFrom, ActiveTo
MenuName = MenuNode.GetAttribute("name")
MenuID = CLng(MenuNode.GetAttribute("id"))
MenuKind = MenuNode.GetAttribute("menu_kind")
ActiveFrom = DateValue(MenuNode.GetAttribute("active_from"))
ActiveTo = DateValue(MenuNode.GetAttribute("active_to"))

Dim Creator, MenuObj
Set Creator = New TCreator
' Работаем с базой данных
' Находим/создаем объект меню в БД

Dim Groups, Group
Set Groups = MenuNode.SelectNodes("./MEAL_GROUP")

For Each Group in Groups
If Not pd_imp_ProcessGroup(MenuObj, Group) Then _
Exit Function
Next

pd_imp_ProcessMenu = True
End Function

Function pd_imp_ProcessGroup(ByRef MenuObj, ByRef GroupNode)
pd_imp_ProcessGroup = False

Dim GroupName, GroupID
GroupName = GroupNode.GetAttribute("name")
GroupID = CLng(GroupNode.GetAttribute("id"))

Dim Creator, GroupObj
Set Creator = New TCreator
' Работаем с базой данных
' Находим/создаем объект группы блюд в БД

Dim Meals, Meal
Set Meals = GroupNode.SelectNodes("./MEAL")

For Each Meal in Meals
If Not pd_imp_ProcessMeal(MenuObj, GroupObj, Meal) Then _
Exit Function
Next

pd_imp_ProcessGroup = True
End Function

Function pd_imp_ProcessMeal(ByRef MenuObj, ByRef GroupObj, ByRef MealNode)
pd_imp_ProcessMeal = False

Dim MealName, MealID, MealPrice
MealName = MealNode.GetAttribute("name")
MealID = CLng(MealNode.GetAttribute("id"))
MealPrice = CCur(MealNode.GetAttribute("price"))

Dim Creator, MealObj
Set Creator = New TCreator
' Работаем с базой данных
' Находим/создаем объект блюда в БД

pd_imp_ProcessMeal = True
End Function
</syntaxhighlight>

[[Category:VBScript]]
[[Category:Импорт/экспорт данных]]
[[Category:Учебный курс]]

Загрузка курсов валют с сайта НБРБ

SYSDBA — Mon, 06 Sep 2010 11:52:33 GMT

Вариант с "ручным" разбором HTML документа

← Предыдущая		Версия 11:52, 6 сентября 2010
Строка 350:		Строка 350:

	[[Category:Учебный курс]]		[[Category:Учебный курс]]
		+	[[Category:Импорт/экспорт данных]]

Категория:Импорт/экспорт данных

SYSDBA — Mon, 06 Sep 2010 11:51:55 GMT

Новая страница: «Здесь собраны статьи по организации импорта/экспорта данных из внешних систем.»

Новая страница

Здесь собраны статьи по организации импорта/экспорта данных из внешних систем.