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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-01-19 20:26:05 +01:00
parent f25ff457b2
commit 2f7746d9ca
28 changed files with 2921 additions and 329 deletions
Download Patch File Download Diff File Expand all files Collapse all files

79
Aviso/frmHauptfenster.vb
View File

@@ -319,6 +319,9 @@ Public Class frmHauptfenster
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MITARBEITER_VERZEICHNIS", "SDL") Then
btnMAVerzeichnis.Visible = True
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BREXIT", "AVISO") Then
BREXITToolStripMenuItem.Visible = True
End If
'If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then
' btnSpedBuch.Visible = False
@@ -2510,6 +2513,12 @@ Public Class frmHauptfenster
End Function
Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
'VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolderCat("C:\Users\test01\Desktop\TEST.pdf", "12345", "", "Import ab Jänner 2021", "Import ab Jänner 2021")
'Exit Sub
CHMRC.hmrcTEST()
Exit Sub
Dim ep As New SDL.cEORIWebService
MsgBox(ep.ValidateEoriNumber("ATEOS1000000199").Result(0).Name)
@@ -3600,6 +3609,62 @@ Public Class frmHauptfenster
MsgBox("Keine Berechtigung!")
End If
End Sub
Private Sub Button11_Click_1(sender As Object, e As EventArgs) Handles Button11.Click
CHMRC.VATTEST(InputBox("Token"))
End Sub
Private Sub GVMSUKIMportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GVMSUKIMportToolStripMenuItem.Click
Process.Start("https://www.tax.service.gov.uk/goods-movement-system/dashboard")
End Sub
Private Sub TicketIBFInlandBorderFacilitiesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TicketIBFInlandBorderFacilitiesToolStripMenuItem.Click
Process.Start("https://attend-an-inland-border-facility.hmrc.gov.uk/login")
End Sub
Private Sub TicketIBFBeschreibungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TicketIBFBeschreibungToolStripMenuItem.Click
Process.Start("https://inlandborderfacilities.uk")
End Sub
Private Sub IBFStatusToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IBFStatusToolStripMenuItem.Click
Process.Start("https://inland-border-facility-site-availability.hmrc.gov.uk/dashboard")
End Sub
Private Sub FREnveloppeSmartBorderToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FREnveloppeSmartBorderToolStripMenuItem.Click
Process.Start("https://www.douane.gouv.fr/enveloppe/en/enveloppe/creer")
End Sub
Private Sub EORIUKGeneriertenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EORIUKGeneriertenToolStripMenuItem.Click
Process.Start("https://www.gov.uk/eori")
End Sub
Private Sub KAPKentAccessPermitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KAPKentAccessPermitToolStripMenuItem.Click
Process.Start("https://www.gov.uk/check-hgv-border")
End Sub
Private Sub ATFormularZa282ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATFormularZa282ToolStripMenuItem.Click
Process.Start("https://formulare.bmf.gv.at/service/formulare/inter-Zoll/pdfs/9999/Za278.pdf")
End Sub
Private Sub ATInfoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATInfoToolStripMenuItem.Click
Process.Start("https://service.bmf.gv.at/service/anwend/formulare/show_mast.asp?s=Za278")
End Sub
Private Sub DEFormular0442ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DEFormular0442ToolStripMenuItem.Click
Process.Start("https://www.formulare-bfinv.de/ffw/form/display.do?%24context=F11B5CC0E2F9CCCDE3E5")
End Sub
Private Sub DEInfoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DEInfoToolStripMenuItem.Click
Process.Start("https://www.zoll.de/DE/Fachthemen/Warenursprung-Praeferenzen/Praeferenzen/Praeferenznachweise/Ausfertigung-nicht-foermlicher-Praeferenznachweise/Registrierter-Ausfuehrer/Allgemeines-REX/allgemeines-rex_node.html")
End Sub
Private Sub ToolStripMenuItem16_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem16.Click
Process.Start("https://formulare.bmf.gv.at/service/formulare/inter-Zoll/pdfs/9999/Za283.pdf?open=inline")
End Sub
Private Sub PBNIrelandFähreToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PBNIrelandFähreToolStripMenuItem.Click
Process.Start("https://www.ros.ie/customs-roro-control-web/ros/pbn/create")
End Sub
End Class
Public Class AvisoStatusFunctions
@@ -5298,6 +5363,8 @@ Public Class AvisoStatusFunctions
End If
Return hGrenzstelle
End Function
Shared Function Platzhalter_ersetzen(hText As String, hLKW As String, hGrenzstelle As String, abfertigungsNr As String, art As String, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, KundenNr As Integer, ByRef anhaenge As List(Of String)) As String
If hText = "" Then
Platzhalter_ersetzen = hText
@@ -5361,7 +5428,10 @@ Public Class AvisoStatusFunctions
'Else
' SendungslistTXT &= "<tr style=""font-size:18;min-width:180;font-weight: bolder""><td> Nr. </td><td> PosNr </td><td> Art </td><td> Empfänger </td><td> ATC/MRN </td><td> Frist (T1/T2) </td></tr>"
'End If
SendungslistTXT &= "<tr style=""font-size:18;min-width:180;font-weight: bolder""><td> Nr. </td><td>Spedition</td><td> PosNr </td><td> Art </td><td> Empfänger </td><td> ATC/MRN </td><td> Frist (T1/T2) </td></tr>"
Dim showNCTSAdress = False
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FREIGABEMAIL_T1Adresse") Then showNCTSAdress = True
SendungslistTXT &= "<tr style=""font-size:18;min-width:180;font-weight: bolder""><td> Nr. </td><td>Spedition</td><td> PosNr </td><td> Art </td><td> Empfänger </td><td> ATC/MRN </td><td> Frist (T1/T2) </td>" & If(showNCTSAdress, "<td> Gestellungsadresse (T1/T2) </td>", "") & "</tr>"
Dim cnt = 1
For Each s In SENDUNG_LIST
If s.tblSnd_Abfertigungsart_ID <> 9 And isKdInSendData(KUNDE_ERW, AVISO, s) Then
@@ -5370,9 +5440,12 @@ Public Class AvisoStatusFunctions
Dim DsId = ""
Dim DsId2 = ""
Dim frist = ""
Dim gestellungsadresse = "<td><td/>"
Dim found = False
Select Case s.tblSnd_Abfertigungsart_ID
Case 5, 6, 18, 24, 32, 33, 34, 37, 40
Case 5, 6, 18, 24, 32, 33, 34, 37, 40 'Versand
gestellungsadresse = "<td>" & s.getNCTSAdress(True, True, False) & "</td>"
getDataFronDY_NCTS(s.tblSnd_SendungID, AtcMrn, frist, DsId, s.FilialenNr, s.AbfertigungsNr, s.tblSnd_Abfertigungsart_ID, s.tblSnd_DakosyRef)
If KUNDE_ERW.EmailFreigabe_VBDPDF And IsNumeric(DsId) Then 'VBD anhängen
Try
@@ -5421,7 +5494,7 @@ Public Class AvisoStatusFunctions
Dim txtCluster = ""
' If VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then txtCluster = "<td>" & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(s.FilialenNr, False) & "</td>"
txtCluster = "<td>" & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(s.FilialenNr, False) & "</td>"
SendungslistTXT &= "<tr style=""font-size:18;min-width:180;""><td>" & cnt & "</td>" & txtCluster & "<td>" & If(s.FilialenNr > 0, s.FilialenNr, "") & "/" & If(s.AbfertigungsNr > 0, s.AbfertigungsNr, "") & "</td><td>" & getAbfertBez(s) & "</td><td>" & If(s.tblSnd_Empfaenger, "") & "</td><td>" & AtcMrn & "</td><td>" & frist & "</td></tr> "
SendungslistTXT &= "<tr style=""font-size:18;min-width:180;""><td>" & cnt & "</td>" & txtCluster & "<td>" & If(s.FilialenNr > 0, s.FilialenNr, "") & "/" & If(s.AbfertigungsNr > 0, s.AbfertigungsNr, "") & "</td><td>" & getAbfertBez(s) & "</td><td>" & If(s.tblSnd_Empfaenger, "") & "</td><td>" & AtcMrn & "</td><td>" & frist & "</td>" & If(showNCTSAdress, gestellungsadresse, "") & "</tr> "
cnt += 1
End If
Next