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

dim mApplication
dim mManager
dim mOID
	
set mApplication = CreateObject("AbraOLE.Application")
' Vytvoření importovacího manažera
set mManager = mApplication.CreateDocumentImportManager("@BillOfDelivery", "@IssuedInvoice")
' Předání vstupních dokladů
mManager.AddInputDocument("1A00000101")
mManager.AddInputDocument("2A00000101")
mManager.AddInputDocument("3A00000101")
' Nastavení parametrů pro tvorbu dokladu
mManager.SetParam("DocQueue_ID", "2200000101")
' Vytvoření vystupního dokladu
mManager.Execute
' Úpravy nově vytvořeného dokladu
mManager.OutputDocument.ValueByName("StoreDocQueue_ID") = "3300000101"
' Uložení výstupního dokladu
mOID = mManager.SaveOutputDocument