проводки

проводки

Сообщение Светлана29 » Вс окт 22, 2017 9:52 am

не могу понять почему проводки разные,накладные расходы то учитывает,то нет
Вложения
3.png
и не могу создать 2продажу торг точки"
3.png (64.97 КБ) Просмотров: 91
2.png
как-то странно проводятся документы с накладными расходами
2.png (61.14 КБ) Просмотров: 91
1.png
как-то странно проводятся документы
1.png (63.58 КБ) Просмотров: 91
Светлана29
 
Сообщения: 16
Зарегистрирован: Пн июл 10, 2017 3:31 pm

Re: проводки

Сообщение dmitry » Пн окт 23, 2017 5:26 am

Я понял, что первый вопрос - "Не могу создать операцию Продажа торговой точки".
Текст, должен быть такой (скопировать, Ctrl+F10, вставить):

Dim R As Predpr.TableSQL
Dim OpStr As String = "Продажа торг. точки"
Dim ID As Integer
R = DB.OpenRecordset("BuhTempls", 2)
R.FindFirst("TextName='" & OpStr & "' and ParentID=2")
If R.NoMatch = True Then
R.AddNew()
R("TextName") = OpStr
R("BlankID") = 3
R("ParentID") = 2
R.Update()
R.MoveLast()
End If
ID = R("ID")
R.Close()
DB.Execute("DELETE BuhTemplRows.* FROM BuhTemplRows WHERE BuhTemplRows.TemplID=" & ID & ";")
R = DB.OpenRecordset("BuhTemplRows", 2)
R.AddNew()
R("TemplID") = ID
R("TransNum") = 1
R("Caption") = "Реализация"
R("FlagDb") = 0
R("AccDbID") = 37
R("AccCrID") = 1
R.Update()
R.AddNew()
R("TemplID") = ID
R("TransNum") = 2
R("Caption") = "Себестоимость"
R("AccDbID") = 1
R("AccCrID") = 12
R.Update()
R.AddNew()
R("TemplID") = ID
R("TransNum") = 3
R("Caption") = "Перевести долг"
R("FlagCr") = 0
R("AccDbID") = 37
R("PersonFormula") = "CopyOffice(1)"
R("SumFormula") = "CopySum(1)"
R.Update()
R.AddNew()
R("TemplID") = ID
R("AccountType") = 1
R("TransNum") = 1
R("Caption") = "Доходы в отчетность"
R("FlagDb") = 0
R("FlagCr") = 0
R("AccDbID") = 17
R.Update()
R.AddNew()
R("TemplID") = ID
R("AccountType") = 1
R("TransNum") = 2
R("Caption") = "Налоговые обязательства"
R("FlagDb") = 0
R("FlagCr") = 0
R("AccDbID") = 18
R.Update()
R.AddNew()
R("TemplID") = ID
R("AccountType") = 1
R("TransNum") = 3
R("Caption") = "Себестоимость (общ. сист.)"
R("FlagDb") = 0
R("FlagCr") = 0
R("AccCrID") = 17
R.Update()
R.Close()
Predpr.DataMain.AppData.TemplsCollection.DAOrecordset.Requery()

Второй вопрос - проводки, когда есть сумма накладных расходов.
Воспроизвел ситуацию у себя - проводки выглядят иначе, все корректно. Позвоните (телефоны - в Справка / О программе), подключусь через TeamViewer, рассмотрим конкретный случай.

1.png
1.png (13.51 КБ) Просмотров: 81
dmitry
Разработчик
 
Сообщения: 2752
Зарегистрирован: Чт янв 27, 2011 3:43 pm


Вернуться в Использование программы

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4