Kd VeranlKd,Aviso Birthday
This commit is contained in:
@@ -169,6 +169,7 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
|
||||
End If
|
||||
|
||||
Dim tmpSndId = -1
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
|
||||
'Plausibilität prüfen
|
||||
@@ -183,13 +184,13 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
|
||||
Else
|
||||
|
||||
'--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ATDE_FISKAL_CHECKLISTE") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "AVISO") Then
|
||||
'Sendungen durchlaufen und die Fiskal - Checkliste bei AT Fiskal anzeigen (je SND)
|
||||
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
|
||||
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoID) 'LÄDT alle SENDUNGSDATEN
|
||||
If SENDUNG_LIST IsNot Nothing Then
|
||||
'Sendungen durchlaufen und die Fiskal - Checkliste bei AT Fiskal anzeigen (je SND)
|
||||
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
|
||||
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoID) 'LÄDT alle SENDUNGSDATEN
|
||||
If SENDUNG_LIST IsNot Nothing Then
|
||||
|
||||
For Each SND In SENDUNG_LIST
|
||||
For Each SND In SENDUNG_LIST
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ATDE_FISKAL_CHECKLISTE") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "AVISO") Then
|
||||
Select Case SND.tblSnd_Abfertigungsart_ID
|
||||
Case 28 ' --> DE FISKAL
|
||||
|
||||
@@ -202,8 +203,25 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
|
||||
End If
|
||||
|
||||
End Select
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
'--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'VERANLAGUNGSKUNDE
|
||||
If SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblKundenErweitert] where [Veranlagungskunde]=1 and kde_KundenNr IN ('" & SND.tblSnd_AbsenderKdNr & "','" & SND.tblSnd_AuftraggeberKdNr & "')", "FMZOLL") > 0 Then
|
||||
|
||||
Dim f As New frmATZollEingereichtSetzenEV(myAviso, SND)
|
||||
If f.ShowDialog() = DialogResult.OK Then
|
||||
If f.cbxEmpf.Checked Then
|
||||
AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, myAviso.AvisoID, "Veranlagungs-Checkliste - OK (ZA auf Empf)", 114)
|
||||
Else
|
||||
AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, myAviso.AvisoID, "Veranlagungs-Checkliste - OK", 113)
|
||||
End If
|
||||
Else
|
||||
Exit Sub ' --> YOU'RE OUT!
|
||||
End If
|
||||
End If
|
||||
'--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
Next
|
||||
|
||||
End If
|
||||
'--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
@@ -218,7 +236,7 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
|
||||
'End If
|
||||
End If
|
||||
ElseIf sender Is btnDEZollDIGITAL Then
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
If sender.tag = "SWITCH" Then
|
||||
insertVermerk("DE Zoll (DIGITAL) fertig", 83)
|
||||
If myAviso.LKW_fertig Then VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LKWFertig(myAviso.AvisoID) : frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
||||
@@ -229,14 +247,14 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
|
||||
Else
|
||||
|
||||
'--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ATDE_FISKAL_CHECKLISTE") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "AVISO") Then
|
||||
'Sendungen durchlaufen und die Fiskal - Checkliste bei AT Fiskal anzeigen (je SND)
|
||||
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
|
||||
'Sendungen durchlaufen und die Fiskal - Checkliste bei AT Fiskal anzeigen (je SND)
|
||||
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
|
||||
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoID) 'LÄDT alle SENDUNGSDATEN
|
||||
|
||||
If SENDUNG_LIST IsNot Nothing Then
|
||||
|
||||
For Each SND In SENDUNG_LIST
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ATDE_FISKAL_CHECKLISTE") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "AVISO") Then
|
||||
Select Case SND.tblSnd_Abfertigungsart_ID
|
||||
Case 28 ' --> DE FISKAL
|
||||
|
||||
@@ -249,9 +267,26 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
|
||||
End If
|
||||
|
||||
End Select
|
||||
End If
|
||||
'--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'VERANLAGUNGSKUNDE
|
||||
If SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblKundenErweitert] where [Veranlagungskunde]=1 and kde_KundenNr IN ('" & SND.tblSnd_AbsenderKdNr & "','" & SND.tblSnd_AuftraggeberKdNr & "')", "FMZOLL") > 0 Then
|
||||
|
||||
Dim f As New frmATZollEingereichtSetzenEV(myAviso, SND)
|
||||
If f.ShowDialog() = DialogResult.OK Then
|
||||
If f.cbxEmpf.Checked Then
|
||||
AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, myAviso.AvisoID, "Veranlagungs-Checkliste - OK (ZA auf Empf)", 114)
|
||||
Else
|
||||
AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, myAviso.AvisoID, "Veranlagungs-Checkliste - OK", 113)
|
||||
End If
|
||||
Else
|
||||
Exit Sub ' --> YOU'RE OUT!
|
||||
End If
|
||||
End If
|
||||
'--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
'--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
insertVermerk("DE Zoll DIGITAL eingereicht", 82)
|
||||
@@ -266,14 +301,15 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
|
||||
|
||||
|
||||
'--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ATDE_FISKAL_CHECKLISTE") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "AVISO") Then
|
||||
'Sendungen durchlaufen und die Fiskal - Checkliste bei AT Fiskal anzeigen (je SND)
|
||||
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
|
||||
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoID) 'LÄDT alle SENDUNGSDATEN
|
||||
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
|
||||
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoID) 'LÄDT alle SENDUNGSDATEN
|
||||
|
||||
If SENDUNG_LIST IsNot Nothing Then
|
||||
|
||||
For Each SND In SENDUNG_LIST
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ATDE_FISKAL_CHECKLISTE") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "AVISO") Then
|
||||
'Sendungen durchlaufen und die Fiskal - Checkliste bei AT Fiskal anzeigen (je SND)
|
||||
|
||||
Select Case SND.tblSnd_Abfertigungsart_ID
|
||||
Case 26 ' --> AT FISKAL
|
||||
|
||||
@@ -285,13 +321,36 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
|
||||
Exit Sub ' --> YOU'RE OUT!
|
||||
End If
|
||||
|
||||
End Select
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
'--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
|
||||
End Select
|
||||
|
||||
End If
|
||||
|
||||
|
||||
'--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
'VERANLAGUNGSKUNDE
|
||||
If sql.getValueTxtBySql("SELECT COUNT(*) FROM [tblKundenErweitert] where [Veranlagungskunde]=1 and kde_KundenNr IN ('" & SND.tblSnd_AbsenderKdNr & "','" & SND.tblSnd_AuftraggeberKdNr & "')", "FMZOLL") > 0 Then
|
||||
|
||||
Dim f As New frmATZollEingereichtSetzenEV(myAviso, SND)
|
||||
If f.ShowDialog() = DialogResult.OK Then
|
||||
If f.cbxEmpf.Checked Then
|
||||
AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, myAviso.AvisoID, "Veranlagungs-Checkliste - OK (ZA auf Empf)", 114)
|
||||
Else
|
||||
AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, myAviso.AvisoID, "Veranlagungs-Checkliste - OK", 113)
|
||||
End If
|
||||
Else
|
||||
Exit Sub ' --> YOU'RE OUT!
|
||||
End If
|
||||
End If
|
||||
'--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
Next
|
||||
|
||||
|
||||
End If
|
||||
|
||||
'--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
insertVermerk("AT Zoll eingereicht", 19)
|
||||
|
||||
'If vbYes = MsgBox("Fahrer-Anweisung ""zum Zollamt gehen"" ausdrucken?", vbYesNo) Then
|
||||
|
||||
Reference in New Issue
Block a user