ModuleMaster/logistics/newrow_driverdaily.ashx - main - ivan/ModMas

ModuleMaster/logistics/newrow_driverdaily.ashx
45 строк2 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:4900d9fb6
<%@ WebHandler Language="VB" Class="newrow_driverdaily" %>

Imports System
Imports System.Web

Public Class newrow_driverdaily : Implements IHttpHandler

    Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
        Dim tid As String = context.Request.QueryString("tid")
        Dim rowid As String = context.Request.QueryString("rowid")
        If IsNumeric(tid) And IsNumeric(rowid) Then
            Dim sqlf As New sharedClasses.dbFunctions.SqlFunctions
            Dim sql As New StringBuilder
            sql.AppendLine("MERGE usermodules.[user].[DRIVER_DAILY_2] as trg ")
            sql.AppendLine("using hr.[dbo].VI_DRIVERS_WORK_PAYMENT_LOGISTICS as src ")
            sql.appendline("ON trg.DRIVER_NAME = src.driver_name ")
            sql.AppendLine("and trg.[DATE] = src.[date] ")
            sql.AppendLine("and trg.id = src.id ")
            sql.AppendLine("AND trg.id = " & rowid)
            sql.appendline("WHEN MATCHED THEN ")
            sql.AppendLine("update set trg.PER_DAY = cast(src.per_day as decimal(10,4)), ")
            sql.AppendLine("trg.salary = cast(src.tariff_x1_rub as decimal(10,4)), ")
            sql.AppendLine("trg.tariff_x1 = src.tariff_x1_hr, ")
            sql.AppendLine("trg.date_type = src.date_type, ")
            sql.AppendLine("trg.overtime = cast(src.tariff_x1_5_rub  as decimal(10,4)), ")
            sql.AppendLine("trg.[period] = left(src.date, 7), ")
            sql.AppendLine("trg.overtime_x2 = cast(src.tariff_x2_rub as decimal(10,4)); ")

            sqlf.NonQuery(sql.ToString)
            sql.Clear()
            sql.AppendLine("UPDATE usermodules.[user].[DRIVER_DAILY_2] SET ")
            sql.AppendLine("PARKING___13_ = cast(PARKING_FEE as money) / 0.87 WHERE id=" & rowid)
            sqlf.NonQuery(sql.ToString)
        End If

        context.Response.Write("OK")
    End Sub

    Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
        Get
            Return False
        End Get
    End Property

End Class