Как загружать выписки напрямую из банков Точка и Авангард в 1С 7.7 без создания промежуточных файлов?

// Создаем системный объект для выполнения HTTPS-запросов
Попытка
    HttpЗапрос = СоздатьОбъект("WinHttp.WinHttpRequest.5.1");
Исключение
    Предупреждение("В системе не установлен компонент WinHttp!");
    Возврат;
КонецПопытки;

// Адрес API банка Точка для получения выписок
АдресРесурса = "https://enter.tochka.com/api/v1/statement/incoming";
ТокенДоступа = "ВАШ_BEARER_TOKEN_ИЗ_ЛИЧНОГО_КАБИНЕТА";

// Настраиваем GET-запрос (0 - асинхронный режим выключен)
HttpЗапрос.Open("GET", АдресРесурса, 0);

// Устанавливаем заголовки авторизации и формата данных
HttpЗапрос.SetRequestHeader("Authorization", "Bearer " + ТокенДоступа);
HttpЗапрос.SetRequestHeader("Content-Type", "application/json");

// Отправляем запрос на сервер банка
Попытка
    HttpЗапрос.Send();
Исключение
    Предупреждение("Не удалось связаться с сервером банка: " + ОписаниеОшибки());
    Возврат;
КонецПопытки;

// Проверяем статус ответа сервера
Если HttpЗапрос.Status <> 200 Тогда
    Предупреждение("Ошибка банка: " + HttpЗапрос.Status + " " + HttpЗапрос.StatusText);
    Возврат;
КонецЕсли;

// Получаем JSON-ответ напрямую в переменную
JSONОтвет = HttpЗапрос.ResponseText;

// Создаем объект выполнения сценариев ScriptControl
Попытка
    ScriptCtrl = СоздатьОбъект("MSScriptControl.ScriptControl");
    ScriptCtrl.Language = "javascript";
Исключение
    Предупреждение("Не удалось запустить MSScriptControl!");
    Возврат;
КонецПопытки;

// Пишем вспомогательные JS-функции для безопасного извлечения свойств
// Это необходимо, так как прямое обращение к свойствам JS-объектов из 1С 7.7 может вызывать ошибки типов
ScriptCtrl.AddCode("
|function parseJSON(jsonStr) {
|    return JSON.parse(jsonStr);
|}
|function getArrayLength(arr) {
|    return arr.length;
|}
|function getElementByIndex(arr, index) {
|    return arr[index];
|}
|function getProperty(obj, propName) {
|    return obj[propName];
|}
|");

// Выполняем парсинг JSON-строки
Попытка
    JSObject = ScriptCtrl.Run("parseJSON", JSONОтвет);
Исключение
    Предупреждение("Ошибка разбора JSON-структуры ответа банка!");
    Возврат;
КонецПопытки;

// Предположим, банк вернул объект, где транзакции лежат в массиве "payments"
МассивПлатежей = ScriptCtrl.Run("getProperty", JSObject, "payments");
КоличествоПлатежей = ScriptCtrl.Run("getArrayLength", МассивПлатежей);

Если КоличествоПлатежей = 0 Тогда
    Сообщить("Новых движений по счету не обнаружено.");
    Возврат;
КонецЕсли;

Для Номер = 0 По КоличествоПлатежей - 1 Цикл
    ТекущийПлатеж = ScriptCtrl.Run("getElementByIndex", МассивПлатежей, Номер);
    
    // Получаем реквизиты платежа
    СуммаПлатежа = Число(ScriptCtrl.Run("getProperty", ТекущийПлатеж, "amount"));
    Назначение   = Строка(ScriptCtrl.Run("getProperty", ТекущийПлатеж, "purpose"));
    ДатаПлатежа  = Строка(ScriptCtrl.Run("getProperty", ТекущийПлатеж, "date"));
    ИННКонтрагента = Строка(ScriptCtrl.Run("getProperty", ТекущийПлатеж, "counterparty_inn"));
     КППКонтрагента = Строка(ScriptCtrl.Run("getProperty", ТекущийПлатеж, "counterparty_kpp"));
    
    // Алгоритм поиска контрагента в справочнике 1С по ИНН/КПП
    СпрКонтрагенты = СоздатьОбъект("Справочник.Контрагенты");
    Если СпрКонтрагенты.НайтиПоРеквизиту("ИНН", ИННКонтрагента, 1) = 1 Тогда
        КонтрагентСсылка = СпрКонтрагенты.ТекущийЭлемент();
    Иначе
        Сообщить("Контрагент с ИНН " + ИННКонтрагента + " не найден в базе!");
        Продолжить;
    КонецЕсли;
    
    // Создаем и заполняем документ "Строка выписки (Приход)"
    ДокВыписка = СоздатьОбъект("Документ.СтрокаВыпискиПриход");
    ДокВыписка.Новый();
    ДокВыписка.ДатаДок = РабочаяДата(); // или преобразуем дату из API
    ДокВыписка.Сумма = СуммаПлатежа;
    ДокВыписка.Субконто1 = КонтрагентСсылка;
    ДокВыписка.НазначениеПлатежа = Назначение;
    
    Попытка
        ДокВыписка.Записать();
        Сообщить("Успешно загружен платеж на сумму " + СуммаПлатежа + " руб. от " + СпрКонтрагенты.Наименование);
    Исключение
        Сообщить("Ошибка записи документа для платежа от ИНН " + ИННКонтрагента);
    КонецПопытки;
КонецЦикла;

import win32com.client
import requests

# 1. Получаем данные из API банка в память скрипта
api_url = "https://enter.tochka.com/api/v1/statement/incoming"
headers = {"Authorization": "Bearer ВАШ_ТОКЕН"}
response = requests.get(api_url, headers=headers)

if response.status_code == 200:
    payments = response.json().get("payments", [])
    
    # 2. Подключаемся к работающей сессии 1С 7.7 по OLE
    try:
        one_c = win32com.client.GetActiveObject("V1CEnterprise.Application")
    except Exception:
        print("Запущенная копия 1С 7.7 не найдена!")
        exit()
        
    # 3. Передаем данные напрямую в документы 1С
    for payment in payments:
        inn = payment.get("counterparty_inn")
        amount = payment.get("amount")
        purpose = payment.get("purpose")
        
        # Находим контрагента средствами 1С
        contr_sprav = one_c.CreateObject("Справочник.Контрагенты")
        if contr_sprav.FindByAttribute("ИНН", inn, 1) == 1:
            # Создаем документ поступления
            doc = one_c.CreateObject("Документ.СтрокаВыпискиПриход")
            doc.New()
            doc.Сумма = amount
            doc.Субконто1 = contr_sprav.CurrentItem()
            doc.НазначениеПлатежа = purpose
            doc.Write()
            print(f"Документ на сумму {amount} успешно создан в 1С!")