dmitry » Чт май 05, 2011 7:41 am
Главное - кроме передачи товара и оплаты за часть проданного должен быть еще документ о продаже этих товаров из магазина конечному покупателю. Это будет расходная накладная, где в графе "От кого" будет магазин, "Кому" - "Конечный покупатель". После этого будет видно, какие наши товары на какую сумму остались в магазине, будет известна прибыль.
Обычно взаиморасчеты происходят с покупателем, т.е. если товар на 500 грн получил "Конечный покупатель" (долг числится за ним), деньги должны поступить от него же (долг закроется). Можно назвать его "Покупатель магазина 1", "Покупатель магазина 2" и т.д.
Другой вариант, чтобы все расчеты происходили с магазином, долг числился за ним: создать операцию "Продажа из торговой точки" и применять ее в накладной "От магазина - Конечному покупателю". Создать ее можно автоматически:
- скопировать приведенный ниже текст,
- нажать в программе Ctrl+F10,
- вставить скопированный текст в появившееся окно, нажать "ОК".
Dim OpStr As String = "Продажа торг. точки"
Dim ID As Integer
Dim R As DAO.Recordset = DB.OpenRecordset("BuhTempls", 2)
R.FindFirst("TextName='" & OpStr & "' and ParentID=2")
If R.NoMatch = True Then
R.AddNew()
R("TextName").Value = OpStr
R("BlankID").Value = 3
R("ParentID").Value = 2
R.Update()
R.MoveLast()
End If
ID = R("ID").Value
R.Close()
DB.Execute("DELETE BuhTemplRows.* FROM BuhTemplRows WHERE BuhTemplRows.TemplID=" & ID & ";")
R = DB.OpenRecordset("BuhTemplRows", 2)
R.AddNew()
R("TemplID").Value = ID
R("TransNum").Value = 1
R("Caption").Value = "Реализация"
R("FlagDb").Value = 0
R("AccDbID").Value = 37
R("AccCrID").Value = 1
R.Update()
R.AddNew()
R("TemplID").Value = ID
R("TransNum").Value = 2
R("Caption").Value = "Себестоимость"
R("AccDbID").Value = 1
R("AccCrID").Value = 12
R.Update()
R.AddNew()
R("TemplID").Value = ID
R("TransNum").Value = 3
R("Caption").Value = "Перевести долг"
R("FlagCr").Value = 0
R("AccDbID").Value = 37
R("PersonFormula").Value = "CopyOffice(1)"
R("SumFormula").Value = "CopySum(1)"
R.Update()
R.AddNew()
R("TemplID").Value = ID
R("AccountType").Value = 1
R("TransNum").Value = 1
R("Caption").Value = "Доходы в отчетность"
R("FlagDb").Value = 0
R("FlagCr").Value = 0
R("AccDbID").Value = 17
R.Update()
R.AddNew()
R("TemplID").Value = ID
R("AccountType").Value = 1
R("TransNum").Value = 2
R("Caption").Value = "Налоговые обязательства"
R("FlagDb").Value = 0
R("FlagCr").Value = 0
R("AccDbID").Value = 18
R.Update()
R.AddNew()
R("TemplID").Value = ID
R("AccountType").Value = 1
R("TransNum").Value = 3
R("Caption").Value = "Себестоимость (общ. сист.)"
R("FlagDb").Value = 0
R("FlagCr").Value = 0
R("AccCrID").Value = 17
R.Update()
R.Close()
Predpr.DataMain.AppData.TemplsCollection.DAOrecordset.Requery()