Обновление 4.1.26, полное описание

[dmitry]

1. Для юридических лиц: в Отчетность/Доходы - новая "Декларация прибыли предприятия" с приложениями.

2. Произвольные свойства могут иметь тип "Выбор из списка объектов" или "Выбор из списка партнеров"
(для сокращения списка можно указать ограничение, например "Услуги" или "Подразделения").
Этим можно воспользоваться например, чтобы:
- закрепить за каждым клиентом одного менеджера (в свойствах партера создать свойство с типом "Список партеров" - "Работники"),
- указать, что ремонтировалось, не приходуя его на склад (создать свойство документа "Ремонт" с типом "Список объектов" - "Изделие в ремонте").

3. Произвольные свойства могут относиться к каждой строке документа.
В нужном документе на панели справа щелкнуть "Дополнительно", выбрать "Произвольные свойства строки".
Это может понадобиться например, чтобы:
- если в одном документе есть перечень работ (обычно на СТО), указать мастера для каждой строки (создать свойство строки "Мастер" с типом "Список партеров" - "Работники" и включить его в таблицу).

4. Новый тип объектов учета - "Изделие в ремонте".
Пока нет прямых указаний, как это использовать, но необходимо отделить их от обычных товаров, работ или продукции.
Например: если такие изделия приходовать и списывать, чтобы видеть их наличие на сегодня, то в накладной будут идти подряд изделие, работы, запчасти. При печати их можно разделить на три части, для этого в папке PrintForm/Варианты/Накладная уже есть файл бланка Накладная_изделие_работы_материалы.

5. "Единый взнос" - "Таблица 5": в электронном виде отсутствующая дата приема/увольнения записывалась как 0.

6. Для предварительной проверки электронного отчета программа попытается найти файл схемы .xsd в трех папках: Medoc\tmpl, Best-zvit\tmpl и OPZ\xsd.

7. При создании накладной по счету в ней всегда оставался прайс-лист "Основной".

8. Заданный порядок столбцов в "Анализе" не сохранялся.

9. Если два пользователя одновременно добавляют новые позиции в один и тот же документ, сохранится не последняя редакция, а суммарная.

10. При печати налоговой накладной в "Номер договора" не отображались черточки или точки, в "Телефон" не устранялись пробелы.

[NewtonsMechanic]

Спасибо за обновление. То что добавлено в программу для нашей организации очень полезно.

Дмитрий, вы отлично работаете.

[dmitry]

В этом обновлении появилась очень неприятная ошибка: при повторном сохранении расходной накладной или производства количество списанного товара или материала удваивается. Сегодня выйдет 4.1.26.1 с исправлением. Пункт 9 "Если два пользователя одновременно добавляют ... сохранится суммарная" действовать не будет.

[NewtonsMechanic]

перестали работать поиск, список заказов...

[dmitry]

Вышло исправление 4.1.26.1.
Если некоторые документы уже оказались искажены (повторно сохранялись после обновления 4.1.26):
- Найти их: в расходной накладной на панели справа кроме "Создан" будет "Изменен" 07.07.11, или в Сервис/Пользователи/Протокол: "Время" - 07.07.11 и "Действие" - "Изменен".
- Исправить: перепровести и сохранить.

[dmitry]

перестали работать поиск, список заказов...

"Не работает поиск" - это "Расширенный поиск" в списке документов? Уже исправил.
"Список заказов" - как обычно, при незначительных изменениях в основной программе приходится их учитывать в подключаемых модулях. Учел, можно загрузить (http://automat.dp.ua/files/moduls/orders.exe) и заменить.

[NewtonsMechanic]

Теперь все работает, спасибо.

[dmitry]

Вышло исправление 4.1.26.1.
Если некоторые документы уже оказались искажены (повторно сохранялись после обновления 4.1.26):
- Найти их: в расходной накладной на панели справа кроме "Создан" будет "Изменен" 07.07.11, или в Сервис/Пользователи/Протокол: "Время" - 07.07.11 и "Действие" - "Изменен".
- Исправить: перепровести и сохранить.

Другой способ автоматически найти документы, нуждающиеся в исправлении:
- Скопировать текст ниже.
- Нажать в программе 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)
R = DB.OpenRecordset("SELECT DocID FROM DocumentRows WHERE AccountType=0 AND TransNum=2 GROUP BY DocID, SeriesID, ArticleID, Integ HAVING SeriesID>0 AND ArticleID>0 AND Count(SeriesID)>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)

[Сергей]

Глюк после апдейта - Нельзя принять деньги со своего подразделения !!!

[dmitry]

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

[NewtonsMechanic]

- указать, что ремонтировалось, не приходуя его на склад (создать свойство документа "Ремонт" с типом "Список объектов" - "Изделие в ремонте").

Для того, чтобы полноценно использовать эту возможность, необходимо отдельно сделать НН для таких случаев, иначе никак.
В текущей НН будет так:

[dmitry]

"...необходимо отдельно сделать НН для таких случаев"
Сделайте.