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

View File

@@ -120,7 +120,8 @@
End If
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
If If(SENDUNG.tblSnd_WarenwertWaehrung, "") = "EUR" AndAlso IsNumeric(If(SENDUNG.tblSnd_Warenwert, "")) Then
lblRechnungsbetrag._value = CDbl(SENDUNG.tblSnd_Warenwert)

View File

@@ -417,11 +417,23 @@ Public Class usrCntlATLAS_EZA
p.ezaWP_Rohmasse = SENDUNG.tblSnd_Gewicht
p.ezaWP_Warenbezeichnung = SENDUNG.tblSnd_Warenbezeichnung
cdy.eza_WARENPOS.Add(p)
End If
End If
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
If (SENDUNG.VORSYSTEM IsNot Nothing) AndAlso MsgBox("Möchten Sie die Daten aus dem Vorsystem laden?", vbYesNoCancel) Then
Try
@@ -561,66 +573,66 @@ Public Class usrCntlATLAS_EZA
If Not Vorsystem Then
EZA.eza_GesamtRohmasse = SENDUNG.tblSnd_Gewicht
EZA.eza_Rechnungspreis = SENDUNG.tblSnd_Warenwert
EZA.eza_Rechnungswaehrung = SENDUNG.tblSnd_WarenwertWaehrung
EZA.eza_Rechnungspreis = SENDUNG.tblSnd_Warenwert
EZA.eza_Rechnungswaehrung = SENDUNG.tblSnd_WarenwertWaehrung
If SENDUNG.tblSnd_Abfertigungsart_ID = 1 Then
If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then
If SENDUNG.tblSnd_Abfertigungsart_ID = 1 Then
If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then
Dim AD As New DAKOSY_Worker.cDakosy_EZA_Adressen
AD.ezaAd_AdressCode = SENDUNG.tblSnd_EmpfaengerKdNr
AD.ezaAd_AdressTyp = "CN"
Dim ADFmzoll As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG.tblSnd_EmpfaengerKdNr)
Dim KDFmzoll As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG.tblSnd_EmpfaengerKdNr)
Dim AD As New DAKOSY_Worker.cDakosy_EZA_Adressen
AD.ezaAd_AdressCode = SENDUNG.tblSnd_EmpfaengerKdNr
AD.ezaAd_AdressTyp = "CN"
Dim ADFmzoll As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG.tblSnd_EmpfaengerKdNr)
Dim KDFmzoll As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG.tblSnd_EmpfaengerKdNr)
AD.ezaAd_NameFirma1 = ADFmzoll.Name_1
AD.ezaAd_NameFirma2 = ADFmzoll.Name_2
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
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_Bestimmungsland = AD.ezaAd_LandCode
If If(AD.ezaAd_LandCode, "") <> "" Then
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
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
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

View File

@@ -217,6 +217,8 @@ Class DAKOSY_Interface_SEND
EA.ObjektIdentifizierung.AbsenderSystemName = "VERAG_ZOLL"
'ObjektIdentifizierung:
EA.ObjektIdentifizierung = New FreierVerkehrAktVeredelUmwandlung_004.ObjektIdentifizierungAVUVTyp
EA.ObjektIdentifizierung.ObjektName = cDY.eza_ObjectName
@@ -227,7 +229,7 @@ Class DAKOSY_Interface_SEND
'EA.ObjektIdentifizierung.CompliancePruefung=
EA.ObjektIdentifizierung.ObjektName = cDY.eza_ObjectName
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
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
End If
If cDY.eza_UNTERLAGEN.Count > 0 Then
EA.KopfDaten.Unterlage = New List(Of FreierVerkehrAktVeredelUmwandlung_004.UnterlageVzKopfAVUVTyp)
For Each u In cDY.eza_UNTERLAGEN