Автоматическая выписка счета

Приведенный ниже код позволит выписать счет тому, кто зайдет на страницу вашего магазина. Код содержит в себе элемент ActiveX, и поэтому по умолчанию он работает только c браузером Internet Explorer, а для работы ActiveX в  Netscape Navigator необходим соответствующий plug-in.

Внимание: перенос в строке «VALUE="83ce…» сделан для удобства чтения. При формировании реальной страницы переноса быть не должно!

Данный тэг вставляет на страницу браузера ActiveX-объект, который выглядит как картинка с изображением WM-кассы. В случае, если кто-либо зайдет на страницу вашего магазина и бросит монетку в ActiveX из своего WebMoney Keeper, на его имя будет выписан счет с параметрами, переданными в данном ActiveX.

Эти параметры означают следующее:

nInvoice — целое число, определяющее номер счета, выписываемого ActiveX. Оно необходимо для отслеживания счетов, выписанных вашим магазином, и, в идеале, должно быть уникальным для каждого выписываемого счета (или для каждого товара);

nState — режим ActiveX для статических магазинов должен быть равен 32 (остальные режимы необходимы для динамических магазинов и будут описаны в шаблонах динамических магазинов);

strStoresPurse — кошелек магазина, от имени которого будет выписываться счет покупателю;

Notes — название товара и комментарии к товару;

Amount — цена товара, сумма, на которую покупателю будет выписан счет (число с дробной частью, отделенной точкой);

DateOfCreate — дата счета, большой роли не играет и, в идеале, должна быть равна дате выписки счета (обязателен формат YYYY.MM.DD hh:nn:ss);

Expiration — целое число, определяющее количество дней действия счета;

Protection — целое число, определяющее количество дней протекции сделки по данному счету;

Signature — сертификат счета. Как его сформировать, будет описано ниже.

Для браузеров, не поддерживающих технологию ActiveX, вы можете вставить в HTML следующий тэг (не забудьте, что для Netscape Navigator данный тэг должен быть внутри тега FORM).

Как вы видите, это простое текстовое поле, где перечислены те же параметры счета, что и у ActiveX. Здесь необходимо учитывать следующие особенности:

Dim Keeper ' вызов интерфеса  к этому моменту WebMoney Keeper должен быть запущен
Set Keeper = WScript.CreateObject("WebMoneyRun.Keeper") 
Dim gid, gname, gprice, gdate, shoppurse, gdayhold, gdayvalid
gid = 3
gname = "Утюг" 
gprice = "500.00"
gdate = "1998.11.23 13:33:47"
shoppurse = "Z313292867832"
gdayhold = 0
gdayvalid = 0

Dim gcodestr
gcodestr = "№: " & gid & chr(13) & chr(10) & _
	"товар: " & gname & chr(13) & chr(10) & _
	"сумма: " & gprice & chr(13) & chr(10) & _
	"дата создания: " & gdate & chr(13) & chr(10) & _
	"кошелек магазина: " & shoppurse & chr(13) & chr(10) & _
	"срок протекции: " & gdayhold & chr(13) & chr(10) & _
	"время жизни: " & gdayvalid & chr(13) & chr(10)
'формирование строки на подпись формат строки должен быть именно таким

Dim SIGN_
SIGN_ = ""

Dim Login_
Login_ = "221563405131" 'WM идентификатор 

Dim Pwd_
Pwd_ = "123qwe" ' Пароль 

SIGN_ = Keeper.StringSign(Login_, Pwd_, gcodestr)
'Подпись строки возвращенная строка будет содержать сертификат подписанного счета
MsgBox SIGN_ ' Вывести подпись

' end of the sample