ФОРУМ "Предприниматель 4"

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

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


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


Спасибо!

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

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



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

- Скопировать текст ниже.
- Нажать в программе 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

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

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


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


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

Скопировать, 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"