Архивы 1C - Страница 16 из 48

1С: Скачать файл через http сервис

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

Задача: в веб интерфейс сайта вывести кнопку получения файла со стороны 1С

Решение:

На стороне 1с оформим сервис по примеру:

HTTPОтвет = Новый HTTPСервисОтвет(200);
						
							ЗаписьЖурналаРегистрации("Пришло в HTTP.имя файла", УровеньЖурналаРегистрации.Информация,,имяфайла,имяфайла+"!",);	
				
				ДВ = Новый ДвоичныеДанные(имяфайла);						
				
			    HTTPОтвет.УстановитьТелоИзДвоичныхДанных(ДВ);
				HTTPОтвет.Заголовки["Content-Description"]="File Transfer";
				HTTPОтвет.Заголовки["Pragma"]="public";
				HTTPОтвет.Заголовки["Expires"]="0";
				HTTPОтвет.Заголовки["Cache-Control"]="must-revalidate, post-check=0, pre-check=";
				HTTPОтвет.Заголовки["Cache-Control"]="public";
				HTTPОтвет.Заголовки["Content-Type"]="text/plain; charset=UTF-8";
			    HTTPОтвет.Заголовки["Content-Type"] = "application/invoice.pdf";
    			HTTPОтвет.Заголовки["Content-Disposition"] = "attachment; filename=chet.pdf";		
		Возврат HTTPОтвет;

HTTPОтвет = Новый HTTPСервисОтвет(200);

ЗаписьЖурналаРегистрации("Пришло в HTTP.имя файла", УровеньЖурналаРегистрации.Информация,,имяфайла,имяфайла+"!",);

ДВ = Новый ДвоичныеДанные(имяфайла);

HTTPОтвет.УстановитьТелоИзДвоичныхДанных(ДВ);

HTTPОтвет.Заголовки["Content-Description"]="File Transfer";

HTTPОтвет.Заголовки["Pragma"]="public";

HTTPОтвет.Заголовки["Expires"]="0";

HTTPОтвет.Заголовки["Cache-Control"]="must-revalidate, post-check=0, pre-check=";

HTTPОтвет.Заголовки["Cache-Control"]="public";

HTTPОтвет.Заголовки["Content-Type"]="text/plain; charset=UTF-8";

HTTPОтвет.Заголовки["Content-Type"] = "application/invoice.pdf";

HTTPОтвет.Заголовки["Content-Disposition"] = "attachment; filename=chet.pdf";

Возврат HTTPОтвет;

На стороне сайта, можно оформить в виде:


class TApi1c {
    public $url="";
    public $login="";
    public $password="";
    public function __construct($url,$login,$password) {
        $this->url=$url;
        $this->login=$login;
        $this->password=$password;
    }    
    public function reqwest($reqwest,$body=array()){
        if (LK_DEBUG==true):
            $data=Date("m-d-y h:i:s")." - посылаем в подсистему 1C $reqwest  :\n";
            $data=$data.json_encode($body)."\n";
            file_put_contents(API_LOG_FILE, $data,FILE_APPEND);
        endif;
        $ch = curl_init($this->url);
            curl_setopt($ch, CURLOPT_USERPWD, $this->login.":".$this->password);
            curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
            curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, false);
            curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
            curl_setopt($ch, CURLOPT_HTTPHEADER, array('Content-Type: application/json')); 
            $js["reqwest"]=$reqwest;
            $js["body"]=$body;
            curl_setopt($ch, CURLOPT_POST, 1);
            curl_setopt($ch, CURLOPT_POSTFIELDS, json_encode($js));
            //curl_setopt($ch, CURLOPT_TIMEOUT, 300);
            $res=curl_exec($ch);            
            if (LK_DEBUG==true):
                $data=Date("m-d-y h:i:s")." - сырой ответ  :\n";
                $data=$data.serialize($res)."\n";
                file_put_contents(API_LOG_FILE, $data,FILE_APPEND);
            endif;
            
            //echo "!!";
            //var_dump($res);                
            //echo "!!";
            $response = json_decode($res);
            if ($response==null){
              AddErrorMessage("Ошибка","Внутрення ошибка сервера. Попробуйте позже.");                
              if (LK_DEBUG==true):
                  file_put_contents(API_LOG_FILE, $data,FILE_APPEND);
              endif;
            };             
            return $response;             
        if(curl_errno($ch)){
            throw new Exception(curl_error($ch));
        };        
    }  
}

class TInvoice {
    public $api="";         // класс работы с API
    public function __construct($api){
        $this->api=$api;
    }    
    public function GetInvoice($hash){
          $req["hash"]=$hash;
          $res=$this->api->naked_reqwest("GetInvoice",$req);
          if ($res!=null){          
              return $res;
          } else {
            $res = new \stdClass();
            $res->error=true;
            $res->result="Сервер не доступен. Попробуйте позже.";          
                AddErrorMessage("Ошибка",$res->result);
          }; 
          return $res;
        }   
}      

$Api1c=new TApi1c(url_1c,user_1c,password_1c);


if (isset($_GET["id"])==false){$_GET["id"]="";};

$id=$_GET["id"];
$inv=new TInvoice($Api1c);
$res=$inv->GetInvoice($id);
if (($res!="error") or ($res!="notfound")){
    header('Content-type: application/pdf');
    header("Content-Disposition: attachment; filename=invoice.pdf");
    header("Pragma: no-cache");
};
echo $res;

class TApi1c {

public $url="";

public $login="";

public $password="";

public function __construct($url,$login,$password) {

$this->url=$url;

$this->login=$login;

$this->password=$password;

}

public function reqwest($reqwest,$body=array()){

if (LK_DEBUG==true):

$data=Date("m-d-y h:i:s")." - посылаем в подсистему 1C $reqwest :\n";

$data=$data.json_encode($body)."\n";

file_put_contents(API_LOG_FILE, $data,FILE_APPEND);

endif;

$ch = curl_init($this->url);

curl_setopt($ch, CURLOPT_USERPWD, $this->login.":".$this->password);

curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);

curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, false);

curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);

curl_setopt($ch, CURLOPT_HTTPHEADER, array('Content-Type: application/json'));

$js["reqwest"]=$reqwest;

$js["body"]=$body;

curl_setopt($ch, CURLOPT_POST, 1);

curl_setopt($ch, CURLOPT_POSTFIELDS, json_encode($js));

//curl_setopt($ch, CURLOPT_TIMEOUT, 300);

$res=curl_exec($ch);

if (LK_DEBUG==true):

$data=Date("m-d-y h:i:s")." - сырой ответ :\n";

$data=$data.serialize($res)."\n";

file_put_contents(API_LOG_FILE, $data,FILE_APPEND);

endif;

//echo "!!";

//var_dump($res);

//echo "!!";

$response = json_decode($res);

if ($response==null){

AddErrorMessage("Ошибка","Внутрення ошибка сервера. Попробуйте позже.");

if (LK_DEBUG==true):

file_put_contents(API_LOG_FILE, $data,FILE_APPEND);

endif;

};

return $response;

if(curl_errno($ch)){

throw new Exception(curl_error($ch));

};

}

class TInvoice {

public $api=""; // класс работы с API

public function __construct($api){

$this->api=$api;

}

public function GetInvoice($hash){

$req["hash"]=$hash;

$res=$this->api->naked_reqwest("GetInvoice",$req);

if ($res!=null){

return $res;

} else {

$res = new \stdClass();

$res->error=true;

$res->result="Сервер не доступен. Попробуйте позже.";

AddErrorMessage("Ошибка",$res->result);

};

return $res;

}

$Api1c=new TApi1c(url_1c,user_1c,password_1c);

if (isset($_GET["id"])==false){$_GET["id"]="";};

$id=$_GET["id"];

$inv=new TInvoice($Api1c);

$res=$inv->GetInvoice($id);

if (($res!="error") or ($res!="notfound")){

header('Content-type: application/pdf');

header("Content-Disposition: attachment; filename=invoice.pdf");

header("Pragma: no-cache");

};

echo $res;

Оставить комментарий

1С: быстрая очистка большого регистра сведений

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

Самый простой способ — создать пустую запись без фильтров:

НаборЗаписей = РегистрыСведений.наш_регистр.СоздатьНаборЗаписей();
НаборЗаписей.Записать();

НаборЗаписей = РегистрыСведений.наш_регистр.СоздатьНаборЗаписей();

НаборЗаписей.Записать();

Оставить комментарий

1С: ТабличныйДокумент поле объекта недоступно для записи

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

Это происходит если в этой ячейке содержится значение а не текст, при попытке записи текста. Поэтому делаем так:

		ТекОбласть = ТабличныйДокументВыписка.Область("R"+  Формат( НомерСтроки, "ЧГ=0") + "C" + 9);
		Если ТекОбласть.СодержитЗначение Тогда
			ТекОбласть.Значение=НомерФС;
		иначе
			ТекОбласть.Текст=НомерФС;
		конецесли

ТекОбласть = ТабличныйДокументВыписка.Область("R"+ Формат( НомерСтроки, "ЧГ=0") + "C" + 9);

Если ТекОбласть.СодержитЗначение Тогда

ТекОбласть.Значение=НомерФС;

иначе

ТекОбласть.Текст=НомерФС;

конецесли

Оставить комментарий

1С: Ошибка доступа к табличной чайки ячейки 1000 строки

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

Ошибка возникает из-за свойства 1С разделять разряды чисел. Соответственно часто чтобы нормально работать с числами больше 1000 в смеси со строками, приходится число предварительно форматировать. Например так:

ТекОбласть = ТабличныйДокументВыписка.Область("R"+  Формат( НомерСтроки, "ЧГ=0") + "C" + 11);

1	ТекОбласть = ТабличныйДокументВыписка.Область("R"+ Формат( НомерСтроки, "ЧГ=0") + "C" + 11);

Оставить комментарий

1С: Установлен безопасный режим. Выполнение операции запрещено

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

С определенного релиза платформы, это сообщение стало появляться при использовании некоторых внешних обработок, которые пользователи открывали через Файл-Открыть.

Решение: а решение остается только одно — оформлять обработку в «подключаемую», т.к. нет способа отключить безопасный режим при открытии внешней обработки через это меню.

Для оформления внешней обработки, достаточно в модуле обработки добавить что-то вроде:

Функция СведенияОВнешнейОбработке() Экспорт

ИмяОтчета = ЭтотОбъект.Метаданные().Имя;
Синоним = ЭтотОбъект.Метаданные().Синоним + " " + ЭтотОбъект.Метаданные().Комментарий;
Синоним = ?(ЗначениеЗаполнено(Синоним),Синоним, ИмяОтчета);
РегистрационныеДанные = Новый Структура();
РегистрационныеДанные.Вставить("Вид", "ДополнительнаяОбработка");
РегистрационныеДанные.Вставить("Наименование", Синоним);
РегистрационныеДанные.Вставить("Версия", "1.0");
РегистрационныеДанные.Вставить("БезопасныйРежим", ложь);
РегистрационныеДанные.Вставить("Информация", "Обработка "+Синоним);


ТЗ_Команды = Новый ТаблицаЗначений;
ТЗ_Команды.Колонки.Добавить("Идентификатор");
ТЗ_Команды.Колонки.Добавить("Использование");
ТЗ_Команды.Колонки.Добавить("Представление");

НоваяСтрока = ТЗ_Команды.Добавить();
НоваяСтрока.Идентификатор = "ОткрытьОбработку";
НоваяСтрока.Использование = "ОткрытиеФормы";
НоваяСтрока.Представление = "Обработка БВ";
РегистрационныеДанные.Вставить("Команды", ТЗ_Команды);


Возврат РегистрационныеДанные;

КонецФункции

Функция СведенияОВнешнейОбработке() Экспорт

ИмяОтчета = ЭтотОбъект.Метаданные().Имя;

Синоним = ЭтотОбъект.Метаданные().Синоним + " " + ЭтотОбъект.Метаданные().Комментарий;

Синоним = ?(ЗначениеЗаполнено(Синоним),Синоним, ИмяОтчета);

РегистрационныеДанные = Новый Структура();

РегистрационныеДанные.Вставить("Вид", "ДополнительнаяОбработка");

РегистрационныеДанные.Вставить("Наименование", Синоним);

РегистрационныеДанные.Вставить("Версия", "1.0");

РегистрационныеДанные.Вставить("БезопасныйРежим", ложь);

РегистрационныеДанные.Вставить("Информация", "Обработка "+Синоним);

ТЗ_Команды = Новый ТаблицаЗначений;

ТЗ_Команды.Колонки.Добавить("Идентификатор");

ТЗ_Команды.Колонки.Добавить("Использование");

ТЗ_Команды.Колонки.Добавить("Представление");

НоваяСтрока = ТЗ_Команды.Добавить();

НоваяСтрока.Идентификатор = "ОткрытьОбработку";

НоваяСтрока.Использование = "ОткрытиеФормы";

НоваяСтрока.Представление = "Обработка БВ";

РегистрационныеДанные.Вставить("Команды", ТЗ_Команды);

Возврат РегистрационныеДанные;

КонецФункции

Ну и подключить её через соответствующий пункт вашей конфигурации (например «Дополнительные внешние отчеты и обработки»).

Оставить комментарий безопасность, внешняя обработка

« 1 … 14 15 16 17 18 … 48 »

Пн	Вт	Ср	Чт	Пт	Сб	Вс
			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	31