|
Переброска остатков (разные субконто)! | ☑ | ||
|---|---|---|---|---|
|
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) Они валяются на проклабе. Смысл?
|
| Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |