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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user