Imports System.Web
Imports System.Web.Services
Imports TypeScriptReflect

<TSReflect(ClassTypes.ctBusinessLayer)>
Public Class Production
    Inherits Handler

    Public Function GetList(ByVal Page As Integer, ByVal Records As Integer) As Response
        Dim mResp As New Response
        Dim sSQL As String = MyBase.State.GetListSQL("ksmtProduction", "ProductionID", Page, Records, "Publish=1")
        Dim rec As List(Of ksmtProduction) = MyBase.db.Database.SqlQuery(Of ksmtProduction)(sSQL).ToList
        mResp.Rowset.rows = From v In rec Select v.Code, v.Name, v.ProductionID, v.ProdName, v.ProdOwnerForm
        Return mResp
    End Function

    Public Function SaveRecord(ByVal value As tblProduction, Optional ByVal OKPCode As String = "") As Response
        value = From v In MyBase.db.tblProduction Where v.ProductionID = value.ProductionID
        If IsDBNull(value.AddTime) Then
            value.AddTime = Now
            value.AddPassportID = MyBase.State.PassportID
        Else
            value.LastUpdate = Now
            value.UpdatePassportID = MyBase.State.PassportID
        End If
        MyBase.db.tblProduction.Add(value)
        If Len(OKPCode) > 0 Then
            If (From v In MyBase.db.ksmtCatalogueProd Where v.CatCode = OKPCode And v.ProductionID = value.ProductionID And v.ClassificatorID = 1).Count = 0 Then
                MyBase.db.tblObjectCatalogue.Add(New tblObjectCatalogue((From v In MyBase.db.tblCatalogue Where v.ClassificatorID = 1 And v.Code = OKPCode Select v.CatalogueID).Single, WIT_PRODUCTION, value.ProductionID))
            End If
        End If

        Dim mRes As New Response()
        mRes.Rowset.rows = From v In MyBase.db.tblProduction Where v.ProductionID = value.ProductionID
                  Select v.ProductionID, v.Code, v.Name
        Return mRes
    End Function
End Class

Imports TypeScriptReflect

<TSReflect(ClassTypes.ctTransport)>
Public Class Response
    Public [Rowset] As Rowset
    Public Test As String

    Public Sub New()
        Rowset = New Rowset
    End Sub
End Class

<TSReflect(ClassTypes.ctTransport)>
Public Class Rowset
    Public localRowset As Boolean
    Public entire As Integer
    Public total As Integer
    Public rows As IEnumerable(Of Object)
End Class

<xsl:template match="WCECOMMAND">
    "nameField":"Name",
    <xsl:choose>
        <xsl:when test=".='EDITRECORD' or .='ADDRECORD'">
            <![CDATA[
            "nameField":"Name",
            "fields":[[
	            { "field": "", "title": "ID", "width": 50, "type": "id","viewitem":"VIEWPRODUCTION" },
	            { "field": "Name", "title": "Наименование" },
              { "field": "OKPCODE", "title": "Код ОКП"
              ]]>
            <xsl:if test="string-length(//OKPCODE)!=0">
                ,"readonly":true
            </xsl:if>
            <![CDATA[
              },
	            { "field": "Code", "title": "Расширение кода ОКП" },
	            { "field": "UnitID", "title": "Единицы измерения",]]>
            <xsl:apply-templates select="/UWS/UNIT" mode="selectData"/>
            <![CDATA[
              },
	            { "field": "NormDocName", "title": "Тип нормативного документа","type":"select","data":[
                {"ID":"ГОСТ","Name":"ГОСТ"},
                {"ID":"ТУ","Name":"ТУ"},
                {"ID":"СТО","Name":"СТО"}
              ]},
	            { "field": "FileID", "title": "Нормативный документ", "type": "selector", "selectorUrl": "?WCI=FILES&WCE=LIST.PRODUCTION.]]><xsl:value-of select="/UWS/UWSHEAD/WCEVALUE"/><![CDATA["},
	            { "field": "ProducerIsSupplier", "title": "Производитель является поставщиком", "type": "checkbox" },
	            { "field": "Publish", "title": "Публиковать","type":"checkbox" },
	            { "field": "Comments", "title": "Комментарии", "type":"textarea"},
	            { "field": "Description", "title": "Описание", "type": "texteditor" }
            ]],
            "dialogTitle": "Продукция",
            "tabtitle": "Основные данные",
            "subdata":[
            ]]>
            <xsl:apply-templates select="/UWS/PRODFILES"/>
            <xsl:apply-templates select="/UWS/CATALOGUE"/>
            <xsl:apply-templates select="/UWS/PRICE"/>
            {
            "tabtitle": "Изображение",
            "HTML": "<![CDATA[<br/><form method='post' class='logo_upload' enctype='multipart/form-data' target='files_upload' action='?WCI=PRODUCTION&WCE=UPLOADIMAGE.PICTURE.]]>
            <xsl:value-of select="parent::*/WCEVALUE"/>
            <![CDATA['><center><input type='file' name='logo'/><input type='submit' value='Загрузить картинку'/><img width='160px' id='PRODUCTION_PICTURE_]]>
            <xsl:value-of select="parent::*/WCEVALUE"/>
            <![CDATA[' src='?WCI=PRODUCTION&WCE=GETIMAGE.PICTURE.]]>
            <xsl:value-of select='parent::*/WCEVALUE'/>
            <![CDATA['/></center></form>"]]>
            }],
        </xsl:when>
        <xsl:when test=".='PAGE' or .='FIND'">
            <![CDATA[
            "nameField":"Name",
            "fields":[[
              { "field": "", "title": "ID", "width": 50},
              { "field": "Code", "title": "Код", "width": 70 },
              { "field": "Name", "title": "Наименование", "width": 200 },
              { "field": "Supplier", "title": "Производитель/дистрибьютор", "width": 200 },
              { "field": "Del", "title": "Удалить", "width": 70, "align": "center", "visible": "false" }
            ]],
            "dialogTitle": "Продукция",
            ]]>
        </xsl:when>
    </xsl:choose>
</xsl:template>