Neuhaus VW Ablauf
This commit is contained in:
@@ -30,6 +30,7 @@ Public Class frmSendungsdetailsNEU
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim FormularArt = ""
|
||||
Dim loaded = False
|
||||
Public UNBOUND = False
|
||||
Dim kdnrEORI As Integer = -1
|
||||
|
||||
Dim usrcntl_NCTS As usrCntlSND_NCTSGestellungsadresse
|
||||
@@ -129,9 +130,12 @@ Public Class frmSendungsdetailsNEU
|
||||
txtColli.Focus() 'DAMIT evtl. LEAVE Events ausgelöst werden
|
||||
txtGewicht.Focus() 'DAMIT evtl. LEAVE Events ausgelöst werden
|
||||
|
||||
If AVISO.Abgeschlossen Then
|
||||
'MsgBox("Keine Änderung möglich - Akt bereits abgeschlossen.")
|
||||
Return True
|
||||
|
||||
If AVISO IsNot Nothing Then
|
||||
If AVISO.Abgeschlossen Then
|
||||
'MsgBox("Keine Änderung möglich - Akt bereits abgeschlossen.")
|
||||
Return True
|
||||
End If
|
||||
End If
|
||||
|
||||
loadDataInLIST()
|
||||
@@ -384,15 +388,17 @@ Public Class frmSendungsdetailsNEU
|
||||
End Sub
|
||||
|
||||
Sub initGrenzstelle()
|
||||
If AVISO IsNot Nothing Then
|
||||
|
||||
lblGrenze.Text = ""
|
||||
If AVISO.Grenzstelle.Replace("???", "").Replace("WO_FREMD", "") = "" Then
|
||||
'lblGrenze.Text = SQL.getValueTxtBySql("Select basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & If(AVISO.Zollstelle, "") & "' ", "ATLAS")
|
||||
lblGrenze.Text = SQL.getValueTxtBySql("SELECT Code +' - ' + [Description] FROM tbl_DY_ZollDE_C0141_Zollstellen WHERE Code='" & If(AVISO.Zollstelle, "") & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()))", "FMZOLL")
|
||||
Else
|
||||
Dim GRZ As New VERAG_PROG_ALLGEMEIN.cGrenzstelle(AVISO.Grenzstelle)
|
||||
If GRZ IsNot Nothing AndAlso GRZ.hasEntry Then
|
||||
lblGrenze.Text = AVISO.Grenzstelle & vbNewLine & If(GRZ.grz_ZollamtDST, "") & " " & If(GRZ.grz_ZollamtBezeichnung, "")
|
||||
lblGrenze.Text = ""
|
||||
If AVISO.Grenzstelle.Replace("???", "").Replace("WO_FREMD", "") = "" Then
|
||||
'lblGrenze.Text = SQL.getValueTxtBySql("Select basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & If(AVISO.Zollstelle, "") & "' ", "ATLAS")
|
||||
lblGrenze.Text = SQL.getValueTxtBySql("SELECT Code +' - ' + [Description] FROM tbl_DY_ZollDE_C0141_Zollstellen WHERE Code='" & If(AVISO.Zollstelle, "") & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()))", "FMZOLL")
|
||||
Else
|
||||
Dim GRZ As New VERAG_PROG_ALLGEMEIN.cGrenzstelle(AVISO.Grenzstelle)
|
||||
If GRZ IsNot Nothing AndAlso GRZ.hasEntry Then
|
||||
lblGrenze.Text = AVISO.Grenzstelle & vbNewLine & If(GRZ.grz_ZollamtDST, "") & " " & If(GRZ.grz_ZollamtBezeichnung, "")
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
@@ -400,6 +406,11 @@ Public Class frmSendungsdetailsNEU
|
||||
Private Sub frmSendungsdetails_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
|
||||
Button23.Visible = True
|
||||
|
||||
If UNBOUND Then
|
||||
FlowLayoutPanel.Visible = False
|
||||
End If
|
||||
|
||||
Try
|
||||
|
||||
Panel5.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
|
||||
@@ -415,8 +426,10 @@ Public Class frmSendungsdetailsNEU
|
||||
|
||||
initVorpapiere()
|
||||
|
||||
If AVISO.Abgeschlossen Then
|
||||
Label8.Visible = True
|
||||
If AVISO IsNot Nothing Then
|
||||
If AVISO.Abgeschlossen Then
|
||||
Label8.Visible = True
|
||||
End If
|
||||
End If
|
||||
lblZollsysErr.Text = ""
|
||||
LinkLabel1.TabStop = False
|
||||
@@ -526,7 +539,9 @@ Public Class frmSendungsdetailsNEU
|
||||
it.Tag = r("grz_Grenzstelle").ToString
|
||||
ContextMenuStrip3.Items.Add(it)
|
||||
AddHandler it.Click, Sub()
|
||||
If it.Tag.ToString = "???" Then
|
||||
If AVISO IsNot Nothing Then
|
||||
|
||||
If it.Tag.ToString = "???" Then
|
||||
SAVE_ME()
|
||||
AVISO.Grenzstelle = "???"
|
||||
AvisoStatusFunctions.ummeldenAVISO(AVISO, it.Tag.ToString)
|
||||
@@ -540,7 +555,9 @@ Public Class frmSendungsdetailsNEU
|
||||
SAVE_ME()
|
||||
AvisoStatusFunctions.ummeldenAVISO(AVISO, it.Tag.ToString)
|
||||
End If
|
||||
Me.initDataBinding()
|
||||
Me.initDataBinding()
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Next
|
||||
End If
|
||||
@@ -979,7 +996,7 @@ Public Class frmSendungsdetailsNEU
|
||||
End Sub
|
||||
|
||||
Sub initButtons()
|
||||
|
||||
If UNBOUND Then Exit Sub
|
||||
' FlowLayoutPanel.Visible = False
|
||||
' Me.SuspendLayout()
|
||||
FlowLayoutPanel.SuspendLayout()
|
||||
@@ -1617,20 +1634,26 @@ Public Class frmSendungsdetailsNEU
|
||||
End Sub
|
||||
|
||||
Sub initVorpapiere()
|
||||
|
||||
cboVorpapier.Items.Clear()
|
||||
cboVorpapier2.Items.Clear()
|
||||
cboVorpapier3.Items.Clear()
|
||||
If AVISO IsNot Nothing Then
|
||||
|
||||
AVISO.LOAD_Vorpapiere()
|
||||
|
||||
cboVorpapier.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboVorpapier2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboVorpapier3.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
For Each VP In AVISO.VORPAPIERE
|
||||
cboVorpapier.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(VP.vp_Nr, VP.vp_Nr))
|
||||
cboVorpapier2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(VP.vp_Nr, VP.vp_Nr))
|
||||
cboVorpapier3.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(VP.vp_Nr, VP.vp_Nr))
|
||||
Next
|
||||
AVISO.LOAD_Vorpapiere()
|
||||
|
||||
cboVorpapier.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboVorpapier2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboVorpapier3.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
For Each VP In AVISO.VORPAPIERE
|
||||
cboVorpapier.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(VP.vp_Nr, VP.vp_Nr))
|
||||
cboVorpapier2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(VP.vp_Nr, VP.vp_Nr))
|
||||
cboVorpapier3.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(VP.vp_Nr, VP.vp_Nr))
|
||||
Next
|
||||
Else
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub setVorpapiere()
|
||||
@@ -1644,9 +1667,10 @@ Public Class frmSendungsdetailsNEU
|
||||
End Sub
|
||||
|
||||
Sub initFraechterAvisererFromAkt()
|
||||
If AVISO IsNot Nothing Then
|
||||
|
||||
'Übergangsphase Aviso/Sendung
|
||||
If txtAvisierer.Text = "" And txtAvisierer.Enabled Then 'And (VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX") Then
|
||||
'Übergangsphase Aviso/Sendung
|
||||
If txtAvisierer.Text = "" And txtAvisierer.Enabled Then 'And (VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX") Then
|
||||
If AVISO.Auftraggeber_KdNr > -1 Then
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromKdNr(AVISO.Auftraggeber_KdNr) = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) Then
|
||||
txtAvisierer.KdNr = AVISO.Auftraggeber_KdNr
|
||||
@@ -1659,18 +1683,20 @@ Public Class frmSendungsdetailsNEU
|
||||
End If
|
||||
|
||||
|
||||
'Übergangsphase Aviso/Sendung
|
||||
If txtFrachtfuehrer.Text = "" And txtFrachtfuehrer.Enabled Then 'And (VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX") Then
|
||||
If AVISO.Frächter_KdNr > -1 Then
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromKdNr(AVISO.Frächter_KdNr) = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) Then
|
||||
txtFrachtfuehrer.KdNr = AVISO.Frächter_KdNr
|
||||
End If
|
||||
Else
|
||||
'Übergangsphase Aviso/Sendung
|
||||
If txtFrachtfuehrer.Text = "" And txtFrachtfuehrer.Enabled Then 'And (VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX") Then
|
||||
If AVISO.Frächter_KdNr > -1 Then
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromKdNr(AVISO.Frächter_KdNr) = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) Then
|
||||
txtFrachtfuehrer.KdNr = AVISO.Frächter_KdNr
|
||||
End If
|
||||
Else
|
||||
|
||||
txtFrachtfuehrer.KdNr_value = -1
|
||||
txtFrachtfuehrerKdNr.Text = ""
|
||||
txtFrachtfuehrer.Text = AVISO.Frächter
|
||||
txtFrachtfuehrer.KdNr_value = -1
|
||||
txtFrachtfuehrerKdNr.Text = ""
|
||||
txtFrachtfuehrer.Text = AVISO.Frächter
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -2473,13 +2499,18 @@ Public Class frmSendungsdetailsNEU
|
||||
With dgvBelege
|
||||
.Columns.Clear()
|
||||
If .RowCount > 0 Then .Rows.Clear()
|
||||
Dim AvisoID = -1
|
||||
If AVISO IsNot Nothing Then
|
||||
AvisoID = AVISO.AvisoID
|
||||
End If
|
||||
|
||||
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='" & cboFiliale._value & "' and AbfertigungsNr='" & txtAbfertigungsnummer.Text & "') OR (LKW_id='" & AVISO.AvisoID & "' AND LKW_Beleg=1) OR (SELECT Count(*) FROM [tblEABelegnummer] where AbfertigungsNr='" & txtAbfertigungsnummer.Text & "' and FilialenNr='" & cboFiliale._value & "' )>0) and storniert=0 and gebuchtstorno=0 order by rksv_BelegId", "FMZOLL")
|
||||
.DataSource = SQL.loadDgvBySql(" SELECT rksv_BelegId, rksv_umsatz ,b.BelegNr,b.BelegDat,b.Benutzer,[Name],LKW_Beleg FROM [tblEABelegnummer] as b " &
|
||||
" INNER JOIN Personal ON ID=Benutzer " &
|
||||
" INNER JOIN [tblEABelegposition] as pos ON pos.[Mandant]=b.[Mandant] AND pos.[Niederlassung]=b.[Niederlassung] AND pos.[Benutzer]=b.[Benutzer] AND pos.[BelegDat]=b.[BelegDat] AND pos.[BelegNr]=b.[BelegNr] " &
|
||||
" where " &
|
||||
" ((b.FilialenNr='" & cboFiliale._value & "' and b.AbfertigungsNr='" & txtAbfertigungsnummer.Text & "') OR (LKW_id='" & AVISO.AvisoID & "' AND LKW_Beleg=1) OR " &
|
||||
" ((b.FilialenNr='" & cboFiliale._value & "' and b.AbfertigungsNr='" & txtAbfertigungsnummer.Text & "') OR (LKW_id='" & AvisoID & "' AND LKW_Beleg=1) OR " &
|
||||
" ( pos.AbfertigungsNr='" & txtAbfertigungsnummer.Text & "' and pos.FilialenNr='" & cboFiliale._value & "' ) ) and storniert=0 and gebuchtstorno=0 " &
|
||||
" group by rksv_BelegId, rksv_umsatz ,b.BelegNr,b.BelegDat,b.Benutzer,[Name],LKW_Beleg " &
|
||||
" order by rksv_BelegId", "FMZOLL")
|
||||
|
||||
Reference in New Issue
Block a user