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

Verzollungspreise, Formulare, USTVA, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-02-11 16:11:41 +01:00
parent a65e0b517d
commit c872532ced
6 changed files with 144 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.Designer.vb generated
View File

@@ -313,12 +313,15 @@ Partial Class usrcntlVerzollungspreise
'cbxAusDB
'
Me.cbxAusDB.AutoSize = True
Me.cbxAusDB.Checked = True
Me.cbxAusDB.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxAusDB.Location = New System.Drawing.Point(243, 13)
Me.cbxAusDB.Name = "cbxAusDB"
Me.cbxAusDB.Size = New System.Drawing.Size(61, 17)
Me.cbxAusDB.TabIndex = 40
Me.cbxAusDB.Text = "aus DB"
Me.cbxAusDB.UseVisualStyleBackColor = True
Me.cbxAusDB.Visible = False
'
'usrcntlVerzollungspreise
'

118
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb
View File

@@ -75,52 +75,62 @@
End Sub
Private Sub usrcntlVollmacht_AT_Load(sender As Object, e As EventArgs) Handles Me.Load
initControlsHandler()
Select VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
initControlsHandler()
MyComboBox1.Items.Clear()
Dim SQLWhere As String = " WHERE Firma = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' and Aktiv = 1 "
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" AndAlso Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FISKAL_Preise", Me.FindForm) Then
SQLWhere &= " AND NOT TarifCode like '%FISKAL%'"
End If
MyComboBox1.fillWithSQL("SELECT TarifCode, Bezeichnung FROM tblVZPreislistentypen " & SQLWhere, False, "FMZOLL")
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX Customs Service GmbH", "IMEX"))
cboFirma.changeItem("IMEX")
MyComboBox1.Items.Clear()
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ"))
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung EV", "VZ_EV"))
' MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST"))
'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FISKAL_Preise", Me.FindForm) Then
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal AT", "VZ_FISKAL"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE"))
' End If
'MyComboBox1.Items.Clear()
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ"))
''MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung EV", "VZ_EV"))
'' MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW"))
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1"))
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2"))
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST"))
''If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FISKAL_Preise", Me.FindForm) Then
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal AT", "VZ_FISKAL"))
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE"))
'' End If
MyComboBox1.changeItem("VZ")
Case "UNISPED"
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Speditions GmbH", "UNISPED"))
cboFirma.changeItem("UNISPED")
MyComboBox1.Items.Clear()
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ"))
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung EV", "VZ_EV"))
' MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST"))
'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FISKAL_Preise", Me.FindForm) Then
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal AT", "VZ_FISKAL"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE"))
' End If
'MyComboBox1.Items.Clear()
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ"))
''MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung EV", "VZ_EV"))
'' MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW"))
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1"))
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2"))
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST"))
''If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FISKAL_Preise", Me.FindForm) Then
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal AT", "VZ_FISKAL"))
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE"))
'' End If
MyComboBox1.changeItem("VZ")
Case "IMEX"
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX Customs Service GmbH", "IMEX"))
cboFirma.changeItem("IMEX")
MyComboBox1.Items.Clear()
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ"))
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung EV", "VZ_EV"))
' MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST"))
'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FISKAL_Preise", Me.FindForm) Then
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal AT", "VZ_FISKAL"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE"))
'MyComboBox1.Items.Clear()
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ"))
''MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung EV", "VZ_EV"))
'' MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW"))
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1"))
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2"))
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST"))
''If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FISKAL_Preise", Me.FindForm) Then
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal AT", "VZ_FISKAL"))
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE"))
' End If
MyComboBox1.changeItem("VZ")
Case "ATILLA"
@@ -129,34 +139,36 @@
Case "AMBAR"
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR Logistic Services GmbH", "AMBAR"))
cboFirma.changeItem("AMBAR")
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1", "VZ"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST"))
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ"))
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1"))
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2"))
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW"))
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE"))
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1", "VZ"))
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST"))
Case Else
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Spedition AG", "AG"))
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Customs Service GmbH", "CS"))
cboFirma.changeItem("AG")
MyComboBox1.Items.Clear()
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung EV", "VZ_EV"))
' MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2"))
'MyComboBox1.Items.Clear()
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ"))
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung EV", "VZ_EV"))
'' MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW"))
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST"))
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1"))
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2"))
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FISKAL_Preise", Me.FindForm) Then
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal AT", "VZ_FISKAL"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE"))
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal AT", "VZ_FISKAL"))
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE"))
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BREXIT", Me.FindForm) Then
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BREXIT", "AVISO") Then
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG-UNISPED Ltd", "LTD"))
End If
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Handling", "HANDLING"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Privatperson", "PRIVAT"))
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Handling", "HANDLING"))
'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Privatperson", "PRIVAT"))
MyComboBox1.changeItem("VZ")
End Select

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

@@ -8,11 +8,6 @@ Imports System.Reflection
Imports System.Text.RegularExpressions
Imports System.Windows.Documents
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
@@ -1487,7 +1482,7 @@ Public Class frmFormulare
Private Sub cboVorlage_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboVorlage.SelectedIndexChanged
If cboVorlage._value = "" Then Exit Sub
If MyFlowLayoutPanel1.Controls.Count = 0 OrElse vbYes = MsgBox("Beim Laden einer Vorlagengruppe werden alle vohanden Elemente gelöscht. Möchten Sie fortfahren?", vbYesNoCancel) Then
If MyFlowLayoutPanel1.Controls.Count = 0 OrElse vbYes = MsgBox("Beim Laden einer Vorlagengruppe werden alle vorhandenen Elemente gelöscht. Möchten Sie fortfahren?", vbYesNoCancel) Then
Select Case cboVorlage._value
Case FormularVorlagenGruppe.NeukundeAT
MyFlowLayoutPanel1.Controls.Clear()

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.5.2.5")>
<Assembly: AssemblyFileVersion("1.5.2.5")>
<Assembly: AssemblyVersion("1.5.2.6")>
<Assembly: AssemblyFileVersion("1.5.2.6")>

4
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -542,6 +542,8 @@ Public Class frmMDM_USTVAntrag
btnRMCQuartal.Visible = False
End If
If USTV_ANTRAG.UStVAn_LandKz IsNot Nothing Then pbXMLExport.Visible = setXMLExportVisible(USTV_ANTRAG.UStVAn_LandKz)
Else
Dim sqlWhere As String = ""
'neuer USTVA-Antrag
@@ -608,8 +610,8 @@ Public Class frmMDM_USTVAntrag
End If
pbXMLExport.Visible = setXMLExportVisible(USTV_ANTRAG.UStVAn_LandKz)
pbXMLExport.Visible = False
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) Then
btnAntrageeinarbeiten.Enabled = False