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

Fakturierung(dplt.RgNr), UID/EORI prfg Neukunden, Chat Korr.

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-12-21 14:55:50 +01:00
parent 92854b362d
commit 9e3abd01eb
14 changed files with 796 additions and 574 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb
View File

@@ -81,13 +81,13 @@ Public Class cRechnungsnummern
End Function
Public Function CHECK_RGNR() As Integer ' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr.
Public Function CHECK_RGNR(Optional sleep = False) As Integer ' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr.
Dim increased = False
System.Threading.Thread.Sleep(200) ' nur, um abzuwarten falls parallel eine Nr vergeben wird
If sleep Then System.Threading.Thread.Sleep(200) ' nur, um abzuwarten falls parallel eine Nr vergeben wird
While SQL.DLookup("count(*)", "Rechnungsausgang", " RechnungsNr='" & LfdRechnungsNr & "' and Firma_ID='" & SpeditionsbuchNr & "' and Buchungsjahr='" & Buchungsjahr & "' ", "FMZOLL", 0) > 0
LfdRechnungsNr += 1
increased = True
System.Threading.Thread.Sleep(100) ' nur, um abzuwarten falls parallel eine Nr vergeben wird
System.Threading.Thread.Sleep(50) ' nur, um abzuwarten falls parallel eine Nr vergeben wird
End While
If increased Then SAVE()
Return LfdRechnungsNr