This commit is contained in:
Jonathan Jenne
2020-09-11 15:56:50 +02:00
parent 614b415a98
commit c9bd8da4a6
8 changed files with 228 additions and 82 deletions

View File

@@ -13,22 +13,6 @@ Public Class Database
_Config = ConfigManager
End Sub
Public Function LoadVendors() As DataTable
Return GetDatatable("SELECT C229, C003 FROM V050 WHERE C229 IS NOT NULL")
End Function
Public Function LoadVendorIdByCode(VendorCode As String) As String
Return GetScalarValue($"SELECT SUBSTRING(C000,0,6) C999 FROM T309 WHERE C001 = '{VendorCode}' AND C002 = 1")
End Function
Public Function LoadGroupsByVendor(VendorId As String) As DataTable
Return GetDatatable($"SELECT C001, SUBSTRING(C000,7,5) C999 FROM T309 WHERE C000 LIKE '{VendorId}%' AND C002 = 2 AND C001 LIKE '__ | %'")
End Function
Public Function LoadVersionsByVendorAndGroup(VendorId As String, GroupId As String) As DataTable
Return GetDatatable($"SELECT C001 FROM T309 WHERE C000 LIKE '{VendorId}-{GroupId}-%' AND C002 = 3 AND C001 LIKE '__ | %'")
End Function
#Region "Database-Access"
Private Function GetSQLConnection() As SqlConnection
Return GetSQLConnection(_Config.Config.ConnectionString)