<?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='\
Я бы еще добавил выбор платформы 7.7, 8.0, 8.1 и 8.2
Спасибо за комментарий, учту!
По-мужски закончили. ПЛЮС.
(3) Так же можно добавить тест подключения, и дальше получить структуру метаданных…
было бы супер сделать компонент DataAdapter1С , чтобы к нему можно было привязывать сетки, DataAware-компоненты… было бы круто!
(5) не очень понял, что значит тест подключения. В студии когда ставишь активность истина, как раз происходит подключение. Единственное структуру метаданных не выдает 🙂
(6) что этот компонент должен делать и как к нему можно было бы привязывать сетки, DataAware-компоненты?
(8) тоже делать, что и любой датаадаптер 😉
(9) мне больше непонятно что значит привязывать сетки…
ну в .Net есть 4 встроенных провайдера — OLE,ODBC,MSSQL,Oracle. Сторонними разработчиками например сделан провайдер для FireBird. Вот и для 1С можно было бы сделать. В идеале — чтоб можно было визуальным мастером создавать ДатаСет и выбирать в него таблицы как они есть в метаданных 1С — «Справочник.Номенклатура» например или сразу несколько документов и справочников.
Плюсы — можно сделать быстрого клиента. Например, я делал на c# (обычным способом через СОМ) форму подбора номенклатуры — в 1С медленно ищется товар среди 10000 позиций когда набираешь код на клавиатуре, а в этом клиенте практически мгновенно. Можно и документ создавать из клиента, но до этого руки не дошли. Можно например сделать параллельную БД (на MSSQL ЕЕ хотя б) и там хранить дополнительные реквизиты (любых объектов), если не хочется нетиповую конфигурацию. Через клиента можно работать с «расширенной» конфигой, а в 1С все «типовое» 🙂 Но это уже полет мысли 🙂
(11) может выложишь обработку для примера?
она на работе кажется осталась, давно это было… а щас новую некогда писать… через пару дней возможно сделаю..
а, я нашел все таки:
СОЕДИНЕНИЕ:
v8connector = Type.GetTypeFromProgID(«V81.COMConnector»);
v8inst = Activator.CreateInstance(v8connector);
object[] arg = new object[] { @»File='» + txtPath.Text + «‘; Usr ='» + txtLogin.Text + «‘;Pwd='» + txtPass.Text + «‘;» };
// Соединяемся
v8 = v8connector.InvokeMember(«Connect», BindingFlag, null, v8inst, arg);
ПРИМЕР ВЫПОЛНЕНИЯ ЗАПРОСА:
// Создаем запрос
object Q = v8inst.GetType().InvokeMember(«NewObject», BindingFlag, null, v8, new object[] { «Запрос» });
// Присваиваем свойству ТЕКСТ текст запроса
SetObjectProperty(Q, «Текст»,txtQuery.Text);
// Выполняем!
object QResult = DoObjectMethod(Q, «Выполнить», null);
// Достаем объект «Колонки» и их число
object Cols = GetObjectProperty(QResult, «Колонки»);
int NumCol = (int)DoObjectMethod(Cols, «Количество», null);
ОБЕРТКА ДЛЯ ПОЛУЧЕНИЯ/УСТАНОВКИ СВОЙСТВ и ВЫПОЛНЕНИЯ МЕТОДОВ 1С:
// Функция чтения свойства
public object GetObjectProperty(object refObject, string propertyName)
{
return v8inst.GetType().InvokeMember(propertyName, BindingFlags.GetProperty, null, refObject, null);
}
// Функция установки свойства
public object SetObjectProperty(object refObject, string propertyName, object value)
{
object[] arg = new object[] { value };
return v8inst.GetType().InvokeMember(propertyName, BindingFlags.SetProperty, null, refObject, arg);
}
// Функция выполнения метода
public object DoObjectMethod(object refObject, string methodName, object[] args)
{
return v8inst.GetType().InvokeMember(methodName, BindingFlag, null, refObject, args);
}
В принципе этого хватит чтоб написать любое взаимодействующее с 1С приложение. И без всяких маршаллингов 🙂
(14) См. (2)
Маршалинг нужен, как я столкнулся, в случае с 7-кой, когда она не отрабатывала, как положено ряд объектов, типа булево, к примеру, или Null.
+15 и не надо забывать про очистку памяти, иначе 1С-ка так и будет болтаться в памяти и жрать ресурсы.
(14) у меня в компоненте так и сделано 🙂
В примере с получением справочников как раз вызывается InvokeMember(propertyName, BindingFlags.GetProperty…);
2badboychik: а для непримитивных значений реквизитов (например ссылка на запись в справочнике) public object SetObjectProperty работает?
2dushelov: я прошу прощение, а где в вашем примере метод аналогичный SetObjectProperty? Может я чего просмотрел? И если не сложно, такой же вопрос как в п18 — работает не работает?
(19) Функция, аналогичная «ПолучитьПараметр», флаг меняется с GetProperty на SetProperty
(20) Спасибо за ответ! Для присваивания в качестве значения поля ссылки на другой объект 1С все проходит нормально?
(21) Конечно.
Кто-нибудь знает, можно ли подключившись из .NET к 1С 8.1 по COM вызвать оператор «Выполнить» с текстом выполняемых действий? И как это сделать?
(23) Никак.
Только вызвать функцию общего модуля или модуля внешнего соединения, где используется эта команда.
(24) Спасибо
Не понятно как можно получить например цены товара из номенклатуры, или изображение товара. Возможно ли это?
Если кто знает подскажите пожалуйста. а еще лучше примерчик…
вызываю такой код:
Object Directories = GetObjectProperty(COMobj, «Справочники»);
Object Nomenclature = GetObjectProperty(Directories, «Номенклатура»);
Object docSelection_ = InvokeObjectMethod(«Выбрать», Nomenclature);
InvokeObjectMethod(«Следующий», docSelection_)
Object name = GetObjectProperty(docSelection_, «Наименование»);
Object obj = v81.InvokeMember(«ОсновноеИзображение», BindingFlags.GetProperty, Type.DefaultBinder, docSelection_, new Object[] { });
С переменной name вроде понятно, это строка, наименовани. А как теперь работать с переменной obj?
Нужно разработать на VS утилиту, которая должна генерить документы для 1С (входящие и исходящие платежные поручения). Данные берутся из внешней SQL базы (это не проблема). Вопрос — экспорт документов в 1С. Готов заплатить денежку.
(28) А не прощще из 1с подключится к внешней SQL базе и угенерится там документов?
Не проще… Хотелось бы избежать изменения конфигурации в 1С, так как это головная боль при обновлениях.
(28) Если обменов не предусмотрено — то вроде не особо и сложно. Пишите в личку как что надумаете.