Учет мест хранения ресурсов

Top  Previous  Next

 

Пресет "Учет мест хранения ресурсов" позволяет учитывать места хранения и получать информацию первичных учетных документах.

 

Скачать настройки пресета "Учет мест хранения ресурсов" можно здесь

 

Ознакомится с порядком добавления настройки пресета в базу данных можно в разделе "Экспорт/импорт настроек пресетов"

 

При установке пресета в форме "Управления данными" или вкладке "Данные" основных форм данные отображаются в виде показанном на рисунке с права.

 

Порядок создания пресета описан ниже. Пользователь может самостоятельно внести изменения в пресет

Ucet_mest_hraneniya_resursov_Vid_1

Порядок настройки пресета

 

С помощью команды "Создать новый пресет" создайте пресет "Учет мест хранения ресурсов". На вкладке "Строки" формы "Настройка пресетов" настройте стоки Группа ресурсов -> Ресурс.

Рис. 1688

Рис. 1688

Сохраните настройки пресета. Подробно о настройке строк смотри раздел "Вкладка "Строки" формы "Настройка пресетов" или раздел "Настройка пресета в форме "Настройка пресетов".

Добавьте строку "Поступление ресурса" и настройте фильтр как показано на рис. 1689

Рис. 1689

Рис. 1689

Создана структура данных с указанием типов строк и родительских связей для вложенных записей для основной колонки создаваемой нами таблицы. Далее необходимо указать параметры выбранных нами типов данных (атрибуты). Параметры материалов, поступление и расход отображаются в колонках.

На вкладке "Колонки" формы "Настройка пресетов" настройте колонки

Наименование колонки

Обозначение типа данных колонки

Обозначение записи

Типовая колонка: Общие: Обозначение записи

Номер записи

Типовая колонка: Общие: Номер записи

Статус записи

Типовая колонка: Общие: Статус записи

Дата поступления и расхода

Типовая колонка: Общие даты: Начало, общее

Единица измерения объема/количества

Типовая колонка: Общие объемы и цены: Единица измерения объема/количества, общая

Объем/количество поступления

Типовая колонка: Поступление ресурса: Количество, ресурса

 

Рис. 1690

Рис. 1690

Сохраните изменения в пресете. Подробно о настройке колонок смотри раздел "Вкладка "Колонки" формы "Настройка пресетов" или в разделе "Настройка пресета в форме "Настройка пресетов".

Добавьте связующий строку и колонку вид данных "Объект", переименуйте колонку в "Поступил на объект" и настройте как показано на рис. 1691

Рис. 1691

Рис. 1691

Сохраните изменения в пресете. Добавьте колонку для вывода информации по объекту поступления ресурса

Рис. 1692

Рис. 1692

Сохраните изменения в пресете.  Добавьте связующий строку и колонку вид данных "Документ" и настройте как показано на рис. 1693.

Рис. 1693

Рис. 1693

Сохраните изменения в пресете. Добавьте колонку для вывода информации по документу

Рис. 1694

Рис. 1694

Сохраните изменения в пресете. Настройте фильтры по фактическому поступлению ресурса как показано на рис. 1695

Рис. 1695

Рис. 1695

Сохраните изменения в пресете. Настройте фильтры по документу "Форма ТОРГ-12, товарная накладная" как показано на рис. 1696

Рис. 1696

Рис. 1696

Сохраните изменения в пресете. Настройте фильтры по документу "Счет фактура" как показано на рис. 1697

Рис. 1697

Рис. 1697

Сохраните изменения в пресете. Настройте фильтры по документу "1-Т, товарно - транспортная накладная" как показано на рис. 1698

Рис. 1698

Рис. 1698

Сохраните изменения в пресете. Во вкладке "Оформление" настройте автоподбор высоты строк, как показано на рис. 1699

Рис. 1699

Рис. 1699

Сохраните изменения в пресете. Форма "Управление данными" при наличии в базе данных соответствующей информации примет следующий вид.

Рис. 1700

Рис. 1700

Созданный пресет позволяет добавить новую группу материалов. Для добавления новой группы вызовите команду "Добавить новую группу материалов как корневую без привязки к записям" или "Добавить новую группу материалов к выбранной записи"..

Рис. 1701

Рис. 1701

Созданный пресет позволяет добавить новый материал. Для добавления нового материала вызовите команду "Добавить новый материал к выбранной записи".

Рис. 1702

Рис. 1702

Для добавления фактического расхода вызовите команду "Добавить новое фактический расход к выбранной записи".

Рис. 1703

Рис. 1703

Для добавления места хранения вызовите команду "Добавить к выбранной записи объект, склад, магазин куда поступил ресурс".

Рис. 1704

Рис. 1704

Откроется форма выбора данных

Рис. 1705

Рис. 1705

в которой пользователь может выбрать объект хранения ресурсов.

В случае наличия группы складов хранения и т.п рекомендуем во вкладке группы создать группу "Места хранения ресурсов". Для создания группы вызовите команду "Открыть форму для настройки групп" во вкладке "Группы" формы выбора данных.

Рис. 1706

Рис. 1706

Откроется форма "Свободная группировка данных"

Рис. 1707

Рис. 1707

в которой с помощью команды "" создайте новую группу и переименуйте её в "Места хранения ресурсов"

Рис. 1708

Рис. 1708

После добавления группы "Места хранения ресурсов" из правой панели формы "перетащите" в группу необходимые объекты

Рис. 1709

Рис. 1709

Сохраните изменения и перейдите на предыдущую форму. В дальнейшем при  вызовите команды "Добавить к выбранной записи объект, склад, магазин куда поступил ресурс" в форме выбора данных будет отображаться группа "Места хранения ресурсов"

Рис. 1710

Рис. 1710

Выберете место хранения и вызовите команду "Завершить поиск с выбранным результатом"

Если у пользователя принято указывать более точное место хранения, например площадка хранения №1 объекта 710 или склад временного хранения, то пользователь может создать отдельные объекты и разместить их в группе "временные здания и сооружения" или создать отдельную группу "места хранения" в списке титульного объекта. Более подробно об управлении объектами смотри раздел "Группировка объектов".

 

Подробно о создании новой группы выбора данных или добавления информации в группу выбора данных смотри в разделе "Создание групп в форме выбора данных"

 

Удалите настройку параметра "Ссылка на пресет"

Рис. 1740

Рис. 1740

Сохраните изменения в пресете.

 

При необходимости контролировать значение колонки "место хранения" в зависимости от статуса поступления, например, при статусе материала "Списан" в колонке "Место хранения" появляется запись "СПИСАН МАТЕРИАЛ" напишите на строку скрипт. Для написания скрипта выберите язык написания скрипта

Рис. 1741

Рис. 1741

в разделе "Содержимое скрипта" напишите скрипт следующего содержания

 

Imports System

Imports System.Text

Imports System.Data

Imports System.Drawing

Imports System.Xml

Imports System.Collections

Imports System.Collections.Generic

Imports System.ComponentModel

Imports System.Reflection

Imports System.IO

Imports System.Text.RegularExpressions

Imports System.Windows.Forms

Imports Microsoft.VisualBasic

Imports CommonLibrary

 

 

Namespace SFExpressionEvaluator

 

  Public Class CSFScript4TreeViewManagerData

 

      'SFScriptExecuteTester - функция тестирования скрипта SFScriptExecute()

      Public Function SFScriptExecuteTester() As DataTable

          'Файл sf_table4script.xml можно получить при экспорте таблицы для написания скриптов

          Dim dtMain As New DataTable

           dtMain.ReadXml(Application.StartupPath & "\sf_table4script.xml")

 

          'Замените FillObject на соответствующее обозначение колонки для которой Вы пишете скрипт.

          Dim sCurrentColumn As String = "FillObject"

          Dim pCurrentColumn As DataColumn = dtMain.Columns.Item(sCurrentColumn)

 

          For Each pCurrentRow As DataRow In dtMain.Rows

              Me.SFScriptExecute(dtMain, pCurrentRow, pCurrentColumn)

          Next

 

          Return dtMain

      End Function

 

 

      'SFScriptExecute - скрипт, который вызывается программой Стройформ для каждой строки таблицы и указанной колонки

      Public Function SFScriptExecute(ByRef dtMain As DataTable, ByRef pCurrentRow As DataRow, ByRef pCurrentColumn As DataColumn) As Object

          'Замените ниже расположенные строки на аналогичные строки, полученные при экспорте таблицы для написания скриптов

'Dim ID As Long = CommonLibrary.SF.Convert.ToLong(pCurrentRow("ID"))  ' ID строки

'Dim ParentID As Long = CommonLibrary.SF.Convert.ToLong(pCurrentRow("ParentID"))  ' ID родительской строки

'Dim CurrentObjectID As Long = CommonLibrary.SF.Convert.ToLong(pCurrentRow("CurrentObjectID"))  ' ID записи в базе данных

'Dim iObjectType As Long = CommonLibrary.SF.Convert.ToLong(pCurrentRow("iObjectType"))  ' Тип записи

'Dim IsCurrent As Long = CommonLibrary.SF.Convert.ToLong(pCurrentRow("IsCurrent"))  ' Выбранная в данный момент строка

'Dim IsChecked As Long = CommonLibrary.SF.Convert.ToLong(pCurrentRow("IsChecked"))  ' Отмеченные флажком записи

'Dim IsVisible As Long = CommonLibrary.SF.Convert.ToLong(pCurrentRow("IsVisible"))  ' Видимость строк

'Dim sNumber As String = CommonLibrary.SF.Convert.ToString(pCurrentRow("sNumber"))  ' Номер записи

'Dim FillObject As String = CommonLibrary.SF.Convert.ToString(pCurrentRow("FillObject"))  ' Обозначение записи

'Dim FullSubject As String = CommonLibrary.SF.Convert.ToString(pCurrentRow("FullSubject"))  ' Обозначение записи расширенное

Dim sStatus As String = CommonLibrary.SF.Convert.ToString(pCurrentRow("sStatus"))  ' Статус записи

'Dim DateFrom As Date = CommonLibrary.SF.Convert.ToDate(pCurrentRow("DateFrom"))  ' Дата поступления

'Dim IDBCODestRow As Long = CommonLibrary.SF.Convert.ToLong(pCurrentRow("IDBCODestRow"))  ' ID строки в базе данных равный уникальному ID строки из пресета

'Dim IDDimension As Long = CommonLibrary.SF.Convert.ToLong(pCurrentRow("IDDimension"))  ' Единица измерения объема/количества

'Dim MaterialEntity_iVolumeSmeta As Decimal = CommonLibrary.SF.Convert.ToDecimal(pCurrentRow("MaterialEntity_iVolumeSmeta"))  ' Объем/количество поступления

Dim FillObject__15 As String = CommonLibrary.SF.Convert.ToString(pCurrentRow("FillObject__15")) ' Поступил на объект (Место хранения)

'Dim FillObject__19 As String = CommonLibrary.SF.Convert.ToString(pCurrentRow("FillObject__19"))  ' Первичные документы

 

        If sStatus.Contains("Списан") Then

          If FillObject__15 = "" Then

               pCurrentRow("FillObject__15") = "СПИСАН МАТЕРИАЛ. Место хранения не определено"

                         'DisplayMessageInfo("СПИСАН МАТЕРИАЛ")

                         'DisplayMessageWarning("Место хранения не определено")

                 Else

               pCurrentRow("FillObject__15") = "СПИСАН МАТЕРИАЛ, последнее место хранения: " & FillObject__15

          End If

        End If

 

          Return pCurrentRow(pCurrentColumn)

      End Function

  End Class

End Namespace

 

Сохраните изменения в пресете. Подробно о написании скрипта смотри раздел "Написание скриптов при настройке пресета".

ВНИМАНИЕ! Указанный скрипт написан на языке Microsoft Visual Basic

Форма "Управление данными" после обновления примет следующий вид

Рис. 1742

Рис. 1742

 

Для полного понимания процесса создания пресета рекомендуем ознакомится со всеми описаниями создания пресетов в разделе:

- Группа пресетов "Управление проектной документацией"

- Конфигурация АС "Стройформ": Управление проектом

- Графики (отчеты) проверок органов ГСН

- Графики проверок в системе качества

 

 

 



  Руководство пользователя версия 7.4.2013.51, скачать в формате HelpFile.chm, HelpFile.pdf, HelpFile.doc
  При полном или частичном использовании материалов сайта,
  ссылка на сайты www.stroyform.ru и www.stroyform.su обязательна support@stroyform.ru.