merhaba ;

classic asp de kısmen bende yaptım. shipment detail i alıyorum fakat sorun şurada hangi detay hangi sevkiyata ait bunu bilmem için iç içe döngü oluşturup bu sevkiyatla bu ürünler gelmiş diyebilmem gerekir.

aşağıda klasik asp üzerinde yaptığım örnek var. yardımcı olabilirsen sevinirim.

PostUrl="http://www.f2r.gen.tr/sevkiyat.xml"

set objXMLDoc = createObject("MSXML2.DOMDocument")
objXMLDoc.async = False
objXMLDoc.setProperty "ServerHTTPRequest", true
objXMLDoc.load(PostUrl)

Set Root = objXMLDoc.documentElement
Set NodeList = Root.getElementsByTagName("Shipments")
set nodes = objXMLDoc.selectNodes("//*")
for i = 1 to nodes.length -1
set attributes = nodes.item(i).attributes



for j = 0 to attributes.length - 1

response.write( attributes.item(j).nodeName & " - " & attributes.item(j).value & " <br> ")


ShipmentNumber =attributes.item(j).value
InvoiceNumber =attributes.item(j).value
ShipmentDate =attributes.item(j).value
TruckPlate =attributes.item(j).value
ContainerNumber =attributes.item(j).value
DispatchDate =attributes.item(j).value

BdtCode =attributes.item(j).value
ProdcutCode =attributes.item(j).value
Quantity =attributes.item(j).value
OrderReference =attributes.item(j).value
BdtOrderNumber =attributes.item(j).value
CustomerItemReference =attributes.item(j).value
CustomerItemCode =attributes.item(j).value
CustomerOrderReference =attributes.item(j).value
ProductName_Tr =attributes.item(j).value
ProductSpec_Tr =attributes.item(j).value
ProductName_En =attributes.item(j).value
ProductSpec_En =attributes.item(j).value
tarih =date
saat =time
tarihsaat =Now


Set rsz = Server.CreateObject("ADODB.Recordset")
sorz = "Select * from tbl_servis_tirlist limit 1"
rsz.Open sorz,baglan,1,3
rsz.addnew
rsz("ShipmentNumber") =Trim(ShipmentNumber)
rsz("InvoiceNumber") =Trim(InvoiceNumber)
rsz("ShipmentDate") =Trim(UrunHiyerarsisiTanimi)
rsz("TruckPlate") =Trim(TruckPlate)
rsz("ContainerNumber") =Trim(ContainerNumber)
rsz("DispatchDate") =Trim(DispatchDate)
rsz("BdtCode") =Trim(BdtCode)
rsz("ProdcutCode") =Trim(ProdcutCode)
rsz("Quantity") =Trim(Quantity)
rsz("OrderReference") =Trim(OrderReference)
rsz("BdtOrderNumber") =Trim(BdtOrderNumber)
rsz("CustomerItemReference") =Trim(CustomerItemReference)
rsz("CustomerItemCode") =Trim(CustomerItemCode)
rsz("CustomerOrderReference") =Trim(UrunHiyerarsisiTanimi)
rsz("ProductName_Tr") =Trim(ProductName_Tr)
rsz("ProductSpec_Tr") =Trim(ProductSpec_Tr)
rsz("ProductName_En") =Trim(ProductName_En)
rsz("ProductSpec_En") =Trim(ProductSpec_En)
rsz("tarih") =tarih
rsz("saat") =saat
rsz("tarihsaat") =tarihsaat
rsz.update

next

next