From b4c323679ac1c3ead700cae06298a2a740ef2c63 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Tue, 25 Oct 2022 23:33:43 +0200 Subject: [PATCH] VK Frachtkosten, Dakosy Vorpapier --- .../usrcntlVorauskasse.Designer.vb | 51 ++++++++ .../FormulareBaukasten/usrcntlVorauskasse.vb | 3 +- .../DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb | 114 ++++++++++-------- .../DAKOSY/ATLAS/cDakosyInterface_Send.vb | 5 +- 4 files changed, 120 insertions(+), 53 deletions(-) diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.Designer.vb index 2fb77329..2d9d8717 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.Designer.vb @@ -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 diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb index bbc72e63..697b863a 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb @@ -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) diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb index adeb440f..e709e2c7 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb @@ -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 diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/cDakosyInterface_Send.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/cDakosyInterface_Send.vb index a9812b20..1547a35f 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/cDakosyInterface_Send.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/cDakosyInterface_Send.vb @@ -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