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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-01-19 20:27:19 +01:00
parent 1c8b5afac9
commit 595851ec3c
37 changed files with 1293 additions and 479 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb
View File

@@ -499,8 +499,7 @@ Class TrdInvoice_FUNCTIONS
Select Case Firma_Id
Case 20 'IMEX --> Andere Sachkonten in Tbl Leistungen!
If [RK_RechnungsLandKz] Is Nothing _
OrElse [RK_RechnungsLandKz].trim = "" _
If [RK_RechnungsLandKz] Is Nothing OrElse [RK_RechnungsLandKz] Is DBNull.Value OrElse [RK_RechnungsLandKz].trim = "" _
OrElse [RK_RechnungsLandKz] = "A" _
OrElse [RK_RechnungsLandKz] = "AT" Then
If CBool([RP_Steuerpflichtig]) Then
@@ -524,7 +523,7 @@ Class TrdInvoice_FUNCTIONS
Case 21, 22, 23, 24 '--> cLeistungenBUKonten!
Dim BU_KTO As New VERAG_PROG_ALLGEMEIN.cLeistungenBUKonten(RP_LeistungsNr, Firma_Id)
If [RK_RechnungsLandKz] Is Nothing OrElse [RK_RechnungsLandKz].trim = "" OrElse
If [RK_RechnungsLandKz] Is Nothing OrElse [RK_RechnungsLandKz] Is DBNull.Value OrElse [RK_RechnungsLandKz].trim = "" OrElse
[RK_RechnungsLandKz] = FIRMA.Firma_LandKz.ToString.Replace("AT", "A").Replace("DE", "D") Then
If CBool([RP_Steuerpflichtig]) Then
@@ -547,8 +546,7 @@ Class TrdInvoice_FUNCTIONS
If getSachkonto = "" Then getSachkonto = "9999" 'DEFAULT!
Case Else
If [RK_RechnungsLandKz] Is Nothing _
OrElse [RK_RechnungsLandKz].trim = "" _
If [RK_RechnungsLandKz] Is Nothing OrElse [RK_RechnungsLandKz] Is DBNull.Value OrElse [RK_RechnungsLandKz].trim = "" _
OrElse [RK_RechnungsLandKz] = "A" _
OrElse [RK_RechnungsLandKz] = "AT" Then
If CBool([RP_Steuerpflichtig]) Then