Nacherfassung Abf.Land; NCTS 004 Anpassungen
This commit is contained in:
@@ -103,7 +103,8 @@ Public Class frmNacherfassungNEU
|
||||
cboSachbearbeiter.fillWithSQL("SELECT ID,/*cast(ID as nvarchar(3)) +' ' + Name as*/ Name FROM Personal WHERE [Status]<>'L' " & sbWhere & " and [SBSichtbar]=1 ORDER BY Name ", False, "FMZOLL", True)
|
||||
|
||||
If SQL.getValueTxtBySql("SELECT count(*) FROM tblAbfertigungsartenFiliale WHERE Filialennr='" & cboFiliale._value & "'", "FMZOLL") > 0 Then
|
||||
cboAbfertigungsart.fillWithSQL("SELECT Abfertigungsarten.Abfertigungsart,[Abfertigungsbezeichnung] FROM [Abfertigungsarten] INNER JOIN tblAbfertigungsartenFiliale ON tblAbfertigungsartenFiliale.Abfertigungsart=Abfertigungsarten.Abfertigungsart where Filialennr=" & cboFiliale._value & "", True, "FMZOLL", True)
|
||||
' cboAbfertigungsart.fillWithSQL("SELECT Abfertigungsarten.Abfertigungsart,[Abfertigungsbezeichnung] FROM [Abfertigungsarten] INNER JOIN tblAbfertigungsartenFiliale ON tblAbfertigungsartenFiliale.Abfertigungsart=Abfertigungsarten.Abfertigungsart where Filialennr=" & cboFiliale._value & "", True, "FMZOLL", True)
|
||||
initAbfertigungsart()
|
||||
End If
|
||||
|
||||
If Not SPEDITIONSBUCH.hasEntry Then
|
||||
@@ -176,11 +177,16 @@ Public Class frmNacherfassungNEU
|
||||
txtFraechter.KdNr = -1
|
||||
txtAvisierer.KdNr = -1
|
||||
txtEndEmpf.KdNr = -1
|
||||
cboAbfertigungsLand.changeItem(SPEDITIONSBUCH.Zollsystem_Land)
|
||||
|
||||
cboAbfertigungsart.changeItem(SPEDITIONSBUCH.Abfertigungsart)
|
||||
If cboAbfertigungsart._value = "" And cboAbfertigungsart.Items.Count = 2 Then
|
||||
cboAbfertigungsart.SelectedItem = cboAbfertigungsart.Items(1)
|
||||
End If
|
||||
|
||||
|
||||
checkinitOLDAbfertigungsart(SPEDITIONSBUCH.Abfertigungsart)
|
||||
|
||||
cboVersendungsland._value = SPEDITIONSBUCH.Versendungsland
|
||||
cboBestimmungsland._value = SPEDITIONSBUCH.Bestimmungsland
|
||||
' MsgBox(SPEDITIONSBUCH.PersonalnummerQS & " ------ " & CStr(If(SPEDITIONSBUCH.PersonalnummerQS, "")))
|
||||
@@ -600,9 +606,12 @@ Public Class frmNacherfassungNEU
|
||||
cbxWaehrung.fillWithSQL(" SELECT LandNr, isnull(Währungscode + ' - ' ,'') + LandBez + ' (' + cast(LandNr as varchar(8)) + ')' FROM [Länderverzeichnis für die Außenhandelsstatistik] ORDER BY case when Währungscode is null then 1 else 0 end,LandBez ", False, "FMZOLL", True)
|
||||
' cboAbfertigungsart.fillWithSQL(" SELECT [Abfertigungsart],cast([Abfertigungsart] as char(2)) + ' ' + [Abfertigungsbezeichnung] FROM [Abfertigungsarten] ORDER BY Abfertigungsart ", False, "FMZOLL", True)
|
||||
|
||||
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)
|
||||
cboZollsystem.fillWithSQL("SELECT [Zollsystemart],Zollsystembezeichnung FROM [Zollsysteme] ORDER BY Zollsystemart", False, "FMZOLL", True)
|
||||
'cboAbfertigungsart.fillWithSQL("SELECT Abfertigungsart,[Abfertigungsbezeichnung] FROM [Abfertigungsarten]", True, "FMZOLL", True)
|
||||
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
|
||||
Case "FRONTOFFICE"
|
||||
cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EZOLL", "E"))
|
||||
@@ -615,12 +624,12 @@ Public Class frmNacherfassungNEU
|
||||
' cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TELOTEC", "T"))
|
||||
' cboZollsystem.changeItem("D")
|
||||
Case Else
|
||||
cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATLAS (KEWILL)", "A"))
|
||||
cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EZOLL", "E"))
|
||||
cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TELOTEC", "T"))
|
||||
cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAKOSY", "D"))
|
||||
cboZollsystem.SelectedIndex = 0
|
||||
'cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
'cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATLAS (KEWILL)", "A"))
|
||||
'cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EZOLL", "E"))
|
||||
'cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TELOTEC", "T"))
|
||||
'cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAKOSY", "D"))
|
||||
'cboZollsystem.SelectedIndex = 0
|
||||
End Select
|
||||
|
||||
|
||||
@@ -805,6 +814,7 @@ Public Class frmNacherfassungNEU
|
||||
|
||||
If Not IsNumeric(txtAnzahl.Text) OrElse txtAnzahl.Text = "0" Then txtAnzahl.Text = "1"
|
||||
If Not IsNumeric(cboAbfertigungsart._value) Then lblErrAbfertigungsart.Visible = True : Return False
|
||||
If (cboAbfertigungsLand._value) = String.Empty Then lblErrAbfertigungsart.Visible = True : Return False
|
||||
If (IsNumeric(txtRechnungsbetrag._value) AndAlso txtRechnungsbetrag._value <> 0) Then
|
||||
If (Not IsNumeric(cbxWaehrung._value) OrElse cbxWaehrung._value <= 0) Then lblErrWaehrung.Visible = True : Return False
|
||||
End If
|
||||
@@ -862,6 +872,8 @@ Public Class frmNacherfassungNEU
|
||||
|
||||
Sub loadDatainSPEDBUCH()
|
||||
SPEDITIONSBUCH.Abfertigungsart = IIf(IsNumeric(cboAbfertigungsart._value), cboAbfertigungsart._value, Nothing)
|
||||
SPEDITIONSBUCH.Zollsystem_Land = cboAbfertigungsLand._value
|
||||
|
||||
SPEDITIONSBUCH.Versendungsland = cboVersendungsland._value
|
||||
SPEDITIONSBUCH.Bestimmungsland = cboBestimmungsland._value
|
||||
SPEDITIONSBUCH.Personalnummer = IIf(IsNumeric(cboSachbearbeiter._value), cboSachbearbeiter._value, Nothing)
|
||||
@@ -1200,6 +1212,7 @@ Public Class frmNacherfassungNEU
|
||||
txtAuftraggeber._UseFIRMA = FirmaTmp
|
||||
txtFraechter._UseFIRMA = FirmaTmp
|
||||
txtEndEmpf._UseFIRMA = FirmaTmp
|
||||
initAbfertigungsart()
|
||||
|
||||
If cboFiliale._value.ToString = "7001" Then
|
||||
cbxEIDR.Visible = True
|
||||
@@ -1590,6 +1603,44 @@ Public Class frmNacherfassungNEU
|
||||
Private Sub Button5_Click_2(sender As Object, e As EventArgs) Handles Button5.Click
|
||||
cSpedBuch_Aktendeckel.PrintSimpleSpedbuch("PDF", SPEDITIONSBUCH)
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
Sub initAbfertigungsart()
|
||||
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
|
||||
|
||||
Private Sub cboAbfertigungsLand_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAbfertigungsLand.SelectedIndexChanged
|
||||
initAbfertigungsart()
|
||||
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
|
||||
|
||||
End Class
|
||||
|
||||
Class cSpedBuch_Aktendeckel
|
||||
@@ -1797,4 +1848,5 @@ Class cSpedBuch_Aktendeckel
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user