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-05-31 22:25:35 +02:00
parent 4a358d43fd
commit 083e666fbc
214 changed files with 14292 additions and 4117 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -301,6 +301,8 @@ Public Class frmNacherfassungNEU
cboFilialeHandling.changeItem(If(SPEDITIONSBUCH.FilialenNrHandling, ""))
txtHandlingZuKassieren._value = SPEDITIONSBUCH.HandlingZuKassieren
cboGrenze.changeItem(If(SPEDITIONSBUCH.Grenzstelle, ""))
lblLastMa.Text = SPEDITIONSBUCH.Sachbearbeiter
If SPEDITIONSBUCH.AvisoID IsNot Nothing Then avisoLinkId = SPEDITIONSBUCH.AvisoID
@@ -322,7 +324,7 @@ Public Class frmNacherfassungNEU
If .RowCount > 0 Then .Rows.Clear()
If (txtAbfertigungsnummer.Text.Trim <> "" AndAlso IsNumeric(txtAbfertigungsnummer.Text) AndAlso txtAbfertigungsnummer.Text > 0) And (cboFiliale._value.Trim <> "" AndAlso IsNumeric(cboFiliale._value) AndAlso cboFiliale._value > 0) Then
.DataSource = SQL.loadDgvBySql("SELECT rksv_BelegId, rksv_umsatz ,BelegNr,BelegDat,Benutzer,[Name],LKW_Beleg FROM [tblEABelegnummer] INNER JOIN Personal ON ID=Benutzer where ((FilialenNr='" & SPEDITIONSBUCH.FilialenNr & "' and AbfertigungsNr='" & SPEDITIONSBUCH.AbfertigungsNr & "') OR LKW_id='" & If(SPEDITIONSBUCH.AvisoID, -123456) & "') and storniert=0 and gebuchtstorno=0 order by rksv_BelegId", "FMZOLL")
.DataSource = SQL.loadDgvBySql("SELECT rksv_BelegId, rksv_umsatz ,BelegNr,BelegDat,Benutzer,[Name],LKW_Beleg FROM [tblEABelegnummer] INNER JOIN Personal ON ID=Benutzer where ((FilialenNr='" & SPEDITIONSBUCH.FilialenNr & "' and AbfertigungsNr='" & SPEDITIONSBUCH.AbfertigungsNr & "' and FilialenNr>0 and AbfertigungsNr>0) OR LKW_id='" & If(SPEDITIONSBUCH.AvisoID, -123456) & "') and storniert=0 and gebuchtstorno=0 order by rksv_BelegId", "FMZOLL")
'AND UnterNr='" & SPEDITIONSBUCH.UnterNr & "' --> Unternr gibts ned
'MsgBox("SELECT rksv_BelegId, rksv_umsatz ,BelegNr,BelegDat,Benutzer FROM [tblEABelegnummer] where AbfertigungsNr='" & txtAbfertigungsnummer.Text & "' and FilialenNr='" & cboFiliale._value & "' and storniert=0 and gebuchtstorno=0 order by rksv_BelegId")
.Columns("rksv_BelegId").HeaderText = "Beleg-Id"
@@ -616,6 +618,17 @@ Public Class frmNacherfassungNEU
cboFiskalSchreiben.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Endempfänger", "ENDEMPF"))
cboFiskalSchreiben.SelectedIndex = 0
cboGrenze.Items.Clear()
cboGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB"))
cboGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG"))
cboGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WAI", "WAI"))
cboGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD"))
cboGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUA", "SUA"))
cboGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
If avisoLinkId > 0 Then
Dim SQLAVISO As New VERAG_PROG_ALLGEMEIN.cavisoDAL
Me.AVISO = SQLAVISO.LesenAviso(avisoLinkId, "")
@@ -944,6 +957,9 @@ Public Class frmNacherfassungNEU
SPEDITIONSBUCH.FilialenNrHandling = cProgramFunctions.isLeerNothing(cboFilialeHandling._value)
SPEDITIONSBUCH.HandlingZuKassieren = If(IsNumeric(txtHandlingZuKassieren._value), CDbl(txtHandlingZuKassieren._value), 0)
SPEDITIONSBUCH.Grenzstelle = cProgramFunctions.isLeerNothing(cboGrenze._value)
SPEDITIONSBUCH.SB_CMRDatum = Nothing
If pnlFiskal.Visible Then
@@ -1161,6 +1177,15 @@ Public Class frmNacherfassungNEU
btnWeiter.Focus()
End If
End If
Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(cboFiliale._value, True, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
txtAvisierer._UseFIRMA = FirmaTmp
txtAbsender._UseFIRMA = FirmaTmp
txtEmpfaenger._UseFIRMA = FirmaTmp
txtAuftraggeber._UseFIRMA = FirmaTmp
txtFraechter._UseFIRMA = FirmaTmp
txtEndEmpf._UseFIRMA = FirmaTmp
End Sub