neu
This commit is contained in:
@@ -436,7 +436,9 @@ Public Class cDakosyEZA
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
' Using cmd As New SqlCommand("SELECT TOP 1 * FROM (SELECT * FROM tblDakosy_EZA WHERE eza_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND eza_status BETWEEN 40 and 90 ", "") & " ) AS T order by eza_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE eza_dyaAnmID=dySt_dyId order by dySt_ts desc) desc,eza_LetzteBearbeitung desc ", conn)
|
||||
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_EZA WHERE eza_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND eza_status BETWEEN 40 and 90 ", "") & " order by eza_LetzteBearbeitung desc ", conn)
|
||||
' MsgBox("SELECT TOP 1 * FROM tblDakosy_EZA WHERE eza_ObjectName Like " & bezugsNr & " " & If(checkValidStatus, " And eza_status BETWEEN 40 And 90 ", "") & " order by eza_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] inner join tblDakosy_Zollanmeldungen on dy_id = dySt_dyId WHERE eza_dyaAnmID=dy_id order by dySt_ts desc) desc,eza_LetzteBearbeitung desc ")
|
||||
cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
@@ -1060,18 +1062,18 @@ Public Class cDakosyEZA
|
||||
|
||||
|
||||
For Each ADR In DY.eza_ADRESSEN
|
||||
'Verkäufer
|
||||
If ADR.ezaAd_AdressTyp = "CZ" Then
|
||||
Dim AD = getAdresseFromEORI(ADR.ezaAd_TeilnehmerEORI, SQL)
|
||||
If AD IsNot Nothing Then
|
||||
SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr
|
||||
SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff
|
||||
End If
|
||||
If If(SPEDITIONSBUCH.Absender, "").Trim = String.Empty Then
|
||||
SPEDITIONSBUCH.Absender = (If(ADR.ezaAd_NameFirma1, "") & " " & If(ADR.ezaAd_NameFirma1, "") & " " & If(ADR.ezaAd_NameFirma1, "")).trim
|
||||
SPEDITIONSBUCH.Absender &= ", " & If(ADR.ezaAd_LandCode, "")
|
||||
SPEDITIONSBUCH.Absender &= " " & If(ADR.ezaAd_PLZ, "")
|
||||
SPEDITIONSBUCH.Absender &= " " & If(ADR.ezaAd_Ort, "")
|
||||
'Verkäufer
|
||||
If ADR.ezaAd_AdressTyp = "CZ" Then
|
||||
Dim AD = getAdresseFromEORI(ADR.ezaAd_TeilnehmerEORI, SQL)
|
||||
If AD IsNot Nothing Then
|
||||
SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr
|
||||
SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff
|
||||
End If
|
||||
If If(SPEDITIONSBUCH.Absender, "").Trim = String.Empty Then
|
||||
SPEDITIONSBUCH.Absender = (If(ADR.ezaAd_NameFirma1, "") & " " & If(ADR.ezaAd_NameFirma1, "") & " " & If(ADR.ezaAd_NameFirma1, "")).trim
|
||||
SPEDITIONSBUCH.Absender &= ", " & If(ADR.ezaAd_LandCode, "")
|
||||
SPEDITIONSBUCH.Absender &= " " & If(ADR.ezaAd_PLZ, "")
|
||||
SPEDITIONSBUCH.Absender &= " " & If(ADR.ezaAd_Ort, "")
|
||||
SPEDITIONSBUCH.Absender = SPEDITIONSBUCH.Absender.Trim
|
||||
If SPEDITIONSBUCH.Absender.Length > 50 Then
|
||||
SPEDITIONSBUCH.Absender = SPEDITIONSBUCH.Absender.Substring(0, 50)
|
||||
@@ -1107,7 +1109,7 @@ Public Class cDakosyEZA
|
||||
Next
|
||||
|
||||
|
||||
If If(SPEDITIONSBUCH.Abfertigungsart, 0) < 1 Then
|
||||
If If(SPEDITIONSBUCH.Abfertigungsart, 0) < 1 Then
|
||||
If DY.eza_FiskalvertretungKz Then
|
||||
SPEDITIONSBUCH.Abfertigungsart = 28
|
||||
Else
|
||||
@@ -1117,48 +1119,48 @@ Public Class cDakosyEZA
|
||||
|
||||
|
||||
SPEDITIONSBUCH.Rechnungsbetrag = DY.eza_Rechnungspreis
|
||||
' SPEDITIONSBUCH.Umrechnungskurs = DY.eza_Rechnungswaehrung
|
||||
SPEDITIONSBUCH.Rohmasse = DY.eza_GesamtRohmasse
|
||||
' SPEDITIONSBUCH.Umrechnungskurs = DY.eza_Rechnungswaehrung
|
||||
SPEDITIONSBUCH.Rohmasse = DY.eza_GesamtRohmasse
|
||||
|
||||
|
||||
'Personal Abfertigung:
|
||||
Try
|
||||
If DY.eza_Bearbeiter IsNot Nothing Then
|
||||
Dim p = SQL.getValueTxtBySql("SELECT ISNULL(CASE WHEN [mit_FMZollPersIDKasseIsnotSpedBuch]=1 THEN [mit_FMZollPersIDSpedBuch] ELSE [mit_FMZollPersID] END ,-1) as [mit_FMZollPersID] FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE [mit_DAKOSY_SB]='" & DY.eza_Bearbeiter & "'", "ADMIN")
|
||||
SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler DAKOSY Personal: " & vbNewLine & ex.Message & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
'Personal Abfertigung:
|
||||
Try
|
||||
If DY.eza_Bearbeiter IsNot Nothing Then
|
||||
Dim p = SQL.getValueTxtBySql("SELECT ISNULL(CASE WHEN [mit_FMZollPersIDKasseIsnotSpedBuch]=1 THEN [mit_FMZollPersIDSpedBuch] ELSE [mit_FMZollPersID] END ,-1) as [mit_FMZollPersID] FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE [mit_DAKOSY_SB]='" & DY.eza_Bearbeiter & "'", "ADMIN")
|
||||
SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler DAKOSY Personal: " & vbNewLine & ex.Message & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
|
||||
|
||||
Dim PackstAnz As Integer = 0
|
||||
Dim cnt = 0
|
||||
Dim rohmasseTmp As Double = 0
|
||||
Dim rechnungspreisTmp As Double = 0
|
||||
Dim packst As String = ""
|
||||
For Each p In DY.eza_WARENPOS
|
||||
If p.ezaWP_PackstueckAnzahl IsNot Nothing AndAlso IsNumeric(p.ezaWP_PackstueckAnzahl) Then
|
||||
PackstAnz += p.ezaWP_PackstueckAnzahl
|
||||
packst &= p.ezaWP_PackstueckAnzahl & " "
|
||||
End If
|
||||
If p.ezaWP_PackstueckArt IsNot Nothing Then
|
||||
packst &= p.ezaWP_PackstueckArt & " "
|
||||
End If
|
||||
packst &= If(p.ezaWP_Warenbezeichnung, "") & vbNewLine
|
||||
rohmasseTmp += If(p.ezaWP_Rohmasse, 0)
|
||||
rechnungspreisTmp += If(p.ezaWP_Artikelpreis, 0)
|
||||
If cnt = 0 Then
|
||||
Dim PackstAnz As Integer = 0
|
||||
Dim cnt = 0
|
||||
Dim rohmasseTmp As Double = 0
|
||||
Dim rechnungspreisTmp As Double = 0
|
||||
Dim packst As String = ""
|
||||
For Each p In DY.eza_WARENPOS
|
||||
If p.ezaWP_PackstueckAnzahl IsNot Nothing AndAlso IsNumeric(p.ezaWP_PackstueckAnzahl) Then
|
||||
PackstAnz += p.ezaWP_PackstueckAnzahl
|
||||
packst &= p.ezaWP_PackstueckAnzahl & " "
|
||||
End If
|
||||
If p.ezaWP_PackstueckArt IsNot Nothing Then
|
||||
packst &= p.ezaWP_PackstueckArt & " "
|
||||
End If
|
||||
packst &= If(p.ezaWP_Warenbezeichnung, "") & vbNewLine
|
||||
rohmasseTmp += If(p.ezaWP_Rohmasse, 0)
|
||||
rechnungspreisTmp += If(p.ezaWP_Artikelpreis, 0)
|
||||
If cnt = 0 Then
|
||||
|
||||
End If
|
||||
cnt += 1
|
||||
Next
|
||||
packst = packst.Trim
|
||||
PosAnzahl = DY.eza_WARENPOS.Count
|
||||
SPEDITIONSBUCH.Packstücke = packst
|
||||
End If
|
||||
cnt += 1
|
||||
Next
|
||||
packst = packst.Trim
|
||||
PosAnzahl = DY.eza_WARENPOS.Count
|
||||
SPEDITIONSBUCH.Packstücke = packst & ", " & rohmasseTmp.ToString("N1") & " kg"
|
||||
|
||||
If If(SPEDITIONSBUCH.Rohmasse, 0) = 0 AndAlso rohmasseTmp > 0 Then SPEDITIONSBUCH.Rohmasse = CInt(rohmasseTmp)
|
||||
If If(SPEDITIONSBUCH.Rechnungsbetrag, 0) = 0 AndAlso rechnungspreisTmp > 0 Then SPEDITIONSBUCH.Rechnungsbetrag = (rechnungspreisTmp)
|
||||
If If(SPEDITIONSBUCH.Rohmasse, 0) = 0 AndAlso rohmasseTmp > 0 Then SPEDITIONSBUCH.Rohmasse = CInt(rohmasseTmp)
|
||||
If If(SPEDITIONSBUCH.Rechnungsbetrag, 0) = 0 AndAlso rechnungspreisTmp > 0 Then SPEDITIONSBUCH.Rechnungsbetrag = (rechnungspreisTmp)
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
@@ -1302,6 +1304,13 @@ Public Class cDakosy_EZA_Aufschub
|
||||
Property ezaAfb_HZA As Object = Nothing
|
||||
Property ezaAfb_AufschuBIN As Object = Nothing
|
||||
|
||||
Property ezaAfb_Faelligkeit As Object = Nothing
|
||||
Property ezaAfb_Zahlungsart As Object = Nothing
|
||||
Property ezaAfb_Abgabenbetrag As Object = Nothing
|
||||
Property ezaAfb_AbgabeArt As Object = Nothing
|
||||
Property AufschubnehmerName As Object = Nothing
|
||||
|
||||
|
||||
'Public selButton As Object = Nothing ' Für die GUI
|
||||
'Public SA_OBJECT As Object = Nothing ' Für die GUI
|
||||
|
||||
@@ -1327,6 +1336,13 @@ Public Class cDakosy_EZA_Aufschub
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAfb_AufschuBIN", ezaAfb_AufschuBIN))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAfb_HZA", ezaAfb_HZA))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAfb_Faelligkeit", ezaAfb_Faelligkeit))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAfb_Zahlungsart", ezaAfb_Zahlungsart))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAfb_Abgabenbetrag", ezaAfb_Abgabenbetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAfb_AbgabeArt", ezaAfb_AbgabeArt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AufschubnehmerName", AufschubnehmerName))
|
||||
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
@@ -505,31 +505,34 @@ Public Class cDakosyNCTSOut
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
' Using cmd As New SqlCommand("SELECT TOP 1 * FROM (SELECT * FROM tblDakosy_NCTSOut WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " ) AS T order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ", conn)
|
||||
'Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_NCTSOut WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ", conn)
|
||||
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_NCTSOut WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_LetzteBearbeitung desc", conn)
|
||||
cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In NCTS.getParameterList()
|
||||
Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable)
|
||||
'MsgBox("SELECT TOP 1 * FROM tblDakosy_NCTSOut WHERE ncts_ObjectName LIKE " & bezugsNr & " " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] inner join tblDakosy_Zollanmeldungen on dy_id = dySt_dyId WHERE ncts_dyaAnmID=dy_id order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ")
|
||||
cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In NCTS.getParameterList()
|
||||
Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(NCTS, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(NCTS, dr.Item(l.Text))
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(NCTS, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(NCTS, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
If loadALL Then
|
||||
NCTS.LOAD_Sicherheitsangaben()
|
||||
NCTS.LOAD_Warenposition()
|
||||
End If
|
||||
|
||||
Next
|
||||
If loadALL Then
|
||||
NCTS.LOAD_Sicherheitsangaben()
|
||||
NCTS.LOAD_Warenposition()
|
||||
dr.Close()
|
||||
Return NCTS
|
||||
End If
|
||||
|
||||
dr.Close()
|
||||
Return NCTS
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
@@ -652,8 +655,42 @@ Public Class cDakosyNCTSOut
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Public Shared Function get_Warenposition(ncts_Id As Integer, Optional loadAll As Boolean = False) As List(Of cDakosy_NCTSOut_Warenposition)
|
||||
Try
|
||||
Dim ncts_WARENPOS As New List(Of cDakosy_NCTSOut_Warenposition)
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblDakosy_NCTSOut_Warenposition WHERE nctsWP_NctsId=@ncts_Id ", conn)
|
||||
cmd.Parameters.AddWithValue("@ncts_Id", ncts_Id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cDakosy_NCTSOut_Warenposition()
|
||||
For Each i In l.getParameterList()
|
||||
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(l, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(l, dr.Item(i.Text))
|
||||
End If
|
||||
Next
|
||||
l.LOAD_WarenpositionPackstuecke()
|
||||
l.LOAD_WarenpositionUnterlagen()
|
||||
ncts_WARENPOS.Add(l)
|
||||
End While
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Return ncts_WARENPOS
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
Function DELETE_Warenpositionen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblDakosy_NCTSOut_Warenposition] WHERE nctsWP_NctsId=" & Me.ncts_Id & " "
|
||||
' MsgBox(sqlstr)
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
@@ -1024,7 +1061,7 @@ Public Class cDakosyNCTSOut
|
||||
If sumBrg > 0 Then SPEDITIONSBUCH.Rechnungsbetrag = sumBrg
|
||||
End If
|
||||
|
||||
If packSt.Trim <> String.Empty Then SPEDITIONSBUCH.Packstücke = packSt.Trim
|
||||
If packSt.Trim <> String.Empty Then SPEDITIONSBUCH.Packstücke = packSt.Trim & ", " & CDbl(DY.ncts_GesamtRohmasse).ToString("N1") & " kg"
|
||||
|
||||
If DY.ncts_GesamtRohmasse IsNot Nothing AndAlso IsNumeric(DY.ncts_GesamtRohmasse) Then SPEDITIONSBUCH.Rohmasse = CInt(DY.ncts_GesamtRohmasse) 'CDbl(DY.ncts_GesamtRohmasse).ToString("N2")
|
||||
'Personal Abfertigung:
|
||||
@@ -1212,6 +1249,7 @@ Public Class cDakosy_NCTSOut_Warenposition
|
||||
Property nctsWP_SumAEmpfaenger_Land As Object = Nothing
|
||||
|
||||
|
||||
Property nctsWP_KdRefNr As Object = Nothing
|
||||
|
||||
|
||||
Property nctsWP_PACKSTUECKE As New List(Of cDakosy_NCTSOut_WarenpositionPackstuecke)
|
||||
@@ -1309,6 +1347,7 @@ Public Class cDakosy_NCTSOut_Warenposition
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_Ort", nctsWP_SumAEmpfaenger_Ort))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_PLZ", nctsWP_SumAEmpfaenger_PLZ))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_SumAEmpfaenger_Land", nctsWP_SumAEmpfaenger_Land))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWP_KdRefNr", nctsWP_KdRefNr))
|
||||
|
||||
|
||||
Return list
|
||||
|
||||
Reference in New Issue
Block a user