Отчет по остаткам ресурсов |
Порядок настройки пресета
С помощью команды "Создать новый пресет" создайте пресет "Отчет по остаткам ресурсов". На вкладке "Строки" формы "Настройка пресетов" настройте стоки Группа ресурсов -> Ресурс. Рис. 1557 Сохраните настройки пресета. Подробно о настройке строк смотри раздел "Вкладка "Строки" формы "Настройка пресетов" или раздел "Настройка пресета в форме "Настройка пресетов". Создана структура данных с указанием типов строк и родительских связей для вложенных записей для основной колонки создаваемой нами таблицы. Далее необходимо указать параметры выбранных нами типов данных (атрибуты). Параметры материалов, поступление и расход отображаются в колонках. На вкладке "Колонки" формы "Настройка пресетов" настройте колонки
Рис. 1558 Добавьте связующий строку и колонку вид данных "Поступление ресурса" и настройте как показано на рис. 1559 Рис. 1559 Сохраните изменения в пресете. Добавьте колонки для вывода информации по поступлению ресурса
Рис. 1560 Сохраните изменения в пресете. Добавьте связующий строку и колонку вид данных "Расход ресурса" и настройте как показано на рис. 1561 Рис. 1561 Сохраните изменения в пресете. Добавьте колонки для вывода информации по расходу ресурса
Рис. 1562 Сохраните изменения в пресете. Для расчета остатка ресурса в колонке "Остаток ресурса" выберите язык написания скрипта. Рис. 1563 в разделе "Содержимое скрипта" напишите скрипт следующего содержания
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 MaterialEntity_iVolumeSmeta__10 As Decimal = CommonLibrary.SF.Convert.ToDecimal(pCurrentRow("MaterialEntity_iVolumeSmeta__10")) ' Объем/количество поступления Dim CoveredWorkMaterial_iVolumeSmeta__11 As Decimal = CommonLibrary.SF.Convert.ToDecimal(pCurrentRow("CoveredWorkMaterial_iVolumeSmeta__11")) ' Объем/количество расхода Dim CustomCol__16 As String = CommonLibrary.SF.Convert.ToString(pCurrentRow("CustomCol__16")) ' Остаток ресурса
Select Case iObjectType Case eObjectType.tMaterial pCurrentRow("CustomCol__16") = GetVolumeAsString(MaterialEntity_iVolumeSmeta__10 - CoveredWorkMaterial_iVolumeSmeta__11) End Select
Return Nothing End Function End Class End Namespace
Сохраните изменения в пресете. Настройте фильтры по фактическому поступлению ресурса как показано на рис. 1564 Рис. 1564 Сохраните изменения в пресете. Настройте фильтры по фактическому расходу ресурса как показано на рис. 1565 Рис. 1565 Сохраните изменения в пресете. Форма "Управление данными" при наличии в базе данных соответствующей информации примет следующий вид. Рис. 1566
Для полного понимания процесса создания пресета рекомендуем ознакомится со всеми описаниями создания пресетов в разделе: - Группа пресетов "Управление проектной документацией" - Конфигурация АС "Стройформ": Управление проектом - Графики (отчеты) проверок органов ГСН - Графики проверок в системе качества
|
Руководство пользователя версия 7.4.2013.51, скачать в формате HelpFile.chm, HelpFile.pdf, HelpFile.doc При полном или частичном использовании материалов сайта, ссылка на сайты www.stroyform.ru и www.stroyform.su обязательна support@stroyform.ru. |