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-12-13 21:32:29 +01:00
parent 0be9927381
commit 3bc1c8a309
48 changed files with 19407 additions and 302 deletions
Download Patch File Download Diff File Expand all files Collapse all files

135
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Adressen.vb
View File

@@ -1,6 +1,7 @@
Public Class usrCntlATLAS_ncts_Adressen
' Dim OWNER As Control
Dim ncts_OUT As DAKOSY_Worker.cDakosyNCTSOut = Nothing
Dim NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR = Nothing
'Sub New(OWNER As Control, ncts_OUT As DAKOSY_Worker.cDakosyNCTSOut)
Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Sub New(ncts_OUT As DAKOSY_Worker.cDakosyNCTSOut, FIRMA_DY As String)
@@ -10,6 +11,13 @@
Me.FIRMA_DY = FIRMA_DY
End Sub
Sub New(NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR, FIRMA_DY As String)
InitializeComponent()
'Me.OWNER = OWNER
Me.NCTS_TR = NCTS_TR
Me.FIRMA_DY = FIRMA_DY
End Sub
Public Sub usrCntlATLAS_ncts_Adressen_Load(sender As Object, e As EventArgs) Handles Me.Load
' usrCntlSumA_Befoerderer.initME()
MyComboBox1.Items.Clear()
@@ -112,10 +120,135 @@
End Sub
Public Sub setValues(NCTS) ' As DAKOSY_Worker.cDakosyNCTSOut)
'usrCntlSumA_Befoerderer.initME()
If NCTS Is Nothing Then Exit Sub
usrCntlHauptverpflichteter.kdFirma.Text = NCTS.ncts_Hauptverpflichteter_Name
usrCntlHauptverpflichteter.txtStrasse.Text = NCTS.ncts_Hauptverpflichteter_StrasseHausnummer
usrCntlHauptverpflichteter.txtPlz.Text = NCTS.ncts_Hauptverpflichteter_PLZ
usrCntlHauptverpflichteter.txtOrt.Text = NCTS.ncts_Hauptverpflichteter_Ort
usrCntlHauptverpflichteter.txtEORI.Text = NCTS.ncts_Hauptverpflichteter_EORI
usrCntlHauptverpflichteter.txtEORINL.Text = NCTS.ncts_Hauptverpflichteter_NLNR
usrCntlHauptverpflichteter.sbLand.SET_VALUE(NCTS.ncts_Hauptverpflichteter_Land)
Public Sub setValues(NCTS As DAKOSY_Worker.cDakosyNCTSOut)
'usrCntlHauptverpflichteter.txtAnsprechpartner.Text=NCTS.ncts_Hauptverpflichteter_Ansprechpartner ' git es nicht
usrCntlVersender.kdFirma.Text = NCTS.ncts_Versender_Name
usrCntlVersender.txtStrasse.Text = NCTS.ncts_Versender_StrasseHausnummer
usrCntlVersender.txtPlz.Text = NCTS.ncts_Versender_PLZ
usrCntlVersender.txtOrt.Text = NCTS.ncts_Versender_Ort
usrCntlVersender.txtEORI.Text = NCTS.ncts_Versender_EORI
usrCntlVersender.txtEORINL.Text = NCTS.ncts_Versender_NLNR
usrCntlVersender.sbLand.SET_VALUE(NCTS.ncts_Versender_Land)
'usrCntlVersender.txtAnsprechpartner.Text=NCTS.ncts_Versender_Ansprechpartner ' git es nicht
usrCntlEmpfaenger.kdFirma.Text = NCTS.ncts_Empfaenger_Name
usrCntlEmpfaenger.txtStrasse.Text = NCTS.ncts_Empfaenger_StrasseHausnummer
usrCntlEmpfaenger.txtPlz.Text = NCTS.ncts_Empfaenger_PLZ
usrCntlEmpfaenger.txtOrt.Text = NCTS.ncts_Empfaenger_Ort
usrCntlEmpfaenger.txtEORI.Text = NCTS.ncts_Empfaenger_EORI
usrCntlEmpfaenger.txtEORINL.Text = NCTS.ncts_Empfaenger_NLNR
usrCntlEmpfaenger.sbLand.SET_VALUE(NCTS.ncts_Empfaenger_Land)
'usrCntlEmpfaenger.txtAnsprechpartner.Text=NCTS.ncts_Empfaenger_Ansprechpartner ' git es nicht
' usrCntlHauptverpflichteter.txtEORI.Text = NCTS.ncts_ZugelassenerEmpfaenger_EORI
'usrCntlHauptverpflichteter.txtEORINL.Text = NCTS.ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender
'usrCntlHauptverpflichteter.sbLand.SET_VALUE(NCTS.ncts_Hauptverpflichteter_Land)
'usrCntlHauptverpflichteter.txtAnsprechpartner.Text=NCTS.ncts_Hauptverpflichteter_Ansprechpartner ' git es nicht
usrCntlSumA_Befoerderer.kdFirma.Text = NCTS.ncts_SumA_Befoerderer_Name
usrCntlSumA_Befoerderer.txtStrasse.Text = NCTS.ncts_SumA_Befoerderer_StrasseHausnummer
usrCntlSumA_Befoerderer.txtPlz.Text = NCTS.ncts_SumA_Befoerderer_PLZ
usrCntlSumA_Befoerderer.txtOrt.Text = NCTS.ncts_SumA_Befoerderer_Ort
usrCntlSumA_Befoerderer.txtEORI.Text = NCTS.ncts_SumA_Befoerderer_EORI
usrCntlSumA_Befoerderer.txtEORINL.Text = NCTS.ncts_SumA_Befoerderer_NLNR
usrCntlSumA_Befoerderer.sbLand.SET_VALUE(NCTS.ncts_SumA_Befoerderer_Land)
'usrCntlSumA_Befoerderer.txtAnsprechpartner.Text=NCTS.ncts_SumA_Befoerderer_Ansprechpartner ' git es nicht
End Sub
Public Sub getValues_TR(ByRef NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR)
NCTS.ncts_Hauptverpflichteter_Name = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.kdFirma.Text)
NCTS.ncts_Hauptverpflichteter_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtStrasse.Text)
NCTS.ncts_Hauptverpflichteter_PLZ = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtPlz.Text)
NCTS.ncts_Hauptverpflichteter_Ort = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtOrt.Text)
NCTS.ncts_Hauptverpflichteter_Land = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.sbLand._value)
NCTS.ncts_Hauptverpflichteter_EORI = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtEORI.Text)
NCTS.ncts_Hauptverpflichteter_NLNR = cProgramFunctions.isLeerNothing(usrCntlHauptverpflichteter.txtEORINL.Text)
NCTS.ncts_Versender_Name = cProgramFunctions.isLeerNothing(usrCntlVersender.kdFirma.Text)
NCTS.ncts_Versender_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlVersender.txtStrasse.Text)
NCTS.ncts_Versender_PLZ = cProgramFunctions.isLeerNothing(usrCntlVersender.txtPlz.Text)
NCTS.ncts_Versender_Ort = cProgramFunctions.isLeerNothing(usrCntlVersender.txtOrt.Text)
NCTS.ncts_Versender_Land = cProgramFunctions.isLeerNothing(usrCntlVersender.sbLand._value)
NCTS.ncts_Versender_EORI = cProgramFunctions.isLeerNothing(usrCntlVersender.txtEORI.Text)
NCTS.ncts_Versender_NLNR = cProgramFunctions.isLeerNothing(usrCntlVersender.txtEORINL.Text)
'NCTS.ncts_Versender_TIN = cProgramFunctions.isLeerNothing(usrCntlVersender..Text)
NCTS.ncts_Empfaenger_Name = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.kdFirma.Text)
NCTS.ncts_Empfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtStrasse.Text)
NCTS.ncts_Empfaenger_PLZ = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtPlz.Text)
NCTS.ncts_Empfaenger_Ort = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtOrt.Text)
NCTS.ncts_Empfaenger_Land = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.sbLand._value)
NCTS.ncts_Empfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtEORI.Text)
NCTS.ncts_Empfaenger_NLNR = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtEORINL.Text)
NCTS.ncts_ZugelassenerEmpfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlZugelEmpfaenger.txtEORI.Text)
'SumA: Beförderer
'--------------------------------
NCTS.ncts_SumA_Befoerderer_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.kdFirma.Text)
NCTS.ncts_SumA_Befoerderer_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtStrasse.Text)
NCTS.ncts_SumA_Befoerderer_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtPlz.Text)
NCTS.ncts_SumA_Befoerderer_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtOrt.Text)
NCTS.ncts_SumA_Befoerderer_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.sbLand._value)
NCTS.ncts_SumA_Befoerderer_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORI.Text)
NCTS.ncts_SumA_Befoerderer_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORINL.Text)
If cbxSumABeforderer.Checked Then
NCTS.ncts_SumA_Empfaenger_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.kdFirma.Text)
NCTS.ncts_SumA_Empfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtStrasse.Text)
NCTS.ncts_SumA_Empfaenger_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtPlz.Text)
NCTS.ncts_SumA_Empfaenger_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtOrt.Text)
NCTS.ncts_SumA_Empfaenger_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.sbLand._value)
NCTS.ncts_SumA_Empfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORI.Text)
NCTS.ncts_SumA_Empfaenger_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORINL.Text)
NCTS.ncts_SumA_Versender_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.kdFirma.Text)
NCTS.ncts_SumA_Versender_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtStrasse.Text)
NCTS.ncts_SumA_Versender_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtPlz.Text)
NCTS.ncts_SumA_Versender_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtOrt.Text)
NCTS.ncts_SumA_Versender_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.sbLand._value)
NCTS.ncts_SumA_Versender_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORI.Text)
NCTS.ncts_SumA_Versender_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Befoerderer.txtEORINL.Text)
Else
NCTS.ncts_SumA_Empfaenger_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.kdFirma.Text)
NCTS.ncts_SumA_Empfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtStrasse.Text)
NCTS.ncts_SumA_Empfaenger_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtPlz.Text)
NCTS.ncts_SumA_Empfaenger_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtOrt.Text)
NCTS.ncts_SumA_Empfaenger_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.sbLand._value)
NCTS.ncts_SumA_Empfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtEORI.Text)
NCTS.ncts_SumA_Empfaenger_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Empfaenger.txtEORINL.Text)
NCTS.ncts_SumA_Versender_Name = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.kdFirma.Text)
NCTS.ncts_SumA_Versender_StrasseHausnummer = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtStrasse.Text)
NCTS.ncts_SumA_Versender_PLZ = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtPlz.Text)
NCTS.ncts_SumA_Versender_Ort = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtOrt.Text)
NCTS.ncts_SumA_Versender_Land = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.sbLand._value)
NCTS.ncts_SumA_Versender_EORI = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtEORI.Text)
NCTS.ncts_SumA_Versender_NLNR = cProgramFunctions.isLeerNothing(usrCntlSumA_Versender.txtEORINL.Text)
End If
End Sub
Public Sub setValues_TR(NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR)
'usrCntlSumA_Befoerderer.initME()
If NCTS Is Nothing Then Exit Sub

14
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Allg.vb
View File

@@ -2,6 +2,7 @@
Property NCTS_ART = "T-"
Dim NCTS As DAKOSY_Worker.cDakosyNCTSOut = Nothing
Dim NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR = Nothing
Sub New(NCTS As DAKOSY_Worker.cDakosyNCTSOut)
@@ -13,6 +14,15 @@
End Sub
Sub New(NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.NCTS_TR = NCTS_TR
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub usrCntlATLAS_NCTS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'MySearchBox1.initSearchBox(Me.FindForm, "AdressenNr, [Name 1] FROM Adressen", {"[Name 1]", "Ort", "PLZ"}, "", "[Name 1]", "AdressenNr", "AdressenNr")
@@ -141,7 +151,7 @@
End Sub
Public Sub getValues(ByRef NCTS As DAKOSY_Worker.cDakosyNCTSOut)
Public Sub getValues(ByRef NCTS) 'As DAKOSY_Worker.cDakosyNCTSOut)
NCTS.ncts_ArtAnmeldung = cProgramFunctions.isLeerNothing(NCTS_ART)
NCTS.ncts_AbgangsDienststellennummer = cProgramFunctions.isLeerNothing(sbAbgangZollstelle._value)
NCTS.ncts_BestimmungsstelleDienststellennummer = cProgramFunctions.isLeerNothing(sbBestimmungZollstelle._value)
@@ -210,7 +220,7 @@
End Sub
Public Sub setValues(NCTS As DAKOSY_Worker.cDakosyNCTSOut)
Public Sub setValues(NCTS) 'As DAKOSY_Worker.cDakosyNCTSOut)
If NCTS Is Nothing Then Exit Sub
sbAbgangZollstelle.SET_VALUE(If(NCTS.ncts_AbgangsDienststellennummer, ""))
sbBestimmungZollstelle.SET_VALUE(If(NCTS.ncts_BestimmungsstelleDienststellennummer, ""))

115
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Position.vb
View File

@@ -5,6 +5,7 @@
' Public Event NEXT_POS()
' Public Event PREV_POS()
Dim WARE As DAKOSY_Worker.cDakosy_NCTSOut_Warenposition = Nothing
Dim WARE_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition = Nothing
Event RohmasseChanged(rohmasse As Double, packstuecke As Double)
Dim id As Integer = -1
@@ -17,7 +18,7 @@
Me.id = id
End Sub
Sub New(id As Integer, WARE As DAKOSY_Worker.cDakosy_NCTSOut_Warenposition)
InitializeComponent()
Me.id = id
@@ -25,6 +26,13 @@
End Sub
Sub New(id As Integer, WARE_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition)
InitializeComponent()
Me.id = id
Me.WARE_TR = WARE_TR
End Sub
Function getPackstuecke() As Integer
@@ -74,7 +82,8 @@
cboVpTyp.changeItem("OHNE")
setvalue(WARE)
If WARE IsNot Nothing Then setvalue(WARE)
If WARE_TR IsNot Nothing Then setvalue_TR(WARE_TR)
End Sub
@@ -179,6 +188,108 @@
End If
End Sub
Sub setvalue_TR(WARE As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition)
If WARE IsNot Nothing Then
Me.txtWarenbezeichnung.Text = If(WARE.nctsWP_Warenbezeichnung, "")
Me.txtRohmasse.Text = If(WARE.nctsWP_Rohmasse, "")
Me.txtEigenmasse.Text = If(WARE.nctsWP_Eigenmasse, "")
Me.txtWarennummer.Text = If(WARE.nctsWP_Warennummer, "")
Me.txtWarenwert._value = If(WARE.nctsWP_Warenwert, "")
Me.txtSiBetragProzent._value = If(WARE.nctsWP_WarenwertProzent, 0.25)
Me.cboVpTyp.changeItem(If(WARE.nctsWP_VorpapierTyp, ""))
Me.cboWaehrung.SET_VALUE(If(WARE.nctsWP_WarenwertWaehrung, ""))
Dim packstuecke = 0
dgvPackstuecke.Rows.Clear()
If WARE.nctsWP_PACKSTUECKE IsNot Nothing Then
For Each PK In WARE.nctsWP_PACKSTUECKE
Dim VerpackArtTxt = sbPkTyp.GET_VALUE_OnlyReturn(PK.nctsWpPk_Verpackungsart)
dgvPackstuecke.Rows.Add(PK.nctsWpPk_Verpackungsart, PK.nctsWpPk_PackstueckeAnzahl, VerpackArtTxt, PK.nctsWpPk_ZeichenNummern)
Next
End If
RaiseEvent RohmasseChanged(If(IsNumeric(txtRohmasse.Text), CDbl(txtRohmasse.Text), 0), getPackstuecke)
dgvUnterlage.Rows.Clear()
If WARE.nctsWP_UNTERLAGEN IsNot Nothing Then
For Each Ul In WARE.nctsWP_UNTERLAGEN
Dim UlTxt = sbUlArten.GET_VALUE_OnlyReturn(Ul.nctsWpUl_Typ)
dgvUnterlage.Rows.Add(Ul.nctsWpUl_Typ, UlTxt, Ul.nctsWpUl_Referenz, Ul.nctsWpUl_Zusatz)
Next
End If
dgvVorpapier.Rows.Clear()
If WARE.nctsWP_VorpapierReferenz1 IsNot Nothing And WARE.nctsWP_VorpapierReferenz1 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz1, If(WARE.nctsWP_VorpapierZusatz1, ""))
If WARE.nctsWP_VorpapierReferenz2 IsNot Nothing And WARE.nctsWP_VorpapierReferenz2 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz2, If(WARE.nctsWP_VorpapierZusatz2, ""))
If WARE.nctsWP_VorpapierReferenz3 IsNot Nothing And WARE.nctsWP_VorpapierReferenz3 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz3, If(WARE.nctsWP_VorpapierZusatz3, ""))
If WARE.nctsWP_VorpapierReferenz4 IsNot Nothing And WARE.nctsWP_VorpapierReferenz4 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz4, If(WARE.nctsWP_VorpapierZusatz4, ""))
If WARE.nctsWP_VorpapierReferenz5 IsNot Nothing And WARE.nctsWP_VorpapierReferenz5 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz5, If(WARE.nctsWP_VorpapierZusatz5, ""))
If WARE.nctsWP_VorpapierReferenz6 IsNot Nothing And WARE.nctsWP_VorpapierReferenz6 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz6, If(WARE.nctsWP_VorpapierZusatz6, ""))
If WARE.nctsWP_VorpapierReferenz7 IsNot Nothing And WARE.nctsWP_VorpapierReferenz7 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz7, If(WARE.nctsWP_VorpapierZusatz7, ""))
If WARE.nctsWP_VorpapierReferenz8 IsNot Nothing And WARE.nctsWP_VorpapierReferenz8 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz8, If(WARE.nctsWP_VorpapierZusatz8, ""))
If WARE.nctsWP_VorpapierReferenz9 IsNot Nothing And WARE.nctsWP_VorpapierReferenz9 <> "" Then dgvVorpapier.Rows.Add(WARE.nctsWP_VorpapierReferenz9, If(WARE.nctsWP_VorpapierZusatz9, ""))
Me.cbxEmport.Checked = If(WARE.nctsWP_BesondereVermeke_Export, False)
Me.cbxEmportAbgaben.Checked = If(WARE.nctsWP_BesondereVermeke_ExportAbgaben, False)
Me.cbxEmportBeschraernkung.Checked = If(WARE.nctsWP_BesondereVermeke_ExportBeschraenkung, False)
' Me.cbxExportAusEU.Checked = If(WARE.nctsWP_BesondereVermeke_ExportAusEU, False)
If WARE.nctsWP_BesondereVermeke_ExportAusEU IsNot Nothing Then
Me.cbxExportAusEU.Checked = If(WARE.nctsWP_BesondereVermeke_ExportAusEU, False)
Else
Me.cbxExportAusEU.CheckState = CheckState.Indeterminate
End If
If WARE.nctsWP_BesondereVermeke_ExportAusLand IsNot Nothing AndAlso WARE.nctsWP_BesondereVermeke_ExportAusLand <> "" Then
Me.cbxEmportAusLand.Checked = True
sbExportAusLand.SET_VALUE(WARE.nctsWP_BesondereVermeke_ExportAusLand)
Else
sbExportAusLand.SET_VALUE("")
Me.cbxEmportAusLand.Checked = False
End If
txtKdRefNr.Text = If(WARE.nctsWP_KdRefNr, "")
usrcntlVersedner.kdFirma.Text = WARE.nctsWP_Versender_Name
usrcntlVersedner.txtStrasse.Text = WARE.nctsWP_Versender_StrasseHausnummer
usrcntlVersedner.txtPlz.Text = WARE.nctsWP_Versender_PLZ
usrcntlVersedner.txtOrt.Text = WARE.nctsWP_Versender_Ort
usrcntlVersedner.txtEORI.Text = WARE.nctsWP_Versender_EORI
usrcntlVersedner.txtEORINL.Text = WARE.nctsWP_Versender_NLNR
usrcntlVersedner.sbLand.SET_VALUE(WARE.nctsWP_Versender_Land)
usrcntlEmpfaenger.kdFirma.Text = WARE.nctsWP_Empfaenger_Name
usrcntlEmpfaenger.txtStrasse.Text = WARE.nctsWP_Empfaenger_StrasseHausnummer
usrcntlEmpfaenger.txtPlz.Text = WARE.nctsWP_Empfaenger_PLZ
usrcntlEmpfaenger.txtOrt.Text = WARE.nctsWP_Empfaenger_Ort
usrcntlEmpfaenger.txtEORI.Text = WARE.nctsWP_Empfaenger_EORI
usrcntlEmpfaenger.txtEORINL.Text = WARE.nctsWP_Empfaenger_NLNR
usrcntlEmpfaenger.sbLand.SET_VALUE(WARE.nctsWP_Empfaenger_Land)
usrcntlSumAVersedner.kdFirma.Text = WARE.nctsWP_SumAVersender_Name
usrcntlSumAVersedner.txtStrasse.Text = WARE.nctsWP_SumAVersender_StrasseHausnummer
usrcntlSumAVersedner.txtPlz.Text = WARE.nctsWP_SumAVersender_PLZ
usrcntlSumAVersedner.txtOrt.Text = WARE.nctsWP_SumAVersender_Ort
usrcntlSumAVersedner.txtEORI.Text = WARE.nctsWP_SumAVersender_EORI
usrcntlSumAVersedner.txtEORINL.Text = WARE.nctsWP_SumAVersender_NLNR
usrcntlSumAVersedner.sbLand.SET_VALUE(WARE.nctsWP_SumAVersender_Land)
usrcntlSumAEmpfaenger.kdFirma.Text = WARE.nctsWP_SumAEmpfaenger_Name
usrcntlSumAEmpfaenger.txtStrasse.Text = WARE.nctsWP_SumAEmpfaenger_StrasseHausnummer
usrcntlSumAEmpfaenger.txtPlz.Text = WARE.nctsWP_SumAEmpfaenger_PLZ
usrcntlSumAEmpfaenger.txtOrt.Text = WARE.nctsWP_SumAEmpfaenger_Ort
usrcntlSumAEmpfaenger.txtEORI.Text = WARE.nctsWP_SumAEmpfaenger_EORI
usrcntlSumAEmpfaenger.txtEORINL.Text = WARE.nctsWP_SumAEmpfaenger_NLNR
usrcntlSumAEmpfaenger.sbLand.SET_VALUE(WARE.nctsWP_SumAEmpfaenger_Land)
End If
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
addPackstuecke()
End Sub

230
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Positionen.vb
View File

@@ -1,6 +1,7 @@
Public Class usrCntlATLAS_NCTS_Positionen
Dim NCTS As DAKOSY_Worker.cDakosyNCTSOut = Nothing
Dim NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR = Nothing
Dim POS As New List(Of usrCntlATLAS_NCTS_Position)
Dim sectionChangeBLOCK = False
@@ -11,7 +12,8 @@
Event PosAnzChanged(anzahlPos As Double)
Sub New(NCTS)
Sub New(NCTS As DAKOSY_Worker.cDakosyNCTSOut)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
@@ -19,6 +21,15 @@
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.NCTS = NCTS
End Sub
Sub New(NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.NCTS_TR = NCTS_TR
End Sub
Private Sub usrCntlATLAS_NCTS_Load(sender As Object, e As EventArgs) Handles Me.Load
' addItem() 'Auskommentiert!
@@ -36,7 +47,18 @@
MyListBox1_SelectedIndexChanged(dgvPositionen, New EventArgs)
End Sub
Public Sub setValues_TR(NCTS_POS As VERAG_PROG_ALLGEMEIN.cNCTS_TR)
If NCTS_POS Is Nothing Then Exit Sub
POS.Clear()
For Each p In NCTS_POS.ncts_WARENPOS
addItem_TR(p) 'MyPanel2.Controls.Add()
Next
MyPanel2.Controls.Clear()
MyListBox1_SelectedIndexChanged(dgvPositionen, New EventArgs)
End Sub
Sub initListBox(Optional selectedIndex = -1)
If dgvPositionen.ColumnCount <= 0 Then Exit Sub
@@ -159,7 +181,7 @@
End If
End Function
Function addItem(Optional POSTMP As DAKOSY_Worker.cDakosy_NCTSOut_Warenposition = Nothing) As usrCntlATLAS_NCTS_Position
Function addItem(Optional POSTMP As DAKOSY_Worker.cDakosy_NCTSOut_Warenposition = Nothing) As usrCntlATLAS_NCTS_Position '
Dim u = New usrCntlATLAS_NCTS_Position(POS.Count, POSTMP)
AddHandler u.RohmasseChanged, Sub(r, pk)
@@ -191,6 +213,39 @@
Return u
End Function
Function addItem_TR(Optional POSTMP As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition = Nothing) As usrCntlATLAS_NCTS_Position '
Dim u = New usrCntlATLAS_NCTS_Position(POS.Count, POSTMP)
AddHandler u.RohmasseChanged, Sub(r, pk)
gesRohmasse = 0
gesPackstuecke = 0
For Each p As usrCntlATLAS_NCTS_Position In POS
gesRohmasse += If(IsNumeric(p.txtRohmasse.Text), p.txtRohmasse.Text, 0)
For Each row As DataGridViewRow In p.dgvPackstuecke.Rows
gesPackstuecke += If(IsNumeric(row.Cells("Anzahl").Value), row.Cells("Anzahl").Value, 0)
Next
Next
RaiseEvent RohmasseChanged(gesRohmasse, gesPackstuecke)
End Sub
u.Dock = DockStyle.Fill
u.cboVpTyp.changeItem("OHNE")
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "ATILLA"
u.cbxEmport.Checked = True
End Select
' AddHandler u.ADD, AddressOf addItem
' AddHandler u.REMOVE, AddressOf removeItem
' AddHandler u.NEXT_POS, AddressOf NEXT_POS
' AddHandler u.PREV_POS, AddressOf PREV_POS
POS.Add(u)
initListBox()
dgvPositionen.ClearSelection()
If dgvPositionen.RowCount > 0 Then dgvPositionen.Rows(dgvPositionen.RowCount - 1).Selected = True
RaiseEvent PosAnzChanged(POS.Count)
Return u
End Function
Sub removeItem(index)
If index < 0 Then Exit Sub
'If index < 0 Then Exit Sub
@@ -422,6 +477,175 @@
End Sub
Public Sub getValues_TR(ByRef NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR)
' Dim POSITIONEN As List(Of VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition)
NCTS.ncts_WARENPOS.Clear()
Dim cnt As Integer = 1
For Each P In POS
Dim POSITION As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition
'POSITION.nctsWP_Id As Integer
' POSITION.nctsWP_NctsId = NCTS.ncts_Id
POSITION.nctsWP_PositionsNummer = cnt
POSITION.nctsWP_Warennummer = cProgramFunctions.isLeerNothingDbl(P.txtWarennummer.Text)
POSITION.nctsWP_ArtAnmeldungPositionCode = cProgramFunctions.isLeerNothing(P.cboArtAnmeldung._value)
POSITION.nctsWP_Warenbezeichnung = P.txtWarenbezeichnung.Text
POSITION.nctsWP_Warenwert = cProgramFunctions.isLeerNothingDbl(P.txtWarenwert._value)
POSITION.nctsWP_WarenwertProzent = cProgramFunctions.isLeerNothingDbl(P.txtSiBetragProzent._value)
POSITION.nctsWP_WarenwertWaehrung = cProgramFunctions.isLeerNothing(P.cboWaehrung._value)
'POSITION.nctsWP_WarenwertWaehrung = P.XXXXXXXXXXXX.Text
'POSITION.nctsWP_SchaetzKz = P.XXXXXXXXXXXX.Text
'POSITION.nctsWP_WarenwertProzent = P.XXXXXXXXXXXX.Text
POSITION.nctsWP_Rohmasse = cProgramFunctions.isLeerNothingDbl(P.txtRohmasse.Text)
POSITION.nctsWP_Eigenmasse = cProgramFunctions.isLeerNothingDbl(P.txtEigenmasse.Text)
POSITION.nctsWP_VorpapierTyp = cProgramFunctions.isLeerNothing(P.cboVpTyp._value)
POSITION.nctsWP_BesondereVermeke_Export = P.cbxEmport.Checked
POSITION.nctsWP_BesondereVermeke_ExportAbgaben = P.cbxEmportAbgaben.Checked
POSITION.nctsWP_BesondereVermeke_ExportBeschraenkung = P.cbxEmportBeschraernkung.Checked
POSITION.nctsWP_BesondereVermeke_ExportAusEU = P.cbxExportAusEU.Checked
POSITION.nctsWP_VersendungslandPositionCode = cProgramFunctions.isLeerNothing(P.sbVersendungsLand._value)
POSITION.nctsWP_BestimmungslandPositionCode = cProgramFunctions.isLeerNothing(P.sbBestimmungsland._value)
If P.cbxExportAusEU.CheckState = CheckState.Checked Then
POSITION.nctsWP_BesondereVermeke_ExportAusEU = True
ElseIf P.cbxExportAusEU.CheckState = CheckState.Unchecked Then
POSITION.nctsWP_BesondereVermeke_ExportAusEU = False
Else
POSITION.nctsWP_BesondereVermeke_ExportAusEU = Nothing
End If
If P.cbxEmportAusLand.Checked = CheckState.Checked Then
POSITION.nctsWP_BesondereVermeke_ExportAusLand = cProgramFunctions.isLeerNothing(P.sbExportAusLand._value)
Else
POSITION.nctsWP_BesondereVermeke_ExportAusLand = Nothing
End If
POSITION.nctsWP_BesondereVermeke_Vermerk = P.cbxVermerk.Text
POSITION.nctsWP_BesondereVermeke_Kz10600 = P.cbxVermerk10600.Checked
POSITION.nctsWP_VorpapierReferenz1 = Nothing
POSITION.nctsWP_VorpapierZusatz1 = Nothing
POSITION.nctsWP_VorpapierReferenz2 = Nothing
POSITION.nctsWP_VorpapierZusatz2 = Nothing
POSITION.nctsWP_VorpapierReferenz3 = Nothing
POSITION.nctsWP_VorpapierZusatz3 = Nothing
POSITION.nctsWP_VorpapierReferenz4 = Nothing
POSITION.nctsWP_VorpapierZusatz4 = Nothing
POSITION.nctsWP_VorpapierReferenz5 = Nothing
POSITION.nctsWP_VorpapierZusatz5 = Nothing
POSITION.nctsWP_VorpapierReferenz6 = Nothing
POSITION.nctsWP_VorpapierZusatz6 = Nothing
POSITION.nctsWP_VorpapierReferenz7 = Nothing
POSITION.nctsWP_VorpapierZusatz7 = Nothing
POSITION.nctsWP_VorpapierReferenz8 = Nothing
POSITION.nctsWP_VorpapierZusatz8 = Nothing
POSITION.nctsWP_VorpapierReferenz9 = Nothing
POSITION.nctsWP_VorpapierZusatz9 = Nothing
If P.dgvVorpapier.Rows.Count > 0 Then
POSITION.nctsWP_VorpapierReferenz1 = P.dgvVorpapier.Rows(0).Cells("VpReferenz").Value
POSITION.nctsWP_VorpapierZusatz1 = P.dgvVorpapier.Rows(0).Cells("VpZusatz").Value
End If
If P.dgvVorpapier.Rows.Count > 1 Then
POSITION.nctsWP_VorpapierReferenz2 = P.dgvVorpapier.Rows(1).Cells("VpReferenz").Value
POSITION.nctsWP_VorpapierZusatz2 = P.dgvVorpapier.Rows(1).Cells("VpZusatz").Value
End If
If P.dgvVorpapier.Rows.Count > 2 Then
POSITION.nctsWP_VorpapierReferenz3 = P.dgvVorpapier.Rows(2).Cells("VpReferenz").Value
POSITION.nctsWP_VorpapierZusatz3 = P.dgvVorpapier.Rows(2).Cells("VpZusatz").Value
End If
If P.dgvVorpapier.Rows.Count > 3 Then
POSITION.nctsWP_VorpapierReferenz4 = P.dgvVorpapier.Rows(3).Cells("VpReferenz").Value
POSITION.nctsWP_VorpapierZusatz4 = P.dgvVorpapier.Rows(3).Cells("VpZusatz").Value
End If
If P.dgvVorpapier.Rows.Count > 4 Then
POSITION.nctsWP_VorpapierReferenz5 = P.dgvVorpapier.Rows(4).Cells("VpReferenz").Value
POSITION.nctsWP_VorpapierZusatz5 = P.dgvVorpapier.Rows(4).Cells("VpZusatz").Value
End If
If P.dgvVorpapier.Rows.Count > 5 Then
POSITION.nctsWP_VorpapierReferenz6 = P.dgvVorpapier.Rows(5).Cells("VpReferenz").Value
POSITION.nctsWP_VorpapierZusatz6 = P.dgvVorpapier.Rows(5).Cells("VpZusatz").Value
End If
If P.dgvVorpapier.Rows.Count > 6 Then
POSITION.nctsWP_VorpapierReferenz7 = P.dgvVorpapier.Rows(6).Cells("VpReferenz").Value
POSITION.nctsWP_VorpapierZusatz7 = P.dgvVorpapier.Rows(6).Cells("VpZusatz").Value
End If
If P.dgvVorpapier.Rows.Count > 7 Then
POSITION.nctsWP_VorpapierReferenz8 = P.dgvVorpapier.Rows(7).Cells("VpReferenz").Value
POSITION.nctsWP_VorpapierZusatz8 = P.dgvVorpapier.Rows(7).Cells("VpZusatz").Value
End If
If P.dgvVorpapier.Rows.Count > 8 Then
POSITION.nctsWP_VorpapierReferenz9 = P.dgvVorpapier.Rows(8).Cells("VpReferenz").Value
POSITION.nctsWP_VorpapierZusatz9 = P.dgvVorpapier.Rows(8).Cells("VpZusatz").Value
End If
POSITION.nctsWP_PACKSTUECKE = New List(Of VERAG_PROG_ALLGEMEIN.cNCTS_TR_WarenpositionPackstuecke)
For Each r As DataGridViewRow In P.dgvPackstuecke.Rows
Dim Pk As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_WarenpositionPackstuecke
Pk.nctsWpPk_Verpackungsart = r.Cells("PkCode").Value
Pk.nctsWpPk_PackstueckeAnzahl = r.Cells("Anzahl").Value
Pk.nctsWpPk_ZeichenNummern = r.Cells("Marke").Value
POSITION.nctsWP_PACKSTUECKE.Add(Pk)
Next
POSITION.nctsWP_UNTERLAGEN = New List(Of VERAG_PROG_ALLGEMEIN.cNCTS_TR_WarenpositionVorgelegteUnterlagen)
For Each r As DataGridViewRow In P.dgvUnterlage.Rows
Dim Ul As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_WarenpositionVorgelegteUnterlagen
Ul.nctsWpUl_Typ = r.Cells("UlCode").Value
Ul.nctsWpUl_Referenz = r.Cells("UlReferenz").Value
Ul.nctsWpUl_Zusatz = r.Cells("UlZusatz").Value
POSITION.nctsWP_UNTERLAGEN.Add(Ul)
Next
POSITION.nctsWP_KdRefNr = P.txtKdRefNr.Text
POSITION.nctsWP_Versender_Name = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.kdFirma.Text)
POSITION.nctsWP_Versender_StrasseHausnummer = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtStrasse.Text)
POSITION.nctsWP_Versender_PLZ = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtPlz.Text)
POSITION.nctsWP_Versender_Ort = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtOrt.Text)
POSITION.nctsWP_Versender_Land = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.sbLand._value)
POSITION.nctsWP_Versender_EORI = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtEORI.Text)
POSITION.nctsWP_Versender_NLNR = cProgramFunctions.isLeerNothing(P.usrcntlVersedner.txtEORINL.Text)
POSITION.nctsWP_Empfaenger_Name = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.kdFirma.Text)
POSITION.nctsWP_Empfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtStrasse.Text)
POSITION.nctsWP_Empfaenger_PLZ = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtPlz.Text)
POSITION.nctsWP_Empfaenger_Ort = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtOrt.Text)
POSITION.nctsWP_Empfaenger_Land = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.sbLand._value)
POSITION.nctsWP_Empfaenger_EORI = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtEORI.Text)
POSITION.nctsWP_Empfaenger_NLNR = cProgramFunctions.isLeerNothing(P.usrcntlEmpfaenger.txtEORINL.Text)
POSITION.nctsWP_SumAVersender_Name = cProgramFunctions.isLeerNothing(P.usrcntlSumAVersedner.kdFirma.Text)
POSITION.nctsWP_SumAVersender_StrasseHausnummer = cProgramFunctions.isLeerNothing(P.usrcntlSumAVersedner.txtStrasse.Text)
POSITION.nctsWP_SumAVersender_PLZ = cProgramFunctions.isLeerNothing(P.usrcntlSumAVersedner.txtPlz.Text)
POSITION.nctsWP_SumAVersender_Ort = cProgramFunctions.isLeerNothing(P.usrcntlSumAVersedner.txtOrt.Text)
POSITION.nctsWP_SumAVersender_Land = cProgramFunctions.isLeerNothing(P.usrcntlSumAVersedner.sbLand._value)
POSITION.nctsWP_SumAVersender_EORI = cProgramFunctions.isLeerNothing(P.usrcntlSumAVersedner.txtEORI.Text)
POSITION.nctsWP_SumAVersender_NLNR = cProgramFunctions.isLeerNothing(P.usrcntlSumAVersedner.txtEORINL.Text)
POSITION.nctsWP_SumAEmpfaenger_Name = cProgramFunctions.isLeerNothing(P.usrcntlSumAEmpfaenger.kdFirma.Text)
POSITION.nctsWP_SumAEmpfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(P.usrcntlSumAEmpfaenger.txtStrasse.Text)
POSITION.nctsWP_SumAEmpfaenger_PLZ = cProgramFunctions.isLeerNothing(P.usrcntlSumAEmpfaenger.txtPlz.Text)
POSITION.nctsWP_SumAEmpfaenger_Ort = cProgramFunctions.isLeerNothing(P.usrcntlSumAEmpfaenger.txtOrt.Text)
POSITION.nctsWP_SumAEmpfaenger_Land = cProgramFunctions.isLeerNothing(P.usrcntlSumAEmpfaenger.sbLand._value)
POSITION.nctsWP_SumAEmpfaenger_EORI = cProgramFunctions.isLeerNothing(P.usrcntlSumAEmpfaenger.txtEORI.Text)
POSITION.nctsWP_SumAEmpfaenger_NLNR = cProgramFunctions.isLeerNothing(P.usrcntlSumAEmpfaenger.txtEORINL.Text)
NCTS.ncts_WARENPOS.Add(POSITION)
cnt += 1
Next
' NCTS.ncts_WARENPOS
End Sub
Private Sub MyPanel2_ControlAdded(sender As Object, e As ControlEventArgs) Handles MyPanel2.ControlAdded
Try : DirectCast(e.Control, usrCntlATLAS_NCTS_Position).txtWarenbezeichnung.Focus() : Catch : End Try
End Sub

54
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Sicherheit.vb
View File

@@ -5,10 +5,11 @@
' Public NCTS As DAKOSY_Worker.cDakosyNCTSOut = Nothing
' Dim AKT_POS As Integer = -1
Dim NCTS As DAKOSY_Worker.cDakosyNCTSOut = Nothing
Dim NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR = Nothing
Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Sub New(NCTS, FIRMA_DY) 'NCTS As DAKOSY_Worker.cDakosyNCTSOut)
Sub New(NCTS As DAKOSY_Worker.cDakosyNCTSOut, FIRMA_DY As String) 'NCTS As DAKOSY_Worker.cDakosyNCTSOut)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
@@ -26,6 +27,24 @@
' Next
End Sub
Sub New(NCTS_TR As VERAG_PROG_ALLGEMEIN.cNCTS_TR, FIRMA_DY As String) 'NCTS As DAKOSY_Worker.cDakosyNCTSOut)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.NCTS_TR = NCTS_TR
Me.FIRMA_DY = FIRMA_DY
' loadValues()
' ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
'If NCTS.ncts_SICHERHEITSANGABEN.Count = 0 Then
'NCTS.ncts_SICHERHEITSANGABEN.Add(New DAKOSY_Worker.cDakosy_NCTSOut_Sicherheitsangaben)
'End If
' For Each s In NCTS.ncts_SICHERHEITSANGABEN
'Dim u As New usrCntlATLAS_NCTS_SicherheitPos
' u.loadBrg(s)
' LIST.Add(u)
' Next
End Sub
@@ -46,6 +65,17 @@
End Sub
Sub addPos_TR(Optional sa As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben = Nothing)
Dim u As New usrCntlATLAS_ncts_SicherheitPos(FIRMA_DY)
LIST.Add(u)
If sa IsNot Nothing Then
u.setValues_TR(sa)
End If
loadDGVListValues()
End Sub
Private Sub MyDatagridview1_SelectionChanged(sender As Object, e As EventArgs) Handles MyDatagridview1.SelectionChanged
initPosAnzeige()
End Sub
@@ -144,6 +174,28 @@
End Sub
Public Function getValues_TR() As List(Of VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben)
Dim SA As New List(Of VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben)
For Each s As usrCntlATLAS_ncts_SicherheitPos In LIST
SA.Add(s.getValues_TR)
Next
Return SA
End Function
Public Sub setValues_TR(ByRef SA As List(Of VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben))
Panel1.Controls.Clear()
If SA Is Nothing Then Exit Sub
LIST.Clear()
For Each s In SA
addPos_TR(s)
Next
If LIST.Count = 0 Then addPos() 'leere Laden
loadDGVListValues()
initPosAnzeige()
End Sub
End Class
Public Class cDakosy_Sicherheitsarten

38
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_SicherheitPos.vb
View File

@@ -232,4 +232,42 @@
End Sub
Public Function getValues_TR() As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben
Dim SA = New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben
SA.nctsSA_AbgabenBetrag = cProgramFunctions.isLeerNothing(txtAbgabenbetrag._value)
SA.nctsSA_BezeichnungBescheinigun = cProgramFunctions.isLeerNothing(txtBezeichnung._value)
SA.nctsSA_ArtCode = cProgramFunctions.isLeerNothing(cboArtSicherheit._value)
SA.nctsSA_GRN = cProgramFunctions.isLeerNothing(txtGRN._value)
SA.nctsSA_Zugriffcode = cProgramFunctions.isLeerNothing(txtZugriffscode._value)
SA.nctsSA_TIN = cProgramFunctions.isLeerNothing(txtEORI_TIN._value)
If SA.nctsSA_AbgabenBetrag Is Nothing Then SA.nctsSA_AbgabenBetrag = 0
Return SA
End Function
Public Sub setValues_TR(SA As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben)
setBtn(btnBrgVERAG_AT, False)
setBtn(btnBrgVERAG_DE, False)
setBtn(btnBrgTOBB, False)
setBtn(btnBrgSGS, False)
setBtn(btnMars, False)
setBtn(btnEKOL, False)
setBtn(btnBrgSonstige, False)
Select Case If(SA.nctsSA_GRN, "")
Case "05AT510000G000FP7" : setBtn(btnBrgVERAG_AT, True)
Case "17DE0000000071678" : setBtn(btnBrgVERAG_DE, True)
Case Else : setBtn(btnBrgSonstige, True)
End Select
cboArtSicherheit.changeItem(If(SA.nctsSA_ArtCode, "")) 'Gesamtbürgschaft
txtGRN.Text = If(SA.nctsSA_GRN, "")
txtEORI_TIN.Text = If(SA.nctsSA_TIN, "")
txtZugriffscode.Text = If(SA.nctsSA_Zugriffcode, "")
txtAbgabenbetrag._value = If(SA.nctsSA_AbgabenBetrag, "")
'txtEORI_TIN.Text = If(SA.nctsSA_TIN, "")
End Sub
End Class

115
SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb
View File

@@ -14,11 +14,12 @@
' Dim AES As DAKOSY_Worker.cDakosyAES = Nothing
Dim FIRMA_DY = ""
Dim ZOLL_SYSTEM = "DAKOSY"
Dim DY As DAKOSY_Worker.cDakosy_Zollanmeldungen = Nothing
Sub New(ART As String, DY As DAKOSY_Worker.cDakosy_Zollanmeldungen) ', JAHR As Integer) ', Optional ZA = Nothing)
Sub New(ART As String, DY As DAKOSY_Worker.cDakosy_Zollanmeldungen, Optional ZOLL_SYSTEM As String = "DAKOSY") ', JAHR As Integer) ', Optional ZA = Nothing)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
@@ -26,7 +27,7 @@
Me.DY = DY
If DY.dy_AvisoId IsNot Nothing AndAlso DY.dy_AvisoId > 0 Then
Dim AV As New VERAG_PROG_ALLGEMEIN.cavisoDAL
Dim AV As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
Me.AVISO = AV.LesenAviso(DY.dy_AvisoId, "")
End If
Me.ART = ART
@@ -36,10 +37,11 @@
Me.AbfertigungsNr = SENDUNG.AbfertigungsNr
End If
Me.JAHR = JAHR
Me.ZOLL_SYSTEM = ZOLL_SYSTEM
End Sub
Sub New(ART As String, DY As DAKOSY_Worker.cDakosy_Zollanmeldungen, AVISO As VERAG_PROG_ALLGEMEIN.caviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer) ', Optional ZA = Nothing)
Sub New(ART As String, DY As DAKOSY_Worker.cDakosy_Zollanmeldungen, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer, Optional ZOLL_SYSTEM As String = "DAKOSY") ', Optional ZA = Nothing)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
@@ -50,6 +52,7 @@
Me.ART = ART
Me.SENDUNG = SENDUNG
Me.JAHR = JAHR
Me.ZOLL_SYSTEM = ZOLL_SYSTEM
If SENDUNG IsNot Nothing Then
Me.FilialenNr = SENDUNG.FilialenNr
@@ -90,60 +93,88 @@
End If
End If
Select Case ART
Case "T1", "T2", "NCTS", "ÜT"
' DY.dy_ART = ART
' Sub New(DY_ANM As cDakosy_Zollanmeldungen, AVISO As VERAG_PROG_ALLGEMEIN.caviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, Jahr2Stellig As Integer, Optional zusatz As String = "")
'Dim usrcntl As New usrCntlATLAS_NCTS(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF)
Select Case ZOLL_SYSTEM
Case "SGS"
Select Case ART
Case "T1", "T2", "NCTS", "ÜT"
If ART = "ÜT" Then
ART = "T1"
isSTAMMREF = False
STAMMREF = "" '??????????????????????????????
End If
If ART = "ÜT" Then
ART = "T1"
isSTAMMREF = False
STAMMREF = "" '??????????????????????????????
End If
If Me.DY Is Nothing Then
Dim usrcntl As New usrCntlATLAS_NCTS(ART, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF, FIRMA_DY)
usrcntl.Dock = DockStyle.Fill
Me.pnl.Controls.Add(usrcntl)
If Me.DY Is Nothing Then
Dim usrcntl As New usrCntlSGS_NCTS(ART, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF, FIRMA_DY)
usrcntl.Dock = DockStyle.Fill
Me.pnl.Controls.Add(usrcntl)
Else
Dim usrcntl As New usrCntlATLAS_NCTS(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF)
usrcntl.Dock = DockStyle.Fill
Me.pnl.Controls.Add(usrcntl)
Else
Dim usrcntl As New usrCntlSGS_NCTS(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF)
usrcntl.Dock = DockStyle.Fill
Me.pnl.Controls.Add(usrcntl)
End If
End If
End Select
Case Else '"DAKOSY'
Select Case ART
Case "T1", "T2", "NCTS", "ÜT"
' DY.dy_ART = ART
' Sub New(DY_ANM As cDakosy_Zollanmeldungen, AVISO As VERAG_PROG_ALLGEMEIN.caviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, Jahr2Stellig As Integer, Optional zusatz As String = "")
'Dim usrcntl As New usrCntlATLAS_NCTS(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF)
If ART = "ÜT" Then
ART = "T1"
isSTAMMREF = False
STAMMREF = "" '??????????????????????????????
End If
If Me.DY Is Nothing Then
Dim usrcntl As New usrCntlATLAS_NCTS(ART, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF, FIRMA_DY)
usrcntl.Dock = DockStyle.Fill
Me.pnl.Controls.Add(usrcntl)
Else
Dim usrcntl As New usrCntlATLAS_NCTS(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF)
usrcntl.Dock = DockStyle.Fill
Me.pnl.Controls.Add(usrcntl)
End If
Case "AES", "EX", "EU", "CO"
Case "AES", "EX", "EU", "CO"
If Me.DY Is Nothing Then
Dim usrcntl As New usrCntlATLAS_AES(ART, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF)
usrcntl.Dock = DockStyle.Fill
Me.pnl.Controls.Add(usrcntl)
If Me.DY Is Nothing Then
Dim usrcntl As New usrCntlATLAS_AES(ART, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF)
usrcntl.Dock = DockStyle.Fill
Me.pnl.Controls.Add(usrcntl)
Else
Dim usrcntl As New usrCntlATLAS_AES(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF)
usrcntl.Dock = DockStyle.Fill
Me.pnl.Controls.Add(usrcntl)
Else
Dim usrcntl As New usrCntlATLAS_AES(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF)
usrcntl.Dock = DockStyle.Fill
Me.pnl.Controls.Add(usrcntl)
End If
End If
Case "EZA", "VZA"
Case "EZA", "VZA"
If Me.DY Is Nothing Then
Dim usrcntl As New usrCntlATLAS_EZA(ART, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF, FIRMA_DY)
usrcntl.Dock = DockStyle.Fill
Me.pnl.Controls.Add(usrcntl)
If Me.DY Is Nothing Then
Dim usrcntl As New usrCntlATLAS_EZA(ART, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF, FIRMA_DY)
usrcntl.Dock = DockStyle.Fill
Me.pnl.Controls.Add(usrcntl)
Else
Dim usrcntl As New usrCntlATLAS_EZA(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF)
usrcntl.Dock = DockStyle.Fill
Me.pnl.Controls.Add(usrcntl)
Else
Dim usrcntl As New usrCntlATLAS_EZA(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF)
usrcntl.Dock = DockStyle.Fill
Me.pnl.Controls.Add(usrcntl)
End If
End If
End Select
End Select
End Sub

515
SDL/ZOLLSYSTEM/SGS/usrCntlSGS_NCTS.Designer.vb generated Normal file
View File

@@ -0,0 +1,515 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlSGS_NCTS
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.SplitContainer = New System.Windows.Forms.SplitContainer()
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
Me.btnAllgemein = New System.Windows.Forms.Button()
Me.btnAdressen = New System.Windows.Forms.Button()
Me.btnSicherheit = New System.Windows.Forms.Button()
Me.btnVerschlüsse = New System.Windows.Forms.Button()
Me.btnPositionen = New System.Windows.Forms.Button()
Me.Button5 = New System.Windows.Forms.Button()
Me.pnl = New System.Windows.Forms.Panel()
Me.Label8 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboDakosyAction = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.lblBezugsnummer = New System.Windows.Forms.Label()
Me.cntxtBezugsnr = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.NeueBezugsnummerVergebenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.pic = New System.Windows.Forms.PictureBox()
Me.txtDyMandant = New System.Windows.Forms.Label()
Me.txtDyNiederlassung = New System.Windows.Forms.Label()
Me.MenuStrip = New System.Windows.Forms.MenuStrip()
Me.OptionenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SpeichernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.LadenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer.Panel1.SuspendLayout()
Me.SplitContainer.SuspendLayout()
Me.MyFlowLayoutPanel1.SuspendLayout()
Me.pnl.SuspendLayout()
Me.cntxtBezugsnr.SuspendLayout()
Me.Panel1.SuspendLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.MenuStrip.SuspendLayout()
Me.SuspendLayout()
'
'SplitContainer
'
Me.SplitContainer.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainer.FixedPanel = System.Windows.Forms.FixedPanel.Panel1
Me.SplitContainer.IsSplitterFixed = True
Me.SplitContainer.Location = New System.Drawing.Point(0, 25)
Me.SplitContainer.Margin = New System.Windows.Forms.Padding(0)
Me.SplitContainer.Name = "SplitContainer"
Me.SplitContainer.Orientation = System.Windows.Forms.Orientation.Horizontal
'
'SplitContainer.Panel1
'
Me.SplitContainer.Panel1.Controls.Add(Me.MyFlowLayoutPanel1)
Me.SplitContainer.Panel1.Controls.Add(Me.pnl)
'
'SplitContainer.Panel2
'
Me.SplitContainer.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
Me.SplitContainer.Size = New System.Drawing.Size(934, 687)
Me.SplitContainer.SplitterDistance = 72
Me.SplitContainer.SplitterWidth = 1
Me.SplitContainer.TabIndex = 0
'
'MyFlowLayoutPanel1
'
Me.MyFlowLayoutPanel1.BackColor = System.Drawing.Color.WhiteSmoke
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnAllgemein)
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnAdressen)
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnSicherheit)
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnVerschlüsse)
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnPositionen)
Me.MyFlowLayoutPanel1.Controls.Add(Me.Button5)
Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(0, 0)
Me.MyFlowLayoutPanel1.Margin = New System.Windows.Forms.Padding(1)
Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1"
Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(573, 72)
Me.MyFlowLayoutPanel1.TabIndex = 0
'
'btnAllgemein
'
Me.btnAllgemein.BackColor = System.Drawing.Color.SteelBlue
Me.btnAllgemein.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.btnAllgemein.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAllgemein.ForeColor = System.Drawing.SystemColors.ControlLightLight
Me.btnAllgemein.Image = Global.SDL.My.Resources.Resources.android_note12
Me.btnAllgemein.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnAllgemein.Location = New System.Drawing.Point(2, 2)
Me.btnAllgemein.Margin = New System.Windows.Forms.Padding(2)
Me.btnAllgemein.Name = "btnAllgemein"
Me.btnAllgemein.Padding = New System.Windows.Forms.Padding(0, 12, 0, 3)
Me.btnAllgemein.Size = New System.Drawing.Size(75, 67)
Me.btnAllgemein.TabIndex = 0
Me.btnAllgemein.Text = "Allgemein"
Me.btnAllgemein.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnAllgemein.UseVisualStyleBackColor = False
'
'btnAdressen
'
Me.btnAdressen.BackColor = System.Drawing.Color.White
Me.btnAdressen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.btnAdressen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAdressen.Image = Global.SDL.My.Resources.Resources.house1
Me.btnAdressen.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnAdressen.Location = New System.Drawing.Point(81, 2)
Me.btnAdressen.Margin = New System.Windows.Forms.Padding(2)
Me.btnAdressen.Name = "btnAdressen"
Me.btnAdressen.Padding = New System.Windows.Forms.Padding(0, 0, 0, 3)
Me.btnAdressen.Size = New System.Drawing.Size(75, 67)
Me.btnAdressen.TabIndex = 1
Me.btnAdressen.Text = "Adressen"
Me.btnAdressen.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnAdressen.UseVisualStyleBackColor = False
'
'btnSicherheit
'
Me.btnSicherheit.BackColor = System.Drawing.Color.White
Me.btnSicherheit.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.btnSicherheit.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSicherheit.Image = Global.SDL.My.Resources.Resources.sicherheit1
Me.btnSicherheit.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnSicherheit.Location = New System.Drawing.Point(160, 2)
Me.btnSicherheit.Margin = New System.Windows.Forms.Padding(2)
Me.btnSicherheit.Name = "btnSicherheit"
Me.btnSicherheit.Padding = New System.Windows.Forms.Padding(0, 0, 0, 3)
Me.btnSicherheit.Size = New System.Drawing.Size(81, 67)
Me.btnSicherheit.TabIndex = 2
Me.btnSicherheit.Text = "Sicherheit"
Me.btnSicherheit.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnSicherheit.UseVisualStyleBackColor = False
'
'btnVerschlüsse
'
Me.btnVerschlüsse.BackColor = System.Drawing.Color.White
Me.btnVerschlüsse.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.btnVerschlüsse.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnVerschlüsse.Image = Global.SDL.My.Resources.Resources.seal3
Me.btnVerschlüsse.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnVerschlüsse.Location = New System.Drawing.Point(245, 2)
Me.btnVerschlüsse.Margin = New System.Windows.Forms.Padding(2)
Me.btnVerschlüsse.Name = "btnVerschlüsse"
Me.btnVerschlüsse.Padding = New System.Windows.Forms.Padding(0, 6, 0, 3)
Me.btnVerschlüsse.Size = New System.Drawing.Size(81, 67)
Me.btnVerschlüsse.TabIndex = 3
Me.btnVerschlüsse.Text = "Verschlüsse"
Me.btnVerschlüsse.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnVerschlüsse.UseVisualStyleBackColor = False
'
'btnPositionen
'
Me.btnPositionen.BackColor = System.Drawing.Color.White
Me.btnPositionen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.btnPositionen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnPositionen.Image = Global.SDL.My.Resources.Resources.list_new_small2
Me.btnPositionen.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnPositionen.Location = New System.Drawing.Point(330, 2)
Me.btnPositionen.Margin = New System.Windows.Forms.Padding(2)
Me.btnPositionen.Name = "btnPositionen"
Me.btnPositionen.Padding = New System.Windows.Forms.Padding(0, 0, 0, 3)
Me.btnPositionen.Size = New System.Drawing.Size(81, 67)
Me.btnPositionen.TabIndex = 4
Me.btnPositionen.Text = "Positionen"
Me.btnPositionen.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnPositionen.UseVisualStyleBackColor = False
'
'Button5
'
Me.Button5.BackColor = System.Drawing.Color.White
Me.Button5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button5.Image = Global.SDL.My.Resources.Resources.android_note12
Me.Button5.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.Button5.Location = New System.Drawing.Point(415, 2)
Me.Button5.Margin = New System.Windows.Forms.Padding(2)
Me.Button5.Name = "Button5"
Me.Button5.Padding = New System.Windows.Forms.Padding(0, 12, 0, 3)
Me.Button5.Size = New System.Drawing.Size(81, 67)
Me.Button5.TabIndex = 5
Me.Button5.Text = "Referenzen"
Me.Button5.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.Button5.UseVisualStyleBackColor = False
Me.Button5.Visible = False
'
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.WhiteSmoke
Me.pnl.Controls.Add(Me.Label8)
Me.pnl.Controls.Add(Me.Label7)
Me.pnl.Controls.Add(Me.Label6)
Me.pnl.Controls.Add(Me.cboStammreferenz)
Me.pnl.Controls.Add(Me.cboDakosyAction)
Me.pnl.Controls.Add(Me.Button1)
Me.pnl.Controls.Add(Me.Label4)
Me.pnl.Controls.Add(Me.Label5)
Me.pnl.Controls.Add(Me.Label2)
Me.pnl.Controls.Add(Me.Label3)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Right
Me.pnl.Location = New System.Drawing.Point(573, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(361, 72)
Me.pnl.TabIndex = 1
'
'Label8
'
Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(8, 34)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(60, 13)
Me.Label8.TabIndex = 14
Me.Label8.Text = "Rohmasse:"
Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label7
'
Me.Label7.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
Me.Label7.Location = New System.Drawing.Point(73, 31)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(122, 18)
Me.Label7.TabIndex = 13
Me.Label7.Text = "0 kg"
Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label6
'
Me.Label6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(8, 51)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(57, 13)
Me.Label6.TabIndex = 12
Me.Label6.Text = "Stammref.:"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'cboStammreferenz
'
Me.cboStammreferenz._allowedValuesFreiText = Nothing
Me.cboStammreferenz._allowFreiText = False
Me.cboStammreferenz._value = ""
Me.cboStammreferenz.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.cboStammreferenz.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboStammreferenz.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboStammreferenz.FormattingEnabled = True
Me.cboStammreferenz.Location = New System.Drawing.Point(66, 48)
Me.cboStammreferenz.Name = "cboStammreferenz"
Me.cboStammreferenz.Size = New System.Drawing.Size(129, 21)
Me.cboStammreferenz.TabIndex = 11
'
'cboDakosyAction
'
Me.cboDakosyAction._allowedValuesFreiText = Nothing
Me.cboDakosyAction._allowFreiText = False
Me.cboDakosyAction._value = ""
Me.cboDakosyAction.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.cboDakosyAction.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboDakosyAction.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboDakosyAction.FormattingEnabled = True
Me.cboDakosyAction.Location = New System.Drawing.Point(200, 48)
Me.cboDakosyAction.Name = "cboDakosyAction"
Me.cboDakosyAction.Size = New System.Drawing.Size(158, 21)
Me.cboDakosyAction.TabIndex = 1
'
'Button1
'
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button1.BackColor = System.Drawing.Color.White
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.Button1.Location = New System.Drawing.Point(200, 5)
Me.Button1.Margin = New System.Windows.Forms.Padding(2)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(159, 42)
Me.Button1.TabIndex = 6
Me.Button1.Text = "An SGS senden -->"
Me.Button1.UseVisualStyleBackColor = False
'
'Label4
'
Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(8, 19)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(67, 13)
Me.Label4.TabIndex = 9
Me.Label4.Text = "Packstücke:"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label5
'
Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
Me.Label5.Location = New System.Drawing.Point(73, 16)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(122, 18)
Me.Label5.TabIndex = 10
Me.Label5.Text = "0 Pk"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label2
'
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(8, 4)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(59, 13)
Me.Label2.TabIndex = 7
Me.Label2.Text = "Positionen:"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label3
'
Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
Me.Label3.Location = New System.Drawing.Point(103, 1)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(92, 18)
Me.Label3.TabIndex = 8
Me.Label3.Text = "1"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label1
'
Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label1.AutoSize = True
Me.Label1.BackColor = System.Drawing.Color.White
Me.Label1.Location = New System.Drawing.Point(581, 7)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(82, 13)
Me.Label1.TabIndex = 5
Me.Label1.Text = "Bezugsnummer:"
'
'lblBezugsnummer
'
Me.lblBezugsnummer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblBezugsnummer.BackColor = System.Drawing.Color.White
Me.lblBezugsnummer.ContextMenuStrip = Me.cntxtBezugsnr
Me.lblBezugsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblBezugsnummer.Location = New System.Drawing.Point(738, 1)
Me.lblBezugsnummer.Name = "lblBezugsnummer"
Me.lblBezugsnummer.Size = New System.Drawing.Size(193, 23)
Me.lblBezugsnummer.TabIndex = 6
Me.lblBezugsnummer.Text = "4800/000000/17 AAA"
Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'cntxtBezugsnr
'
Me.cntxtBezugsnr.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueBezugsnummerVergebenToolStripMenuItem})
Me.cntxtBezugsnr.Name = "cntxtBezugsnr"
Me.cntxtBezugsnr.Size = New System.Drawing.Size(239, 26)
Me.cntxtBezugsnr.Text = "Bezugsnr"
'
'NeueBezugsnummerVergebenToolStripMenuItem
'
Me.NeueBezugsnummerVergebenToolStripMenuItem.Name = "NeueBezugsnummerVergebenToolStripMenuItem"
Me.NeueBezugsnummerVergebenToolStripMenuItem.Size = New System.Drawing.Size(238, 22)
Me.NeueBezugsnummerVergebenToolStripMenuItem.Text = "neue Bezugsnummer vergeben"
'
'Panel1
'
Me.Panel1.Controls.Add(Me.pic)
Me.Panel1.Controls.Add(Me.txtDyMandant)
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Controls.Add(Me.txtDyNiederlassung)
Me.Panel1.Controls.Add(Me.lblBezugsnummer)
Me.Panel1.Controls.Add(Me.MenuStrip)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(934, 25)
Me.Panel1.TabIndex = 1
'
'pic
'
Me.pic.BackColor = System.Drawing.Color.White
Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.sgs
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.pic.Location = New System.Drawing.Point(217, 0)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(100, 24)
Me.pic.TabIndex = 20
Me.pic.TabStop = False
'
'txtDyMandant
'
Me.txtDyMandant.BackColor = System.Drawing.Color.White
Me.txtDyMandant.Location = New System.Drawing.Point(443, 7)
Me.txtDyMandant.Name = "txtDyMandant"
Me.txtDyMandant.Size = New System.Drawing.Size(48, 13)
Me.txtDyMandant.TabIndex = 19
Me.txtDyMandant.Text = "VERG"
Me.txtDyMandant.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtDyNiederlassung
'
Me.txtDyNiederlassung.BackColor = System.Drawing.Color.White
Me.txtDyNiederlassung.Location = New System.Drawing.Point(497, 7)
Me.txtDyNiederlassung.Name = "txtDyNiederlassung"
Me.txtDyNiederlassung.Size = New System.Drawing.Size(63, 13)
Me.txtDyNiederlassung.TabIndex = 18
Me.txtDyNiederlassung.Text = "SUB"
'
'MenuStrip
'
Me.MenuStrip.BackColor = System.Drawing.Color.White
Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OptionenToolStripMenuItem})
Me.MenuStrip.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip.Name = "MenuStrip"
Me.MenuStrip.Size = New System.Drawing.Size(934, 24)
Me.MenuStrip.TabIndex = 0
'
'OptionenToolStripMenuItem
'
Me.OptionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SpeichernToolStripMenuItem, Me.LadenToolStripMenuItem})
Me.OptionenToolStripMenuItem.Name = "OptionenToolStripMenuItem"
Me.OptionenToolStripMenuItem.Size = New System.Drawing.Size(69, 20)
Me.OptionenToolStripMenuItem.Text = "Optionen"
'
'SpeichernToolStripMenuItem
'
Me.SpeichernToolStripMenuItem.Name = "SpeichernToolStripMenuItem"
Me.SpeichernToolStripMenuItem.Size = New System.Drawing.Size(126, 22)
Me.SpeichernToolStripMenuItem.Text = "Speichern"
'
'LadenToolStripMenuItem
'
Me.LadenToolStripMenuItem.Name = "LadenToolStripMenuItem"
Me.LadenToolStripMenuItem.Size = New System.Drawing.Size(126, 22)
Me.LadenToolStripMenuItem.Text = "Laden ..."
'
'usrCntlSGS_NCTS
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Controls.Add(Me.SplitContainer)
Me.Controls.Add(Me.Panel1)
Me.Name = "usrCntlSGS_NCTS"
Me.Size = New System.Drawing.Size(934, 712)
Me.SplitContainer.Panel1.ResumeLayout(False)
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer.ResumeLayout(False)
Me.MyFlowLayoutPanel1.ResumeLayout(False)
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
Me.cntxtBezugsnr.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.MenuStrip.ResumeLayout(False)
Me.MenuStrip.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents SplitContainer As System.Windows.Forms.SplitContainer
Friend WithEvents MyFlowLayoutPanel1 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
Friend WithEvents btnAllgemein As System.Windows.Forms.Button
Friend WithEvents btnAdressen As System.Windows.Forms.Button
Friend WithEvents btnSicherheit As System.Windows.Forms.Button
Friend WithEvents btnVerschlüsse As System.Windows.Forms.Button
Friend WithEvents btnPositionen As System.Windows.Forms.Button
Friend WithEvents Button5 As System.Windows.Forms.Button
Friend WithEvents pnl As System.Windows.Forms.Panel
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents lblBezugsnummer As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents MenuStrip As System.Windows.Forms.MenuStrip
Friend WithEvents OptionenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents SpeichernToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents LadenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents cboDakosyAction As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cntxtBezugsnr As System.Windows.Forms.ContextMenuStrip
Friend WithEvents NeueBezugsnummerVergebenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents cboStammreferenz As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents txtDyMandant As System.Windows.Forms.Label
Friend WithEvents txtDyNiederlassung As System.Windows.Forms.Label
Friend WithEvents Label4 As Label
Friend WithEvents Label7 As Label
Friend WithEvents Label8 As Label
Friend WithEvents pic As PictureBox
End Class

126
SDL/ZOLLSYSTEM/SGS/usrCntlSGS_NCTS.resx Normal file
View File

@@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="cntxtBezugsnr.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>125, 17</value>
</metadata>
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

616
SDL/ZOLLSYSTEM/SGS/usrCntlSGS_NCTS.vb Normal file
View File

@@ -0,0 +1,616 @@
Imports DAKOSY_Worker
Imports Tamir
Imports Tamir.SharpSsh
Public Class usrCntlSGS_NCTS
Property ALLG As usrCntlATLAS_NCTS_Allg
Property ADRESSEN As usrCntlATLAS_ncts_Adressen
Property SICHERHEIT As usrCntlATLAS_NCTS_Sicherheit
Property POSITIONEN As usrCntlATLAS_NCTS_Positionen
Property VERSCHLUESSE As usrCntlATLAS_NCTS_Verschluesse
'Property FilialeNr As Integer
' Property AbfertigungsNr As Integer
Property Jahr2Stellig As Integer
Property zusatz As String
Property BezugsNr As String = ""
' Property AvisoId As Integer
'Property SENDUNGS_ID As Integer
Property AVISO As VERAG_PROG_ALLGEMEIN.cAviso
Property SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen
Dim sentToDakosy = False
Property isSTAMMREF As Boolean = False ' Wenn das Formular als Stammreferenz bearbeitet wird
Property STAMMREF As String = "" ' Wenn eine Stammrefereenz als Grundlage dient
Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Dim cDy_ART As String = If(FIRMA_DY = "ATILLA", "T2", "T1")
Dim ncts_OUT As VERAG_PROG_ALLGEMEIN.cNCTS_TR = Nothing
Dim DY_ANM As cDakosy_Zollanmeldungen = Nothing
Sub New(ncts_OUT As VERAG_PROG_ALLGEMEIN.cNCTS_TR, Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "")
InitializeComponent()
Me.isSTAMMREF = isSTAMMREF
Me.STAMMREF = STAMMREF
Me.ncts_OUT = ncts_OUT
DY_ANM = New cDakosy_Zollanmeldungen(ncts_OUT.ncts_dyaAnmID)
If DY_ANM.dy_AvisoId > 0 Then
Dim AV As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
AVISO = AV.LesenAviso(DY_ANM.dy_AvisoId, "")
End If
If DY_ANM.dy_SendungsId > 0 Then
SENDUNG = New VERAG_PROG_ALLGEMEIN.cSendungen(DY_ANM.dy_SendungsId)
End If
End Sub
Sub New(DY_ANM As cDakosy_Zollanmeldungen, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, Jahr2Stellig As Integer, Optional zusatz As String = "", Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "")
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.Jahr2Stellig = Jahr2Stellig
Me.zusatz = zusatz
Me.AVISO = AVISO
Me.SENDUNG = SENDUNG
Me.DY_ANM = DY_ANM
Me.isSTAMMREF = isSTAMMREF
Me.STAMMREF = STAMMREF
If DY_ANM IsNot Nothing Then
Me.ncts_OUT = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByAnmIDFull(DY_ANM.dy_Id, True)
Me.cDy_ART = If(DY_ANM.dy_ART, "")
If Me.cDy_ART = "" And Me.ncts_OUT IsNot Nothing Then Me.cDy_ART = If(Me.ncts_OUT.ncts_ArtAnmeldung, "")
If Me.cDy_ART = "" Then Me.cDy_ART = "T1"
If ncts_OUT IsNot Nothing Then
Me.FIRMA_DY = If(Me.ncts_OUT.ncts_firma, "")
End If
End If
'DY_ANM = New cDakosy_Zollanmeldungen(ncts_OUT.ncts_dyaAnmID)
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(ART As String, AvisoId As Integer, SENDUNGS_ID As Integer, Jahr2Stellig As Integer, Optional zusatz As String = "", Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "")
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.cDy_ART = If(ART = "NCTS", "T1", ART)
If AvisoId > 0 Then
Dim AV As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
AVISO = AV.LesenAviso(AvisoId, "")
End If
If SENDUNGS_ID > 0 Then
SENDUNG = New VERAG_PROG_ALLGEMEIN.cSendungen(SENDUNGS_ID)
End If
Me.Jahr2Stellig = Jahr2Stellig
Me.isSTAMMREF = isSTAMMREF
Me.STAMMREF = STAMMREF
Me.zusatz = zusatz
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(ART As String, Aviso As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, Jahr2Stellig As Integer, Optional zusatz As String = "", Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "", Optional FIRMA_DY As String = "")
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.cDy_ART = If(ART = "NCTS", "T1", ART)
Me.AVISO = Aviso
Me.SENDUNG = SENDUNG
Me.isSTAMMREF = isSTAMMREF
Me.STAMMREF = STAMMREF
Me.Jahr2Stellig = Jahr2Stellig
Me.zusatz = zusatz
If FIRMA_DY <> "" Then Me.FIRMA_DY = FIRMA_DY
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Function getBezugsnr(ByRef BezugsNr)
Dim BezugsNrTmp = ""
Select Case FIRMA_DY
Case "UNISPED"
If If(SENDUNG.tblSnd_DakosyRef, "") <> "" Then
BezugsNrTmp = SENDUNG.tblSnd_DakosyRef
Else
BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr
End If
Case Else
BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr '& If(zusatz <> "", "/" & zusatz, "") 'zusatz ' & "/" & Jahr2Stellig
End Select
BezugsNr = BezugsNrTmp
zusatz = "A"
'Soloagne bis die Bezugsnummer noch nicht existiert
While DAKOSY_Worker.cDakosy_Zollanmeldungen.ExistsBezugsNr(BezugsNr) 'IsNot Nothing
BezugsNr = BezugsNrTmp & "/" & zusatz
If zusatz.Length = 1 Then
zusatz = Chr(Asc(zusatz.ToString) + 1)
Else
zusatz = zusatz.Substring(0, 1) & Chr(Asc(zusatz.Substring(0, 2).ToString) + 1)
End If
If zusatz = "Z" Then zusatz = "AA"
End While
lblBezugsnummer.Text = BezugsNr
Return BezugsNr
End Function
Private Sub usrCntlATLAS_Load(sender As Object, e As EventArgs) Handles Me.Load
'MsgBox("LOAD")
cboDakosyAction.Items.Clear()
cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neuen Datensatz erstellen", DY_ObjektAktion.OBJ_CREATE))
cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vohr. DS ändern", DY_ObjektAktion.OBJ_CHANGE))
cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorh. DS stornieren", DY_ObjektAktion.OBJ_CANCEL))
cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Datensatz an ZOLL senden", DY_ObjektAktion.OBJ_SEND))
cboDakosyAction.changeItem(DY_ObjektAktion.OBJ_CREATE)
Select Case FIRMA_DY
Case "VERAG" : txtDyMandant.Text = "VERG"
txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
'Case "SUB" : txtDyNiederlassung.Text = "VERG"
'Case "SUW" : txtDyNiederlassung.Text = "ATIL"
''Case "SBG" : txtDyNiederlassung.Text = "IMEX"
'Case "NEU" : txtDyNiederlassung.Text = "IMEX"
'Case "NKD" : txtDyNiederlassung.Text = "IMEX"
'End Select
Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW"
Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED"
Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME"
Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO"
End Select
cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='NCTS' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "') and dySr_visible=1", False, "FMZOLL", True)
cboStammreferenz.changeItem("")
SICHERHEIT = New usrCntlATLAS_NCTS_Sicherheit(ncts_OUT, FIRMA_DY)
VERSCHLUESSE = New usrCntlATLAS_NCTS_Verschluesse() 'ncts_OUT)
ADRESSEN = New usrCntlATLAS_ncts_Adressen(ncts_OUT, FIRMA_DY) ')
ALLG = New usrCntlATLAS_NCTS_Allg(ncts_OUT)
POSITIONEN = New usrCntlATLAS_NCTS_Positionen(ncts_OUT)
If isSTAMMREF Then
Me.BezugsNr = "STAMMREFERENZ"
If ncts_OUT Is Nothing Then ncts_OUT = New VERAG_PROG_ALLGEMEIN.cNCTS_TR()
ncts_OUT.ncts_ObjectName = BezugsNr
Else
If ncts_OUT Is Nothing Then ' NEUE ZOLLANMELDUNG
Dim f As New frmDakosyStammreferenz("DE", "NCTS", False,,, FIRMA_DY)
Dim Stammreferenz = Nothing
If f.ShowDialog(Me) Then
Stammreferenz = f.STAMMREF
sentToDakosy = f.sentToDakosy
End If
Try
BezugsNr = getBezugsnr(BezugsNr)
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
ncts_OUT = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByBezugsNr(BezugsNr, True)
If ncts_OUT Is Nothing Then
'Falls zur BezugsNr schon ein Eintrag in der DB vorhanden ist
ncts_OUT = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByAnmIDFull(f.STAMMREF_DYID, True) ' DyID --> Falls bei der Stammreferenz eine Vorlage hinterlegt ist!
If ncts_OUT IsNot Nothing Then
'Stmmreferenz - Werte zurücksetzen, damit nicht falsch übergeben
ncts_OUT.ncts_dyaAnmID = -1
ncts_OUT.ncts_Id = -1
Else
ncts_OUT = New VERAG_PROG_ALLGEMEIN.cNCTS_TR()
End If
loaddataFromAVISO(ncts_OUT)
cboStammreferenz.changeItem(Stammreferenz)
End If
'ncts_OUT
Else
' ncts_OUT is ot nothing
Me.BezugsNr = ncts_OUT.ncts_ObjectName
'MsgBox(ncts_OUT.ncts_Hauptverpflichteter_Name)
End If
End If
If If(ncts_OUT.ncts_firma, "") = "" Then If FIRMA_DY <> "" Then ncts_OUT.ncts_firma = FIRMA_DY
If If(Me.cDy_ART, "") <> "" Then
'Muss noch überschrieben werdne, da sonst Art von Stammref hergenommen wird...
ncts_OUT.ncts_ArtAnmeldung = Me.cDy_ART
Else
'Wenn keine Art --> T1
If ncts_OUT.ncts_ArtAnmeldung Is Nothing Or ncts_OUT.ncts_ArtAnmeldung = "" Then
ncts_OUT.ncts_ArtAnmeldung = "T1"
End If
End If
'hinzufügen, damit alle Controls richtig geladen und initialisiert werden:s
Me.SplitContainer.Panel2.Controls.Add(SICHERHEIT)
Me.SplitContainer.Panel2.Controls.Add(VERSCHLUESSE)
Me.SplitContainer.Panel2.Controls.Add(ALLG)
Me.SplitContainer.Panel2.Controls.Add(POSITIONEN)
Me.SplitContainer.Panel2.Controls.Add(ADRESSEN)
' MsgBox(ncts_OUT.ncts_Hauptverpflichteter_Name)
'Werte setzen:
SICHERHEIT.setValues_TR(ncts_OUT.ncts_SICHERHEITSANGABEN)
'VERSCHLUESSE.setValues_TR(ncts_OUT)
ADRESSEN.setValues_TR(ncts_OUT)
ALLG.setValues(ncts_OUT)
POSITIONEN.setValues_TR(ncts_OUT)
If If(ncts_OUT.ncts_Stammreferenz, "") <> "" Then cboStammreferenz.changeItem(ncts_OUT.ncts_Stammreferenz)
'Controls wieder entfernen:
Me.SplitContainer.Panel2.Controls.Clear()
' If ALLG.txtKennnummer.Text = "" Then ALLG.txtKennnummer.Text = BezugsNr
' ADRESSEN.CreateControl()
For Each c In MyFlowLayoutPanel1.Controls
If c.GetType.ToString = GetType(System.Windows.Forms.Button).ToString Then
AddHandler DirectCast(c, System.Windows.Forms.Button).Click, AddressOf buttonClick
End If
Next
SplitContainer.Panel2.Controls.Add(ALLG)
lblBezugsnummer.Text = BezugsNr
ALLG.Dock = DockStyle.Fill
ADRESSEN.Dock = DockStyle.Fill
POSITIONEN.Dock = DockStyle.Fill
SICHERHEIT.Dock = DockStyle.Fill
VERSCHLUESSE.Dock = DockStyle.Fill
'
'
AddHandler POSITIONEN.RohmasseChanged, Sub(rohmasse, packstuecke)
Label5.Text = packstuecke.ToString("N0") & " Pk"
Label7.Text = rohmasse.ToString("N2") & " kg"
End Sub
AddHandler POSITIONEN.PosAnzChanged, Sub(anz)
Label3.Text = anz
End Sub
If isSTAMMREF Then
Button1.Visible = False
cboDakosyAction.Visible = False
lblBezugsnummer.Text = "STAMMREFERENZ"
lblBezugsnummer.ForeColor = Color.Red
End If
If sentToDakosy Then
Try
Me.Button1.PerformClick()
Me.FindForm.Close()
Catch
End Try
End If
Try
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZA_AVISO_Edit", "AVISO") Then
Me.FindForm.Close()
End If
Catch
End Try
End Sub
Sub buttonClick(sender As Object, e As EventArgs) 'HANDLED
Dim btn As System.Windows.Forms.Button = DirectCast(sender, System.Windows.Forms.Button)
For Each c In MyFlowLayoutPanel1.Controls
If c.GetType.ToString = GetType(System.Windows.Forms.Button).ToString Then
DirectCast(c, System.Windows.Forms.Button).BackColor = Drawing.Color.White
DirectCast(c, System.Windows.Forms.Button).ForeColor = Drawing.Color.Black
End If
Next
btn.BackColor = Drawing.Color.SteelBlue 'Drawing.Color.FromArgb(0, 54, 128)
btn.ForeColor = Drawing.Color.White
SplitContainer.Panel2.Controls.Clear()
If btn Is btnAllgemein Then
SplitContainer.Panel2.Controls.Add(ALLG)
ElseIf btn Is btnAdressen Then
SplitContainer.Panel2.Controls.Add(ADRESSEN)
ElseIf btn Is btnSicherheit Then
SplitContainer.Panel2.Controls.Add(SICHERHEIT)
ElseIf btn Is btnVerschlüsse Then
SplitContainer.Panel2.Controls.Add(VERSCHLUESSE)
ElseIf btn Is btnPositionen Then
SplitContainer.Panel2.Controls.Add(POSITIONEN)
End If
End Sub
Sub loaddataFromAVISO(ByRef cdy As VERAG_PROG_ALLGEMEIN.cNCTS_TR)
Try
'==> VORBLENDUNG:
' Dim cdy As New VERAG_PROG_ALLGEMEIN.cNCTS_TR
cdy.ncts_ObjectName = BezugsNr
cdy.ncts_AbgangsDienststellennummer = "" '"DE007701" ' Neuhaus (öSTERR:)
frmZollanmeldung.setZollstelle(cdy.ncts_AbgangsDienststellennummer, AVISO)
cdy.ncts_dyaArt = cDy_ART
If AVISO IsNot Nothing Then
cdy.ncts_Befoerderungsmittel_KennzeichenAbgang = AVISO.LKW_Nr
cdy.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode = AVISO.LKW_Nationalitaet
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "ATILLA" Then
cdy.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = "X"
Else
cdy.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = AVISO.LKW_Nr
cdy.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode = AVISO.LKW_Nationalitaet
End If
End If
cdy.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent = "3"
cdy.ncts_Befoerderungsmittel_ArtGrenzueberschreitung = "35"
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "ATILLA" Then
cdy.ncts_SumA_KzSumASicherheit = True
cdy.ncts_SumA_BesondereUmstaende = "C"
cdy.ncts_SumA_BefoerderungskostenZahlungsweise = "D"
cdy.ncts_SumA_Ladeort = "DE"
cdy.ncts_SumA_KennnummerSendung = "OHNE"
If AVISO.Frächter_KdNr IsNot Nothing AndAlso IsNumeric(AVISO.Frächter_KdNr) AndAlso AVISO.Frächter_KdNr > 0 Then
Dim AD_Befoerderer As New VERAG_PROG_ALLGEMEIN.cAdressen(AVISO.Frächter_KdNr) ' Befoerderer
Dim KD_Befoerderer As New VERAG_PROG_ALLGEMEIN.cKunde(AVISO.Frächter_KdNr) ' Befoerderer
cdy.ncts_SumA_Befoerderer_EORI = KD_Befoerderer.EORITIN
If KD_Befoerderer.EORITIN IsNot Nothing Then cdy.ncts_SumA_Befoerderer_NLNR = KD_Befoerderer.EORITIN_NL
cdy.ncts_SumA_Befoerderer_Name = (If(AD_Befoerderer.Name_1, "") & " " & If(AD_Befoerderer.Name_2, "")).trim
cdy.ncts_SumA_Befoerderer_StrasseHausnummer = AD_Befoerderer.Straße
cdy.ncts_SumA_Befoerderer_PLZ = AD_Befoerderer.PLZ
cdy.ncts_SumA_Befoerderer_Ort = AD_Befoerderer.Ordnungsbegriff
cdy.ncts_SumA_Befoerderer_Land = cProgramFunctions.getISO2Land(AD_Befoerderer.LandKz)
Else
cdy.ncts_SumA_Befoerderer_Name = If(AVISO.Frächter, "")
End If
End If
If SENDUNG IsNot Nothing Then
Dim p As VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition = Nothing
If cdy.ncts_WARENPOS.Count > 0 Then
p = cdy.ncts_WARENPOS(0)
Else
p = New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition
cdy.ncts_WARENPOS.Add(p) ' schon wieder...'nciht mehr anfügen
End If
p.nctsWP_Warenbezeichnung = SENDUNG.tblSnd_Warenbezeichnung
If SENDUNG.tblSnd_Colli IsNot Nothing AndAlso IsNumeric(SENDUNG.tblSnd_Colli) Then
Dim pk As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_WarenpositionPackstuecke
pk.nctsWpPk_PackstueckeAnzahl = SENDUNG.tblSnd_Colli
pk.nctsWpPk_Verpackungsart = "PK"
pk.nctsWpPk_ZeichenNummern = "OHNE"
p.nctsWP_PACKSTUECKE.Add(pk)
End If
p.nctsWP_Rohmasse = SENDUNG.tblSnd_Gewicht
p.nctsWP_Warenwert = SENDUNG.tblSnd_Warenwert
p.nctsWP_WarenwertWaehrung = SENDUNG.tblSnd_WarenwertWaehrung
' p.nctsWP_Warenbezeichnung = SENDUNG.tblSnd_Warenbezeichnung
p.nctsWP_VorpapierTyp = "OHNE"
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "ATILLA" Then
p.nctsWP_BesondereVermeke_Export = True
End If
'cdy.ncts_WARENPOS.Add(p)
cdy.ncts_Empfaenger_EORI = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_EORI)
cdy.ncts_Empfaenger_NLNR = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_EORI_NL)
cdy.ncts_Empfaenger_Name = cProgramFunctions.isLeerNothing(SENDUNG.tblSnd_NCTSVerzollungsadresse)
cdy.ncts_Empfaenger_StrasseHausnummer = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_Strasse)
cdy.ncts_Empfaenger_PLZ = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_PLZ)
cdy.ncts_Empfaenger_Ort = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_Ort)
cdy.ncts_Empfaenger_Land = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_Land)
cdy.ncts_BestimmungsstelleDienststellennummer = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Bestimmungszollstelle)
If SENDUNG.tblSnd_AbsenderKdNr > 0 Then
Dim adVERSENDER As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG.tblSnd_AbsenderKdNr)
Dim kdVERSENDER As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG.tblSnd_AbsenderKdNr)
cdy.ncts_Versender_EORI = kdVERSENDER.EORITIN
cdy.ncts_Versender_NLNR = kdVERSENDER.EORITIN_NL
cdy.ncts_Versender_Name = If(adVERSENDER.Name_1, "") & If(adVERSENDER.Name_2, "")
cdy.ncts_Versender_StrasseHausnummer = adVERSENDER.Straße
cdy.ncts_Versender_PLZ = adVERSENDER.PLZ
cdy.ncts_Versender_Ort = adVERSENDER.Ort
If adVERSENDER.LandKz IsNot Nothing Then cdy.ncts_Versender_Land = cProgramFunctions.getISO2Land(adVERSENDER.LandKz)
' cdy.ncts_BestimmungsstelleDienststellennummer = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Bestimmungszollstelle)
End If
End If
' NCTS= cdy
Catch ex As Exception
MsgBox(ex.StackTrace)
End Try
End Sub
Sub setValue(ncts_OUT)
BezugsNr = ncts_OUT.ncts_ObjectName
End Sub
Private Sub pnl_Paint(sender As Object, e As PaintEventArgs)
End Sub
Sub loadDYZollanmeldungen(Optional Status As String = "") ' + Speichern
If DY_ANM Is Nothing Then
DY_ANM = New cDakosy_Zollanmeldungen(ncts_OUT.ncts_dyaAnmID)
End If
DY_ANM.dy_ART = ALLG.NCTS_ART 'cDy_ART
DY_ANM.dy_BezugsNr = BezugsNr
DY_ANM.dy_AvisoId = If(AVISO Is Nothing, Nothing, AVISO.AvisoID)
DY_ANM.dy_SendungsId = If(SENDUNG Is Nothing, Nothing, SENDUNG.tblSnd_SendungID)
'Status?
DY_ANM.SAVE() 'Speichern, ID wird erzeugt
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Refresh()
Me.Cursor = Cursors.WaitCursor
If sentToDakosy OrElse vbYes = MsgBox("Sollen die Daten abgeschickt werden?" & vbNewLine & "Eine Änderung ist nur noch in der Dakosy Software möglich.", vbYesNoCancel) Then
' Dim cDyAnm As New cDakosy_Zollanmeldungen(cDy_ART, BezugsNr, AVISO.AvisoID, SENDUNG.tblSnd_SendungID)
loadDYZollanmeldungen()
If ncts_OUT IsNot Nothing Then
'Dim cDY As New VERAG_PROG_ALLGEMEIN.cNCTS_TR(cDyAnm.dy_Id, cDyAnm.dy_Erstellung_SB)
ncts_OUT.ncts_dyaAnmID = DY_ANM.dy_Id
ncts_OUT.ncts_Erstellung_SB = DY_ANM.dy_Erstellung_SB
ncts_OUT.ncts_LetzteBearbeitung = Now
ncts_OUT.ncts_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB
ncts_OUT.ncts_Partnersystem = "VERAG_SGS" ' eigene Anmeldungen in Fremdsystem
ncts_OUT.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_05
ncts_OUT.ncts_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05
loadInClass_VersandanmeldungNCTS(ncts_OUT, Me, FIRMA_DY)
If Not ncts_OUT.SAVE_ALL() Then Exit Sub
Dim saveFile = ""
If VERAG_PROG_ALLGEMEIN.cSGSInterface.generateVersandanmeldungNCTS(ncts_OUT, saveFile, cboDakosyAction._value) Then
If saveFile <> "" Then
If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, BezugsNr, DY_ANM.dy_Id, FIRMA_DY) Then
DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_03)
Else
DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_09)
MsgBox("Sendefehler!")
End If
End If
End If
End If
DY_ANM.UPDATE_DATA()
Me.FindForm.Close()
End If
Me.Cursor = Cursors.Default
End Sub
Private Sub SpeichernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpeichernToolStripMenuItem.Click
Me.Refresh()
' Dim cDyAnm As New cDakosy_Zollanmeldungen(cDy_ART, BezugsNr, If(AVISO Is Nothing, Nothing, AVISO.AvisoID), If(SENDUNG Is Nothing, Nothing, SENDUNG.tblSnd_SendungID))
loadDYZollanmeldungen()
If ncts_OUT IsNot Nothing Then
'Dim cDY As New VERAG_PROG_ALLGEMEIN.cNCTS_TR(cDyAnm.dy_Id, cDyAnm.dy_Erstellung_SB)
ncts_OUT.ncts_dyaAnmID = DY_ANM.dy_Id
ncts_OUT.ncts_Erstellung_SB = DY_ANM.dy_Erstellung_SB
ncts_OUT.ncts_LetzteBearbeitung = Now
ncts_OUT.ncts_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB
ncts_OUT.ncts_Partnersystem = "VERAG_SGS" ' eigene Anmeldungen in Fremdsystem
ncts_OUT.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_00
ncts_OUT.ncts_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_00
loadInClass_VersandanmeldungNCTS(ncts_OUT, Me, FIRMA_DY)
If Not ncts_OUT.SAVE_ALL() Then
'gespeichert
End If
End If
DY_ANM.UPDATE_DATA()
End Sub
Private Sub NeueBezugsnummerVergebenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeueBezugsnummerVergebenToolStripMenuItem.Click
BezugsNr = getBezugsnr(BezugsNr)
End Sub
Function loadInClass_VersandanmeldungNCTS(ByRef NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR, USRCNTL As usrCntlSGS_NCTS, FIRMA_DY As String) As VERAG_PROG_ALLGEMEIN.cNCTS_TR
Try
Select Case FIRMA_DY
Case "UNISPED"
NCTS.ncts_Trans_Partner = "UNAT"
Case Else
NCTS.ncts_Trans_Partner = "VERA"
End Select
NCTS.ncts_Trans_DatumZeit = Now
NCTS.ncts_Gestellt = False
NCTS.ncts_Status = "00"
NCTS.ncts_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig
NCTS.ncts_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig
NCTS.ncts_ObjectAlias = If(USRCNTL.AVISO IsNot Nothing, USRCNTL.AVISO.AvisoID, Nothing)
NCTS.ncts_Trans_Version = "003"
NCTS.ncts_Trans_Div1 = "ATILLA"
'NCTS.ncts_Trans_Div1 = "ATILLA"
'NCTS.ncts_Trans_Div1 = "ATILLA"
NCTS.ncts_Stammreferenz = If(USRCNTL.cboStammreferenz._value = "", Nothing, USRCNTL.cboStammreferenz._value)
NCTS.ncts_BezugsnummerVorblendung = NCTS.ncts_Stammreferenz
NCTS.ncts_ObjectName = USRCNTL.BezugsNr
'NCTS.ncts_ObjectAlias = USRCNTL.AVISO.AvisoID
USRCNTL.ALLG.getValues(NCTS)
USRCNTL.ADRESSEN.getValues_TR(NCTS)
USRCNTL.POSITIONEN.getValues_TR(NCTS)
NCTS.ncts_SICHERHEITSANGABEN = USRCNTL.SICHERHEIT.getValues_TR()
'USRCNTL.VERSCHLUESSE.getValues_TR(NCTS)
'NCTS.ncts_WARENPOS=USRCNTL.POSITIONEN.getValues()
'--------------------------------
Return NCTS
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
Return Nothing
End Try
End Function
End Class