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

Anpassung UID Prüfung

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-04-04 14:35:24 +02:00
parent 7cba97a8d5
commit 0c91b031a8
2 changed files with 27 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -2298,10 +2298,10 @@ Public Class frmStartOptions
Function getUID_Pruefung(maxAnz As Integer) As Boolean
getUID_Pruefung(maxAnz, "VERAG", "UID Prüfung VERAG", "as@verag.ag;ih@verag.ag;kb@verag.ag", "al@verag.ag")
getUID_Pruefung(maxAnz, "IMEX", "UID Prüfung IMEX", "Viktoria.Leirich@imex-group.at;as@verag.ag;kb@verag.ag", "al@verag.ag")
getUID_Pruefung(maxAnz, "AMBAR", "UID Prüfung AMBAR", "as@verag.ag", "al@verag.ag")
getUID_Pruefung(maxAnz, "UNISPED", "UID Prüfung UNISPED", "al@verag.ag", "al@verag.ag")
getUID_Pruefung(maxAnz, "VERAG", "UID Prüfung VERAG", "as@verag.ag;ih@verag.ag;kb@verag.ag", "al@verag.ag",,, True)
getUID_Pruefung(maxAnz, "IMEX", "UID Prüfung IMEX", "Viktoria.Leirich@imex-group.at;as@verag.ag;kb@verag.ag", "al@verag.ag",,, True)
getUID_Pruefung(maxAnz, "AMBAR", "UID Prüfung AMBAR", "as@verag.ag", "al@verag.ag",,, True)
getUID_Pruefung(maxAnz, "UNISPED", "UID Prüfung UNISPED", "al@verag.ag", "al@verag.ag",,, True)
'getUID_Pruefung(maxAnz, "VERAG", "UID Prüfung VERAG", "mm@verag.ag;la@verag.ag", "al@verag.ag")
End Function
@@ -2397,7 +2397,7 @@ Public Class frmStartOptions
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
If SQL.doSQL("INSERT INTO tblKundenBesonderheiten (kdb_KundenNr,kdb_kategorie,kdb_text,kdb_mitId,kdb_mitName,kdb_EingetragenAm,kdb_visible,kdb_hervorheben,kdb_history) " &
" VALUES(" & kunde.KundenNr & ",'ALLG' ,'" & textUIDVermerk & "'," & "4" & ",'" & "ADMIN" & "','" & Now() & "',1,1,0)", "FMZOLL") Then
" VALUES(" & kunde.KundenNr & ",'ALLG' ,'" & textUIDVermerk & "'," & "4" & ",'" & "AUTO" & "','" & Now() & "',1,1,0)", "FMZOLL") Then
setUIDToNull(kunde)
End If
@@ -2449,12 +2449,16 @@ Public Class frmStartOptions
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim steuersatz = SQL.DLookup("[Steuersatz %]", "[Steuertabelle]", "[Steuerschlüssel]='" & kunde.Steuerschlüssel & "'", "FMZOLL", -1)
Dim Filiale As New VERAG_PROG_ALLGEMEIN.cFilialen(kunde.FilialenNr)
If steuersatz = 0 Then
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.GET_LAND
Case "AT"
Select Case Filiale.LandKz
Case "A", "AT"
kunde.Steuerschlüssel = 2
Case "DE"
Case "D", "DE"
kunde.Steuerschlüssel = 19
Case "GB"
kunde.Steuerschlüssel = 20
End Select
kunde.SAVE()
Else