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

Fakturierung VERAG AG (DE); NCTS Adressen zugel.Empf.; ATEZ +Procedure

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-08-30 16:07:44 +02:00
parent f68ad96df5
commit aaecc4fce6
17 changed files with 294 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -71,7 +71,7 @@
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)
' MsgBox(NCTS.ncts_ZugelassenerEmpfaenger_EORI)
'SumA: Beförderer
'--------------------------------
@@ -134,6 +134,7 @@
usrCntlHauptverpflichteter.txtEORINL.Text = NCTS.ncts_Hauptverpflichteter_NLNR
usrCntlHauptverpflichteter.sbLand.SET_VALUE(NCTS.ncts_Hauptverpflichteter_Land)
usrCntlZugelEmpfaenger.txtEORI.Text = NCTS.ncts_ZugelassenerEmpfaenger_EORI
'usrCntlHauptverpflichteter.txtAnsprechpartner.Text=NCTS.ncts_Hauptverpflichteter_Ansprechpartner ' git es nicht
usrCntlVersender.kdFirma.Text = NCTS.ncts_Versender_Name
@@ -281,8 +282,8 @@
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
usrCntlZugelEmpfaenger.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

6
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/cDakosyInterface_Send.vb
View File

@@ -37,8 +37,6 @@ Class DAKOSY_Interface_SEND
'cDY.ncts_WARENPOS=USRCNTL.POSITIONEN.getValues()
'--------------------------------
Return cDY
Catch ex As Exception
@@ -873,6 +871,10 @@ Class DAKOSY_Interface_SEND
If cDY.ncts_ZugelassenerEmpfaenger_IDCarnet IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.IDCarnet = cDY.ncts_ZugelassenerEmpfaenger_IDCarnet
End If
If cDY.ncts_ZugelassenerEmpfaenger_EORI IsNot Nothing Then
XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter = New VersandanmeldungNCTSDE.HauptverpflichteterVATyp
If cDY.ncts_ZugelassenerEmpfaenger_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.ZugelassenderEmpfaenger.EORI = cDY.ncts_ZugelassenerEmpfaenger_EORI
End If