Dim TrfApp As IApplication2
Dim TrfDoc As Document
 
Set TrfApp = CreateObject("TariffX.Application")
TrfApp.Initialize ""
Set TrfDoc = TrfApp.CreateDocument
 
TrfDoc.Data.Value("LandTrf\Distance\ActualValue") = 1

LandTrf\Distance\ActualValue

put

Dim Doc As RailTariff.Document
Doc = CreateDocument()
' Установка даты расчета
Dim Calc_Date As Date = "2007-12-12"
Doc.OnDate(Calc_Date)
' Установка параметров расчета
Doc.FromStation("930907", 0)
Doc.ToStation("930907", 0)
Doc.Send(1000, 2, 0, 2)
Doc.FreightEx("014003", "", "10030010", 60)
Doc.Wagon(21, 1, 1)
Doc.WagonOwnerLand(27, False)
Doc.DoCalcDistance()
' Страна у нас одна, поэтому просто переходим на первую строку
Doc.Result.AsTable.First()
' Данные через Result доступны только на чтение, поэтому используем Data (LandTrf – узел, на который ссылается Result)
Doc.Data.Value("LandTrf\Distance")=2
' Блокируем автоматическое изменение поля с расстоянием
Doc.Data.Value("LandTrf\Distance\ActualValue")=1
' Расчет тарифа
Doc.DoCalcTariff

' Данные через Result доступны только на чтение, поэтому используем Data (LandTrf – узел, на который ссылается Result)
Doc.Data.Value("LandTrf\Distance")=2
' Блокируем автоматическое изменение поля с расстоянием
Doc.Data.Value("LandTrf\Distance\ActualValue")=1

Exception in thread "main" com.jacob.com.ComFailException: A COM exception has been encountered:
At Invoke of: Value
Description: Недопустимое число параметров.

	at com.jacob.com.Dispatch.invokev(Native Method)
	at com.jacob.com.Dispatch.invokev(Dispatch.java:858)
	at com.jacob.com.Dispatch.get(Dispatch.java:1258)
	at main.Program.main(Program.java:29)

		ActiveXComponent rt = new ActiveXComponent("TariffX.Application");
		Dispatch.call(rt, "Initialize","");
		Dispatch doc = Dispatch.call(rt,"CreateDocument").toDispatch();
		Dispatch.call(doc,"OnDate",new Date());
		Dispatch.call(doc,"fromStation","770005",0);
		Dispatch.call(doc,"toStation","770005",0);
		Dispatch.call(doc,"Send", 1000, 1, 0, 2);
		Dispatch.call(doc,"freightEx", 236038, "", "", 63);
		Dispatch.call(doc,"Wagon", 3, 1, 1, 63);
		Dispatch.call(doc,"WagonOwnerLand", 27, false);
		Dispatch.call(doc,"DoCalcDistance");
		Dispatch result = Dispatch.get(doc,"result").toDispatch();
		Dispatch asTable = Dispatch.get(result,"AsTable").toDispatch();
		Dispatch.call(asTable,"First");

Dispatch.callN(data, "Value", "LandTrf\Distance\ActualValue");
The method callN(Dispatch, String, Object[]) in the type Dispatch is not applicable for the arguments (Dispatch, String, String)

Dispatch.callN(data, "Value", new Object[] {"LandTrf\\Distance\\ActualValue"});

[SRC JS]Dispatch actualValue = Dispatch.callN(data, "Value", new Object[] {"LandTrf\\Distance\\ActualValue"}).toDispatch();

Dispatch actualValue = Dispatch.callN(data, "Value", "LandTrf\\Distance\\ActualValue").toDispatch();

Exception in thread "main" com.jacob.com.ComFailException: VariantChangeType failed
	at com.jacob.com.Variant.toVariantDispatch(Native Method)
	at com.jacob.com.Variant.toDispatch(Variant.java:2003)
	at main.Program.main(Program.java:31)

Dispatch actualValue = Dispatch.callN(data, "Value", "LandTrf\\Distance\\ActualValue").getDispatch();

Exception in thread "main" java.lang.IllegalStateException: getDispatch() only legal on Variants of type VariantDispatch, not 3
	at com.jacob.com.Variant.getDispatch(Variant.java:501)
	at main.Program.main(Program.java:31)

Dispatch.call(data, "Value", "LandTrf\Distance\ActualValue", new Variant(1));

Exception in thread "main" com.jacob.com.ComFailException: A COM exception has been encountered:
At Invoke of: Value
Description: 8002000e / Недопустимое число параметров.

	at com.jacob.com.Dispatch.invokev(Native Method)
	at com.jacob.com.Dispatch.invokev(Dispatch.java:625)
	at com.jacob.com.Dispatch.callN(Dispatch.java:453)
	at com.jacob.com.Dispatch.call(Dispatch.java:541)
	at main.Program.main(Program.java:30)

Dispatch.invokev(data, "Value", Dispatch.Get, new Variant[] {new Variant("LandTrf\\Distance")}, new int[] {100}).toDispatch();
---
Exception in thread "main" com.jacob.com.ComFailException: VariantChangeType failed
	at com.jacob.com.Variant.toVariantDispatch(Native Method)
	at com.jacob.com.Variant.toDispatch(Variant.java:2003)
	at main.Program.main(Program.java:30)

Dispatch.invokev(data, "Value", Dispatch.Put, new Variant[] {new Variant("LandTrf\\Distance"), new Variant(100)}, new int[] {100});

Dispatch.invokev(data, "Value", Dispatch.Put, new Variant[] {new Variant("LandTrf\\Distance"), new Variant(100)}, new int[] {100});

Dispatch.Put