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

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

Partial Class FI_MX18
    Inherits System.Web.UI.Page

    Private sqlf As New SqlFunctions

    Private _firstPageRowCount As Integer = 7
    Private _secondPageRowCount As Integer = 25
    Private _lastPageRowCount As Integer = 4

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        docNumber.Text = IIf(IsNothing(Request.QueryString("dn")), "", Request.QueryString("dn"))
        Dim tmp As String = ""
        Try
            tmp = docNumber.Text.Split("-")(0).Substring(1, 6)
            docDate.Text = "20" & tmp.Substring(0, 2)
            docDate.Text &= "-" & tmp.Substring(2, 2)
            docDate.Text &= "-" & tmp.Substring(4, 2)
        Catch ex As Exception
            Response.Write(ex.Message & "?" & tmp)
        End Try
        Dim dt As DataTable = buildList(docNumber.Text)

        Dim curTbl As HtmlTable = report
        If Not IsNothing(dt) Then
            Dim cnt As Integer = 0

            'docDate.Text = prodDate.Substring(0, 4) & "-" & prodDate.Substring(4, 2) & "-" & prodDate.Substring(6, 2)
            ' docNumber.Text = getDocNumber(prodDate)

            Dim ttl As Integer = 0
            Dim subTtl As Integer = 0

            Dim gross As Decimal = 0
            Dim sgross As Decimal = 0

            Dim net As Decimal = 0
            Dim snet As Decimal = 0

            Dim firstPage As Boolean = True

            For Each dr As DataRow In dt.Rows
                Dim tr As New HtmlTableRow
                For Each c As HtmlTableCell In templateRow.Cells
                    Dim tc As New HtmlTableCell
                    tc.InnerHtml = c.InnerHtml.Replace("MODEL", dr("model")) _
                        .Replace("INCH", dr("inch")) _
                        .Replace("QTY", dr("qty")) _
                        .Replace("GROSS", (dr("GROSS_WEIGHT") * dr("qty")).ToString.Trim("0").Trim(".")) _
                        .Replace("NET", (dr("NET_WEIGHT") * dr("qty")).ToString.Trim("0").Trim("."))
                    tc.Attributes("style") = c.Attributes("style")
                    tc.Attributes("colspan") = c.Attributes("colspan")
                    tr.Cells.Add(tc)
                Next
                curTbl.Rows.Add(tr)

                subTtl += dr("qty")
                ttl += dr("qty")

                gross += dr("GROSS_WEIGHT") * dr("qty")
                sgross += dr("GROSS_WEIGHT") * dr("qty")
                net += dr("NET_WEIGHT") * dr("qty")
                snet += dr("NET_WEIGHT") * dr("qty")

                cnt += 1

                If (firstPage And ((cnt Mod _firstPageRowCount) = 0)) _
                    Or ((cnt Mod _secondPageRowCount) = 0) Then

                    firstPage = False

                    Dim ttr As New HtmlTableRow
                    For Each c As HtmlTableCell In templateRowTotalByPage.Cells
                        Dim tc As New HtmlTableCell
                        tc.InnerHtml = c.InnerHtml.Replace("SUBTTL", subTtl) _
                            .Replace("SGROSS", sgross.ToString.Trim("0").Trim(".")) _
                            .Replace("SNET", snet.ToString.Trim("0").Trim("."))

                        tc.Attributes("style") = c.Attributes("style")
                        tc.Attributes("colspan") = c.Attributes("colspan")
                        ttr.Cells.Add(tc)
                    Next
                    curTbl.Rows.Add(ttr)

                    'Start new page with new table
                    curTbl = New HtmlTable
                    curTbl.Attributes("style") = report.Attributes("Style")
                    curTbl.Style.Add("page-break-before", "always")

                    For r = 0 To 4
                        Dim th As New HtmlTableRow
                        For Each c As HtmlTableCell In report.Rows(r).Cells
                            Dim hc As New HtmlTableCell With {.InnerHtml = c.InnerHtml}
                            hc.Attributes("style") = c.Attributes("style")
                            hc.Attributes("colspan") = c.Attributes("colspan")
                            hc.Attributes("rowspan") = c.Attributes("rowspan")
                            th.Cells.Add(hc)
                        Next
                        curTbl.Rows.Add(th)
                    Next
                    reportPlace.Controls.Add(curTbl)

                    subTtl = 0
                    sgross = 0
                    snet = 0
                End If

            Next
            'Adding final total and subtotal rows
            Dim sttr As New HtmlTableRow
            For Each c As HtmlTableCell In templateRowTotalByPage.Cells
                Dim tc As New HtmlTableCell
                tc.InnerHtml = c.InnerHtml.Replace("SUBTTL", subTtl) _
                    .Replace("SGROSS", sgross.ToString.Trim("0").Trim(".")) _
                    .Replace("SNET", snet.ToString.Trim("0").Trim("."))
                tc.Attributes("style") = c.Attributes("style")
                tc.Attributes("colspan") = c.Attributes("colspan")
                sttr.Cells.Add(tc)
            Next
            curTbl.Rows.Add(sttr)

            Dim fttr As New HtmlTableRow
            For Each c As HtmlTableCell In templateRowTotal.Cells
                Dim tc As New HtmlTableCell
                tc.InnerHtml = c.InnerHtml.Replace("TTL", ttl) _
                    .Replace("TGROSS", gross.ToString.Trim("0").Trim(".")) _
                    .Replace("TNET", net.ToString.Trim("0").Trim("."))
                tc.Attributes("style") = c.Attributes("style")
                tc.Attributes("colspan") = c.Attributes("colspan")
                fttr.Cells.Add(tc)
            Next
            curTbl.Rows.Add(fttr)
        End If
    End Sub

    Private Function buildList(documentNumber As String) As DataTable
        Dim sql As New StringBuilder

        sql.AppendLine("select ")
        sql.AppendLine("model, ")
        sql.AppendLine("substring(model, 3,2) as inch, ")
        sql.AppendLine("sum(cast (VSOLM as numeric)) as QTY, ")
        sql.AppendLine("(select GROSS_WEIGHT from GMESData.dbo.TB_VWM_BSC_MODEL where MODEL_NUMBER collate Cyrillic_General_CI_AI = t.model collate Cyrillic_General_CI_AI) as GROSS_WEIGHT, ")
        sql.AppendLine("(select NET_WEIGHT from GMESData.dbo.TB_VWM_BSC_MODEL where MODEL_NUMBER collate Cyrillic_General_CI_AI = t.model collate Cyrillic_General_CI_AI) as NET_WEIGHT  ")
        sql.AppendLine("from UserModules.[user].[WMS_GI_INFORMATION] t ")
        sql.AppendLine("where FG_GR_DOCUMENT_NUMBER = '" & documentNumber & "' ")
        sql.AppendLine(" GROUP BY model, substring(model, 3,2)")

        'Checking for document number exist - already printed case
        Return sqlf.GetData(sql.ToString)

    End Function

    Private Function getDocNumber(prodDate As String) As String
        If prodDate <> "" Then
            Dim sql As New StringBuilder
            sql.AppendLine("SELECT po_number FROM OPENQUERY(GMES20, '")
            sql.AppendLine("SELECT max(po_number) as po_number  ")
            sql.AppendLine("FROM VWS_QMS_MDL_PROD p ")
            sql.AppendLine("where p.work_date = ''" & prodDate & "'' ")
            sql.AppendLine("and p.sect = ''P001'' ")
            sql.AppendLine("and p.route_code = ''7160'' ')")
            Return sqlf.GetScalar(sql.ToString)
        Else
            Return ""
        End If
    End Function
End Class