Лучший подарок для бухгалтера — счёты 8.2 (со звуком)




Принцип обмена данными из 1С с сайтом (на MySQL) и выдачи (публикации) этих данных по запросу.
PHP-Скрипт автоматической загрузки данных из файла данных в формате CSV в базу данных сайта работающего на WordPress.

В продолжение моей темы: 1С:Альфа-Авто Автосалон Автосервис: обмен с сайтом.
С помощью данного скрипта можно загружать в автоматическом режиме, по расписанию, данные сервисных книжек (ремонтов авто) из 1С:Альфа-Авто Автосалон Автосервис.
Также можно загружать данные в ручном режиме: для этого делается скрытая страница, где размещается специальная кнопка.
Комментарии размещенные внутри скрипта разъяснят логику и порядок действия.
Комментарии с "/////    echo" использовались для отладки.
Дополнительно создана таблица для журналирования результатов загрузки данных.
Скрипт включает в себя защиту от SQL инъекций (думаю безопасность соблюдена в полной мере).
В кратце:
1. Пишется скрипт, который запускает этот.
2. Создается регламентное задание в WordPress, по которому запускается скрипт из п.1. 
3. Этот скрипт осуществляет проверку на существование файла обмена в папке.
4. Если данные не новые, загрузка не производится.
5. Если данные новые, очищается таблица сервисных книжек.
6. Загружаются новые данные.

Собственно сам скрипт:

<?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='\

44 Comments

  1. fishca
    Наберите на счетах : 130511 (сегодняшняя дата) — обещаю тебе понравится.

    У тебя в коде:

    Если Строка(ИтогСчет)=»130511″ Тогда
    DynamicWrapper.sndPlaySoundA(КаталогВременныхФайлов()+»3.wav», 1);
    Иначе
    DynamicWrapper.sndPlaySoundA(КаталогВременныхФайлов()+»1.wav», 1);
    КонецЕсли;
    
    

    Ошибка 😉

    Надо сравнивать без учета разделителя триад числа, т.е.

    Если Формат(ИтогСчет,»ЧЦ=15; ЧГ=0″)=»130511″ Тогда
    DynamicWrapper.sndPlaySoundA(КаталогВременныхФайлов()+»3.wav», 1);
    Иначе
    DynamicWrapper.sndPlaySoundA(КаталогВременныхФайлов()+»1.wav», 1);
    КонецЕсли;
    
    
    Reply
  2. Tatitutu

    (1) 😀 ты не поверишь, так и было (этих конфигураторов столько развелось, паралельно и в 7.7 хотел сделать)

    но спасибо 😉

    Reply
  3. fishca

    (2) параллельная работа с 77 и 8х порой приводит «ляпам и багам», но это только поначалу, первые 5 лет тяжело, потом привыкаешь 🙂 😀

    Reply
  4. fishca

    (2) у тебя и в "вечном календаре 8.2" тоже есть "ляпчики":

    Код
    ЭлементыФормы.КнНазад.Заголовок=Строка( Формат(тГод-1,"ЧГ=0"))+" <";
    

    Показать полностью

    Функция Формат и так возвращает строку, ее не надо приводить к строке.

    Вот интересно кстати 1С делает в тупую преобразование строки к строке или нет?

    Reply
  5. Tatitutu

    (4) ничего что уже 8-й пошел 😳 😎

    так я ж, не программист, я так для души можно сказать..

    Reply
  6. fishca
    так я ж, не программист, я так для души можно сказать..

    1. ну если только так 🙂

    ничего что уже 8-й пошел smile:oops: smile8-)

    2. см. пункт 1.

    Reply
  7. Tatitutu

    (6) 8-й (это про конфигуратор, а не год 😀 😀 😀 )

    Reply
  8. fishca

    (7) год кстати тоже уже восьмой пошел, если не изменяет память первая торговля на восьмерке вышла в конце 2003 года

    Reply
  9. detec

    Спасибо, позабавило. Жаль только, что я не умею пользоваться данным инструментом 😀

    Reply
  10. Ish_2

    С чего-то надо начинать. Не робей !

    Reply
  11. sound

    прикольно ага

    Reply
  12. Lara.Builova

    Прелесть!

    Reply
  13. Lara.Builova

    Немножко добавила 😳

    (Наберите число 114033,44)

    Reply
  14. Tatitutu

    (14) Смотрию понравился и освоился метод ))

    а попробуй написать процедуру по нажитию на кнопку

    фишки становились в заданном порядке (хотя бы определенное число)

    Reply
  15. Lara.Builova

    (14) Ну вот как то так 🙂

    Reply
  16. Dnki

    Как меня штука позабавила!

    Давай теперь насчет звука. Я не силен в устройстве Win, но понимаю так, что dynwrapx — это посредник для обращения к ф-им ОС. Чем такой механизм лучше ВК. Разве они не ту же роль играют.

    Reply
  17. Tatitutu
    Dnki пишет:

    Как меня штука позабавила!

    Давай теперь насчет звука. Я не силен в устройстве Win, но понимаю так, что dynwrapx — это посредник для обращения к ф-им ОС. Чем такой механизм лучше ВК. Разве они не ту же роль играют.

    я в этом тоже не большой специалист. Я же написал — задался вопросом , как

    винда быстро и без задержек проигрывает свои звуки — вот и решил ей подсунуть свои звуки.

    «вчера немного «баловался» — как можно «применить»

    — замена или скажем так подмена «стандартных звуков»

    нашел как получить — звуки и события по умолчанию , ну и соответственно ,как заменить :-)))

    такой прикол получается и никто не знает «кто этоооооооооооо сделал ?»

    Reply
  18. gnataly

    Не работает под Win 7. Как лечить?

    Reply
  19. cool.vlad4

    (18) битность какая?

    Reply
  20. cool.vlad4

    (16) ВК и dynwrapx разные вещи, хотя обе используют COM механизм. dynwrapx это враппер для вызова внешних ф-ций, необязательно ОС.

    Reply
  21. gnataly

    (19) 32-битная, не может создать СОМОБъект, каждый раз при открытии регистрирует и всегда успешно… И вручную тоже зарегистрировано…

    Reply
  22. Tatitutu

    (18) в шапке же написано и ссылка дана

    Если появляется ошибка «класс не найден»читаем, думаем, действуем

    Как правило этого достаточно для Windows XP, для ОС Windows Vista и Windows 7 необходимо зарегистрировать компоненту другим способом.

    Шаг 3. В административной записи (права Администратора не в 1С, а на компьютере) выполняем следующие операции:

    Панель управления -> Учетные записи пользователей -> Включение или отключение контроля учетных записей (UAC) -> Отключаем UAC.

    Перезагрузка ПК

    Выполняем действия, описанные в Шаге 2.

    Включаем UAC.

    Еще раз перезагружаем компьютер.

    Reply
  23. cool.vlad4

    (22) попробуй зарегистрировать вот так regsvr32.exe /i dynwrapx.dll

    Reply
  24. Tatitutu

    (23) не взлетит, только как в (21)

    Отключаем UAC (можно не перезагружаться)

    потом как в (23)

    Включаем UAC и наслаждаемся.

    Reply
  25. fishca

    (0) пацан сказал, пацан сделал: управляемые счеты со звуком

    Reply
  26. Dem1urg

    (21) Можно без отключения UAC. Пуск -> Программы -> Стандартные -> Командная строка. Запуск делать правой кнопкой с выбором «Запустить от имени администратора». Далее пишем regsvr32 … и всё замечательно регистрируется. Проверял лично.

    Reply
  27. Анна79

    Забавная штука!!!Мне так понравилась, сидела играла оторваться не могла!!!

    Reply
  28. SanyaGrek

    Класс!!! Автору спасибо! Нашёл себе развлекуху.

    Надо дождаться очередного ляпа бухов. Тогда прикручу им ЭТО! )))) Благо, ждать недолго! )))

    Reply
  29. zavyzka

    Не работает звук.

    Reply
  30. Tatitutu

    (30) zavyzka,

    Не зарегистрировалась компонента (скорее всего не хватает прав)

    прочитайте в шапке

    Если появляется ошибка «класс не найден» — читаем, думаем, действуем
    Reply
  31. tropin_a@mail.ru

    Супер! Бухи будут в восторге!

    Reply
  32. m2d3

    класс!

    Reply
  33. PanKir

    а у нас бухи не пользуются встроенным калькулятором (((

    у них у каждого на столе лежит большая бандура «горожанина» которая умеет всё, что нужно буху…

    Reply
  34. orefkov

    (34)

    Сколько не видел бухов, у всех калькулятор «железный» под рукой. И всегда на нем считают.

    Reply
  35. Tatitutu

    (35) точно, и даже не смотря на калькулятор нажимают клавиши)))

    Reply
  36. orefkov

    (36)

    На прошлой работе у ГБ даже с кнопок уже все надписи стерлось, говорит — «а мне и не надо»

    Reply
  37. PanKir

    (35) orefkov,

    что-то не могу сообразить марки «железного» калькулятора… 🙁

    он круче «горожанина» или та же вариация клавиш?..

    Reply
  38. electronik

    а у нас бухи не пользуются встроенным калькулятором ((( + головой и фантазией

    Reply
  39. search

    ностальгия )))

    Reply
  40. Tatitutu

    Уважаемые и ДОРОГИЕ БУХГАЛТЕРА — С ДНЕМ БУХГАЛТЕРА !

    С ПРАЗДНИКОМ !

    Если бы не вы — где бы были мы ?

    Reply
  41. sikuda

    Идея класс! Скромная реализация в тонком и web-клиентах http://infostart.ru/public/248770/

    Reply
  42. Bukaska

    (42) sikuda, Публикация неактивна

    Reply
  43. Patriot1C

    Жаль вчера (1 апреля ) не нашел эту обработку…

    Reply
  44. Tatitutu

    (44) Patriot1C,

    Вот хотел сделать рассылку )))

    Вместо этого «рекламировал»

    Вот эту — посмотри — гарантирую понравиться

    http://infostart.ru/public/339805/

    Reply

Leave a Comment

Ваш адрес email не будет опубликован. Обязательные поля помечены *