Поступление на Р/С.

[densh]

Добрый день.
Спасибо за ответы и решения на предыдущие вопросы.

Р\Счет поступление - 300 грн.
Дополнительная проводка по Кредиту на сумму 7 грн.
Дополнительная проводка по Дебету на сумму 20 грн.

Скриншот 2015-04-09 14.31.58.png (30.01 КБ) Просмотров: 1514

Почему Весь банк не показывает проводки по Кр?

Скриншот 2015-04-09 14.29.48.png (25.38 КБ) Просмотров: 1514

Спасибо!

[dmitry]

Это всего лишь список документов. Тут программа учитывает по Дб поступления, по Кр - платежки.
Поэтому для списания 7 грн можете заполнить Документы/Банк/Оплата.
Или смотрите отчет "По счетам", там просто суммируются обороты по каждому счету.

[densh]

Спасибо. Но тоже самое если сделать по приходу в Кассу, то показывается и Дб и Кр.

Скриншот 2015-04-09 16.01.39.png (38.5 КБ) Просмотров: 1507

Скриншот 2015-04-09 16.10.22.png (22.83 КБ) Просмотров: 1507

Мне удобно в всей кассе работать.
Нельзя сделать, чтобы весь банк так же отображал Кр? У меня на каждый приход по банку есть комиссия банковская. Каждый раз создавать доп документ неудобно.

[dmitry]

- Скопировать текст ниже.
- Нажать в программе Ctrl+F10,
- вставить скопированный текст, нажать "ОК".

Dim Q As DAO.QueryDef, Str As String
Q = DB.QueryDefs("BankAccCr")
Str = "SELECT Documents.Integ AS BankAccID, "
Str=Str & "IIf(Documents.DocDate<[DStart],-DocumentRows.Quantity*DocumentRows.BuhPrice,0) AS Start, "
Str=Str & "0 AS Db, "
Str=Str & "IIf(Documents.DocDate>=[DStart],DocumentRows.Quantity*DocumentRows.BuhPrice,0) AS Cr, "
Str=Str & "[DocumentRows]![CrID] AS AccID, DocumentRows.OfficeID, DocumentRows.PersonID, DocumentRows.RowID "
Str=Str & "FROM Documents INNER JOIN DocumentRows ON Documents.ID = DocumentRows.DocID "
Str=Str & "WHERE Documents.DocDate<=[DEnd] AND Documents.State=-1 AND DocumentRows.FlagCr=-1 "
Str=Str & "AND DocumentRows.CrID=13 AND DocumentRows.AccountType=0"
Q.SQL = Str

[densh]

Спасибо! Уже легче.
Но на этом вопросы не закончились.

1. Весь банк не показывает доп. проводки по Дб, при оплате с Р/С

Скриншот 2015-04-10 19.07.52.png (45.29 КБ) Просмотров: 1490

2. Когда провожу Разовую операцию Весь банк показывает счет без названия (а должен быть БАНК1), при чем Дб не отображается.

Скриншот 2015-04-10 19.14.26.png (43.72 КБ) Просмотров: 1490

Весь банк вводит в заблуждение.
Можно ли сделать, чтоб этот счет без названия не появлялся, а все "падало" на счет по умолчанию?
Помогите это довести до соответствия с Реальный учет/По счетам/Банк.
Вся касса показывает все правильно и соответствует Реальный учет/По счетам/Касса.

[dmitry]

Скопировать, Ctrl+F10, вставить.

Dim Q As DAO.QueryDef, Str As String
Q = DB.QueryDefs("BankAccDb")
Str = "SELECT Documents.Integ AS BankAccID, "
Str=Str & "IIf(Documents.DocDate<[DStart],-DocumentRows.Quantity*DocumentRows.BuhPrice,0) AS Start, "
Str=Str & "IIf([Documents].[DocDate]>=[DStart],DocumentRows.Quantity*DocumentRows.BuhPrice,0) AS Db, "
Str=Str & "0 AS Cr, "
Str=Str & "DocumentRows.DbID AS AccID, DocumentRows.OfficeID, DocumentRows.PersonID, DocumentRows.RowID "
Str=Str & "FROM Documents INNER JOIN DocumentRows ON Documents.ID = DocumentRows.DocID "
Str=Str & "WHERE Documents.DocDate<=[DEnd] AND Documents.State=-1 "
Str=Str & "AND DocumentRows.FlagDb=-1 AND DocumentRows.DbID=13"
Q.SQL = Str
Q = DB.QueryDefs("BankAccSum")
Str = "SELECT BankAccDb.* FROM BankAccDb "
Str=Str & "UNION SELECT BankAccCr.* FROM BankAccCr"