счет который падает на долг

[Dorian]

Добрый день, Дмитрий.

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

[Dorian]

Дмитрий, прошу Вас ответить на данный вопрос, т.к. он очень актуален!

[dmitry]

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

[Dorian]

Задача стоит в том, что клиент заказывает товар, который изготавливается (в моем случае металлопластиковые окна).
Мы создаем на клиента счет, делаем выбор операции -> Заказ покупателя(создали сами вид операции, в настройках которого указали ДБ Долги/покупатели)

Таким образом, создав счет, сумма отображается как долг контрагента. Но вот в расходной накладной создали операцию "Отгрузка заказа", в которой вышеупомянутое ДБ Долги/покупатели отключили.

Проблема вся в том, что если менеджер не изменит "Выбор операции" с "Продажа" на "Отгрузка заказа", то та же самая сумма падает на долг контрагента снова.
Поэтому вопрос - может можно как-то создать программу для расходной накладной, которая автоматом будет отслеживать, если накладная создана на основании счета, или сама по себе, то операция выбирается "Продажа", а если на основании "Заказ покупателя" то операция автоматом выберется "Отгрузка заказа" ???

[dmitry]

Сейчас в программе появилась такая возможность - реализовать для отдельного случая свою логику.
Мне понадобится список операций для счета и накладной, для этого:
- Скопировать следующий текст:

SELECT ID, TextName FROM BuhTempls WHERE ParentID In (2,3)

- Нажать в программе Ctr+F10,
- Вставить текст, нажать ОК.
- Отправить мне на на predpr4@email.com.ua скриншот или файл Excel.

[Dorian]

Сделал ))) Что получилось - во вложении

[dmitry]

Да, текст немного не такой:

Predpr.Globalfunction.ShowData("SELECT ID, TextName FROM BuhTempls WHERE ParentID In (2,3)")

[Dorian]

Таблица SELECT ID, TextName FROM BuhTempls WHERE ParentID In (2,3) 2016 год

ID TextName
101 Продажа
102 Перемещение
104 Счет на оплату
1002 Возврат покупателя
3002 Заказ на окна
3003 Отгрузка товара
3004 Заказ на товар

[dmitry]

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

Dim LinkOp As Predpr.Doc = Op.GetLinkDoc(3)
If LinkOp Is Nothing Then Exit Sub
Select Case LinkOp.TemplID
Case 3002, 3004
Op.TemplID = 3003
End Select

Когда по счету "Заказ окна" или "Заказ товара" создадите накладную, в ней первоначально будет операция "Продажа", но при проведении документа она изменится на "Отгрузка заказа".

[Dorian]

Спасибо, работает, только теперь как это все совместить с решением с курсом валют?

[dmitry]

Вы уже использовали подобную подпрограмму про себестоимость валютного товара при продаже? Тогда суммарный текст:

Dim LinkOp As Predpr.Doc = Op.GetLinkDoc(3)
If LinkOp Is Nothing Then GoTo Fin
Select Case LinkOp.TemplID
Case 3002, 3004
Op.TemplID = 3003
End Select
Fin:
If Predpr.DataMain.ReportCurrID > 1 Then
Exit Sub
End If
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)
Dim TrTempl As Predpr.TemplRow = Op.Templ.TemplRowsCalc(TrNum)
Dim RowNew As Predpr.SubRow
With TrNew
.TransNum = Op.DocTransCalc.Count + 1
.TransOfficeID = Trans.TransOfficeID
.TransPersonID = Trans.TransPersonID
.Flag = True
.SubRows.Clear()
.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
End With
Trans.AccDbID = 0
Op.DocTransCalc.Add(TrNew.TransNum, TrNew)