Добавление оплаты на один счет или сразу на несколько счетов. Все операции биллинга также доступны с помощью записи XML данных функцией UpdateList, функция UserAddCash позволяет реализовать это проще.
C/C++ -
HRESULT _stdcall UserAddCash([in] enum APIListType List, [in] VARIANT GUIDs, [in] VARIANT AddCash, [in] VARIANT AdminNote);
Delphi -
procedure UserAddCash(List: APIListType; GUIDs: OleVariant; AddCash: OleVariant; AdminNote: OleVariant); safecall;
Параметры
List
Тип списка, перечисление APIListType. Возможные значения:
• | itUserGroup = 2. GUIDs может содержать GUID-ы групп и клиентов, при этом оплата будет добавляться всем клиентам, в том числе входящим в заданные группы. Если в списке присутствует как GUID клиента, так и GUID группы, в которую он входит, то операция добавления оплаты дважды применяться не будет. |
• | itUser = 3. GUIDs может содержать только GUID-ы клиентов. |
• | itAccGroup = 30. GUIDs может содержать только список GUID-ы групповых счетов. |
GUIDs
Список GUID через запятую. Зависит от значения параметра List.
AddCash
Добавляемая сумма, может быть отрицательной.
AdminNote
Примечание администратора, не более 512 символов. Если требуется сделать этот комментарий видимым для клиентов, то добавьте вначале символ "!". Иначе он будет доступен только для администраторов.
Пример использования
Set Srv = CreateObject("TrafInsp.TrafInspAdmin")
AdmID="TIAdmin" 'Логин администратора Traffic Inspector
AdmPass="123456" 'Пароль администратора TIAdmin
UserName = "Пиявкин Иван Васильевич"
CashToAdd = 150
Set Perm = Srv.QueryPermissions()
LogOn = Perm.DoSharedLogon(AdmID, AdmPass, "Script")
itUser = 3
UserID = Srv.ItemGUIDByName(itUser, UserName)
AdminNote = "Script"
Srv.UserAddCash itUser, UserID, CashToAdd, AdminNote
WScript.Echo "На счет клиента " & UserName & " добавлено " & CashToAdd
Текущая страница справки: http://help.smart-soft.ru/doc20/index.html?sdk_useraddcash.htm