Загрузка документов в 1С: 8.3 Бухгалтерия 3.0 из Торговля и Склад 7.7

25.09.20

Обмен с помощью COM-соединения. Можно подключить в "Дополнительные отчёты и обработки"

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование		По подписке [?]	Купить один файл
Загрузка документов в 1С 8.3 Бухгалтерия 3.0 из Торговля и Склад 7.7: .rar 117,76Kb 68	68	Скачать (1 SM)	Купить за 1 850 руб.

Загрузка документов в 1С 8.3 Бухгалтерия 3.0 из Торговля и Склад 7.7
Сделал Санек ICQ 129193052

Обмен с помощью COM-соединения.
Можно подключить в "Дополнительные отчёты и обработки"

Проверено на Бухгалтерия предприятия КОРП, редакция 3.0 (3.0.51.14).

+3 –

См. также

SALE! 10%

ED для ERP 2.5, КА 2.5, УТ 11.5 БП 3.0, Розница, УНФ. Новые

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист Платформа 1С v8.3 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Россия Платные (руб)

Правила в универсальном формате обмена для ERP 2.5, КА 2.5, УТ 11.5, БП 3.0, Розница, УНФ, для последних версий конфигураций. Ссылки на другие конфигурации в описании публикации. Правила совместимы со всеми другими версиями конфигураций новыми и старыми, поддерживающими обмен и синхронизацию в формате EnterpriseData. Не требуется синхронного обновления правил после обновления другой конфигурации, участвующей в обмене. Типовой обмен через планы обмена кнопкой Синхронизация вручную или автоматически по расписанию, или вручную обработкой.

27660 руб.

12.06.2017 145202 844 299

436

Перенос данных из УТ 10.3 в УТ 11.5. Переносятся документы (обороты за период), справочная информация и остатки

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист Платформа 1С v8.3 Оперативный учет 1С:Управление торговлей 10 Россия Управленческий учет Платные (руб)

Перенос данных из 1С:Управление торговлей 10.3 в 1С:Управление торговлей 11.5 с помощью правил обмена. Переносятся остатки, документы (обороты за период), справочная информация. Правила проверены на конфигурациях УТ 10.3 (10.3.88.x) и УТ 11.5 (11.5.20.x), также подходят для релиза 11.5 (11.5.19.x).

35000 руб.

23.07.2020 55434 253 73

207

SALE! 10%

Перенос данных из УПП 1.3 в ERP 2 / УТ 11 / КА 2. Переносятся документы, справочная информация и остатки

Перенос данных 1C Программист Платформа 1С v8.3 1С:Управление производственным предприятием 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Платные (руб)

Перенос документов, начальных остатков и справочной информации из УПП 1.3 в ERP 2 | из УПП 1.3 в УТ 11 | из УПП в КА 2 | Правила конвертации (КД 2) | Более 360 предприятий выполнили переход с использованием этого продукта! | Сэкономьте время - используйте готовое решение для перехода! | Позволяет перенести из УПП 1.3 в ERP / УТ 11 / КА 2 всю возможную информацию | В переносе есть фильтр по организации и множество других опциональных параметров выгрузки | Есть несколько алгоритмов выгрузки остатков на выбор

~~55778~~ 50200 руб.

04.08.2015 170190 354 281

390

SALE! 10%

Перенос данных из ERP 2 / КА 2 / УТ 11 в БП 3.0. Переносятся документы, начальные остатки и справочники

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Программист Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Платные (руб)

Перенос данных из ERP в БП 3 | из КА 2 в БП 3 | из УТ 11 в БП 3 | из ЕРП в БП 3 | Сэкономьте время - используйте готовое решение для перехода! | Перенос разработан в формате КД 2 (правила конвертации данных) | Переносятся все возможные виды документов, начальных остатков и нормативно-справочная информация| Можно опционально выгружать каждую пару "номенклатура+характеристика" как отдельную номенклатуру | Есть выгрузка настроек счетов учета и зарплатных данных из ERP / КА 2 | Можно проверить на вашем сервере перед покупкой

~~55778~~ 50200 руб.

15.04.2019 73893 196 154

135

SALE! 10%

Перенос данных из ERP 2 / КА 2 в ЗУП 3. Переносятся остатки, документы и справочники

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Программист Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x Россия Бухгалтерский учет Управленческий учет Платные (руб)

Перенос данных из ERP в ЗУП 3 | из КА 2 в ЗУП | Готовые правила конвертации данных (КД 2) для переноса остатков, документов с движениями и справочной информации 3 | Есть перенос начальной задолженности по зарплате и начальной штатной расстановки на выбранную дату | Обороты за прошлые годы (данные для расчета среднего) переносятся свернуто в документ "Перенос данных" | Есть фильтр по организациям | Документы за текущий период переносятся сразу с движениями, поэтому не потребуется делать перерасчеты | Перенос можно проверить перед покупкой, обращайтесь!

~~53111~~ 47800 руб.

03.12.2020 38064 106 69

100

SALE! 10%

Перенос данных из БП 3.0 в УТ 11 / КА 2 / ERP 2. Переносятся начальные остатки, документы и справочники

Перенос данных 1C Системный администратор Программист Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Платные (руб)

Правила переноса данных из БП 3.0 в УТ 11 | из БП 3.0 в КА 2 | из БП 3.0 в ERP | Сэкономьте свое время - используйте готовое решение для перехода! | Постоянно работаем над развитием переноса данных | Обновляем на новые релизы 1С | Есть фильтр выгрузки по организациям | Переносятся начальные остатки на выбранную дату, документы за период времени и вся возможная справочная информация | Перенос сделан на технологии КД 2 (правила конвертации данных) Воспользовались более 122 предприятий! |

~~55778~~ 50200 руб.

31.10.2014 238404 105 338

308

Переход и перенос данных из Камин 3.0, 4.0, 5.0 в ЗУП 3.х

Перенос данных 1C Программист Бухгалтер Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и Управление Персоналом 3.x Россия Бухгалтерский учет НДФЛ ФОМС, ЕФС Платные (руб)

Обработки для быстрого перехода с конфигураций «КАМИН:Расчет заработной платы 3.0», «КАМИН:Зарплата для бизнеса 4.0» и «КАМИН:Зарплата 5.0» на конфигурацию «Зарплата и управление персоналом» версии 3.1.

12000 руб.

25.09.2016 82580 342 253

292

ED для УПП, КА 1.1, УТ 10.3

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист Платформа 1С v8.3 Платформа 1C v8.2 1С:Комплексная автоматизация 1.х 1С:Управление торговлей 10 1С:Управление производственным предприятием Россия Платные (руб)

Регулярный обмен, выгрузка, перенос из КА 1.1, УПП 1.3, УТ 10.3 для обмена с любыми конфигурациями, поддерживающими обмен в формате EnterpriseData (КД3) - БП 3.0, ERP, КА 2, УТ 11, Розница 2, УНФ 1.6 и другими. Правила для старых и доработанных конфигураций не требуют синхронного обновления и совместимы с новыми и будущими конфигурациями. Обмен по расписанию, через папку, FTP, почту.

16260 руб.

18.02.2016 188804 612 534

534

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. Daramulun1984 07.08.17 09:42 Сейчас в теме

Выдает ошибку:
{ВнешняяОбработка.ПереносДокументов_Торг77_Бух83.МодульОбъекта(253)}: Ошибка при вызове конструктора (COMОбъект): -2147221005(0x800401F3): Недопустимая строка с указанием класса. Хотелось бы надеяться, что дело в незарегистрированной dll ке, а не в обработке!

2. ManyakRus 489 08.08.17 01:33 Сейчас в теме

(1)
1) установите 1С по-человечески (а не просто папку скопировать)
укажите путь к 1С 7.7 в обработке.
2) запустите 1 раз 1С 7.7 и 1С 8.3 от имени администратора компьютера

3. asnor 01.09.17 10:31 Сейчас в теме

Добрый день!
Ошибка:
Метод объекта не обнаружен(глНайтиТЗДокументы).

Это конфигурация старая?

upd:
в новой конфигурации 77 тоже нет такого в глобальном модуле

4. Vilenskiy 05.09.17 14:27 Сейчас в теме

Доброго времени суток, Александр!
Так что же это за функция "глНайтиТЗДокументы"? Может поделитесь.
Заранее благодарю.

5. signz 06.09.17 14:19 Сейчас в теме

Добрый день, Александр!

1. Прошу сообщить с каким релизом 1С:Торговля и склад 7.7 работает данная обработка?
2. Открыт ли программный код обработки для ее доработки на месте использования с модифицированной 1С:Т+С?

6. Vilenskiy 06.09.17 15:41 Сейчас в теме

Программный код обработки открыт. Обработка запускается из восьмерки и лезет по COM-соединению в семерку.
Только вот незадача: спотыкаемся на функции "глНайтиТЗДокументы". Такой функции нет в типовой ТиС 990 релиз.

7. signz 07.09.17 23:21 Сейчас в теме

Господа!
В отсутствие автора разработки, предлагаю свой вариант функции "глНайтиТЗДокументы" для 7.7. Функция должна быть размещена в Глобальном модуле 1С:Торговли и склада 7.7.

Функция глНайтиТЗДокументы(ФильтрДата1, ФильтрДата2, СЗВидыДокументов77, ФлагТолькоПроведенные, Фирма77) Экспорт
	ТЗ = СоздатьОбъект("ТаблицаЗначений");
	ТЗ.НоваяКолонка("Док");
	ТЗ.НоваяКолонка("ДатаДок");
	ТЗ.НоваяКолонка("НомерДок");
	ТЗ.НоваяКолонка("Проведен");
	ТЗ.НоваяКолонка("Вид");
	
	Док = СоздатьОбъект("Документ");
	Док.ВыбратьПоЗначению(ФильтрДата1, ФильтрДата2, "Фирма", Фирма77);
	Пока Док.ПолучитьДокумент() = 1 Цикл
		
		Если СЗВидыДокументов77.НайтиЗначение(Док.Вид()) = 0 Тогда
			Продолжить;
		КонецЕсли;
		
		Если (Док.Проведен() = 0) И (ФлагТолькоПроведенные = 1) Тогда
			Продолжить;
		КонецЕсли;
		
		ТЗ.НоваяСтрока();
		ТЗ.Док = Док.ТекущийДокумент();
		ТЗ.ДатаДок = Док.ДатаДок;
		ТЗ.НомерДок = Док.НомерДок;
		ТЗ.Проведен = Док.Проведен();
		ТЗ.Вид = Док.Вид();
		
	КонецЦикла;
	
	Возврат ТЗ;
КонецФункции

Показать

8. ManyakRus 489 11.09.17 17:49 Сейчас в теме

//изменяет ЧЧ ММ СС
Процедура глСекундыВЧасы(Знач ЧислоСекунд, ЧЧ, ММ, СС)
	
	ЧЧ = Цел(ЧислоСекунд/3600);
	ММ = Цел((ЧислоСекунд - ЧЧ*3600)/60);
	СС = Цел(ЧислоСекунд % 60);
	
КонецПроцедуры


//возвращает ТЗ
Функция глНайтиТЗДокументы(ФильтрДата1, ФильтрДата2, СЗВидыДокументов = "", ФлагПроведенные = 1, СЗФирмы = "") Экспорт
	
	Запрос = СоздатьОбъект("ODBCRecordset");  
	МД = СоздатьОбъект("MetaDataWork");
		
	ТекстЗапроса = "
		|--глНайтиТЗДокументы()
		|
		|SEL ECT 
	    | 	Журнал.IDDOC [Док $Документ],
		| 	Журнал.IDDOCDEF Док_вид,
	    | 	Журнал.DocNO НомерДок,
	 	| 	NullIf(Cast(Left(Журнал.DATE_TIME_IDDOC, 8) AS datetime), '17530101') [ДатаДок $Дата],
		|	substring(Журнал.Date_Time_IDDoc ,9 ,6) as Время36,
		| 	Журнал.IDDOCDEF [Вид $ВидДокумента],
		|	Журнал.Closed & 1 as Проведен
		|FROM 
		|	_1SJourn Журнал(nolock)
		|
		|WHERE 1=1    
		|  	and Журнал.Date_Time_IDDoc BETWEEN :ФильтрДата1 AND :ФильтрДата2~  
		|   and Журнал.IsMark = 0
		|";  
		
	Если ФлагПроведенные = 1 Тогда
		ТекстЗапроса = ТекстЗапроса + "
		|   and Журнал.Closed & 1 = 1
		|";
	КонецЕсли;	

	Если ПустоеЗначение(СЗФирмы) = 0 Тогда
		Если ТипЗначенияСтр(СЗФирмы)= "СписокЗначений" Тогда
			ТекстЗапроса = ТекстЗапроса + "
			|   and Журнал.$ОбщийРеквизит.Фирма in (select id fr om #Фирмы)
			|";
			Запрос.УложитьСписокОбъектов(СЗФирмы, "#Фирмы"); 
		Иначе
			ТекстЗапроса = ТекстЗапроса + "
			|   and Журнал.$ОбщийРеквизит.Фирма = :Фирма
			|";
			Запрос.УстановитьТекстовыйПараметр("Фирма", СЗФирмы);
		КонецЕсли;
	КонецЕсли;
		
	Если СЗВидыДокументов <> "" Тогда    //санек
		Если ТипЗначенияСтр(СЗВидыДокументов) = "Строка" Тогда  
			ТекстЗапроса = ТекстЗапроса + "
			| and Журнал.IDDocDef = $ВидДокумента." + СокрЛП(СЗВидыДокументов);
		Иначе   
			Запятая = "";
			ТекстЗапроса = ТекстЗапроса + " and Журнал.IDDocDef IN (";
			Для ф=1 по СЗВидыДокументов.РазмерСписка() Цикл
				Вид1 = СЗВидыДокументов.ПолучитьЗначение(ф);
				ТекстЗапроса = ТекстЗапроса + Запятая +"
				| $ВидДокумента." + СокрЛП(Вид1);
				Запятая = ", ";
			КонецЦикла;
			ТекстЗапроса = ТекстЗапроса + " )";
		КонецЕсли;
	КонецЕсли;
	
		
	Запрос.УстановитьТекстовыйПараметр("ФильтрДата1", ФильтрДата1);
	Запрос.УстановитьТекстовыйПараметр("ФильтрДата2", ФильтрДата2);
		
	
	ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
	ТЗ.НоваяКолонка("ВремяЧасы", "Чтсло");
	ТЗ.НоваяКолонка("ВремяМинуты", "Число");
	ТЗ.НоваяКолонка("ВремяСекунды", "Число");
	ТЗ.ВыбратьСтроки();
	Пока ТЗ.ПолучитьСтроку()=1 Цикл
		сВремя36 = ТЗ.Время36;
		ВремяЗапросНаДоставку = МД.СтрокаВЧисло(сВремя36, 36)/10000; //секунд
		ЧЧ = 0;
		ММ = 0;
		СС = 0;
		глСекундыВЧасы(ВремяЗапросНаДоставку, ЧЧ, ММ, СС);
		ТЗ.ВремяЧасы = ЧЧ;
		ТЗ.ВремяМинуты = ММ;
		ТЗ.ВремяСекунды = СС;
		
	КонецЦикла;
	
	Запрос = "";
	МД = "";
	
	Возврат ТЗ;
КонецФункции

Показать