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

Решение, которое закрывает многолетнюю дискуссию о себестоимости валютного товара при продаже (viewtopic.php?f=1&t=2028&start=15).
Программа вычисляет ее по курсу, который был на момент приобретения, а пользователи считают, что нужно пересчитывать по сегодняшнему курсу.

Чтобы действовал второй вариант: в расходной накладной нажать вверху "Выбор операции" (будет выделена "Продажа"), нажать "Изменить", в шаблоне операции нажать "Программа".



Скопировать и вставить следующий текст:

If Predpr.DataMain.ReportCurrID > 1 Then Exit Sub
Dim Row As Predpr.SubRow, Trans As Predpr.TransRow, TrNum As Integer
If Predpr.DataMain.UseBuhAcc = False Then
TrNum = 2
Else
TrNum = 4
End If
Trans = Op.DocTransCalc(TrNum)
For Each Row In Trans.SubRows.Values
If Row.CurrID > 1 Then
GoTo Start
End If
Next
Exit Sub
Start: Dim TrNew As New Predpr.TransRow(Op, Trans.TransOfficeID, Trans.TransPersonID)
Dim TrTempl As Predpr.TemplRow = Op.Templ.TemplRowsCalc(TrNum)
Dim RowNew As Predpr.SubRow
.Flag = True
.FlagDb = True
.AccDbID = TrTempl.TransRow.AccDbID
For Each Row In Trans.SubRows.Values
RowNew = New Predpr.SubRow(TrNew, Row.ArticleID, Row.Qnt)
RowNew.CurrID = Row.CurrID
RowNew.Price = Row.Price
Row.AccDbID = 0
Next
Trans.AccDbID = 0
Op.DocTransCalc.Add(TrNew.TransNum, TrNew)

Это будет действовать так:
Если среди товаров не было закупки в валюте, при продаже останутся обычные настройки:


Если были валютные, то при проведении документа они изменятся:

Приветствую! Такой вопрос, что-бы действовало нововведение нужно каждый раз для каждой отдельно взятой расходной копировать и вставлять текст "программы" или это достаточно сделать один раз и оно будет дальше действовать для всех расходных?

Один раз.

У нас при нажатии сохранить выдает какую то ошибку?

Немного изменил текст, чтобы его правильно воспринимал SQL Server (это было из-за незаметной одинарной кавычки).
Скопируйте и сохраните его заново.

Ок!Спасибо!Получилось!

Решение ситуации, когда товар имел цены в $, оплатили его в $, но за прошедшее время курс изменился, и в грн долг не закрывается (viewtopic.php?f=1&t=2028).

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


Задать название "Расплатился полностью" или "Полный расчет" и нажать "Программа".



Скопировать и вставить следующий текст:

Dim PokupID As Integer = Op.PersonID
If PokupID = 0 Then Exit Sub
Dim CaseInt As Integer, Trans As Predpr.TransRow, R As Predpr.TableSQL
Dim Str As String = "SELECT Sum(PriceReport*Quantity*[Sign]) AS [Sum] FROM Data_Persons "
Str = Str & "WHERE PersonID=" & PokupID & " AND DocDate<=" & Predpr.GlobalFunction.SQLdate(Op.DocDate) & " AND DocID<>" & Op.ID
R = Predpr.DataMain.DBmain.OpenRecordset(Str)
Dim OpSum As Decimal = Predpr.GlobalFunction.InTargetCurr(Predpr.DataMain.ReportCurrID, 1, Op.DocSum, Op.DocDate)
Dim Sum As Decimal = R("Sum") - OpSum
R.Close()
Select Case Sum
Case Is > 0.01
CaseInt = 1
Case Is < -0.01
CaseInt = 2
Case Else
Exit Sub
End Select
Dim TempID As Integer = Predpr.DataMain.Tmpl_RateMinus
Dim TemplKurs As Predpr.Templ = Predpr.DataMain.AppData.TemplsCollection.Item(TempID)
Dim TrTempl As Predpr.TemplRow = TemplKurs.TemplRowsCalc(1)
Dim AccKursID As Integer = TrTempl.TransRow.AccDbID
If Op.DocTransCalc.Count > 1 Then
Op.DocTransCalc.Remove(2)
End If
Trans = Op.DocTransCalc(1)
Dim TrNew As New Predpr.TransRow(Op, Op.OfficeID, PokupID)
Dim AbsSum As Decimal = System.Math.Abs(Sum)
TrNew.FlagDb = True
TrNew.FlagCr = True
Select Case CaseInt
Case 1
TrNew.AccDbID = AccKursID
TrNew.AccCrID = Trans.AccCrID
Microsoft.VisualBasic.MsgBox(AbsSum.ToString("0.00") & " долга списано на убытки", , "Курсовая разница")
Case 2
TrNew.AccCrID = AccKursID
TrNew.AccDbID = Trans.AccCrID
Microsoft.VisualBasic.MsgBox(AbsSum.ToString("0.00") & " долга зачислено в доход", , "Курсовая разница")
End Select
Dim SRow As New Predpr.SubRow(TrNew)
SRow.Qnt = 1
SRow.Price = AbsSum
SRow.CurrID = Predpr.DataMain.ReportCurrID
Op.DocTransCalc.Add(2, TrNew)


Для расчетов с поставщиками, аналогично - Документы/Касса/Расход, создать операцию "Расплатились полностью", ввести следующий текст:

Dim PokupID As Integer = Op.PersonID
If PokupID = 0 Then Exit Sub
Dim CaseInt As Integer, Trans As Predpr.TransRow, R As Predpr.TableSQL
Dim Str As String = "SELECT Sum(PriceReport*Quantity*[Sign]) AS [Sum] FROM Data_Persons "
Str = Str & "WHERE PersonID=" & PokupID & " AND DocDate<=" & Predpr.GlobalFunction.SQLdate(Op.DocDate) & " AND DocID<>" & Op.ID
R = Predpr.DataMain.DBmain.OpenRecordset(Str)
Dim OpSum As Decimal = Predpr.GlobalFunction.InTargetCurr(Predpr.DataMain.ReportCurrID, 1, Op.DocSum, Op.DocDate)
Dim Sum As Decimal = R("Sum") + OpSum
R.Close()
Select Case Sum
Case Is > 0.01
CaseInt = 1
Case Is < -0.01
CaseInt = 2
Case Else
Exit Sub
End Select
Dim TempID As Integer = Predpr.DataMain.Tmpl_RateMinus
Dim TemplKurs As Predpr.Templ = Predpr.DataMain.AppData.TemplsCollection.Item(TempID)
Dim TrTempl As Predpr.TemplRow = TemplKurs.TemplRowsCalc(1)
Dim AccKursID As Integer = TrTempl.TransRow.AccDbID
If Op.DocTransCalc.Count > 1 Then
Op.DocTransCalc.Remove(2)
End If
Trans = Op.DocTransCalc(1)
Dim TrNew As New Predpr.TransRow(Op, Op.OfficeID, PokupID)
Dim AbsSum As Decimal = System.Math.Abs(Sum)
TrNew.FlagDb = True
TrNew.FlagCr = True
Select Case CaseInt
Case 1
TrNew.AccDbID = AccKursID
TrNew.AccCrID = Trans.AccDbID
Microsoft.VisualBasic.MsgBox(AbsSum.ToString("0.00") & " долга списано на убытки", , "Курсовая разница")
Case 2
TrNew.AccCrID = AccKursID
TrNew.AccDbID = Trans.AccDbID
Microsoft.VisualBasic.MsgBox(AbsSum.ToString("0.00") & " долга зачислено в доход", , "Курсовая разница")
End Select
Dim SRow As New Predpr.SubRow(TrNew)
SRow.Qnt = 1
SRow.Price = AbsSum
SRow.CurrID = Predpr.DataMain.ReportCurrID
Op.DocTransCalc.Add(2, TrNew)

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


Если образуется разница, она будет добавлена:


Кроме того появится сообщение об этих действиях:


или:

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

2. Имеются продажа и покупка:


3. Сделаны операции "Полная оплата" в соответствии с приведенной выше инструкцией.
Дальше в следующем сообщении, ибо больше 3 скринов не дает в одно сообщение вставить

Продолжаем.
4. Проводим оплату по оказанной услуге:


5. Получаем такое сообщение:

6. Проводим оплату и получаем разницу по полученной услуге:

А теперь имеем такую картину по долгам:

Почему? Объясните, может не так что-то делаю...
По идее, я должен был по оказанной услуге получить прибыль в размере 10 уе, и обнуление долга; а по полученной услуге - соответственно наоборот, но тоже с нулевым долгом.

ПС. Да, забыл добавить.
Если проводить оплату обычным способом - то есть касса (оплата поставщику), то, естественно, при оплате полной суммы в грн - имеем долг в 10 уе (в зависимости от того кто кому платит)

Ключевое в данной ситуации " когда товар имел цены в $, оплатили его в $, но за прошедшее время курс изменился, и в грн долг не закрывается . Долги реальный учет в гривнах тогда все закрывается. У Вас наоборот и поэтому работает некорректно.

Может быть... Но, как мне кажется, гораздо больше народа ведет учет в долларе? А нацвалюта - гривна...
И гораздо чаще возникает ситуация, когда приходящий товар приходуется в гривне, за него платят гривну (поставщику), при этом программа учитывает (фиксирует) себестоимость в долларе... А потом, при расчете с покупателем возникает непонятка с курсом. Или я не так понимаю?
Разъясните...
И опять-таки, как мне кажется, товар под реализацию или с отсрочкой - чаще всего тоже фиксируется в долларе, особенно при работе с импортным товаром, то есть почти любым...
Как быть тут?
Уточню. Мой случай.
Когда клиент рассчитывается день в день - все понятно и решаемо - есть стоимость в уе, есть текущий курс - получается цена. Все ок.
Когда клиент рассчитывается с отсрочкой, но за долларовый товар (либо цена привязана к доллару сразу) - тоже все ясно.
А если вот такой случай, как я описал? Есть гривневая услуга, есть отсроченный платеж, есть смена курса. Как правильно провести, чтоб и долг закрыть, и новых не создать, и понять - на какую сумму попал или не попал?... Или если заключен договор с оплатой постфактум? Приход, поставка - учет все равно в уе... Потом б/н оплата - и долг...

ruslabigboy писал(а):Может быть... Но, как мне кажется, гораздо больше народа ведет учет в долларе? А нацвалюта - гривна...
И гораздо чаще возникает ситуация, когда приходящий товар приходуется в гривне, за него платят гривну (поставщику), при этом программа учитывает (фиксирует) себестоимость в долларе... А потом, при расчете с покупателем возникает непонятка с курсом. Или я не так понимаю?
Разъясните...
И опять-таки, как мне кажется, товар под реализацию или с отсрочкой - чаще всего тоже фиксируется в долларе, особенно при работе с импортным товаром, то есть почти любым...
Как быть тут?
Уточню. Мой случай.
Когда клиент рассчитывается день в день - все понятно и решаемо - есть стоимость в уе, есть текущий курс - получается цена. Все ок.
Когда клиент рассчитывается с отсрочкой, но за долларовый товар (либо цена привязана к доллару сразу) - тоже все ясно.
А если вот такой случай, как я описал? Есть гривневая услуга, есть отсроченный платеж, есть смена курса. Как правильно провести, чтоб и долг закрыть, и новых не создать, и понять - на какую сумму попал или не попал?... Или если заключен договор с оплатой постфактум? Приход, поставка - учет все равно в уе... Потом б/н оплата - и долг...

В данном случае проблема именно в этом как я и описал выше. Для вашего случая нужен другой вариант кода.

Это я понял.
Но вопрос остался...
Может вручную в кассовый документ можно добавить некую проводку, которая - не меняя цену товара, не меняя полученной (оплаченной) суммы, урегулирует задолженность при изменении курса?