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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-06-04 22:19:41 +02:00
parent 083e666fbc
commit f4e823ec69
15 changed files with 526 additions and 93 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

@@ -208,6 +208,7 @@ Public Class frmFormulare
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Informationsblatt Fiskalverzollung", FormularManagerArten.AT_InformationsblattFiskalverzollung))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Informationsblatt Fiskalverzollung", FormularManagerArten.DE_InformationsblattFiskalverzollung))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Antrag", FormularManagerArten.EORI_Antrag))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verbundenheit Käufer/Verkäufer", FormularManagerArten.Verbundenheit))
@@ -249,6 +250,7 @@ Public Class frmFormulare
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Informationsblatt Fiskalverzollung", FormularManagerArten.AT_InformationsblattFiskalverzollung))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Informationsblatt Fiskalverzollung", FormularManagerArten.DE_InformationsblattFiskalverzollung))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Antrag", FormularManagerArten.EORI_Antrag))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verbundenheit Käufer/Verkäufer", FormularManagerArten.Verbundenheit))
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag Überwachungsdokument", FormularManagerArten.QS_UeDok))
@@ -625,6 +627,17 @@ Public Class frmFormulare
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
MyFlowLayoutPanel1.Controls.Add(c)
Case FormularManagerArten.EORI_Antrag
Dim displayName = ""
' If param Is Nothing Then Exit Sub
If valueTMP = FormularManagerArten.EORI_Antrag Then displayName = "EORI-Antrag"
Dim c As New usrcntlEORI_Antrag(valueTMP, displayName)
c.Width = MyFlowLayoutPanel1.Width - 6
c.KdNR = KdNr
AddHandler c.DELETE, AddressOf ControlDELETE
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
MyFlowLayoutPanel1.Controls.Add(c)
Case FormularManagerArten.VUB_AG, FormularManagerArten.VUB_CS, FormularManagerArten.VUB_IMEX
Dim displayName = ""
If valueTMP = FormularManagerArten.VUB_AG Then displayName = "VUB - VERAG Spedition AG"
@@ -1074,8 +1087,8 @@ Public Class frmFormulare
Select Case cboVorlage._value
Case FormularVorlagenGruppe.NeukundeAT
MyFlowLayoutPanel1.Controls.Clear()
addForm(FormularManagerArten.AT_Vollmacht)
addForm(FormularManagerArten.Verzollungspreise)
addForm(FormularManagerArten.AT_Vollmacht_EV)
addForm(FormularManagerArten.Verzollungspreise, {"VZ_EV"})
addForm(FormularManagerArten.VUB_CS)
Case FormularVorlagenGruppe.NeukundeATFiskal
MyFlowLayoutPanel1.Controls.Clear()
@@ -1100,8 +1113,8 @@ Public Class frmFormulare
Case FormularVorlagenGruppe.NeukundeAT_IMEX
MyFlowLayoutPanel1.Controls.Clear()
addForm(FormularManagerArten.AT_Vollmacht)
addForm(FormularManagerArten.Verzollungspreise)
addForm(FormularManagerArten.AT_Vollmacht_EV)
addForm(FormularManagerArten.Verzollungspreise, {"VZ_EV"})
addForm(FormularManagerArten.VUB_IMEX)
Case FormularVorlagenGruppe.NeukundeATFiskal_IMEX
MyFlowLayoutPanel1.Controls.Clear()
@@ -1183,6 +1196,8 @@ Public Class FormularManagerNEU
striList = FormularManagerNEU.VerpflichtungserklärungFahrerRpt(c, printReportElsePdf, printerName)
Case GetType(usrcntlFiskalInfoschreiben).ToString
retStr = FormularManagerNEU.FiskalInfoschreiben(c)
Case GetType(usrcntlEORI_Antrag).ToString
retStr = FormularManagerNEU.EORI_Antrag(c)
Case GetType(usrcntlVerzollungsunterlagen).ToString
striList = FormularManagerNEU.Verzollungsunterlagen(c, printReportElsePdf, printerName, openWord)
Case GetType(usrcntlVerzollungsunterlagen_BAR).ToString
@@ -3131,6 +3146,14 @@ Public Class FormularManagerNEU
End Function
Shared Function EORI_Antrag(usrCntl As usrcntlEORI_Antrag) As String
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "EORI_Antrag")
Return DS.GET_TOP1_PATH(False)
End Function
Shared Function Verzollungsunterlagen(usrCntl As usrcntlVerzollungsunterlagen, Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional openWord As Boolean = False) As List(Of String)
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
Dim oWord As New Microsoft.Office.Interop.Word.Application
@@ -4228,6 +4251,8 @@ Public Class FormularManagerArten
Shared Property VerpflichtungserklärungFahrer = "VerpflichtungserklärungFahrer"
Shared Property DE_InformationsblattFiskalverzollung = "DE_InformationsblattFiskalverzollung"
Shared Property AT_InformationsblattFiskalverzollung = "AT_InformationsblattFiskalverzollung"
Shared Property EORI_Antrag = "EORI_Antrag"
Shared Property Verzollungsunterlagen = "Verzollungsunterlagen"
Shared Property VerzollungsunterlagenBAR = "VerzollungsunterlagenBAR"
Shared Property Gelangensbestaetigung = "Gelangensbestaetigung"