ФОРУМ "Предприниматель 4" • Просмотр темы - Обновление 4.2.58

Обновление 4.2.58

Обновление 4.2.58

Сообщение dmitry » Вт фев 28, 2017 1:59 pm

1. В Сервис/Настройки - Работа/Сообщать можно выбрать, каким образом программа будет предупреждать о недостатке товара или цене ниже себестоимости.

Эти настройки сохраняются на каждом компьютере индивидуально.


2. В расходной накладной на вкладке "Настройка" можно включить режим "Заполнение сканером".

При указании товара (по штрих-коду, коду или названию, не обязательно сканером) устанавливается кол-во 1, и курсор переходит на следующую строку.


3. В Справочники/Партнеры можно включить столбец "Прайс-лист".

(С помощью кнопки "Таблица" вверху).


4. По документу Касса расход (выдано под отчет) можно создать связанный авансовый отчет. При этом будет заполнен работник и и сумма "Выдано".
Бланк приведен в соответствие с утвержденной формой.


1.png
1.png (9.54 КБ) Просмотров: 614

Связь между расходным кассовым ордером и авансовым отчетом можно установить самостоятельно, затем в авансовом отчете нажать"Пересчитать", чтобы появилась сумма "Выдано".


5. В форме 1ДФ при заполнении поставщиков-физлиц будет отдельно заполняться графа "Начислено" (по приходным накладным, актам работ, авансовым отчетам) и "Перечислено" (по платежным документам, авансовым отчетам).

(Если добавлять их не требуется, выберите в их реквизитах "Юридическое лицо").


6. Для бухгалтерского учета: в шаблоне операции можно добавить проводку по счету "643 Налоговые обязательства" или "644 Налоговый кредит", в которую будет попадать сумма НДС.

2.png
2.png (23.6 КБ) Просмотров: 614


Эти изменения необходимо вносить в комплексе: дополнить опрации "Продажа", "Услуги оказаны", "Закупка", "Услуги получены", изменить операции "Налоговые обязательства" (налоговая накладная) и "Налоговый кредит (налоговая входящая) и внести соответствующие изменения в уже существующие документы.

Если решите внести эти изменения, то чтобы сделать это автоматически:

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

(При выполнении этого кода автоматически будет создана резервная копия данных с именем "хх.хх.хх_до_изменения").

If Predpr.DataMain.UseBuhAcc = 0 then
Microsoft.VisualBasic.msgbox("В этой базе данных бухгалтерский учет не используется.",,"Отмена")
exit sub
End if
Predpr.GlobalFunction.CreateCopyDB(DB.Name, "_до_изменений")
db.execute("INSERT INTO BuhTemplRows (TemplID, TransNum, AccDbID, SumFormula, Flag ) SELECT 103, 2, 173, 'CopySumTax(2)', True")
db.execute("INSERT INTO BuhTemplRows (TemplID, TransNum, AccDbID, SumFormula, Flag ) SELECT 112, 2, 173, 'CopySumTax(2)', True")
db.execute("INSERT INTO BuhTemplRows (TemplID, TransNum, AccCrID, SumFormula, Flag ) SELECT 101, 5, 172, 'CopySumTax(2)', True")
db.execute("INSERT INTO BuhTemplRows (TemplID, TransNum, AccCrID, SumFormula, Flag ) SELECT 110, 2, 172, 'CopySumTax(2)', True")
db.execute("INSERT INTO BuhTemplRows (TemplID, TransNum, AccDbID, AccCrID, PersonFormula, SumFormula, Flag ) SELECT 119, 2, 31, 173, 'Set(-10)', 'CopySumTax(1)', True")
db.execute("INSERT INTO BuhTemplRows (TemplID, TransNum, AccDbID, AccCrID, PersonFormula, SumFormula, Flag ) SELECT 140, 2, 31, 173, 'Set(-10)', 'CopySumTax(1)', True")
db.execute("INSERT INTO BuhTemplRows (TemplID, TransNum, AccDbID, AccCrID, PersonFormula, SumFormula, Flag ) SELECT 118, 2, 172, 31, 'Set(-10)', 'CopySumTax(1)', True")
db.execute("INSERT INTO BuhTemplRows (TemplID, TransNum, AccDbID, AccCrID, PersonFormula, SumFormula, Flag ) SELECT 139, 2, 172, 31, 'Set(-10)', 'CopySumTax(1)', True")
db.execute("UPDATE BuhTemplRows SET BuhTemplRows.PersonFormula = Null, BuhTemplRows.AccDbID = 0 WHERE (((BuhTemplRows.TemplID)=119) AND ((BuhTemplRows.AccountType)=1))")
db.execute("UPDATE BuhTemplRows SET BuhTemplRows.PersonFormula = Null, BuhTemplRows.AccCrID = 0 WHERE (((BuhTemplRows.TemplID)=118) AND ((BuhTemplRows.AccountType)=1))")
db.execute("UPDATE Documents INNER JOIN DocumentRows ON Documents.ID = DocumentRows.DocID SET DocumentRows.TransNum = 6 WHERE (((Documents.TmplID)=101) AND ((DocumentRows.AccountType)=0) AND ((DocumentRows.TransNum)=5))")
db.execute("INSERT INTO DocumentRows (DocID, TransNum, CrID, Price, PriceReport, BuhPrice, BuhPriceMin, Quantity ) SELECT Documents.ID, 5 , 172 , DocSum/6 , DocSum/6 , DocSum/6 , DocSum/6 , 1 FROM Documents WHERE Documents.TmplID=101")
db.execute("INSERT INTO DocumentRows (DocID, TransNum, CrID, Price, PriceReport, BuhPrice, BuhPriceMin, Quantity ) SELECT Documents.ID, 3 , 172 , DocSum/6 , DocSum/6 , DocSum/6 , DocSum/6 , 1 FROM Documents WHERE Documents.TmplID=110")
db.execute("INSERT INTO DocumentRows (DocID, TransNum, DbID, Price, PriceReport, BuhPrice, BuhPriceMin, Quantity ) SELECT Documents.ID, 2 , 173 , DocSum/6 , DocSum/6 , DocSum/6 , DocSum/6 , 1 FROM Documents WHERE Documents.TmplID=103")
db.execute("INSERT INTO DocumentRows (DocID, TransNum, DbID, Price, PriceReport, BuhPrice, BuhPriceMin, Quantity ) SELECT Documents.ID, 2 , 173 , DocSum/6 , DocSum/6 , DocSum/6 , DocSum/6 , 1 FROM Documents WHERE Documents.TmplID=112")
db.execute("INSERT INTO DocumentRows (DocID, TransNum, DbID, CrID, Price, PriceReport, BuhPrice, BuhPriceMin, Quantity, PersonID ) SELECT Documents.ID, 2 , 172, 31 , DocSum/6 , DocSum/6 , DocSum/6 , DocSum/6 , 1, -10 FROM Documents WHERE Documents.TmplID=118")
db.execute("INSERT INTO DocumentRows (DocID, TransNum, DbID, CrID, Price, PriceReport, BuhPrice, BuhPriceMin, Quantity, PersonID ) SELECT Documents.ID, 2 , 172, 31 , DocSum/6 , DocSum/6 , DocSum/6 , DocSum/6 , 1, -10 FROM Documents WHERE Documents.TmplID=139")
db.execute("INSERT INTO DocumentRows (DocID, TransNum, DbID, CrID, Price, PriceReport, BuhPrice, BuhPriceMin, Quantity, PersonID ) SELECT Documents.ID, 2 , 31, 173 , DocSum/6 , DocSum/6 , DocSum/6 , DocSum/6 , 1, -10 FROM Documents WHERE Documents.TmplID=119")
db.execute("INSERT INTO DocumentRows (DocID, TransNum, DbID, CrID, Price, PriceReport, BuhPrice, BuhPriceMin, Quantity, PersonID ) SELECT Documents.ID, 2 , 31, 173 , DocSum/6 , DocSum/6 , DocSum/6 , DocSum/6 , 1, -10 FROM Documents WHERE Documents.TmplID=140")
db.execute("UPDATE Documents INNER JOIN DocumentRows ON Documents.ID = DocumentRows.DocID SET DocumentRows.CrID = 0 WHERE (((Documents.TmplID)=118) AND ((DocumentRows.AccountType)=1))")
db.execute("UPDATE Documents INNER JOIN DocumentRows ON Documents.ID = DocumentRows.DocID SET DocumentRows.CrID = 0 WHERE (((Documents.TmplID)=139) AND ((DocumentRows.AccountType)=1))")
db.execute("UPDATE Documents INNER JOIN DocumentRows ON Documents.ID = DocumentRows.DocID SET DocumentRows.DbID = 0 WHERE (((Documents.TmplID)=119) AND ((DocumentRows.AccountType)=1))")
db.execute("UPDATE Documents INNER JOIN DocumentRows ON Documents.ID = DocumentRows.DocID SET DocumentRows.DbID = 0 WHERE (((Documents.TmplID)=140) AND ((DocumentRows.AccountType)=1))")
dmitry
Разработчик
 
Сообщения: 2905
Зарегистрирован: Чт янв 27, 2011 3:43 pm

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

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

Сейчас этот форум просматривают: Google [Bot] и гости: 3

cron