powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Форумы / [игнор отключен] [закрыт для гостей] / импорт налоговых накладный в УПП 8
4 сообщений из 4, страница 1 из 1
импорт налоговых накладный в УПП 8
    #35061554
nickolays
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
//Вот такая процедура добавляет накладную без суммы документа


MyCon = Новый COMОбъект ("ADODB.Connection");
MyCon.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False");
MyRst = Новый COMОбъект ("ADODB.Recordset");
MyRst.Open ("select * from net_query_nakl", MyCon, 3, 1);
Пока НЕ MyRst.EOF Цикл
okpo= MyRst.Fields("OKPO_").Value;
предпр = Справочники.Контрагенты.НайтиПоРеквизиту("КодПоЕДРПОУ",okpo);
Если предпр = Справочники.Контрагенты.ПустаяСсылка() Тогда
Сообщить("Контрагенты " + MyRst.Fields("OKPO_").Value + " еще нет.");
Иначе
Попытка
док= Документы.НалоговаяНакладная.СоздатьДокумент();
док.АвторасчетНДС=Ложь;
док.УчитыватьНДС=Ложь;
док.ВалютаДокумента=Справочники.Валюты.НайтиПоНаименованию("грн");
док.Дата=MyRst.Fields("DATE_NAKL").Value;
док.ДоговорКонтрагента = Справочники.ДоговорыКонтрагентов.НайтиПоКоду("1");
док.Номер=MyRst.Fields("NPP").Value;
док.СуммаДокумента=MyRst.Fields("BASE").Value;
//СуммаДокумента=вобщем єтот реквезит вычисляемый и определять тут его смысла нет
док.Контрагент=предпр;
док.Организация=Справочники.Организации.НайтиПоКоду("1");
док.Движения.Налоговый.Добавить().ВалютаКт=Справочники.Валюты.НайтиПоНаименованию("грн");
//и где-то здесь нужно заполнить табличную часть накладной например с услугами чтобы появилась сумма документа - вобщем нужна помощь в этом месте
док.Записать();
Исключение;
;
КонецПопытки;
КонецЕсли;
MyRst.MoveNext();
КонецЦикла;
...
Рейтинг: 0 / 0
импорт налоговых накладный в УПП 8
    #35061562
nickolays
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
вот форма табличной табличной части
...
Рейтинг: 0 / 0
импорт налоговых накладный в УПП 8
    #35061577
nickolays
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
нужно заполнить табличную часть накладной например с услугами чтобы появилась сумма документа - вобщем нужна помощь в этом месте

есть подозрение на этот код
док.Движения.Налоговый.Добавить().КоличествоКт=MyRst.Fields("BASE").Value;//например вставим сумму услуги в движение

вопрос движением ли заполняется табличная часть?...
вопщем хелп ... и кофе заканчивается
...
Рейтинг: 0 / 0
импорт налоговых накладный в УПП 8
    #35061598
asp666
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
nickolaysнужно заполнить табличную часть накладной например с услугами чтобы появилась сумма документа - вобщем нужна помощь в этом месте

есть подозрение на этот код
док.Движения.Налоговый.Добавить().КоличествоКт=MyRst.Fields("BASE").Value;//например вставим сумму услуги в движение

вопрос движением ли заполняется табличная часть?...
вопщем хелп ... и кофе заканчивается


НоваяСтрокаТЧ = док.Услуги.Добавить();
НоваяСтрокаТЧ.Количество = 10;
НоваяСтрокаТЧ.Цена = 100;

итп
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / [игнор отключен] [закрыт для гостей] / импорт налоговых накладный в УПП 8
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]