Внешний ввод заказов на продажу

Кто-нибудь (хотя есть тут одна мысль кто этот «кто-нибудь» ) делал ввод заказа на продажу не скальскими средствами? Интересно как реализовано и какие тонкости были обнаружены в процессе.

Вижу два варианта — ввод расценок напрямую в базу и создание текста для подкачки (тогда можно сразу и заказы). Какой используете Вы?

Спасибо за ответы

SendX = URL & «/asps/commitorder.asp?WantCommit=1&CustomerName=» & CustName & «&UserName=» & Username & «&Password=» & PWD & «&XMLString=» & XML

Сам кирпич имел строго следующий формат:
‘<ORDER>
‘ <ORDERHEADER>
‘ <INVCUSTOMER></INVCUSTOMER>
‘ <ORDCUSTOMER></ORDCUSTOMER>
‘ <DELCUSTOMER>+</DELCUSTOMER>
‘ <DELADDRESS>
‘ <NAME></NAME>
‘ <STREET1></STREET1>
‘ <STREET2></STREET2>
‘ <STREET3></STREET3>
‘ <STREET4></STREET4>
‘ <TELEPHONENO></TELEPHONENO>
‘ <FAXNO></FAXNO>
‘ <POSTCODE></POSTCODE>
‘ </DELADDRESS>
‘ <EMAIL></EMAIL>
‘ <DELIVERYDATE></DELIVERYDATE>
‘ <WAREHOUSENO></WAREHOUSENO>
‘ </ORDERHEADER>
‘ <ORDERLINES>
‘ <ORDERLINE>
‘ <STOCK></STOCK>
‘ <DESCRIPTION></DESCRIPTION>
‘ <DESCRIPTIONEX></DESCRIPTIONEX>
‘ <DELIVERYDATE></DELIVERYDATE>
‘ <WAREHOUSENO></WAREHOUSENO>
‘ <ORDQUANTITY></ORDQUANTITY>
‘ </ORDERLINE>
‘ </ORDERLINES>
‘</ORDER>

Со стороны сайта внутри страницы /asps/commitorder.asp творилось следующее:
…
‘ Create Order object
Set objOrder = objLogon.SISContext.CreateSISObject(«SIS.Order2»)
…
‘Loop thru all orderlines in order
‘Adds orderline to the order object
Set objOrderLine = objOrder.AddOrderLine(strStockID, CLng(lngQty), «», «»)
…
‘Commits the order to the database
If Not objOrder.CommitOrder Then
…

Ну, и вообще, у объекта SIS.Order был такой метод, который понимал вышеуказанный формат.

LoadXML Method
Loads an order in XML format.

Syntax
variable = object.LoadXML(StringXML)

Return Value

variable
A Boolean value where

True
Load was successful

False
Load failed

Parameters

StringXML
A String containing an order in the following XML format

Example
In this example an order is loaded and the order lines are displayed.

set obContext = session(“obContext”)
set obOrder = obContext.CreateSISObject(“obOrder”)
if obOrder.Load(“0000000342”) = 0 then
for I = 1 to obOrder.Count
response.write(“Order number: “ & obOrder.Number & “<BR>”)
set obOrderLine = obOrder.Item( I )
response.write(“StockID: “ & obOrderLine.StockID & “ , Price: “ & obOrderLine.Price & “<BR>”)
next
set obOrderLine = nothing
end if
set obOrder = nothing
set obContext = nothing

Времена изменились, к ASP добавили букву Х, теперь можно как-то по-другому действовать.