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

FakMail

Browse Source
This commit is contained in:
d.breimaier
2025-08-13 15:42:46 +02:00
parent 59ecfa29a0
commit b12d282579
2 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
SDL/Fakturierung/frmFaktEmail.vb
View File

@@ -838,17 +838,16 @@ Public Class frmFaktEmail
Dim count_nichtAbgerVZ As Integer = -1
count_nichtAbgerVZ = CInt(SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblUStVPositionen] WHERE [UStVAn_ID] = " & USTV_ANTRAG.UStVAn_ID & " and [UStVPo_VZ] = 1 and isnull(UStVPo_VZ_RKID,0) = 0", "FMZOLL"))
If count_nichtAbgerVZ = 0 Then
SQL.doSQL("UPDATE [tblUStVAntrag] SET UStVAn_VZoffen = 0 WHERE [UStVAn_ID] IN (SELECT [UStVAn_ID] FROM [tblUStVPositionen] WHERE isnull([UStVPo_VZ],0) = 1 and isnull([UStVPo_VZ_RKID],0) = 0 AND [UStVAn_ID] = " & USTV_ANTRAG.UStVAn_ID & " )", "FMZOLL")
End If
SQL.doSQL("UPDATE [tblUStVAntrag] SET UStVAn_VZoffen = 0 WHERE [UStVAn_ID] IN (SELECT [UStVAn_ID] FROM [tblUStVPositionen] WHERE isnull([UStVPo_VZ],0) = 1 AND [UStVAn_ID] = " & USTV_ANTRAG.UStVAn_ID & " )", "FMZOLL")
End If
End If
End If
End If
'------------------------------------------------------------------------------------------

4
SDL/SDL.vbproj
View File

@@ -3298,7 +3298,9 @@
<Compile Include="zoll\usrCntlZOLLAuswertungen.Designer.vb">
<DependentUpon>usrCntlZOLLAuswertungen.vb</DependentUpon>
</Compile>
<Compile Include="zoll\usrCntlZOLLAuswertungen.vb" />
<Compile Include="zoll\usrCntlZOLLAuswertungen.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="zoll\usrCntlZollHauptmenue.Designer.vb">
<DependentUpon>usrCntlZollHauptmenue.vb</DependentUpon>
</Compile>