Essensbestellungen Umbaut, Syska GU-Export für AMBAR -> VERAG, Speditionsbucharchiv
This commit is contained in:
@@ -418,7 +418,7 @@ Public Class cSpeditionsbuch
|
||||
|
||||
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", FilialenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", AbfertigungsNr))
|
||||
@@ -496,7 +496,7 @@ Public Class cSpeditionsbuch
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNr", KdAuftragsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNrAvisierer", KdAuftragsNrAvisierer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNrEmpfaenger", KdAuftragsNrEmpfaenger))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNrFrachtfuehrer", KdAuftragsNrFrachtfuehrer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNrFrachtfuehrer", KdAuftragsNrFrachtfuehrer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_Zeitstempel", SB_Zeitstempel))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NCTS_Verzollungsadresse", NCTS_Verzollungsadresse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NCTS_VerzollungsadresseKdNr", NCTS_VerzollungsadresseKdNr))
|
||||
@@ -888,4 +888,266 @@ Public Class cEndEmpfaener
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Public Class cSpeditionsbucharchiv
|
||||
|
||||
Property FilialenNr As Integer = -1
|
||||
Property AbfertigungsNr As Integer = -1
|
||||
Property UnterNr As Integer = -1
|
||||
Property Abfertigungsdatum As Object = CDate(Now.ToShortDateString)
|
||||
Property Bar As Boolean = False
|
||||
Property Fakturiert As Boolean = False
|
||||
Property BelegNr As String = ""
|
||||
Property ErfassungsNr As String = ""
|
||||
Property LKW_Kennzeichen As String = ""
|
||||
|
||||
Property AvisiererKundenNr As Object = Nothing
|
||||
|
||||
Public Avisierer As String = ""
|
||||
Property AbsenderKundenNr As Object = Nothing
|
||||
|
||||
Public Absender As String = ""
|
||||
Property AbsenderOffertenNr As Object = Nothing
|
||||
Property EmpfängerKundenNr As Object = Nothing
|
||||
Public Empfänger As String = ""
|
||||
Property EmpfängerOffertenNr As Object = Nothing
|
||||
Property VermittlerKundenNr As Object = Nothing
|
||||
|
||||
Public Vermittler As String = ""
|
||||
Property VermittlerOffertenNr As Object = Nothing
|
||||
Property FrachtführerKundenNr As Object = Nothing
|
||||
|
||||
Public Frachtführer As String = ""
|
||||
|
||||
|
||||
Property AnzahlZA As Integer = 0
|
||||
Property AnzahlZAFremd As Integer = 0
|
||||
Property AnzahlZnV As Integer = 0
|
||||
Property AnzahlZnVFremd As Integer = 0
|
||||
Property AnzahlT1 As Integer = 0
|
||||
Property AnzahlT2 As Integer = 0
|
||||
Property AnzahlAE As Integer = 0
|
||||
Property AnzahlCarnetTIR As Integer = 0
|
||||
Property AnzahlBarvorlagen As Integer = 0
|
||||
Property AnzahlSonstiges As Integer = 0
|
||||
Property AnzahlGrenzgebühren As Integer = 0
|
||||
Property AvisUhrzeit As String = ""
|
||||
Property Vermerk As String = ""
|
||||
Property Bemerkungen As String = ""
|
||||
Property Währungsschlüssel As Object = Nothing 'int=-1
|
||||
Property Rechnungsbetrag As Object = Nothing 'dbl=0
|
||||
Property Umrechnungskurs As Object = CDbl(1) 'dbl=1
|
||||
Property Packstücke As String = ""
|
||||
Property Packstücke_Zoll As String = ""
|
||||
Property Rohmasse As Object = Nothing 'int=0
|
||||
Property Zahlungsaufschub As String = ""
|
||||
Property Löschen As Object = Nothing
|
||||
Property Abfertigungsart As Object = Nothing
|
||||
Property Abfertigungsanzahl As Integer = 0
|
||||
Property AbfertigungsanzahlPos As Object = Nothing
|
||||
Property Barzahlungsbetrag As Double = 0
|
||||
|
||||
<VBFixedString(15)> Public Sachbearbeiter As String = ""
|
||||
Property Personalnummer As Object = Nothing 'int=-1
|
||||
Property PersonalnummerQS As Object = Nothing 'int=-1
|
||||
Property AtlasBezNrEZA As String = ""
|
||||
Property AtlasBezNrNCTS As String = ""
|
||||
Property AtlasBezNrAES As String = ""
|
||||
Property Versendungsland As String = ""
|
||||
Property SB_CMR As Boolean = False
|
||||
Property SB_CMRDatum As Object = Nothing
|
||||
Property SB_CMRNr As Object = Nothing
|
||||
Property veoerz_basbtg As Double = 0
|
||||
Property Zucker_MRN_Nr As Object = Nothing
|
||||
Property Zucker_MRN_Datum As Object = Nothing
|
||||
Property Zucker_Aufschub As Object = Nothing
|
||||
Property Zollsystem As String = Nothing
|
||||
Property Bestimmungszollstelle As String = ""
|
||||
Property Bürgschaft As String = ""
|
||||
Property Sicherheitsbetrag As Double = 0
|
||||
Property SgutKompl As Object = Nothing
|
||||
Property Bestimmungsland As String = ""
|
||||
Property EuFiskalEmpfänger As String = ""
|
||||
Property QKN As String = ""
|
||||
Property EndempfängerKundenNr As Object = Nothing
|
||||
|
||||
Public Endempfänger As String = ""
|
||||
|
||||
Property AvisoID As Object = Nothing
|
||||
Property SendungID As Object = Nothing
|
||||
Property Grenzstelle As Object = Nothing
|
||||
|
||||
|
||||
Property KdAuftragsNr As Object = Nothing
|
||||
Property KdAuftragsNrAvisierer As Object = Nothing
|
||||
Property KdAuftragsNrEmpfaenger As Object = Nothing
|
||||
Property KdAuftragsNrFrachtfuehrer As Object = Nothing
|
||||
Property SB_Zeitstempel As Object = Now
|
||||
|
||||
Property NCTS_Verzollungsadresse As Object = Nothing
|
||||
Property NCTS_VerzollungsadresseKdNr As Object = Nothing
|
||||
Property AuftraggeberBetragKassiert As Object = Nothing
|
||||
|
||||
Property Lieferantenrechnung As Object = Nothing
|
||||
Property DokumentId_Steuerbeleg As Object = Nothing
|
||||
Property DokumentId_Mitteilung As Object = Nothing
|
||||
Property DokumentId_VBD As Object = Nothing
|
||||
Property DokumentId_ABD As Object = Nothing
|
||||
Property DokumentId_AVM As Object = Nothing
|
||||
Property FilialenNrHandling As Object = Nothing
|
||||
Property HandlingZuKassieren As Double = 0
|
||||
|
||||
Property FilialenNrAbklaerung As Object = Nothing
|
||||
Property PersonalnummerAbklTR As Object = Nothing
|
||||
Property UK_EIDR_ausstehend As Boolean = False
|
||||
Property Zollstelle As Object = Nothing
|
||||
Property Zollsystem_Land As Object = Nothing
|
||||
Property geloescht_von As Object = Nothing
|
||||
Property geloescht_am As Object = Nothing
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Public Sub New()
|
||||
End Sub
|
||||
|
||||
Property hasEntry As Boolean = False
|
||||
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", FilialenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", AbfertigungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UnterNr", UnterNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsdatum", Abfertigungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bar", Bar))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fakturiert", Fakturiert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BelegNr", BelegNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ErfassungsNr", ErfassungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LKW Kennzeichen", LKW_Kennzeichen, "LKWKennzeichen"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisiererKundenNr", AvisiererKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Avisierer", Avisierer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderKundenNr", AbsenderKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Absender", Absender))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderOffertenNr", AbsenderOffertenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerKundenNr", EmpfängerKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Empfänger", Empfänger))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerOffertenNr", EmpfängerOffertenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerKundenNr", VermittlerKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vermittler", Vermittler))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerOffertenNr", VermittlerOffertenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FrachtführerKundenNr", FrachtführerKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Frachtführer", Frachtführer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlZA", AnzahlZA))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlZAFremd", AnzahlZAFremd))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlZnV", AnzahlZnV))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlZnVFremd", AnzahlZnVFremd))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlT1", AnzahlT1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlT2", AnzahlT2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlAE", AnzahlAE))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlCarnetTIR", AnzahlCarnetTIR))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlBarvorlagen", AnzahlBarvorlagen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlSonstiges", AnzahlSonstiges))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlGrenzgebühren", AnzahlGrenzgebühren))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisUhrzeit", AvisUhrzeit))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vermerk", Vermerk))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bemerkungen", Bemerkungen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Währungsschlüssel", Währungsschlüssel))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungsbetrag", Rechnungsbetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Umrechnungskurs", Umrechnungskurs))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Packstücke", Packstücke))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Packstücke_Zoll", Packstücke_Zoll))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rohmasse", Rohmasse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zahlungsaufschub", Zahlungsaufschub))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Löschen", Löschen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsart", Abfertigungsart))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsanzahl", Abfertigungsanzahl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsanzahlPos", AbfertigungsanzahlPos))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Barzahlungsbetrag", Barzahlungsbetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Personalnummer", Personalnummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PersonalnummerQS", PersonalnummerQS))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AtlasBezNrEZA", AtlasBezNrEZA))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AtlasBezNrNCTS", AtlasBezNrNCTS))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AtlasBezNrAES", AtlasBezNrAES))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Versendungsland", Versendungsland))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_CMR", SB_CMR))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_CMRDatum", SB_CMRDatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("veoerz_basbtg", veoerz_basbtg))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zucker_MRN_Nr", Zucker_MRN_Nr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zucker_MRN_Datum", Zucker_MRN_Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zucker_Aufschub", Zucker_Aufschub))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zollsystem", Zollsystem))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bestimmungszollstelle", Bestimmungszollstelle))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bürgschaft", Bürgschaft))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sicherheitsbetrag", Sicherheitsbetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SgutKompl", SgutKompl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bestimmungsland", Bestimmungsland))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EuFiskalEmpfänger", EuFiskalEmpfänger))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("QKN", QKN))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EndempfängerKundenNr", EndempfängerKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Endempfänger", Endempfänger))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisoID", AvisoID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SendungID", SendungID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNr", KdAuftragsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNrAvisierer", KdAuftragsNrAvisierer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNrEmpfaenger", KdAuftragsNrEmpfaenger))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNrFrachtfuehrer", KdAuftragsNrFrachtfuehrer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_Zeitstempel", SB_Zeitstempel))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NCTS_Verzollungsadresse", NCTS_Verzollungsadresse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NCTS_VerzollungsadresseKdNr", NCTS_VerzollungsadresseKdNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Grenzstelle", Grenzstelle))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AuftraggeberBetragKassiert", AuftraggeberBetragKassiert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lieferantenrechnung", Lieferantenrechnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumentId_Steuerbeleg", DokumentId_Steuerbeleg))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumentId_Mitteilung", DokumentId_Mitteilung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumentId_VBD", DokumentId_VBD))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumentId_ABD", DokumentId_ABD))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumentId_AVM", DokumentId_AVM))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNrHandling", FilialenNrHandling))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNrAbklaerung", FilialenNrAbklaerung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("HandlingZuKassieren", HandlingZuKassieren))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PersonalnummerAbklTR", PersonalnummerAbklTR))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UK_EIDR_ausstehend", UK_EIDR_ausstehend))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zollstelle", Zollstelle))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zollsystem_Land", Zollsystem_Land))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_CMRNr", SB_CMRNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("geloescht_am", geloescht_am))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("geloescht_von", geloescht_von))
|
||||
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO [tblSpeditionsbucharchiv] (" & str & ") VALUES(" & values & ") ")
|
||||
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 ""
|
||||
End Function
|
||||
|
||||
Public Function SAVE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
' MsgBox(getUpdateCmd())
|
||||
Dim sqlstr = "BEGIN TRAN BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
If SQL.doSQLVarList(sqlstr, "FMZOLL", , list) Then
|
||||
Return True
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user