kicim писал(а):Как сделать перемещение по кассе и банке между подразделениями?
Перемещение наличных в кассе (в кассе появится операция перемещение наличных)
- Скопировать текст ниже.
- Нажать в программе 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=7")
If R.NoMatch = True Then
R.AddNew()
R("TextName") = OpStr
R("BlankID") = 12
R("ParentID") = 7
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("AccCrID") = 14
R.Update()
R.AddNew()
R("TemplID") = ID
R("TransNum") = 2
R("Caption") = "Во втором получили"
R("AccDbID") = 14
R("OfficeFormula") = "CopyPerson(1)"
R("PersonFormula") = "CopyOffice(1)"
R("SumFormula") = "CopySum(1)"
R.Update()
R.Close()
Predpr.DataMain.AppData.TemplsCollection.DAOrecordset.Requery()
а для банка уже есть операция в "Банк расход" выбор операции "Со счета на счет"