Калькуляция плановой стоимости продукции

16.05.2017 12 Comments

Обработки, Разработка, Ценообразование, прайсы




    01.png
    02.png
    03.png
    04-интернет-магазин.png
Принцип обмена данными из 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='\




      
Related Posts
  
      
      
        
      











	    
12 Comments


		
    
				
  1. 
		
    
			
    
				support 			
    

			
			
    
				
    хорошая вещь
    
			 
    
			   Reply ↓			
    
			   			
    
		
    
	
    2. 
	
  2. 
		
    
			
    
				delete009 			
    

			
			
    
				
    Нужная вещь +
    
			 
    
			   Reply ↓			
    
			   			
    
		
    
	
    3. 
	
  3. 
		
    
			
    
				cheri 			
    

			
			
    
				
    Подскажите, пожалуйста, в архиве 3 файла с расширением ert. Какие именно файлы нужно добавить в дополнительные возможности и как правильно это сделать?
    
			 
    
			   Reply ↓			
    
			   			
    
		
    
	
    4. 
	
  4. 
		
    
			
    
				Kurt 			
    

			
			
    
				
    В архиве три обработки:
    

    Kalculyasiya.ert
    

    DlgSum.ert
    

    DLGQUERY.ERT
    

    (две вспомагательные) — выложите их в одну папку.
    

    Это значит все три файла поместить в один (любой) каталог.
    

    Из 1С запустить файл Kalculyasiya.ert из каталога, в который вы их поместили.
    

    Это простейший вариант запуска.
    

    Для запуска из «дополнительных возможностей»:
    

    1. Все три этих файла надо поместить в папку «ExtForms» вашей информационной базы.
    

    2. Создать (хоть в блокноте) файл с названием Kalculyasiya.EFD (обращаем внимание
    

    на расширение файла, можете сначала создать текстовый файл Kalculyasiya.txt, а потом
    

    в проводнике переименовать с расширением .efd !).
    

    Содержание файла должно иметь всего одну строчку:
    

    Название=Калькуляция плановой стоимости продукции
    

    (название, как вы понимаете можете нарисовать по вашему вкусу. Главное, что бы совпадали
    

    названия файлов, т.е. если Kalculyasiya.ert, то файл описания должен быть Kalculyasiya.EFD)
    

    3. Полученный файл Kalculyasiya.EFD также помещаем в папку «ExtForms» вашей информационной базы.
    

    4. Заходим в «Дополнительные возможности», находим строчку с наименованием «Калькуляция плановой стоимости продукции» и запускаем.
    
			 
    
			   Reply ↓			
    
			   			
    
		
    
	
    5. 
	
  5. 
		
    
			
    
				Pah77 			
    

			
			
    
				
    Вот такое мне дает!!!
    

    Форма.ТекстФирмы   .Заголовок(глСтрокаФирмы <<?>>(Контекст));
    

    {\SERVERBASE1CBUHEXTFORMSKALCULYASIYA.ERT(51)}: Функция не обнаружена (глСтрокаФирмы)
    

    Форма.ТекстФирмы   .Заголовок(глСтрокаФирмы (Контекст)<<?>>);
    

    {\SERVERBASE1CBUHEXTFORMSKALCULYASIYA.ERT(51)}: Неопознанный оператор
    

    ИсхТабл.Опции(0,0,0,0,ПарСтрДок<<?>>,ПарСтрДок);
    

    {\SERVERBASE1CBUHEXTFORMSKALCULYASIYA.ERT(422)}: Переменная не определена (ПарСтрДок)
    

    ИсхТабл.Опции(0,0,0,0,ПарСтрДок,ПарСтрДок<<?>>);
    

    {\SERVERBASE1CBUHEXTFORMSKALCULYASIYA.ERT(422)}: Переменная не определена (ПарСтрДок)
    

    ИсхТабл.Опции(0,0,0,0,ПарСтрДок<<?>>,ПарСтрДок);
    

    {\SERVERBASE1CBUHEXTFORMSKALCULYASIYA.ERT(501)}: Переменная не определена (ПарСтрДок)
    

    ИсхТабл.Опции(0,0,0,0,ПарСтрДок,ПарСтрДок<<?>>);
    

    {\SERVERBASE1CBUHEXTFORMSKALCULYASIYA.ERT(501)}: Переменная не определена (ПарСтрДок)
    

    Если глПолучитьПолномочие<<?>>(«РазрешитьРедактированиеТаблиц») = 0 Тогда
    

    {\SERVERBASE1CBUHEXTFORMSKALCULYASIYA.ERT(503)}: Функция не обнаружена (глПолучитьПолномочие)
    

    Если ПустоеЗначение(глКомплектуется<<?>>(Комплект)) = 1 Тогда
    

    {\SERVERBASE1CBUHEXTFORMSKALCULYASIYA.ERT(565)}: Функция не обнаружена (глКомплектуется)
    

    Если ПустоеЗначение(глКомплектуется(Комплект)<<?>>) = 1 Тогда
    

    {\SERVERBASE1CBUHEXTFORMSKALCULYASIYA.ERT(565)}: Выражение должно иметь логический тип
    

    ФлагКомплект=ПустоеЗначение(глКомплектуется<<?>>(Комплект));
    

    {\SERVERBASE1CBUHEXTFORMSKALCULYASIYA.ERT(684)}: Функция не обнаружена (глКомплектуется)
    

    ФлагКомплект=ПустоеЗначение(глКомплектуется(Комплект)<<?>>);
    

    {\SERVERBASE1CBUHEXTFORMSKALCULYASIYA.ERT(684)}: Неопознанный оператор
    

    ФлагКомплект=ПустоеЗначение(глКомплектуется(Комплект))<<?>>;
    

    {\SERVERBASE1CBUHEXTFORMSKALCULYASIYA.ERT(684)}: Процедура или функция с указанным именем объявлена, но не определена в текущем модуле (ЗаполнитьТЗ2)
    

    ФлагКомплект=ПустоеЗначение(глКомплектуется(Комплект))<<?>>;
    

    {\SERVERBASE1CBUHEXTFORMSKALCULYASIYA.ERT(684)}: Процедура или функция с указанным именем объявлена, но не определена в текущем модуле (Расчитать)
    
			 
    
			   Reply ↓			
    
			   			
    
		
    
	
    6. 
	
  6. 
		
    
			
    
				Kurt 			
    

			
			
    
				
    (5) Обработка для Комплексной конфигурации 7.7.
    

    Кажется мне, что у Вас не эта конфигурация.
    

    Под чем запускали? Какой релиз?
    
			 
    
			   Reply ↓			
    
			   			
    
		
    
	
    7. 
	
  7. 
		
    
			
    
				Pah77 			
    

			
			
    
				
    ред. 4.4 (7.70.449)
    
			 
    
			   Reply ↓			
    
			   			
    
		
    
	
    8. 
	
  8. 
		
    
			
    
				Kurt 			
    

			
			
    
				
    Вооот как интересно.
    

    Текущий релиз платформы — 7.70.027
    

    Текущий релиз Комплексной — ред. 4.5 (7.70.505)
    

    у Торговли и того больше — 7.70.965
    

    …т.е. Вы понимаете, что со времён 7.70.449 релиза конфигурация была значительно изменена-доработана, в том числе изменены и добавлены многочисленные функции и процедуры глобального модуля.
    

    Отсюда и возникает ошибка при обращении к глСтрокаФирмы… посмотрим, что же там такое. Похоже понадобится ещё и глСтрокаСклада.
    

    Вам в модуль обработки надо вставить следующие функции:
    

    

    //******************************************************************************
//  глСтрокаСклада(Конт)
//
// Параметры:
//  Склад — элемент справочника «Склады»
//
// Возвращаемое значение:
//  Строковое представление склада
//
// Описание:
//  Функция, формирующая информационную строку о складе
//
Функция глСтрокаСклада(Склад) Экспорт
Перем Результат;

Если ПустоеЗначение(Склад)=0 Тогда
Результат=Склад.Наименование;
Если ПустоеЗначение(Склад.МОЛ)=0 Тогда
Результат=Результат+» («+СокрП(Склад.МОЛ.Наименование)+»)»;
КонецЕсли;
Иначе
Результат=»НЕ ВЫБРАН СКЛАД»;
КонецЕсли;

Возврат(Результат);
КонецФункции  // глСтрокаСклада

//******************************************************************************
//  глСтрокаФирмы(Конт)
//
// Параметры:
// Конт — контекст формы документа
//
// Возвращаемое значение:
//  Строковое представление фирмы (Юр. и Упр. лица)
//
// Описание:
//  Функция, формирующая информационную строку о фирме
//
Функция глСтрокаФирмы(Конт) Экспорт
Перем Результат;

Результат = «»;
Если ПустоеЗначение(Конт.Фирма) = 0 Тогда
Результат = Результат + Конт.Фирма.Наименование;
Иначе
Результат = Результат + «НЕ ВЫБРАНА ФИРМА»;
КонецЕсли;

Возврат(Результат);
КонецФункции  // глСтрокаФирмы()

//******************************************************************************

    

     Показать
    

    Или закоментировать строки 51-52.
    

    Возможно будут еще ошибки, но без внесения этих изменений они не проявятся.
    
			 
    
			   Reply ↓			
    
			   			
    
		
    
	
    9. 
	
  9. 
		
    
			
    
				Kurt 			
    

			
			
    
				
    И ещё в довесок:
    

    

    

    //******************************************************************************
// глПолучитьПолномочие(ИмяПолномочия)
//
// Параметры:
//  ИмяПолномочия — строка наименования полномочия
//
// Возвращаемое значение:
//  Значение полномочия, если не задано, то возвращает 0
//
// Описание:
//  Определяет и возвращает полномочие текущего пользователя с переданным наименованием.
//  Полномочия пользователя определяются выбранным для него элементом справочника «ПолномочияПользователей»
//
Функция глПолучитьПолномочие(ИмяПолномочия)  Экспорт

Полномочие = глПользователь.Полномочия;
Если ПустоеЗначение(Полномочие) = 1 Тогда
Возврат 0;
Иначе
Возврат Полномочие.ПолучитьАтрибут(ИмяПолномочия);

КонецЕсли;

КонецФункции // глПолучитьПолномочие()

//******************************************************************************
// глКомплектуется(ТМЦ)
//
// Параметры:
//  ТМЦ — элемент справочника Номенклатура, для которого надо определить наличие комплектующих
//
// Возвращаемое значение:
//  «Комплектуется» — если есть комлектующие
//  Пустая строка   — иначе
//
// Описание:
//  Определяет наличие комплектующих у данной ТМЦ
//
Функция глКомплектуется(ТМЦ) Экспорт

Рез = 0;

Если ТМЦ.Выбран() = 1 Тогда

СпрКомплекты = СоздатьОбъект(«Справочник.Комплектация»);
СпрКомплекты.ИспользоватьВладельца(ТМЦ);
Рез = СпрКомплекты.ВыбратьЭлементы();

КонецЕсли;

Возврат ?(Рез = 1,»Комплектуется»,»»);

КонецФункции // глКомплектуется()

//******************************************************************************

    

     Показать
    

    Возможно после этого обнаружится еще набор ошибок. Т.к. уж очень старый у Вас релиз.
    
			 
    
			   Reply ↓			
    
			   			
    
		
    
	
    10. 
	
  10. 
		
    
			
    
				Coollerok 			
    

			
			
    
				
    пригодилось — спасибо
    
			 
    
			   Reply ↓			
    
			   			
    
		
    
	
    11. 
	
  11. 
		
    
			
    
				Ирина1978 			
    

			
			
    
				
    а для 1с 7.7 бухгалтерия есть такая ?
    
			 
    
			   Reply ↓			
    
			   			
    
		
    
	
    12. 
	
  12. 
		
    
			
    
				Kurt 			
    

			
			
    
				
    (12) Для бухгалтерии нет (мы работаем с Комплексной конфигурацией). Бухгалтерию я к сожалению не знаю.
    
			 
    
			   Reply ↓			
    
			   			
    
		
    
	
    13. 
		


		
		
	
		

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