1275 lines
72 KiB
VB.net
1275 lines
72 KiB
VB.net
Imports VERAG_PROG_ALLGEMEIN
|
|
Public Class cZOLL_IMPORT
|
|
Public Aviso As cAviso
|
|
'Public SendungId As Integer = -1
|
|
Dim KDSQL As New SQL
|
|
Dim SQLAVISO As New cAvisoDAL
|
|
Dim SQLADMIN As New adminfunc
|
|
' Dim avisoLinkId = -1
|
|
Dim SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
|
|
Dim PosAnzahl As Integer = 0
|
|
Dim SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
|
|
Dim strManNr As String = "VERA"
|
|
Dim strManNl As String = "SUB"
|
|
|
|
Dim packstueckeAVISO_TMP As String = ""
|
|
Dim RohmasseAviso As String = ""
|
|
Dim packstueckeZOLL_TMP As String = ""
|
|
Dim notFound = True
|
|
Dim ATLAS_SERVER_VERBINDUNG As String = "ATLAS"
|
|
|
|
'Zollsystem 0,1
|
|
Public Function IMPORT(SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, avisoLinkId As Integer, SendungId As Integer, strManNr As String, strManNl As String, Zollsystem As String, EZA_Nr As String, NCTS_Nr As String, ByRef notFound As Boolean, Optional autoImport As Boolean = False) As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
|
|
|
|
Me.SPEDITIONSBUCH = SPEDITIONSBUCH
|
|
Me.strManNr = strManNr
|
|
Me.strManNl = strManNl
|
|
|
|
If strManNl = "SBG" Then
|
|
ATLAS_SERVER_VERBINDUNG = "ATLAS_SBG"
|
|
Else
|
|
ATLAS_SERVER_VERBINDUNG = "ATLAS"
|
|
End If
|
|
|
|
'-------------------------------------------------------------------------------------------------------------
|
|
|
|
' ATLAS / EZOLL
|
|
' Dim strManNr = txtFirma.Text
|
|
' Dim strManNl As String = cboNiederlassung.Text
|
|
|
|
Select Case Zollsystem
|
|
Case 0 'ATLAS
|
|
SPEDITIONSBUCH.Zollsystem = "A"
|
|
If EZA_Nr <> "" Then
|
|
' SPEDITIONSBUCH.AtlasBezNrEZA = EZA_Nr
|
|
AtlasEZADatenbereitstellung(EZA_Nr) 'BSP: 4/4817/16
|
|
ElseIf NCTS_Nr <> "" Then
|
|
' SPEDITIONSBUCH.AtlasBezNrNCTS = NCTS_Nr
|
|
AtlasNCTSDatenbereitstellung(NCTS_Nr) '4/4990/16
|
|
End If
|
|
notFound = Me.notFound
|
|
Case 1 'ezoll
|
|
SPEDITIONSBUCH.Zollsystem = "E"
|
|
If EZA_Nr <> "" Then
|
|
' SPEDITIONSBUCH.AtlasBezNrEZA = EZA_Nr
|
|
EZollEZADatenbereitstellung(EZA_Nr)
|
|
ElseIf NCTS_Nr <> "" Then
|
|
' SPEDITIONSBUCH.AtlasBezNrNCTS = NCTS_Nr
|
|
EZollNCTSDatenbereitstellung(NCTS_Nr)
|
|
End If
|
|
notFound = Me.notFound
|
|
Case 2 'dakosy
|
|
SPEDITIONSBUCH.Zollsystem = "D"
|
|
If EZA_Nr <> "" Then
|
|
|
|
DAKOSY_Worker.cDakosyEZA.DakosyEZADatenbereitstellung(SPEDITIONSBUCH, EZA_Nr, notFound, PosAnzahl)
|
|
|
|
|
|
ElseIf NCTS_Nr <> "" Then
|
|
' SPEDITIONSBUCH.AtlasBezNrNCTS = NCTS_Nr
|
|
DAKOSY_Worker.cDakosyNCTSOut.DakosyNCTSDatenbereitstellung(SPEDITIONSBUCH, NCTS_Nr, notFound)
|
|
|
|
End If
|
|
Me.notFound = notFound
|
|
Case 3 'telotec
|
|
SPEDITIONSBUCH.Zollsystem = "T"
|
|
If EZA_Nr <> "" Then
|
|
|
|
TELOTEC_Worker.cTelotec_Anmeldung.TELOTECDatenbereitstellung(SPEDITIONSBUCH, EZA_Nr, notFound, "EZA", PosAnzahl)
|
|
|
|
|
|
ElseIf NCTS_Nr <> "" Then
|
|
' SPEDITIONSBUCH.AtlasBezNrNCTS = NCTS_Nr
|
|
TELOTEC_Worker.cTelotec_Anmeldung.TELOTECDatenbereitstellung(SPEDITIONSBUCH, NCTS_Nr, notFound, "NCTS", PosAnzahl)
|
|
|
|
End If
|
|
Me.notFound = notFound
|
|
Case Else 'Kein Zollsystem
|
|
End Select
|
|
|
|
|
|
|
|
If avisoLinkId = 0 Or SendungId = 0 Then
|
|
Dim DY As DAKOSY_Worker.cDakosy_Zollanmeldungen = DAKOSY_Worker.cDakosy_Zollanmeldungen.LOADByBezugsNr(If(EZA_Nr <> "", EZA_Nr, NCTS_Nr))
|
|
If DY IsNot Nothing Then
|
|
If avisoLinkId = 0 Then avisoLinkId = If(DY.dy_AvisoId, 0)
|
|
If SendungId = 0 Then SendungId = If(DY.dy_SendungsId, 0)
|
|
End If
|
|
|
|
End If
|
|
|
|
|
|
|
|
'-------------------------------------------------------------------------------------------------------------
|
|
|
|
|
|
|
|
If SPEDITIONSBUCH.Abfertigungsdatum Is Nothing Then SPEDITIONSBUCH.Abfertigungsdatum = Now.ToShortDateString
|
|
|
|
' Dim fNEF = DirectCast(Me.Owner, frmNacherfassungNEU)
|
|
If SendungId = 0 And SPEDITIONSBUCH.SendungID > 0 Then SendungId = SPEDITIONSBUCH.SendungID 'Falls falsch übergeben
|
|
If SendungId > 0 Then SENDUNG = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungId)
|
|
' Dim dt As DataTable = SQLAVISO.loadDataTableBySQL("SELECT * FROM tblSendungen WHERE tblSnd_SendungID='" & SendungId & "' ")
|
|
|
|
If SENDUNG IsNot Nothing Then
|
|
' Dim r As DataRow = dt.Rows(0)
|
|
If SENDUNG.tblSnd_Warenbezeichnung <> "" Then
|
|
packstueckeAVISO_TMP = IIf(SENDUNG.tblSnd_Colli <> "", SENDUNG.tblSnd_Colli & " Pk. ", "")
|
|
packstueckeAVISO_TMP &= IIf(SENDUNG.tblSnd_Warenbezeichnung <> "", SENDUNG.tblSnd_Warenbezeichnung, "")
|
|
packstueckeAVISO_TMP &= IIf(SENDUNG.tblSnd_Gewicht <> "", ", " & SENDUNG.tblSnd_Gewicht & " kg ", "")
|
|
End If
|
|
RohmasseAviso = IIf(SENDUNG.tblSnd_Gewicht <> "", SENDUNG.tblSnd_Gewicht, "")
|
|
|
|
If SPEDITIONSBUCH.Abfertigungsart <= 0 Then SPEDITIONSBUCH.Abfertigungsart = SENDUNG.tblSnd_Abfertigungsart_ID
|
|
If SPEDITIONSBUCH.Abfertigungsanzahl = 0 Then SPEDITIONSBUCH.Abfertigungsanzahl = SENDUNG.tblSnd_anzahlHandling
|
|
If SPEDITIONSBUCH.PersonalnummerQS <= 0 Then SPEDITIONSBUCH.PersonalnummerQS = SENDUNG.tblSnd_QS_MA
|
|
|
|
|
|
SENDUNG.LOAD_ABRECHNUNG()
|
|
Dim FindPOS = SENDUNG.ABRECHNUNG.Find(Function(x) x.sndabr_beteiligter = "AUFTR" And x.sndabr_wert = "ERSTATTUNG")
|
|
If FindPOS IsNot Nothing Then SPEDITIONSBUCH.AuftraggeberBetragKassiert = If(FindPOS.sndabr_preis, 0)
|
|
|
|
Try
|
|
|
|
Dim dt As DataTable = KDSQL.loadDgvBySql("SELECT * FROM ( " &
|
|
" SELECT rksv_BelegId, isnull(rksv_umsatz ,0) as rksv_umsatz, isnull((Select Name from Personal where ID=b.Benutzer),'') as Benutzer FROM [tblEABelegnummer] as b INNER JOIN [tblEABelegposition] as p ON (b.BelegNr = p.BelegNr AND b.BelegDat = p.BelegDat AND b.Benutzer = p.Benutzer AND b.Niederlassung = p.Niederlassung AND b.Mandant = p.Mandant) where b.AbfertigungsNr='" & SPEDITIONSBUCH.AbfertigungsNr & "' and b.FilialenNr='" & SPEDITIONSBUCH.FilialenNr & "' and storniert=0 and gebuchtstorno=0 " &
|
|
" UNION " &
|
|
" SELECT rksv_BelegId , sum(p.Betrag) as rksv_umsatz,isnull((Select Name from Personal where ID=b.Benutzer),'') as Benutzer FROM [tblEABelegnummer] as b INNER JOIN [tblEABelegposition] as p ON (b.BelegNr = p.BelegNr AND b.BelegDat = p.BelegDat AND b.Benutzer = p.Benutzer AND b.Niederlassung = p.Niederlassung AND b.Mandant = p.Mandant) where p.AbfertigungsNr='" & SPEDITIONSBUCH.AbfertigungsNr & "' and p.FilialenNr='" & SPEDITIONSBUCH.FilialenNr & "' and storniert=0 and gebuchtstorno=0 group by rksv_BelegId,b.Benutzer " &
|
|
" ) as Tb order by rksv_BelegId", "FMZOLL")
|
|
Dim BenutzerTmp = ""
|
|
Dim BelegNrTmp = ""
|
|
Dim BetragTmp As Double = 0
|
|
|
|
If dt.Rows.Count > 0 Then
|
|
|
|
For Each r In dt.Rows
|
|
If BenutzerTmp = "" Then BenutzerTmp = r("Benutzer")
|
|
If r("Benutzer") <> BenutzerTmp Then BenutzerTmp = "Div.Benutzer"
|
|
If (IsNumeric(r("rksv_umsatz"))) Then BetragTmp += r("rksv_umsatz")
|
|
BelegNrTmp &= r("rksv_BelegId") & ","
|
|
Next
|
|
BenutzerTmp = getBenutzerShort(BenutzerTmp)
|
|
If BelegNrTmp.EndsWith(",") Then BelegNrTmp = BelegNrTmp.Substring(0, BelegNrTmp.Length - 1)
|
|
SPEDITIONSBUCH.Bar = True
|
|
If SPEDITIONSBUCH.ErfassungsNr = "" Then SPEDITIONSBUCH.ErfassungsNr = "VERA/" & VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG & "/" & BenutzerTmp & "/" & CDate(SPEDITIONSBUCH.Abfertigungsdatum).ToShortDateString & "/" & BelegNrTmp & "/" & BetragTmp
|
|
If SPEDITIONSBUCH.Barzahlungsbetrag = 0 Then SPEDITIONSBUCH.Barzahlungsbetrag = BetragTmp
|
|
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox("BAR-Err: Beträge konnten nicht geladen werden!" & vbNewLine & ex.Message & ex.StackTrace)
|
|
End Try
|
|
|
|
|
|
'If If(SENDUNG.tblSnd_bar, False) Then
|
|
'SPEDITIONSBUCH.Bar = True
|
|
' If (SENDUNG.tblSnd_barBeleg IsNot Nothing) And SPEDITIONSBUCH.ErfassungsNr = "" Then SPEDITIONSBUCH.ErfassungsNr = "VERA/" & VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG & "/" & CDate(SPEDITIONSBUCH.Abfertigungsdatum).ToShortDateString & "/" & SENDUNG.tblSnd_barBeleg
|
|
' If (SENDUNG.tblSnd_betrag IsNot Nothing) And SPEDITIONSBUCH.Barzahlungsbetrag = 0 Then SPEDITIONSBUCH.Barzahlungsbetrag = SENDUNG.tblSnd_betrag
|
|
' End If
|
|
'
|
|
|
|
|
|
If SPEDITIONSBUCH.NCTS_Verzollungsadresse Is Nothing OrElse SPEDITIONSBUCH.NCTS_Verzollungsadresse = "" Then
|
|
SPEDITIONSBUCH.NCTS_Verzollungsadresse = SENDUNG.tblSnd_NCTSVerzollungsadresse
|
|
|
|
SPEDITIONSBUCH.NCTS_Verzollungsadresse = If(SENDUNG.tblSnd_NCTSVerzollungsadresse, "")
|
|
SPEDITIONSBUCH.NCTS_Verzollungsadresse &= vbNewLine & If(SENDUNG.NCTS_Verzollungsadresse_Strasse, "")
|
|
SPEDITIONSBUCH.NCTS_Verzollungsadresse &= vbNewLine & If(SENDUNG.NCTS_Verzollungsadresse_Land, "") & " " & If(SENDUNG.NCTS_Verzollungsadresse_PLZ, "") & " " & If(SENDUNG.NCTS_Verzollungsadresse_Ort, "")
|
|
SPEDITIONSBUCH.NCTS_Verzollungsadresse &= vbNewLine
|
|
SPEDITIONSBUCH.NCTS_Verzollungsadresse = SPEDITIONSBUCH.NCTS_Verzollungsadresse.Trim
|
|
|
|
|
|
|
|
End If
|
|
If SPEDITIONSBUCH.Endempfänger Is Nothing OrElse SPEDITIONSBUCH.Endempfänger = "" Then
|
|
SPEDITIONSBUCH.Endempfänger = SENDUNG.tblSnd_Endempfaenger
|
|
End If
|
|
|
|
|
|
If IsNull(SPEDITIONSBUCH.KdAuftragsNr) Then SPEDITIONSBUCH.KdAuftragsNr = If(SENDUNG.tblSnd_KdAuftragsNr, "")
|
|
If IsNull(SPEDITIONSBUCH.KdAuftragsNrAvisierer) Then SPEDITIONSBUCH.KdAuftragsNrAvisierer = If(SENDUNG.tblSnd_KdAuftragsNrAvisierer, "")
|
|
If IsNull(SPEDITIONSBUCH.KdAuftragsNrEmpfaenger) Then SPEDITIONSBUCH.KdAuftragsNrEmpfaenger = If(SENDUNG.tblSnd_KdAuftragsNrEmpfaenger, "")
|
|
If IsNull(SPEDITIONSBUCH.KdAuftragsNrFrachtfuehrer) Then SPEDITIONSBUCH.KdAuftragsNrFrachtfuehrer = If(SENDUNG.tblSnd_KdAuftragsNrFrachtfuehrer, "")
|
|
|
|
End If
|
|
|
|
If avisoLinkId > 0 Then
|
|
|
|
Dim sgut = CInt((New SQL).getValueTxtBySql("SELECT count(*) FROM tblSendungen WHERE tblSnd_AvisoID='" & avisoLinkId & "' ", "AVISO"))
|
|
If sgut = 1 Then
|
|
SPEDITIONSBUCH.SgutKompl = "K"
|
|
ElseIf sgut > 1 Then
|
|
SPEDITIONSBUCH.SgutKompl = "S"
|
|
End If
|
|
|
|
|
|
Aviso = SQLAVISO.LesenAviso(avisoLinkId, "")
|
|
If Aviso IsNot Nothing Then
|
|
|
|
' If SPEDITIONSBUCH.Abfertigungsdatum Is Nothing Then SPEDITIONSBUCH.Abfertigungsdatum = CDate(Aviso.Freigabe).ToShortDateString
|
|
If Aviso.Freigabe > CDate("01.01.2000") Then 'SPEDITIONSBUCH.Abfertigungsdatum Then
|
|
SPEDITIONSBUCH.Abfertigungsdatum = CDate(Aviso.Freigabe).ToShortDateString
|
|
End If
|
|
' pnl3.Visible = True
|
|
' txtAuftraggeber.Text = Aviso.Auftraggeber
|
|
' txtAuftraggeberKdNr.Text = Aviso.Auftraggeber_KdNr
|
|
|
|
SPEDITIONSBUCH.Avisierer = Aviso.Auftraggeber
|
|
If getint(Aviso.Auftraggeber_KdNr) > 0 Then SPEDITIONSBUCH.AvisiererKundenNr = Aviso.Auftraggeber_KdNr
|
|
|
|
SPEDITIONSBUCH.Frachtführer = Aviso.Frächter
|
|
If getint(Aviso.Frächter_KdNr) > 0 Then SPEDITIONSBUCH.FrachtführerKundenNr = Aviso.Frächter_KdNr
|
|
|
|
|
|
SPEDITIONSBUCH.LKW_Kennzeichen = Aviso.LKW_Nr
|
|
If IsDate(Aviso.Freigabe) Then SPEDITIONSBUCH.AvisUhrzeit = CDate(Aviso.Freigabe) ' : MsgBox("dATE:" & CDate(Aviso.Freigabe).ToShortTimeString)
|
|
|
|
|
|
If SPEDITIONSBUCH.Grenzstelle Is Nothing OrElse SPEDITIONSBUCH.Grenzstelle = "" Then
|
|
SPEDITIONSBUCH.Grenzstelle = If(Aviso.Grenzstelle, "")
|
|
End If
|
|
End If
|
|
|
|
End If
|
|
|
|
|
|
|
|
|
|
|
|
|
|
If SENDUNG IsNot Nothing Then
|
|
If SPEDITIONSBUCH.AbsenderKundenNr Is Nothing OrElse SPEDITIONSBUCH.AbsenderKundenNr <= 0 Then
|
|
If SENDUNG.tblSnd_AbsenderKdNr > 0 Then
|
|
SPEDITIONSBUCH.AbsenderKundenNr = SENDUNG.tblSnd_AbsenderKdNr
|
|
End If
|
|
If SPEDITIONSBUCH.Absender Is Nothing OrElse SPEDITIONSBUCH.Absender = "" Then SPEDITIONSBUCH.Absender = SENDUNG.tblSnd_Absender
|
|
End If
|
|
If SPEDITIONSBUCH.EmpfängerKundenNr Is Nothing OrElse SPEDITIONSBUCH.EmpfängerKundenNr <= 0 Then
|
|
If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then SPEDITIONSBUCH.EmpfängerKundenNr = SENDUNG.tblSnd_EmpfaengerKdNr
|
|
If SPEDITIONSBUCH.Empfänger Is Nothing OrElse SPEDITIONSBUCH.Empfänger = "" Then SPEDITIONSBUCH.Empfänger = SENDUNG.tblSnd_Empfaenger
|
|
End If
|
|
|
|
If SPEDITIONSBUCH.VermittlerKundenNr Is Nothing OrElse SPEDITIONSBUCH.VermittlerKundenNr <= 0 Then
|
|
|
|
If SENDUNG.tblSnd_AuftraggeberKdNr > 0 Then SPEDITIONSBUCH.VermittlerKundenNr = SENDUNG.tblSnd_AuftraggeberKdNr ': MsgBox(SENDUNG.tblSnd_AuftraggeberKdNr)
|
|
If SPEDITIONSBUCH.Vermittler Is Nothing OrElse SPEDITIONSBUCH.Vermittler = "" Then SPEDITIONSBUCH.Vermittler = SENDUNG.tblSnd_Auftraggeber
|
|
End If
|
|
End If
|
|
|
|
SPEDITIONSBUCH.AtlasBezNrEZA = EZA_Nr
|
|
SPEDITIONSBUCH.AtlasBezNrNCTS = NCTS_Nr
|
|
|
|
If PosAnzahl > 0 Then
|
|
SPEDITIONSBUCH.Vermerk = "Pos-Anzahl: " & PosAnzahl
|
|
End If
|
|
|
|
'Wenn Packstücke im Aviso eingegeben wurden, werden diese in das Speditionbuch gespeichert
|
|
If packstueckeAVISO_TMP.Trim <> "" Then
|
|
SPEDITIONSBUCH.Packstücke = packstueckeAVISO_TMP
|
|
If packstueckeZOLL_TMP.Trim <> "" Then SPEDITIONSBUCH.Bemerkungen = packstueckeZOLL_TMP
|
|
Else
|
|
If packstueckeZOLL_TMP.Trim <> "" Then SPEDITIONSBUCH.Packstücke = packstueckeZOLL_TMP
|
|
End If
|
|
|
|
'Wenn Gewicht im Aviso eingegeben ist, aber keine Rohmasse von ATLAS/EZOLL
|
|
If IsNull(SPEDITIONSBUCH.Rohmasse) And Not IsNull(RohmasseAviso) Then
|
|
If IsNumeric(RohmasseAviso) Then
|
|
SPEDITIONSBUCH.Rohmasse = CInt(RohmasseAviso)
|
|
End If
|
|
End If
|
|
|
|
' If autoImport And Not notFound Then
|
|
If SENDUNG IsNot Nothing AndAlso SENDUNG.tblSnd_Abfertigungsart_ID > 0 Then
|
|
If (SENDUNG.tblSnd_Abfertigungsart_ID = 26 Or SENDUNG.tblSnd_Abfertigungsart_ID = 28) And NCTS_Nr <> "" Then
|
|
'Überstellungs-T
|
|
SPEDITIONSBUCH.Abfertigungsart = 5
|
|
Else
|
|
SPEDITIONSBUCH.Abfertigungsart = SENDUNG.tblSnd_Abfertigungsart_ID
|
|
End If
|
|
End If
|
|
' End If
|
|
|
|
|
|
|
|
correctEntry(SPEDITIONSBUCH.AbsenderKundenNr, SPEDITIONSBUCH.Absender)
|
|
correctEntry(SPEDITIONSBUCH.EmpfängerKundenNr, SPEDITIONSBUCH.Empfänger)
|
|
correctEntry(SPEDITIONSBUCH.VermittlerKundenNr, SPEDITIONSBUCH.Vermittler)
|
|
correctEntry(SPEDITIONSBUCH.AvisiererKundenNr, SPEDITIONSBUCH.Avisierer)
|
|
correctEntry(SPEDITIONSBUCH.EndempfängerKundenNr, SPEDITIONSBUCH.Endempfänger)
|
|
|
|
If SPEDITIONSBUCH.Währungsschlüssel Is Nothing OrElse (IsNumeric(SPEDITIONSBUCH.Währungsschlüssel) AndAlso SPEDITIONSBUCH.Währungsschlüssel <= 0) Then SPEDITIONSBUCH.Währungsschlüssel = 900
|
|
|
|
|
|
'notFound = Me.notFound
|
|
|
|
If autoImport AndAlso Not checkIfAutoOK() Then
|
|
notFound = True
|
|
End If
|
|
Return SPEDITIONSBUCH
|
|
End Function
|
|
|
|
Shared Function getBenutzerShort(s As String) As String
|
|
If s.ToString.Contains(" ") Then
|
|
Dim split() = s.ToString.Split(" ")
|
|
getBenutzerShort = split(0)
|
|
Else
|
|
getBenutzerShort = s
|
|
End If
|
|
If getBenutzerShort.Length > 10 Then
|
|
getBenutzerShort = getBenutzerShort.Substring(0, 10)
|
|
End If
|
|
|
|
End Function
|
|
Public Function AUTO_IMPORT(SendungId As Integer) As Boolean
|
|
If SendungId > 0 Then SENDUNG = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungId)
|
|
' Dim dt As DataTable = SQLAVISO.loadDataTableBySQL("SELECT * FROM tblSendungen WHERE tblSnd_SendungID='" & SendungId & "' ")
|
|
If SENDUNG Is Nothing Then Return False
|
|
|
|
Aviso = SQLAVISO.LesenAviso(SENDUNG.tblSnd_AvisoID, "")
|
|
|
|
Dim SPED_LIST = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuchList(SENDUNG.FilialenNr, SENDUNG.AbfertigungsNr)
|
|
If SPED_LIST.LIST.Count > 0 Then
|
|
MsgBox("Es existieren bereits Einträge zur PosNr '" & SENDUNG.FilialenNr & " " & SENDUNG.AbfertigungsNr & "'")
|
|
Return False
|
|
End If
|
|
|
|
' Dim BezugsNr(4) As String
|
|
|
|
Dim ATLAS_SERVER = ""
|
|
|
|
Dim strManNl = "SUB"
|
|
|
|
|
|
'If cboNiederlassung.Text <> "" Then
|
|
'strManNl = cboNiederlassung.Text
|
|
' Else
|
|
' cboNiederlassung.SelectedIndex = 0
|
|
Select Case SENDUNG.FilialenNr
|
|
Case 4803, 4809
|
|
strManNl = "SUB"
|
|
Case 4801
|
|
strManNl = "SUW"
|
|
Case 5003
|
|
strManNl = "SBG" 'ANDERER SERVER!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
Case 5103
|
|
strManNl = "WAI"
|
|
End Select
|
|
|
|
|
|
' FELT: STATUS, AAAAAAA
|
|
Dim BezugsNr = genBezugsNummern(SENDUNG, strManNl)
|
|
|
|
Dim SPEDBUCH_TMP As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
|
|
SPEDBUCH_TMP = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(SENDUNG.FilialenNr, SENDUNG.AbfertigungsNr)
|
|
' SPEDBUCH_TMP.AbfertigungsNr
|
|
Dim cnt = 0
|
|
For Each s In BezugsNr
|
|
If IMPORT_SPED_BUCH(SENDUNG.tblSnd_AvisoID, SendungId, SPEDBUCH_TMP, 0, s, "", ATLAS_SERVER) Then SPEDBUCH_TMP.SAVE() : SPED_LIST.LIST.Add(SPEDBUCH_TMP) : SPEDBUCH_TMP = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(SENDUNG.FilialenNr, SENDUNG.AbfertigungsNr) : cnt += 1
|
|
If IMPORT_SPED_BUCH(SENDUNG.tblSnd_AvisoID, SendungId, SPEDBUCH_TMP, 1, s, "", ATLAS_SERVER) Then SPEDBUCH_TMP.SAVE() : SPED_LIST.LIST.Add(SPEDBUCH_TMP) : SPEDBUCH_TMP = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(SENDUNG.FilialenNr, SENDUNG.AbfertigungsNr) : cnt += 1
|
|
Next
|
|
For Each s In BezugsNr
|
|
If IMPORT_SPED_BUCH(SENDUNG.tblSnd_AvisoID, SendungId, SPEDBUCH_TMP, 0, "", s, ATLAS_SERVER) Then SPEDBUCH_TMP.SAVE() : SPED_LIST.LIST.Add(SPEDBUCH_TMP) : SPEDBUCH_TMP = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(SENDUNG.FilialenNr, SENDUNG.AbfertigungsNr) : cnt += 1
|
|
If IMPORT_SPED_BUCH(SENDUNG.tblSnd_AvisoID, SendungId, SPEDBUCH_TMP, 1, "", s, ATLAS_SERVER) Then SPEDBUCH_TMP.SAVE() : SPED_LIST.LIST.Add(SPEDBUCH_TMP) : SPEDBUCH_TMP = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(SENDUNG.FilialenNr, SENDUNG.AbfertigungsNr) : cnt += 1
|
|
Next
|
|
|
|
Return (cnt > 0)
|
|
End Function
|
|
|
|
|
|
|
|
Function checkIfAutoOK() As Boolean
|
|
Try
|
|
|
|
If If(SPEDITIONSBUCH.Personalnummer, "") = "" Then Return False
|
|
If If(SPEDITIONSBUCH.Vermittler, "") = "" Then Return False
|
|
If Not IsNumeric(If(SPEDITIONSBUCH.Abfertigungsart, "")) Then Return False
|
|
If SPEDITIONSBUCH.Abfertigungsanzahl = 0 Then Return False
|
|
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail("Validierungsfehler SpedBuch - Trotzdem eingearbeitet!", ex.Message, ex.StackTrace, "al@verag.ag", "")
|
|
End Try
|
|
Return True
|
|
End Function
|
|
|
|
Public Function genBezugsNummern(SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, strManNl As String) As List(Of String)
|
|
genBezugsNummern = New List(Of String)
|
|
|
|
Dim filiale As String = SENDUNG.FilialenNr
|
|
Dim pos As String = ""
|
|
Dim jahr As String = ""
|
|
|
|
If SENDUNG.AbfertigungsNr.ToString.Length >= 8 Then
|
|
pos = CInt(SENDUNG.AbfertigungsNr.ToString.Substring(2))
|
|
End If
|
|
|
|
If Aviso IsNot Nothing AndAlso IsDate(Aviso.Freigabe) AndAlso Aviso.Freigabe > CDate("01.01.2000") Then
|
|
jahr = Aviso.Freigabe.ToString("yy") ' Falls Neujahr
|
|
Else
|
|
jahr = Now.ToString("yy") ' Falls Neujahr
|
|
End If
|
|
|
|
If strManNl = "SBG" Then
|
|
ATLAS_SERVER_VERBINDUNG = "ATLAS_SBG"
|
|
Else
|
|
ATLAS_SERVER_VERBINDUNG = "ATLAS"
|
|
End If
|
|
|
|
Dim VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
Dim dt As DataTable = VERAGSQL.loadDgvBySql("SELECT isnull(veoant_beznr,'') as veoant_beznr FROM veoant WHERE basman_nr='" & strManNr & "' And basman_nl='" & strManNl & "' And (veoant_beznr LIKE '%" & filiale & "/" & pos & "/" & jahr & "%' OR veoant_beznr LIKE '%" & filiale & "-" & pos & "-" & jahr & "%') AND veoant_stat BETWEEN 50 AND 60 ORDER BY basman_nr, basman_nl, veoant_beznr, veoant_lfdnr DESC", ATLAS_SERVER_VERBINDUNG)
|
|
|
|
If dt IsNot Nothing Then
|
|
For Each r As DataRow In dt.Rows
|
|
If r("veoant_beznr") <> String.Empty Then genBezugsNummern.Add(r("veoant_beznr"))
|
|
Next
|
|
End If
|
|
|
|
End Function
|
|
|
|
Public Function genBezugsNummernAAA(SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen) As List(Of String)
|
|
genBezugsNummernAAA = New List(Of String)
|
|
|
|
Dim filiale As String = SENDUNG.FilialenNr
|
|
Dim pos As String = ""
|
|
Dim jahr As String = ""
|
|
|
|
If SENDUNG.AbfertigungsNr.ToString.Length >= 8 Then
|
|
pos = CInt(SENDUNG.AbfertigungsNr.ToString.Substring(2))
|
|
End If
|
|
|
|
If Aviso IsNot Nothing AndAlso IsDate(Aviso.Freigabe) AndAlso Aviso.Freigabe > CDate("01.01.2000") Then
|
|
jahr = Aviso.Freigabe.ToString("yy") ' Falls Neujahr
|
|
Else
|
|
jahr = Now.ToString("yy") ' Falls Neujahr
|
|
End If
|
|
|
|
|
|
genBezugsNummernAAA.Add(filiale & "/" & pos & "/" & jahr)
|
|
genBezugsNummernAAA.Add(filiale & "/" & pos & "/" & jahr & "A")
|
|
genBezugsNummernAAA.Add(filiale & "/" & pos & "/" & jahr & "AA")
|
|
genBezugsNummernAAA.Add(filiale & "/" & pos & "/" & jahr & "AAA")
|
|
|
|
Select Case SENDUNG.tblSnd_Abfertigungsart_ID
|
|
Case "33", "34", "37"
|
|
|
|
' filiale = "TOBB"
|
|
genBezugsNummernAAA.Add("TOBB/" & filiale & "/" & pos & "/" & jahr)
|
|
genBezugsNummernAAA.Add("TOBB/" & filiale & "/" & pos & "/" & jahr & "A")
|
|
genBezugsNummernAAA.Add("TOBB/" & filiale & "/" & pos & "/" & jahr & "AA")
|
|
genBezugsNummernAAA.Add("TOBB/" & filiale & "/" & pos & "/" & jahr & "AAA")
|
|
|
|
' filiale = "EKOL"
|
|
genBezugsNummernAAA.Add("EKOL/" & filiale & "/" & pos & "/" & jahr)
|
|
genBezugsNummernAAA.Add("EKOL/" & filiale & "/" & pos & "/" & jahr & "A")
|
|
genBezugsNummernAAA.Add("EKOL/" & filiale & "/" & pos & "/" & jahr & "AA")
|
|
genBezugsNummernAAA.Add("EKOL/" & filiale & "/" & pos & "/" & jahr & "AAA")
|
|
|
|
' filiale = "SGS"
|
|
genBezugsNummernAAA.Add("SGS/" & filiale & "/" & pos & "/" & jahr)
|
|
genBezugsNummernAAA.Add("SGS/" & filiale & "/" & pos & "/" & jahr & "A")
|
|
genBezugsNummernAAA.Add("SGS/" & filiale & "/" & pos & "/" & jahr & "AA")
|
|
genBezugsNummernAAA.Add("SGS/" & filiale & "/" & pos & "/" & jahr & "AAA")
|
|
End Select
|
|
|
|
|
|
'Return BezugsNr
|
|
End Function
|
|
Function IMPORT_SPED_BUCH(AvisoId As Integer, SendungId As Integer, ByRef SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, ZollSystem As String, EZANr As String, NCTSNr As String, ATLAS_SERVER_VERBINDUNG As String) As Boolean
|
|
' Label26.ForeColor = Color.Black
|
|
' If txtAtlasBezNrEZA.Text <> "" Or txtAtlasBezNrNCTS.Text <> "" Then
|
|
'If cboZollsystem._value = "" Then
|
|
'Label26.ForeColor = Color.Red
|
|
' Exit Function
|
|
' End If
|
|
' End If
|
|
|
|
Dim strManNr = "VERA"
|
|
Dim strManNl = "SUB"
|
|
|
|
|
|
'If cboNiederlassung.Text <> "" Then
|
|
'strManNl = cboNiederlassung.Text
|
|
' Else
|
|
' cboNiederlassung.SelectedIndex = 0
|
|
Select Case SPEDITIONSBUCH.FilialenNr
|
|
Case 4803, 4809
|
|
strManNl = "SUB"
|
|
Case 4801
|
|
strManNl = "SUW"
|
|
Case 5003
|
|
strManNl = "SBG" 'ANDERER SERVER!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
Case 5103
|
|
strManNl = "WAI"
|
|
End Select
|
|
'End If
|
|
|
|
' Dim ZOLL_IMPORT As New SDL.ZOLL_IMPORT
|
|
Dim notFound = False
|
|
' Dim ATLAS_SERVER_VERBINDUNG = ""
|
|
'If cboNiederlassung.Text <> "" Then ATLAS_SERVER_VERBINDUNG = cboNiederlassung.Text
|
|
SPEDITIONSBUCH = IMPORT(SPEDITIONSBUCH, AvisoId, SendungId, strManNr, strManNl, ZollSystem, EZANr, NCTSNr, notFound, True)
|
|
' If notFound Then
|
|
' lblZollsys.Visible = True
|
|
' If notFound And notFoundErrorAllowed Then MsgBox("Der Eintrag wurde nicht gefunden!", vbInformation)
|
|
' Else
|
|
' lblZollsys.Visible = False
|
|
'End If
|
|
' loaddata()
|
|
' Import_Starten()
|
|
Return Not notFound
|
|
End Function
|
|
|
|
Sub correctEntry(ByRef KundenNr, ByRef KdName)
|
|
If KundenNr IsNot Nothing Then
|
|
If KundenNr <= 0 Then
|
|
KundenNr = Nothing : Exit Sub
|
|
Else
|
|
If KdName = "" Then
|
|
KdName = KDSQL.getValueTxtBySql("SELECT isnull(Ordnungsbegriff,'') FROM Adressen WHERE AdressenNr=" & KundenNr, "FMZOLL")
|
|
End If
|
|
End If
|
|
End If
|
|
If KdName IsNot Nothing AndAlso KdName.ToString.Length > 50 Then
|
|
KdName = KdName.ToString.Substring(0, 50)
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub AtlasEZADatenbereitstellung(EZA_Nr)
|
|
Dim dATLAS As DataTable = KDSQL.loadDgvBySql("SELECT basman_nr, basman_nl, zbant_beznr, zbant_regnr, zbant_korant, zbant_anmzb, zbant_vertzb, zbant_verszb, zbant_vland, zbant_bbland, zbant_rohm, zbant_bfkzi, zbant_preisr, zbant_waehr, zbant_kurs,zbant_verseori,zbant_anmeori,zbant_verteori,zbant_sb " &
|
|
" FROM zbant WHERE basman_nr='" & strManNr & "' And basman_nl='" & strManNl & "' And zbant_beznr='" & EZA_Nr & "' ORDER BY basman_nr, basman_nl, zbant_beznr, zbant_regnr, zbant_korant, zbant_antart", ATLAS_SERVER_VERBINDUNG)
|
|
' Dim fNEF = DirectCast(Me.Owner, frmNacherfassungNEU)
|
|
If dATLAS Is Nothing Then notFound = True : Exit Sub
|
|
|
|
If dATLAS.Rows.Count > 0 Then
|
|
notFound = False
|
|
' TextBox1.ForeColor = Color.Green
|
|
For Each r As DataRow In dATLAS.Rows
|
|
' r.Item("").ToString()
|
|
|
|
' MsgBox(fNEF.txtAbsender.Text)
|
|
|
|
If SPEDITIONSBUCH.Absender = "" Then setAdresseAndKundenNr(SPEDITIONSBUCH.Absender, SPEDITIONSBUCH.AbsenderKundenNr, 3, 1, r.Item("zbant_verszb"), r.Item("basman_nr"), r.Item("basman_nl"), r.Item("zbant_beznr"), r.Item("zbant_regnr"), r.Item("zbant_korant"), r.Item("zbant_vland"), r.Item("zbant_verseori"))
|
|
If SPEDITIONSBUCH.Empfänger = "" Then setAdresseAndKundenNr(SPEDITIONSBUCH.Empfänger, SPEDITIONSBUCH.EmpfängerKundenNr, 4, 2, r.Item("zbant_anmzb"), r.Item("basman_nr"), r.Item("basman_nl"), r.Item("zbant_beznr"), r.Item("zbant_regnr"), r.Item("zbant_korant"), r.Item("zbant_vland"), r.Item("zbant_anmeori"))
|
|
' If SPEDITIONSBUCH.Vermittler = "" Then setAdresseAndKundenNr(SPEDITIONSBUCH.Vermittler, SPEDITIONSBUCH.VermittlerKundenNr, -1, 3, r.Item("zbant_vertzb"), r.Item("basman_nr"), r.Item("basman_nl"), r.Item("zbant_beznr"), r.Item("zbant_regnr"), r.Item("zbant_korant"), r.Item("zbant_vland"), r.Item("zbant_verteori"))
|
|
|
|
|
|
If Not IsNull(r.Item("zbant_vland")) And Not Trim(r.Item("zbant_vland")) = "" Then
|
|
SPEDITIONSBUCH.Versendungsland = Trim(r.Item("zbant_vland"))
|
|
End If
|
|
|
|
If Not IsNull(r.Item("zbant_bbland")) And Not Trim(r.Item("zbant_bbland")) = "" Then
|
|
SPEDITIONSBUCH.Bestimmungsland = Trim(r.Item("zbant_bbland"))
|
|
End If
|
|
|
|
If Not IsNull(r.Item("zbant_bfkzi")) And Not Trim(r.Item("zbant_bfkzi")) = "" Then
|
|
SPEDITIONSBUCH.LKW_Kennzeichen = Microsoft.VisualBasic.Strings.Left(Trim(r.Item("zbant_bfkzi")), 25)
|
|
' TextBoxLKWKz.Text = r.Item("zbant_bfkzi").trim()
|
|
End If
|
|
If Not IsNull(r.Item("zbant_regnr")) And Not Trim(r.Item("zbant_regnr")) = "" Then
|
|
SPEDITIONSBUCH.BelegNr = Trim(r.Item("zbant_regnr")) ' fNEF.txtBelegNummerZAT1T2.Text
|
|
End If
|
|
If Not IsNull(r.Item("zbant_waehr")) Then
|
|
If r.Item("zbant_waehr") = "EUR" Then
|
|
SPEDITIONSBUCH.Währungsschlüssel = "900"
|
|
Else
|
|
SPEDITIONSBUCH.Währungsschlüssel = getWaehr(r.Item("zbant_waehr"))
|
|
End If
|
|
|
|
' MsgBox(r.Item("zbant_waehr"))
|
|
End If
|
|
If Not IsNull(r.Item("zbant_preisr")) Then
|
|
SPEDITIONSBUCH.Rechnungsbetrag = CDbl(r.Item("zbant_preisr"))
|
|
End If
|
|
If Not IsNull(r.Item("zbant_kurs")) And r.Item("zbant_kurs") <> 0 Then
|
|
SPEDITIONSBUCH.Umrechnungskurs = r.Item("zbant_kurs")
|
|
End If
|
|
If Not IsNull(r.Item("zbant_rohm")) AndAlso IsNumeric(r.Item("zbant_rohm")) Then
|
|
SPEDITIONSBUCH.Rohmasse = CInt(r.Item("zbant_rohm"))
|
|
End If
|
|
|
|
'Personal Abfertigung:
|
|
Try
|
|
If Not IsNull(r.Item("zbant_sb")) Then
|
|
Dim p = KDSQL.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_ATLAS_SB='" & r.Item("zbant_sb") & "'", "ADMIN")
|
|
SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing)
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox("Fehler ATLAS Personal: " & vbNewLine & ex.Message & vbNewLine & ex.StackTrace)
|
|
End Try
|
|
Next
|
|
Else
|
|
notFound = True
|
|
End If
|
|
|
|
dATLAS = Nothing
|
|
dATLAS = KDSQL.loadDgvBySql("SELECT zbpos_posnr, zbpos_stkanz, zbpos_stkart, zbpos_stkzei, zbpos_wanr, zbpos_wazus1, zbpos_wazus2, zbpos_wabes " &
|
|
" FROM zbpos WHERE basman_nr='" & strManNr & "' And basman_nl='" & strManNl & "' And zbant_beznr='" & EZA_Nr & "' " &
|
|
" ORDER BY basman_nr, basman_nl, zbant_beznr, zbant_regnr, zbant_korant, zbant_antart, zbpos_posnr ", ATLAS_SERVER_VERBINDUNG)
|
|
' rst = GetRecordsetADO(strSQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdText)
|
|
If packstueckeZOLL_TMP.ToString = "" Then
|
|
If dATLAS.Rows.Count > 0 Then
|
|
Dim packst As String = ""
|
|
For Each r As DataRow In dATLAS.Rows
|
|
If r.Item("zbpos_posnr") = 1 Then
|
|
If Not IsNull(r.Item("zbpos_stkanz")) And Not r.Item("zbpos_stkanz") = 0 Then
|
|
packst = packst & r.Item("zbpos_stkanz")
|
|
If Not Trim(r.Item("zbpos_stkart")) = "" Then
|
|
packst = packst & " " & Trim(r.Item("zbpos_stkart"))
|
|
End If
|
|
'If Not Trim(rst!zbpos_stkzei) = "" Then
|
|
' Me!Packstücke = Me!Packstücke & " " & Trim(rst!zbpos_stkzei)
|
|
'End If
|
|
packst = packst & " "
|
|
End If
|
|
'If Not Trim(rst!zbpos_wanr) = "" Then
|
|
' Me!Packstücke = Me!Packstücke & "TNr: " & Trim(rst!zbpos_wanr)
|
|
'End If
|
|
'If Not Trim(rst!zbpos_wazus1) = "" Then
|
|
' Me!Packstücke = Me!Packstücke & "/" & Trim(rst!zbpos_wazus1)
|
|
'End If
|
|
'If Not Trim(rst!zbpos_wazus2) = "" Then
|
|
' Me!Packstücke = Me!Packstücke & "/" & Trim(rst!zbpos_wazus2)
|
|
'End If
|
|
'Me!Packstücke = Me!Packstücke & " Warenbeschreibung lt. Anlage"
|
|
'Me!Packstücke = Me!Packstücke & vbCrLf
|
|
If Not Trim(r.Item("zbpos_wabes")) = "" Then
|
|
packst = packst & Trim(r.Item("zbpos_wabes"))
|
|
End If
|
|
End If
|
|
Next
|
|
packstueckeZOLL_TMP = packst
|
|
PosAnzahl = dATLAS.Rows.Count
|
|
End If
|
|
End If
|
|
|
|
'Schleife durchlaufen, bis keine passenden Datensätze mehr vorhanden sind.
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
Public Function getMRNFROM_AtlasNCTSDatenbereitstellung(strManNr, strManNl, NCTS_Nr) As String
|
|
If strManNl = "SBG" Then
|
|
ATLAS_SERVER_VERBINDUNG = "ATLAS_SBG"
|
|
Else
|
|
ATLAS_SERVER_VERBINDUNG = "ATLAS"
|
|
End If
|
|
Return KDSQL.getValueTxtBySql("SELECT TOP 1 veoant_mrn FROM veoant WHERE basman_nr='" & strManNr & "' And basman_nl='" & strManNl & "' And veoant_beznr='" & NCTS_Nr & "' AND veoant_stat BETWEEN 50 AND 60 ORDER BY basman_nr, basman_nl, veoant_beznr, veoant_lfdnr DESC", ATLAS_SERVER_VERBINDUNG)
|
|
End Function
|
|
Public Function getMRNFROM_EZollNCTSDatenbereitstellung(NCTS_Nr) As String
|
|
'Return KDSQL.getValueTxtBySql("SELECT top 1 CRN FROM zsAnmRefs WHERE (VorgangID = 'AV') AND (LRN = '" & NCTS_Nr & "') ORDER BY GeaendertAm DESC", "EZOLL")
|
|
Return KDSQL.getValueTxtBySql("SELECT top 1 CRN from zsAnmRefs left JOIN [zsAnmDHFRefs] on [zsAnmDHFRefs].AnmID=zsAnmRefs.AnmID AND [zsAnmDHFRefs].OperatorID=zsAnmRefs.OperatorID AND [zsAnmDHFRefs].LizenzNr=zsAnmRefs.LizenzNr where (zsAnmDHFRefs.VorgangID = 'AV') AND (LRN LIKE '" & NCTS_Nr & "') and ErledigungsTypID IN ('F','FB') ORDER BY zsAnmDHFRefs.GeaendertAm DESC", "EZOLL")
|
|
End Function
|
|
|
|
Public Function getMRNFROM_EZollNCTSDatenbereitstellungDT(NCTS_Nr) As DataTable
|
|
'Return KDSQL.getValueTxtBySql("SELECT top 1 CRN FROM zsAnmRefs WHERE (VorgangID = 'AV') AND (LRN = '" & NCTS_Nr & "') ORDER BY GeaendertAm DESC", "EZOLL")
|
|
Return KDSQL.loadDgvBySql("SELECT CRN from zsAnmRefs left JOIN [zsAnmDHFRefs] on [zsAnmDHFRefs].AnmID=zsAnmRefs.AnmID AND [zsAnmDHFRefs].OperatorID=zsAnmRefs.OperatorID AND [zsAnmDHFRefs].LizenzNr=zsAnmRefs.LizenzNr where (zsAnmDHFRefs.VorgangID = 'AV') AND (LRN LIKE '" & NCTS_Nr & "') and ErledigungsTypID IN ('F','FB') ORDER BY zsAnmDHFRefs.GeaendertAm DESC", "EZOLL")
|
|
End Function
|
|
|
|
|
|
|
|
Private Sub AtlasNCTSDatenbereitstellung(NCTS_Nr)
|
|
'Dim fNEF = DirectCast(Me.Owner, frmNacherfassungNEU)
|
|
|
|
|
|
Dim dATLAS As DataTable = KDSQL.loadDgvBySql("SELECT basman_nr, basman_nl, veoant_beznr, veoant_lfdnr, veoant_tinve, veoant_tinem, veoant_tinze, veoant_tinhp, veoant_ldvs, veoant_ldbe, veoant_bfabkz, veoant_mrn, veoant_gsroh, veoant_anzcol, veoant_bedst, veoant_sb " &
|
|
" FROM veoant WHERE basman_nr='" & strManNr & "' And basman_nl='" & strManNl & "' And veoant_beznr='" & NCTS_Nr & "' " &
|
|
" ORDER BY basman_nr, basman_nl, veoant_beznr, veoant_lfdnr DESC", ATLAS_SERVER_VERBINDUNG)
|
|
If dATLAS Is Nothing Then notFound = True : Exit Sub
|
|
If dATLAS.Rows.Count > 0 Then
|
|
notFound = False
|
|
' TextBox2.ForeColor = Color.Green
|
|
For Each r As DataRow In dATLAS.Rows
|
|
' r.Item("").ToString()
|
|
|
|
|
|
If SPEDITIONSBUCH.Absender = "" Then setAdresseAndKundenNrNCTS(SPEDITIONSBUCH.Absender, SPEDITIONSBUCH.AbsenderKundenNr, 3, 1, r.Item("veoant_tinve"), r.Item("veoant_tinve"), r.Item("basman_nr"), r.Item("basman_nl"), r.Item("veoant_beznr"), r.Item("veoant_lfdnr"), 0, 1, r.Item("veoant_ldvs"))
|
|
If SPEDITIONSBUCH.Empfänger = "" Then setAdresseAndKundenNrNCTS(SPEDITIONSBUCH.Empfänger, SPEDITIONSBUCH.EmpfängerKundenNr, 4, 2, r.Item("veoant_tinze"), r.Item("veoant_tinem"), r.Item("basman_nr"), r.Item("basman_nl"), r.Item("veoant_beznr"), r.Item("veoant_lfdnr"), 0, 2, r.Item("veoant_ldbe"))
|
|
If SPEDITIONSBUCH.Vermittler = "" Then setAdresseAndKundenNrNCTS(SPEDITIONSBUCH.Vermittler, SPEDITIONSBUCH.VermittlerKundenNr, -1, 3, r.Item("veoant_tinhp"), r.Item("veoant_tinhp"), r.Item("basman_nr"), r.Item("basman_nl"), r.Item("veoant_beznr"), r.Item("veoant_lfdnr"), 0, 3, r.Item("veoant_ldbe"))
|
|
|
|
|
|
|
|
If Not IsNull(r.Item("veoant_ldvs")) And Not Trim(r.Item("veoant_ldvs")) = "" Then
|
|
SPEDITIONSBUCH.Versendungsland = Trim(r.Item("veoant_ldvs"))
|
|
End If
|
|
|
|
If Not IsNull(r.Item("veoant_ldbe")) And Not Trim(r.Item("veoant_ldbe")) = "" Then
|
|
SPEDITIONSBUCH.Bestimmungsland = Trim(r.Item("veoant_ldbe"))
|
|
End If
|
|
|
|
' Änderung 05.01.2006, damit Vorgaben aus Barbeleg nicht überschrieben werden.
|
|
'Me!VermittlerKundenNr = Null
|
|
'Me!Vermittler = Null
|
|
|
|
|
|
|
|
If Not IsNull(r.Item("veoant_bfabkz")) And Not Trim(r.Item("veoant_bfabkz")) = "" Then
|
|
SPEDITIONSBUCH.LKW_Kennzeichen = Microsoft.VisualBasic.Strings.Left(Trim(r.Item("veoant_bfabkz")), 25)
|
|
' TextBoxLKWKz.Text = r.Item("veoant_bfabkz").trim()
|
|
End If
|
|
If Not IsNull(r.Item("veoant_mrn")) And Not Trim(r.Item("veoant_mrn")) = "" Then
|
|
SPEDITIONSBUCH.BelegNr = Trim(r.Item("veoant_mrn"))
|
|
End If
|
|
|
|
If packstueckeZOLL_TMP.ToString = "" Then
|
|
If Not IsNull(r.Item("veoant_anzcol")) Then
|
|
packstueckeZOLL_TMP = r.Item("veoant_anzcol")
|
|
End If
|
|
End If
|
|
|
|
If Not IsNull(r.Item("veoant_gsroh")) Then
|
|
SPEDITIONSBUCH.Rohmasse = r.Item("veoant_gsroh")
|
|
End If
|
|
'If Not IsNull(r.Item("veoant_bedst")) Then
|
|
' fNEF.cboBestimmungsZollstelle.Text = r.Item("veoant_bedst")
|
|
' End If
|
|
'--------------------------------------
|
|
|
|
'Personal Abfertigung:
|
|
Try
|
|
If Not IsNull(r.Item("veoant_sb")) Then
|
|
Dim p = KDSQL.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_ATLAS_SB='" & r.Item("veoant_sb") & "'", "ADMIN")
|
|
SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing)
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox("Fehler ATLAS Personal: " & vbNewLine & ex.Message & vbNewLine & ex.StackTrace)
|
|
End Try
|
|
Next
|
|
Else
|
|
notFound = True
|
|
' TextBox2.ForeColor = Color.Red
|
|
End If
|
|
|
|
|
|
Dim curPosNr0Basbtg As Double
|
|
Dim curPosNr0Sicbtg As Double
|
|
|
|
Dim Rechnungsbetrag As Double = 0
|
|
Dim Währungsschlüssel = 900 'Euro
|
|
Dim Sicherheitsbetrag As Double = 0 '???????????
|
|
|
|
dATLAS = Nothing
|
|
dATLAS = KDSQL.loadDgvBySql("SELECT veoant_beznr, veoant_lfdnr, veopos_posnr, veoerz_typ, veoerz_lfdnr, veoerz_sicbsc, veoerz_basbtg, veoerz_baswrg, veoerz_sicbtg, veoerz_sicwrg, veoant_korant" & _
|
|
" FROM veoerz t1 WHERE (veoant_beznr = '" & NCTS_Nr & "') AND (basman_nr = '" & strManNr & "') AND (basman_nl = '" & strManNl & "') AND (veoerz_typ = 2)" & _
|
|
" AND (veoant_korant = (SELECT MAX(t2.veoant_korant) FROM veoerz t2" & _
|
|
" WHERE t2.veoant_beznr = t1.veoant_beznr AND t2.veoant_lfdnr = t1.veoant_lfdnr AND t2.veopos_posnr = t1.veopos_posnr AND" & _
|
|
" t2.veoerz_typ = t1.veoerz_typ AND t2.veoerz_lfdnr = t1.veoerz_lfdnr AND t2.basman_nr = t1.basman_nr AND" & _
|
|
" t2.basman_nl = t1.basman_nl)) " & _
|
|
" ORDER BY veoant_lfdnr, veopos_posnr, veoerz_typ, veoerz_lfdnr", ATLAS_SERVER_VERBINDUNG)
|
|
If dATLAS.Rows.Count > 0 Then
|
|
notFound = False
|
|
Dim packst As String = ""
|
|
For Each r As DataRow In dATLAS.Rows
|
|
|
|
' If r.Item("veopos_posnr") = 0 And Not IsNull(r.Item("veoerz_sicbsc")) And Not Trim(r.Item("veoerz_sicbsc")) = "" Then
|
|
'[Bürgschaft] = Trim(r.Item("veoerz_sicbsc")) '????????
|
|
' End If
|
|
If curPosNr0Basbtg = 0 And r.Item("veoerz_basbtg") <> 0.0# Then
|
|
If r.Item("veoerz_baswrg") = "EUR" Or r.Item("veoerz_baswrg") = " " Then
|
|
Rechnungsbetrag = Rechnungsbetrag + r.Item("veoerz_basbtg")
|
|
Else
|
|
' In Euro umrechnen.
|
|
'HIER
|
|
If SPEDITIONSBUCH.Abfertigungsdatum IsNot Nothing Then
|
|
Dim dATLAS2 As DataTable = KDSQL.loadDgvBySql("SELECT baskur_kurs" & _
|
|
" FROM baskur" & _
|
|
" WHERE (baskur_code = '" & r.Item("veoerz_baswrg") & "')" & _
|
|
" AND (baskur_typ = 1 OR baskur_typ = 2)" & _
|
|
" AND (baskur_gvdat <= CAST('" & CDate(SPEDITIONSBUCH.Abfertigungsdatum).ToShortDateString & "' as DATETIME))" & _
|
|
" AND (baskur_gbdat >= CAST('" & CDate(SPEDITIONSBUCH.Abfertigungsdatum).ToShortDateString & "'as DATETIME))" & _
|
|
" AND (baskur_wkz = 'EUR')" & _
|
|
" ORDER BY baskur_gvdat DESC, baskur_gbdat DESC", ATLAS_SERVER_VERBINDUNG)
|
|
|
|
' rst2 = GetRecordsetADO(strSQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdText)
|
|
If dATLAS2.Rows.Count > 0 Then
|
|
Dim curEurobetrag = r.Item("veoerz_basbtg") / dATLAS2.Rows(0).Item("baskur_kurs")
|
|
curEurobetrag = Int(curEurobetrag * 100 + 0.5) / 100 'Runden
|
|
Rechnungsbetrag = Rechnungsbetrag + curEurobetrag
|
|
Else
|
|
Rechnungsbetrag = Rechnungsbetrag + r.Item("veoerz_basbtg")
|
|
' Me!Währungsschlüssel = Null 'unterschiedliche Währungen
|
|
MsgBox("Es wurde kein Euro-Umrechnungskurs gefunden. Rechnungsbetrag wird ohne Kursumrechnung erzeugt.", , "Datenübernahme aus ATLAS " & r.Item("veoerz_basbtg") & " " & r.Item("veoerz_baswrg"))
|
|
End If
|
|
Else
|
|
MsgBox("Abfertigungsdatum ist nicht gesetzt. Rechnungsbetrag wurde nicht übernommen.")
|
|
|
|
End If
|
|
End If
|
|
End If
|
|
If curPosNr0Sicbtg = 0 And r.Item("veoerz_sicbtg") <> 0.0# Then
|
|
If r.Item("veoerz_sicwrg") = "EUR" Or r.Item("veoerz_sicwrg") = " " Then
|
|
Sicherheitsbetrag = Sicherheitsbetrag + r.Item("veoerz_sicbtg")
|
|
Else
|
|
' In Euro umrechnen.
|
|
If SPEDITIONSBUCH.Abfertigungsdatum IsNot Nothing Then
|
|
Dim dATLAS2 As DataTable = KDSQL.loadDgvBySql("SELECT baskur_kurs" & _
|
|
" FROM baskur" & _
|
|
" WHERE (baskur_code = '" & r.Item("veoerz_sicwrg") & "')" & _
|
|
" AND (baskur_typ = 1 OR baskur_typ = 2)" & _
|
|
" AND (baskur_gvdat <= CAST('" & CDate(SPEDITIONSBUCH.Abfertigungsdatum).ToShortDateString & "' as DATETIME))" & _
|
|
" AND (baskur_gbdat >= CAST('" & CDate(SPEDITIONSBUCH.Abfertigungsdatum).ToShortDateString & "' as DATETIME))" & _
|
|
" AND (baskur_wkz = 'EUR')" & _
|
|
" ORDER BY baskur_gvdat DESC, baskur_gbdat DESC", ATLAS_SERVER_VERBINDUNG)
|
|
If dATLAS2.Rows.Count > 0 Then
|
|
Dim curEurobetrag = r.Item("veoerz_sicbtg") / dATLAS2.Rows(0).Item("baskur_kurs")
|
|
curEurobetrag = Int(curEurobetrag * 100 + 0.5) / 100 'Runden
|
|
Sicherheitsbetrag = Sicherheitsbetrag + curEurobetrag
|
|
Else
|
|
Sicherheitsbetrag = Sicherheitsbetrag + r.Item("veoerz_sicbtg")
|
|
MsgBox("Es wurde kein Euro-Umrechnungskurs gefunden. Sicherheitsbetrag wird ohne Kursumrechnung erzeugt.", , "Datenübernahme aus ATLAS " & r.Item("veoerz_sicbtg") & " " & r.Item("veoerz_sicwrg"))
|
|
|
|
End If
|
|
Else
|
|
MsgBox("Abfertigungsdatum ist nicht gesetzt. Rechnungsbetrag wurde nicht übernommen.")
|
|
|
|
End If
|
|
End If
|
|
End If
|
|
If r.Item("veopos_posnr") = 0 Then
|
|
' Basisbetrag und Sicherheitsbetrag aus Positionssatz 0 zwischenspeichern.
|
|
curPosNr0Basbtg = r.Item("veoerz_basbtg")
|
|
curPosNr0Sicbtg = r.Item("veoerz_sicbtg")
|
|
End If
|
|
Next
|
|
|
|
SPEDITIONSBUCH.Rechnungsbetrag = CDbl(Rechnungsbetrag)
|
|
SPEDITIONSBUCH.Sicherheitsbetrag = CDbl(Sicherheitsbetrag)
|
|
|
|
End If
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Function getAdresseFromEORI(EORI)
|
|
If EORI Is Nothing Then Return Nothing
|
|
If If(EORI, "") <> "" Then
|
|
Dim kdNrTmp = KDSQL.getFMZOLLKdNrFromEORI(EORI)
|
|
If IsNumeric(kdNrTmp) Then
|
|
Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp)
|
|
Return ADRESSE
|
|
End If
|
|
End If
|
|
Return Nothing
|
|
End Function
|
|
|
|
Private Sub EZollNCTSDatenbereitstellung(NCTS_Nr)
|
|
' Dim fNEF = DirectCast(Me.Owner, frmNacherfassungNEU)
|
|
|
|
|
|
Dim Bestimmungszollstelle = ""
|
|
Dim Bürgschaft = ""
|
|
Dim Sicherheitsbetrag As Double
|
|
Dim dEZOLL As DataTable = KDSQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" & _
|
|
" FROM zsAnmRefs" & _
|
|
" WHERE (VorgangID = 'AV') AND (LRN = '" & NCTS_Nr & "')" & _
|
|
" ORDER BY GeaendertAm DESC", "EZOLL")
|
|
|
|
If dEZOLL Is Nothing Then notFound = True : Exit Sub
|
|
If dEZOLL.Rows.Count = 0 Then
|
|
' MsgBox("Die Bezugsnummer " & NCTS_Nr & " wurde nicht in der EZoll-Datenbank gefunden.", vbInformation, "Daten aus EZoll übernehmen")
|
|
notFound = True
|
|
' TextBox2.ForeColor = Color.Red
|
|
Exit Sub
|
|
End If
|
|
'TextBox2.ForeColor = Color.Green
|
|
Dim r As DataRow = dEZOLL.Rows(0)
|
|
notFound = False
|
|
|
|
|
|
If Not IsNull(r.Item("GeaendertAm")) Then
|
|
' If IsNull(SPEDITIONSBUCH.Abfertigungsdatum) Then SPEDITIONSBUCH.Abfertigungsdatum = DateValue(r.Item("GeaendertAm")) ' GEHT SO NED, aber wird whsk nicht benötigt?
|
|
SPEDITIONSBUCH.AvisUhrzeit = CDate(r.Item("GeaendertAm"))
|
|
End If
|
|
If Not IsNull(r.Item("CRN")) Then SPEDITIONSBUCH.BelegNr = r.Item("CRN")
|
|
|
|
If SPEDITIONSBUCH.Absender = "" Then
|
|
' Tabelle zsAnmConorTra lesen.
|
|
Dim DTzsAnmConorTra As DataTable = KDSQL.loadDgvBySql("SELECT Na, Pst, Cty, Ctry" & _
|
|
" FROM zsAnmConorTra" & _
|
|
" WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & r.Item("AnmID") & ")", "EZOLL")
|
|
If DTzsAnmConorTra.Rows().Count > 0 Then
|
|
If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Na")) Then SPEDITIONSBUCH.Absender = Strings.Left(DTzsAnmConorTra.Rows(0).Item("Na"), 50)
|
|
If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Ctry")) Then SPEDITIONSBUCH.Absender = Strings.Left(SPEDITIONSBUCH.Absender & ", " & DTzsAnmConorTra.Rows(0).Item("Ctry"), 50)
|
|
If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Pst")) Then SPEDITIONSBUCH.Absender = Strings.Left(SPEDITIONSBUCH.Absender & ", " & DTzsAnmConorTra.Rows(0).Item("Pst"), 50)
|
|
If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Cty")) Then SPEDITIONSBUCH.Absender = Strings.Left(SPEDITIONSBUCH.Absender & ", " & DTzsAnmConorTra.Rows(0).Item("Cty"), 50)
|
|
If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Ctry")) Then SPEDITIONSBUCH.Versendungsland = DTzsAnmConorTra.Rows(0).Item("Ctry")
|
|
End If
|
|
End If
|
|
|
|
If SPEDITIONSBUCH.Empfänger = "" Then
|
|
' Tabelle zsAnmConeeTra lesen.
|
|
Dim DTzsAnmConeeTra As DataTable = KDSQL.loadDgvBySql("SELECT Na, Pst, Cty, Ctry" & _
|
|
" FROM zsAnmConeeTra" & _
|
|
" WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & r.Item("AnmID") & ")", "EZOLL")
|
|
|
|
If DTzsAnmConeeTra.Rows().Count > 0 Then
|
|
If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Na")) Then SPEDITIONSBUCH.Empfänger = Strings.Left(DTzsAnmConeeTra.Rows(0).Item("Na"), 50)
|
|
If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Ctry")) Then SPEDITIONSBUCH.Empfänger = Strings.Left(SPEDITIONSBUCH.Empfänger & ", " & DTzsAnmConeeTra.Rows(0).Item("Ctry"), 50)
|
|
If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Pst")) Then SPEDITIONSBUCH.Empfänger = Strings.Left(SPEDITIONSBUCH.Empfänger & ", " & DTzsAnmConeeTra.Rows(0).Item("Pst"), 50)
|
|
If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Cty")) Then SPEDITIONSBUCH.Empfänger = Strings.Left(SPEDITIONSBUCH.Empfänger & ", " & DTzsAnmConeeTra.Rows(0).Item("Cty"), 50)
|
|
If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Ctry")) Then SPEDITIONSBUCH.Bestimmungsland = DTzsAnmConeeTra.Rows(0).Item("Ctry")
|
|
End If
|
|
End If
|
|
|
|
' Tabelle zsAnmTransp lesen.
|
|
Dim DTzsAnmTransp As DataTable = KDSQL.loadDgvBySql("SELECT DepIdnt" & _
|
|
" FROM zsAnmTransp" & _
|
|
" WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & r.Item("AnmID") & ")", "EZOLL")
|
|
If DTzsAnmTransp.Rows().Count > 0 Then
|
|
If Not IsNull(DTzsAnmTransp.Rows(0).Item("DepIdnt")) Then
|
|
SPEDITIONSBUCH.LKW_Kennzeichen = Strings.Left(DTzsAnmTransp.Rows(0).Item("DepIdnt"), 25)
|
|
' Me.TextBoxLKWKz.Text = Strings.Left(DTzsAnmTransp.Rows(0).Item("DepIdnt"), 25)
|
|
End If
|
|
End If
|
|
|
|
' Tabelle zsAnmValData lesen.
|
|
Dim DTzsAnmValData As DataTable = KDSQL.loadDgvBySql("SELECT InvCurr, InvVal" & _
|
|
" FROM zsAnmValData" & _
|
|
" WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & r.Item("AnmID") & ")", "EZOLL")
|
|
|
|
If DTzsAnmValData.Rows().Count > 0 Then
|
|
If Not IsNull(DTzsAnmValData.Rows(0).Item("InvCurr")) Then
|
|
If DTzsAnmValData.Rows(0).Item("InvCurr") = "EUR" Then
|
|
SPEDITIONSBUCH.Währungsschlüssel = "900"
|
|
Else
|
|
SPEDITIONSBUCH.Währungsschlüssel = getWaehr(DTzsAnmValData.Rows(0).Item("InvCurr"))
|
|
End If
|
|
End If
|
|
' fNEF.cbxWaehrung._value = DTzsAnmValData.Rows(0).Item("InvCurr") '!Währungsschlüssel = DLookup("[Währungsschlüssel]", "Währungstabelle", "[Währungscode] = '" & DTzsAnmValData.Rows(0).Item("InvCurr") & "'")
|
|
If Not IsNull(DTzsAnmValData.Rows(0).Item("InvVal")) Then SPEDITIONSBUCH.Rechnungsbetrag = CDbl(DTzsAnmValData.Rows(0).Item("InvVal"))
|
|
End If
|
|
|
|
' Tabelle zsAnmHea lesen.
|
|
Dim DTzsAnmHea As DataTable = KDSQL.loadDgvBySql("SELECT TotPack, TotGross" & _
|
|
" FROM zsAnmHea" & _
|
|
" WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & r.Item("AnmID") & ")", "EZOLL")
|
|
|
|
If packstueckeZOLL_TMP = "" Then
|
|
If DTzsAnmHea.Rows().Count > 0 Then
|
|
If Not IsNull(DTzsAnmHea.Rows(0).Item("TotPack")) Then packstueckeZOLL_TMP = DTzsAnmHea.Rows(0).Item("TotPack") & " Packst."
|
|
If Not IsNull(DTzsAnmHea.Rows(0).Item("TotGross")) AndAlso IsNumeric(IsNull(DTzsAnmHea.Rows(0).Item("TotGross"))) Then SPEDITIONSBUCH.Rohmasse = CInt(DTzsAnmHea.Rows(0).Item("TotGross"))
|
|
End If
|
|
|
|
' Tabelle zsAnmGdsitem lesen.
|
|
Dim DTzsAnmGdsitem As DataTable = KDSQL.loadDgvBySql("SELECT GdsDes" & _
|
|
" FROM zsAnmGdsitem" & _
|
|
" WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & r.Item("AnmID") & ")" & _
|
|
" ORDER BY GdsItemID", "EZOLL")
|
|
|
|
If DTzsAnmGdsitem.Rows().Count > 0 Then
|
|
If Not IsNull(DTzsAnmGdsitem.Rows(0).Item("GdsDes")) Then
|
|
If IsNull(packstueckeZOLL_TMP) Then
|
|
packstueckeZOLL_TMP = DTzsAnmGdsitem.Rows(0).Item("GdsDes")
|
|
Else
|
|
packstueckeZOLL_TMP = packstueckeZOLL_TMP & " " & DTzsAnmGdsitem.Rows(0).Item("GdsDes")
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
' Tabelle zsAnmDestCo lesen.
|
|
Dim DTzsAnmDestCo As DataTable = KDSQL.loadDgvBySql("SELECT Ref" & _
|
|
" FROM zsAnmDestCo" & _
|
|
" WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & r.Item("AnmID") & ")", "EZOLL")
|
|
|
|
If DTzsAnmDestCo.Rows().Count > 0 Then
|
|
If Not IsNull(DTzsAnmDestCo.Rows(0).Item("ref")) Then [Bestimmungszollstelle] = DTzsAnmDestCo.Rows(0).Item("ref")
|
|
End If
|
|
|
|
' Tabelle zsAnmGrteeGrteeRef lesen.
|
|
Dim DTzsAnmGrteeGrteeRef As DataTable = KDSQL.loadDgvBySql("SELECT GRN, GVal" & _
|
|
" FROM zsAnmGrteeGrteeRef" & _
|
|
" WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & r.Item("AnmID") & ")" & _
|
|
" ORDER BY GrteeID, GrteeRefID", "EZOLL")
|
|
|
|
If DTzsAnmGrteeGrteeRef.Rows().Count > 0 Then
|
|
[Sicherheitsbetrag] = 0
|
|
For Each DTzsAnmGrteeGrteeRef_row In DTzsAnmGrteeGrteeRef.Rows()
|
|
If Not IsNull(DTzsAnmGrteeGrteeRef_row.item("GRN")) Then [Bürgschaft] = DTzsAnmGrteeGrteeRef_row.item("GRN")
|
|
If Not IsNull(DTzsAnmGrteeGrteeRef_row.item("GVal")) Then [Sicherheitsbetrag] = [Sicherheitsbetrag] + DTzsAnmGrteeGrteeRef_row.item("GVal")
|
|
Next
|
|
End If
|
|
|
|
'Personal Abfertigung:
|
|
Try
|
|
If Not IsNull(r.Item("GeaendertVon")) Then
|
|
Dim p = KDSQL.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_EZOLL_SB='" & r.Item("GeaendertVon") & "'", "ADMIN")
|
|
SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing)
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox("Fehler EZOLL Personal: " & vbNewLine & ex.Message & vbNewLine & ex.StackTrace)
|
|
End Try
|
|
|
|
|
|
SPEDITIONSBUCH.Sicherheitsbetrag = CDbl(Sicherheitsbetrag)
|
|
SPEDITIONSBUCH.Bestimmungszollstelle = Bestimmungszollstelle
|
|
SPEDITIONSBUCH.Bürgschaft = Bürgschaft
|
|
End Sub
|
|
|
|
Private Sub EZollEZADatenbereitstellung(EZA_Nr)
|
|
|
|
' Dim fNEF = DirectCast(Me.Owner, frmNacherfassungNEU)
|
|
|
|
|
|
Dim dEZOLL As DataTable = KDSQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" & _
|
|
" FROM zsAnmRefs" & _
|
|
" WHERE (VorgangID = 'EF') AND (LRN = '" & EZA_Nr & "')" & _
|
|
" ORDER BY GeaendertAm DESC", "EZOLL")
|
|
If dEZOLL Is Nothing Then notFound = True : Exit Sub
|
|
|
|
If dEZOLL.Rows.Count = 0 Then
|
|
'MsgBox("Die Bezugsnummer " & EZA_Nr & " wurde nicht in der EZoll-Datenbank gefunden.", vbInformation, "Daten aus EZoll übernehmen")
|
|
notFound = True
|
|
' TextBox1.ForeColor = Color.Red
|
|
Exit Sub
|
|
End If
|
|
' TextBox1.ForeColor = Color.Green
|
|
Dim DR_zsAnmRefs As DataRow = dEZOLL.Rows(0)
|
|
|
|
notFound = False
|
|
|
|
If Not IsNull(DR_zsAnmRefs.Item("GeaendertAm")) Then
|
|
' If IsNull(SPEDITIONSBUCH.Abfertigungsdatum) Then SPEDITIONSBUCH.Abfertigungsdatum = DateValue(DR_zsAnmRefs.Item("GeaendertAm")) 'KA::::
|
|
SPEDITIONSBUCH.AvisUhrzeit = CDate(DR_zsAnmRefs.Item("GeaendertAm"))
|
|
End If
|
|
If Not IsNull(DR_zsAnmRefs.Item("CRN")) Then SPEDITIONSBUCH.BelegNr = DR_zsAnmRefs.Item("CRN")
|
|
|
|
If SPEDITIONSBUCH.Absender = "" Then
|
|
' Tabelle zsAnmConorTra lesen.
|
|
Dim DTzsAnmConorTra As DataTable = KDSQL.loadDgvBySql("SELECT Na, Pst, Cty, Ctry" & _
|
|
" FROM zsAnmConorTra" & _
|
|
" WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")", "EZOLL")
|
|
|
|
If DTzsAnmConorTra.Rows().Count > 0 Then
|
|
If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Na")) Then SPEDITIONSBUCH.Absender = Strings.Left(DTzsAnmConorTra.Rows(0).Item("Na"), 50)
|
|
If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Ctry")) Then SPEDITIONSBUCH.Absender = Strings.Left(SPEDITIONSBUCH.Absender & ", " & DTzsAnmConorTra.Rows(0).Item("Ctry"), 50)
|
|
If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Pst")) Then SPEDITIONSBUCH.Absender = Strings.Left(SPEDITIONSBUCH.Absender & ", " & DTzsAnmConorTra.Rows(0).Item("Pst"), 50)
|
|
If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Cty")) Then SPEDITIONSBUCH.Absender = Strings.Left(SPEDITIONSBUCH.Absender & ", " & DTzsAnmConorTra.Rows(0).Item("Cty"), 50)
|
|
If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Ctry")) Then SPEDITIONSBUCH.Versendungsland = DTzsAnmConorTra.Rows(0).Item("Ctry")
|
|
End If
|
|
End If
|
|
|
|
If SPEDITIONSBUCH.Empfänger = "" Then
|
|
' Tabelle zsAnmConeeTra lesen.
|
|
Dim DTzsAnmConeeTra As DataTable = KDSQL.loadDgvBySql("SELECT Na, Pst, Cty, Ctry" & _
|
|
" FROM zsAnmConeeTra" & _
|
|
" WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")", "EZOLL")
|
|
|
|
If DTzsAnmConeeTra.Rows().Count > 0 Then
|
|
If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Na")) Then SPEDITIONSBUCH.Empfänger = Strings.Left(DTzsAnmConeeTra.Rows(0).Item("Na"), 50)
|
|
If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Ctry")) Then SPEDITIONSBUCH.Empfänger = Strings.Left(SPEDITIONSBUCH.Empfänger & ", " & DTzsAnmConeeTra.Rows(0).Item("Ctry"), 50)
|
|
If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Pst")) Then SPEDITIONSBUCH.Empfänger = Strings.Left(SPEDITIONSBUCH.Empfänger & ", " & DTzsAnmConeeTra.Rows(0).Item("Pst"), 50)
|
|
If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Cty")) Then SPEDITIONSBUCH.Empfänger = Strings.Left(SPEDITIONSBUCH.Empfänger & ", " & DTzsAnmConeeTra.Rows(0).Item("Cty"), 50)
|
|
If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Ctry")) Then SPEDITIONSBUCH.Bestimmungsland = DTzsAnmConeeTra.Rows(0).Item("Ctry")
|
|
End If
|
|
End If
|
|
|
|
' Tabelle zsAnmTransp lesen.
|
|
Dim DTzsAnmTransp As DataTable = KDSQL.loadDgvBySql("SELECT DepIdnt" & _
|
|
" FROM zsAnmTransp" & _
|
|
" WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")", "EZOLL")
|
|
|
|
If DTzsAnmTransp.Rows().Count > 0 Then
|
|
If Not IsNull(DTzsAnmTransp.Rows(0).Item("DepIdnt")) Then SPEDITIONSBUCH.LKW_Kennzeichen = Strings.Left(DTzsAnmTransp.Rows(0).Item("DepIdnt"), 25)
|
|
End If
|
|
|
|
' Tabelle zsAnmValData lesen.
|
|
Dim DTzsAnmValData As DataTable = KDSQL.loadDgvBySql("SELECT InvCurr, InvVal" & _
|
|
" FROM zsAnmValData" & _
|
|
" WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")", "EZOLL")
|
|
|
|
If DTzsAnmValData.Rows().Count > 0 Then
|
|
If Not IsNull(DTzsAnmValData.Rows(0).Item("InvCurr")) Then
|
|
If DTzsAnmValData.Rows(0).Item("InvCurr") = "EUR" Then
|
|
SPEDITIONSBUCH.Währungsschlüssel = "900"
|
|
Else
|
|
SPEDITIONSBUCH.Währungsschlüssel = getWaehr(DTzsAnmValData.Rows(0).Item("InvCurr"))
|
|
End If
|
|
End If
|
|
' fNEF.cbxWaehrung._value = DTzsAnmValData.Rows(0).Item("InvCurr") ' = DLookup("[Währungsschlüssel]", "Währungstabelle", "[Währungscode] = '" & DTzsAnmValData.Rows(0).Item("InvCurr") & "'")
|
|
If Not IsNull(DTzsAnmValData.Rows(0).Item("InvVal")) Then SPEDITIONSBUCH.Rechnungsbetrag = CDbl(DTzsAnmValData.Rows(0).Item("InvVal"))
|
|
End If
|
|
|
|
' Tabelle zsAnmHea lesen.
|
|
Dim DTzsAnmHea As DataTable = KDSQL.loadDgvBySql("SELECT TotPack, TotGross" & _
|
|
" FROM zsAnmHea" & _
|
|
" WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")", "EZOLL")
|
|
|
|
If packstueckeZOLL_TMP = "" Then
|
|
If DTzsAnmHea.Rows().Count > 0 Then
|
|
If Not IsNull(DTzsAnmHea.Rows(0).Item("TotPack")) Then packstueckeZOLL_TMP = DTzsAnmHea.Rows(0).Item("TotPack") & " Packst."
|
|
If Not IsNull(DTzsAnmHea.Rows(0).Item("TotGross")) Then SPEDITIONSBUCH.Rohmasse = DTzsAnmHea.Rows(0).Item("TotGross")
|
|
End If
|
|
|
|
' Tabelle zsAnmGdsitem lesen.
|
|
Dim DTzsAnmGdsitem As DataTable = KDSQL.loadDgvBySql("SELECT GdsDes" & _
|
|
" FROM zsAnmGdsitem" & _
|
|
" WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")" & _
|
|
" ORDER BY GdsItemID", "EZOLL")
|
|
|
|
If DTzsAnmGdsitem.Rows().Count > 0 Then
|
|
If Not IsNull(DTzsAnmGdsitem.Rows(0).Item("GdsDes")) Then
|
|
If IsNull(packstueckeZOLL_TMP) Then
|
|
packstueckeZOLL_TMP = DTzsAnmGdsitem.Rows(0).Item("GdsDes")
|
|
Else
|
|
packstueckeZOLL_TMP = packstueckeZOLL_TMP & " " & DTzsAnmGdsitem.Rows(0).Item("GdsDes")
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
'Personal Abfertigung:
|
|
Try
|
|
If Not IsNull(DR_zsAnmRefs.Item("GeaendertVon")) Then
|
|
Dim p = KDSQL.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_EZOLL_SB='" & DR_zsAnmRefs.Item("GeaendertVon") & "'", "ADMIN")
|
|
SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing)
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox("Fehler EZOLL Personal: " & vbNewLine & ex.Message & vbNewLine & ex.StackTrace)
|
|
End Try
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
Function IsNull(o) As Boolean
|
|
Try
|
|
If o Is Nothing Then Return True
|
|
If o Is DBNull.Value Then Return True
|
|
If o.ToString.Trim = "" Then Return True
|
|
Catch : End Try
|
|
Return False
|
|
End Function
|
|
|
|
Sub setAdresseAndKundenNr(ByRef KUNDE_TXT As String, ByRef KUNDE_KDNR As Integer, Adr_zbadz_typ As Integer, intTyp As Integer, ByVal zollNr As String, ByVal basman_nr As String, ByVal basman_nl As String, ByVal zbant_beznr As String, ByVal zbant_regnr As String, ByVal zbant_korant As String, zbant_vland As String, eori As String)
|
|
Dim kunde_tmp As String = ""
|
|
Dim kdnr_tmp As String = ""
|
|
|
|
If KUNDE_TXT = "" And KUNDE_KDNR <= 0 Then
|
|
kdnr_tmp = KDSQL.getFMZOLLKdNrFromEORI(eori)
|
|
If IsNull(kdnr_tmp) Then
|
|
If Not IsNull(zollNr) AndAlso IsNumeric(zollNr) AndAlso zollNr <> 0 Then
|
|
kdnr_tmp = KDSQL.getATLASKdNrFromZollNr(zollNr)
|
|
If IsNull(kdnr_tmp) And IsNull(kunde_tmp) Then
|
|
|
|
If intTyp = 3 Or intTyp = 4 Then ' Vertreter ODER ANMELDER --> zB bei Konsilager gesehen
|
|
Dim veragZolNr = False
|
|
If zollNr = 4590317 Then veragZolNr = True ' VERAG Spedition AG, Suben
|
|
If zollNr = 4884876 Then veragZolNr = True ' VERAG Spedition AG, Raunheim
|
|
If zollNr = 4899911 Then veragZolNr = True ' VERAG Spedition AG, Salzburg
|
|
If zollNr = 4824105 Then veragZolNr = True ' VERAG Spedition AG, Neuhaus
|
|
If zollNr = 5133599 Then veragZolNr = True ' VERAG Spedition AG, Waidhaus
|
|
If zollNr = "DE4590317" Then veragZolNr = True ' VERAG Spedition AG, Suben
|
|
If zollNr = "DE4884876" Then veragZolNr = True ' VERAG Spedition AG, Raunheim" Then
|
|
If zollNr = "DE4899911" Then veragZolNr = True ' VERAG Spedition AG, Salzburg" Then
|
|
If zollNr = "DE4824105" Then veragZolNr = True ' VERAG Spedition AG, Neuhaus" Then
|
|
If zollNr = "DE5133599" Then veragZolNr = True ' VERAG Spedition AG, Waidhaus
|
|
|
|
If Not veragZolNr Then ' Nur Wenn
|
|
Dim s() As String = KDSQL.getATLASNacherfassungAdresseFrombaskun(zollNr, basman_nr, basman_nl, ATLAS_SERVER_VERBINDUNG)
|
|
kdnr_tmp = s(1)
|
|
kunde_tmp = s(0)
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
If intTyp = 1 Or intTyp = 2 Then
|
|
If IsNull(kdnr_tmp) And IsNull(kunde_tmp) Then
|
|
kunde_tmp = KDSQL.getATLASNacherfassungAdresse(basman_nr, basman_nl, zbant_beznr, zbant_regnr, zbant_korant, Adr_zbadz_typ, ATLAS_SERVER_VERBINDUNG)
|
|
End If
|
|
End If
|
|
If intTyp = 1 Then
|
|
If IsNull(kdnr_tmp) And IsNull(kunde_tmp) Then
|
|
If Not IsNull(zbant_vland) And Not Trim(zbant_vland) = "" Then
|
|
kunde_tmp = Trim(zbant_vland)
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
KUNDE_TXT = kunde_tmp
|
|
If IsNumeric(kdnr_tmp) AndAlso kdnr_tmp > 0 Then
|
|
KUNDE_KDNR = kdnr_tmp
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Sub setAdresseAndKundenNrNCTS(ByRef KUNDE_TXT As String, ByRef KUNDE_KDNR As Integer, Adr_zbadz_typ As Integer, intTyp As Integer, ByVal kdNRATLAS As String, ByVal kdNRATLAS2 As String, ByVal basman_nr As String, ByVal basman_nl As String, ByVal zbant_beznr As String, intLfdNr As Integer, intPosNr As Integer, lngTyp As Long, veoant_ldvs As String)
|
|
Dim kunde_tmp As String = ""
|
|
Dim kdnr_tmp As String = ""
|
|
'Adr_zbadz_typ = 3 -> Absender
|
|
'Adr_zbadz_typ = 4 -> Empfänger
|
|
|
|
'intTyp = 1 -> Absender
|
|
'intTyp = 2 -> Empfänger
|
|
'intTyp = 3 -> Auftraggeber
|
|
' Dim fNEF = DirectCast(Me.Owner, frmNacherfassung)
|
|
|
|
' If KUNDE_TXT = "" And KUNDE_KDNR <= 0 Then
|
|
'kdnr_tmp = KDSQL.getFMZOLLKdNrFromEORI(eori)
|
|
' End If
|
|
|
|
|
|
If KUNDE_TXT = "" And KUNDE_KDNR <= 0 Then
|
|
|
|
If Not IsNull(kdNRATLAS) AndAlso IsNumeric(kdNRATLAS) AndAlso kdNRATLAS <> 0 Then
|
|
' kdnr_tmp = KDSQL.getATLASKdNrFromZollNr(kdNRATLAS)
|
|
' If IsNull(kdnr_tmp) And IsNull(kunde_tmp) Then
|
|
Dim s() As String = KDSQL.getATLASNacherfassungAdresseFrombaskunByKuNr(kdNRATLAS, basman_nr, basman_nl, ATLAS_SERVER_VERBINDUNG)
|
|
kdnr_tmp = s(1)
|
|
kunde_tmp = s(0)
|
|
'End If
|
|
End If
|
|
If intTyp = 2 Then 'EMPF
|
|
If Not IsNull(kdNRATLAS2) AndAlso IsNumeric(kdNRATLAS2) AndAlso kdNRATLAS2 <> 0 Then
|
|
' kdnr_tmp = KDSQL.getATLASKdNrFromZollNr(kdNRATLAS2)
|
|
If IsNull(kdnr_tmp) And IsNull(kunde_tmp) Then
|
|
Dim s() As String = KDSQL.getATLASNacherfassungAdresseFrombaskunByKuNr(kdNRATLAS2, basman_nr, basman_nl, ATLAS_SERVER_VERBINDUNG)
|
|
kdnr_tmp = s(1)
|
|
kunde_tmp = s(0)
|
|
|
|
End If
|
|
End If
|
|
End If
|
|
If intTyp = 1 Or intTyp = 2 Then
|
|
If IsNull(kdnr_tmp) And IsNull(kunde_tmp) Then
|
|
kunde_tmp = KDSQL.getATLASNacherfassungAdresseNCTS(basman_nr, basman_nl, zbant_beznr, intLfdNr, intPosNr, lngTyp, ATLAS_SERVER_VERBINDUNG)
|
|
End If
|
|
End If
|
|
If intTyp = 1 Or intTyp = 2 Then
|
|
If IsNull(kdnr_tmp) And IsNull(kunde_tmp) Then
|
|
If Not IsNull(veoant_ldvs) And Not Trim(veoant_ldvs) = "" Then
|
|
kunde_tmp = Trim(veoant_ldvs)
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
KUNDE_TXT = kunde_tmp
|
|
If IsNumeric(kdnr_tmp) AndAlso kdnr_tmp > 0 Then
|
|
KUNDE_KDNR = kdnr_tmp
|
|
End If
|
|
End Sub
|
|
Function getint(o) As Integer
|
|
Try
|
|
If o IsNot DBNull.Value AndAlso IsNumeric(o) Then Return CInt(o)
|
|
Catch ex As Exception : End Try
|
|
Return -1
|
|
End Function
|
|
Function getStr(o) As String
|
|
Try
|
|
If o IsNot DBNull.Value Then Return CStr(o)
|
|
Catch ex As Exception : End Try
|
|
Return ""
|
|
End Function
|
|
Function getWaehr(s) 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
|
|
Return KDSQL.getValueTxtBySql("SELECT TOP 1 isnull([Währungsschlüssel],-1) FROM [Währungstabelle] WHERE [Währungscode]='" & s & "'", "FMZOLL")
|
|
|
|
End Function
|
|
|
|
End Class |