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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-01-19 20:27:19 +01:00
parent 1c8b5afac9
commit 595851ec3c
37 changed files with 1293 additions and 479 deletions
Download Patch File Download Diff File Expand all files Collapse all files

759
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

65
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb
View File

@@ -108,18 +108,22 @@
txtAnzVerp.Text = If(SENDUNG.tblSnd_Colli, "")
txtGewicht.Text = If(SENDUNG.tblSnd_Gewicht, "")
txtAbsender.Text = If(SENDUNG.tblSnd_Absender, "")
If SENDUNG.AbfertigungsNr > 0 Then
' txtAbfertigungsNr.Text = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr
txtAbfertigungsNr.Text = SENDUNG.AbfertigungsNr
If SENDUNG.FilialenNr > 0 Then
cboFiliale.changeItem(SENDUNG.FilialenNr)
Dim VK = VERAG_PROG_ALLGEMEIN.cVorauskasse.LOADByFilialeAbfNr(SENDUNG.FilialenNr, SENDUNG.AbfertigungsNr, ROLLE)
If VK IsNot Nothing Then setValues(VK)
initBerechnung()
If SENDUNG.AbfertigungsNr > 0 Then
' txtAbfertigungsNr.Text = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr
txtAbfertigungsNr.Text = SENDUNG.AbfertigungsNr
If SENDUNG.FilialenNr > 0 Then
cboFiliale.changeItem(SENDUNG.FilialenNr)
Dim VK = VERAG_PROG_ALLGEMEIN.cVorauskasse.LOADByFilialeAbfNr(SENDUNG.FilialenNr, SENDUNG.AbfertigungsNr, ROLLE)
If VK IsNot Nothing Then setValues(VK)
initBerechnung()
End If
End If
End If
End If
If IsNumeric(If(SENDUNG.tblSnd_Frachtkosten, "")) Then
txtFrachtkostenAusl._value = CDbl(SENDUNG.tblSnd_Frachtkosten)
End If
End If
If AVISO IsNot Nothing Then
txtLKWKennz.Text = If(AVISO.LKW_Nr, "")
txtUnternehmer.Text = If(AVISO.Frächter, "")
@@ -188,12 +192,13 @@
If CDate(Now.ToShortDateString) >= CDate("01.07.2020") And CDate(Now.ToShortDateString) <= CDate("31.12.2020") Then
txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0%", "0"))
txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("5%", "0,05"))
txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16%", "0,16"))
'txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("5%", "0,05"))
'txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16%", "0,16"))
txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("7%", "0,07"))
txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("19%", "0,19"))
txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20%", "0,20"))
txtEustProzent.changeItem("0,16")
txtEustProzent.changeItem("0,19")
' txtEustProzent.changeItem("0,16")
Else
txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0%", "0"))
@@ -261,27 +266,27 @@
End If
Dim zwTMP As Double =
Vl(txtVerzollungskosten) +
Vl(txtWeitereTarifPos) +
Vl(txtATLAS) +
Vl(txtClearing) +
Vl(txtKorrRechnung) +
Vl(txtUebersetzungRg) +
Vl(txtAviso) +
Vl(txtSvs) +
Vl(txtSonstigeKosten)
Vl(txtVerzollungskosten) +
Vl(txtWeitereTarifPos) +
Vl(txtATLAS) +
Vl(txtClearing) +
Vl(txtKorrRechnung) +
Vl(txtUebersetzungRg) +
Vl(txtAviso) +
Vl(txtSvs) +
Vl(txtSonstigeKosten) +
Vl(txtPapierePorti)
' Vl(txtMWST) +
'Vl(txtPapierePorti)
txtMWST._value = Vl(txtMwstProzent) * zwTMP
txtGesamtsumme._value =
Vl(txtZoll2) +
Vl(txtEust2) +
Vl(txtAndereAbgabenBetrag) +
zwTMP +
Vl(txtMWST) +
Vl(txtPapierePorti)
Vl(txtZoll2) +
Vl(txtEust2) +
Vl(txtAndereAbgabenBetrag) +
zwTMP +
Vl(txtMWST)
'----------------------------------------------------------------
End Sub
@@ -338,7 +343,7 @@
Case "CS"
txtEustProzent.changeItem("0,20")
Case "AG"
If CDate(Now.ToShortDateString) >= CDate("01.07.2020") And CDate(Now.ToShortDateString) <= CDate("31.12.2020") Then
If CDate(Now.ToShortDateString) >= CDate("01.07.2020") And CDate(Now.ToShortDateString) <= CDate("20.12.2020") Then
txtEustProzent.changeItem("0,16")
Else
txtEustProzent.changeItem("0,19")