fstatus = "NULL"
tdl = "INSERT INTO temptdl VALUES(@fbankcode,@fbranchcode,@fdate,@fbal1,@fbal2,@fbal3,@fbal4,@fbal5,@fbal6,@fbal7,@fbal8,@fbal9,@fbal10,@fbal11,@fbal2@fbal3,@fbal14,@fbal15,@fbal16,@fbal17,@fbal18,@fbal19,@fbal20,@fbal21,@fbal22,@fbal23,@fbal24,@fbal25,@fbal26,@fbal27,@fbal28,@fbal29,@fbal30,@fstatus,@fuser,@fpassed,@fsyspassed,@fpass,@fworkstent,@fworkstpassed)"
Dim cmdtdlr As New SqlClient.SqlCommand(tdl, connDB)
cmdtdlr.Parameters.AddWithValue("@fbankcode", gbankid)
cmdtdlr.Parameters.AddWithValue("@fbranchcode", gbranchid)
cmdtdlr.Parameters.AddWithValue("@fdate", tdate)
cmdtdlr.Parameters.AddWithValue("@fbal1", fbal1)
cmdtdlr.Parameters.AddWithValue("@fbal2", fbal2)
cmdtdlr.Parameters.AddWithValue("@fbal3", fbal3)
cmdtdlr.Parameters.AddWithValue("@fbal4", fbal4)
cmdtdlr.Parameters.AddWithValue("@fbal5", fbal5)
cmdtdlr.Parameters.AddWithValue("@fbal6", fbal6)
cmdtdlr.Parameters.AddWithValue("@fbal7", fbal7)
cmdtdlr.Parameters.AddWithValue("@fbal8", fbal8)
cmdtdlr.Parameters.AddWithValue("@fbal9", fbal9)
cmdtdlr.Parameters.AddWithValue("@fbal10", fbal10)
cmdtdlr.Parameters.AddWithValue("@fbal11", fbal11)
cmdtdlr.Parameters.AddWithValue("@fbal12", fbal12)
cmdtdlr.Parameters.AddWithValue("@fbal13", fbal13)
cmdtdlr.Parameters.AddWithValue("@fbal14", fbal14)
cmdtdlr.Parameters.AddWithValue("@fbal15", fbal15)
cmdtdlr.Parameters.AddWithValue("@fbal16", fbal16)
cmdtdlr.Parameters.AddWithValue("@fbal17", fbal17)
cmdtdlr.Parameters.AddWithValue("@fbal18", fbal18)
cmdtdlr.Parameters.AddWithValue("@fbal19", fbal19)
cmdtdlr.Parameters.AddWithValue("@fbal20", fbal20)
cmdtdlr.Parameters.AddWithValue("@fbal21", fbal21)
cmdtdlr.Parameters.AddWithValue("@fbal22", fbal22)
cmdtdlr.Parameters.AddWithValue("@fbal23", fbal23)
cmdtdlr.Parameters.AddWithValue("@fbal24", fbal24)
cmdtdlr.Parameters.AddWithValue("@fbal25", fbal25)
cmdtdlr.Parameters.AddWithValue("@fbal26", fbal26)
cmdtdlr.Parameters.AddWithValue("@fbal27", fbal27)
cmdtdlr.Parameters.AddWithValue("@fbal28", fbal28)
cmdtdlr.Parameters.AddWithValue("@fbal29", fbal29)
cmdtdlr.Parameters.AddWithValue("@fbal30", fbal30)
cmdtdlr.Parameters.AddWithValue("@fstatus", fstatus)
cmdtdlr.Parameters.AddWithValue("@fuser", Guser)
cmdtdlr.Parameters.AddWithValue("@fpassed", Guser)
cmdtdlr.Parameters.AddWithValue("@fsyspassed", serverdt)
cmdtdlr.Parameters.AddWithValue("@fpass", "Y")
cmdtdlr.Parameters.AddWithValue("@fworkstent", worknode)
cmdtdlr.Parameters.AddWithValue("@fworkstpassed", worknode)
cmdtdlr.ExecuteNonQuery()
End If