Версия 4.1.27, полное описание

[dmitry]

1. В Сервис/Пользователи/Права можно ограничить работу пользователя одним подразделением (выделить пользователя, нажать "Изменить", нажать "Еще").
Это подразделение будет зафиксировано: при заполнении документов, при заполнении Розница/Продажи, при просмотре отчетов, в списках документов.
Особое значение это имеет при работе удаленных офисов с общей базой данных на сервере терминалов.

2. В Сервис/Розница/Продажи можно видеть наличие товаров на складе (с учетом продаж еще не перенесенных в итоговый документ).
Кнопка "Настройка" - "Остатки товара".
F10 - перейти в "Поиск" и ввести текст, Enter - перейти к списку найденных и выбрать товар, "Стрелка влево" - добавить его в чек, Enter - вернуться к поиску.

3. Изменения в отчетности по Единому Социальному Взносу.

4. "Декларации прибыли предприятия" - добавлено приложение IД.

5. Устранен ряд ошибок при формировании этой декларации и приложений в электронном виде.

6. В авансовом отчете добавлена кнопка "Пересчитать" (если суммы или бухгалтерский счет в предыдущих документах по сотруднику были изменены).

7. В Сервис/Обслуживание/Профилактика можно получить информацию о любой (не только последней) резервной копии.

8. В отчетах "Долги" и "Товар" в графе "Кр." нет минусов, которые раздражали бухгалтеров.

9. Ctrl+F7 - сменить пользователя, не выключая програму.

[dmitry]

В 4.1.27.3 исправлена ошибка, появившаяся в версии 4.1.27: если продается товар, принятый на реализацию, при повторном проведении расходной накладной долг поставщику этих товаров удваивался.

Чтобы автоматически найти документы, нуждающиеся в исправлении:
- Скопировать текст ниже.
- Нажать в программе Ctrl+F10.
- Вставить текст, нажать "ОК".

Dim R As DAO.Recordset, Rdoc As DAO.Recordset
Dim LastID As Integer, Str As String
Dim Chr10 As String = System.Environment.NewLine
Dim Chr34 As String = Microsoft.VisualBasic.Chr(34)
Dim MaxTransNum As Integer
If Predpr.DataMain.UseBuhAcc = False Then
MaxTransNum = 3
Else
MaxTransNum = 5
End If
R = DB.OpenRecordset("SELECT DocID FROM Documents INNER JOIN DocumentRows ON Documents.ID = DocumentRows.DocID WHERE AccountType=0 AND TransNum=" & MaxTransNum & " AND Documents.TypeID=2 GROUP BY DocumentRows.DocID, DocumentRows.ArticleID, DocumentRows.Price HAVING Count(DocumentRows.ArticleID)>1;")
Rdoc = DB.OpenRecordset("SELECT OperationTypes.TextName, Documents.DocDate, Documents.Num, Documents.ID FROM Documents INNER JOIN OperationTypes ON Documents.TypeID = OperationTypes.ID;")
Do While Not R.EOF
If R("DocID").Value <> LastID Then
Rdoc.FindFirst("ID=" & R("DocID").Value)
If Rdoc.NoMatch = False Then
Str = Str & Rdoc("TextName").Value & " " & Rdoc("DocDate").Value & " № " & Rdoc("Num").Value & Chr10
End If
LastID = R("DocID").Value
End If
R.MoveNext()
Loop
R.Close()
Rdoc.Close()
If Str <> "" Then
Str = "Перепровести и сохранить:" & Chr10 & Chr10 & Str
Else
Microsoft.VisualBasic.MsgBox("Нет документов, которые нуждались бы в исправлении.", , "Проверка")
Exit Sub
End If
Dim TxtFile As String = System.Environment.GetFolderPath(System.Environment.SpecialFolder.Personal) & "\DocList.txt"
Dim SW As New System.IO.StreamWriter(TxtFile, True)
SW.WriteLine(Str)
SW.Close()
Microsoft.VisualBasic.Shell("NOTEPAD.EXE " & Chr34 & TxtFile & Chr34, 1)
System.IO.File.Delete(TxtFile)

[suinegg]

Спасибо за "Ctrl+F7 - сменить пользователя, не выключая программу". Но, на мой взгляд, есть недостаток, выраженный в возможности нажатии кнопки "отмена". То есть возврат в пользователя, работающего с программой до этого.

[Super Admin]

dmitry,
спасибо за оперативное содействие,
если Я правильно понимаю то последние обновление:
4.1.27.5 от 9 сентября 2011г исправлено Устранена ошибка в обновлении 4.1.27.4: могли возникать проблемы с экспортом документов в Excel.
было выпущено по моей просьбе,
но при создании входящей накладной ситуация с переменном данных в полях "от кого" и "кому" осталась не решенной.

[dmitry]

Нет, исправление выпущено для другого случая: если в шаблоне Excel было имя ячейки, которая удалена из таблицы, то экспорт не работал, еще - для цены устанавливался формат "Общий", а не "Числовой".
Если нужна входящая накладная в Excel (хотя зачем этим заниматься, если ее выдает поставщик?): в папке /ExcelForm создать копию файла Накладная.xlt, переименовать например в НакладнаяВходящая.xlt, в Сервис/Шаблоны_Excel открыть Товар/Приход/Накладная, указать что для нее используется этот файл и поменять местами слова "Поставщик" и "Получатель".