Новости для бухгалтера, бухучет, налогообложение, отчетность, ФСБУ, прослеживаемость и маркировка, 1С:Бухгалтерия

Вход или Регистрация

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[Прочее]

1CV7.7 перенос документов через V77.Application

vovikkvg
читатель
офлайн
Дата регистрации: 16.09.2009
Сообщений: 1
Пост №1
 
16.09.2009 16:14

"перенос документов через V7.CreateObject<br><br>подскажите как сюда привезать следом счёт на основании которого была зделанна реализация???<br><br><br>//******************************************************************************<br>Процедура ВыгрузкаРеализация() <br>V7 = СоздатьОбъект("V77.Application"); <br>Открыта = V7.Initialize(V7.RMTrade, "/d" "E:\1C_77\Bases\RIF\Account\Base_2009\ /nUSER /p1234" , "NO_SPLASH_SHOW");//nbc Если Открыта = 0 Тогда<br> Предупреждение("Не могу открыть конфигурацию бухгалтерии !", 20);<br> Возврат;<br> КонецЕсли; <br> Сообщить("Подключение к базе "+" успешно!"); <br> <br> ДокРеал = V7.CreateObject("Документ.РасходнаяНакладная_Алко");<br> Если ДокРеал.НайтиПоНомеру(НомерДок,ДатаДок) =0 тогда<br> ДокРеал.новый(); <br> ДокРеал.номерДок=НомерДок; <br> ДокРеал.ДатаДок=ДатаДок; <br> Иначе<br> ДокРеал.УдалитьСтроки(); <br> КонецЕсли; <br> <br> Контрагенты1 = V7.CreateObject("Справочник.Контрагенты");<br> Контрагенты1.НайтиПоКоду(СокрЛП(Контрагент.код),0);<br> ДокРеал.Контрагент=Контрагенты1.ТекущийЭлемент(); <br> <br> Контрагенты2 = V7.CreateObject("Справочник.Контрагенты"); <br> Контрагенты2.НайтиПоКоду(Грузополучатель.код,0);<br> ДокРеал.Грузополучатель=Контрагенты2.ТекущийЭлемент(); <br> <br> Контрагенты = V7.CreateObject("Справочник.Контрагенты");<br> Контрагенты.НайтиПоКоду(Грузоотправитель.код,0);<br> ДокРеал.Грузоотправитель=Контрагенты2.ТекущийЭлемент(); <br> <br> Спр2 = V7.CreateObject("Справочник.МестаХранения");<br> Спр2.НайтиПоКоду("70123",0); //МестоХранения.код<br> ДокРеал.Контрагент=Спр2.ТекущийЭлемент(); <br> <br> ДокРеал.ВидОтгрузки = ВидОтгрузки; <br> ДокРеал.Курс = Курс;<br> <br> Спр3 = V7.CreateObject("Справочник.ВариантыРасчетаНалогов");<br> Спр3.НайтиПоКоду(ВариантРасчетаНалогов.код);<br> ДокРеал.ВариантРасчетаНалогов = Спр3.ТекущийЭлемент();<br> <br> Спр4 = V7.CreateObject("Справочник.ТипыЦен");<br> Спр4.НайтиПоКоду(ТипЦен.код,0);<br> ДокРеал.ТипЦен = Спр4.ТекущийЭлемент(); <br> <br> ДокРеал.ВерсияОбъекта = ВерсияОбъекта;<br> ДокРеал.НДСвключатьВСтоимость = НДСвключатьВСтоимость; <br> ДокРеал.Комментарий="выгружено из Эксклюзива";<br> ДокРеал.ПризнакДокумента=V7.перечисление.ПризнакПроводки.Баланс;<br> ВыбратьСтроки();<br> Пока ПолучитьСтроку() = 1 Цикл <br> ДокРеал.новаястрока();<br> Спр1 = V7.CreateObject("Справочник.Номенклатура");<br> Спр1.НайтиПоКоду(товар.код,0);<br> ДокРеал.товар = Спр1.ТекущийЭлемент(); <br> <br>        ДокРеал.Количество =Количество;<br>        ДокРеал.Цена =Цена;<br> ДокРеал.Сумма =Сумма;<br> ДокРеал.НДС =НДС;<br> ДокРеал.Всего =Всего;<br> <br> КонецЦикла;<br> ДокРеал.записать(); <br> сообщить("Документ записан");<br> V7 =0;<br><br>КонецПроцедуры"

РИТ Групп
читатель
офлайн
Дата регистрации: 01.02.2008
Сообщений: 38
Пост №2
 
19.09.2009 15:45

Если в документе РН есть реквизит ДокументОснования, тогда основываясь на этих данных, если нет никакой привязки РН к Счету то никак.<br><br>http://www.rit-group.ru

Показывать по 10 20 40 сообщений

Читают тему:

Быстрый переход
Для технических специалистов
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • МАРКИРОВКА
  • ЕГАИС
  • Учет, налогообложение, автоматизация