<?php // Полная загрузка сервисных книжек, создан 2024-01-05 12:44:55
global $wpdb2;
global $failure;
global $file_hist;
///// echo '<H2><b>Старт загрузки</b></H2><br>';
$failure=FALSE;
//подключаемся к базе
$wpdb2 = include_once 'connection.php'; ; // подключаемся к MySQL
// если не удалось подключиться, и нужно оборвать PHP с сообщением об этой ошибке
if (!empty($wpdb2->error))
{
///// echo '<H2><b>Ошибка подключения к БД, завершение.</b></H2><br>';
$failure=TRUE;
wp_die( $wpdb2->error );
}
$m_size_file=0;
$m_mtime_file=0;
$m_comment='';
/////проверка существования файлов выгрузки из 1С
////файл выгрузки сервисных книжек
$file_hist = ABSPATH.'/_1c_alfa_exchange/AA_hist.csv';
if (!file_exists($file_hist))
{
///// echo '<H2><b>Файл обмена с сервисными книжками не существует.</b></H2><br>';
$m_comment='Файл обмена с сервисными книжками не существует';
$failure=TRUE;
}
/////инициируем таблицу лога
/////если не существует файла то возврат и ничего не делаем
if ($failure){
///включает защиту от SQL инъекций и данные можно передавать как есть, например: $_GET['foo']
///// echo '<H2><b>Попытка вставить запись в лог таблицу</b></H2><br>';
$insert_fail_zapros=$wpdb2->insert('vin_logs', array('time_stamp'=>time(),'last_mtime_upload'=>$m_mtime_file,'last_size_upload'=>$m_size_file,'comment'=>$m_comment));
wp_die();
///// echo '<H2><b>Возврат в начало.</b></H2><br>';
return $failure;
}
/////проверка лога загрузки, что бы не загружать тоже самое
$masiv_data_file=stat($file_hist); ////передаем в массив свойство файла
$m_size_file=$masiv_data_file[7]; ////получаем размер файла
$m_mtime_file=$masiv_data_file[9]; ////получаем дату модификации файла
////создаем запрос на получение последней удачной загрузки
////выбираем по штампу времени создания (редактирования) файла загрузки AA_hist.csv, $m_mtime_file
///// echo '<H2><b>Размер файла: '.$m_size_file.'</b></H2><br>';
///// echo '<H2><b>Штамп времени файла: '.$m_mtime_file.'</b></H2><br>';
///// echo '<H2><b>Формирование запроса на выборку из лога</b></H2><br>';
////препарируем запрос
$text_zaprosa=$wpdb2->prepare("SELECT * FROM `vin_logs` WHERE `last_mtime_upload` = %s", $m_mtime_file);
$results=$wpdb2->get_results($text_zaprosa);
if ($results)
{ foreach ( $results as $r)
{
////если штамп времени и размер файла совпадают, возврат
if (($r->last_mtime_upload==$m_mtime_file) && ($r->last_size_upload==$m_size_file))
{////echo '<H2><b>Возврат в начало, т.к. найдена запись в логе.</b></H2><br>';
$insert_fail_zapros=$wpdb2->insert('vin_logs', array('time_stamp'=>time(),'last_mtime_upload'=>$m_mtime_file,'last_size_upload'=>$m_size_file,'comment'=>'Загрузка отменена, новых данных нет, т.к. найдена запись в логе.'));
wp_die();
return $failure;
}
}
}
////если данные новые, пишем в лог запись о начале загрузки
/////echo '<H2><b>Попытка вставить запись о начале загрузки в лог таблицу</b></H2><br>';
$insert_fail_zapros=$wpdb2->insert('vin_logs', array('time_stamp'=>time(),'last_mtime_upload'=>0, 'last_size_upload'=>$m_size_file, 'comment'=>'Начало загрузки'));
////очищаем таблицу
$clear_tbl_zap=$wpdb2->prepare("TRUNCATE TABLE %s", 'vin_history');
$clear_tbl_zap_repl=str_replace("'","`",$clear_tbl_zap);
$results=$wpdb2->query($clear_tbl_zap_repl);
///// echo '<H2><b>Очистка таблицы сервисных книжек</b></H2><br>';
if (empty($results))
{
///// echo '<H2><b>Ошибка очистки таблицы книжек, завершение.</b></H2><br>';
//// если очистка не удалась, возврат
$failure=TRUE;
wp_die();
return $failure;
}
////загружаем данные
$table='vin_history'; // Имя таблицы для импорта
//$file_hist Имя CSV файла, откуда берется информация // (путь от корня web-сервера)
$delim=';'; // Разделитель полей в CSV файле
$enclosed='"'; // Кавычки для содержимого полей
$escaped='\
{ВнешняяОбработка.ЗагрузкаДокументов.МодульОбъекта(31)}: Ошибка при вызове метода контекста (Записать): Ошибка доступа к файлу ‘C:Program Files1cv828.2.10.77inUSER.TXT’
Текст.Записать(ИмяБазы+»USER.TXT»);
по причине:
Ошибка доступа к файлу ‘C:Program Files1cv828.2.10.77inUSER.TXT’
Да…, впредь буду осторжным прежде чем запускать чужие разработки без анализа кода
Хоть бы предупреждали чтоль, что в реестр лезете!!!
(1) так обработка только читает реестр.
а после чего происходит ошибка, что-то у меня не воспроизводится?
возможно у вас нет прав на запись к этой папке.
при открытии , win7 , контроль учетных записей включен — поэтому и ошибка
наверно вам будет лучше — что то типа
//ИмяБазы=СокрЛП(КаталогПрограммы());
ИмяБазы=СокрЛП(КаталогВременныхФайлов());
(3) Спасибо, поправил.
Этот кусок кода я скопировал еще из обработки 7.7.
Уважуха те, как раз нужно было писать экспорт доков из самописной 7, в торговлю 8.1. А тут у тя в принципе все что надо, тем более что с 7 я как то особо и не работал. И кстати небольшой косяк у тя. Когда генерится код, у тя там в товарах, где номенклатура стоит:
НовДок.Номенклатура = НайденнаяНоменклатура, должно быть НовСтр.Номенклатура
Сделай плз общий архив, не у всех рейтинг высокий!
(5) Поправил.
(6) У меня стоит скачивание для всех зарегистрированных пользователей.
❓ Не смотрел обработку ещё, сори. Документ операция может перенести? 🙂
(8) А почему бы и нет. Выбираете документ Операция, и вперед. 😉
только не закидывайте тапками,не пойму как выбрать нужную базу 7-ки?
(10) а у вас семерка установлена?
ага,установлена.
(12) А база в семерке, которую хотите выбрать подключена?
да,в семерке база подключена. В список должны автоматически базы выбраться? Документы 8-ки выбираются. А вот базу 7-ки и доки 7-ки не могу выбрать.
(14) Да, список семерочных баз формируется при открытии обработки.
А какая у вас операционная система?
Спасибо за обработку…очень нужная вещичка!!!
:)))
XP профешнл.
(17) Странно, может вы используете Loader1C, или подобную прогу, а не стандартный запуск 1С v7.
Попробуйте в реестре посмотреть ветку HKEY_CURRENT_USERSoftware1C1Cv77.7Titles, здесь находится список баз.
да,я уже туда посмотрела,скопировать оттуда не могу,но вот несколько путей:
С:1zarpl\r
D:zarpl\r
С:ЗиК пробаzarpl\r
то есть в список баз должны выводиться базы ,которые прописаны тут: HKEY_CURRENT_USERSoftware1C1Cv77.7Titles
(19) Именно.
так там-то пути к базам прописаны.Эх,что ж за невезуха ((
(21) Попробуйте запустить обработку на другой машине.
(21) Специально для вас сделал кнопку
+++
спасибо! 🙂 скачала.выбрала нужную базу(не выгрузку ж?)
D:zarpl ,попросил авторизацию доступа,выбрала себя ,появилось сообщ. Ошибка подключенияэ
попробую базу с бухгалтерией подключить.
(25) Даже и не знаю чем вам еще помочь.
Подключился к базе 77 без проблем,составил все соответствия,оибок нет,но по кнопке Выполнить ничего не происходит???:(Что не так?
(27) Может у вас в семерке нет документов выбранного типа за этот период.
о!подождите!!с 5 попытки написал вверху путь к базе д-зарпл и доки все в списке отобразил 🙂 🙂 🙂 🙂
*написала 🙂
Прекрасная идея! Осталось довести её до абсурда в хорошем смысле этого слова: 77-> 8 есть, добавляйте 77-> 77, 8-> 8, 8-> 77 и т.д. Плюс собрать хорошую отлаженную библиотеку модулей документов. И это будет блестящей альтернативой КД, Переносу данных и т.д.
С удачей!
(31) да уж, коллекция библиотек модулей ТиС -> УТ, Бух -> БП, ТиС -> БП и т.д. 😀
А кто Вам сказал, что Вам это придется делать? Народ настругает, Ваше дело собирать …
{ВнешняяОбработка.ВнешняяОбработка1(14)}: Ошибка при вызове конструктора (COMОбъект): Недопустимая строка с указанием класса
БазаОлеТек= Новый COMОбъект(«V77.Application»);
Что может быть?
(34) 1С 7.7 платформа установлена?
{ВнешняяОбработка.ВнешняяОбработка1(14)}: Ошибка при вызове конструктора (COMОбъект): Недопустимая строка с указанием класса
БазаОлеТек= Новый COMОбъект(«V77.Application»);
НайтиПоКоду, не работает, так, как длина разная, применил НайтиПоНаименованию, заработало, в целом очень гуд!
такой вотвопрос:у меня вылезла ошибка по кнопке выполнить:Поле объекта не обнаружено(Номенклатура). Справочника Номенклатура в конфе нету.Можно закоментировать эту строчку?
Те строки ,которые закоментированы, их можно раскомментировать,в зависимости от того какая нужна?
(38) Именно, вы сами ответили на свои вопросы 🙂
еще несколько вопросов: присвоить доку в 8-ке я могу только то,что вывелось в семерочном дереве реквизитов?
НовыйДокV8.Сотрудник = ДокумV7.;
Если есть какие-то поля в документе 8-ки,а в 7-ке их не было,то это уже вручную подправлять?(добавлять в восьмерочный документ)
У меня почему-то сотрудника не переносит ((,хотя период регистрации дока,период отпуска переносит.А сотра не хочет…
НовыйДокV8.Физлицо = ДокумV7.Сотрудник;
в смысле вот так:
НовыйДокV8.Сотрудник = ДокумV7.Сотрудник;
(40) Обработка и не будет переносить элементы справочников, она переносит документы, предполагается что элементы спр уже есть, их нужно только найти, если их нету то нужно создать новый элемент.
например так:
Показать
При загрузке базовой версии 7.7 требует запустить в монопольном режиме
(43) Сожалею, но к базовой версии невозможно подключение с помощью механизма OLE.
Почему все зависает после выбора базы 7.7?
(45) Даже не знаю что предположить. ❓
(45) +1 , таже фигня 🙁
(45) Потому что, после выбора базы появляется 7-ное окошко, где нужно выбрать пользователя и пароль 💡
LTanya, Потому что, после выбора базы появляется 7-ное окошко, где нужно выбрать пользователя и пароль 💡
(45)
причем,когда у меня 1с у меня распахнуто на весь рабочий стол,я этого окошка с выбором пользователя не могу дождаться(как зависает),а когда уменьшу(чтоб не на весь экран было),то быстро появляется.(При этом и другие программы должны быть свернуты)
(52) Скорее всего, окно авторизации прячется за окном 1С v8. Попробуйте комбинацией клавиш Alt+Tab перейти на это окошко.
Респект, видна рука мастера +
Прекрасное подспорье, что сказать умница!
Ну почему у всех работает, а у меня нет? Тоже хочу.
(56) А что не работает?
а как перенести справочники для того чтобы перенос документов осуществился корректно.
(58) Главное чтобы было соответствие справочников по какому-либо реквизиту справочника, например по Коду или Наименованию, если у справочника есть комментарий, то можно в комментарий ввести ссылку элемента справочника с помощью функции ЗначениеВСтрокуВнутр(ЭлементСправочника), а затем из комментария получать нужный элемент, и т.д..
Вот небольшой список обработок выложенных на Инфостарте:
а есть у кого уже сохраненные *.docset файлы?
Есть
(61) а что есть?
Спасибо за обработку, только почему-то выходит Ошибка подключения..
(63) а после каких действий появляется ошибка?
(64) после того, кака ввожу пароль в семерку..
(65) могу предположить, что вы не правильно вводите пароль.
(66) все нормально было с паролем, просто еще позапущенно было много всяиго — все закрыла — заработало) Спасибо — супер) буду изучать
(67) скорее всего вы уже монопольно открыли эту базу
Обработка интересная, подскажите что делаю не так :при переносе например строки выписки банка переносится только сумма остальные данные нет.
(69) из какой в какую конфигурацию загружаете?
какой у вас текст модуля получился?
у меня обработка не работает к сожалению, при переносе загружаются пустые документы, подскажите что я делаю не так. Заранее благодарю.
(все справочники загружены)
(71) хотелось бы видеть текст полученного модуля.
(74) у вас даже не раскомментированны нужные вам строки кода 🙂 , вы просто взяли предложенный по умолчанию текст модуля.
Как я уже писал в описании обработки — «обработка рассчитана на тех, кто хоть как-то программирует в 1С», поэтому советую вам обратиться к программисту 1С.
😉
спасибо, очень помогло 😎
Есть неудобный момент в использовании софтины — не расчитана на много баз 7ки, т.к. сохраняет всё под одним названием в один каталог…..
Можно добавить пару строк в процедуру сохранения, чтобы раскидывал по папкам в соответствии с названием базы (есно в названии не должно быть недопустимых символов)
Если НайтиФайлы(«C:», «Temp1C»).Количество() = 0 Тогда
СоздатьКаталог(«C:Temp1C»);
КонецЕсли;
Струк = Новый Структура(«ПолеСпикаБД,ВидДокументаV7,ВидДокументаV8,НачПериода,КонПериода,ТекстМодуля»);
Струк.Вставить(«НачПериода»,ЭлементыФормы.НачПериода.Значение);
Струк.Вставить(«КонПериода»,ЭлементыФормы.КонПериода.Значение);
Струк.Вставить(«ПолеСпикаБД»,ЭлементыФормы.ПолеСпикаБД.Значение);
Струк.Вставить(«ВидДокументаV7»,ЭлементыФормы.ВидДокументаV7.Значение);
Струк.Вставить(«ВидДокументаV8»,ЭлементыФормы.ВидДокументаV8.Значение);
Струк.Вставить(«ТекстМодуля»,ЭлементыФормы.ТекстМодуля.ПолучитьТекст());
Если НайтиФайлы(«C:Temp1C»,ЭлементыФормы.ПолеСпикаБД.ВыделенныйТекст).Количество() = 0 Тогда
СоздатьКаталог(«C:Temp1C»+ЭлементыФормы.ПолеСпикаБД.ВыделенныйТекст);
КонецЕсли;
ЗначениеВФайл(«C:Temp1C»+ЭлементыФормы.ПолеСпикаБД.ВыделенныйТекст+»»+ВидДокументаV8+».docset»,Струк);
(77) Ок, поправил
(78) ещё кусочек исправленного кода в процедуре КоманднаяПанель2ОткрытьФайл
Показать
Спасибо огромное, просто за готовую реализацию идеи.
Однако у меня такая трабла — ДокумV7.ДатаДок взятый по ОЛЕ не дает нормального _времени_ документа, всегда 00:00:00. С чем может быть связано ? Имею 7.7 релиз 027, 8.2.10.77 всё под SQL.
(80) в семерке вроде бы точное время хранится не в поле Дата…
упс…, со временем разобрался…. спасиба…
спасибо огромное, очень вовремя нашла!
А мне вот так ругается:
{(58,3)}: Процедура или функция с указанным именем не определена (ЗаполнитьТабЗнчДоков)
<<?>>ЗаполнитьТабЗнчДоков(НовыйСпрV8.Ссылка); // добавляет созданые элементы в ТЗ для просмотра
Скачал файл ЗагрузкаДоковИз7.7В8.2.epf и пробую его открывать в УТ 11 1с 8,2. Открывается пустое окошко и все, в нем ничего нету. что не так делаю, подскажите пожалуйста
(85) В 8.2, и тем более в управляемых формах обработка не работает
Есть ли готовый код переноса документа «Бухгалтерская справка» в документ «Операция(Б и НУ)»для БП8 1.6 для данной обработки?
dan7i_sasha@list.ru
У меня не работает перенос из 77 ТиС в Розницу 8 в частности инвентаризация, оприходование и списание что делать не знаю , помогите если можно на почту medik1976@mail.ru
(86) надо бы где-нибудь в названии упомянуть, что загрузка по OLE, а то я надеялся что по ADODB 🙂
А будет ли V8 to V8
У меня почему то ничего не происходит, почему? 😥
Добавил закладку для работы со справочниками
Спасибо, дороботал под свою задачу!!!
Спасибо большое за обработку, очень полезная и нужная оказалась
Классная обработка, но две строчки сделали её на порядок лучше для меня)
А вот и эти строки:
спасибо. пригодилось
вещь на самом деле очень нужная, т.к. многие конторы не ждали «щастья» от 1с и писали свои конфы, для производств и т.п. а теперь приходится все это переписывать, т.к. не надо изобретать велосипед по переносу, а что то есть готовое, то автору респект, т.к. очень помог
мне тоже пригодилась, так что кто ищет, тот всегда найдет :)))))))))
спасибо. пригодилось
Спасибо, посмотрим что получится.
огромное спасибище! выручил! плюсанул бы 10 раз — не меньше 🙂