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-08-04 16:34:47 +02:00
parent 40295a2819
commit 89d8e0a3a8
95 changed files with 3655 additions and 697 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb
View File

@@ -299,6 +299,7 @@ Public Class frmNacherfassungNEU
txtCMRNr.Text = If(SPEDITIONSBUCH.SB_CMRNr, "")
cboFilialeHandling.changeItem(If(SPEDITIONSBUCH.FilialenNrHandling, ""))
cboAbklärungFiliale.changeItem(If(SPEDITIONSBUCH.FilialenNrAbklaerung, ""))
txtHandlingZuKassieren._value = SPEDITIONSBUCH.HandlingZuKassieren
cboGrenze.changeItem(If(SPEDITIONSBUCH.Grenzstelle, ""))
@@ -565,6 +566,7 @@ Public Class frmNacherfassungNEU
cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
cboFilialeHandling.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
cboAbklärungFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
Dim where = ""
@@ -955,6 +957,7 @@ Public Class frmNacherfassungNEU
SPEDITIONSBUCH.FilialenNrHandling = cProgramFunctions.isLeerNothing(cboFilialeHandling._value)
SPEDITIONSBUCH.FilialenNrAbklaerung = cProgramFunctions.isLeerNothing(cboAbklärungFiliale._value)
SPEDITIONSBUCH.HandlingZuKassieren = If(IsNumeric(txtHandlingZuKassieren._value), CDbl(txtHandlingZuKassieren._value), 0)
SPEDITIONSBUCH.Grenzstelle = cProgramFunctions.isLeerNothing(cboGrenze._value)