|
импорт налоговых накладный в УПП 8
|
|||
---|---|---|---|
#18+
//Вот такая процедура добавляет накладную без суммы документа 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(); КонецЦикла; ... |
|||
:
Нравится:
Не нравится:
|
|||
15.01.2008, 09:45 |
|
импорт налоговых накладный в УПП 8
|
|||
---|---|---|---|
#18+
вот форма табличной табличной части ... |
|||
:
Нравится:
Не нравится:
|
|||
15.01.2008, 09:48 |
|
импорт налоговых накладный в УПП 8
|
|||
---|---|---|---|
#18+
нужно заполнить табличную часть накладной например с услугами чтобы появилась сумма документа - вобщем нужна помощь в этом месте есть подозрение на этот код док.Движения.Налоговый.Добавить().КоличествоКт=MyRst.Fields("BASE").Value;//например вставим сумму услуги в движение вопрос движением ли заполняется табличная часть?... вопщем хелп ... и кофе заканчивается ... |
|||
:
Нравится:
Не нравится:
|
|||
15.01.2008, 09:55 |
|
импорт налоговых накладный в УПП 8
|
|||
---|---|---|---|
#18+
nickolaysнужно заполнить табличную часть накладной например с услугами чтобы появилась сумма документа - вобщем нужна помощь в этом месте есть подозрение на этот код док.Движения.Налоговый.Добавить().КоличествоКт=MyRst.Fields("BASE").Value;//например вставим сумму услуги в движение вопрос движением ли заполняется табличная часть?... вопщем хелп ... и кофе заканчивается НоваяСтрокаТЧ = док.Услуги.Добавить(); НоваяСтрокаТЧ.Количество = 10; НоваяСтрокаТЧ.Цена = 100; итп ... |
|||
:
Нравится:
Не нравится:
|
|||
15.01.2008, 10:00 |
|
|
start [/forum/topic.php?fid=28&fpage=175&tid=1525055]: |
0ms |
get settings: |
11ms |
get forum list: |
15ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
45ms |
get topic data: |
11ms |
get forum data: |
3ms |
get page messages: |
43ms |
get tp. blocked users: |
1ms |
others: | 259ms |
total: | 394ms |
0 / 0 |