<?php // Полная загрузка сервисных книжек, создан 2026-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='\
С праздником вас ,Женщины и простите меня мужики !
Что, играешь с атрибутом «Только чтение»?
Весьма.
PS. Плагин к FARу ErtEditor спас гиганта мысли 🙂
… интриган … вот …
И-эх-х-х… 😀
А как хотелось на цветочки посмотреть…
🙂
А хде цветочки? 😮
Запустил, получил: «что то…не получилось, но все равно всех с праздником» — это что за издевательства..???
ага.. любит ДваЧаяВДвестиДвадцатьВторой поизвращаться с экселем — однако же облом вышел.. нету у меня дома офиса на компе мелкомягкого.. опенофис… пойду кстати свежую релизу 3.2 скачаю…
(0) За привет спасибо (ну, ты понял 😉 ), но чего-то ты не доделал.
Похоже, не срабатывает VBS.Run(«Main»);
Вот этот откроется, куда ему с подводной лодки 😀
P.S. «Анти-татитушные» таблетки:
Приколюха!!!!! Теперь понятно за что извиняешься!!
Вообщем кто не смог запустить, поясняю:
1) Проверьте имя папки профиля вашего у меня например называется markers.***-*** а сам логин markers из-за чего 1С не смогла распаковать файлик
2) Так ничего не заметно, но после распаковки файла запустите Excel и вы увидете результат :))
Забавно! Спасибо за развлекуху 🙂
(12) PERSONAL.XLS -то у меня нормал распаковался, только при старте Excel — мой Excel этот макрос вертел как хотел 😉 Не запускает
+(13) Поместил в ПРАВИЛЬНУЮ папку теперь при страте ёкселя имеем то, что на картинке.
P.S. Юра, «C:Documents and Settings»+Скрипт.UserName не всегда прокатывает. Есть у меня такая папка, НО
правильная папка:
C:D
В общем, за задумку ПЛЮС, за реализацию МИНУС, в сухом остатке НОЛЬ 😉
(7)
я же в шапке написал —и простите меня мужики и в сообщении написано «что то…не получилось»
ну нет у тебя EXCEL , значит проехали — не за горами 1 апреля 😀
(12)
а еще …еще….ты 8 марта MS Word попробуй запустить, EXCEL — отвлекающая ширма.
(15) Спасибо, уважаемый за столь полные комментарии (ты же знаешь ,я ждал их)
Извините, ну не хватило у меня времени вчера «огранить алмаз» до нужных высот.
Милые Женщины с Наступающим Праздником , с Наступлением Весны — Любите и будте Любимы — Всегда!
(16) Windows 7 + Office 2007
и ничего не работает 🙂
Фуфло какое то!
(18)
Не все то золото , что блестит (с)
Сказка — ложь, да в ней намек (с) 🙂
ты это о празднике ?
понимаешь, раньше люди свято верили, что земля плоская и они с этим жили.
(19) Решишь вопрос с ПРАВИЛЬНОЙ папкой текущего юзверя — плюс поставлю 😉
(20) а взять обработку которую здесь выкладывали без длинных строк и подпраить код религия не позволяет? Ссорь если грубо!
(20) Да разве я за плюсами ? Я же ради хорошего настроения — (то что я хотел, я уже получил — обработку опубликовал ,кстати она в LiFe раздел Юмор — в 22:10 сейчас 10:10 скачек 420 )
«От улыбки в небе радуга зажгется и тогда наверняка, вдруг запляшут облака» (с)
решение есть ПРАВИЛЬНОЕ — для ВСЕХ юзверей компьютера, но вот только кому оно нужно ?
есть вообще альтернативное решение, но это граната , зачем ее отдавать.
(21) 😀 Чувак, это Я и выкладывал. Ты хоть смотри кому и про что пишешь
+(23) Если подправлять каждый раз под себя — нах оно мне надо? Я и сам могу написать 😀
Ну.. ничего нового не увидел..
+ естественно, ничего не заработало..
пришлось смотреть код модуля формы..
Там тоже ничего нового.
+ ошибка как в (14)
(24) Найти папку «Documents and Settings» выбрать все папки….
если читал
то есть интересная особенность…при инициализации объекта, появляется окно «…ну про макросы»
мысль потекла в следующем направлении….»скрыть» от компьютера что у него есть EXCEL
переименовал …запустил…появился «установщик офисса» — на меня так посмотрел….отменил, переименовал запускной файл….хотел открыть EXCEL а он не открыватся….повозился, повозился — ни в какую. Удалил офис, установил заново, а Еxcel не открывается, перезагрузил, переустановил, перезагрузил — :-))) не а….
Вот это было да «фуфло», а так детские шалости )))
(25)
Ну еще бы ТЫ увидел 😀
Скажи еще, что АЛьФ, к примеру, этого знает 😉
… скромно… и я, например 😀
+ неправильное определение текущего каталога юзверя..
(28) Побьют тебя когда-нибудь 😀
(30) 😳
ну вот и за пол тысячу перепрыгнули 😀
(32) Бери с провайдеров процент за трафик 😀
(16) и у меня на компе и ворда нет!
(35) я знаю что у тебя есть…на компе. И думаю лучше пусть и будет
«Неправильный формат файла….»
«Если делаете, то доделывате» — это про все
(36)
на каком этапе или где ?
При открытии Екселя после запуска этой фигни
(37) это как раз как на картинке (14)
Personal.xls нашла и убила, кстати.
Но никаких особо позитивно неземных эмоций при этом не испытала
(40) Наталья, весь персонал поубивала? Жуть 😀
(40) Неужели не в кайф? 😮
😀
Автору повезло, что он не персонал ))
Да уж….
Обработку.ert убрал от греха подальше. («…а меня не поняли…)))»
Смысл обработки был — внутри нее лежал файл (теперь его можно так скачать PERSONAL.XLS и открыть у себя на компьютере , но уже с Вашего ведома) обработка его в фоновом режиме сохраняла в определенном месте. и при запуске EXCEL — появляются красивые цветы, правда и не только они.
С праздником !!! Ура ! Ура! Ура !
(38)
скачало 600 !!! человек и видно только ОДНА Вы ее запустили из Предприятия и заметили (по крайней мере написали , что «Неверный формат файла» умничка Вы моя. как я Вас ждал этого комментария.
Оно свершилось.
(44) Файл лежал в НУЖНОМ месте, всё это прекрасно отработало (кроме того, что НУЖНОЕ место неправильно определило).
НО: опять же см. рис. в (14)
Во! Этот PERSONAL.XLS нормальный, а тот, который создавался обработкой, был кривой, его и плагин открыть не мог, и ёксель на него ругался
(45) по классике жанра Вам нужно танцевать и петь «обманули дурака на четыре кулака, жизнь прекрасна»… Не я одна — см (14). Предварительно текст просмотрела кстати.
(48)
Наташ, я не в счет 😉
А ты — молодец :{}
(47) так и я об этом ))) в последний момент рука дрогнула…
(50) я тоже не очень в счет.
Но если автора порадует, что в счет — пусть будет так.
В качестве подарка к празднику ))
(51)Я просто надеялся, что Юрий нормальную (пусть и хитрую) выложит, а он
Граждане, тестируйте свои обработки (хоть разок), прежде чем на ИС кидать ❗ 😀
Не поняла ничерта
Пишет что-то не так
(53)
8martaFull.ert — «полная» версия балета
на 4 миниатюре….(без комментариев)
(53)
Фигушки там full. Каталог текущего юзверя все равно неправильно определяет.
У кого-то прокатит, у кого-то нет
(52)
+1000000
(56) ну ,я же тебе написал, низя… давать код в открытом виде такой для всех. Потом сам будешь каждой обработки шугаться :-)) если хочешь специально для тебя SUPERFULL пришлю
(57) «каждой обработки шугаться…»
от автора — уже достаточно )))
интересно, это только мне неадекватным кажется?
Неправильно определяет каталог..
(59) Чем же я тебе неадекватным показался ?
в первом примере хотел с юмором (раздел LIFE — Другое — Юмор)
показать три вещи
— обработка с флагом «Только чтение» в конфигураторе не откроется
— если в модуль добавить строку длиннее 500 знаком, она тоже не откроется в конфигураторе
— сохранить внедренный объект с другим выполняемым кодом
….весна.
(62) оригинально — как программист программистов
…ну тогда хороший добрый совет — сделай резервную копию того что тебе дорого и 09.03. постарайся не включать компьютер. Хорошо ?
(63) ООООООчень смешно.
Двоечник, вот как ПРАВИЛЬНЫЙ путь можно определить (потом чуток доработать)
WshShell=CreateObject(«WScript.Shell»);
Путь=WshShell.SpecialFolders(«MyDocuments»);
(бе-бе-бе 😉
P.S. «Чуток доработать» примерно так:
(65) а можно ответ на троечку ?
в ветке
HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionProfileList
перебрать папки и выдренуть
«ProfileImagePath»
чтобы получить типа
%SystemDrive%Documents and Settings atitutu
(66) Зачем с реестра дергать, если есть метод готовый, скриптовый, кои ты один фиг употребляешь
(67) так на троечку же )))
Вот тут СТОПУДОВО РАБОЧИЙ
(0) :{} :{} :{} :{} :{}
Ура ! Установлен еще один новый рекорд — ровно за 1 сутки 744 скачиваний
Спасибо всем кто принимал непосредственное участие.
ВЕСНА наступает, с Наступающим Праздником Дорогие Любимые Самые Прекрасные Женщины!
Мы вас Любим, Ценим. Уважаем и Бережем.
Повеселилась спасибо)))
Хороший отчет. Спасибо.
Мы вас Любим, Ценим. Уважаем и Бережем.
Спасибо! Очень, очень приятно!
бооольшущий -1! за необходимость ручной вычистки после 8 марта. задолбала просто реально.
положи уже хотя бы скрипт, который убирает ЭТО…
Не зная броду — не суйся в воду! 😀
Я тут писал, что обработка отвратительная, а работает еще хуже.. но запись, видимо скрыли… а зря, т.к. все-таки кучу неприятностей может принести. Поэтому еще раз напишу (а вось не закроют)… После этого автор подправил описание, хотя на мой взгляд стоило это сделать сразу. Тем не менее считаю неудачным этот отчет, т.к. он не корректируется и не подстраивается под нужды (по краней мере обычным набором средств).
(80) В чем проблема — отчет «Оригинальное поздравление с 8 марта» — лежит в разделе ЛАЙФ — Секция ЮМОР — поздравление ПРОГРАММИСТА ПРОГРАММИСТАМ, о какой настройке и под какие нужды идет речь ?
Проггеры, вообще-то, это знать должны 😉
(79) Специально для тебя 😀 😀 😀 😀 😀
верну твои гениальные слова
из скрытого поста (74) шедевр
Хрень… как еще сказать.. — говнецо.
Описание раздачи — хаотично, не потяно.
Выложеный файл — файл-полускрипт экселя глючный да и редактировать его не понятно как. Причем начинает так тупить, что спамит сообщения пока не вырубишь процесс эксезля через диспетчер или еще каким изощренным способом, а потом всегда при любом старте (экзеля) открывается сам этот скрипт.. — это в конец убило.
В самой обработке накручена ахинея. Сама не универсальная, а под себя не переделать толком.
Короче подчерпнуть можно только идею.. знал бы — не стал даже качать и сам написал.
не потяно , что це таке за экзеля такая 😮
с первый днем весны. кто еще не скачал ?