VK Frachtkosten, Dakosy Vorpapier

This commit is contained in:
2022-10-25 23:33:43 +02:00
parent b1f705cc33
commit b4c323679a
4 changed files with 120 additions and 53 deletions

View File

@@ -707,6 +707,7 @@ Partial Class usrcntlVorauskasse
Me.txtAbfertigungsNr._DateTimeOnly = False Me.txtAbfertigungsNr._DateTimeOnly = False
Me.txtAbfertigungsNr._numbersOnly = True Me.txtAbfertigungsNr._numbersOnly = True
Me.txtAbfertigungsNr._numbersOnlyKommastellen = "" Me.txtAbfertigungsNr._numbersOnlyKommastellen = ""
Me.txtAbfertigungsNr._numbersOnlyTrennzeichen = True
Me.txtAbfertigungsNr._Prozent = False Me.txtAbfertigungsNr._Prozent = False
Me.txtAbfertigungsNr._ShortDateNew = False Me.txtAbfertigungsNr._ShortDateNew = False
Me.txtAbfertigungsNr._ShortDateOnly = False Me.txtAbfertigungsNr._ShortDateOnly = False
@@ -776,6 +777,7 @@ Partial Class usrcntlVorauskasse
Me.txtVorlage._DateTimeOnly = False Me.txtVorlage._DateTimeOnly = False
Me.txtVorlage._numbersOnly = False Me.txtVorlage._numbersOnly = False
Me.txtVorlage._numbersOnlyKommastellen = "" Me.txtVorlage._numbersOnlyKommastellen = ""
Me.txtVorlage._numbersOnlyTrennzeichen = True
Me.txtVorlage._Prozent = False Me.txtVorlage._Prozent = False
Me.txtVorlage._ShortDateNew = False Me.txtVorlage._ShortDateNew = False
Me.txtVorlage._ShortDateOnly = False Me.txtVorlage._ShortDateOnly = False
@@ -842,6 +844,7 @@ Partial Class usrcntlVorauskasse
Me.txtEustSonstText._DateTimeOnly = False Me.txtEustSonstText._DateTimeOnly = False
Me.txtEustSonstText._numbersOnly = False Me.txtEustSonstText._numbersOnly = False
Me.txtEustSonstText._numbersOnlyKommastellen = "" Me.txtEustSonstText._numbersOnlyKommastellen = ""
Me.txtEustSonstText._numbersOnlyTrennzeichen = True
Me.txtEustSonstText._Prozent = False Me.txtEustSonstText._Prozent = False
Me.txtEustSonstText._ShortDateNew = False Me.txtEustSonstText._ShortDateNew = False
Me.txtEustSonstText._ShortDateOnly = False Me.txtEustSonstText._ShortDateOnly = False
@@ -864,6 +867,7 @@ Partial Class usrcntlVorauskasse
Me.txtZollProzent._DateTimeOnly = False Me.txtZollProzent._DateTimeOnly = False
Me.txtZollProzent._numbersOnly = False Me.txtZollProzent._numbersOnly = False
Me.txtZollProzent._numbersOnlyKommastellen = "" Me.txtZollProzent._numbersOnlyKommastellen = ""
Me.txtZollProzent._numbersOnlyTrennzeichen = True
Me.txtZollProzent._Prozent = True Me.txtZollProzent._Prozent = True
Me.txtZollProzent._ShortDateNew = False Me.txtZollProzent._ShortDateNew = False
Me.txtZollProzent._ShortDateOnly = False Me.txtZollProzent._ShortDateOnly = False
@@ -888,6 +892,7 @@ Partial Class usrcntlVorauskasse
Me.lblRechnungsbetrag._DateTimeOnly = False Me.lblRechnungsbetrag._DateTimeOnly = False
Me.lblRechnungsbetrag._numbersOnly = False Me.lblRechnungsbetrag._numbersOnly = False
Me.lblRechnungsbetrag._numbersOnlyKommastellen = "" Me.lblRechnungsbetrag._numbersOnlyKommastellen = ""
Me.lblRechnungsbetrag._numbersOnlyTrennzeichen = True
Me.lblRechnungsbetrag._Prozent = False Me.lblRechnungsbetrag._Prozent = False
Me.lblRechnungsbetrag._ShortDateNew = False Me.lblRechnungsbetrag._ShortDateNew = False
Me.lblRechnungsbetrag._ShortDateOnly = False Me.lblRechnungsbetrag._ShortDateOnly = False
@@ -912,6 +917,7 @@ Partial Class usrcntlVorauskasse
Me.txtFrachtkostenAusl._DateTimeOnly = False Me.txtFrachtkostenAusl._DateTimeOnly = False
Me.txtFrachtkostenAusl._numbersOnly = False Me.txtFrachtkostenAusl._numbersOnly = False
Me.txtFrachtkostenAusl._numbersOnlyKommastellen = "" Me.txtFrachtkostenAusl._numbersOnlyKommastellen = ""
Me.txtFrachtkostenAusl._numbersOnlyTrennzeichen = True
Me.txtFrachtkostenAusl._Prozent = False Me.txtFrachtkostenAusl._Prozent = False
Me.txtFrachtkostenAusl._ShortDateNew = False Me.txtFrachtkostenAusl._ShortDateNew = False
Me.txtFrachtkostenAusl._ShortDateOnly = False Me.txtFrachtkostenAusl._ShortDateOnly = False
@@ -936,6 +942,7 @@ Partial Class usrcntlVorauskasse
Me.txtZwischensumme._DateTimeOnly = False Me.txtZwischensumme._DateTimeOnly = False
Me.txtZwischensumme._numbersOnly = False Me.txtZwischensumme._numbersOnly = False
Me.txtZwischensumme._numbersOnlyKommastellen = "" Me.txtZwischensumme._numbersOnlyKommastellen = ""
Me.txtZwischensumme._numbersOnlyTrennzeichen = True
Me.txtZwischensumme._Prozent = False Me.txtZwischensumme._Prozent = False
Me.txtZwischensumme._ShortDateNew = False Me.txtZwischensumme._ShortDateNew = False
Me.txtZwischensumme._ShortDateOnly = False Me.txtZwischensumme._ShortDateOnly = False
@@ -961,6 +968,7 @@ Partial Class usrcntlVorauskasse
Me.txtZoll._DateTimeOnly = False Me.txtZoll._DateTimeOnly = False
Me.txtZoll._numbersOnly = False Me.txtZoll._numbersOnly = False
Me.txtZoll._numbersOnlyKommastellen = "" Me.txtZoll._numbersOnlyKommastellen = ""
Me.txtZoll._numbersOnlyTrennzeichen = True
Me.txtZoll._Prozent = False Me.txtZoll._Prozent = False
Me.txtZoll._ShortDateNew = False Me.txtZoll._ShortDateNew = False
Me.txtZoll._ShortDateOnly = False Me.txtZoll._ShortDateOnly = False
@@ -986,6 +994,7 @@ Partial Class usrcntlVorauskasse
Me.txtFrachtkostenInl._DateTimeOnly = False Me.txtFrachtkostenInl._DateTimeOnly = False
Me.txtFrachtkostenInl._numbersOnly = False Me.txtFrachtkostenInl._numbersOnly = False
Me.txtFrachtkostenInl._numbersOnlyKommastellen = "" Me.txtFrachtkostenInl._numbersOnlyKommastellen = ""
Me.txtFrachtkostenInl._numbersOnlyTrennzeichen = True
Me.txtFrachtkostenInl._Prozent = False Me.txtFrachtkostenInl._Prozent = False
Me.txtFrachtkostenInl._ShortDateNew = False Me.txtFrachtkostenInl._ShortDateNew = False
Me.txtFrachtkostenInl._ShortDateOnly = False Me.txtFrachtkostenInl._ShortDateOnly = False
@@ -1010,6 +1019,7 @@ Partial Class usrcntlVorauskasse
Me.txtEustSonstBetrag._DateTimeOnly = False Me.txtEustSonstBetrag._DateTimeOnly = False
Me.txtEustSonstBetrag._numbersOnly = False Me.txtEustSonstBetrag._numbersOnly = False
Me.txtEustSonstBetrag._numbersOnlyKommastellen = "" Me.txtEustSonstBetrag._numbersOnlyKommastellen = ""
Me.txtEustSonstBetrag._numbersOnlyTrennzeichen = True
Me.txtEustSonstBetrag._Prozent = False Me.txtEustSonstBetrag._Prozent = False
Me.txtEustSonstBetrag._ShortDateNew = False Me.txtEustSonstBetrag._ShortDateNew = False
Me.txtEustSonstBetrag._ShortDateOnly = False Me.txtEustSonstBetrag._ShortDateOnly = False
@@ -1034,6 +1044,7 @@ Partial Class usrcntlVorauskasse
Me.txtSumme._DateTimeOnly = False Me.txtSumme._DateTimeOnly = False
Me.txtSumme._numbersOnly = False Me.txtSumme._numbersOnly = False
Me.txtSumme._numbersOnlyKommastellen = "" Me.txtSumme._numbersOnlyKommastellen = ""
Me.txtSumme._numbersOnlyTrennzeichen = True
Me.txtSumme._Prozent = False Me.txtSumme._Prozent = False
Me.txtSumme._ShortDateNew = False Me.txtSumme._ShortDateNew = False
Me.txtSumme._ShortDateOnly = False Me.txtSumme._ShortDateOnly = False
@@ -1059,6 +1070,7 @@ Partial Class usrcntlVorauskasse
Me.txtEUST._DateTimeOnly = False Me.txtEUST._DateTimeOnly = False
Me.txtEUST._numbersOnly = False Me.txtEUST._numbersOnly = False
Me.txtEUST._numbersOnlyKommastellen = "" Me.txtEUST._numbersOnlyKommastellen = ""
Me.txtEUST._numbersOnlyTrennzeichen = True
Me.txtEUST._Prozent = False Me.txtEUST._Prozent = False
Me.txtEUST._ShortDateNew = False Me.txtEUST._ShortDateNew = False
Me.txtEUST._ShortDateOnly = False Me.txtEUST._ShortDateOnly = False
@@ -1151,6 +1163,7 @@ Partial Class usrcntlVorauskasse
Me.txtVKVermerk._DateTimeOnly = False Me.txtVKVermerk._DateTimeOnly = False
Me.txtVKVermerk._numbersOnly = False Me.txtVKVermerk._numbersOnly = False
Me.txtVKVermerk._numbersOnlyKommastellen = "" Me.txtVKVermerk._numbersOnlyKommastellen = ""
Me.txtVKVermerk._numbersOnlyTrennzeichen = True
Me.txtVKVermerk._Prozent = False Me.txtVKVermerk._Prozent = False
Me.txtVKVermerk._ShortDateNew = False Me.txtVKVermerk._ShortDateNew = False
Me.txtVKVermerk._ShortDateOnly = False Me.txtVKVermerk._ShortDateOnly = False
@@ -1237,6 +1250,7 @@ Partial Class usrcntlVorauskasse
Me.txtSonstigeKostenText._DateTimeOnly = False Me.txtSonstigeKostenText._DateTimeOnly = False
Me.txtSonstigeKostenText._numbersOnly = False Me.txtSonstigeKostenText._numbersOnly = False
Me.txtSonstigeKostenText._numbersOnlyKommastellen = "" Me.txtSonstigeKostenText._numbersOnlyKommastellen = ""
Me.txtSonstigeKostenText._numbersOnlyTrennzeichen = True
Me.txtSonstigeKostenText._Prozent = False Me.txtSonstigeKostenText._Prozent = False
Me.txtSonstigeKostenText._ShortDateNew = False Me.txtSonstigeKostenText._ShortDateNew = False
Me.txtSonstigeKostenText._ShortDateOnly = False Me.txtSonstigeKostenText._ShortDateOnly = False
@@ -1286,6 +1300,7 @@ Partial Class usrcntlVorauskasse
Me.txtATLAS._DateTimeOnly = False Me.txtATLAS._DateTimeOnly = False
Me.txtATLAS._numbersOnly = False Me.txtATLAS._numbersOnly = False
Me.txtATLAS._numbersOnlyKommastellen = "" Me.txtATLAS._numbersOnlyKommastellen = ""
Me.txtATLAS._numbersOnlyTrennzeichen = True
Me.txtATLAS._Prozent = False Me.txtATLAS._Prozent = False
Me.txtATLAS._ShortDateNew = False Me.txtATLAS._ShortDateNew = False
Me.txtATLAS._ShortDateOnly = False Me.txtATLAS._ShortDateOnly = False
@@ -1310,6 +1325,7 @@ Partial Class usrcntlVorauskasse
Me.txtKorrRechnung._DateTimeOnly = False Me.txtKorrRechnung._DateTimeOnly = False
Me.txtKorrRechnung._numbersOnly = False Me.txtKorrRechnung._numbersOnly = False
Me.txtKorrRechnung._numbersOnlyKommastellen = "" Me.txtKorrRechnung._numbersOnlyKommastellen = ""
Me.txtKorrRechnung._numbersOnlyTrennzeichen = True
Me.txtKorrRechnung._Prozent = False Me.txtKorrRechnung._Prozent = False
Me.txtKorrRechnung._ShortDateNew = False Me.txtKorrRechnung._ShortDateNew = False
Me.txtKorrRechnung._ShortDateOnly = False Me.txtKorrRechnung._ShortDateOnly = False
@@ -1334,6 +1350,7 @@ Partial Class usrcntlVorauskasse
Me.txtAviso._DateTimeOnly = False Me.txtAviso._DateTimeOnly = False
Me.txtAviso._numbersOnly = False Me.txtAviso._numbersOnly = False
Me.txtAviso._numbersOnlyKommastellen = "" Me.txtAviso._numbersOnlyKommastellen = ""
Me.txtAviso._numbersOnlyTrennzeichen = True
Me.txtAviso._Prozent = False Me.txtAviso._Prozent = False
Me.txtAviso._ShortDateNew = False Me.txtAviso._ShortDateNew = False
Me.txtAviso._ShortDateOnly = False Me.txtAviso._ShortDateOnly = False
@@ -1358,6 +1375,7 @@ Partial Class usrcntlVorauskasse
Me.txtWeitereTarifPos._DateTimeOnly = False Me.txtWeitereTarifPos._DateTimeOnly = False
Me.txtWeitereTarifPos._numbersOnly = False Me.txtWeitereTarifPos._numbersOnly = False
Me.txtWeitereTarifPos._numbersOnlyKommastellen = "" Me.txtWeitereTarifPos._numbersOnlyKommastellen = ""
Me.txtWeitereTarifPos._numbersOnlyTrennzeichen = True
Me.txtWeitereTarifPos._Prozent = False Me.txtWeitereTarifPos._Prozent = False
Me.txtWeitereTarifPos._ShortDateNew = False Me.txtWeitereTarifPos._ShortDateNew = False
Me.txtWeitereTarifPos._ShortDateOnly = False Me.txtWeitereTarifPos._ShortDateOnly = False
@@ -1382,6 +1400,7 @@ Partial Class usrcntlVorauskasse
Me.txtVerzollungskosten._DateTimeOnly = False Me.txtVerzollungskosten._DateTimeOnly = False
Me.txtVerzollungskosten._numbersOnly = False Me.txtVerzollungskosten._numbersOnly = False
Me.txtVerzollungskosten._numbersOnlyKommastellen = "" Me.txtVerzollungskosten._numbersOnlyKommastellen = ""
Me.txtVerzollungskosten._numbersOnlyTrennzeichen = True
Me.txtVerzollungskosten._Prozent = False Me.txtVerzollungskosten._Prozent = False
Me.txtVerzollungskosten._ShortDateNew = False Me.txtVerzollungskosten._ShortDateNew = False
Me.txtVerzollungskosten._ShortDateOnly = False Me.txtVerzollungskosten._ShortDateOnly = False
@@ -1406,6 +1425,7 @@ Partial Class usrcntlVorauskasse
Me.txtSonstigeKosten._DateTimeOnly = False Me.txtSonstigeKosten._DateTimeOnly = False
Me.txtSonstigeKosten._numbersOnly = False Me.txtSonstigeKosten._numbersOnly = False
Me.txtSonstigeKosten._numbersOnlyKommastellen = "" Me.txtSonstigeKosten._numbersOnlyKommastellen = ""
Me.txtSonstigeKosten._numbersOnlyTrennzeichen = True
Me.txtSonstigeKosten._Prozent = False Me.txtSonstigeKosten._Prozent = False
Me.txtSonstigeKosten._ShortDateNew = False Me.txtSonstigeKosten._ShortDateNew = False
Me.txtSonstigeKosten._ShortDateOnly = False Me.txtSonstigeKosten._ShortDateOnly = False
@@ -1430,6 +1450,7 @@ Partial Class usrcntlVorauskasse
Me.txtEust2._DateTimeOnly = False Me.txtEust2._DateTimeOnly = False
Me.txtEust2._numbersOnly = False Me.txtEust2._numbersOnly = False
Me.txtEust2._numbersOnlyKommastellen = "" Me.txtEust2._numbersOnlyKommastellen = ""
Me.txtEust2._numbersOnlyTrennzeichen = True
Me.txtEust2._Prozent = False Me.txtEust2._Prozent = False
Me.txtEust2._ShortDateNew = False Me.txtEust2._ShortDateNew = False
Me.txtEust2._ShortDateOnly = False Me.txtEust2._ShortDateOnly = False
@@ -1455,6 +1476,7 @@ Partial Class usrcntlVorauskasse
Me.txtClearing._DateTimeOnly = False Me.txtClearing._DateTimeOnly = False
Me.txtClearing._numbersOnly = False Me.txtClearing._numbersOnly = False
Me.txtClearing._numbersOnlyKommastellen = "" Me.txtClearing._numbersOnlyKommastellen = ""
Me.txtClearing._numbersOnlyTrennzeichen = True
Me.txtClearing._Prozent = False Me.txtClearing._Prozent = False
Me.txtClearing._ShortDateNew = False Me.txtClearing._ShortDateNew = False
Me.txtClearing._ShortDateOnly = False Me.txtClearing._ShortDateOnly = False
@@ -1479,6 +1501,7 @@ Partial Class usrcntlVorauskasse
Me.txtZoll2._DateTimeOnly = False Me.txtZoll2._DateTimeOnly = False
Me.txtZoll2._numbersOnly = False Me.txtZoll2._numbersOnly = False
Me.txtZoll2._numbersOnlyKommastellen = "" Me.txtZoll2._numbersOnlyKommastellen = ""
Me.txtZoll2._numbersOnlyTrennzeichen = True
Me.txtZoll2._Prozent = False Me.txtZoll2._Prozent = False
Me.txtZoll2._ShortDateNew = False Me.txtZoll2._ShortDateNew = False
Me.txtZoll2._ShortDateOnly = False Me.txtZoll2._ShortDateOnly = False
@@ -1504,6 +1527,7 @@ Partial Class usrcntlVorauskasse
Me.txtUebersetzungRg._DateTimeOnly = False Me.txtUebersetzungRg._DateTimeOnly = False
Me.txtUebersetzungRg._numbersOnly = False Me.txtUebersetzungRg._numbersOnly = False
Me.txtUebersetzungRg._numbersOnlyKommastellen = "" Me.txtUebersetzungRg._numbersOnlyKommastellen = ""
Me.txtUebersetzungRg._numbersOnlyTrennzeichen = True
Me.txtUebersetzungRg._Prozent = False Me.txtUebersetzungRg._Prozent = False
Me.txtUebersetzungRg._ShortDateNew = False Me.txtUebersetzungRg._ShortDateNew = False
Me.txtUebersetzungRg._ShortDateOnly = False Me.txtUebersetzungRg._ShortDateOnly = False
@@ -1528,6 +1552,7 @@ Partial Class usrcntlVorauskasse
Me.txtAndereAbgabenText._DateTimeOnly = False Me.txtAndereAbgabenText._DateTimeOnly = False
Me.txtAndereAbgabenText._numbersOnly = False Me.txtAndereAbgabenText._numbersOnly = False
Me.txtAndereAbgabenText._numbersOnlyKommastellen = "" Me.txtAndereAbgabenText._numbersOnlyKommastellen = ""
Me.txtAndereAbgabenText._numbersOnlyTrennzeichen = True
Me.txtAndereAbgabenText._Prozent = False Me.txtAndereAbgabenText._Prozent = False
Me.txtAndereAbgabenText._ShortDateNew = False Me.txtAndereAbgabenText._ShortDateNew = False
Me.txtAndereAbgabenText._ShortDateOnly = False Me.txtAndereAbgabenText._ShortDateOnly = False
@@ -1550,6 +1575,7 @@ Partial Class usrcntlVorauskasse
Me.txtSvs._DateTimeOnly = False Me.txtSvs._DateTimeOnly = False
Me.txtSvs._numbersOnly = False Me.txtSvs._numbersOnly = False
Me.txtSvs._numbersOnlyKommastellen = "" Me.txtSvs._numbersOnlyKommastellen = ""
Me.txtSvs._numbersOnlyTrennzeichen = True
Me.txtSvs._Prozent = False Me.txtSvs._Prozent = False
Me.txtSvs._ShortDateNew = False Me.txtSvs._ShortDateNew = False
Me.txtSvs._ShortDateOnly = False Me.txtSvs._ShortDateOnly = False
@@ -1574,6 +1600,7 @@ Partial Class usrcntlVorauskasse
Me.txtMWST._DateTimeOnly = False Me.txtMWST._DateTimeOnly = False
Me.txtMWST._numbersOnly = False Me.txtMWST._numbersOnly = False
Me.txtMWST._numbersOnlyKommastellen = "" Me.txtMWST._numbersOnlyKommastellen = ""
Me.txtMWST._numbersOnlyTrennzeichen = True
Me.txtMWST._Prozent = False Me.txtMWST._Prozent = False
Me.txtMWST._ShortDateNew = False Me.txtMWST._ShortDateNew = False
Me.txtMWST._ShortDateOnly = False Me.txtMWST._ShortDateOnly = False
@@ -1599,6 +1626,7 @@ Partial Class usrcntlVorauskasse
Me.txtGesamtsumme._DateTimeOnly = False Me.txtGesamtsumme._DateTimeOnly = False
Me.txtGesamtsumme._numbersOnly = False Me.txtGesamtsumme._numbersOnly = False
Me.txtGesamtsumme._numbersOnlyKommastellen = "" Me.txtGesamtsumme._numbersOnlyKommastellen = ""
Me.txtGesamtsumme._numbersOnlyTrennzeichen = True
Me.txtGesamtsumme._Prozent = False Me.txtGesamtsumme._Prozent = False
Me.txtGesamtsumme._ShortDateNew = False Me.txtGesamtsumme._ShortDateNew = False
Me.txtGesamtsumme._ShortDateOnly = False Me.txtGesamtsumme._ShortDateOnly = False
@@ -1624,6 +1652,7 @@ Partial Class usrcntlVorauskasse
Me.txtMwstProzent._DateTimeOnly = False Me.txtMwstProzent._DateTimeOnly = False
Me.txtMwstProzent._numbersOnly = False Me.txtMwstProzent._numbersOnly = False
Me.txtMwstProzent._numbersOnlyKommastellen = "" Me.txtMwstProzent._numbersOnlyKommastellen = ""
Me.txtMwstProzent._numbersOnlyTrennzeichen = True
Me.txtMwstProzent._Prozent = True Me.txtMwstProzent._Prozent = True
Me.txtMwstProzent._ShortDateNew = False Me.txtMwstProzent._ShortDateNew = False
Me.txtMwstProzent._ShortDateOnly = False Me.txtMwstProzent._ShortDateOnly = False
@@ -1648,6 +1677,7 @@ Partial Class usrcntlVorauskasse
Me.txtAndereAbgabenBetrag._DateTimeOnly = False Me.txtAndereAbgabenBetrag._DateTimeOnly = False
Me.txtAndereAbgabenBetrag._numbersOnly = False Me.txtAndereAbgabenBetrag._numbersOnly = False
Me.txtAndereAbgabenBetrag._numbersOnlyKommastellen = "" Me.txtAndereAbgabenBetrag._numbersOnlyKommastellen = ""
Me.txtAndereAbgabenBetrag._numbersOnlyTrennzeichen = True
Me.txtAndereAbgabenBetrag._Prozent = False Me.txtAndereAbgabenBetrag._Prozent = False
Me.txtAndereAbgabenBetrag._ShortDateNew = False Me.txtAndereAbgabenBetrag._ShortDateNew = False
Me.txtAndereAbgabenBetrag._ShortDateOnly = False Me.txtAndereAbgabenBetrag._ShortDateOnly = False
@@ -1672,6 +1702,7 @@ Partial Class usrcntlVorauskasse
Me.txtPapierePorti._DateTimeOnly = False Me.txtPapierePorti._DateTimeOnly = False
Me.txtPapierePorti._numbersOnly = False Me.txtPapierePorti._numbersOnly = False
Me.txtPapierePorti._numbersOnlyKommastellen = "" Me.txtPapierePorti._numbersOnlyKommastellen = ""
Me.txtPapierePorti._numbersOnlyTrennzeichen = True
Me.txtPapierePorti._Prozent = False Me.txtPapierePorti._Prozent = False
Me.txtPapierePorti._ShortDateNew = False Me.txtPapierePorti._ShortDateNew = False
Me.txtPapierePorti._ShortDateOnly = False Me.txtPapierePorti._ShortDateOnly = False
@@ -1751,6 +1782,7 @@ Partial Class usrcntlVorauskasse
Me.txtRechnungsnummern._DateTimeOnly = False Me.txtRechnungsnummern._DateTimeOnly = False
Me.txtRechnungsnummern._numbersOnly = False Me.txtRechnungsnummern._numbersOnly = False
Me.txtRechnungsnummern._numbersOnlyKommastellen = "" Me.txtRechnungsnummern._numbersOnlyKommastellen = ""
Me.txtRechnungsnummern._numbersOnlyTrennzeichen = True
Me.txtRechnungsnummern._Prozent = False Me.txtRechnungsnummern._Prozent = False
Me.txtRechnungsnummern._ShortDateNew = False Me.txtRechnungsnummern._ShortDateNew = False
Me.txtRechnungsnummern._ShortDateOnly = False Me.txtRechnungsnummern._ShortDateOnly = False
@@ -1774,6 +1806,7 @@ Partial Class usrcntlVorauskasse
Me.txtDW._DateTimeOnly = False Me.txtDW._DateTimeOnly = False
Me.txtDW._numbersOnly = False Me.txtDW._numbersOnly = False
Me.txtDW._numbersOnlyKommastellen = "" Me.txtDW._numbersOnlyKommastellen = ""
Me.txtDW._numbersOnlyTrennzeichen = True
Me.txtDW._Prozent = False Me.txtDW._Prozent = False
Me.txtDW._ShortDateNew = False Me.txtDW._ShortDateNew = False
Me.txtDW._ShortDateOnly = False Me.txtDW._ShortDateOnly = False
@@ -1809,6 +1842,7 @@ Partial Class usrcntlVorauskasse
Me.txtWarenbez._DateTimeOnly = False Me.txtWarenbez._DateTimeOnly = False
Me.txtWarenbez._numbersOnly = False Me.txtWarenbez._numbersOnly = False
Me.txtWarenbez._numbersOnlyKommastellen = "" Me.txtWarenbez._numbersOnlyKommastellen = ""
Me.txtWarenbez._numbersOnlyTrennzeichen = True
Me.txtWarenbez._Prozent = False Me.txtWarenbez._Prozent = False
Me.txtWarenbez._ShortDateNew = False Me.txtWarenbez._ShortDateNew = False
Me.txtWarenbez._ShortDateOnly = False Me.txtWarenbez._ShortDateOnly = False
@@ -1832,6 +1866,7 @@ Partial Class usrcntlVorauskasse
Me.txtGewicht._DateTimeOnly = False Me.txtGewicht._DateTimeOnly = False
Me.txtGewicht._numbersOnly = False Me.txtGewicht._numbersOnly = False
Me.txtGewicht._numbersOnlyKommastellen = "" Me.txtGewicht._numbersOnlyKommastellen = ""
Me.txtGewicht._numbersOnlyTrennzeichen = True
Me.txtGewicht._Prozent = False Me.txtGewicht._Prozent = False
Me.txtGewicht._ShortDateNew = False Me.txtGewicht._ShortDateNew = False
Me.txtGewicht._ShortDateOnly = False Me.txtGewicht._ShortDateOnly = False
@@ -1855,6 +1890,7 @@ Partial Class usrcntlVorauskasse
Me.txtAnzVerp._DateTimeOnly = False Me.txtAnzVerp._DateTimeOnly = False
Me.txtAnzVerp._numbersOnly = False Me.txtAnzVerp._numbersOnly = False
Me.txtAnzVerp._numbersOnlyKommastellen = "" Me.txtAnzVerp._numbersOnlyKommastellen = ""
Me.txtAnzVerp._numbersOnlyTrennzeichen = True
Me.txtAnzVerp._Prozent = False Me.txtAnzVerp._Prozent = False
Me.txtAnzVerp._ShortDateNew = False Me.txtAnzVerp._ShortDateNew = False
Me.txtAnzVerp._ShortDateOnly = False Me.txtAnzVerp._ShortDateOnly = False
@@ -1878,6 +1914,7 @@ Partial Class usrcntlVorauskasse
Me.txtUnternehmer._DateTimeOnly = False Me.txtUnternehmer._DateTimeOnly = False
Me.txtUnternehmer._numbersOnly = False Me.txtUnternehmer._numbersOnly = False
Me.txtUnternehmer._numbersOnlyKommastellen = "" Me.txtUnternehmer._numbersOnlyKommastellen = ""
Me.txtUnternehmer._numbersOnlyTrennzeichen = True
Me.txtUnternehmer._Prozent = False Me.txtUnternehmer._Prozent = False
Me.txtUnternehmer._ShortDateNew = False Me.txtUnternehmer._ShortDateNew = False
Me.txtUnternehmer._ShortDateOnly = False Me.txtUnternehmer._ShortDateOnly = False
@@ -1901,6 +1938,7 @@ Partial Class usrcntlVorauskasse
Me.txtLKWKennz._DateTimeOnly = False Me.txtLKWKennz._DateTimeOnly = False
Me.txtLKWKennz._numbersOnly = False Me.txtLKWKennz._numbersOnly = False
Me.txtLKWKennz._numbersOnlyKommastellen = "" Me.txtLKWKennz._numbersOnlyKommastellen = ""
Me.txtLKWKennz._numbersOnlyTrennzeichen = True
Me.txtLKWKennz._Prozent = False Me.txtLKWKennz._Prozent = False
Me.txtLKWKennz._ShortDateNew = False Me.txtLKWKennz._ShortDateNew = False
Me.txtLKWKennz._ShortDateOnly = False Me.txtLKWKennz._ShortDateOnly = False
@@ -1924,6 +1962,7 @@ Partial Class usrcntlVorauskasse
Me.txtATUEur1._DateTimeOnly = False Me.txtATUEur1._DateTimeOnly = False
Me.txtATUEur1._numbersOnly = False Me.txtATUEur1._numbersOnly = False
Me.txtATUEur1._numbersOnlyKommastellen = "" Me.txtATUEur1._numbersOnlyKommastellen = ""
Me.txtATUEur1._numbersOnlyTrennzeichen = True
Me.txtATUEur1._Prozent = False Me.txtATUEur1._Prozent = False
Me.txtATUEur1._ShortDateNew = False Me.txtATUEur1._ShortDateNew = False
Me.txtATUEur1._ShortDateOnly = False Me.txtATUEur1._ShortDateOnly = False
@@ -1947,6 +1986,7 @@ Partial Class usrcntlVorauskasse
Me.txtAbsender._DateTimeOnly = False Me.txtAbsender._DateTimeOnly = False
Me.txtAbsender._numbersOnly = False Me.txtAbsender._numbersOnly = False
Me.txtAbsender._numbersOnlyKommastellen = "" Me.txtAbsender._numbersOnlyKommastellen = ""
Me.txtAbsender._numbersOnlyTrennzeichen = True
Me.txtAbsender._Prozent = False Me.txtAbsender._Prozent = False
Me.txtAbsender._ShortDateNew = False Me.txtAbsender._ShortDateNew = False
Me.txtAbsender._ShortDateOnly = False Me.txtAbsender._ShortDateOnly = False
@@ -1970,6 +2010,7 @@ Partial Class usrcntlVorauskasse
Me.txtHerrFrau._DateTimeOnly = False Me.txtHerrFrau._DateTimeOnly = False
Me.txtHerrFrau._numbersOnly = False Me.txtHerrFrau._numbersOnly = False
Me.txtHerrFrau._numbersOnlyKommastellen = "" Me.txtHerrFrau._numbersOnlyKommastellen = ""
Me.txtHerrFrau._numbersOnlyTrennzeichen = True
Me.txtHerrFrau._Prozent = False Me.txtHerrFrau._Prozent = False
Me.txtHerrFrau._ShortDateNew = False Me.txtHerrFrau._ShortDateNew = False
Me.txtHerrFrau._ShortDateOnly = False Me.txtHerrFrau._ShortDateOnly = False
@@ -1992,6 +2033,7 @@ Partial Class usrcntlVorauskasse
Me.txtFaStNr._DateTimeOnly = False Me.txtFaStNr._DateTimeOnly = False
Me.txtFaStNr._numbersOnly = False Me.txtFaStNr._numbersOnly = False
Me.txtFaStNr._numbersOnlyKommastellen = "" Me.txtFaStNr._numbersOnlyKommastellen = ""
Me.txtFaStNr._numbersOnlyTrennzeichen = True
Me.txtFaStNr._Prozent = False Me.txtFaStNr._Prozent = False
Me.txtFaStNr._ShortDateNew = False Me.txtFaStNr._ShortDateNew = False
Me.txtFaStNr._ShortDateOnly = False Me.txtFaStNr._ShortDateOnly = False
@@ -2015,6 +2057,7 @@ Partial Class usrcntlVorauskasse
Me.txtAnsprechpartnerVERAG._DateTimeOnly = False Me.txtAnsprechpartnerVERAG._DateTimeOnly = False
Me.txtAnsprechpartnerVERAG._numbersOnly = False Me.txtAnsprechpartnerVERAG._numbersOnly = False
Me.txtAnsprechpartnerVERAG._numbersOnlyKommastellen = "" Me.txtAnsprechpartnerVERAG._numbersOnlyKommastellen = ""
Me.txtAnsprechpartnerVERAG._numbersOnlyTrennzeichen = True
Me.txtAnsprechpartnerVERAG._Prozent = False Me.txtAnsprechpartnerVERAG._Prozent = False
Me.txtAnsprechpartnerVERAG._ShortDateNew = False Me.txtAnsprechpartnerVERAG._ShortDateNew = False
Me.txtAnsprechpartnerVERAG._ShortDateOnly = False Me.txtAnsprechpartnerVERAG._ShortDateOnly = False
@@ -2037,6 +2080,7 @@ Partial Class usrcntlVorauskasse
Me.txtEmail._DateTimeOnly = False Me.txtEmail._DateTimeOnly = False
Me.txtEmail._numbersOnly = False Me.txtEmail._numbersOnly = False
Me.txtEmail._numbersOnlyKommastellen = "" Me.txtEmail._numbersOnlyKommastellen = ""
Me.txtEmail._numbersOnlyTrennzeichen = True
Me.txtEmail._Prozent = False Me.txtEmail._Prozent = False
Me.txtEmail._ShortDateNew = False Me.txtEmail._ShortDateNew = False
Me.txtEmail._ShortDateOnly = False Me.txtEmail._ShortDateOnly = False
@@ -2060,6 +2104,7 @@ Partial Class usrcntlVorauskasse
Me.txtFax._DateTimeOnly = False Me.txtFax._DateTimeOnly = False
Me.txtFax._numbersOnly = False Me.txtFax._numbersOnly = False
Me.txtFax._numbersOnlyKommastellen = "" Me.txtFax._numbersOnlyKommastellen = ""
Me.txtFax._numbersOnlyTrennzeichen = True
Me.txtFax._Prozent = False Me.txtFax._Prozent = False
Me.txtFax._ShortDateNew = False Me.txtFax._ShortDateNew = False
Me.txtFax._ShortDateOnly = False Me.txtFax._ShortDateOnly = False
@@ -2083,6 +2128,7 @@ Partial Class usrcntlVorauskasse
Me.txtTel._DateTimeOnly = False Me.txtTel._DateTimeOnly = False
Me.txtTel._numbersOnly = False Me.txtTel._numbersOnly = False
Me.txtTel._numbersOnlyKommastellen = "" Me.txtTel._numbersOnlyKommastellen = ""
Me.txtTel._numbersOnlyTrennzeichen = True
Me.txtTel._Prozent = False Me.txtTel._Prozent = False
Me.txtTel._ShortDateNew = False Me.txtTel._ShortDateNew = False
Me.txtTel._ShortDateOnly = False Me.txtTel._ShortDateOnly = False
@@ -2106,6 +2152,7 @@ Partial Class usrcntlVorauskasse
Me.txtEori._DateTimeOnly = False Me.txtEori._DateTimeOnly = False
Me.txtEori._numbersOnly = False Me.txtEori._numbersOnly = False
Me.txtEori._numbersOnlyKommastellen = "" Me.txtEori._numbersOnlyKommastellen = ""
Me.txtEori._numbersOnlyTrennzeichen = True
Me.txtEori._Prozent = False Me.txtEori._Prozent = False
Me.txtEori._ShortDateNew = False Me.txtEori._ShortDateNew = False
Me.txtEori._ShortDateOnly = False Me.txtEori._ShortDateOnly = False
@@ -2129,6 +2176,7 @@ Partial Class usrcntlVorauskasse
Me.txtUid._DateTimeOnly = False Me.txtUid._DateTimeOnly = False
Me.txtUid._numbersOnly = False Me.txtUid._numbersOnly = False
Me.txtUid._numbersOnlyKommastellen = "" Me.txtUid._numbersOnlyKommastellen = ""
Me.txtUid._numbersOnlyTrennzeichen = True
Me.txtUid._Prozent = False Me.txtUid._Prozent = False
Me.txtUid._ShortDateNew = False Me.txtUid._ShortDateNew = False
Me.txtUid._ShortDateOnly = False Me.txtUid._ShortDateOnly = False
@@ -2152,6 +2200,7 @@ Partial Class usrcntlVorauskasse
Me.txtAdresse2._DateTimeOnly = False Me.txtAdresse2._DateTimeOnly = False
Me.txtAdresse2._numbersOnly = False Me.txtAdresse2._numbersOnly = False
Me.txtAdresse2._numbersOnlyKommastellen = "" Me.txtAdresse2._numbersOnlyKommastellen = ""
Me.txtAdresse2._numbersOnlyTrennzeichen = True
Me.txtAdresse2._Prozent = False Me.txtAdresse2._Prozent = False
Me.txtAdresse2._ShortDateNew = False Me.txtAdresse2._ShortDateNew = False
Me.txtAdresse2._ShortDateOnly = False Me.txtAdresse2._ShortDateOnly = False
@@ -2174,6 +2223,7 @@ Partial Class usrcntlVorauskasse
Me.txtAdresse1._DateTimeOnly = False Me.txtAdresse1._DateTimeOnly = False
Me.txtAdresse1._numbersOnly = False Me.txtAdresse1._numbersOnly = False
Me.txtAdresse1._numbersOnlyKommastellen = "" Me.txtAdresse1._numbersOnlyKommastellen = ""
Me.txtAdresse1._numbersOnlyTrennzeichen = True
Me.txtAdresse1._Prozent = False Me.txtAdresse1._Prozent = False
Me.txtAdresse1._ShortDateNew = False Me.txtAdresse1._ShortDateNew = False
Me.txtAdresse1._ShortDateOnly = False Me.txtAdresse1._ShortDateOnly = False
@@ -2196,6 +2246,7 @@ Partial Class usrcntlVorauskasse
Me.txtFirma._DateTimeOnly = False Me.txtFirma._DateTimeOnly = False
Me.txtFirma._numbersOnly = False Me.txtFirma._numbersOnly = False
Me.txtFirma._numbersOnlyKommastellen = "" Me.txtFirma._numbersOnlyKommastellen = ""
Me.txtFirma._numbersOnlyTrennzeichen = True
Me.txtFirma._Prozent = False Me.txtFirma._Prozent = False
Me.txtFirma._ShortDateNew = False Me.txtFirma._ShortDateNew = False
Me.txtFirma._ShortDateOnly = False Me.txtFirma._ShortDateOnly = False

View File

@@ -120,7 +120,8 @@
End If End If
If IsNumeric(If(SENDUNG.tblSnd_Frachtkosten, "")) Then If IsNumeric(If(SENDUNG.tblSnd_Frachtkosten, "")) Then
txtFrachtkostenAusl._value = CDbl(SENDUNG.tblSnd_Frachtkosten) txtFrachtkostenAusl._value = CDbl(SENDUNG.tblSnd_FrachtkostenNichtEU)
txtFrachtkostenInl._value = CDbl(SENDUNG.tblSnd_Frachtkosten)
End If End If
If If(SENDUNG.tblSnd_WarenwertWaehrung, "") = "EUR" AndAlso IsNumeric(If(SENDUNG.tblSnd_Warenwert, "")) Then If If(SENDUNG.tblSnd_WarenwertWaehrung, "") = "EUR" AndAlso IsNumeric(If(SENDUNG.tblSnd_Warenwert, "")) Then
lblRechnungsbetrag._value = CDbl(SENDUNG.tblSnd_Warenwert) lblRechnungsbetrag._value = CDbl(SENDUNG.tblSnd_Warenwert)

View File

@@ -417,11 +417,23 @@ Public Class usrCntlATLAS_EZA
p.ezaWP_Rohmasse = SENDUNG.tblSnd_Gewicht p.ezaWP_Rohmasse = SENDUNG.tblSnd_Gewicht
p.ezaWP_Warenbezeichnung = SENDUNG.tblSnd_Warenbezeichnung p.ezaWP_Warenbezeichnung = SENDUNG.tblSnd_Warenbezeichnung
cdy.eza_WARENPOS.Add(p) cdy.eza_WARENPOS.Add(p)
End If End If
End If End If
If SENDUNG IsNot Nothing Then If SENDUNG IsNot Nothing Then
'Test Vorpapier:
If If(SENDUNG.tblSnd_Vorpapier, "") <> "" Then
EZA.eza_VorpapierArtCode = "T1"
EZA.eza_VorpapierNr = SENDUNG.tblSnd_Vorpapier
End If
Dim Vorsystem = False Dim Vorsystem = False
If (SENDUNG.VORSYSTEM IsNot Nothing) AndAlso MsgBox("Möchten Sie die Daten aus dem Vorsystem laden?", vbYesNoCancel) Then If (SENDUNG.VORSYSTEM IsNot Nothing) AndAlso MsgBox("Möchten Sie die Daten aus dem Vorsystem laden?", vbYesNoCancel) Then
Try Try
@@ -561,66 +573,66 @@ Public Class usrCntlATLAS_EZA
If Not Vorsystem Then If Not Vorsystem Then
EZA.eza_GesamtRohmasse = SENDUNG.tblSnd_Gewicht EZA.eza_GesamtRohmasse = SENDUNG.tblSnd_Gewicht
EZA.eza_Rechnungspreis = SENDUNG.tblSnd_Warenwert EZA.eza_Rechnungspreis = SENDUNG.tblSnd_Warenwert
EZA.eza_Rechnungswaehrung = SENDUNG.tblSnd_WarenwertWaehrung EZA.eza_Rechnungswaehrung = SENDUNG.tblSnd_WarenwertWaehrung
If SENDUNG.tblSnd_Abfertigungsart_ID = 1 Then If SENDUNG.tblSnd_Abfertigungsart_ID = 1 Then
If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then
Dim AD As New DAKOSY_Worker.cDakosy_EZA_Adressen Dim AD As New DAKOSY_Worker.cDakosy_EZA_Adressen
AD.ezaAd_AdressCode = SENDUNG.tblSnd_EmpfaengerKdNr AD.ezaAd_AdressCode = SENDUNG.tblSnd_EmpfaengerKdNr
AD.ezaAd_AdressTyp = "CN" AD.ezaAd_AdressTyp = "CN"
Dim ADFmzoll As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG.tblSnd_EmpfaengerKdNr) Dim ADFmzoll As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG.tblSnd_EmpfaengerKdNr)
Dim KDFmzoll As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG.tblSnd_EmpfaengerKdNr) Dim KDFmzoll As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG.tblSnd_EmpfaengerKdNr)
AD.ezaAd_NameFirma1 = ADFmzoll.Name_1 AD.ezaAd_NameFirma1 = ADFmzoll.Name_1
AD.ezaAd_NameFirma2 = ADFmzoll.Name_2 AD.ezaAd_NameFirma2 = ADFmzoll.Name_2
AD.ezaAd_StrasseHausNr1 = ADFmzoll.Straße AD.ezaAd_StrasseHausNr1 = ADFmzoll.Straße
AD.ezaAd_PLZ = ADFmzoll.PLZ AD.ezaAd_PLZ = ADFmzoll.PLZ
AD.ezaAd_Ort = ADFmzoll.Ort AD.ezaAd_Ort = ADFmzoll.Ort
AD.ezaAd_LandCode = cProgramFunctions.getISO2Land(ADFmzoll.LandKz) AD.ezaAd_LandCode = cProgramFunctions.getISO2Land(ADFmzoll.LandKz)
AD.ezaAd_TeilnehmerEORI = KDFmzoll.EORITIN AD.ezaAd_TeilnehmerEORI = KDFmzoll.EORITIN
AD.ezaAd_TeilnehmerNLNR = KDFmzoll.EORITIN_NL AD.ezaAd_TeilnehmerNLNR = KDFmzoll.EORITIN_NL
If If(AD.ezaAd_LandCode, "") <> "" Then If If(AD.ezaAd_LandCode, "") <> "" Then
EZA.eza_Bestimmungsland = AD.ezaAd_LandCode EZA.eza_Bestimmungsland = AD.ezaAd_LandCode
End If
If If(AD.ezaAd_LandCode, "") = "DE" And AD.ezaAd_PLZ IsNot Nothing Then
EZA.eza_Bestimmungsbundesland = VERAG_PROG_ALLGEMEIN.cDEBundeslaenderPLZ.LOADBundeslandCode_ByPLZ(AD.ezaAd_PLZ)
ElseIf If(AD.ezaAd_LandCode, "") <> "" Then
EZA.eza_Bestimmungsbundesland = 25
End If
cdy.eza_ADRESSEN.Add(AD)
End If End If
If SENDUNG.tblSnd_AbsenderKdNr > 0 Then
Dim AD As New DAKOSY_Worker.cDakosy_EZA_Adressen
AD.ezaAd_AdressCode = SENDUNG.tblSnd_AbsenderKdNr
AD.ezaAd_AdressTyp = "CZ"
Dim ADFmzoll As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG.tblSnd_AbsenderKdNr)
Dim KDFmzoll As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG.tblSnd_AbsenderKdNr)
AD.ezaAd_NameFirma1 = ADFmzoll.Name_1
AD.ezaAd_NameFirma2 = ADFmzoll.Name_2
AD.ezaAd_StrasseHausNr1 = ADFmzoll.Straße
AD.ezaAd_PLZ = ADFmzoll.PLZ
AD.ezaAd_Ort = ADFmzoll.Ort
AD.ezaAd_LandCode = cProgramFunctions.getISO2Land(ADFmzoll.LandKz)
AD.ezaAd_TeilnehmerEORI = KDFmzoll.EORITIN
AD.ezaAd_TeilnehmerNLNR = KDFmzoll.EORITIN_NL
If If(AD.ezaAd_LandCode, "") <> "" Then
EZA.eza_VersendungsLandCode = AD.ezaAd_LandCode
End If
cdy.eza_ADRESSEN.Add(AD)
If If(AD.ezaAd_LandCode, "") = "DE" And AD.ezaAd_PLZ IsNot Nothing Then
EZA.eza_Bestimmungsbundesland = VERAG_PROG_ALLGEMEIN.cDEBundeslaenderPLZ.LOADBundeslandCode_ByPLZ(AD.ezaAd_PLZ)
ElseIf If(AD.ezaAd_LandCode, "") <> "" Then
EZA.eza_Bestimmungsbundesland = 25
End If End If
cdy.eza_ADRESSEN.Add(AD)
End If
If SENDUNG.tblSnd_AbsenderKdNr > 0 Then
Dim AD As New DAKOSY_Worker.cDakosy_EZA_Adressen
AD.ezaAd_AdressCode = SENDUNG.tblSnd_AbsenderKdNr
AD.ezaAd_AdressTyp = "CZ"
Dim ADFmzoll As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG.tblSnd_AbsenderKdNr)
Dim KDFmzoll As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG.tblSnd_AbsenderKdNr)
AD.ezaAd_NameFirma1 = ADFmzoll.Name_1
AD.ezaAd_NameFirma2 = ADFmzoll.Name_2
AD.ezaAd_StrasseHausNr1 = ADFmzoll.Straße
AD.ezaAd_PLZ = ADFmzoll.PLZ
AD.ezaAd_Ort = ADFmzoll.Ort
AD.ezaAd_LandCode = cProgramFunctions.getISO2Land(ADFmzoll.LandKz)
AD.ezaAd_TeilnehmerEORI = KDFmzoll.EORITIN
AD.ezaAd_TeilnehmerNLNR = KDFmzoll.EORITIN_NL
If If(AD.ezaAd_LandCode, "") <> "" Then
EZA.eza_VersendungsLandCode = AD.ezaAd_LandCode
End If
cdy.eza_ADRESSEN.Add(AD)
End If
End If End If
End If End If

View File

@@ -217,6 +217,8 @@ Class DAKOSY_Interface_SEND
EA.ObjektIdentifizierung.AbsenderSystemName = "VERAG_ZOLL" EA.ObjektIdentifizierung.AbsenderSystemName = "VERAG_ZOLL"
'ObjektIdentifizierung: 'ObjektIdentifizierung:
EA.ObjektIdentifizierung = New FreierVerkehrAktVeredelUmwandlung_004.ObjektIdentifizierungAVUVTyp EA.ObjektIdentifizierung = New FreierVerkehrAktVeredelUmwandlung_004.ObjektIdentifizierungAVUVTyp
EA.ObjektIdentifizierung.ObjektName = cDY.eza_ObjectName EA.ObjektIdentifizierung.ObjektName = cDY.eza_ObjectName
@@ -227,7 +229,7 @@ Class DAKOSY_Interface_SEND
'EA.ObjektIdentifizierung.CompliancePruefung= 'EA.ObjektIdentifizierung.CompliancePruefung=
EA.ObjektIdentifizierung.ObjektName = cDY.eza_ObjectName EA.ObjektIdentifizierung.ObjektName = cDY.eza_ObjectName
If cDY.eza_Bearbeiter IsNot Nothing Then EA.ObjektIdentifizierung.Bearbeiter = cDY.eza_Bearbeiter If cDY.eza_Bearbeiter IsNot Nothing Then EA.ObjektIdentifizierung.Bearbeiter = cDY.eza_Bearbeiter
If cDY.eza_CompliancePruefung IsNot Nothing Then EA.ObjektIdentifizierung.CompliancePruefung = cDY.eza_CompliancePruefung If cDY.eza_CompliancePruefung IsNot Nothing Then EA.ObjektIdentifizierung.CompliancePruefung = cDY.eza_CompliancePruefung
If cDY.eza_BezugsnummerVorblendung IsNot Nothing Then EA.ObjektIdentifizierung.BezugsnummerVorblendung = cDY.eza_BezugsnummerVorblendung If cDY.eza_BezugsnummerVorblendung IsNot Nothing Then EA.ObjektIdentifizierung.BezugsnummerVorblendung = cDY.eza_BezugsnummerVorblendung
EA.ObjektIdentifizierung.AnmeldungArt = If(cDY.eza_AnmeldungArt, "EZA-A") 'Pflichtfeld EA.ObjektIdentifizierung.AnmeldungArt = If(cDY.eza_AnmeldungArt, "EZA-A") 'Pflichtfeld
@@ -283,6 +285,7 @@ Class DAKOSY_Interface_SEND
If cDY.eza_DV1SpezielleVereinbarungUmstand IsNot Nothing Then EA.KopfDaten.DV1Angaben.SpezielleVereinbarungUmstand = cDY.eza_DV1SpezielleVereinbarungUmstand If cDY.eza_DV1SpezielleVereinbarungUmstand IsNot Nothing Then EA.KopfDaten.DV1Angaben.SpezielleVereinbarungUmstand = cDY.eza_DV1SpezielleVereinbarungUmstand
End If End If
If cDY.eza_UNTERLAGEN.Count > 0 Then If cDY.eza_UNTERLAGEN.Count > 0 Then
EA.KopfDaten.Unterlage = New List(Of FreierVerkehrAktVeredelUmwandlung_004.UnterlageVzKopfAVUVTyp) EA.KopfDaten.Unterlage = New List(Of FreierVerkehrAktVeredelUmwandlung_004.UnterlageVzKopfAVUVTyp)
For Each u In cDY.eza_UNTERLAGEN For Each u In cDY.eza_UNTERLAGEN