ModuleMaster/fi/unplaned.aspx.vb - main - ivan/ModMas

ModuleMaster/fi/unplaned.aspx.vb
65 строк3 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:4900d9fb6
Imports System.Data
Imports sharedClasses.dbFunctions
Imports System.Globalization

Partial Class FI_unplaned
    Inherits System.Web.UI.Page

    Private sqlf As New SqlFunctions

    Private Function GetDocInfo(docNumber As String, mode As Integer) As DataTable
        Dim sql As New StringBuilder

        If mode = 1 Then
            '================= BY GR document for 1 material ==========================
            sql.AppendLine("select ")
            sql.AppendLine("MAT__DOC_ + '-' + ITEM as docnumber, ")
            sql.AppendLine("pstng_date as docDate, ")
            sql.AppendLine("isnull((select TOP 1 VEND_NM FROM GmesData.dbo.TB_TBM_MD_VEND t1 where t1.VEND_CODE collate Cyrillic_General_CI_AI = vendor collate Cyrillic_General_CI_AI),vendor) as vendor, ")
            sql.AppendLine("vendor as vendor_code, ")
            sql.AppendLine("reference as invoice, ")
            sql.AppendLine("MATERIAL_DESCRIPTION as description, ")
            sql.AppendLine("material, ")
            sql.AppendLine("gtd, ")
            sql.AppendLine("eun as uom, ")
            sql.AppendLine("ABS(cast(QUANTITY as integer)) as qty, ")
            sql.AppendLine("cast(cast(replace(replace(AMOUNT_IN_LC,' ' ,''),',','.') as decimal(18,4)) / cast(replace(replace(quantity,' ' ,''),',','.') as decimal(18,4)) as decimal(18,2)) as unit_price, ")
            sql.AppendLine("AMOUNT_IN_LC as INVOICE_AMNT, ")
            sql.AppendLine("1 as EXCH__RATE__RUB, ")
            sql.AppendLine("cast(cast(replace(replace(AMOUNT_IN_LC,' ' ,''),',','.') as decimal(18,4)) / cast(replace(replace(quantity,' ' ,''),',','.') as decimal(18,4)) as decimal(18,2)) as PRICE_RUB, ")
            sql.AppendLine("abs(cast(replace(replace(AMOUNT_IN_LC,' ' ,''),',','.') as decimal(18,4))) as AMNT_RUB ")
            sql.AppendLine("from UserModules.[user].GERP_MB_51_FOR_GTD ")
            sql.AppendLine("where ID= " & docNumber)

        End If

        Return sqlf.GetData(sql.ToString)

    End Function

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not IsNothing(Request.QueryString("dn")) Then

            'Dim ltr As New LiteralControl
            'ltr.Text = form1.InnerHtml
            'form1.InnerHtml = ""
            'form1.Controls.Add(ltr)
            Dim first As Boolean = True
            Try
                Dim docs As DataTable = GetDocInfo(Request.QueryString("dn"), 1)
                With docs.Rows(0)
                    docnumber.Text = .Item("docnumber")
                    docdate.Text = .Item("docdate")
                    material.Text = .Item("material") & "<br/>" & .Item("description")
                    qty.Text = .Item("qty")
                    amount.Text = String.Format(CultureInfo.InvariantCulture, "{0:##,##.##}", .Item("amnt_rub"))
                    price.Text = String.Format(CultureInfo.InvariantCulture, "{0:##,##.##}", .Item("PRICE_RUB"))
                    ttlAMount.Text = String.Format(CultureInfo.InvariantCulture, "{0:##,##.##}", .Item("amnt_rub"))
                End With
            Catch ex As Exception

            End Try
        End If

    End Sub
End Class