Необходимо свести все долги к нолю

[vadim]

При оприходовании товара на пртяжении 2 лет не делали касса-оплата поставщику, потому накопились немалые долги. (в проге)
Как теперь свести их к нолю, пусть это и неправильно?
пункт№1 - Делаю так, касса - расход и снимаю галочку "касса", но долг тока увеличивается.
Надо кинуть деньги, а только потом делать пункт один?
-
+ желательно, чтоб на анализе доходов не сказалось.
спс

[vik]

При оприходовании товара на пртяжении 2 лет не делали касса-оплата поставщику, потому накопились немалые долги. (в проге)
Как теперь свести их к нолю, пусть это и неправильно?
пункт№1 - Делаю так, касса - расход и снимаю галочку "касса", но долг тока увеличивается.
Надо кинуть деньги, а только потом делать пункт один?
-
+ желательно, чтоб на анализе доходов не сказалось.
спс

В кассе расход если вы снимаете галочку "касса" то галочка "долги поставщики" по ДБ должна стоять, долг должен уменьшиться на сумму которая указана в кассе, при этом У Вас с кассы деньги не снимаются так как снята птичка "касса" по КР

[vik]

Вот так это выглядит в долгах

[dmitry]

Можете удалить эти фиктивные документы по кассе, а поступить так:
1. Выбрать в отчете "Долги" вариант "Сальдо развернуто" и группу Поставщики.

рис1.jpg (92.75 КБ) Просмотров: 2740

2. В Справочники/Партнеры включить столбец "Начальный долг".
Если в отчете сумма проходит по кредиту (мы должны), то здесь внести эту же сумму по дебету, выбрав счет "Долги/Поставщики".

рис2.jpg (95.94 КБ) Просмотров: 2740

[vadim]

на главное страницы по долгам такие цифры
85000 187123 101301
-------------------------------------------------------
после проделланной выше оперции по нач долгу стает следущее:
85000 202123 116301
-------------------------------------------------------
Так должно быть?
Ведь мне надо свести долги как-то к нулям.

[dmitry]

Во-первых, мы говорили только про поставщиков.
Во-вторых, если выполнить мои рекомендации, то на сегодня долга перед ними не будет.
В-третьих, в отчете "Долги" информация подробней. Если посмотреть сумму на конец периода по одному из поставщиков, с которым проделали эти действия, - она =0?

[vadim]

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

[dmitry]

Просто выполнить рекомендации:

1. Выбрать в отчете "Долги" вариант "Сальдо развернуто"
2. В Справочники/Партнеры включить столбец "Начальный долг".

не только по поставщикам и дебету счета Долги/Поставщики, а понимая общий принцип - та же сумма с противоположным смыслом - как начальный баланс.

[vadim]

так можно свести к 0-м долгам все операции, даже там, где нет партнера (обычная розница) ?

[dmitry]

Если в каких-то накладных покупатель не заполнен, то неизвестно, по кому корректировать сумму.
Но обычно в таких накладных стоит "Конечный потребитель".

[vadim]

в накладной ничего не стоит, просто товар-расход-провести

[dmitry]

так можно свести к 0-м долгам все операции, даже там, где нет партнера (обычная розница) ?

Если бы я ответил "можно", то по какому покупателю вы вводили бы корректировку?
Если нужно видеть состояние расчетов с розничными покупателями, сначала пройдитесь по этим накладным и проставьте в каждой "Конечный потребитель".

[vadim]

3256 накладных )
да и где там ставить конечный потребитель? есть только те, кого создал.

[vadim]

где взять "конечного потребителя"?
во всех накладных при продаже в розницу просто ставили пустое поле.

[dmitry]

Чтобы по всем имеющиеся на сегодня документам, где не указан покупатель, не считался долг:
- Скопировать текст ниже.
- Нажать в программе Ctrl+F10/
- Вставить текст, нажать ОК.

Dim SetStr As String, UpdStr As String, WhereStr As String, TypeStr As String
UpdStr = "UPDATE Documents INNER JOIN DocumentRows ON Documents.ID = DocumentRows.DocID "
SetStr = "SET DocumentRows.FlagDb = 0 "
WhereStr = "WHERE DocumentRows.AccountType=0 AND DocumentRows.TransNum=1 AND Documents.PersonID=0 "
TypeStr = "AND Documents.TypeID=2"
DB.Execute(UpdStr & SetStr & WhereStr & TypeStr)
SetStr = "SET DocumentRows.FlagCr = 0 "
TypeStr = "AND Documents.TypeID=6"
DB.Execute(UpdStr & SetStr & WhereStr & TypeStr)