Вы искали 1с - Страница 31 из 40

1c: извлечение страницы из pdf документа

12.07.2023 Павел Грибов 1C

В настоящий момент в 1С нет встроенного средства для редактирования pdf документов, поэтому единственный выход — использовать внешние программы. Например — pdftk или ExtractPagePDF

Ниже пример реализации для ExtractPagePDF:

функция ИзвлечьСтраницуPDF(имяфайла,страница)
	answer=новый Структура("error,result",false,"");
		// вариант с ExtractPDF
		ПутьКПрограммеИзвлечения = lsОбщегоНазначенияСервер.ПутьКПрограммеРаботыСPDFФайлами();
		ИмяВременногоФайлаИзвлечения 	= ПолучитьИмяВременногоФайла("pdf");
		КаталогИзвлечения 				= ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(КаталогВременныхФайлов());			
		КодВозвратаКомпоненты = 1;
		ЗапуститьПриложение(ПутьКПрограммеИзвлечения + " 1 """ + имяфайла + """ """ + ИмяВременногоФайлаИзвлечения+""" "+Формат(страница,"ЧГ=0"), , Истина, КодВозвратаКомпоненты);			
		Если КодВозвратаКомпоненты <> 0 Тогда 				
				answer.error=true;      
				answer.result="Не удалось извлечь файлы счетов! для л/с ";
				возврат answer;
		КонецЕсли;
        answer.result=ИмяВременногоФайлаИзвлечения;	
		
		// вариант с pdftk			
		//ПутьКПрограммеИзвлечения = lsОбщегоНазначенияСервер.ПутьКПрограммеРаботыСPDFФайлами();
		//ИмяВременногоФайлаИзвлечения 	= ПолучитьИмяВременногоФайла("pdf");
		//КаталогИзвлечения 				= ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(КаталогВременныхФайлов());			
		//КодВозвратаКомпоненты = 1;      
		//страница=Формат(страница,"ЧГ=0");
		//ЗапуститьПриложение(ПутьКПрограммеИзвлечения +" """+ имяфайла + """ cat "+страница+" """ + ИмяВременногоФайлаИзвлечения+"""", , Истина, КодВозвратаКомпоненты);			
		//Если КодВозвратаКомпоненты <> 0 Тогда 				
		//		answer.error=true;      
		//		answer.result="Не удалось извлечь файлы счетов! для л/с ";
		//		возврат answer;
		//КонецЕсли;
		//answer.result=ИмяВременногоФайлаИзвлечения;	
		
		
		
	возврат answer;
конецфункции

функция ИзвлечьСтраницуPDF(имяфайла,страница)

answer=новый Структура("error,result",false,"");

// вариант с ExtractPDF

ПутьКПрограммеИзвлечения = lsОбщегоНазначенияСервер.ПутьКПрограммеРаботыСPDFФайлами();

ИмяВременногоФайлаИзвлечения = ПолучитьИмяВременногоФайла("pdf");

КаталогИзвлечения = ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(КаталогВременныхФайлов());

КодВозвратаКомпоненты = 1;

ЗапуститьПриложение(ПутьКПрограммеИзвлечения + " 1 """ + имяфайла + """ """ + ИмяВременногоФайлаИзвлечения+""" "+Формат(страница,"ЧГ=0"), , Истина, КодВозвратаКомпоненты);

Если КодВозвратаКомпоненты <> 0 Тогда

answer.error=true;

answer.result="Не удалось извлечь файлы счетов! для л/с ";

возврат answer;

КонецЕсли;

answer.result=ИмяВременногоФайлаИзвлечения;

// вариант с pdftk

//ПутьКПрограммеИзвлечения = lsОбщегоНазначенияСервер.ПутьКПрограммеРаботыСPDFФайлами();

//ИмяВременногоФайлаИзвлечения = ПолучитьИмяВременногоФайла("pdf");

//КаталогИзвлечения = ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(КаталогВременныхФайлов());

//КодВозвратаКомпоненты = 1;

//страница=Формат(страница,"ЧГ=0");

//ЗапуститьПриложение(ПутьКПрограммеИзвлечения +" """+ имяфайла + """ cat "+страница+" """ + ИмяВременногоФайлаИзвлечения+"""", , Истина, КодВозвратаКомпоненты);

//Если КодВозвратаКомпоненты <> 0 Тогда

// answer.error=true;

// answer.result="Не удалось извлечь файлы счетов! для л/с ";

// возврат answer;

//КонецЕсли;

//answer.result=ИмяВременногоФайлаИзвлечения;

возврат answer;

конецфункции

Оставить комментарий 1c, pdf, получение страницы, разделение документа

Получение email пользователя ИБ

06.06.2023 Павел Грибов 1C

Задача: получение email пользователя ИБ по известному пользователю конфигурации

При разработке на платформе 1С, в рано или поздно сталкиваешся с данностью, что нужно работать с двумя разными сущностями: пользователь информационной базы (задаётся в конфигураторе), и пользователь справочника «Пользователь» в используемой конфигурации. При использовании стандартной БСП, они обычно связаны между собой при помощи реквизита «ИдентификаторПользователяИБ».

Email пользователя может храниться в двух местах:

В контактной информации пользователя в справочнике Пользователи
Как реквизит Пользователя информационной базы.

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

В моём случае, нужно получение email пользователя ИБ. Решается это так:

			ПользовательИБ=ПользователиИнформационнойБазы.НайтиПоУникальномуИдентификатору(ВыборкаДетальныеЗаписи.ОтветственныйСотрудник.ИдентификаторПользователяИБ);
			email=ПользовательИБ.АдресЭлектроннойПочты;

ПользовательИБ=ПользователиИнформационнойБазы.НайтиПоУникальномуИдентификатору(ВыборкаДетальныеЗаписи.ОтветственныйСотрудник.ИдентификаторПользователяИБ);

email=ПользовательИБ.АдресЭлектроннойПочты;

Оставить комментарий email, пользовательИБ

1c 7.7 Выборка всех элементов справочника без группировки

30.03.2023 Павел Грибов 1C

1С 7.7 не умеет выбирать все элементы справочника в запросе без группировки по какому то реквизиту. Обычно группируют по Коду. А что делать, если какой-то талантливый программист, решил что поле Код в справочнике например может быть не уникальным? Тогда будем группировать по текущему элементу справочника. Например:

	ТекстЗапроса=
	"//{{ЗАПРОС(СформироватьСЧТ)
	|ОбрабатыватьДокументы все;
	|Обрабатывать НеПомеченныеНаУдаление;
	|Владелец = Справочник.Счетчики.Владелец;
	|Наименование = Справочник.Счетчики.Наименование;
	|ТекущийЭлемент = Справочник.Счетчики.ТекущийЭлемент;
	|Группировка ТекущийЭлемент  Без Групп;
	|"//}}ЗАПРОС
	;             
            
		Запрос = СоздатьОбъект("Запрос");		
		Запрос.Выполнить(ТекстЗапроса);		 
		Пока Запрос.Группировка() = 1 Цикл
...
...

ТекстЗапроса=

"//{{ЗАПРОС(СформироватьСЧТ)

|ОбрабатыватьДокументы все;

|Обрабатывать НеПомеченныеНаУдаление;

|Владелец = Справочник.Счетчики.Владелец;

|Наименование = Справочник.Счетчики.Наименование;

|ТекущийЭлемент = Справочник.Счетчики.ТекущийЭлемент;

|Группировка ТекущийЭлемент Без Групп;

|"//}}ЗАПРОС

;

Запрос = СоздатьОбъект("Запрос");

Запрос.Выполнить(ТекстЗапроса);

Пока Запрос.Группировка() = 1 Цикл

...

Оставить комментарий 1с 7.7, 7.7, группировка в запросе

Пишем плагин для WordPress

16.01.2023 Павел Грибов WEB

Для того чтобы не изобретать велосипеды, необходимо с генерировать шаблоны файлов плагина. Например при помощи этого сервиса. В моём случае плагин называется ssk_read, поэтому далее везде фигурирует в названиях файлов он.

Получится структура папок вида:

Необходимо поместить все файлы в папку /wp_content/plugins..и собственно на этом моменте плагин уже будет доступен в админке для ативации.

Далее попробуем нарисовать страницу настроек в панели администрирования. Для этого добавим в /admin/class-ssk_read-admin.php в функцию конструкта класса хук добавления пункта меню:

add_action( 'admin_menu', 'register_my_config_page');

1 2	add_action( 'admin_menu', 'register_my_config_page');

И далее в основном теле плагина skk_read.php добавим функцию register_my_config_page, которая непосредственно регистрирует этот пункт меню к выводу на экран:

function register_my_config_page(){
    add_menu_page( 'SSK_Read', 'SSK_Read', 'edit_others_posts','ssk_read', 'DrawPage', plugins_url( 'ssk_read/images/logo.png' ), 6 );
}
function DrawPage(){
 ?>
    <h1 class="wp-heading-inline">Основные настройки</h1>    
 <?php
};

function register_my_config_page(){

add_menu_page( 'SSK_Read', 'SSK_Read', 'edit_others_posts','ssk_read', 'DrawPage', plugins_url( 'ssk_read/images/logo.png' ), 6 );

}

function DrawPage(){

<h1 class="wp-heading-inline">Основные настройки</h1>

<?php

};

После этого в меню админки появится новый пункт меню, с выводом пустой страницы. Добавим в функцию DrawPage функционал вывода сохраненных настроек:

function DrawPage(){
 ?>
    <h1 class="wp-heading-inline">Основные настройки</h1>
    <form method="post" action="options.php">
    <?php
        settings_fields('ssk_read_settings');
        do_settings_sections( 'ssk_read');
        submit_button();
    ?>
    </form>

 <?php
};

function DrawPage(){

<h1 class="wp-heading-inline">Основные настройки</h1>

<?php

settings_fields('ssk_read_settings');

do_settings_sections( 'ssk_read');

submit_button();

</form>

<?php

};

На этом этапе пока появится только кнопка «сохранить изменения», потому как мы еще не указали ядру, какие именно настройки мы хотим хранить. Для этого добавим в /admin/class-ssk_read-admin.php в функцию конструкта класса хук инициализации настроек:

add_action( 'admin_init', 'ssk_read_fields');

1	add_action( 'admin_init', 'ssk_read_fields');

И далее в основном классе ssk_read.php добавим функции регистрации полей и их вывода:

function ssk_read_fields(){

    register_setting('ssk_read_settings','api_doc_url','string');
    register_setting('ssk_read_settings','api_doc_login','string');
    register_setting('ssk_read_settings','api_doc_password','string');

    add_settings_section( 'ssk_settings_section_id', 'Соединение с 1С Документооборот','', 'ssk_read' );

    add_settings_field('api_doc_url','URL вызова API','DrawApiTxtField','ssk_read','ssk_settings_section_id',array('name' => 'api_doc_url'));
    add_settings_field('api_doc_login','Логин','DrawApiTxtField','ssk_read','ssk_settings_section_id',array('name' => 'api_doc_login'));
    add_settings_field('api_doc_password','Пароль','DrawApiPasswordField','ssk_read','ssk_settings_section_id',array('name' => 'api_doc_password'));

}

function DrawApiTxtField($args){
    $value = get_option( $args[ 'name' ] );
    echo '<input type="text"  id="'.$args[ 'name' ].'" name="'.$args[ 'name' ].'" value="'.$value.'" />';
}
function DrawApiPasswordField($args){
    $value = get_option( $args[ 'name' ] );
    echo '<input type="password"  id="'.$args[ 'name' ].'" name="'.$args[ 'name' ].'" value="'.$value.'" />';
}

function ssk_read_fields(){

register_setting('ssk_read_settings','api_doc_url','string');

register_setting('ssk_read_settings','api_doc_login','string');

register_setting('ssk_read_settings','api_doc_password','string');

add_settings_section( 'ssk_settings_section_id', 'Соединение с 1С Документооборот','', 'ssk_read' );

add_settings_field('api_doc_url','URL вызова API','DrawApiTxtField','ssk_read','ssk_settings_section_id',array('name' => 'api_doc_url'));

add_settings_field('api_doc_login','Логин','DrawApiTxtField','ssk_read','ssk_settings_section_id',array('name' => 'api_doc_login'));

add_settings_field('api_doc_password','Пароль','DrawApiPasswordField','ssk_read','ssk_settings_section_id',array('name' => 'api_doc_password'));

}

function DrawApiTxtField($args){

$value = get_option( $args[ 'name' ] );

echo '<input type="text" id="'.$args[ 'name' ].'" name="'.$args[ 'name' ].'" value="'.$value.'" />';

}

function DrawApiPasswordField($args){

$value = get_option( $args[ 'name' ] );

echo '<input type="password" id="'.$args[ 'name' ].'" name="'.$args[ 'name' ].'" value="'.$value.'" />';

}

Получилось функционирующее сохранение:

Однако не хватает уведомления об успешном сохранении. Добавим хук:

add_action( 'admin_notices', 'ssk_custom_notice' );

1	add_action( 'admin_notices', 'ssk_custom_notice' );

И вывод сообщения:

function ssk_custom_notice(){
 if (
        isset( $_GET[ 'page' ] )
        && 'ssk_read' == $_GET[ 'page' ]
        && isset( $_GET[ 'settings-updated' ] )
        && true == $_GET[ 'settings-updated' ]
    ) {
        echo '<div class="notice notice-success is-dismissible"><p>Настройки сохранены!</p></div>';
    }
}

function ssk_custom_notice(){

if (

isset( $_GET[ 'page' ] )

&& 'ssk_read' == $_GET[ 'page' ]

&& isset( $_GET[ 'settings-updated' ] )

&& true == $_GET[ 'settings-updated' ]

) {

echo '<div class="notice notice-success is-dismissible"><p>Настройки сохранены!</p></div>';

}

Оставить комментарий wordpress, пишем плагин, сохранение настроек

1C: Программное прикрепление файла к документу / справочнику

21.12.2022 Павел Грибов 1C

Работает только на БСП 3.1 и выше

    Текст=новый ЗаписьТекста;
    Текст.Открыть(КаталогВременныхФайлов()+"\1.txt",КодировкаТекста.ANSI);
    Текст.ЗаписатьСтроку("Программируем в 1С 8.2");
    Текст.Закрыть(); 
	  
	ИмяФайлаНаДиске = КаталогВременныхФайлов()+"\1.txt";	
	ДвоичныеДанные = Новый ДвоичныеДанные(ИмяФайлаНаДиске);
	ВременноеХранилище = ПоместитьВоВременноеХранилище(ДвоичныеДанные);
	// Подготоваливаем описание файла заполнив все необходимые параметры
	ПараметрыФайла = РаботаСФайлами.ПараметрыДобавленияФайла();
	ПараметрыФайла.Автор = Пользователи.ТекущийПользователь();
	ПараметрыФайла.ВладелецФайлов = док.Ссылка;
	ПараметрыФайла.ИмяБезРасширения = СтрЗаменить(ИмяФайлаНаДиске,".txt","");
	ПараметрыФайла.РасширениеБезТочки = "txt";
	// Используем функцию БСП и добавляем файл к объекту
	РаботаСФайлами.ДобавитьФайл(ПараметрыФайла, ВременноеХранилище);

Текст=новый ЗаписьТекста;

Текст.Открыть(КаталогВременныхФайлов()+"\1.txt",КодировкаТекста.ANSI);

Текст.ЗаписатьСтроку("Программируем в 1С 8.2");

Текст.Закрыть();

ИмяФайлаНаДиске = КаталогВременныхФайлов()+"\1.txt";

ДвоичныеДанные = Новый ДвоичныеДанные(ИмяФайлаНаДиске);

ВременноеХранилище = ПоместитьВоВременноеХранилище(ДвоичныеДанные);

// Подготоваливаем описание файла заполнив все необходимые параметры

ПараметрыФайла = РаботаСФайлами.ПараметрыДобавленияФайла();

ПараметрыФайла.Автор = Пользователи.ТекущийПользователь();

ПараметрыФайла.ВладелецФайлов = док.Ссылка;

ПараметрыФайла.ИмяБезРасширения = СтрЗаменить(ИмяФайлаНаДиске,".txt","");

ПараметрыФайла.РасширениеБезТочки = "txt";

// Используем функцию БСП и добавляем файл к объекту

РаботаСФайлами.ДобавитьФайл(ПараметрыФайла, ВременноеХранилище);

Оставить комментарий бсп, документ, прикрепление файла, справочник

« 1 … 29 30 31 32 33 … 40 »

Пн	Вт	Ср	Чт	Пт	Сб	Вс
				1	2	3
4	5	6	7	8	9	10
11	12	13	14	15	16	17
18	19	20	21	22	23	24
25	26	27	28	29	30