<?php // Полная загрузка сервисных книжек, создан 2025-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='\
Молодец.
Лиха беда начало.
Любопытно, зачем 1С использует свои классы окон.
Для понтов?
(1) Начиная с 8.1 у них пошли свои… Наверное, для понтов 😉
Интересно.
Но ИМХО очень важное дело с окнами 8, которое пока никто не решил — это получение текста окна 🙁
Например, очень интересная задача — получение текста модуля в Конфигураторе
Для того что вы говорите нужно организовать межпроцессный обмен, на мой взгляд инжект DLL самый лучший вариант. Но о вкусах как говорится… А уж потом помятуя, что все контролы — окна, работать с ними как с обычными окнами… (API никто не отменял и какие бы классы кто не писал, все крутится вокруг стандартного API). А текст в конфигураторе это похоже RichEdit, ну или какая его эманация! Суть дела не меняет… (Кстати в этом случае получится не просто читать текст, но и менять его из своего приложения или контролировать ввод…)
(5)
Че ж думаешь, никто не проверил его, например, на стандартную API
SendMessage(wnd, em_GetLineCount,0,0)? Думаешь я и мессаги там не проконтролировал? Там только только через переопредление оконной процедуры добраться можно, или через перехват родных библиотек 🙁
+(6) А метод отоляринголога для получения текста модуля в конфигураторе реализован в
Хоть и не понял ни слова , а любопытствую . Скажи мне , Абадонна , по-простому. Зачем это нужно , обращение к окнам 1с из внешнего приложения ? Просто любопытно расковырять оконный интерфейс 1с ?
Или это можно где-то применить ?
Только предупреждаю ,я еле-еле вспомнил школьное определение Handle : логический номер назначаемый объекту (файлу , устройству и т.п).
(8)
Из внешнего приложения не особенно и надо, а вот тут (картинка 6)
без этого никак не обойтись, на этом все и построено. А отлаживать- куда как удобнее из внешнего
(9) Кроме глубокомысленного : «кому что нравится» — сказать мне нечего.
(10)
Глубомысленное давно уж написано на воротах: «Каждому своё» 😉
11) Хм.. А ,пожалуй , я с тобой согласен.
На воротах храма ВК-ашников такая надпись смотрелась бы многозначительно. И всяк входящий сюда — задумался бы.
(12)
Нет тут, как в аське,символа с двумя пивными кружками 🙁
А НАДО!!!! Доржи!!!!!!!!!!!!!?????????????
(8) Не обязательно из внешнего приложения обращаться.
Если бы была возможность работы с окнами 1С, текстами и т.д., вполне можно было, например, упростить себе работу в Конфигураторе, сделав некое грубое подобие Опенконф для 77 с его скриптами и плагинами 🙂
Лично меня этот проблема очень занимает, но пока не удается решить 🙁
(14) Вот и я про то же. Если уж один из авторов 1с++ пока на разобрался, то
никак не катит
(14) Ага. Понятно. Опенконф полгода назад поставил. Он быстрее и функциональнее чем встроенный редактор 1сv8.
Где только черти не носят Абадонну… Надысь алиментами интересовался, теперь вот окошками 😮
(13) Да, не хватает. 😉
Вот, альтернативный:
(17)
Смотрю вот сейчас на окошко… Открыть — понимаю, закрыть — понимаю, но как, блин, свернуть? :))))
Это конечно всё здорово, НО!!!
Вы не подумали, ЗАЧЕМ 1с выпустила 8.2 ?!
Что бы кто-то потом дорабатывал ее в delphi,c, .net Итд ?
я всегда думал, что это не совсем так и вот доводы:
1. 8.2 изначально делалась как МУЛЬТИ платформенное решение, в браузере ее (теоретически) можно хоть на линуксе и на телефоне запустить! (как там ваш прогресс бар будет работать ? — НИКАК!)
2. в 8.2 сделали СВОЙ стандарт внешних компонент.
(20) Для начала стоит Вам самим ознакомиться со стандартном внешних компонент, который предлает 1С.
(16) можно поинтересоваться, а где взяли опенконф под 1С 8? Никак найти не могу, вот уже года три. Может ищу не там/не так?…
(22) Автор (16) ИМХО подразумевал, что поставил Опенконф для 77.
Для 8 Опенконф-а не существует, есть только некие зачатки скриптов
Посмотри ветку в начале и в конце
(20)
Думаю, чтобы бабла еще срубить, а зачем еще? 😉
(4)
Вот такая безрадостная фигня пока ;(
1. Окошко ввода совсем не желает вести себя как нормальный контрол оpгана упpавления pедактиpованием. В частности не реагирует на стандартную API SendMessage(handle,em_GetLineCount,0,0), которая должна вернуть количество строк в органе управления.
2. Нажатие любой клавиши выдает неопознанную виндой мессагу 0x0118, при этом для любой клавиши wParam=0000FFFF, а lParam=BF84AC9A (всегда, блин!)
см. рис.
(25) Формат бы этих сообщений получить…
(0)
класс V8TopLevelFrameSDI в 8.2 актуален только для Управляемых форм или для обычных тоже?
Обычные формы:
ищу
ничего не находит.
находит.
не могу найти окно обработки. не подскажите как?
можно ли встроить фрейм в окно обработки средствами WIN API?
(27) KroVladS,
1. Рекомендую использовать мелкософтовский SpyXX — удобная штука.
2. Для обычного приложения иерархия совсем другая, похожая на иерархию окон 7.7
Хендл MDI-окна
hMDI:=FindWindowEx(MainHandle,0,’V8MDIClient’,»); где MainHandle — хендл главного окна
Хендл активной обработки
hActiveForm:=GetTopWindow(hMDI);
(28)
Спасибо всё нашёл.
(28)
Ещё один глупый вопрос.
Есть dll библиотека которая отправляет видеопоток в окно по его Хендлу.
По COM подключить её нельзя т.к. отсутствуют точки входа.
Обернул её в внешнюю компоненту NativeAPI, отправляю в окно обработки 1с, всё хорошо пока фокус захвачен dll (вместо паузы использую MessageBoxA(hMDI,»»,»»,MB_OK)), как только 1с возвращают фокус она видит что над её формой нагло надругались и падает.
в какую сторону капать ?
(30) KroVladS, в своей Native используй компонент TMediaPlayer — и всех проблем. Там можно и в MDI отправить, и в активную форму, и вообще в отдельное окно.
/+31/
(30) KroVladS, Блинский клин! Классно свайт обновили: «Изменить» отправляет хз куда, только не в редактирование, файлы прикрепить не дает…
К /31/ посмотри картинку в
Как раз TMediaPlayer на активной форме 1С
(33)
Спасибо за ответ. но задача несколько иная и компонент TMediaPlayer не подойдет.
т.к. необходимо использовать именно эту библиотеку.
Если копнуть чуть глубже, падает сама dll из-за ошибки доступа к памяти.
Есть сишный проект построенный на этой dll вроде работает, делаю те-же вызовы из NativeAPI всё падает.
В общем это офтопный офтоп.
(33)
офтоп
Обернул dll библиотеку в ActiveX и 1с перестала падать.
з.ы. да я извращенец, но работает же 🙂
(35) KroVladS, там еще нюанс мог быть…
Ты поток на хендл активной формы выводил? А, скорее всего надо было на то, что я называю hReportDialog
(36)
И на хендл активной формы.
И на стандартный элемент картинка.
И вставлял на форму стандартный ActivX элемент MS Forms 2.0 Frame
Всё одно падал.
(37) KroVladS, сюда не пробовал?:
……………………
wnd:=FindWindowEx(wnd,w,’V8LayouterTabsWindow’,nil); //его второй V8LayouterTabsWindow
wnd:=GetTopWindow(wnd);// его первый V8FormElement
wnd:=GetTopWindow(wnd);// его первый V8LayouterTabsWindow
wnd:=GetTopWindow(wnd);// его первый V8FormElement — он самый!!!!
____________
Последний как раз hReportDialog
_________________
Тебе на обычные формы надо? Тогда напишу как там его найти
(38)
Именно туда и выводил.
Для неуправляемых форм.
HWND hWnd1с = FindWindow(L»V8TopLevelFrame»,NULL);
HWND hMDI = FindWindowEx(hWnd1с,NULL,L»V8MDIClient»,NULL);
hMDI =GetTopWindow(hMDI);
hMDI =GetTopWindow(hMDI);
hMDI =GetTopWindow(hMDI);
hMDI =GetTopWindow(hMDI);// <— Элемент картинка на форме
//лишний уровень
// hMDI =GetTopWindow(hMDI);
код правда сишный
(39) KroVladS, стоп-стоп-стоп! Еще раз вопрос повторяю: форма обычная или управляемая?
(40)
Обычные формы.
Обычные формы.
(41) KroVladS,
hReport:=GetTopWindow(hMDI);
hReportDialog:=GetTopWindow(GetTopWindow(hReport));
три раза TOP от MDI — вот тут железно любые компоненты рисуются
(43)
В одном из первых сообщений я дезинформировал Вас
На самом деле
Подскажите, пожалуйста, могу я с помощью данного подхода изменить шрифт кнопки в командной панели? (это 1С сделать не дает), или задать размер колонки меньше ширина слова, которое в нем(как будто пользователь сам уменьшил размер колонки)?
Подскажите можно ли в ВК по nativeAPI получить хендл окна с помощью GetAppMainFrame? Пишу ВК на VS C++, но пока не удается вызвать GetAppMainFrame. Получаю ошибку
Run-Time Check Failure #0 — The value of ESP was not properly saved across a function call. This is usually a result of calling a function declared with one calling convention with a function pointer declared with a different calling convention.
(46) Не совсем корректный ответ, но вдруг пригодится: hwndLayout = FindWindowEx(NULL, NULL, L»V8TopLevelFrame», NULL);
(47)Боюсь вдруг юзер запустит 2 процесса 1С, или если будет диалоговое окно, то формы будет две, в С# использовал GetAppMainFrame без каких либо проблем, но сейчас нужно nativeAPI, поэтому перешел на С++, но ни как не могу вызвать GetAppMainFrame все время валится с ошибкой.
(48) Согласен, по тому и написал что не совсем корректный ответ. Однако, если я не ошибаюсь, NativeApi компонента не имеет возможности взаимодействовать с окном 1С, только созданные по технологии COM.
PS: Наверняка я не прав.
(49)Возможно вы правы, я тоже уже склоняюсь к такому варианту, но не уверен. Надеюсь кто то сможет подсказать.