neu
This commit is contained in:
@@ -1026,6 +1026,15 @@ Public Class cDakosyEZA
|
||||
DakosyEZADatenbereitstellung(SPEDITIONSBUCH, DY, notFound, PosAnzahl)
|
||||
End Sub
|
||||
|
||||
Public Shared Sub DakosyAESDatenbereitstellung(ByRef SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, EZA_Nr As String, ByRef notFound As Boolean, ByRef PosAnzahl As Integer)
|
||||
Dim DY As DAKOSY_Worker.cDakosyAES = DAKOSY_Worker.cDakosyAES.LOADByBezugsNr(EZA_Nr, True)
|
||||
If DY Is Nothing Then
|
||||
notFound = True
|
||||
Exit Sub
|
||||
End If
|
||||
DakosyAESDatenbereitstellung(SPEDITIONSBUCH, DY, notFound, PosAnzahl)
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -1169,6 +1178,126 @@ Public Class cDakosyEZA
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Public Shared Sub DakosyAESDatenbereitstellung(ByRef SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, DY As DAKOSY_Worker.cDakosyAES, ByRef notFound As Boolean, ByRef PosAnzahl As Integer)
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
notFound = False
|
||||
|
||||
|
||||
Try
|
||||
|
||||
If SPEDITIONSBUCH.Abfertigungsdatum Is Nothing Then SPEDITIONSBUCH.Abfertigungsdatum = Now 'CDate(DY.aes_Trans_DatumZeit).ToShortDateString
|
||||
|
||||
Try
|
||||
|
||||
Dim ANM As New DAKOSY_Worker.cDakosy_Zollanmeldungen(DY.aes_dyaAnmID)
|
||||
SPEDITIONSBUCH.DokumentId_Steuerbeleg = ANM.dy_Steuerbescheid_dsId
|
||||
SPEDITIONSBUCH.DokumentId_VBD = ANM.dy_VBD_dsId
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("ERR: " & ex.Message & ex.StackTrace)
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
SPEDITIONSBUCH.Versendungsland = DY.aes_AusfuehrerTeilnehmerLandCode
|
||||
SPEDITIONSBUCH.Bestimmungsland = DY.aes_BestimmungslandCode
|
||||
SPEDITIONSBUCH.LKW_Kennzeichen = DY.aes_BefoerderungsmittelAbgangKennzeichen
|
||||
SPEDITIONSBUCH.BelegNr = If(DY.aes_MRN, DY.aes_ANR)
|
||||
'If DY.aes_Rechnungswaehrung IsNot Nothing Then
|
||||
' SPEDITIONSBUCH.Währungsschlüssel = If(DY.aes_Rechnungswaehrung = "EUR", "900", getWaehr(DY.aes_Rechnungswaehrung, SQL))
|
||||
'End If
|
||||
|
||||
|
||||
'Absender
|
||||
Dim AD = getAdresseFromEORI(DY.aes_AusfuehrerTeilnehmerEORI, DY.aes_AusfuehrerTeilnehmerNLNR, SQL)
|
||||
If AD IsNot Nothing Then
|
||||
SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr
|
||||
SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff 'Oranier Küchentechnik GmbH; Haiger
|
||||
End If
|
||||
If If(SPEDITIONSBUCH.Absender, "").Trim = String.Empty Then
|
||||
SPEDITIONSBUCH.Absender = (If(DY.aes_AusfuehrerTeilnehmerName, "")).Trim
|
||||
SPEDITIONSBUCH.Absender &= ", " & If(DY.aes_AusfuehrerTeilnehmerLandCode, "")
|
||||
SPEDITIONSBUCH.Absender &= " " & If(DY.aes_AusfuehrerTeilnehmerPLZ, "")
|
||||
SPEDITIONSBUCH.Absender &= " " & If(DY.aes_AusfuehrerTeilnehmerOrt, "")
|
||||
SPEDITIONSBUCH.Absender = SPEDITIONSBUCH.Absender.Trim
|
||||
If SPEDITIONSBUCH.Absender.Length > 50 Then
|
||||
SPEDITIONSBUCH.Absender = SPEDITIONSBUCH.Absender.Substring(0, 50)
|
||||
End If
|
||||
End If
|
||||
|
||||
'Empfänger
|
||||
AD = Nothing
|
||||
AD = getAdresseFromEORI(DY.aes_EmpfaengerTeilnehmerEORI, DY.aes_EmpfaengerTeilnehmerNLNR, SQL)
|
||||
If AD IsNot Nothing Then
|
||||
SPEDITIONSBUCH.EmpfängerKundenNr = AD.AdressenNr
|
||||
SPEDITIONSBUCH.Empfänger = AD.Ordnungsbegriff 'Oranier Küchentechnik GmbH; Haiger
|
||||
End If
|
||||
If If(SPEDITIONSBUCH.Empfänger, "").Trim = String.Empty Then
|
||||
SPEDITIONSBUCH.Empfänger = (If(DY.aes_EmpfaengerTeilnehmerName, "")).Trim
|
||||
SPEDITIONSBUCH.Empfänger &= ", " & If(DY.aes_EmpfaengerTeilnehmerLandCode, "")
|
||||
SPEDITIONSBUCH.Empfänger &= " " & If(DY.aes_EmpfaengerTeilnehmerPLZ, "")
|
||||
SPEDITIONSBUCH.Empfänger &= " " & If(DY.aes_EmpfaengerTeilnehmerOrt, "")
|
||||
SPEDITIONSBUCH.Empfänger = SPEDITIONSBUCH.Empfänger.Trim
|
||||
If SPEDITIONSBUCH.Empfänger.Length > 50 Then
|
||||
SPEDITIONSBUCH.Empfänger = SPEDITIONSBUCH.Empfänger.Substring(0, 50)
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
SPEDITIONSBUCH.Rechnungsbetrag = DY.aes_Rechnungspreis
|
||||
' SPEDITIONSBUCH.Umrechnungskurs = DY.aes_Rechnungswaehrung
|
||||
SPEDITIONSBUCH.Rohmasse = DY.aes_GesamtRohmasse
|
||||
|
||||
|
||||
'Personal Abfertigung:
|
||||
Try
|
||||
If DY.aes_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.aes_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.aes_WARENPOS
|
||||
For Each pk In p.aesWP_PACKSTUECKE
|
||||
PackstAnz += pk.aesWpPk_PackstueckeAnzahl
|
||||
Next
|
||||
packst &= PackstAnz
|
||||
|
||||
'If p.ezaWP_PackstueckArt IsNot Nothing Then
|
||||
' packst &= p.ezaWP_PackstueckArt & " "
|
||||
'End If
|
||||
packst &= If(p.aesWP_Warenbezeichnung, "") & vbNewLine
|
||||
rohmasseTmp += If(p.aesWP_Rohmasse, 0)
|
||||
'rechnungspreisTmp += If(p.bet, 0)
|
||||
If cnt = 0 Then
|
||||
|
||||
End If
|
||||
cnt += 1
|
||||
Next
|
||||
packst = packst.Trim
|
||||
PosAnzahl = DY.aes_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)
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("ERR: " & ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Shared Function getWaehr(s As String, SQL As VERAG_PROG_ALLGEMEIN.SQL) As String
|
||||
'Return KDSQL.getValueTxtBySql("SELECT TOP 1 isnull([LandNr],-1) FROM [Länderverzeichnis für die Außenhandelsstatistik] WHERE [Währungscode]='" & s & "'", "FMZOLL")
|
||||
s = s.replace("TRY", "TRL") ' Türkische Lira
|
||||
|
||||
Reference in New Issue
Block a user