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

Часто высказывалось пожелание, чтобы в розничной торговле при импорте оплат из клиент-банка к зачисленной сумме добавлялся списанный эквайринг (расчеты с покупателями были на полную сумму) и вычитался отдельно в качестве расходов.

После обновления 4.2.61 можно внести индивидуальные настройки, чтобы действовала эта логика.
Открыть Документы/Банк/Поступление, нажать вверху "Выбор операции" и нажать "Изменить"
Добавить вторую проводку:


Нажать внизу кнопку "Программа", скопировать и вставить текст:

Dim Ekv as decimal = 2
if Op.DocTransCalc.Count =1 then
Microsoft.VisualBasic.Msgbox ("Нет бухгалтерской проводки для суммы комиссионных",,"Проверить")
Exit sub
end if
Dim EkvSum as decimal, StartSum as decimal
Dim Trans as Predpr.TransRow, Srow as Predpr.SubRow
Trans = Op.DocTransCalc(2)
if Trans.BuhSum=0 then
EkvSum = Op.DocSum/(100-Ekv)*Ekv
Trans.BuhSum = EkvSum
Trans = Op.DocTransCalc(1)
Trans.SubRows.Clear
Trans.BuhSum = Op.DocSum + EkvSum
Op.DocSum = Trans.BuhSum
else
Exit sub
end if
StartSum = Op.DocSum - EkvSum
Op.DocMemo = StartSum.ToString("0.00") & " + " & EkvSum.ToString("0.00")
If Op.Form is nothing = False Then
Op.Form.SetBoxText ("BoxMemo", Op.DocMemo)
Op.Form.SetBoxText ("BoxSum", Op.DocSum.ToString("0.00"))
end if

Процент комиссии можно изменить в первой строчке. Сейчас указано = 2.
Если не справитесь самостоятельно, звоните.