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

Creditsafe - UIDNr Übernahme, Ausertungen SDL, Nettobetrag in Belegsebene bei ASFINAG

Browse Source
This commit is contained in:
d.breimaier
2024-02-07 10:02:00 +01:00
parent f0d7729100
commit 1ca2efae70
6 changed files with 216 additions and 168 deletions
Download Patch File Download Diff File Expand all files Collapse all files

93
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -1789,34 +1789,37 @@ Public Class usrCntlKundenuebersicht
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If ADRESSE.UstIdNr Is Nothing Then Exit Sub
If ADRESSE.UstIdKz Is Nothing Then Exit Sub
If ADRESSE.UstIdKz = "" Then Exit Sub
If ADRESSE.UstIdNr = "" Then Exit Sub
sender.BackgroundImage = My.Resources.wait
' Button5.Visible = False
checkUIDNr(sender)
'If ADRESSE.UstIdNr Is Nothing Then Exit Sub
'If ADRESSE.UstIdKz Is Nothing Then Exit Sub
'If ADRESSE.UstIdKz = "" Then Exit Sub
'If ADRESSE.UstIdNr = "" Then Exit Sub
'sender.BackgroundImage = My.Resources.wait
'' Button5.Visible = False
Dim FO As New VERAG_PROG_ALLGEMEIN.cFinanzOnlineWebService
FO.initValues()
'Dim FO As New VERAG_PROG_ALLGEMEIN.cFinanzOnlineWebService
'FO.initValues()
If FO.Call_Web_Service_MethodUID_Login_NEU2020() = 0 Then
Dim UID_TMP = FO.Call_Web_Service_MethodUID_Abfrage_NEU2020(ADRESSE.AdressenNr,, , , 2)
If UID_TMP IsNot Nothing Then
If UID_TMP.uid_valid Then
setKD(kdNr)
sender.BackgroundImage = My.Resources.ok
Else
sender.BackgroundImage = My.Resources.del
End If
Else
sender.BackgroundImage = My.Resources.fragezeichen
End If
'If FO.Call_Web_Service_MethodUID_Login_NEU2020() = 0 Then
' Dim UID_TMP = FO.Call_Web_Service_MethodUID_Abfrage_NEU2020(ADRESSE.AdressenNr,, , , 2)
' If UID_TMP IsNot Nothing Then
' If UID_TMP.uid_valid Then
' setKD(kdNr)
' sender.BackgroundImage = My.Resources.ok
' Else
' sender.BackgroundImage = My.Resources.del
' End If
' Else
' sender.BackgroundImage = My.Resources.fragezeichen
' End If
FO.Call_Web_Service_MethodUID_Logout_NEU2020()
' FO.Call_Web_Service_MethodUID_Logout_NEU2020()
End If
'End If
'' If cProgramFunctions.validUID(ADRESSE.UstIdKz, ADRESSE.UstIdNr) Then
'Dim UID = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefung(ADRESSE.AdressenNr, True)
@@ -2997,6 +3000,18 @@ Public Class usrCntlKundenuebersicht
If company.vatNo <> "" AndAlso checkNullStr(ADRESSE.UstIdKz) = "" AndAlso checkNullStr(ADRESSE.UstIdNr) = "" Then
'set and check uid nr
Dim countryKz = company.vatNo.Substring(0, 2)
ADRESSE.UstIdKz = countryKz
ADRESSE.UstIdNr = company.vatNo.Replace(countryKz, "").Replace(" ", "")
ADRESSE.SAVE()
Dim validUID As Boolean = False
checkUIDNr(, validUID)
If Not validUID Then
ADRESSE.UstIdKz = ""
ADRESSE.UstIdNr = ""
ADRESSE.SAVE()
End If
End If
@@ -3029,4 +3044,38 @@ Public Class usrCntlKundenuebersicht
Dim webAddress As String = "https://wiki.verag.ag/software/aviso/howtos/Creditsafe"
Process.Start(webAddress)
End Sub
Private Sub checkUIDNr(Optional sender As Object = Nothing, Optional ByRef validUID As Boolean = False)
If ADRESSE.UstIdNr Is Nothing Then Exit Sub
If ADRESSE.UstIdKz Is Nothing Then Exit Sub
If ADRESSE.UstIdKz = "" Then Exit Sub
If ADRESSE.UstIdNr = "" Then Exit Sub
If sender IsNot Nothing Then sender.BackgroundImage = My.Resources.wait
' Button5.Visible = False
Dim FO As New VERAG_PROG_ALLGEMEIN.cFinanzOnlineWebService
FO.initValues()
If FO.Call_Web_Service_MethodUID_Login_NEU2020() = 0 Then
Dim UID_TMP = FO.Call_Web_Service_MethodUID_Abfrage_NEU2020(ADRESSE.AdressenNr,, , , 2)
If UID_TMP IsNot Nothing Then
If UID_TMP.uid_valid Then
setKD(kdNr)
If sender IsNot Nothing Then sender.BackgroundImage = My.Resources.ok
validUID = True
Else
If sender IsNot Nothing Then sender.BackgroundImage = My.Resources.del
End If
Else
If sender IsNot Nothing Then sender.BackgroundImage = My.Resources.fragezeichen
End If
FO.Call_Web_Service_MethodUID_Logout_NEU2020()
End If
End Sub
End Class