Операция рестарта сессии биллинга с добавлением оплаты. Производится на один счет или сразу на несколько счетов. См. также функцию добавление оплаты UserAddCash. Все операции биллинга также доступны с помощью записи XML данных функцией UpdateList, функция UserResetBillSess позволяет реализовать это проще.
C/C++ -
HRESULT _stdcall UserResetBillSess([in] enum APIListType List, [in] VARIANT GUIDs, [in] VARIANT AddCash, [in] VARIANT_BOOL KeepBalance, [in] VARIANT AdminNote);
HRESULT _stdcall UserResetBillSess2([in] enum APIListType List, [in] VARIANT GUIDs, [in] VARIANT AddCash, [in] VARIANT_BOOL KeepBalance, [in] VARIANT_BOOL AddDefCash, [in] VARIANT AdminNote);
Delphi -
procedure UserResetBillSess(List: APIListType; GUIDs: OleVariant; AddCash: OleVariant; KeepBalance: WordBool; AdminNote: OleVariant); safecall;
procedure UserResetBillSess2(List: APIListType; GUIDs: OleVariant; AddCash: OleVariant; KeepBalance: WordBool; AddDefCash: WordBool; AdminNote: OleVariant); safecall;
Функция UserResetBillSess2 позволяет сделать рестарт сессии с последующим добавлением на счет оплаты по умолчанию.
Параметры
List
Тип списка, перечисление APIListType. Возможные значения:
• | itUserGroup = 2. GUIDs может содержать GUID-ы групп и клиентов, при этом оплата будет добавляться всем клиентам, в том числе входящим в заданные группы. Если в списке присутствует как GUID клиента, так и GUID группы, в которую он входит, то операция добавления оплаты дважды применяться не будет. |
• | itUser = 3. GUIDs может содержать только GUID-ы клиентов. |
• | itAccGroup = 30. GUIDs может содержать только список GUID-ы групповых счетов. |
GUIDs
Список GUID через запятую. Зависит от значения параметра List.
AddCash
Добавляемая сумма, может быть отрицательной.
KeepBalance
Если true, то будет перенесен остаток денежных средств на счету из предыдущей сессии.
AddDefCash
Только для функции UserResetBillSess2. Если true после рестарта сессии на счет будет добавлена оплата по умолчанию.
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.UserResetBillSess itUser, UserID, CashToAdd, false, AdminNote
WScript.Echo "Произведен рестарт сессии клиента " & UserName & ", на счету " & CashToAdd
Текущая страница справки: http://help.smart-soft.ru/doc20/index.html?sdk_userresetbillsess.htm