marekf/laatzen
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

to vb6 query

Browse Source
This commit is contained in:
Stoyan Zlatev 2023-04-20 06:50:36 +00:00
parent 9683c4d52c
commit 9d0c304c9d
1 changed files with 25 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
Shared/spzvtbg
View File

@ -1,25 +1,25 @@
SELECT [AuftragPosition].*
, [Kunde].[Ort] AS [Kundenort]
, [Kunde].[Name]
, [Identnr].[KurzBez]
, [Identnr].[Typ]
, [Identnr].[Typzusatz]
, [Identnr].[Nennweite]
, [Identnr].[Temperatur]
, [Identnr].[Druck]
, [Identnr].[Baulaenge]
, [Identnr].[IdentNrString]
, [Identnr].[VakoCode]
, [Identnr].[SAP_Nummer]
, [Identnr].[Bestellgruppe]
, CASE WHEN [VakoMerkmal].[Charcode] IS NULL OR [VakoMerkmal].[Charcode] = 'X'
THEN 'x'
ELSE 'o' END AS [DruckSensor]
FROM [AuftragPosition]
JOIN [Kunde] ON [Kunde].[KundenNr] = [AuftragPosition].[KundenNr]
JOIN [Identnr] ON [Identnr].[IdentNr] = [AuftragPosition].[IdentNr]
LEFT JOIN (SELECT [Stelle], [Laenge], [Charcode]
FROM [Auftrag].[dbo].[VAKO_Merkmale]
WHERE [Basis] = 'GNS' AND [Name] = 'C_GEN_GEHAEUSEOPTION')
AS [VakoMerkmal]
ON [VakoMerkmal].[Charcode] = SUBSTRING([Identnr].[VakoCode], [VakoMerkmal].[Stelle], [VakoMerkmal].[Laenge])
strSQL = " SELECT [AuftragPosition].* "
strSQL = strSQL & " , [Kunde].[Ort] AS [Kundenort]"
strSQL = strSQL & " , [Kunde].[Name]"
strSQL = strSQL & " , [Identnr].[KurzBez]"
strSQL = strSQL & " , [Identnr].[Typ]"
strSQL = strSQL & " , [Identnr].[Typzusatz]"
strSQL = strSQL & " , [Identnr].[Nennweite]"
strSQL = strSQL & " , [Identnr].[Temperatur]"
strSQL = strSQL & " , [Identnr].[Druck]"
strSQL = strSQL & " , [Identnr].[Baulaenge]"
strSQL = strSQL & " , [Identnr].[IdentNrString]"
strSQL = strSQL & " , [Identnr].[VakoCode]"
strSQL = strSQL & " , [Identnr].[SAP_Nummer]"
strSQL = strSQL & " , [Identnr].[Bestellgruppe]"
strSQL = strSQL & " , CASE WHEN [VakoMerkmal].[Charcode] IS NULL OR [VakoMerkmal].[Charcode] = 'X'"
strSQL = strSQL & " THEN 'x'"
strSQL = strSQL & " ELSE 'o' END AS [DruckSensor]"
strSQL = strSQL & " FROM [AuftragPosition]"
strSQL = strSQL & " JOIN [Kunde] ON [Kunde].[KundenNr] = [AuftragPosition].[KundenNr]"
strSQL = strSQL & " JOIN [Identnr] ON [Identnr].[IdentNr] = [AuftragPosition].[IdentNr]"
strSQL = strSQL & " LEFT JOIN (SELECT [Stelle], [Laenge], [Charcode]"
strSQL = strSQL & " FROM [Auftrag].[dbo].[VAKO_Merkmale]"
strSQL = strSQL & " WHERE [Basis] = 'GNS' AND [Name] = 'C_GEN_GEHAEUSEOPTION')"
strSQL = strSQL & " AS [VakoMerkmal]"
strSQL = strSQL & " ON [VakoMerkmal].[Charcode] = SUBSTRING([Identnr].[VakoCode], [VakoMerkmal].[Stelle], [VakoMerkmal].[Laenge])"