medoc.ua

Код: Виділити все

Попытка
	КодЗаЄДРПОУ = "";
	КодФілії = "";
	ШаблонДокумента = "";
	App = Новый COMОбъект("MEDOC.ZApplication");
	Если Не App.SelectFirm(КодЗаЄДРПОУ, КодФілії) Тогда
		Сообщить("Помилка вибору організації");
		App = Неопределено;
	Иначе
		orgId = App.SeekOrg(КодЗаЄДРПОУ, КодФілії);
		pd = App.GetPrimaryDocs();
		ІдДокумента = "";
		Doc = pd.OpenOrCreateDocument(orgId, ШаблонДокумента, , , ІдДокумента, 1);
		//* шапка документа
		rsMain = Doc.DataSets();
		rsMain.Edit();
		rsMain.Fields.Item("NUM").Value = "9";
		rsMain.Fields.Item("DOCDATE").Value = '20161101';
		//* . . .
		rsMain.Post();
		rsMain = Неопределено;
		//* таблиця документа
		rsTab = Doc.DataSets("TAB1");
		rsTab.Clear(Истина);
		rsTab.Append();
		rsTab.Fields.Item("TAB1_A1").Value = 1;
		//* . . .
		rsTab.Post();
		//* . . .
		rsTab = Неопределено;
		Doc.Save(1);
		Doc.Close();
	КонецЕсли;
Исключение
	App = Неопределено;
	Сообщить(ОписаниеОшибки());
КонецПопытки;