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

NCTS004 IRU0

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-04-11 12:38:56 +02:00
parent 97583a06ab
commit 975e1b65a7
4 changed files with 36 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/My Project/AssemblyInfo.vb
View File

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

19
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.vb
View File

@@ -223,7 +223,7 @@ Public Class usrCntlATLAS_NCTS004
End If
loaddataFromAVISO(AVISO, SENDUNG, cDy_ART, BezugsNr, ncts_OUT)
loaddataFromAVISO(AVISO, SENDUNG, cDy_ART, BezugsNr, ncts_OUT, FIRMA_DY)
cboStammreferenz.changeItem(Stammreferenz)
@@ -395,7 +395,7 @@ Public Class usrCntlATLAS_NCTS004
Shared Sub loaddataFromAVISO(AVISO As cAviso, SENDUNG As cSendungen, cDy_ART As String, BezugsNr As String, ByRef cdy As cDakosyNCTSOut004)
Shared Sub loaddataFromAVISO(AVISO As cAviso, SENDUNG As cSendungen, cDy_ART As String, BezugsNr As String, ByRef cdy As cDakosyNCTSOut004, FIRMA_DY As String)
Try
'==> VORBLENDUNG:
@@ -408,6 +408,15 @@ Public Class usrCntlATLAS_NCTS004
cdy.ncts_dyaArt = cDy_ART
If AVISO IsNot Nothing Then
cdy.ncts_DepartureTransportMeans_1_IdentificationNumber = AVISO.LKW_Nr
Select Case AVISO.Transportmittelart
Case "LKW", "SPRINTER"
cdy.ncts_DepartureTransportMeans_1_TypeOfIdentification = 30
If FIRMA_DY <> "AMBAR" Then
cdy.ncts_InlandModeOfTransport = "3"
cdy.ncts_ModeOfTransportAtTheBorder = "3"
End If
End Select
cdy.ncts_DepartureTransportMeans_1_Nationality = AVISO.LKW_Nationalitaet
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "ATILLA" Then
'cdy.transportm = "X"
@@ -418,9 +427,6 @@ Public Class usrCntlATLAS_NCTS004
End If
cdy.ncts_InlandModeOfTransport = "3"
cdy.ncts_ModeOfTransportAtTheBorder = "3"
'cdy.ncts_Befoerderungsmittel_ArtGrenzueberschreitung = "35"
@@ -623,6 +629,7 @@ Public Class usrCntlATLAS_NCTS004
ncts_OUT.ncts_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB
DAKOSY_Interface_SEND.loadInClass_VersandanmeldungNCTSDE_004(ncts_OUT, Me, DY_ANM, FIRMA_DY)
If Not ncts_OUT.SAVE_ALL() Then
'gespeichert
End If
@@ -778,7 +785,7 @@ Public Class usrCntlATLAS_NCTS004
NCTS_OUT.ncts_Id = -1
NCTS_OUT.ncts_dyaAnmID = DY_ANM.dy_Id
usrCntlATLAS_NCTS004.loaddataFromAVISO(AVISO, SENDUNG, cDy_ART, BezugsNr, NCTS_OUT)
usrCntlATLAS_NCTS004.loaddataFromAVISO(AVISO, SENDUNG, cDy_ART, BezugsNr, NCTS_OUT, FIRMA_DY)
'cboStammreferenz.changeItem(Stammreferenz)
If NCTS_OUT.SAVE() Then

6
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Allg.vb
View File

@@ -233,7 +233,7 @@
' NCTS.ncts_DepartureTransportMeans_1_TypeOfIdentification = cProgramFunctions.isLeerNothing(cboArtGrenzUeberschreitung._value)
NCTS.ncts_DepartureTransportMeans_1_TypeOfIdentification = cProgramFunctions.isLeerNothing(sbArtGrenzUeberschreitung._value)
' NCTS.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent = cProgramFunctions.isLeerNothing(cboVerkehrszweig._value)
NCTS.ncts_ModeOfTransportAtTheBorder = cProgramFunctions.isLeerNothing(cboVerkehrszweig._value)
NCTS.ncts_SpecificCircomstanceIndicator = cProgramFunctions.isLeerNothing(cboBesondereUmstaende._value)
NCTS.ncts_TransportCharges = cProgramFunctions.isLeerNothing(cboZahlungsweiseBefKosten._value)
@@ -288,7 +288,7 @@
cboVerfahrensart.changeItem(If(NCTS.ncts_TransitDeclarationType, ""))
'cbxVereinfachtesVerfahren.Checked = If(NCTS.ncts_KzVereinfachtesVerfahren, False)
'cbxSumASicherheit.Checked = If(NCTS.ncts_SumA_KzSumASicherheit, False)
cbxSumASicherheit.Checked = If(NCTS.ncts_Security, False)
' txtBeladungsort.Text = If(NCTS.ncts_PlaceOfLoading_Location, "")
txtWiedergestellungsdatum._value = If(NCTS.ncts_LimitDate, Nothing)
@@ -305,7 +305,7 @@
'cboArtGrenzUeberschreitung.changeItem(NCTS.ncts_DepartureTransportMeans_1_TypeOfIdentification)
sbArtGrenzUeberschreitung.SET_VALUE(NCTS.ncts_DepartureTransportMeans_1_TypeOfIdentification)
' cboVerkehrszweig.changeItem(NCTS.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent)
cboVerkehrszweig.changeItem(NCTS.ncts_ModeOfTransportAtTheBorder)
cboBesondereUmstaende.changeItem(NCTS.ncts_SpecificCircomstanceIndicator)
cboZahlungsweiseBefKosten.changeItem(NCTS.ncts_TransportCharges)