pokemon99

Добрый день!
Подскажите как это правильно реализовать
Пишет Несовпадение типов

var
v, d: Variant;
begin
v := pConn;
v := v.AppDispatch;
IDispatch(v)._AddRef;
begin
d := v.EvalExpr('СоздатьОбъект("Документ.ПриходнаяНакладная")');
if VarIsEmpty(d) then
begin
ShowMessage('null');
end;
d.ВыбратьДокументы();
while d.ПолучитьДокумент() > 0 do
begin
ShowMessage(d.ТекущийДокумент());
end;
end;

ошибка начинается от сюда d.ВыбратьДокументы();

(8) Пока нет

Принимаете заявки на доработку?
А что надо доработать

Создавал для себя так как используем Рарус общепит и и приходится анализировать
товары и блюда.
Может кому то пригодится

Добрый День!

подскажите пожалуйста как правильно заполнить таблицу значений

документами!

Проблема заключатся в процедуре Сформировать

Как заполнить табцу "Реквизиты_док" атрибутами выбраних документов

(цикл кокойто корявый)

Процедура Сформировать()
Сообщить(виды_документов);
Реквизиты_док.УдалитьСтроки();
док= СоздатьОбъект("Документ."+виды_документов);
Для т=1 По Метаданные.Документ(виды_документов).РеквизитШапки() Цикл
Док.ВыбратьДокументы("01.01.10","02.02.10");
ч = 1;
Пока док.ПолучитьДокумент() = 1 Цикл
Реквизиты_док.НоваяСтрока(); Реквизиты_док.УстановитьЗначение(ч,Метаданные.Документ(виды_документов).РеквизитШапки(т).Идентификатор,
док.ТекущийДокумент().получитьатрибут(Метаданные.Документ(виды_документов).РеквизитШапки(т).Идентификатор));

Если док.ПометкаУдаления() = 1 Тогда
Реквизиты_док.Пиктограмма = 1;
КонецЕсли;
ч = ч+1;
КонецЦикла;
КонецЦикла;
КонецПроцедуры


Процедура ПриСменеДокумента()
виды_документов=Выбор_док.ПолучитьЗначение(Выбор_док.ТекущаяСтрока());
Реквизиты_док.Очистить();
Реквизиты_док.НоваяКолонка("Пиктограмма","Число",1,0,"",3);
Для т=1 По Метаданные.Документ(виды_документов).РеквизитШапки() Цикл
имя_колонки_тз = Метаданные.Документ(виды_документов).РеквизитШапки(т).Синоним;
Если Метаданные.Документ(виды_документов).РеквизитШапки(т).Синоним = "" Тогда
имя_колонки_тз = Метаданные.Документ(виды_документов).РеквизитШапки(т).Идентификатор
КонецЕсли;
Реквизиты_док.НоваяКолонка(Метаданные.Документ(виды_документов).РеквизитШапки(т).Идентификатор,
Метаданные.Документ(виды_документов).РеквизитШапки(т).Тип
,,, имя_колонки_тз);
КонецЦикла;
Реквизиты_док.ВыводитьПиктограммы(1);
КонецПроцедуры


Для т=1 По Метаданные.Документ() Цикл Выбор_док.ДобавитьЗначение(Метаданные.Документ(т).Идентификатор,
Метаданные.Документ(т).Представление());
КонецЦикла;
Выбор_док.ТекущаяСтрока(1);
виды_документов=Выбор_док.ПолучитьЗначение(Выбор_док.ТекущаяСтрока());

Заранее Благодарен


:?:

Добрый день!
Есть обработка которая заполняет перемещение

NOMENK = CreateObject("Справочник.ТМЦ");
ВПДОК = СоздатьОбъект("Документ.Перемещение");
Партия = 0;
док = ВПДОК.МестоХранения;
ВПДОК.НомерДок = ВПДОК.НомерДок;
ВПДОК.НоваяСтрока();
ВПДОК.ТМЦ = NOMENK.ТекущийЭлемент();
ВПДОК.Счет = NOMENK.ТекущийЭлемент().Счет;
ВПДОК.Стало = NOMENK.ТекущийЭлемент();
ВПДОК.СталоСчет = NOMENK.ТекущийЭлемент().Счет;
ВПДОК.Кво = СтрЗаменить(БД.QUANT,",",".");
глПолучитьПартиюПоУмолчанию(Партия,ВПДОК.ТМЦ);
ВПДОК.Партия = Партия;
ВПДОК.СталоПартия = Партия;
ВПДОК.АвтоВремяТекущее();
ВПДОК.Записать();
Проблема следуйщая
При проведении перемещения в партии стало остаток 0
В чем может быть проблема :?:
Заранее спасибо!