Имя: Пароль:
1C
 
Переброска остатков (разные субконто)!
0 UltraMarinA
 
30.10.06
08:43
Всем привет, помогите плиз, сталкивались ли  с такой проблемой: пытаюсь перекинуть из самописной бухии(база источник)остатки по 01.1 счету в типовую конфигурацию(база приемник). В баэе источнике ОсновныеСредста -это второе субконто этого счета, в базе-приемнике-первое и единственное. Подскажите как быть чтобы субконто перекинулись правильно. Заранее благодарна!!
1 UltraMarinA
 
30.10.06
08:46
ковырять обработку, да?
2 ASV
 
30.10.06
08:47
чем перекидываешь?
3 Скользящий
 
30.10.06
08:50
ExImDocs пробовал?
4 UltraMarinA
 
30.10.06
08:51
обработка называется переброска остатков через ОЛЕ, вот кусок начинки
Процедура Сформировать()
   V77=СоздатьОбъект("V77.Application");

   Если V77.Initialize(V77.RMTrade,"ENTERPRISE /d"+ИмяПути+" /nСлужебный /pслужба","NO_SPLASH_SHOW")=0 Тогда
       Предупреждение("Невозможно перебросить в базу приемник!");
       Возврат;
   КонецЕсли;
   
   V77.EvalExpr("РабочаяДата('"+Строка(ДатаВвода)+"')");    
   Опер=V77.CreateObject("Операция");
   
   ПланСчетовПриемник=V77.CreateObject("Счет.Основной");
   ВспомогательныйСчет=ПолучитьСчет(ПланСчетовПриемник,"00");
   
   Ит=СоздатьОбъект("БухгалтерскиеИтоги");
   
   Для счетчик=1 По СписокСчетов.РазмерСписка() Цикл
       Если СписокСчетов.Пометка(счетчик)=1 Тогда
           СчетИсточник = СписокСчетов.ПолучитьЗначение(счетчик);
           
                   
           СчетПриемник = ПолучитьСчет(ПланСчетовПриемник,КодСчетаПриемника);
           
           Опер.Новая();
           Опер.ДатаОперации=ДатаВвода;
           Опер.Содержание="Перенос остатков на "+ДатаВвода+" по счету "+СчетИсточник.Код;
       
           Вложенность=СчетИсточник.КоличествоСубконто();
           
           Для й=1 По Вложенность Цикл
               Ит.ИспользоватьСубконто(СчетИсточник.ВидСубконто(й));
               ТипСубконто=СчетИсточник.ВидСубконто(й).ТипСубконто();
               Если Лев(ТипСубконто,10)="Справочник" Тогда
                   ИсточникСубконто[й]=V77.CreateObject(ТипСубконто);
               ИначеЕсли Лев(ТипСубконто,12)="Перечисление" Тогда
                   ИсточникСубконто[й]=V77.EvalExpr("Перечисление.ПолучитьАтрибут("+Симв(34)+Сред(ТипСубконто,14)+Симв(34)+")");
               КонецЕсли;
           КонецЦикла;  
           Ит.ВыполнитьЗапрос(ДатаВвода,ДатаВвода,СчетИсточник);
           
           Если Вложенность=1 Тогда
               Ит.ВыбратьСубконто(1);
               Пока Ит.ПолучитьСубконто(1)=1 Цикл
                   ВвестиОстатки();
               КонецЦикла;
           ИначеЕсли Вложенность=2 Тогда
               Ит.ВыбратьСубконто(1);
               Пока Ит.ПолучитьСубконто(1)=1 Цикл
                   Ит.ВыбратьСубконто(2);
                   Пока Ит.ПолучитьСубконто(2)=1 Цикл
                       ВвестиОстатки();
                   КонецЦикла;
               КонецЦикла;
           ИначеЕсли Вложенность=3 Тогда
               Ит.ВыбратьСубконто(1);
               Пока Ит.ПолучитьСубконто(1)=1 Цикл
                   Ит.ВыбратьСубконто(2);
                   Пока Ит.ПолучитьСубконто(2)=1 Цикл
                       Ит.ВыбратьСубконто(3);
                       Пока Ит.ПолучитьСубконто(3)=1 Цикл
                           ВвестиОстатки();
                       КонецЦикла;
                   КонецЦикла;
               КонецЦикла;
           Иначе
               ВвестиОстатки();
           КонецЕсли;
           Если Опер.КоличествоПроводок()>0 Тогда
               
               Опер.Записать();
               Сообщить("Перенесены остатки по счету "+сокрЛП(Строка(СчетИсточник.Код))+" "+СчетИсточник.Наименование);
           КонецЕсли;
       КонецЕсли;
   КонецЦикла;    
V77="";
КонецПроцедуры
5 UltraMarinA
 
30.10.06
08:53
(3)неа, это стандартная обработка? кстати, я девчонка:)
6 Скользящий
 
30.10.06
08:58
(5) не стандартная, но может помочь. Поищи яндексом. (Мне твой пол без разницы. :-))
7 Trigg
 
30.10.06
08:59
(6)
Как это без разницы? А фотку?
8 UltraMarinA
 
30.10.06
09:00
(6)спасибо за совет, а про пол я так, к слову, никто не сомневался что без разницы:)
9 Скользящий
 
30.10.06
09:03
(8) Точно. Фотку давай.
10 ASV
 
30.10.06
09:06
ExImDocs.ert может
   Данная обработка предназначена для переноса документов между разными или одинаковыми
1С конфигурациями, возможно, между разными компонентами 1С, попутно она способна переносить и справочники. Синхронизация  справочников осуществляется только по коду, для справочников, у которых нет кода - по наименованию. Т.о., если Ваши справочники не согласованы по кодам, то можно воспользоваться обработкой "Синхронизатор", размещенной неподалеку.

ни слова про остатки :)
11 Скользящий
 
30.10.06
09:11
(10) в базе источнике можно сделать документ с остатками. Инвентаризация например, или просто операция.
12 UltraMarinA
 
30.10.06
09:12
(10)вот я не пойму как она поможет мне..вот тут нашла стандартную wrap.ert, может здесь мое спасение, не пробовали?
13 UltraMarinA
 
30.10.06
09:15
(11)простите, вопрос, а как его сделать..
14 Jenya
 
30.10.06
09:17
(13) Операций вручную
15 UltraMarinA
 
30.10.06
09:20
(14)хе, вы просто не видели сколько здесь остатков)))...нереально..тыщи)
16 ASV
 
30.10.06
09:22
(15) см (7)
17 UltraMarinA
 
30.10.06
09:23
(9)а здесь где-то размещают свои фото? или каждому интересующемуся надо высылать их на ящик?
18 ASV
 
30.10.06
09:24
slil.ru
19 Скользящий
 
30.10.06
09:26
(14) Ну зачем вручную. Обработкой заполни.
20 Скользящий
 
30.10.06
09:26
(17) У меня в карточке есть мыло. :-)
21 UltraMarinA
 
30.10.06
09:27
(18)и куда это пойдет мое фото, можно узнать...
22 UltraMarinA
 
30.10.06
09:30
(19) какой, есть ли в типовой такая обработка?
23 UltraMarinA
 
30.10.06
09:34
(20)проверяй почту
24 UltraMarinA
 
30.10.06
09:37
(18)че то куда то отправила..
25 Скользящий
 
30.10.06
09:47
(24) Классная фотка. Все на ней так хорошо видно. :-)

Кину тебе обработки по переносу остатков, че нить нужное там точно найдешь. Адрес давай.
26 UltraMarinA
 
30.10.06
09:48
(25)не издевайся, у меня на работе других нет))...Marina985@yandex.ru
Огромное тебе спасибо:)
27 Привет
 
30.10.06
09:56
(25) Выложи для всех.
28 Скользящий
 
30.10.06
09:58
(27) Они валяются на проклабе. Смысл?
Компьютер — устройство, разработанное для ускорения и автоматизации человеческих ошибок.