239 lines
16 KiB
VB.net
239 lines
16 KiB
VB.net
Imports System.Data.SqlClient
|
|
|
|
Module cATILLA_Speditionsbuch
|
|
Dim SPED As New List(Of cSpeditionsbuch)
|
|
|
|
Sub Main()
|
|
LOAD(CDate("01." & Now.Month & "." & Now.Year))
|
|
System.Console.WriteLine(SPED.Count)
|
|
|
|
For Each s In SPED
|
|
'INSERT(s)
|
|
Next
|
|
Threading.Thread.Sleep(3000)
|
|
End Sub
|
|
|
|
Public Sub LOAD(datum As Date)
|
|
Try
|
|
Using conn As SqlConnection = GetNewOpenConnectionFMZOLL()
|
|
Using cmd As New SqlCommand("SELECT * FROM Speditionsbuch WHERE FilialenNr=4801 and SB_Zeitstempel > '" & datum.ToShortDateString & " 00:00:00' and Bar=0 ", conn)
|
|
|
|
Dim dr = cmd.ExecuteReader()
|
|
While dr.Read
|
|
Dim s As New cSpeditionsbuch
|
|
s.FilialenNr = checkNullInteger(dr.Item("FilialenNr"))
|
|
s.AbfertigungsNr = checkNullInteger(dr.Item("AbfertigungsNr"))
|
|
s.UnterNr = checkNullInteger(dr.Item("UnterNr"))
|
|
s.Abfertigungsdatum = checkNullDateNothing(dr.Item("Abfertigungsdatum"))
|
|
s.Bar = checkNullBool(dr.Item("Bar"))
|
|
s.Fakturiert = checkNullBool(dr.Item("Fakturiert"))
|
|
s.BelegNr = checkNullStr(dr.Item("BelegNr"))
|
|
s.ErfassungsNr = checkNullStr(dr.Item("ErfassungsNr"))
|
|
s.LKW_Kennzeichen = checkNullStr(dr.Item("LKW Kennzeichen"))
|
|
' s.AvisiererKundenNr = checkNullReturnValue(dr.Item("AvisiererKundenNr"), Nothing)
|
|
' s.Avisierer = checkNullStr(dr.Item("Avisierer"))
|
|
s.AbsenderKundenNr = checkNullReturnValue(dr.Item("AbsenderKundenNr"), Nothing)
|
|
s.Absender = checkNullStr(dr.Item("Absender"))
|
|
s.AbsenderOffertenNr = checkNullInteger(dr.Item("AbsenderOffertenNr"))
|
|
s.EmpfängerKundenNr = checkNullReturnValue(dr.Item("EmpfängerKundenNr"), Nothing)
|
|
s.Empfänger = checkNullStr(dr.Item("Empfänger"))
|
|
s.EmpfängerOffertenNr = checkNullInteger(dr.Item("EmpfängerOffertenNr"))
|
|
s.VermittlerKundenNr = checkNullReturnValue(dr.Item("VermittlerKundenNr"), Nothing)
|
|
s.Vermittler = checkNullStr(dr.Item("Vermittler"))
|
|
s.VermittlerOffertenNr = checkNullInteger(dr.Item("VermittlerOffertenNr"))
|
|
s.FrachtführerKundenNr = checkNullReturnValue(dr.Item("FrachtführerKundenNr"), Nothing)
|
|
s.Frachtführer = checkNullStr(dr.Item("Frachtführer"))
|
|
s.AnzahlZA = checkNullIntegerZero(dr.Item("AnzahlZA"))
|
|
s.AnzahlZAFremd = checkNullIntegerZero(dr.Item("AnzahlZAFremd"))
|
|
s.AnzahlZnV = checkNullIntegerZero(dr.Item("AnzahlZnV"))
|
|
s.AnzahlZnVFremd = checkNullIntegerZero(dr.Item("AnzahlZnVFremd"))
|
|
s.AnzahlT1 = checkNullIntegerZero(dr.Item("AnzahlT1"))
|
|
s.AnzahlT2 = checkNullIntegerZero(dr.Item("AnzahlT2"))
|
|
s.AnzahlAE = checkNullStr(dr.Item("AnzahlAE"))
|
|
s.AnzahlCarnetTIR = checkNullIntegerZero(dr.Item("AnzahlCarnetTIR"))
|
|
s.AnzahlBarvorlagen = checkNullIntegerZero(dr.Item("AnzahlBarvorlagen"))
|
|
s.AnzahlSonstiges = checkNullIntegerZero(dr.Item("AnzahlSonstiges"))
|
|
s.AnzahlGrenzgebühren = checkNullIntegerZero(dr.Item("AnzahlGrenzgebühren"))
|
|
s.AvisUhrzeit = checkNullStr(dr.Item("AvisUhrzeit"))
|
|
s.Vermerk = checkNullStr(dr.Item("Vermerk"))
|
|
s.Bemerkungen = checkNullStr(dr.Item("Bemerkungen"))
|
|
s.Währungsschlüssel = checkNullInteger(dr.Item("Währungsschlüssel"))
|
|
s.Rechnungsbetrag = checkNulDbl(dr.Item("Rechnungsbetrag"))
|
|
s.Umrechnungskurs = checkNullInteger(dr.Item("Umrechnungskurs"))
|
|
s.Packstücke = checkNullStr(dr.Item("Packstücke"))
|
|
s.Rohmasse = checkNullInteger(dr.Item("Rohmasse"))
|
|
s.Zahlungsaufschub = checkNullStr(dr.Item("Zahlungsaufschub"))
|
|
s.Löschen = checkNullDateNothing(dr.Item("Löschen"))
|
|
s.Abfertigungsart = checkNullInteger(dr.Item("Abfertigungsart"))
|
|
s.Abfertigungsanzahl = checkNullIntegerZero(dr.Item("Abfertigungsanzahl"))
|
|
s.Barzahlungsbetrag = checkNulDbl(dr.Item("Barzahlungsbetrag"))
|
|
s.Sachbearbeiter = checkNullStr(dr.Item("Sachbearbeiter"))
|
|
s.Personalnummer = checkNullInteger(dr.Item("Personalnummer"))
|
|
' s.PersonalnummerQS = checkNullInteger(dr.Item("PersonalnummerQS"))
|
|
s.AtlasBezNrEZA = checkNullStr(dr.Item("AtlasBezNrEZA"))
|
|
s.AtlasBezNrNCTS = checkNullStr(dr.Item("AtlasBezNrNCTS"))
|
|
s.Versendungsland = checkNullStr(dr.Item("Versendungsland"))
|
|
s.SB_CMR = checkNullBool(dr.Item("SB_CMR"))
|
|
s.SB_CMRDatum = checkNullDateNothing(dr.Item("SB_CMRDatum"))
|
|
s.veoerz_basbtg = checkNulDbl(dr.Item("veoerz_basbtg"))
|
|
s.Zucker_MRN_Nr = checkNullStr(dr.Item("Zucker_MRN_Nr"))
|
|
s.Zucker_MRN_Datum = checkNullDateNothing(dr.Item("Zucker_MRN_Datum"))
|
|
s.Zucker_Aufschub = checkNullStr(dr.Item("Zucker_Aufschub"))
|
|
s.Zollsystem = checkNullStr(dr.Item("Zollsystem"))
|
|
s.Bestimmungszollstelle = checkNullStr(dr.Item("Bestimmungszollstelle"))
|
|
s.Bürgschaft = checkNullStr(dr.Item("Bürgschaft"))
|
|
s.Sicherheitsbetrag = checkNulDbl(dr.Item("Sicherheitsbetrag"))
|
|
s.SgutKompl = checkNullStr(dr.Item("SgutKompl"))
|
|
s.Bestimmungsland = checkNullStr(dr.Item("Bestimmungsland"))
|
|
s.EuFiskalEmpfänger = checkNullStr(dr.Item("EuFiskalEmpfänger"))
|
|
s.QKN = checkNullStr(dr.Item("QKN"))
|
|
s.EndempfängerKundenNr = checkNullReturnValue(dr.Item("EndempfängerKundenNr"), Nothing)
|
|
s.Endempfänger = checkNullStr(dr.Item("Endempfänger"))
|
|
s.SB_Zeitstempel = checkNullDateNothing(dr.Item("SB_Zeitstempel"))
|
|
SPED.Add(s)
|
|
End While
|
|
dr.Close()
|
|
End Using
|
|
End Using
|
|
'Return Nothing
|
|
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 Sub
|
|
Public Function GetNewOpenConnectionFMZOLL(Optional pooling As Boolean = True) As SqlConnection
|
|
Dim cn As New SqlConnection()
|
|
cn.ConnectionString = "Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=sa;Password=BmWr501956;pooling=false"
|
|
cn.Open()
|
|
Return cn
|
|
End Function
|
|
|
|
Public Function GetNewOpenConnectionATILLA(Optional pooling As Boolean = True) As SqlConnection
|
|
Dim cn As New SqlConnection()
|
|
cn.ConnectionString = "Data Source=D\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=sa;Password=BmWr501956;pooling=false"
|
|
cn.Open()
|
|
Return cn
|
|
End Function
|
|
|
|
Sub INSERT(s As cSpeditionsbuch)
|
|
Dim list As List(Of cSQLVariable)
|
|
|
|
Dim sql = " INSERT INTO [Speditionsbuch] ([FilialenNr],[AbfertigungsNr],[UnterNr],[Abfertigungsdatum],[Bar],[Fakturiert],[BelegNr],[ErfassungsNr],[LKW Kennzeichen],[AbsenderKundenNr],[Absender],[AbsenderOffertenNr],[EmpfängerKundenNr],[Empfänger],[EmpfängerOffertenNr],[VermittlerKundenNr],[Vermittler],[VermittlerOffertenNr],[FrachtführerKundenNr],[Frachtführer],[AnzahlZA],[AnzahlZAFremd],[AnzahlZnV],[AnzahlZnVFremd],[AnzahlT1],[AnzahlT2],[AnzahlAE],[AnzahlCarnetTIR],[AnzahlBarvorlagen],[AnzahlSonstiges],[AnzahlGrenzgebühren],[AvisUhrzeit],[Vermerk],[Bemerkungen],[Währungsschlüssel],[Rechnungsbetrag],[Umrechnungskurs],[Packstücke],[Rohmasse],[Zahlungsaufschub],[Löschen],[Abfertigungsart],[Abfertigungsanzahl],[Barzahlungsbetrag],[Sachbearbeiter],[Personalnummer],[AtlasBezNrEZA],[AtlasBezNrNCTS],[Versendungsland],[SB_CMR],[SB_CMRDatum],[veoerz_basbtg],[Zucker_MRN_Nr],[Zucker_MRN_Datum],[Zucker_Aufschub],[Zollsystem],[Bestimmungszollstelle],[Bürgschaft],[Sicherheitsbetrag],[SgutKompl]) " &
|
|
" VALUES(@FilialenNr,@AbfertigungsNr,@UnterNr,@Abfertigungsdatum,@Bar,@Fakturiert,@BelegNr,@ErfassungsNr,@LKW Kennzeichen,@AbsenderKundenNr,@Absender,@AbsenderOffertenNr,@EmpfängerKundenNr,@Empfänger,@EmpfängerOffertenNr,@VermittlerKundenNr,@Vermittler,@VermittlerOffertenNr,@FrachtführerKundenNr,@Frachtführer,@AnzahlZA,@AnzahlZAFremd,@AnzahlZnV,@AnzahlZnVFremd,@AnzahlT1,@AnzahlT2,@AnzahlAE,@AnzahlCarnetTIR,@AnzahlBarvorlagen,@AnzahlSonstiges,@AnzahlGrenzgebühren,@AvisUhrzeit,@Vermerk,@Bemerkungen,@Währungsschlüssel,@Rechnungsbetrag,@Umrechnungskurs,@Packstücke,@Rohmasse,@Zahlungsaufschub,@Löschen,@Abfertigungsart,@Abfertigungsanzahl,@Barzahlungsbetrag,@Sachbearbeiter,@Personalnummer,@AtlasBezNrEZA,@AtlasBezNrNCTS,@Versendungsland,@SB_CMR,@SB_CMRDatum,@veoerz_basbtg,@Zucker_MRN_Nr,@Zucker_MRN_Datum,@Zucker_Aufschub,@Zollsystem,@Bestimmungszollstelle,@Bürgschaft,@Sicherheitsbetrag,@SgutKompl) "
|
|
|
|
Try
|
|
Using conn As SqlConnection = GetNewOpenConnectionATILLA()
|
|
Using cmd As New SqlCommand(sql, conn)
|
|
|
|
' Dim dr = cmd.ExecuteReader()
|
|
|
|
cmd.Parameters.AddWithValue("@FilialenNr", s.FilialenNr)
|
|
cmd.Parameters.AddWithValue("@AbfertigungsNr", s.AbfertigungsNr)
|
|
cmd.Parameters.AddWithValue("@UnterNr", s.UnterNr)
|
|
cmd.Parameters.AddWithValue("@Abfertigungsdatum", s.Abfertigungsdatum)
|
|
cmd.Parameters.AddWithValue("@Bar", s.Bar)
|
|
cmd.Parameters.AddWithValue("@Fakturiert", s.Fakturiert)
|
|
cmd.Parameters.AddWithValue("@BelegNr", s.BelegNr)
|
|
cmd.Parameters.AddWithValue("@ErfassungsNr", s.ErfassungsNr)
|
|
cmd.Parameters.AddWithValue("@LKW Kennzeichen", s.LKW_Kennzeichen)
|
|
cmd.Parameters.AddWithValue("@AbsenderKundenNr", s.AbsenderKundenNr)
|
|
cmd.Parameters.AddWithValue("@Absender", s.Absender)
|
|
cmd.Parameters.AddWithValue("@AbsenderOffertenNr", s.AbsenderOffertenNr)
|
|
cmd.Parameters.AddWithValue("@EmpfängerKundenNr", s.EmpfängerKundenNr)
|
|
cmd.Parameters.AddWithValue("@Empfänger", s.Empfänger)
|
|
cmd.Parameters.AddWithValue("@EmpfängerOffertenNr", s.EmpfängerOffertenNr)
|
|
cmd.Parameters.AddWithValue("@VermittlerKundenNr", s.VermittlerKundenNr)
|
|
cmd.Parameters.AddWithValue("@Vermittler", s.Vermittler)
|
|
cmd.Parameters.AddWithValue("@VermittlerOffertenNr", s.VermittlerOffertenNr)
|
|
cmd.Parameters.AddWithValue("@FrachtführerKundenNr", s.FrachtführerKundenNr)
|
|
cmd.Parameters.AddWithValue("@Frachtführer", s.Frachtführer)
|
|
cmd.Parameters.AddWithValue("@AnzahlZA", s.AnzahlZA)
|
|
cmd.Parameters.AddWithValue("@AnzahlZAFremd", s.AnzahlZAFremd)
|
|
cmd.Parameters.AddWithValue("@AnzahlZnV", s.AnzahlZnV)
|
|
cmd.Parameters.AddWithValue("@AnzahlZnVFremd", s.AnzahlZnVFremd)
|
|
cmd.Parameters.AddWithValue("@AnzahlT1", s.AnzahlT1)
|
|
cmd.Parameters.AddWithValue("@AnzahlT2", s.AnzahlT2)
|
|
cmd.Parameters.AddWithValue("@AnzahlAE", s.AnzahlAE)
|
|
cmd.Parameters.AddWithValue("@AnzahlCarnetTIR", s.AnzahlCarnetTIR)
|
|
cmd.Parameters.AddWithValue("@AnzahlBarvorlagen", s.AnzahlBarvorlagen)
|
|
cmd.Parameters.AddWithValue("@AnzahlSonstiges", s.AnzahlSonstiges)
|
|
cmd.Parameters.AddWithValue("@AnzahlGrenzgebühren", s.AnzahlGrenzgebühren)
|
|
cmd.Parameters.AddWithValue("@AvisUhrzeit", s.AvisUhrzeit)
|
|
cmd.Parameters.AddWithValue("@Vermerk", s.Vermerk)
|
|
cmd.Parameters.AddWithValue("@Bemerkungen", s.Bemerkungen)
|
|
cmd.Parameters.AddWithValue("@Währungsschlüssel", s.Währungsschlüssel)
|
|
cmd.Parameters.AddWithValue("@Rechnungsbetrag", s.Rechnungsbetrag)
|
|
cmd.Parameters.AddWithValue("@Umrechnungskurs", s.Umrechnungskurs)
|
|
cmd.Parameters.AddWithValue("@Packstücke", s.Packstücke)
|
|
cmd.Parameters.AddWithValue("@Rohmasse", s.Rohmasse)
|
|
cmd.Parameters.AddWithValue("@Zahlungsaufschub", s.Zahlungsaufschub)
|
|
cmd.Parameters.AddWithValue("@Löschen", s.Löschen)
|
|
cmd.Parameters.AddWithValue("@Abfertigungsart", s.Abfertigungsart)
|
|
cmd.Parameters.AddWithValue("@Abfertigungsanzahl", s.Abfertigungsanzahl)
|
|
cmd.Parameters.AddWithValue("@Barzahlungsbetrag", s.Barzahlungsbetrag)
|
|
cmd.Parameters.AddWithValue("@Sachbearbeiter", s.Sachbearbeiter)
|
|
cmd.Parameters.AddWithValue("@Personalnummer", s.Personalnummer)
|
|
cmd.Parameters.AddWithValue("@AtlasBezNrEZA", s.AtlasBezNrEZA)
|
|
cmd.Parameters.AddWithValue("@AtlasBezNrNCTS", s.AtlasBezNrNCTS)
|
|
cmd.Parameters.AddWithValue("@Versendungsland", s.Versendungsland)
|
|
cmd.Parameters.AddWithValue("@SB_CMR", s.SB_CMR)
|
|
cmd.Parameters.AddWithValue("@SB_CMRDatum", s.SB_CMRDatum)
|
|
cmd.Parameters.AddWithValue("@veoerz_basbtg", s.veoerz_basbtg)
|
|
cmd.Parameters.AddWithValue("@Zucker_MRN_Nr", s.Zucker_MRN_Nr)
|
|
cmd.Parameters.AddWithValue("@Zucker_MRN_Datum", s.Zucker_MRN_Datum)
|
|
cmd.Parameters.AddWithValue("@Zucker_Aufschub", s.Zucker_Aufschub)
|
|
cmd.Parameters.AddWithValue("@Zollsystem", s.Zollsystem)
|
|
cmd.Parameters.AddWithValue("@Bestimmungszollstelle", s.Bestimmungszollstelle)
|
|
cmd.Parameters.AddWithValue("@Bürgschaft", s.Bürgschaft)
|
|
cmd.Parameters.AddWithValue("@Sicherheitsbetrag", s.Sicherheitsbetrag)
|
|
cmd.Parameters.AddWithValue("@SgutKompl", s.SgutKompl)
|
|
cmd.ExecuteNonQuery()
|
|
End Using
|
|
End Using
|
|
'Return Nothing
|
|
Catch ex As Exception
|
|
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
|
End Try
|
|
End Sub
|
|
|
|
Public Function checkNullStr(ByVal o As Object) As String
|
|
If o IsNot Nothing And o IsNot DBNull.Value Then Return CStr(o)
|
|
Return ""
|
|
End Function
|
|
Public Function checkNullInteger(ByVal o As Object) As Integer
|
|
If o IsNot Nothing And o IsNot DBNull.Value Then Return CInt(o)
|
|
Return -1
|
|
End Function
|
|
Public Function checkNullReturnValue(ByVal o As Object, ByVal returnValue As Object) As Object
|
|
If o IsNot Nothing And o IsNot DBNull.Value Then Return (o)
|
|
Return returnValue
|
|
End Function
|
|
|
|
Public Function checkNullIntegerZero(ByVal o As Object) As Integer
|
|
If o IsNot Nothing And o IsNot DBNull.Value Then Return CInt(o)
|
|
Return 0
|
|
End Function
|
|
Public Function checkNulDbl(ByVal o As Object) As Double
|
|
If o IsNot Nothing And o IsNot DBNull.Value Then Return CDbl(o)
|
|
Return -1
|
|
End Function
|
|
|
|
Public Function checkNullBool(ByVal o As Object) As Boolean
|
|
If o Is Nothing Or o Is DBNull.Value Then Return 0
|
|
Try
|
|
Return CBool(o)
|
|
Catch ex As Exception
|
|
End Try
|
|
Return 0
|
|
End Function
|
|
|
|
Public Function checkNullDateNothing(ByVal o As Object) As Object
|
|
If o Is DBNull.Value Then
|
|
Return Nothing
|
|
Else
|
|
Return CDate(o)
|
|
End If
|
|
End Function
|
|
|
|
End Module
|