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
2020-06-22 13:33:07 +02:00
parent f4e823ec69
commit 9b52ab1b61
43 changed files with 1985 additions and 250 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -160,9 +160,11 @@ Public Class usrcntlKundeBearbeitenFull
Label28.Text = If(KUNDE.DakosyExport, "-")
cbxFiBu.Checked = KUNDE.FiBuSchnittstelle
cbxFiBuLG.Checked = KUNDE_ERW.FiBuSchnittstelleLG
cboFirma.changeItem(If(KUNDE.FiBuSchnittstelleNr, ""))
If KUNDE.KundenNr > 0 Then
cbxFiBu.Checked = KUNDE.FiBuSchnittstelle
cbxFiBuLG.Checked = KUNDE_ERW.FiBuSchnittstelleLG
cboFirma.changeItem(If(KUNDE.FiBuSchnittstelleNr, ""))
End If
' ----- Abfertigung -----
rtbAbf_Besonderheiten.Text = loadValue(KUNDE.Besonderheiten, "")
rtbLKWFreigabeSenden.Text = loadValue(KUNDE.DokumenteLKWFreigabe, "")
@@ -1160,4 +1162,6 @@ Public Class usrcntlKundeBearbeitenFull
txtInkassoUebergebenAm._value = ""
End If
End Sub
End Class