Vermerke, Abf.Land
This commit is contained in:
@@ -280,12 +280,23 @@ Public Class frmSendungsdetailsNEU
|
||||
|
||||
End Sub
|
||||
|
||||
Sub initGrenzstelle
|
||||
|
||||
lblGrenze.Text = ""
|
||||
If AVISO.Grenzstelle.Replace("???", "") = "" 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 Sub
|
||||
|
||||
Private Sub frmSendungsdetails_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
|
||||
Try
|
||||
lblGrenze.Text = ""
|
||||
|
||||
Panel5.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
|
||||
Panel15.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
|
||||
@@ -296,21 +307,7 @@ Public Class frmSendungsdetailsNEU
|
||||
|
||||
txtWarenwertWaehrung.initSearchBox(Me.FindForm, " [Code] , [Description] As Land FROM tbl_DY_ZollDE_I0400_Waehrungsliste", {"Code", "Description"}, " (StartDate Is null Or StartDate< GETDATE()) And (EndDate Is null Or EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 150, 200)
|
||||
|
||||
If AVISO.Grenzstelle.Replace("???", "") = "" 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 = If(GRZ.grz_ZollamtDST, "") & " " & If(GRZ.grz_ZollamtBezeichnung, "")
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
initGrenzstelle
|
||||
|
||||
initVorpapiere()
|
||||
|
||||
@@ -415,6 +412,34 @@ Public Class frmSendungsdetailsNEU
|
||||
Button19.Visible = True
|
||||
End If
|
||||
|
||||
ContextMenuStrip3.Items.Clear()
|
||||
Dim dt = SQL.loadDgvBySql("SELECT [grz_Grenzstelle],grz_BezeichnungCBO FROM [AVISO].[dbo].[tblGrenzstelle] where grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "'", "AVISO")
|
||||
If dt IsNot Nothing Then
|
||||
dt.Rows.Add({"???", "??? - andere"})
|
||||
For Each r As DataRow In dt.Rows
|
||||
Dim it As New ToolStripMenuItem
|
||||
it.Text = r("grz_BezeichnungCBO").ToString
|
||||
it.Tag = r("grz_Grenzstelle").ToString
|
||||
ContextMenuStrip3.Items.Add(it)
|
||||
AddHandler it.Click, Sub()
|
||||
If it.Tag.ToString = "???" Then
|
||||
SAVE_ME()
|
||||
AVISO.Grenzstelle = "???"
|
||||
AvisoStatusFunctions.ummeldenAVISO(AVISO, it.Tag.ToString)
|
||||
cGlobal.Aktive_ID = AvisoId
|
||||
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
|
||||
Dim f As New frmEintragAviso
|
||||
f.ShowDialog(frmGrayOut)
|
||||
frmGrayOut.Close()
|
||||
AVISO = AvisoDAL.LesenAviso(AvisoId, "")
|
||||
Else
|
||||
AvisoStatusFunctions.ummeldenAVISO(AVISO, it.Tag.ToString)
|
||||
End If
|
||||
Me.initDataBinding()
|
||||
End Sub
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
cboFiliale._allowFreiText = Nothing
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER
|
||||
@@ -1098,7 +1123,8 @@ Public Class frmSendungsdetailsNEU
|
||||
' lblEmpfAufschubEustTxt.Visible = False
|
||||
'KundenAtrNr:
|
||||
|
||||
cboAbfertigungsart.fillWithSQL("SELECT [Abfertigungsart],[Abfertigungsbezeichnung] FROM [Abfertigungsarten] ", True, "FMZOLL", True)
|
||||
cboAbfertigungsLand.fillWithSQL("SELECT [AbfertigungsLand],AbfertigungsLand FROM [AbfertigungsLaender] WHERE Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' OR (Firma is null and cluster is null)", False, "FMZOLL", True)
|
||||
|
||||
Dim whereFiliale = ""
|
||||
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
' Case "VERAG"
|
||||
@@ -1183,7 +1209,9 @@ Public Class frmSendungsdetailsNEU
|
||||
txtAbfertigungsnummer.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr, String.Empty)
|
||||
txtUnterNr.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).UnterNr, String.Empty)
|
||||
If txtUnterNr.Text = "" Then txtUnterNr.Text = "0"
|
||||
cboAbfertigungsLand._value = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Zollsystem_Land, String.Empty)
|
||||
cboAbfertigungsart._value = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID, String.Empty)
|
||||
' checkinitOLDAbfertigungsart(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID) --> weiter unten
|
||||
|
||||
' txtEmpfaengerBonitaet.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Bonitaet, "")
|
||||
' txtEmpfaengerAnsprechpartner.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Ansprechperson, "")
|
||||
@@ -1417,8 +1445,10 @@ Public Class frmSendungsdetailsNEU
|
||||
initTab()
|
||||
initGesColliGewicht()
|
||||
' initKdInfo(-1)
|
||||
initGrenzstelle()
|
||||
|
||||
initSND_CHAT(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
|
||||
checkinitOLDAbfertigungsart(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID)
|
||||
|
||||
|
||||
SENDUNG_LIST(CURRENT_INDEX).LOAD_VORKOSTEN()
|
||||
@@ -1647,6 +1677,7 @@ Public Class frmSendungsdetailsNEU
|
||||
If SENDUNG_LIST(CURRENT_INDEX).FilialenNr <= 0 Then SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr = Nothing
|
||||
SENDUNG_LIST(CURRENT_INDEX).UnterNr = IIf(IsNumeric(txtUnterNr.Text), txtUnterNr.Text, Nothing)
|
||||
SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID = IIf(IsNumeric(cboAbfertigungsart._value), cboAbfertigungsart._value, Nothing)
|
||||
SENDUNG_LIST(CURRENT_INDEX).tblSnd_Zollsystem_Land = cboAbfertigungsLand._value
|
||||
|
||||
' SENDUNG_LIST(CURRENT_INDEX).tblSnd_Bonitaet = txtEmpfaengerBonitaet.Text
|
||||
' SENDUNG_LIST(CURRENT_INDEX).tblSnd_Ansprechperson = txtEmpfaengerAnsprechpartner.Text
|
||||
@@ -2976,11 +3007,13 @@ Public Class frmSendungsdetailsNEU
|
||||
Label4.Visible = (cboFiliale._value = "7001")
|
||||
|
||||
Dim tmp = cboAbfertigungsart._value
|
||||
If IsNumeric(cboFiliale._value) Then
|
||||
cboAbfertigungsart.fillWithSQL("SELECT Abfertigungsarten.Abfertigungsart,[Abfertigungsbezeichnung] FROM [Abfertigungsarten] INNER JOIN tblAbfertigungsartenFiliale ON tblAbfertigungsartenFiliale.Abfertigungsart=Abfertigungsarten.Abfertigungsart where Filialennr=" & cboFiliale._value & "", True, "FMZOLL", True)
|
||||
Else
|
||||
cboAbfertigungsart.fillWithSQL("SELECT Abfertigungsart,[Abfertigungsbezeichnung] FROM [Abfertigungsarten]", True, "FMZOLL", True)
|
||||
End If
|
||||
initAbfertigungsart()
|
||||
|
||||
'If IsNumeric(cboFiliale._value) Then
|
||||
' cboAbfertigungsart.fillWithSQL("SELECT Abfertigungsarten.Abfertigungsart,[Abfertigungsbezeichnung] FROM [Abfertigungsarten] INNER JOIN tblAbfertigungsartenFiliale ON tblAbfertigungsartenFiliale.Abfertigungsart=Abfertigungsarten.Abfertigungsart where Filialennr=" & cboFiliale._value & "", True, "FMZOLL", True)
|
||||
'Else
|
||||
' cboAbfertigungsart.fillWithSQL("SELECT Abfertigungsart,[Abfertigungsbezeichnung] FROM [Abfertigungsarten]", True, "FMZOLL", True)
|
||||
'End If
|
||||
cboAbfertigungsart.changeItem(tmp)
|
||||
If cboAbfertigungsart._value = "" And cboAbfertigungsart.Items.Count = 2 Then
|
||||
cboAbfertigungsart.SelectedItem = cboAbfertigungsart.Items(1)
|
||||
@@ -6508,4 +6541,45 @@ Public Class frmSendungsdetailsNEU
|
||||
initdgvDigicust()
|
||||
|
||||
End Sub
|
||||
|
||||
Sub initAbfertigungsart(Optional fillwithAbfNr As Boolean = False, Optional AbfNr As Object = Nothing)
|
||||
Dim abfTmp As String = cboAbfertigungsart._value
|
||||
cboAbfertigungsart.fillWithSQL("
|
||||
SELECT AA.Abfertigungsart,AA.[Abfertigungsbezeichnung] FROM [Abfertigungsarten]as AA
|
||||
INNER JOIN AbfertigungsLaenderAbfertigungsarten as ALA ON AA.Abfertigungsart=ALA.Abfertigungsart
|
||||
INNER JOIN tblAbfertigungsartenFiliale ON tblAbfertigungsartenFiliale.Abfertigungsart=AA.Abfertigungsart
|
||||
WHERE ALA.[AbfertigungsLand]='" & cboAbfertigungsLand._value & "'
|
||||
AND Filialennr='" & cboFiliale._value & "'
|
||||
GROUP BY AA.Abfertigungsart,AA.[Abfertigungsbezeichnung]", True, "FMZOLL", True)
|
||||
If abfTmp <> "" Then
|
||||
cboAbfertigungsart.changeItem(abfTmp)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub checkinitOLDAbfertigungsart(Optional AbfNr As Object = Nothing)
|
||||
|
||||
If cboAbfertigungsart.Items.Count <= 1 Then
|
||||
If AbfNr IsNot Nothing AndAlso AbfNr.ToString <> "" Then
|
||||
|
||||
cboAbfertigungsart.fillWithSQL("
|
||||
SELECT AA.Abfertigungsart,AA.[Abfertigungsbezeichnung] FROM [Abfertigungsarten]as AA
|
||||
INNER JOIN tblAbfertigungsartenFiliale ON tblAbfertigungsartenFiliale.Abfertigungsart=AA.Abfertigungsart
|
||||
WHERE Filialennr='" & cboFiliale._value & "'
|
||||
GROUP BY AA.Abfertigungsart,AA.[Abfertigungsbezeichnung]", True, "FMZOLL", True)
|
||||
|
||||
cboAbfertigungsart.changeItem(AbfNr)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub cboAbfertigungsLand_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAbfertigungsLand.SelectedIndexChanged
|
||||
initAbfertigungsart()
|
||||
End Sub
|
||||
|
||||
Private Sub btnLKWUmmelden_Click(sender As Object, e As EventArgs) Handles btnLKWUmmelden.Click
|
||||
ContextMenuStrip3.Show(Cursor.Position)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user