Всем привет,
тема такая нужно получать выписки операций по счетам из банка, то есть импортировать в базу в автоматическом режиме что поступило на счета в банке и что оплачено со счета.

для этого многие банки реализовали у себя специальные сервисы с общим названием directbank
немного покопав тему сложлось следующее видение:
сервисы имеют несколько интерфейсов soap (по сути передача xml определенной структуры по https) secureftp (тот же фтп но с шифрованием) и решение для 1с (свой формат обмена xml фалами через https)

общий принцип такой банку через один из интерфейсов передается документ упакованный в xml, он обрабатывается банком и выдается ответ.

в рамках получения только выписок мне показался интерфейс 1с в нем предусмотрен упрощенный режим получения выписки,
т.е. на запрос выписки не надо формировать документ подписанный при помощи сертификата, доступ к интерфейсу также без сертификатов и двухфакторных аутентификаций тупо логин и пароль, и самое главное что эта учетка не создает рисков в плане кражи средств поскольку полномочия - только получение выписки.

т.е. логически складывается такой подход
при мощи xmlhttp объекта отправляем запрос на сервер банка, в ответ получаем xml файл парсим его и кладем результат в бд.

ссылки
описание директ банк от 1с, втч список банков
http://v8.1c.ru/edi/edi_app/bank/index.htm
апи 1с https://github.com/1C-Company/DirectBank/blob/master/doc/transport-api/readme.md

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

собственно вопрос возможно кто то реализовал уже и есть опыт/примеры кода ?

https://www.sql.ru/forum/1316981/poluchenie-vypisok-iz-banka-cherez-directbank

Имеется более тысячи текстовых файлов, можно ли реализовать импорт в MS Access или в другую базу данных одним разом все эти файлы?

Файлы состоят из текста:

С:\DB\ 1.txt, 2.txt .... 1500.txt


И в результате должна формироваться база в нижеприведенной структуре :


ID(Integer)

1
2
3
*
1500

Поле 1(text)

данные состоящие из файла 1.txt
данные состоящие из файла 2.txt
данные состоящие из файла 3.txt
данные состоящие из файла *.txt
данные состоящие из файла 1500.txt

Можете также предложить готовые конвертеры для быстрой реализации данной задачи.

https://www.sql.ru/forum/1316979/import-bolshogo-kolichestva-tekstovyh-faylov-v-bazu-dannyh

Имеется Поле1 тип MEMO.
В некоторых словах (содержимого Поле1 ) имеется символ переноса слова (т.е.дефис).
Например,Поле1 содержит строку "на се-годня прогноз по-годы".
Необходимо,чтобы строка выглядела так: "на сегодня прогноз погоды".
Есть ли какие-либо "ухищрения" для подобных целей?

https://www.sql.ru/forum/1316961/vozmozhno-li-kaskadno-udalit-zadannyy-simvol-soderzhimogo-polya

Уважаемый форум,

Странная хрень: инструкция Left в SQL инструкции перестала работать и выдает ошибку "function is not available in expressions in query expression". Использую Access 365.

db.Execute ("INSERT INTO ACC_PP SELECT * FROM TBL_TEMP_PP WHERE(Left(PP_MOPI_NO,2) in (" & user_country & "))"), dbSeeChanges, dbFailOnError

Все работало до виндового апдейта до Build 1809. Может кто знает, в чем проблема или как побороть?

https://www.sql.ru/forum/1316947/left-v-sql-instrukcii-perestal-rabotat

Всем вроде бы хорош Access. И запросы в конструкторе создаются и генератор отчетов довольно гибкий.
Для небольшой конторы и не очень "накрученной" задачи можно создавать довольно эффективные приложения.

Есть правда и не очень "приятные" для разраба моменты. А именно.
Меня сильно "напрягает", что нет эффективного и простого способа масштабирования окон и элементов управления, или, так называемый ресайзинг.
- А где они есть? - спросите вы.
Встречались разработки, где это внедрено, но они довольно громоздки, что сильно увеличивает "вес" программ.
Я выхожу из этого положения пока только одним способом, - для особо требовательных к дизайну юзеров создаю эксклюзивные версии, под требуемое разрешение экрана. Благо переместить в нужное место контролы и отцентрировать таблицы или увеличить их размер для меня гораздо быстрее, чем заниматься хитромудрыми расчетами в твипах, дюймах, пикселах.
Интересно знать, а как поступаете вы?

https://www.sql.ru/forum/1316922/masshtabirovanie-okon-prilozheniy-proshu-podelitsya-opytom

Доброго времени суток!

Помогите оптимизировать запрос. Он нереально долго выполняется при небольшом объеме данных (около 40 минут для 250 тыс строк).
При этом без условия на время ([DEBITOR].D_UBJH + [DEBITOR].D_UBJJ + [DEBITOR].D_UBMM + [DEBITOR].D_UBTT >= '20140101' справляется за 20 секунд.

SELECT [DEBITOR].D_INK_NR, [DEBITOR].D_SNR, [TIT].T_NR,  
   IIF( ([TIT].T1_KZ <> 16 AND ([TIT].T1_ZV = 'j' OR [TIT].T1_ZV = 'J')  AND ([TIT].T1_GS = 'j' OR [TIT].T1_GS = 'J')) 
      OR ([TIT].T2_KZ <> 16 AND ([TIT].T2_ZV = 'j' OR [TIT].T2_ZV = 'J')  AND ([TIT].T2_GS = 'j' OR [TIT].T2_GS = 'J')) 
      OR ([TIT].T3_KZ <> 16 AND ([TIT].T3_ZV = 'j' OR [TIT].T3_ZV = 'J')  AND ([TIT].T3_GS = 'j' OR [TIT].T3_GS = 'J')) , 'YES', 'NO' ) AS ISTIT  
FROM DEBITOR, TIT 
WHERE [TIT].T_INKNR=[DEBITOR].D_INK_NR AND [TIT].T_SNR=[DEBITOR].S_SNR 
AND [DEBITOR].D_SPERR = '0' AND [DEBITOR].D_ERLDAT ='00000000'  AND [DEBITOR].D_UBJH + [DEBITOR].D_UBJJ + [DEBITOR].D_UBMM + [DEBITOR].D_UBTT >= '20140101'

Очень надеюсь на вашу помощь!

https://www.sql.ru/forum/1316913/pomogite-optimizirovat-zapros

Доброго времени суток,

Есть база, в ней две таблицы:
--tbl1 (поля А1, Б1, В1),
--tbl2 (А2, Б2)


Как сделать так, что бы когда заполняется таблица tbl1, поле B1 автоматически присваивал значение поле A2 Таблицы tbl2.
В таблице tbl2 всегда будет одна строка.

https://www.sql.ru/forum/1316888/avtozapolnenie-pole-ishodya-iz-znacheniya-drugoy-tablic

Здравствуйте,

Подскажите, пожалуйста, правильно ли написана процедура на Группу переключателей, находящейся в заголовке формы?
Есть форма как контейнер, в ней ленточная со списком фирм. Пытаюсь сделать фильтр списка переключателями, но выскакивает окно, с требованием ввести параметр (Поставщик/Покупатель/Партнер).

Private Sub Группа730_AfterUpdate()

Select Case Группа730
        Case 1
            Forms!Phonebook!objSubForm.Form.RecordSource = "Select * from Фирма where Контрагент = Поставщик"
        Case 2
            Forms!Phonebook!objSubForm.Form.RecordSource = "Select * from Фирма where Контрагент = Покупатель"
        Case 3
            Forms!Phonebook!objSubForm.Form.RecordSource = "Select * from Фирма where Контрагент = Партнер"
        Case 4
            Forms!Phonebook!objSubForm.Form.RecordSource = "Select * from Фирма order by Название"
    End Select

End Sub

https://www.sql.ru/forum/1316828/gruppa-perekluchateley-v-zagolovke-formy

Всем доброго времени суток,

Доступ в базу данных осуществляется через ввода логина и пароля, и пользователь вводит данные в основную таблицу main через форму add.
Как сделать так чтобы в таблицу main хранились логины (в поле login) пользователей которые внесли записи. Логин и пароли хранятся в таблице tblUser


ссылка на файл - https://drive.google.com/open?id=16yCZ2ON0PB_xZcgVzyaPc7zq3MW9HMRu
Вход
логин: 111
пароль:123

https://www.sql.ru/forum/1316807/zapis-po-kakim-loginom-vnesli-dannye

Дано:
СКАДА система ClearSCADA 2017.
К скаде прилагается ODBC драйвер.
Две таблицы, из которых необходимо извлечь данные
CDBPoint и CDBHistoric

В Excel с помощью MicrosoftQuery без проблем строю запрос
например SELECT TOP (500) CDBHistoric.FormattedValue
и возвращаю данные на лист Excel

Проблема:
Не могу в MSAccess 2013 создать связанную таблицу c CDBHistoric
Ее просто нет в списке! CDBPoint есть, а CDBHistoric нет. И многих таблиц и скады
нет в списке Access на создание связанных таблиц


Вопрос - чем работа MicrosoftQuery принципиально отличается от связанных таблиц Access?
Ведь используется один и тот же ODBC драйвер.

https://www.sql.ru/forum/1316775/pomogite-svyazatsya-s-tablicey

Доброго времени суток!
Вопрос больше риторический... никто не пытался создать виртуальную таблицу , не обычную таблицу, которая видна в трее в области данных (ну или не видна, в зависимости от настроек видимости ), а именно в памяти , как объект, который можно хранить и передавать к примеру как переменную, и что самое главное также виртуально ее наполнять. Я ковырял ADO+ADOX, но не достиг успехов. При помощи расширения ADOX у нас есть переменная /объект типа Table, которая входит в состав каталога модели данных ADOX. Можно создать виртуально таблицу, столбцы к ней, присвоить ADO Recordset. А потом присоединить ее Append в каталог и дальше пользоваться как обычной таблицей. Но вот почему то присоединить чисто объект Table в качестве источника данных к контролу нельзя Негодяи ...
Хотел написать для темы топика чуть снизу обработчик JSON из MS Access, без линковок и временных таблиц аксесовских, с возможностью SELECT,INSERT,UPDATE,DELETE (на стороне сервера PHP) , и чтобы JSON сразу наматывался в виртуальный объект типа Table на стороне аксесса с последующей передачей на форму (само наматывание JSON примитивное,как и сам парсинг JSON в VBA- через MSXML).

Вопрос в следующем, нет ли возможности создать в модуле полноценный виртуальный объект со свойствами готовой таблицы?

В Java можно к примеру создать класс и расширить его свойствами, которые мне нужны, присвоить ему тип, какой мне нужен (с болью, но можно ). А потом использовать его как угодно. То есть другие языки позволяют.

https://www.sql.ru/forum/1316769/tablica-kak-virtualnyy-obekt-vba

Имеется Форма1 с комбобокс1 и кнопкой1,на ней размещена ленточная подчиненная форма2 (на которой 5 полей) источником даных которой является таблица2...
На форме1 нажимается кнопка1 при которой на подчиненной форме2 появляется новая запись.
Необходимо чтобы при нажатии кнопки поле2 новой записи подчиненной формы2 принимало значение комбобокс1.
Пишу Me.ленточная подчиненная форма2.Form.Controls("Поле2").Value=Me.комбобокс1 - выдает ошибку "Невозможно присвоить значение объекту"
Чувствую что дело в синтаксисе,ведь мне нужно присвоить значению для ТЕКУЩЕЙ записи ленточной формы.Подскажите пожалуйста правильное решение

https://www.sql.ru/forum/1316735/kak-zadat-znachenie-tekushhey-zapisi-lentochnoy-formy

Имеется Форма1 с комбобокс1 и кнопкой1,на ней размещена ленточная подчиненная форма2 (на которой 5 полей) источником даных которой является таблица2...
На форме1 нажимается кнопка1 при которой на подчиненной форме2 появляется новая запись.
Необходимо чтобы при нажатии кнопки поле2 новой записи подчиненной формы2 принимало значение комбобокс1.
Пишу Me.ленточная подчиненная форма2.Form.Controls("Поле2").Value=Me.комбобокс1 - выдает ошибку "Невозможно присвоить значение объекту"
Чувствую что дело в синтаксисе,ведь мне нужно присвоить значению для ТЕКУЩЕЙ записи ленточной формы.Подскажите пожалуйста правильное решение

https://www.sql.ru/forum/1316728/kak-zadat-znachenie-tekushhey-zapisi-lentochnoy-formy

Доброго времени суток,

Как перенести фокус мыши программно, в начало маски ввода, при переходе в поле, с помощью указателя мыши?

Если переходишь по Tab, то все хорошо, фокус становится в начале маски ввода
если указателем мыши щелкнул не в начале поля, а где нибудь в середине или еще хуже в конце поля, то ввод начнется с этого места, куда ткнули и соответственно введется не весь текст

поэтому приходится наводить указатель в начало еще раз, что согласитесь не удобно.

попробовал применить этот код, но возникает проблема со стиранием текста если пользователь не правильно ввел данные.

Private Sub surname_Click()

Application.SetOption "Behavior entering field", 0
Me.surname.SelStart = 0
Me.surname.SelLength = 0

End Sub

https://www.sql.ru/forum/1316690/perenos-fokusa-myshi-v-nachalo-maski-vvoda-pri-perehode-v-pole-ukazatelem-myshi

Компания выпускает ИЗДЕЛИЯ.
ИЗДЕЛИЕ состоит из большого числа компонентов - 10000-15000
Туда входят сборочные единицы(производства компании) - уровень вложенности до 10-12, детали и покупные изделия
Сборочные единицы 50% разрабатываются заново для каждого изделия, 50% берутся из ранее разработанных.
Сейчас организовано так
Таблица MAIN - сборочные единицы и детали в неструктурированном порядке - типа общий каталог
Таблица MAIN1 - описание конкретных ИЗДЕЛИЙ, где содержится точная информация о составе(дереве) ИЗДЕЛИЯ с его полной структурой.
связь по id компонента
Пока это было только для технологов - это работало норм. Сейчас планируется расширение функций и подключение к базе с таблицами конструкторского отдела. Они будут работать не в Аксе, а через VBA модуль в программе CATIA
ВОПРОС - Как организовать правильное (оптимальное) использование сборочных единиц разработанных ранее в новых проектах.
Примечание 1- уникальность состава сборочной единицы естественно обеспечивается, при изменении состава единицы хоть на 1 винт - это уже новая сборочная единица.
вижу 2 варианта
1) получать данные о структуре сборки из табл MAIN1(брать из какого-то уже выполненного изделия) и при необходимости копировать их в новый проект.
2) создать промежуточную таблицу, связанную с MAIN, и содержащую информацию о составе сборочных единиц
Примечание 2 Хранить точную структуру сборочных единиц в MAIN(общем каталоге) не представляется возможным, так как одна и та же сборочная единица может входить в десятки или сотни вышестоящих сборочных единиц с разным уровнем вложенности.
Вопрос локальный, я полагаю что не стоит идти сильно вглубь и вширь всей базы.....

https://www.sql.ru/forum/1316676/arhitektura-bazy

Нашел пример работы средствами DirectShow, а пощупать нечем.

Есть ли у кого-нибудь возможность переложить на VBA?

Спасибо.

Источник: http://www.vbforums.com/showthread.php?708081-VB6-DirectShow-WebCam-Minimal-Code
В прицепе архив с VB6 проектом.

https://www.sql.ru/forum/1316672/perelozhit-primer-raboty-s-vebkameroy-s-vb6-na-vba-access

Добрый день всем, прошу Вашей помощи.

Веду базу снабжения шахт материалами, пытаюсь переехать на аксес.
Общее товара необходимо разбить по шахтам (строкам) пропорционально и округленно.

Обычное округление дает неправильный итог, есть формула с нарастанием (в приложении) только как ее применить в аксес?
Попробовал в запросе воспроизвести, но выдает ошибку о циклической ссылке.

SELECT 
t1.order_id, 
t1.order_quantity, 
Nz(Sum(t2.order_quantity),0)+t1.order_quantity AS OrderTop, 
Nz(Sum(OrderTop2),0) AS OrderTop2
FROM test AS t1 LEFT JOIN test AS t2 
ON t1.order_id > t2.order_id
GROUP BY t1.order_id, t1.order_quantity;

В приложении формула округления и часть сметы для понимания. Заранее спасибо.

https://www.sql.ru/forum/1316654/okruglit-slagaemye-proporcionalno-i-vyyti-na-okruglennuu-summu

Всем добрый день.
Наткнулся на проблему при выгрузке отчета в pdf. В базе формируются отчеты, на которых присутствует изображение (внедренный объект) - Печать. Отчет выбирается в ПолеСоСписком0 и далее процедура экспорта. Сам экспорт работает, а вот саму Печать не экспортирует. Хотя при печати на pdf принтер все нормально передается. Подскажите как подправить процедуру экспорта, чтобы передавалась картинка.
Заранее благодарен.

+

Private Sub Экспорт_Pdf_Click() Dim sReportName$, sFolderName$, sFileName$, sFilePath$, blRet$, sDir$ sDir = CurrentProject.path 'Задаём постоянное место расположения папки sDir = sDir & "\Експорт\" Dim s$ s = Replace(Trim([Forms]![Расходная]![Грузополучатель]), """", "") 'Задаём имя вложенной папки If Dir(sDir, vbDirectory) = "" Then MkDir sDir End If 'Задаём название отчёта sReportName = Forms![Расходная]![ПолеСоСписком0] 'Папка sFolderName = sDir + s 'Задаём полное имя паки 'Задаём имя отчета sFileName = Replace(Trim([Forms]![Расходная]![Грузополучатель]), """", "") & "_" & sReportName & "_" & Format([Forms]![Расходная]![Дата_Накладной], "dd/mm/yyyy") & ".pdf" 'Проверка : If Dir(sFolderName, vbDirectory) = "" Then MkDir sFolderName If Right(sFolderName, 1) <> "\" Then sFolderName = sFolderName & "\" 'Полный путь к экспортируемому файлу ... sFilePath = sFolderName & sFileName 'Собственно Экспорт в PDF ... DoCmd.OpenReport "" & Me.ПолеСоСписком0 & "", acViewPreview DoCmd.OutputTo acOutputReport, sReportName, acFormatPDF, sFilePath, False Me.ПолеСоСписком0 = Null '"Опустошаем" значение списка отчетов (снимаем существующее выделение) Me.ПолеСоСписком0.Requery 'Обновляем список отчетов MsgBox "PDF Экспортирован: " & vbNewLine & sFilePath, vbInformation, "Report Exported as PDF" End Sub

https://www.sql.ru/forum/1316635/problema-s-peredachey-izobrazheniya-pri-eksporte-otcheta-v-pdf

Добрый времени суток народ!
Есть ленточная форма, есть поле с длинным текстом, которое не видимо на ширину поля.
Как сделать так, чтобы при наведении курсора мыши на ПОЛЕ появлялся весь текст. Как примечание в екселе.

https://www.sql.ru/forum/1316630/kak-sdelat-primechanie-na-pole

Доброго времени суток, уважаемые коллеги.

Описание проблемы:

При попытке вывода в файл формата PDF на некоторых хостах файл полностью не выводится,
например: из 10000 строк выводясмя 500, либо выводятся все строки, но время формирования файла
превосходит все мыслимые пределы.

Приложение Access удвчно завершает орперацию на 17 из 20 хостов,
одновременно подключенных к сетевой паке, в которой размещена БД.

Приложение Access выполнено по схеме файл-сервер (разделенная БД).
Причем, в случае, если файл БД размещен локально (на том же рабочем месте, что и приложение-клиент),
время формировани и записи отчета в файл не превышает 20 секунд.
Время формировани и записи отчета в файл не превышает 8 минут на сетевом хосте.
На остальных хостах, подключенных к сетевой папке возникает описанная выше проблема.
Максимальное одновременно подключенное к сетевой папке количество хостов не превшает 20
(т.е. не превышает максимально дозволенно кол-во подключений согласно стандартной версии Майкрософт).

Версия ОС, версия MS Office абсолютно идентичны на всех 20 хостах (win 7, Office 2010).
Все обновления ОС и Office крайние.
Версия Приложения создана и скомпилирована в среде MSA 10, автообновляется при запуске Приложения из
специальной папкаи UPDATE.

В чем может быть зарыта трабла?

Анализ сети специалистами показывает: дисковых ошибок обмена нет.
С их точки зрения все "окай".. Но я чувству. что не все "окай"...

Уважаемые коллеги, как мне проверить качество сетки на хостах, отказывающихся строить отчет ?

https://www.sql.ru/forum/1316627/problemy-s-vyvodom-otcheta-v-fayl-formata-pdf