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

tradeInvoice, Kundenubersicht, fakt, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-10-24 11:23:37 +02:00
parent 1c54193ff3
commit 0781684cb0
9 changed files with 65 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -1981,30 +1981,35 @@ Public Class usrCntlFaktAbrechnung
If RECHNUNG.ANHAENGE IsNot Nothing AndAlso Not RECHNUNG.ANHAENGE.Exists(Function(c) c.dsId = r("UStVPo_daId")) Then 'wenn der Anhang schon existiert!
Dim DAID As String = ""
DAID = func.getPDF(r("UStVPo_SchnittstellenNr"), r("UStVPo_ReNr"), r("UStVPo_ReDat"), r("UStVPo_daId"), False, True, USTV.UStVAn_LandKz, USTV, New cFakturierung, True)
If USTV.UStVAn_ID > 0 Then
Dim Antrag_LandKz = SQL.DLookup("LandKz", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & USTV.UStVAn_LandNr & "'", "FMZOLL")
Dim nameLief As String = ""
Dim DAID As String = ""
DAID = func.getPDF(r("UStVPo_SchnittstellenNr"), r("UStVPo_ReNr"), r("UStVPo_ReDat"), r("UStVPo_daId"), False, True, Antrag_LandKz, USTV, New cFakturierung, True)
Select Case r("UStVPo_SchnittstellenNr")
Case 1 : nameLief = "VERAG-" 'Verag360
Case 2, 8, 12 : nameLief = "IDS-"
Case 3 : nameLief = "IT-"
Case 4, 9 : nameLief = "MSE-"
Case 5, 10 : nameLief = "UTA-"
Case 6, 11 : nameLief = "PLOSE-"
Case 7 : nameLief = "RMC-"
End Select
Dim nameLief As String = ""
nameLief &= "RE"
Select Case r("UStVPo_SchnittstellenNr")
Case 1 : nameLief = "VERAG-" 'Verag360
Case 2, 8, 12 : nameLief = "IDS-"
Case 3 : nameLief = "IT-"
Case 4, 9 : nameLief = "MSE-"
Case 5, 10 : nameLief = "UTA-"
Case 6, 11 : nameLief = "PLOSE-"
Case 7 : nameLief = "RMC-"
End Select
nameLief &= "RE"
If DAID <> "" AndAlso IsNumeric(DAID) Then
Dim daidno As Integer = CInt(DAID)
Dim ds As New cDATENSERVER(daidno)
.Rows.Add(-1, nameLief, ds.da_name, ds.da_id, -1)
End If
If DAID <> "" AndAlso IsNumeric(DAID) Then
Dim daidno As Integer = CInt(DAID)
Dim ds As New cDATENSERVER(daidno)
.Rows.Add(-1, nameLief, ds.da_name, ds.da_id, -1)
End If
End If
End If
@@ -4299,11 +4304,11 @@ Nächste_Textzeile_lesen:
If If(SPEDBUCH.AtlasBezNrEZA, "") <> "" Then
If bool_SendAbrechung(SPEDBUCH.SendungID, kdFirmaRechnungAn.KdNr, "EUST") Then
loadEUST()
If RECHNUNG.Sammelrechnung = 0 Then loadEUST()
End If
If bool_SendAbrechung(SPEDBUCH.SendungID, kdFirmaRechnungAn.KdNr, "ZOLL") Then
loadZOLL()
If RECHNUNG.Sammelrechnung = 0 Then loadZOLL()
End If
End If
@@ -4409,8 +4414,8 @@ Nächste_Textzeile_lesen:
End Sub
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
loadEUST()
loadZOLL()
If RECHNUNG.Sammelrechnung = 0 Then loadEUST()
If RECHNUNG.Sammelrechnung = 0 Then loadZOLL()
loadBerechnungsArt_jePosition()
End Sub