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

25.09.20

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

Скачать файл

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

Наименование		По подписке [?]	Купить один файл
Загрузка документов в 1С 8.3 Бухгалтерия 3.0 из Торговля и Склад 7.7: .rar 117,76Kb 67	67	Скачать (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 143335 821 297

428

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 168368 344 279

380

SALE! 10%

Перенос данных из УТ 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~~ 31500 руб.

23.07.2020 53430 236 73

192

SALE! 10%

Перенос данных из УПП 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.237.x) и БП 3.0 (3.0.166.x). Правила подходят для версии ПРОФ и КОРП.

~~35000~~ 31500 руб.

15.12.2021 24829 174 51

132

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 37250 99 66

Переход и перенос данных из Камин 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 81568 324 253

276

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 172022 307 258

384

Перенос данных из Парус 8 в ЗГУ 3

Зарплата Внешние источники данных Бюджетный учет Перенос данных 1C Системный администратор Программист Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Обработка позволяет перенести кадровую информацию и данные по заработной плате, фактическим удержаниям, НДФЛ, вычетам, страховым взносам из базы Парус 8 учреждений (далее Парус) в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (далее 1С) и начать с ней работать с любого месяца года.

120000 руб.

19.08.2020 25696 25 1

Комментарии

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

Свернуть все

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

Показать