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

Rechnungdrucks-Art: Mail+Kopie, VERAG Parkplatzkarte NEU

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-03-15 22:27:25 +01:00
parent 40909672ed
commit 82e17e5cc1
35 changed files with 1812 additions and 469 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
VERAG_PROG_ALLGEMEIN/Classes/cKundenBesonderheiten.vb
View File

@@ -1,6 +1,42 @@
Imports System.Data.SqlClient
Imports System.Reflection
Public Class cKundenBesonderheiten_LIST
Sub New(KundenNr, Optional hervorheben = Nothing, Optional kdb_kategorie_in = Nothing)
LOAD(KundenNr, hervorheben, kdb_kategorie_in)
End Sub
Public LIST As New List(Of cKundenBesonderheiten)
Public Sub LOAD(KundenNr, Optional hervorheben = Nothing, Optional kdb_kategorie_in = Nothing)
LIST.Clear()
Try
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblKundenBesonderheiten WHERE kdb_KundenNr=@kdb_KundenNr " & If(hervorheben IsNot Nothing, " AND [kdb_hervorheben]=@kdb_hervorheben ", "") & If(kdb_kategorie_in IsNot Nothing, " AND [kdb_kategorie] IN (" & kdb_kategorie_in & ") ", ""), conn)
cmd.Parameters.AddWithValue("@kdb_KundenNr", KundenNr)
If hervorheben IsNot Nothing Then cmd.Parameters.AddWithValue("@kdb_hervorheben", CBool(hervorheben))
Dim dr = cmd.ExecuteReader()
While dr.Read
Dim BH As New cKundenBesonderheiten
For Each li In BH.getParameterList()
Dim propInfo As PropertyInfo = BH.GetType.GetProperty(li.Scalarvariable)
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(BH, Nothing)
Else
propInfo.SetValue(BH, dr.Item(li.Text))
End If
Next
LIST.Add(BH)
End While
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
End Class
Public Class cKundenBesonderheiten
Property kdb_id As Integer
Property kdb_KundenNr As Integer

19
VERAG_PROG_ALLGEMEIN/DATENSERVER/frmVorlagenUpload.Designer.vb generated
View File

@@ -41,12 +41,15 @@ Partial Class frmVorlagenUpload
Me.txtOrdner._DateTimeOnly = False
Me.txtOrdner._numbersOnly = False
Me.txtOrdner._numbersOnlyKommastellen = ""
Me.txtOrdner._numbersOnlyTrennzeichen = True
Me.txtOrdner._Prozent = False
Me.txtOrdner._ShortDateNew = False
Me.txtOrdner._ShortDateOnly = False
Me.txtOrdner._TimeOnly = False
Me.txtOrdner._TimeOnly_Seconds = False
Me.txtOrdner._value = "VORLAGEN"
Me.txtOrdner._Waehrung = False
Me.txtOrdner._WaehrungZeichen = True
Me.txtOrdner.Enabled = False
Me.txtOrdner.ForeColor = System.Drawing.Color.Black
Me.txtOrdner.Location = New System.Drawing.Point(89, 38)
@@ -55,7 +58,7 @@ Partial Class frmVorlagenUpload
Me.txtOrdner.MaxLines_Warning_Label = Nothing
Me.txtOrdner.Name = "txtOrdner"
Me.txtOrdner.Size = New System.Drawing.Size(357, 20)
Me.txtOrdner.TabIndex = 3
Me.txtOrdner.TabIndex = 2
Me.txtOrdner.Text = "VORLAGEN"
'
'lbl
@@ -82,12 +85,15 @@ Partial Class frmVorlagenUpload
Me.tzxtKategorie._DateTimeOnly = False
Me.tzxtKategorie._numbersOnly = False
Me.tzxtKategorie._numbersOnlyKommastellen = ""
Me.tzxtKategorie._numbersOnlyTrennzeichen = True
Me.tzxtKategorie._Prozent = False
Me.tzxtKategorie._ShortDateNew = False
Me.tzxtKategorie._ShortDateOnly = False
Me.tzxtKategorie._TimeOnly = False
Me.tzxtKategorie._TimeOnly_Seconds = False
Me.tzxtKategorie._value = "DOKUMENTE"
Me.tzxtKategorie._Waehrung = False
Me.tzxtKategorie._WaehrungZeichen = True
Me.tzxtKategorie.Enabled = False
Me.tzxtKategorie.ForeColor = System.Drawing.Color.Black
Me.tzxtKategorie.Location = New System.Drawing.Point(89, 12)
@@ -122,12 +128,15 @@ Partial Class frmVorlagenUpload
Me.txtName._DateTimeOnly = False
Me.txtName._numbersOnly = False
Me.txtName._numbersOnlyKommastellen = ""
Me.txtName._numbersOnlyTrennzeichen = True
Me.txtName._Prozent = False
Me.txtName._ShortDateNew = False
Me.txtName._ShortDateOnly = False
Me.txtName._TimeOnly = False
Me.txtName._TimeOnly_Seconds = False
Me.txtName._value = Nothing
Me.txtName._Waehrung = False
Me.txtName._WaehrungZeichen = True
Me.txtName.ForeColor = System.Drawing.Color.Black
Me.txtName.Location = New System.Drawing.Point(89, 132)
Me.txtName.MaxLineLength = -1
@@ -135,7 +144,7 @@ Partial Class frmVorlagenUpload
Me.txtName.MaxLines_Warning_Label = Nothing
Me.txtName.Name = "txtName"
Me.txtName.Size = New System.Drawing.Size(357, 20)
Me.txtName.TabIndex = 7
Me.txtName.TabIndex = 5
'
'btnUpload
'
@@ -143,7 +152,7 @@ Partial Class frmVorlagenUpload
Me.btnUpload.Location = New System.Drawing.Point(221, 158)
Me.btnUpload.Name = "btnUpload"
Me.btnUpload.Size = New System.Drawing.Size(225, 44)
Me.btnUpload.TabIndex = 8
Me.btnUpload.TabIndex = 6
Me.btnUpload.Text = "Datei Auswählen + Upload"
Me.btnUpload.UseVisualStyleBackColor = True
'
@@ -156,7 +165,7 @@ Partial Class frmVorlagenUpload
Me.txtUnterordner1.Location = New System.Drawing.Point(89, 63)
Me.txtUnterordner1.Name = "txtUnterordner1"
Me.txtUnterordner1.Size = New System.Drawing.Size(357, 21)
Me.txtUnterordner1.TabIndex = 5
Me.txtUnterordner1.TabIndex = 3
'
'txtUnterordner2
'
@@ -167,7 +176,7 @@ Partial Class frmVorlagenUpload
Me.txtUnterordner2.Location = New System.Drawing.Point(89, 90)
Me.txtUnterordner2.Name = "txtUnterordner2"
Me.txtUnterordner2.Size = New System.Drawing.Size(357, 21)
Me.txtUnterordner2.TabIndex = 10
Me.txtUnterordner2.TabIndex = 4
'
'Label4
'

84
VERAG_PROG_ALLGEMEIN/Schnittstellen/Finanzonline/cFinanzOnlineWebService.vb
View File

@@ -92,7 +92,9 @@ Public Class cFinanzOnlineWebService
Function Call_Web_Service_MethodUID_Abfrage_NEU2020(ba_KundenNr, Optional AskIfDouble = False, Optional SaveErgInAdressen = True, Optional showErr = True, Optional Stufe = 1, Optional ByRef errorCode = 0) As VERAG_PROG_ALLGEMEIN.cUIDPruefung
Dim AD As New cAdressen(ba_KundenNr)
If AD IsNot Nothing Then
If AD.UstIdKz IsNot Nothing AndAlso AD.UstIdNr IsNot Nothing Then
Try
If AskIfDouble Then
If IsDate(AD.UstIdGeprüft) AndAlso CDate(AD.UstIdGeprüft).ToShortDateString = Now.ToShortDateString Then
@@ -126,6 +128,7 @@ Public Class cFinanzOnlineWebService
Dim returnInt As Integer = CallWebService.uidAbfrage(tid, benid, SESSION_ID, uid, countryCode & vatNumber, StufeAbf, msg, name, adrz1, adrz2, adrz3, adrz4, adrz5, adrz6)
errorCode = returnInt
If returnInt = 0 Or returnInt = 1 Then
Dim UID_TMP As New VERAG_PROG_ALLGEMEIN.cUIDPruefung
@@ -164,6 +167,8 @@ Public Class cFinanzOnlineWebService
End If
Return UID_TMP
Else
If showErr Then MsgBox(GetCodeText(returnInt))
End If
Catch ex As Exception
If showErr Then MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
@@ -195,6 +200,83 @@ Public Class cFinanzOnlineWebService
' Call_Web_Service_MethodUID_Logout_NEU2020()
Return Nothing
End Function
Function Call_Web_Service_MethodUID_Abfrage_WO_KDNR(UID_Nr, Optional showErr = True, Optional Stufe = 1, Optional ByRef errorCode = 0) As VERAG_PROG_ALLGEMEIN.cUIDPruefung
Try
If UID_Nr.Length > 6 Then
Dim tmp_SESSION_ID = SESSION_ID
Dim CallWebService As New VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.uidAbfrageService
Dim msg As String = ""
Dim name As String = ""
Dim adrz1 As String = ""
Dim adrz2 As String = ""
Dim adrz3 As String = ""
Dim adrz4 As String = ""
Dim adrz5 As String = ""
Dim adrz6 As String = ""
Dim countryCode As String = UID_Nr.Substring(0, 2)
Dim vatNumber As String = UID_Nr.Substring(2, uid.Length)
Dim StufeAbf = VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.uidAbfrageServiceRequestStufe.Item1
Select Case Stufe
Case 1
StufeAbf = VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.uidAbfrageServiceRequestStufe.Item1
Case 2
StufeAbf = VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.uidAbfrageServiceRequestStufe.Item2
End Select
Dim returnInt As Integer = CallWebService.uidAbfrage(tid, benid, SESSION_ID, uid, countryCode & vatNumber, StufeAbf, msg, name, adrz1, adrz2, adrz3, adrz4, adrz5, adrz6)
errorCode = returnInt
If returnInt = 0 Or returnInt = 1 Then
Dim UID_TMP As New VERAG_PROG_ALLGEMEIN.cUIDPruefung
UID_TMP.uid_Datum = Now
UID_TMP.uid_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
If If(UID_TMP.uid_Sachbearbeiter, "") = "" Then UID_TMP.uid_Sachbearbeiter = "AUTO"
UID_TMP.uid_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
UID_TMP.uid_valid = (returnInt = 0)
UID_TMP.uid_KundenNr = -1
UID_TMP.uid_UstIdKz = countryCode
UID_TMP.uid_UstIdNr = vatNumber
UID_TMP.Firma = If(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, "VERAG")
UID_TMP.uid_abfrageUid = uid
UID_TMP.uid_sessionId = tmp_SESSION_ID
UID_TMP.uid_firma = name
UID_TMP.uid_adr1 = adrz1
UID_TMP.uid_adr2 = adrz2
UID_TMP.uid_adr3 = adrz3
UID_TMP.uid_adr4 = adrz4
UID_TMP.uid_adr5 = adrz5
UID_TMP.uid_adr6 = adrz6
UID_TMP.uid_stufe = Stufe
UID_TMP.SAVE()
If (returnInt = 0) Then 'OK
End If
Return UID_TMP
End If
End If
Catch ex As Exception
If showErr Then MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
' Call_Web_Service_MethodUID_Logout_NEU2020()
End Try
Return Nothing
End Function
@@ -258,6 +340,8 @@ Public Class cFinanzOnlineWebService
Finanzamt."
Case 105 : Return "Die UID-Nummer ist über FinanzOnline einzeln abzufragen."
Case 1511 : Return "Der angegebene Mitgliedstaat ist derzeit nicht erreichbar"
Case 1512 : Return "Die UID-Abfrage ist auf Grund der hohen Anzahl an Abfragen derzeit nicht möglich."
Case 1513 : Return "Die UID-Abfrage für die angegebene UID-Nummer des Erwerbers wurde an diesem Tag bereits zweimal durchgeführt. Eine häufigere Abfrage mittels Webservice ist nicht möglich."
Case Else : Return "Unbekannter Fehler: " & rc
End Select
End Function