Příklad 17 - Vytvoření nové faktury vydané z dodacích listů

dim mApplication
dim mManager
dim mOID
	
set mApplication = CreateObject("AbraOLE.Application")
' Vytvorenie importovacieho manažéra
set mManager = mApplication.CreateDocumentImportManager("@BillOfDelivery", "@IssuedInvoice")
' Odovzdanie vstupných dokladov
mManager.AddInputDocument("1A00000101")
mManager.AddInputDocument("2A00000101")
mManager.AddInputDocument("3A00000101")
' Nastavenie parametrov pre tvorbu dokladu
mManager.SetParam("DocQueue_ID", "2200000101")
' Vytvorenie výstupného dokladu
mManager.Execute
' Úpravy novo vytvoreného dokladu
mManager.OutputDocument.ValueByName("StoreDocQueue_ID") = "3300000101"
' Uloženie výstupného dokladu
mOID = mManager.SaveOutputDocument