Имя: Пароль:
1C
1С v8
Загрузить данные в док Бухгалтерская опер (Операция (бухгалтерский и налоговый )
0 anisa8310
 
03.12.12
09:44
1С:Предприятие 8.2 (8.2.16.368)
Бухгалтерия предприятия, редакция 2.0 (2.0.39.6)
Доброе утро!
На забалансовом счете 001 арендованные ОС-есть Сальдо.
Организация закрывается, с 001 отдать обратно нужно арендованные ОС, их чертовски много(. вывела таблицу в файлик excel, воспользовалась обработкой Загрузка из табличного документа- но видимо я не поняла как  работать с этим документом в обработке, табличную часть выбираю , например "Таблица регистров накопления", но поля- "Имя" и "Представление" - что в них представлять то... ведь нужно прописать:сумму, наименование, счет и контрагента.
Кто сталкивался с такой потребностью в 1с, подскажите что можно сделать, или эта обработка не предназначена для таких целей БухОпер или я чего не понимаю? Заранее всех благодарю!
1 pessok
 
03.12.12
09:45
тебе нужен регистр бухгалтерии (хозрасчетный). зачем морозиться с РН?
2 anisa8310
 
03.12.12
09:47
Так его выбирать значит нужно!
3 anisa8310
 
03.12.12
09:48
Но там всего 4 табличных части: 1) Запрашиваемые параметры, 2)табл РС, 3)табл РН, 4)Заполнение движений
4 Spieluhr
 
03.12.12
09:49
(0) нужно напрямую к Движения.Хозрасчетный обращаться
5 pessok
 
03.12.12
09:49
(3) ну вот в заполнение движений
6 Lys
 
03.12.12
09:49
Искать статью на ИТС "Особенности документа "Операция(бух. и нал. учет)"".
Думать...
7 anisa8310
 
03.12.12
09:52
(6) О спасибо! Обязательно прочту! Результат сообщу! Всем отличного настроения и СПАСИБО!
8 anisa8310
 
03.12.12
09:54
(7) и (4)Спасибы)
9 anisa8310
 
03.12.12
09:55
ой, не (7) а (5)!
10 anisa8310
 
03.12.12
10:36
(6)не могу найти статью "Особенности документа "Операция(бухгалтерский и налоговый учет)"" в  ИТС Октябрь2012
11 Lys
 
03.12.12
10:58
(10) Раньше была, точно помню.
Сам попробовал поискать - безрезультатно. Сорри за неверную наводку.

Вкратце суть - у документа ОперацияБух нет реквизитов, хранящих данные проводок, и модуля проведения. При работе с ним пользователь работает непосредственно с набором записей регистра бухгалтерии, отобранным по регистратору (текущему документу ОперацияБух).

Сооответственно, при загрузке данных в ручную операцию - надо работать не с ее реквизитами, а с набором записей регистра бухгалтерии, непосредственно. При этом сам документ ОперацияБух надо создавать только для того, чтобы он был регистратором для данного набора записей.
12 anisa8310
 
03.12.12
11:01
вот как... мда... сейчас буду эксперементировать заполнять движения..но видимо Кнопка "События" там нужно все дописывать сами движения...скорее всего так..
13 anisa8310
 
03.12.12
17:08
Короче пишу обработку....для заполнения бух справки, файл так выглядет:  (TOYOTA CAMRY №12648|588673,8)-знак табуляции "|", всего одномерный массив [2] из двух


Функция ПолучитьПоле(ВходСтрока,НомерПоля, Видразделителя)
   Перем Строка1, Строка2, НашеПоле;
   Перем Позиция1, Позиция2;
   Перем ДлинаРазд, ЧислоРазд;
   ДлинаРазд = СтрДлина(Видразделителя);
   ЧислоРазд = СтрЧислоВхождений(ВходСтрока,Видразделителя);
   Если (ЧислоРазд+1) < НомерПоля Тогда
       Сообщить("Номер поля за пределами строки!!!", СтатусСообщения.ОченьВажное);
       Возврат "ЭтоФигня"
   КонецЕсли;
   Колполей = 0;
   Строка1 = ВходСтрока;
   Для ии = 1 По ЧислоРазд Цикл
       Позиция1 = Найти(Строка1, Видразделителя);
       НашеПоле = Лев(Строка1, Позиция1-1);
       Если ии = НомерПоля Тогда
           Возврат НашеПоле;
       ИначеЕсли ии = ЧислоРазд Тогда
           НашеПоле = Сред(Строка1, Позиция1 + ДлинаРазд);
           Возврат НашеПоле;
       Иначе
           Строка1 = Сред(Строка1, Позиция1 + ДлинаРазд);
       КонецЕсли;
   КонецЦикла;
КонецФункции


Процедура КнопкаВыполнитьНажатие(Кнопка)
       

   Док = ПолучитьCOMОбъект(Путь);
   счСтроки = 1;
Пока Док.Sheets(1).Cells(счСтроки,1).Value <>Неопределено Цикл
   Стр=Док.Sheets(1).Cells(счСтроки,1).Value;    
   //////////////Формирование массива услуги    
   Массив = Новый Массив(2);
          Для Сч=1 По 2 Цикл
           Позиция = Найти(Стр, "|");
           Массив.Вставить(сч,Сред(Стр, 1, Позиция-1));
           стр = Сред(Стр, Позиция + 1);
          КонецЦикла;
       
   НовыйДокумент= Документы.ОперацияБух.СоздатьДокумент();
       //НовыйДокумент.Организация = Организация ;
 СчКт      = ПланыСчетов.Хозрасчетный.АрендованныеОсновныеСредства.Код;
           СубконтоКт1= Справочники.Контрагенты.НайтиПоКоду("000003173");
           СубконтоКт2= Справочники.ОсновныеСредства.НайтиПоНаименованию(СтрЗаменить(Массив[1],Символ(34),""));
Сумма     = Массив[2];      
КонецЦикла;
НовыйДокумент.Записать();
счСтроки = счСтроки + 1;
Док.Application.Quit();

КонецПроцедуры


Процедура ВыбФайлНачалоВыбора(Элемент, СтандартнаяОбработка)
   // Вставить содержимое обработчика.
   ДиалогВыбораФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
   ДиалогВыбораФайла.Фильтр                  = "Текстовые файлы (*.csv)|*.csv";
   ДиалогВыбораФайла.Заголовок               = "Выберите файл для загрузки данных";
   ДиалогВыбораФайла.ПредварительныйПросмотр = Ложь;
   ДиалогВыбораФайла.Расширение              ="csv";
   ДиалогВыбораФайла.ИндексФильтра           = 0;
   ДиалогВыбораФайла.ПолноеИмяФайла          = Путь;
   Если ДиалогВыбораФайла.Выбрать() Тогда
       Путь = ДиалогВыбораФайла.ПолноеИмяФайла;
   КонецЕсли;

КонецПроцедуры


Не работает...блин