Sub Test
Private Brt,Nt,Dsc As Double
Dsc = GetDsc(1250)
end Sub
Sub GetDsc(IdDsc As Int) As Double
Private Qry As SQL
Private Dsc As Double
Qry = dbpool.GetConnection
Dsc = Qry.ExecQuerySingleResult("select dsc from m_dsc where id = " & IdDsc)
Qry.Close
Return Dsc
End Sub