edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

IMEX offerte

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-03-17 13:19:17 +01:00
parent 6957fe10a7
commit 2d0ccfce7f
2 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.3.7.3")>
<Assembly: AssemblyFileVersion("1.3.7.3")>
<Assembly: AssemblyVersion("1.3.7.4")>
<Assembly: AssemblyFileVersion("1.3.7.4")>

3
SDL/kunden/frmOffertenBearbeiten.vb
View File

@@ -27,7 +27,8 @@
Dim where = ""
Select Case FIRMA_TMP
Case "IMEX"
where = " WHERE [Offertenstamm].[OffertenNr] IN (1,2,3,4,5,6,7,8,9,10,26,27,29,50,51)"
' where = " WHERE [Offertenstamm].[OffertenNr] IN (1,2,3,4,5,6,7,8,9,10,26,27,29,50,51)"
where = " [Offertenstamm].[OffertenNr] IN (SELECT tblAbfertigungsartOffertenstamm.ao_OffertenNr FROM tblAbfertigungsartenFiliale inner join tblAbfertigungsartOffertenstamm on ao_Abfertigungsart=Abfertigungsart WHERE FilialenNr=5501 ) "
End Select
Dim SQLsrt = " SELECT (select case when COUNT(*)>0 then 1 else 0 end FROM Offerten where KundenNr=" & kdnr & " and [Offerten].[OffertenNr]=[Offertenstamm].[OffertenNr]) as vorhanden," &
" [Offertenstamm].[OffertenNr],[OffertenBez] FROM Offertenstamm " & where & " order by OffertenNr"