"&Проблема при записи ручной операции...."
26.03.2012
12:06
#1
"&Проблема при записи ручной операции,операции создал программно,все внеслось и все так как надо,но не записывается,я разобрался и вышла другая ошибка,дело в том что,СчетДт нужно выбрать заново(перед записью нужно в поле СчетДт выбрать заново этот же счет тока в ручную),уже в записи тогда ошибок нет,но количество строк большое,как решить проблемму не перебираю все в ручную?"
26.03.2012
12:25
#2
Видимо, программно Вы все же неверно определяете вид субконто. Без кода не понятно, как Вы создаете операции.
26.03.2012
12:26
#3
Это при добавлении второго СубконтоДт,первое СубконтоДт записано нормально,а вот со вторым проблема,<br>НоваяСтрока.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ОсновныеСредства]=Справочники.ОсновныеСредства.НайтиПоНаименованию(СокрЛП(ОснСр)).Ссылка<br>Если ее нет то записывает,а если есть то выдает ошибку =(
26.03.2012
12:27
#4
"Док = Документы.ОперацияБух.СоздатьДокумент();<br> Док.Дата = ДатаВвода;<br> Док.Организация = Организация;<br> Док.СпособЗаполнения = "Вручную";<br> Док.Комментарий = "Перенос остатков с 1С 7.7";<br> <br> Счетчик = 0;<br> //РегХозрасчетный = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();<br> //РегХозрасчетный.Отбор.Регистратор.Значение = Док.Ссылка; <br> Пока БД.Следующая() Цикл<br> <br> Счетчик = Счетчик + 1;<br> //НоваяСтрока = РегХозрасчетный.Добавить();<br> НоваяСтрока = Док.Движения.Хозрасчетный.Добавить();<br> НоваяСтрока.Период = ДатаВвода;<br> НоваяСтрока.СчетДт = ПланыСчетов.Хозрасчетный.РасчетыПоВыделенномуИмуществу.Ссылка;<br> НоваяСтрока.СчетКт = ПланыСчетов.Хозрасчетный.Вспомогательный.Ссылка;<br> <br> НоваяСтрока.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ОбособленныеПодразделения] = Справочники.Организации.НайтиПоНаименованию(Организация).Ссылка;<br> ПровСуб = ПроверкаСубконто(СокрЛП(БД.SUB2));<br> Если СокрЛП(ПровСуб) = "О" Тогда<br> НоваяСтрока.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ОсновныеСредства] = Справочники.ОсновныеСредства.НайтиПоНаименованию(СокрЛП(БД.SUB2)).Ссылка;<br> Иначе<br> НоваяСтрока.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура] = Справочники.Номенклатура.НайтиПоНаименованию(СокрЛП(БД.SUB2)).Ссылка;<br> КонецЕсли; <br> <br> Если Число(БД.SND) = 0 И Число(БД.SKD) = 0 Тогда<br> НоваяСтрока.Сумма = БД.SNK;<br> ИначеЕсли Число(БД.SKK) = 0 И Число(БД.SNK) = 0 Тогда <br> НоваяСтрока.Сумма = БД.SND;<br> КонецЕсли; <br> КонецЦикла;<br> Док.ПолучитьФорму("ФормаДокумента").ОткрытьМодально();<br> Док.Записать();<br> Предупреждение("Данные Загруженны!",10);"
Читают тему
(гостей: 1)