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

Добавлено:
Пт янв 05, 2018 8:19 pm
толяка
После использования на протяжении определенного времени программы без указания каких-либо расчетных счетов в реквизитах предприятия (в программе изначальный расчетный счет имеет вид <...>) были добавлены расчетные счета. После этого поступления в банк стали распределяться по этим счетам соответсвенно. Но остатки на счете <...> зависли и перенести или обнулить их не получается. Перепровести все банковские накладные за период использования без расчетных счетов не вариант. Как навести порядок в такой ситуации?
Re: Зависли остатки на р\с по умолчанию после добавления р\с

Добавлено:
Пт янв 05, 2018 11:24 pm
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")
Re: Зависли остатки на р\с по умолчанию после добавления р\с

Добавлено:
Пт янв 05, 2018 11:54 pm
толяка
Сразу же ошибку выдает
Re: Зависли остатки на р\с по умолчанию после добавления р\с

Добавлено:
Сб янв 06, 2018 8:41 am
dmitry
Значит у вас слишком старая версия программы, обновите ее - Сервис / Обслуживание / Получить обновление.
Re: Зависли остатки на р\с по умолчанию после добавления р\с

Добавлено:
Чт янв 11, 2018 10:49 pm
толяка
Если я правильно понял логику, AccID мне нужен 4, т.к. нужен основной счет по умолчанию, он же был создан первым в процессе использования базы.
Далее выполняю команду:
Dim AccID as Integer =4
DB.execute("UPDATE Documents SET Integ = "& AccID &" WHERE TypeID In (4,5) AND Integ=0")
В результате сумма на неопределенном счете не обнуляется, а уходит в минус на сумму почти в два раза большую от изначальной. Эти средства таки переходят на нужный счет, но опять же в бОльшем количестве, чем нужно. Общая сумма на этих двух счетах "до" и "после" сходится. На остальных счетах без изменений.
Что делаю не так?