CBAM
This commit is contained in:
@@ -11,6 +11,8 @@ Imports VERAG_PROG_ALLGEMEIN
|
||||
Imports com.sun.tools.internal.ws.wsdl.document.mime
|
||||
Imports com.sun.xml.internal.ws.message.stream
|
||||
Imports com.sun.org.apache.xerces.internal.xs
|
||||
Imports DocumentFormat.OpenXml.Drawing.Diagrams
|
||||
Imports DAKOSY_Worker.VERAG_KundenStamm_Export
|
||||
|
||||
Public Class frmFormulare
|
||||
Dim isSingleForm = False
|
||||
@@ -173,6 +175,10 @@ Public Class frmFormulare
|
||||
Return thisIp.ToString
|
||||
End Function
|
||||
|
||||
Private Sub TabControl1_TabIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
|
||||
initFormulareList()
|
||||
End Sub
|
||||
|
||||
Private Sub frmFormulare_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
|
||||
'Dim IPs As Net.IPAddress = Net.Dns.GetHostEntry(My.Computer.Name).AddressList(0)
|
||||
@@ -188,138 +194,8 @@ Public Class frmFormulare
|
||||
|
||||
cboTextkonserve.fillWithSQL("SELECT distinct([txt_bezeichnung]) FROM [tblTextkonserve] where [txt_kategorie] ='FRM_MNGR_MailText' and txt_dynMailvorlage = 0 and [txt_FIRMA]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ", False, "FMZOLL", True)
|
||||
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "IMEX"
|
||||
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht", FormularManagerArten.DE_Vollmacht))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal-Vollmacht", FormularManagerArten.DE_Fiskal))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht", FormularManagerArten.AT_Vollmacht))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht 4200 EV", FormularManagerArten.AT_Vollmacht_EV))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Fiskal-Vollmacht", FormularManagerArten.AT_Fiskal))
|
||||
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Export Vollmacht", FormularManagerArten.VERAG_EXPORT))
|
||||
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VUB", FormularManagerArten.VUB_IMEX))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso Vorauskasse", FormularManagerArten.Importaviso_VK))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso", FormularManagerArten.Importaviso))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Gestellungsgarantie", FormularManagerArten.Gestellungsgarantie))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollungspreise", FormularManagerArten.Verzollungspreise))
|
||||
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", FormularManagerArten.DispoListe))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SA_Gestellung", FormularManagerArten.SA_Gestellung))
|
||||
|
||||
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("Rechnungsbestätigung", FormularManagerArten.Rechnungsbestaetigung))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Russlandbestätigungen - Y824 / EU VO 833/2014", FormularManagerArten.Einfuhrverbot))
|
||||
|
||||
' MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag Überwachungsdokument", FormularManagerArten.QS_UeDok))
|
||||
' MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VerpflichtungserklärungFahrer", FormularManagerArten.VerpflichtungserklärungFahrer))
|
||||
|
||||
|
||||
|
||||
|
||||
cboVorlage.Items.Clear()
|
||||
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE", FormularVorlagenGruppe.NeukundeDE_IMEX))
|
||||
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE Fiskal", FormularVorlagenGruppe.NeukundeDEFiskal_IMEX))
|
||||
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT", FormularVorlagenGruppe.NeukundeAT_IMEX))
|
||||
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT Fiskal", FormularVorlagenGruppe.NeukundeATFiskal_IMEX))
|
||||
|
||||
Case "ATILLA"
|
||||
|
||||
Case "AMBAR"
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht", FormularManagerArten.DE_Vollmacht))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht (EV)", FormularManagerArten.AT_Vollmacht_EV))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Export Vollmacht", FormularManagerArten.VERAG_EXPORT))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("(indirekt) DE VM", FormularManagerArten.DE_Vollmacht_indirekt))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal-Vollmacht", FormularManagerArten.DE_Fiskal))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VUB", FormularManagerArten.VUB))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso Vorauskasse", FormularManagerArten.Importaviso_VK))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Gestellungsgarantie", FormularManagerArten.Gestellungsgarantie))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollungspreise", FormularManagerArten.Verzollungspreise))
|
||||
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", FormularManagerArten.DispoListe))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SA_Gestellung", FormularManagerArten.SA_Gestellung))
|
||||
|
||||
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("Zollbeschau Protokoll", FormularManagerArten.Zollbeschau_Protokoll))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Russlandbestätigungen - Y824 / EU VO 833/2014", FormularManagerArten.Einfuhrverbot))
|
||||
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Lagervertrag", FormularManagerArten.Lagervertrag))
|
||||
|
||||
|
||||
cboVorlage.Items.Clear()
|
||||
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE", FormularVorlagenGruppe.NeukundeDE))
|
||||
|
||||
Case Else
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID = "7" Then 'SDL
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht BHI", FormularManagerArten.MDM_Vollmacht_BHI))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht EU", FormularManagerArten.MDM_Vollmacht_EU))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht NICHT EU", FormularManagerArten.MDM_Vollmacht_NICHT_EU))
|
||||
|
||||
Else
|
||||
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht", FormularManagerArten.DE_Vollmacht))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht (indirekt)", FormularManagerArten.DE_Vollmacht_indirekt))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal-Vollmacht", FormularManagerArten.DE_Fiskal))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht", FormularManagerArten.AT_Vollmacht))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht 4200 EV", FormularManagerArten.AT_Vollmacht_EV))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Fiskal-Vollmacht", FormularManagerArten.AT_Fiskal))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB Vollmacht Import/Export", FormularManagerArten.GB_Vollmacht_IE))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB Vollmacht indirekt", FormularManagerArten.GB_Vollmacht_indirekt))
|
||||
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Export Vollmacht", FormularManagerArten.VERAG_EXPORT))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA Export Vollmacht", FormularManagerArten.ATILLA_EXPORT))
|
||||
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VUB (VERAG Spedition AG)", FormularManagerArten.VUB_AG))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VUB (Customs Service GmbH)", FormularManagerArten.VUB_CS))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso Vorauskasse", FormularManagerArten.Importaviso_VK))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso", FormularManagerArten.Importaviso))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Gestellungsgarantie", FormularManagerArten.Gestellungsgarantie))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollungspreise", FormularManagerArten.Verzollungspreise))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht FA", FormularManagerArten.Vollmacht_FA))
|
||||
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", FormularManagerArten.DispoListe))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SA_Gestellung", FormularManagerArten.SA_Gestellung))
|
||||
|
||||
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))
|
||||
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Qualitätskontrolle Antrag", FormularManagerArten.Qualitaetskontrolle))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Russlandbestätigungen - Y824 / EU VO 833/2014", FormularManagerArten.Einfuhrverbot))
|
||||
' MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VerpflichtungserklärungFahrer", FormularManagerArten.VerpflichtungserklärungFahrer))
|
||||
|
||||
|
||||
|
||||
|
||||
cboVorlage.Items.Clear()
|
||||
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE", FormularVorlagenGruppe.NeukundeDE))
|
||||
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE Fiskal", FormularVorlagenGruppe.NeukundeDEFiskal))
|
||||
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT", FormularVorlagenGruppe.NeukundeAT))
|
||||
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT Fiskal", FormularVorlagenGruppe.NeukundeATFiskal))
|
||||
End If
|
||||
End Select
|
||||
|
||||
|
||||
|
||||
'MyListBox1.fillWithMyListItem()
|
||||
|
||||
|
||||
|
||||
initFormulareList()
|
||||
|
||||
initDrucker(cboPrinter)
|
||||
|
||||
@@ -328,6 +204,160 @@ Public Class frmFormulare
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub initFormulareList()
|
||||
MyListBox1.Items.Clear()
|
||||
MyListBox2.Items.Clear()
|
||||
|
||||
Select Case TabControl1.SelectedTab.Name
|
||||
Case "tabCBAM"
|
||||
MyListBox1.Visible = True
|
||||
MyListBox2.Visible = False
|
||||
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "IMEX"
|
||||
Case "AMBAR"
|
||||
Case "ATILLA"
|
||||
Case "VERAG"
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Service direkt", FormularManagerArten.CBAM))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Zertifikate", FormularManagerArten.CBAM_Zertifikate))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM indirekt + Zertifikate", FormularManagerArten.CBAM_indirekt))
|
||||
Case Else
|
||||
End Select
|
||||
Case Else
|
||||
|
||||
MyListBox1.Visible = True
|
||||
MyListBox2.Visible = True
|
||||
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "IMEX"
|
||||
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht", FormularManagerArten.DE_Vollmacht))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal-Vollmacht", FormularManagerArten.DE_Fiskal))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht", FormularManagerArten.AT_Vollmacht))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht 4200 EV", FormularManagerArten.AT_Vollmacht_EV))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Fiskal-Vollmacht", FormularManagerArten.AT_Fiskal))
|
||||
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Export Vollmacht", FormularManagerArten.VERAG_EXPORT))
|
||||
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VUB", FormularManagerArten.VUB_IMEX))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso Vorauskasse", FormularManagerArten.Importaviso_VK))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso", FormularManagerArten.Importaviso))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Gestellungsgarantie", FormularManagerArten.Gestellungsgarantie))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollungspreise", FormularManagerArten.Verzollungspreise))
|
||||
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", FormularManagerArten.DispoListe))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SA_Gestellung", FormularManagerArten.SA_Gestellung))
|
||||
|
||||
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("Rechnungsbestätigung", FormularManagerArten.Rechnungsbestaetigung))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Russlandbestätigungen - Y824 / EU VO 833/2014", FormularManagerArten.Einfuhrverbot))
|
||||
|
||||
' MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag Überwachungsdokument", FormularManagerArten.QS_UeDok))
|
||||
' MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VerpflichtungserklärungFahrer", FormularManagerArten.VerpflichtungserklärungFahrer))
|
||||
|
||||
|
||||
|
||||
|
||||
cboVorlage.Items.Clear()
|
||||
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE", FormularVorlagenGruppe.NeukundeDE_IMEX))
|
||||
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE Fiskal", FormularVorlagenGruppe.NeukundeDEFiskal_IMEX))
|
||||
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT", FormularVorlagenGruppe.NeukundeAT_IMEX))
|
||||
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT Fiskal", FormularVorlagenGruppe.NeukundeATFiskal_IMEX))
|
||||
|
||||
Case "ATILLA"
|
||||
|
||||
Case "AMBAR"
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht", FormularManagerArten.DE_Vollmacht))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht (EV)", FormularManagerArten.AT_Vollmacht_EV))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Export Vollmacht", FormularManagerArten.VERAG_EXPORT))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("(indirekt) DE VM", FormularManagerArten.DE_Vollmacht_indirekt))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal-Vollmacht", FormularManagerArten.DE_Fiskal))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VUB", FormularManagerArten.VUB))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso Vorauskasse", FormularManagerArten.Importaviso_VK))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Gestellungsgarantie", FormularManagerArten.Gestellungsgarantie))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollungspreise", FormularManagerArten.Verzollungspreise))
|
||||
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", FormularManagerArten.DispoListe))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SA_Gestellung", FormularManagerArten.SA_Gestellung))
|
||||
|
||||
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("Zollbeschau Protokoll", FormularManagerArten.Zollbeschau_Protokoll))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Russlandbestätigungen - Y824 / EU VO 833/2014", FormularManagerArten.Einfuhrverbot))
|
||||
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Lagervertrag", FormularManagerArten.Lagervertrag))
|
||||
|
||||
|
||||
cboVorlage.Items.Clear()
|
||||
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE", FormularVorlagenGruppe.NeukundeDE))
|
||||
|
||||
Case Else
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID = "7" Then 'SDL
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht BHI", FormularManagerArten.MDM_Vollmacht_BHI))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht EU", FormularManagerArten.MDM_Vollmacht_EU))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht NICHT EU", FormularManagerArten.MDM_Vollmacht_NICHT_EU))
|
||||
|
||||
Else
|
||||
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht", FormularManagerArten.DE_Vollmacht))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht (indirekt)", FormularManagerArten.DE_Vollmacht_indirekt))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal-Vollmacht", FormularManagerArten.DE_Fiskal))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht", FormularManagerArten.AT_Vollmacht))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht 4200 EV", FormularManagerArten.AT_Vollmacht_EV))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Fiskal-Vollmacht", FormularManagerArten.AT_Fiskal))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB Vollmacht Import/Export", FormularManagerArten.GB_Vollmacht_IE))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB Vollmacht indirekt", FormularManagerArten.GB_Vollmacht_indirekt))
|
||||
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Export Vollmacht", FormularManagerArten.VERAG_EXPORT))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA Export Vollmacht", FormularManagerArten.ATILLA_EXPORT))
|
||||
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VUB (VERAG Spedition AG)", FormularManagerArten.VUB_AG))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VUB (Customs Service GmbH)", FormularManagerArten.VUB_CS))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso Vorauskasse", FormularManagerArten.Importaviso_VK))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso", FormularManagerArten.Importaviso))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Gestellungsgarantie", FormularManagerArten.Gestellungsgarantie))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollungspreise", FormularManagerArten.Verzollungspreise))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht FA", FormularManagerArten.Vollmacht_FA))
|
||||
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", FormularManagerArten.DispoListe))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SA_Gestellung", FormularManagerArten.SA_Gestellung))
|
||||
|
||||
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))
|
||||
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Qualitätskontrolle Antrag", FormularManagerArten.Qualitaetskontrolle))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Russlandbestätigungen - Y824 / EU VO 833/2014", FormularManagerArten.Einfuhrverbot))
|
||||
' MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VerpflichtungserklärungFahrer", FormularManagerArten.VerpflichtungserklärungFahrer))
|
||||
|
||||
|
||||
|
||||
|
||||
cboVorlage.Items.Clear()
|
||||
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE", FormularVorlagenGruppe.NeukundeDE))
|
||||
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE Fiskal", FormularVorlagenGruppe.NeukundeDEFiskal))
|
||||
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT", FormularVorlagenGruppe.NeukundeAT))
|
||||
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT Fiskal", FormularVorlagenGruppe.NeukundeATFiskal))
|
||||
End If
|
||||
End Select
|
||||
|
||||
End Select
|
||||
|
||||
End Sub
|
||||
|
||||
Sub initFlowLPHeight()
|
||||
Dim h = 0
|
||||
For Each c As Control In MyFlowLayoutPanel1.Controls
|
||||
@@ -881,6 +911,43 @@ Public Class frmFormulare
|
||||
MyFlowLayoutPanel1.Controls.Add(c)
|
||||
End If
|
||||
|
||||
Case FormularManagerArten.CBAM
|
||||
Dim c As New usrcntlCBAM_direkt
|
||||
If ControlExists_addOK(c.GetType.ToString) Then
|
||||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||||
c.KdNR = KdNr
|
||||
AddHandler c.CHANGED, AddressOf ValueChanged
|
||||
AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
|
||||
AddHandler c.DELETE, AddressOf ControlDELETE
|
||||
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
|
||||
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
|
||||
MyFlowLayoutPanel1.Controls.Add(c)
|
||||
End If
|
||||
Case FormularManagerArten.CBAM_Zertifikate
|
||||
Dim c As New usrcntlCBAM_Zertifikate
|
||||
If ControlExists_addOK(c.GetType.ToString) Then
|
||||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||||
c.KdNR = KdNr
|
||||
AddHandler c.CHANGED, AddressOf ValueChanged
|
||||
AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
|
||||
AddHandler c.DELETE, AddressOf ControlDELETE
|
||||
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
|
||||
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
|
||||
MyFlowLayoutPanel1.Controls.Add(c)
|
||||
End If
|
||||
Case FormularManagerArten.CBAM_indirekt
|
||||
Dim c As New usrcntlCBAM_indirekt
|
||||
If ControlExists_addOK(c.GetType.ToString) Then
|
||||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||||
c.KdNR = KdNr
|
||||
AddHandler c.CHANGED, AddressOf ValueChanged
|
||||
AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
|
||||
AddHandler c.DELETE, AddressOf ControlDELETE
|
||||
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
|
||||
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
|
||||
MyFlowLayoutPanel1.Controls.Add(c)
|
||||
End If
|
||||
|
||||
|
||||
Case Else '"VUB_AG", "VUB_CS"
|
||||
Dim displayName = ""
|
||||
@@ -1516,6 +1583,15 @@ Public Class FormularManagerNEU
|
||||
Case GetType(usrcntLagervertrag).ToString
|
||||
retStr = FormularManagerNEU.LAGERVERTRAG(c)
|
||||
|
||||
Case GetType(usrcntlCBAM_direkt).ToString
|
||||
retStr = FormularManagerNEU.CBAM(c)
|
||||
|
||||
Case GetType(usrcntlCBAM_Zertifikate).ToString
|
||||
retStr = FormularManagerNEU.CBAM_Zertifikate(c)
|
||||
|
||||
Case GetType(usrcntlCBAM_indirekt).ToString
|
||||
retStr = FormularManagerNEU.CBAM_indirekt(c)
|
||||
|
||||
|
||||
End Select
|
||||
If retStr <> "" Then
|
||||
@@ -1582,48 +1658,18 @@ Public Class FormularManagerNEU
|
||||
|
||||
|
||||
Shared Function LAGERVERTRAG(usrCntl As usrcntLagervertrag) As String
|
||||
|
||||
'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
|
||||
'Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
|
||||
|
||||
'Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 36, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 50, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 56, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 62, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 74, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 120, 74, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
'Dim top = 0
|
||||
'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
|
||||
' top = 25
|
||||
'End If
|
||||
|
||||
'Select Case usrCntl.cboSprache._value
|
||||
' Case "EN"
|
||||
' Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "LAGERVERTRAG", listTowrite)
|
||||
' Case Else
|
||||
' Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "LAGERVERTRAG", listTowrite)
|
||||
'End Select
|
||||
'Return ""
|
||||
|
||||
|
||||
'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
|
||||
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
|
||||
|
||||
Dim Top = -10
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 140, Top + 30, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, Top + 50, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, Top + 56, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, Top + 62, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, Top + 70, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 120, Top + 70, 90, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtDauer.Text, 40, Top + 78, 90, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 140, Top + 30, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, Top + 50, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, Top + 56, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, Top + 62, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, Top + 70, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 120, Top + 70, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtDauer.Text, 40, Top + 78, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
|
||||
|
||||
@@ -1637,6 +1683,121 @@ Public Class FormularManagerNEU
|
||||
Return ""
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
'MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Service direkt", FormularManagerArten.CBAM))
|
||||
'MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Zertifikate", FormularManagerArten.CBAM_Zertifikate))
|
||||
'MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM indirekt + Zertifikate", FormularManagerArten.CBAM_indirekt))
|
||||
|
||||
Shared Function CBAM(usrCntl As usrcntlCBAM_direkt) As String
|
||||
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
|
||||
|
||||
Dim Top = 0
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
|
||||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 140, Top + 30, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 17.6, Top + 58.2, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 17.6, Top + 61.6, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 17.6, Top + 64.8, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVertragsbeginn.Text, 44, Top + 45, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
Select Case usrCntl.cboPaketOption._value
|
||||
Case "CBAM_Basic" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 22.5, Top + 42.3, 90, 10, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT, 2))
|
||||
Case "CBAM_Standard" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 22.5, Top + 114, 90, 10, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT, 2))
|
||||
Case "CBAM_Premium" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 22.5, Top + 177.5, 90, 10, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT, 2))
|
||||
End Select
|
||||
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_Onboarding_Paket_1._value, True), 168, Top + 54, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_MonatPausch_Paket_1._value, True), 168, Top + 62, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeWeitere_Paket_1._value, True), 168, Top + 95, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_Onboarding_Paket_2._value, True), 168, Top + 125.5, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_MonatPausch_Paket_2._value, True), 168, Top + 133, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeWeitere_Paket_2._value, True), 168, Top + 159, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_Onboarding_Paket_3._value, True), 168, Top + 189, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_MonatPausch_Paket_3._value, True), 168, Top + 197, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeWeitere_Paket_3._value,True), 175, Top + 96, 18, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
|
||||
|
||||
|
||||
|
||||
' Dim firma=getUO2()
|
||||
Select Case usrCntl.cboSprache._value
|
||||
Case "EN"
|
||||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG", "", "CBAM", listTowrite)
|
||||
Case Else
|
||||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG", "", "CBAM", listTowrite)
|
||||
End Select
|
||||
Return ""
|
||||
|
||||
|
||||
End Function
|
||||
Shared Function CBAM_Zertifikate(usrCntl As usrcntlCBAM_Zertifikate) As String
|
||||
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
|
||||
|
||||
Dim Top = 0
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
|
||||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 140, Top + 30, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 17.6, Top + 58.2, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 17.6, Top + 61.6, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 17.6, Top + 64.8, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVertragsbeginn.Text, 44, Top + 45, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatProz(usrCntl.txtCBAM_ZertAufschlag_Paket_1._value, 1), 186.5, Top + 54, 12, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeZertBest_Paket_1._value, True), 168, Top + 59, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Select Case usrCntl.cboSprache._value
|
||||
Case "EN"
|
||||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG", "", "CBAM_Zertifikate", listTowrite)
|
||||
Case Else
|
||||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG", "", "CBAM_Zertifikate", listTowrite)
|
||||
End Select
|
||||
Return ""
|
||||
|
||||
|
||||
End Function
|
||||
Shared Function CBAM_indirekt(usrCntl As usrcntlCBAM_indirekt) As String
|
||||
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
|
||||
|
||||
Dim Top = 0
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
|
||||
|
||||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 140, Top + 30, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 17.6, Top + 60.2, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 17.6, Top + 63.6, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 17.6, Top + 66.8, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVertragsbeginn.Text, 45, Top + 47.4, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_Onboarding_Paket_1._value, True), 168, Top + 49.5, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_MonatPausch_Paket_1._value, True), 168, Top + 58.5, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeWeitere_Paket_1._value, True), 168, Top + 99, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatProz(usrCntl.txtCBAM_ZertAufschlag_Paket_1._value, 1), 186.5, Top + 110, 12, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT, 2))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeZertBest_Paket_1._value, True), 168, Top + 114.5, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
|
||||
|
||||
|
||||
|
||||
' Dim firma=getUO2()
|
||||
Select Case usrCntl.cboSprache._value
|
||||
Case "EN"
|
||||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG", "", "CBAM_indirekt_EN", listTowrite)
|
||||
Case Else
|
||||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG", "", "CBAM_indirekt", listTowrite)
|
||||
End Select
|
||||
Return ""
|
||||
|
||||
|
||||
|
||||
End Function
|
||||
Shared Function VM_De(usrCntl As usrcntlVollmacht_DE) As String
|
||||
|
||||
@@ -1758,7 +1919,7 @@ Public Class FormularManagerNEU
|
||||
Case "ceo_birthcountry" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.cbx_GF_Geburtsland.Text))
|
||||
Case "ceo_passportvaliduntil" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Passgueltigbis.Text))
|
||||
|
||||
Case "function" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.txt_GF_Name.Text <> "", "CEO", "")))
|
||||
Case "Function" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.txt_GF_Name.Text <> "", "CEO", "")))
|
||||
Case "surname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Name.Text))
|
||||
Case "firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Name.Text))
|
||||
Case "place" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtOrt.Text))
|
||||
@@ -1859,7 +2020,7 @@ Public Class FormularManagerNEU
|
||||
Case "private_no" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.cbxPrivatfirma.Checked, "Off", "On")))
|
||||
Case "private_yes" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.cbxPrivatfirma.Checked, "On", "Off")))
|
||||
|
||||
'soll nur bei aktv. Flag "private Firma" angedruckt werden!
|
||||
'soll nur bei aktv. Flag "Private Firma" angedruckt werden!
|
||||
Case "ceo_place_prv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(privateFirma, usrCntl.txt_GF_Ort.Text, "")))
|
||||
Case "ceo_street_prv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(privateFirma, usrCntl.txt_GF_Adresse.Text, "")))
|
||||
Case "ceo_country_prv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(privateFirma, usrCntl.cbx_GF_Land._value, "")))
|
||||
@@ -1872,7 +2033,7 @@ Public Class FormularManagerNEU
|
||||
Case "ceo_birthplace_prv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(privateFirma, usrCntl.txt_GF_Geburtsort.Text, "")))
|
||||
Case "ceo_birthcountry_prv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(privateFirma, usrCntl.cbx_GF_Geburtsland.Text, "")))
|
||||
|
||||
'soll nur bei deaktv. Flag "private Firma" angedruckt werden!
|
||||
'soll nur bei deaktv. Flag "Private Firma" angedruckt werden!
|
||||
Case "name_nprv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(Not privateFirma, usrCntl.txtFirma.Text, "")))
|
||||
Case "strasse_nprv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(Not privateFirma, usrCntl.txtAdresse1.Text, "")))
|
||||
Case "company_nprv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(Not privateFirma, usrCntl.txtFirma.Text, "")))
|
||||
@@ -1888,13 +2049,13 @@ Public Class FormularManagerNEU
|
||||
Case "ceo_birthplace" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Geburtsort.Text))
|
||||
Case "ceo_birthcountry" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.cbx_GF_Geburtsland.Text))
|
||||
Case "ceo_passportvaliduntil" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Passgueltigbis.Text))
|
||||
Case "function" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.txt_GF_nachname.Text <> "", functionCEO, "")))
|
||||
Case "Function" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.txt_GF_nachname.Text <> "", functionCEO, "")))
|
||||
Case "ceo_surname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_nachname.Text))
|
||||
Case "ceo_firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_vorname.Text))
|
||||
|
||||
Case "place_date" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtOrt.Text & IIf(IsDate(usrCntl.datDatum.Text) AndAlso usrCntl.cbxPrintDateAndCity.Checked, usrCntl.datDatum.Text, "")))
|
||||
Case "place" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.txtOrt.Text <> "" AndAlso usrCntl.cbxPrintDateAndCity.Checked, usrCntl.txtOrt.Text, "")))
|
||||
Case "date" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(IsDate(usrCntl.datDatum.Text) AndAlso usrCntl.cbxPrintDateAndCity.Checked, usrCntl.datDatum.Text, "")))
|
||||
Case "Date" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(IsDate(usrCntl.datDatum.Text) AndAlso usrCntl.cbxPrintDateAndCity.Checked, usrCntl.datDatum.Text, "")))
|
||||
Case "capital" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtKapital.Text & " " & usrCntl.cbxKapitalWahrung._value))
|
||||
Case "crnumber" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHRNr.Text))
|
||||
|
||||
@@ -1909,10 +2070,10 @@ Public Class FormularManagerNEU
|
||||
Case "c_fax" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_Telefax))
|
||||
Case "c_mailcontact" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtEmailzurueck.Text))
|
||||
Case "c_bank" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_Bankverbindung1))
|
||||
Case "c_iban" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_IBAN1.Replace("IBAN:", "")))
|
||||
Case "c_bic" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_BIC1.Replace("BIC:", "")))
|
||||
Case "c_kontonr" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_IBAN1.Replace("IBAN:", "").Replace(" ", "").ToString.Trim().Substring(13, 7)))
|
||||
Case "c_blz" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_IBAN1.Replace("IBAN:", "").Replace(" ", "").ToString.Trim().Substring(3, 5)))
|
||||
Case "c_iban" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_IBAN1.Replace("IBAN", "")))
|
||||
Case "c_bic" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_BIC1.Replace("BIC", "")))
|
||||
Case "c_kontonr" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_IBAN1.Replace("IBAN", "").Replace(" ", "").ToString.Trim().Substring(13, 7)))
|
||||
Case "c_blz" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_IBAN1.Replace("IBAN", "").Replace(" ", "").ToString.Trim().Substring(3, 5)))
|
||||
|
||||
Case "date_day" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.cbxPrintDateAndCity.Checked AndAlso IsDate(usrCntl.datDatum.Text), usrCntl.datDatum.Text.ToString.Substring(0, 2), "")))
|
||||
Case "date_month" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.cbxPrintDateAndCity.Checked AndAlso IsDate(usrCntl.datDatum.Text), usrCntl.datDatum.Text.ToString.Substring(3, 2), "")))
|
||||
@@ -2056,11 +2217,11 @@ Public Class FormularManagerNEU
|
||||
Case "c_mailcontact" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtEmailzurueck.Text
|
||||
Case "c_bank" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bankverbindung1
|
||||
|
||||
Case "c_iban" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_IBAN1.Replace("IBAN:", "")
|
||||
Case "c_iban1" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_IBAN1.Replace("IBAN:", "")
|
||||
Case "c_iban" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_IBAN1.Replace("IBAN", "")
|
||||
Case "c_iban1" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_IBAN1.Replace("IBAN", "")
|
||||
|
||||
Case "c_bic" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_BIC1.Replace("BIC:", "")
|
||||
Case "c_bic1" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_BIC1.Replace("BIC:", "")
|
||||
Case "c_bic" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_BIC1.Replace("BIC", "")
|
||||
Case "c_bic1" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_BIC1.Replace("BIC", "")
|
||||
|
||||
Case "c_place_date" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtOrt.Text & ", " & IIf(IsDate(usrCntl.datDatum.Text) AndAlso usrCntl.cbxPrintDateAndCity.Checked, usrCntl.datDatum.Text, "")
|
||||
Case "c_date" : odoc.FormFields(fieldName).Range.Text = IIf(IsDate(usrCntl.datDatum.Text) AndAlso usrCntl.cbxPrintDateAndCity.Checked, usrCntl.datDatum.Text, "")
|
||||
@@ -2142,7 +2303,7 @@ Public Class FormularManagerNEU
|
||||
Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID)
|
||||
Dim FIRMA_DE As New VERAG_PROG_ALLGEMEIN.cFirmen(2)
|
||||
Dim isKundeDE = IIf(usrCntl.cbxLandKz._value = "DE" Or usrCntl.cbxLandKz._value = "D", True, False)
|
||||
Dim dtKundenBank As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("select bnk_iban, bnk_bic, bnk_anschrift from tblBankverbindungen where bnk_archiv = 0 and bnk_hauptkonto = 0 and bnk_KundenNr = '" & usrCntl.KdNR & "'", "FMZOLL")
|
||||
Dim dtKundenBank As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("select bnk_iban, bnk_bic, bnk_anschrift from tblBankverbindungen where bnk_archiv = 0 And bnk_hauptkonto = 0 And bnk_KundenNr = '" & usrCntl.KdNR & "'", "FMZOLL")
|
||||
Dim docBez As String = ""
|
||||
|
||||
docBez = "VOLLMACHT_" & usrCntl.cboLand._value
|
||||
@@ -6420,6 +6581,26 @@ Public Class FormularManagerNEU
|
||||
Case Else : Return ""
|
||||
End Select
|
||||
End Function
|
||||
Public Shared Function formatAmountEUR(value As Object, addEUR As Boolean) As String
|
||||
If value Is Nothing Then Return ""
|
||||
If value = "" Then Return ""
|
||||
If IsNumeric(value) Then
|
||||
Return If(addEUR, "EUR ", "") & CDbl(value).ToString("N2")
|
||||
Else
|
||||
Return value.ToString
|
||||
End If
|
||||
Return ""
|
||||
End Function
|
||||
Public Shared Function formatProz(value As Object, Optional kommast As Integer = 2) As String
|
||||
If value Is Nothing Then Return ""
|
||||
If value = "" Then Return ""
|
||||
If IsNumeric(value) Then
|
||||
Return CDbl(value).ToString("N" & kommast) & "%"
|
||||
Else
|
||||
Return value.ToString
|
||||
End If
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Shared Function saveCreditreform(usrCntl As usrcntlCreditreformBoniAuskunft) As Boolean
|
||||
Try
|
||||
@@ -6916,6 +7097,11 @@ Public Class FormularManagerArten
|
||||
Shared Property Qualitaetskontrolle = "Qualitätskontrolle"
|
||||
Shared Property Einfuhrverbot = "Y824 / EU VO 833/2014"
|
||||
Shared Property Lagervertrag = "Lagervertrag"
|
||||
Shared Property CBAM = "CBAM"
|
||||
Shared Property CBAM_Zertifikate = "CBAM_Zertifikate"
|
||||
Shared Property CBAM_indirekt = "CBAM_indirekt"
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Reference in New Issue
Block a user