Цитата: nik_ll ➤ может и быстрее, только как но, как это сформулировать?) на стороне 1С есть толковый спец, но он не в курсе как дергать напрямую в 1С из pg, так же как пока не в курсе про web-сервисы и их обратную связь (как и я доверяет то что можно потрогать, т.е. файлам..)
Как то так примерно))
/////////////////////
кон = ПолучитьСоединение();
Попытка
Состояние("Подключение к базе PostgreSQL...");
кон.open();
Сообщить("База PostgreSQL подключена");
Исключение
Сообщить("Не могу подключиться к базе PostgreSQL " + ОписаниеОшибки());
кон = Неопределено;
КонецПопытки;
наборзаписейсмены = получитьНаборЗаписейСмены(кон);
/////////////////////////////
Функция ПолучитьСоединение()
Connection = Новый COMОбъект("ADODB.CONNECTION");
Connection.Provider = "MSDASQL.1";
Connection.ConnectionString = "Driver={PostgreSQL Unicode};data source=PostgreSQL35W;
|Server="+IP_Кассы+";
|Port=5432;Database=cash;
|Uid=postgres;
|Pwd=postgres;STMT=utf8";
Возврат Connection;
КонецФункции
///////////////////////////
Функция получитьНаборЗаписейСмены(кон)
Команда = Новый COMОбъект("ADODB.Command");
Попытка
Команда.ActiveConnection = кон;
Команда.CommandText = Команда.CommandText + "SELECT id, cashnum, numshift, shiftclose, shiftopen, shiftcreate, shopindex FROM public.ch_shift;";
НаборЗаписейСмены = Команда.Execute();
Состояние("Данные получены.");
Исключение
Сообщить("Нет данных.");
КонецПопытки;
ТЗ = Новый ТаблицаЗначений;
тз.Колонки.Добавить("id");
тз.Колонки.Добавить("cashnum");
тз.Колонки.Добавить("numshift");
тз.Колонки.Добавить("shiftclose");
тз.Колонки.Добавить("shiftopen");
тз.Колонки.Добавить("shiftcreate");
тз.Колонки.Добавить("shopindex");
Пока НаборЗаписейСмены.EOF = Ложь Цикл
стр = тз.Добавить();
стр.id = НаборЗаписейСмены.Fields("id").Value;
стр.cashnum = НаборЗаписейСмены.Fields("cashnum").Value;
стр.numshift = НаборЗаписейСмены.Fields("numshift").Value;
стр.shiftclose = НаборЗаписейСмены.Fields("shiftclose").Value;
стр.shiftopen = НаборЗаписейСмены.Fields("shiftopen").Value;
стр.shiftcreate = НаборЗаписейСмены.Fields("shiftcreate").Value;
стр.shopindex = НаборЗаписейСмены.Fields("shopindex").Value;
НаборЗаписейСмены.MoveNext();
КонецЦикла;
Возврат тз;
КонецФункции
Кстати, что касается веб обмена, файлы там все равно присутствуют и их можно потрогать, если точку останова в нужном месте воткнуть)