Зависли остатки на р\с по умолчанию после добавления р\с.

[толяка]

После использования на протяжении определенного времени программы без указания каких-либо расчетных счетов в реквизитах предприятия (в программе изначальный расчетный счет имеет вид <...>) были добавлены расчетные счета. После этого поступления в банк стали распределяться по этим счетам соответсвенно. Но остатки на счете <...> зависли и перенести или обнулить их не получается. Перепровести все банковские накладные за период использования без расчетных счетов не вариант. Как навести порядок в такой ситуации?

[dmitry]

Если все неопределенные суммы должны пройти только по одному из расчетных счетов, то это можно сделать автоматически. Если часть по одному, часть по другому, то это невозможно.
Если подходит первый вариант, то чтобы выбрать нужный счет:
- скопируйте текст ниже,
- нажмите в программе Ctrl+F10,
- вставьте текст, нажмите "ОК".

Predpr.Globalfunction.ShowData("SELECT AccID, AccNum FROM PersonBanks WHERE PersonID=1")

Выберите нужное значение AccID в первом столбце и подставьте его в следующий текст:
(потом тоже скопировать, Ctrl+F10, вставить и нажать "ОК")

Dim AccID as Integer =
DB.execute("UPDATE Documents SET Integ = "& AccID &" WHERE TypeID In (4,5) AND Integ=0")

[толяка]

Сразу же ошибку выдает

[dmitry]

Значит у вас слишком старая версия программы, обновите ее - Сервис / Обслуживание / Получить обновление.

[толяка]

Если я правильно понял логику, AccID мне нужен 4, т.к. нужен основной счет по умолчанию, он же был создан первым в процессе использования базы.
Далее выполняю команду:
Dim AccID as Integer =4
DB.execute("UPDATE Documents SET Integ = "& AccID &" WHERE TypeID In (4,5) AND Integ=0")

В результате сумма на неопределенном счете не обнуляется, а уходит в минус на сумму почти в два раза большую от изначальной. Эти средства таки переходят на нужный счет, но опять же в бОльшем количестве, чем нужно. Общая сумма на этих двух счетах "до" и "после" сходится. На остальных счетах без изменений.
Что делаю не так?