ModuleMaster/hr/tst.aspx.vb - main - ivan/ModMas

ModuleMaster/hr/tst.aspx.vb
136 строк6 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:4900d9fb6
Imports sharedClasses.dbFunctions
Imports System.Globalization

Partial Class HR_tst
    Inherits System.Web.UI.Page

    Protected Sub Page_PreRender(sender As Object, e As EventArgs) Handles Me.PreRender
        If IsNothing(Session("cudate")) Or Not IsPostBack Then
            Session("cudate") = curdate.Text
        End If

        Dim dt As Date = Date.ParseExact(Session("cudate"), "yyyy-MM-dd", CultureInfo.InvariantCulture)
        Session("cudate") = dt.AddDays(-1).ToString("yyyy-MM-dd")
        curdate.Text = Session("cudate").ToString

        ''If curdate.Text < "2015-01-01" Then Exit Sub
        Dim sqlf As New SqlFunctions
        Dim sql As New StringBuilder
        'sql.AppendLine(" BEGIN TRANSACTION ")
        sql.AppendLine(" DECLARE @TSQL varchar(8000), @VAR char(10) ")
        sql.AppendLine(" SELECT @VAR ='" & curdate.Text & "' ")
        sql.AppendLine(" CREATE TABLE #TEMP_RESTAURANT( ")
        sql.AppendLine(" [CARDNO] varchar(max) ")
        sql.AppendLine(" ,[CAFNO] varchar(max) ")
        sql.AppendLine(" ,[CAFNAME] varchar(max) ")
        sql.AppendLine(" ,[REGDATE] varchar(max) ")
        sql.AppendLine(" ,[DOMAINID] varchar(max) ")
        sql.AppendLine(" ,[EMPLOYEENO] varchar(max) ")
        sql.AppendLine(" ,[BIRTHDATE] varchar(max) ")
        sql.AppendLine(" ,[EMPLOYEENAME] varchar(max) ")
        sql.AppendLine(" ,[CARDTYPE] varchar(max) ")
        sql.AppendLine(" ,[COMPANYCD] varchar(max) ")
        sql.AppendLine(" ,[COMPANYNAME] varchar(max) ")
        sql.AppendLine(" ,[COMPANYINDUSTRYNAME] varchar(max) ")
        sql.AppendLine(" ,[DEPARTMENTNAME] varchar(max) ")
        sql.AppendLine(" ,[FACTORYDUTYNAME] varchar(max) ")
        sql.AppendLine(" ,[MEALKINDCODE] varchar(max) ")
        sql.AppendLine(" ,[MEALKINDNAME] varchar(max) ")
        sql.AppendLine(" ,[DESKNUMBER] varchar(max) ")
        sql.AppendLine(" ,[DESKINFONAME] varchar(max) ")
        sql.AppendLine(" ,[AMOUNT] varchar(max) ")
        sql.AppendLine(" ,[CAFAMOUNT] varchar(max) ")
        sql.AppendLine(" ,[V1V2] varchar(max) ")
        sql.AppendLine(" ,[MANUALINPUTYN] varchar(max) ")
        sql.AppendLine(" ) ")
        sql.AppendLine(" SELECT @TSQL = ' ")
        sql.AppendLine(" INSERT INTO #TEMP_RESTAURANT ")
        sql.AppendLine(" SELECT DISTINCT ")
        sql.AppendLine("  [CARDNO] ")
        sql.AppendLine(" ,[CAFNO] ")
        sql.AppendLine(" ,[CAFNAME] ")
        sql.AppendLine(" ,[REGDATE] ")
        sql.AppendLine(" ,[DOMAINID] ")
        sql.AppendLine(" ,[EMPLOYEENO] ")
        sql.AppendLine(" ,[BIRTHDATE] ")
        sql.AppendLine(" ,[EMPLOYEENAME] ")
        sql.AppendLine(" ,[CARDTYPE] ")
        sql.AppendLine(" ,[COMPANYCD] ")
        sql.AppendLine(" ,[COMPANYNAME] ")
        sql.AppendLine(" ,[COMPANYINDUSTRYNAME] ")
        sql.AppendLine(" ,[DEPARTMENTNAME] ")
        sql.AppendLine(" ,[FACTORYDUTYNAME] ")
        sql.AppendLine(" ,[MEALKINDCODE] ")
        sql.AppendLine(" ,[MEALKINDNAME] ")
        sql.AppendLine(" ,[DESKNUMBER] ")
        sql.AppendLine(" ,[DESKINFONAME] ")
        sql.AppendLine(" ,[AMOUNT] ")
        sql.AppendLine(" ,[CAFAMOUNT] ")
        sql.AppendLine(" ,[V1V2] ")
        sql.AppendLine(" ,[MANUALINPUTYN] ")
        sql.AppendLine(" 		 FROM OPENQUERY([106.109.79.121],''exec IP_ITAMS_Search_MealEventLog ''''' + @VAR + ''''''') ")
        sql.AppendLine(" 		 ' ")
        sql.AppendLine(" EXEC(@TSQL) ")
        sql.AppendLine(" MERGE UserModules.[user].[RESTAURANT_STATISTICS] AS TARGET ")
        sql.AppendLine(" USING #TEMP_RESTAURANT as SOURCE ")
        sql.AppendLine(" ON TARGET.[CARDNO] COLLATE SQL_Latin1_General_CP1_CI_AS = SOURCE.[CARDNO] COLLATE SQL_Latin1_General_CP1_CI_AS ")
        sql.AppendLine(" AND TARGET.[REGDATE] COLLATE SQL_Latin1_General_CP1_CI_AS = SOURCE.[REGDATE] COLLATE SQL_Latin1_General_CP1_CI_AS ")
        sql.AppendLine(" WHEN NOT MATCHED THEN ")
        sql.AppendLine(" INSERT ([CARDNO] ")
        sql.AppendLine(" ,[CAFNO] ")
        sql.AppendLine(" ,[CAFNAME] ")
        sql.AppendLine(" ,[REGDATE] ")
        sql.AppendLine(" ,[DOMAINID] ")
        sql.AppendLine(" ,[EMPLOYEENO] ")
        sql.AppendLine(" ,[BIRTHDATE] ")
        sql.AppendLine(" ,[EMPLOYEENAME] ")
        sql.AppendLine(" ,[CARDTYPE] ")
        sql.AppendLine(" ,[COMPANYCD] ")
        sql.AppendLine(" ,[COMPANYNAME] ")
        sql.AppendLine(" ,[COMPANYINDUSTRYNAME] ")
        sql.AppendLine(" ,[DEPARTMENTNAME] ")
        sql.AppendLine(" ,[FACTORYDUTYNAME] ")
        sql.AppendLine(" ,[MEALKINDCODE] ")
        sql.AppendLine(" ,[MEALKINDNAME] ")
        sql.AppendLine(" ,[DESKNUMBER] ")
        sql.AppendLine(" ,[DESKINFONAME] ")
        sql.AppendLine(" ,[AMOUNT] ")
        sql.AppendLine(" ,[CAFAMOUNT] ")
        sql.AppendLine(" ,[V1V2] ")
        sql.AppendLine(" ,[MANUALINPUTYN], [PROCDATE] ")
        sql.AppendLine(" ) ")
        sql.AppendLine(" 		 VALUES([CARDNO] ")
        sql.AppendLine(" ,[CAFNO] ")
        sql.AppendLine(" ,[CAFNAME] ")
        sql.AppendLine(" ,[REGDATE] ")
        sql.AppendLine(" ,[DOMAINID] ")
        sql.AppendLine(" ,[EMPLOYEENO] ")
        sql.AppendLine(" ,[BIRTHDATE] ")
        sql.AppendLine(" ,[EMPLOYEENAME] ")
        sql.AppendLine(" ,[CARDTYPE] ")
        sql.AppendLine(" ,[COMPANYCD] ")
        sql.AppendLine(" ,[COMPANYNAME] ")
        sql.AppendLine(" ,[COMPANYINDUSTRYNAME] ")
        sql.AppendLine(" ,[DEPARTMENTNAME] ")
        sql.AppendLine(" ,[FACTORYDUTYNAME] ")
        sql.AppendLine(" ,[MEALKINDCODE] ")
        sql.AppendLine(" ,[MEALKINDNAME] ")
        sql.AppendLine(" ,[DESKNUMBER] ")
        sql.AppendLine(" ,[DESKINFONAME] ")
        sql.AppendLine(" ,[AMOUNT] ")
        sql.AppendLine(" ,[CAFAMOUNT] ")
        sql.AppendLine(" ,[V1V2] ")
        sql.AppendLine(" ,[MANUALINPUTYN], substring(regdate, 1, 10)) ; ")
        sql.AppendLine(" DROP TABLE #TEMP_RESTAURANT ")
        'sql.AppendLine(" COMMIT ")
        result.Text = sqlf.NonQuery(sql.ToString) & ": " & sqlf.lastException
    End Sub

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Session("cudate") = curdate.Text
    End Sub

    Protected Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        Timer1.Enabled = CheckBox1.Checked
    End Sub
End Class