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

1.Скачала бланк акт списания товара.Всё ок,бланк есть.Теперь хочу как-то его распечатать,провести в учёте.А как это сделать???увы...помогите.
2.Как в программе сделать инвентаризацию товара?на складе.

1. Если там, где его загружали, нажали ссылку "Выполнить инструкцию" http://automat.dp.ua/files/spisanie/spisan.html, то достаточно заполнить накладную, нажать вверху "Выбор операции" и выбрать "Списание".

2. В новой накладной нажать "Заполнить", в появившемся окне нажать "Таблица" и включить столбец "Остаток фактический". Заполнить его по тем товарам, где он отличается от расчетного.

Спасибо))

Сделал все по инструкции.
Не появилась типовая операция "Списание" в "Выбор операций"
NB! Использую бланк 2 экземпляра.

Попробовал сам - появилась.
От бланка это не зависит.

Вновь возвращаюсь к вопросу списания!!!!
От чего это может зависеть?
Выполнила инструкцию, скачала бланк, распаковала!
Не работает !
Как списать товар?

"Не работает" наверно означает, что при нажатии "Выобр операции" отсутствует операция "Списание".
Она должна быть в расходной накладной. Может быть название "Акт" ввело в заблуждение и вы его ищете в акте выполненных работ?

Долго не возвращалась к вопросу списания! но, вот, дошла и до него очередь....
"при нажатии "Выобр операции" отсутствует операция "Списание".
Она должна быть в расходной накладной. Может быть название "Акт" ввело в заблуждение и вы его ищете в акте выполненных работ?"
Операции списания нет в расходной накладной, в актах выполненных работ даже не искала.
Как быть, дальше уже не могу оттягивать?
Из-за чего не могу подтянуть операцию?

Проще уже создать ее самостоятельно.
Образец на картинке.

У Нас Предприниматель установлен через SQL
Скачали бланк Акт списания товара с http://automat.dp.ua/blank-akt-spisaniya-tovara/#more-151 - установили его на компьютере где установлен сервер SQL - "операция выполнена успешно".
Дальше Я захожу в Документы->Товары->Расход - и в Выборе операции есть три пункта (Возврат покупателя, Перемещение, Продажа) - но нету Списания.
Что Я делаю не так?

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

Бланк называется: Накладная_списание_цена.bk, если все же не найдете скачайте архив, разархивируйте в папку PrintForm, там два бланка по продажной Накладная_списание_цена.bk, по себестоимости Накладная_списание_себестоимость.bk.
Для того чтоб в расходной накладной в выпадающем списке появился бланк зайдите накладная расход>настройка>печать добавьте нужный бланк в поле имя файла найдите Накладная_списание_цена.bk

- Скопировать текст ниже.
- Нажать в программе Ctrl+F10,
- вставить скопированный текст, нажать "ОК".

Dim R As Predpr.TableSQL, Rrow As Predpr.TableSQL
Dim IDbl1 As Integer, IDbl2 As Integer
Dim ID As Integer = 1200
Dim BlStr1 As String = "Акт списания цены продажи"
Dim BlStr2 As String = "Акт списания себестоимость"
R = DB.OpenRecordset("BlankForms", 2)
R.FindFirst("Blank='" & BlStr1 & "'")
If R.NoMatch = True Then
R.AddNew()
R("Blank") = BlStr1
R.Update()
R.MoveLast()
IDbl1 = R("ID")
Else
R.Close()
Exit Sub
End If
R.Close()
R = DB.OpenRecordset("BlankFormRows", 2)
R.FindFirst("BlankID=" & IDbl1)
If R.NoMatch = True Then
R.AddNew()
R("BlankID") = IDbl1
R("TypeID") = 2
R("FileProgramm") = "Накладная_списание_цена.bk"
R.Update()
End If
R.Close()
R = DB.OpenRecordset("BlankForms", 2)
R.FindFirst("Blank='" & BlStr2 & "'")
R.AddNew()
R("Blank") = BlStr2
R.Update()
R.MoveLast()
IDbl2 = R("ID")
R.Close()
R = DB.OpenRecordset("BlankFormRows", 2)
R.FindFirst("BlankID=" & IDbl2)
If R.NoMatch = True Then
R.AddNew()
R("BlankID") = IDbl2
R("TypeID") = 2
R("FileProgramm") = "Накладная_списание_себестоимость.bk"
R.Update()
End If
R.Close()
R = DB.OpenRecordset("BuhTempls", 2)
R.FindFirst("TextName='Списание'")
If R.NoMatch = False Then
R.Edit()
R("BlankID") = IDbl1
R.Update()
R.Close()
Exit Sub
End If
DB.Execute("SET IDENTITY_INSERT BuhTempls ON")
R.AddNew()
R("ID") = ID
R("TextName") = "Списание"
R("BlankID") = IDbl1
R("ParentID") = 2
R("Flag") = 1
R.Update()
R.Close()
DB.Execute("SET IDENTITY_INSERT BuhTempls OFF")
Rrow = DB.OpenRecordset("BuhTemplRows", 2)
Rrow.AddNew()
Rrow("TemplID") = ID
Rrow("TransNum") = 1
Rrow("Caption") = "Доход и долг не возникает"
Rrow("AccDbID") = 37
Rrow("FlagDb") = 0
Rrow("AccCrID") = 1
Rrow("FlagCr") = 0
Rrow("Flag") = 1
Rrow.Update()
Rrow.AddNew()
Rrow("TemplID") = ID
Rrow("TransNum") = 2
Rrow("Caption") = "Товар списывается, себестоимость на убытки"
Rrow("AccDbID") = 1
Rrow("AccCrID") = 12
Rrow("Flag") = 1
Rrow.Update()
Rrow.Close()
Predpr.DataMain.AppData.TemplsCollection.DAOrecordset.Requery()

Да, спасибо, добавил этот код - списание появилось.

Но теперь возник еще один вопрос - Это же убыток, но Я не могу найти где учитывается сумма этого списания?
Да, как Вы писали на другой ветке форума - если посмотреть в "реальный учет" там по ДБ "Прибыль /основная деятельность" стоит галочка (с)
Но сумма на списание у Меня подгружается в 0 грн?
Цепляю скриншот.

При проведении документа программа определит себестоимость товара, сумма появится.

Да в том то и дело, что при проведении документа сумма не подгружаеться (а себестоимость товара (10,29 грн) - Я вводил вручную в накладной списании - в строку Цена, хотя себестоимость товара была известна - она определена производством данного товара, но автоматически себестоимость не подгружается).