sub ProcessEvent(App)

ok1=App.Doc.FirstChild("TRANSACTIONS.TRANSACTION")
while ok1
birimfiyat = App.Doc.FieldAsFloat("TRANSACTIONS.TRANSACTION.PRI CE")
App.Doc.ModifyData "TRANSACTIONS.TRANSACTION.ITEM_SUPPLIERCODE", birimfiyat
ok1=App.Doc.NextChild

wend
App.Doc.SaveData

end sub

bu kodlama hangi dile ait bilen var mı?