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

25.09.20

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

Файлы

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

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

Загрузка документов в 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~~ 24894 руб.

12.06.2017 148561 867 302

455

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 174069 378 288

404

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 191543 626 537

546

Перенос данных из УТ 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.21.x).

35000 руб.

23.07.2020 58984 284 75

224

SALE! 10%

Перенос данных из УПП 1.3 / КА 1.1 в БП 3. Переносятся документы, справочники и начальные остатки

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

Перенос данных из 1С:Управление производственным предприятием 1.3 в 1С:Бухгалтерия предприятия 3.0 с помощью правил обмена | Можно выполнить переход с УПП на БП 3 или запускать выгрузку данных за выбранный период времени | Переносятся документы, начальные остатки и вся справочная информация | Есть фильтр по организации и множество других параметров выгрузки | Поддерживается несколько сценариев работы: как первичный полный перенос, так и перенос только новых документов | Перенос данных возможен в "1С: Бухгалтерия 3.0" версии ПРОФ, КОРП или базовую | Переход с "1С: УПП1.3" / "1С:КА 1.1" на "1С:БП3.0" с помощью правил конвертации будет максимально комфортным! | Можно бесплатно проверить перенос на вашем сервере!

~~48278~~ 43450 руб.

25.02.2015 175206 319 267

388

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

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

Перенос данных из 1С:Управление производственным предприятием 1.3 в 1С:Бухгалтерия предприятия 3.0 с помощью правил обмена. Переносятся остатки, документы (обороты за период), справочная информация. Правила проверены на конфигурациях УПП 1.3 (1.3.246.x) и БП 3.0 (3.0.175.x). Правила подходят для версии ПРОФ и КОРП.

35000 руб.

15.12.2021 27889 198 58

153

SALE! 10%

Перенос данных из КА 1.1 в КА 2.5. Переносятся документы, остатки и справочники

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

Перенос данных из КА 1.1 в КА 2 | из КА 1.1 в УТ 11 | Воспользовались более 367 компаний! | Переносятся все возможные виды документов, начальных остатков и вся справочная информация из "1С:КА 1.1" в "1С:КА 2.х" / "1С:УТ 11" | Разработан в формате КД 2 (правила конвертации данных) | Фильтр по организациям при выгрузке | Выбор разных алгоритмов выгрузки начальных остатков | Можно проверить перенос до покупки!

~~55778~~ 50200 руб.

04.12.2015 194350 254 351

409

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 39767 112 73

106

Комментарии

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

Свернуть все

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

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

2. ManyakRus 490 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 490 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;
		глСекундыВЧасы(ВремяЗапросНаДоставку, ЧЧ, ММ, СС);
		ТЗ.ВремяЧасы = ЧЧ;
		ТЗ.ВремяМинуты = ММ;
		ТЗ.ВремяСекунды = СС;
		
	КонецЦикла;
	
	Запрос = "";
	МД = "";
	
	Возврат ТЗ;
КонецФункции

Показать