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

Fiskal-Checkliste / AT ZOLL eingereicht

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-03-15 22:29:37 +01:00
parent e0c0d74b9a
commit a27e324a71
7 changed files with 127 additions and 101 deletions
Download Patch File Download Diff File Expand all files Collapse all files

60
Aviso/frmATZollEingereichtSetzen.vb
View File

@@ -49,9 +49,11 @@ Public Class frmATZollEingereichtSetzen
cbxUID.Checked = True
picUIDAbfrage.Image = My.Resources.ok
Else
check_UID(ADRESSEN)
check_UID_AD(ADRESSEN)
End If
End If
Else
check_UID(txtUid.Text)
End If
If KUNDEN IsNot Nothing Then
txtEori.Text = If(KUNDEN.EORITIN, "")
@@ -62,6 +64,10 @@ Public Class frmATZollEingereichtSetzen
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
If Not cbxUID.Checked Then Me.DialogResult = DialogResult.None : Exit Sub
If Not cbxEORI.Checked Then Me.DialogResult = DialogResult.None : Exit Sub
Me.DialogResult = DialogResult.OK
@@ -93,7 +99,7 @@ Public Class frmATZollEingereichtSetzen
If EORI_ERG.Result(0).Status = 0 Or EORI_ERG.Result(0).Status = 1 Then
Select Case EORI_ERG.Result(0).Status
Case 0 : cbxEORI.Checked = True : picEORIAbfrage.BackgroundImage = My.Resources.ok
Case 0 : cbxEORI.Checked = True : picEORIAbfrage.BackgroundImage = My.Resources.ok : lblEORIPruefdatum.Text = Now.ToShortDateString
Case 1 : cbxEORI.Checked = False : picEORIAbfrage.BackgroundImage = My.Resources.del
End Select
@@ -103,7 +109,7 @@ Public Class frmATZollEingereichtSetzen
End If
End Sub
Sub check_UID(ADRESSE)
Sub check_UID_AD(ADRESSE)
If ADRESSE.UstIdNr Is Nothing Then Exit Sub
If ADRESSE.UstIdKz Is Nothing Then Exit Sub
If ADRESSE.UstIdKz = "" Then Exit Sub
@@ -117,12 +123,47 @@ Public Class frmATZollEingereichtSetzen
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)
cbxUID.Checked = True
picUIDAbfrage.BackgroundImage = My.Resources.ok
lblUIDPruefdatum.Text = Now.ToShortDateString
Else
cbxUID.Checked = False
picUIDAbfrage.BackgroundImage = My.Resources.del
End If
Else
picUIDAbfrage.BackgroundImage = Nothing
End If
FO.Call_Web_Service_MethodUID_Logout_NEU2020()
End If
End Sub
Sub check_UID(UID_NR)
picUIDAbfrage.BackgroundImage = Nothing
' 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_WO_KDNR(UID_NR,, 2)
If UID_TMP IsNot Nothing Then
If UID_TMP.uid_valid Then
'setKD(kdNr)
cbxUID.Checked = True
picUIDAbfrage.BackgroundImage = My.Resources.ok
lblUIDPruefdatum.Text = Now.ToShortDateString
Else
cbxUID.Checked = False
picUIDAbfrage.BackgroundImage = My.Resources.del
End If
Else
@@ -149,14 +190,17 @@ Public Class frmATZollEingereichtSetzen
Private Sub btnCheckUID_Click(sender As Object, e As EventArgs) Handles btnCheckUID.Click
If SND IsNot Nothing Then
If SND.tblSnd_EmpfaengerKdNr > 0 Then
End If
Dim ADRESSEN As New VERAG_PROG_ALLGEMEIN.cAdressen(SND.tblSnd_EmpfaengerKdNr)
If ADRESSEN IsNot Nothing Then
check_UID(ADRESSEN)
If SND.tblSnd_EmpfaengerKdNr > 0 Then
Dim ADRESSEN As New VERAG_PROG_ALLGEMEIN.cAdressen(SND.tblSnd_EmpfaengerKdNr)
If ADRESSEN IsNot Nothing Then
check_UID_AD(ADRESSEN)
Exit Sub
End If
End If
End If
'Wenn oben nciht zutrifft..
check_UID(txtUid.Text)
End Sub
End Class