neu
This commit is contained in:
@@ -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
|
||||
|
||||
@@ -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, ""))
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user