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
2019-10-31 09:23:20 +01:00
parent 021cce6f04
commit c5595a729a
169 changed files with 16226 additions and 3376 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -59,6 +59,12 @@ Public Class usrcntlKundeBearbeitenFull
Case "IMEX"
ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1000000-1099999: IMEX", "1000000-1099990"))
ComboBox2.changeItem("1000000-1099990")
Case "UNISPED"
ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2000000-2099999: UNISPED", "2000000-2099990"))
ComboBox2.changeItem("2000000-2099990")
Case "AMBAR"
ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3000000-3099999: AMBAR", "3000000-3099990"))
ComboBox2.changeItem("3000000-3099990")
Case "ATILLA"
ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 700000-799999: ZOLL Abrechnung", "728000-799999"))
ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 900000-999999: Sonstige", "900000-999999"))
@@ -231,13 +237,18 @@ Public Class usrcntlKundeBearbeitenFull
txtVersicherung_GemeldeterBetrag._value = loadValue(KUNDE_ERW.kde_Versicherung_GemeldeterBetrag, "")
txtVers_EHNr.Text = loadValue(KUNDE_ERW.kde_txtVersicherungEHNr, "").ToString
cbxInkassoUebergeben.Checked = KUNDE_ERW.kde_Inkasso_Uebergeben
txtInkassoUebergebenAm._value = loadValue(KUNDE_ERW.kde_Inkasso_UebergebenAm, "")
txtInkasso_GemeldeterBetrag._value = KUNDE_ERW.[kde_Inkasso_GemeldeterBetrag]
cboProvisionStaffelArt.changeItem(loadValue(KUNDE_ERW.kde_Leihgeld_ProvisionPreisstaffel, ""))
cboProvisionStaffel.changeItem(loadValue(KUNDE_ERW.kde_Leihgeld_Provision, ""))
txtProvAuftraggeber._value = loadValue(KUNDE_ERW.kde_Leihgeld_ProvisionAuftraggeber, "")
cbxDepot.Checked = KUNDE_ERW.Depot_Kunde
cbxAutoFakturierung.Checked = KUNDE_ERW.AutoFakturierung
' ----- Abfertigungsverbot -----
' cboAbfVerb_Kreditlimit.Checked=loadValue(KUNDE.Kreditlimit, "")
@@ -279,6 +290,7 @@ Public Class usrcntlKundeBearbeitenFull
txtSonst_KdNrWOELFL.Text = loadValue(ADRESSE.WölflKundenNr, "")
txtSonst_KdNrMSE.Text = loadValue(ADRESSE.MSEKundenNr, "")
txtSonst_KdNrTelepass.Text = loadValue(ADRESSE.TELEPASS_Kd_Nr, "")
txtSonst_KdNrPLOSE.Text = loadValue(ADRESSE.PLOSEKundenNr, "")
cbxSonst_CsvAsfinag.Checked = loadValue(ADRESSE.ASFINAGExportCSV, False)
cbxSonst_CsvMautbericht.Checked = loadValue(ADRESSE.ExportMautberichtCSV, False)
cbxSonst_CsvMSE.Checked = loadValue(ADRESSE.MSEExportCSV, False)
@@ -465,12 +477,16 @@ Public Class usrcntlKundeBearbeitenFull
KUNDE_ERW.kde_Versicherung_GemeldeterBetrag = isLeerNothingDbl(txtVersicherung_GemeldeterBetrag._value)
KUNDE_ERW.kde_txtVersicherungEHNr = isLeerNothing(txtVers_EHNr._value)
KUNDE_ERW.kde_Inkasso_Uebergeben = cbxInkassoUebergeben.Checked
KUNDE_ERW.kde_Inkasso_UebergebenAm = isLeerNothing(txtInkassoUebergebenAm._value)
KUNDE_ERW.kde_Inkasso_GemeldeterBetrag = isLeerNothingDbl(txtInkasso_GemeldeterBetrag._value)
KUNDE_ERW.kde_Leihgeld_ProvisionPreisstaffel = isLeerNothing(cboProvisionStaffelArt._value)
KUNDE_ERW.kde_Leihgeld_Provision = isLeerNothing(cboProvisionStaffel._value)
KUNDE_ERW.kde_Leihgeld_ProvisionAuftraggeber = isLeerNothingDbl(txtProvAuftraggeber._value)
KUNDE_ERW.Depot_Kunde = cbxDepot.Checked
KUNDE_ERW.AutoFakturierung = cbxAutoFakturierung.Checked
' ----- Abfertigungsverbot -----
@@ -509,6 +525,7 @@ Public Class usrcntlKundeBearbeitenFull
ADRESSE.WölflKundenNr = isLeerNothing(txtSonst_KdNrWOELFL.Text)
ADRESSE.MSEKundenNr = isLeerNothing(txtSonst_KdNrMSE.Text)
ADRESSE.TELEPASS_Kd_Nr = isLeerNothing(txtSonst_KdNrTelepass.Text)
ADRESSE.PLOSEKundenNr = isLeerNothing(txtSonst_KdNrPLOSE.Text)
ADRESSE.ASFINAGExportCSV = cbxSonst_CsvAsfinag.Checked
ADRESSE.ExportMautberichtCSV = cbxSonst_CsvMautbericht.Checked
ADRESSE.MSEExportCSV = cbxSonst_CsvMSE.Checked
@@ -592,7 +609,8 @@ Public Class usrcntlKundeBearbeitenFull
' " FROM [Länderverzeichnis für die Außenhandelsstatistik] LEFT JOIN [Währungstabelle] ON [Länderverzeichnis für die Außenhandelsstatistik].LandNr = [Währungstabelle].[Währungsschlüssel] " & _
' " WHERE [Währungstabelle].[MitgliedslandEU] = 1 " & _
' " ORDER BY [Länderverzeichnis für die Außenhandelsstatistik].LandKz ", , "FMZOLL", True)
cbxLandKz.fillWithSQL(" select distinct adressen.landkz, Währungstabelle.Land from adressen inner join Währungstabelle ON Währungstabelle.LandKz=adressen.LandKz where adressen.landkz is not null order by LandKz", , "FMZOLL", True)
'cbxLandKz.fillWithSQL(" select distinct adressen.landkz, Währungstabelle.Land from adressen inner join Währungstabelle ON Währungstabelle.LandKz=adressen.LandKz where adressen.landkz is not null order by LandKz", , "FMZOLL", True)
cbxLandKz.fillWithSQL(" select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", , "FMZOLL", True)
cboProvisionStaffelArt.fillWithSQL("SELECT [PreislistenNr],[PreislistenBez] FROM [VERAG].[dbo].[tblPreislisten] WHERE Art='E' ORDER BY Preislistenbez", False, "FMZOLL", True)
@@ -603,6 +621,10 @@ Public Class usrcntlKundeBearbeitenFull
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
ComboBox1.changeItem("5501")
Case "UNISPED"
ComboBox1.changeItem("5601")
Case "AMBAR"
ComboBox1.changeItem("5701")
Case "ATILLA"
ComboBox1.changeItem("4801")
Case Else
@@ -1081,4 +1103,12 @@ Public Class usrcntlKundeBearbeitenFull
End If
End Sub
Private Sub cbxInkassoUebergeben_CheckedChanged(sender As Object, e As EventArgs) Handles cbxInkassoUebergeben.CheckedChanged
txtInkassoUebergebenAm.Enabled = cbxInkassoUebergeben.Checked
If cbxInkassoUebergeben.Checked Then
txtInkassoUebergebenAm._value = Now.ToShortDateString
Else
txtInkassoUebergebenAm._value = ""
End If
End Sub
End Class