neu
This commit is contained in:
@@ -98,12 +98,14 @@ Public Class cSendungen
|
||||
Property tblSnd_Vorpapier2_Pos As Object = Nothing
|
||||
Property tblSnd_Vorpapier3 As Object = Nothing
|
||||
Property tblSnd_Vorpapier3_Pos As Object = Nothing
|
||||
Property tblSnd_Frachtkosten As Object = Nothing
|
||||
|
||||
|
||||
Public saveSachbearbeiter As Boolean = False
|
||||
|
||||
Property ABRECHNUNG As New List(Of cSendungAbrechnung)
|
||||
Property HANDLING As New List(Of cSendHandling)
|
||||
Property VORKOSTEN As New List(Of cSendVorkosten)
|
||||
|
||||
'Dim cDatenbank As New cDatenbank
|
||||
|
||||
@@ -347,6 +349,7 @@ Public Class cSendungen
|
||||
Me.tblSnd_Vorpapier2_Pos = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorpapier2_Pos"), Nothing)
|
||||
Me.tblSnd_Vorpapier3 = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorpapier3"), Nothing)
|
||||
Me.tblSnd_Vorpapier3_Pos = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorpapier3_Pos"), Nothing)
|
||||
Me.tblSnd_Frachtkosten = SQL.checkNullReturnValue(dr.Item("tblSnd_Frachtkosten"), Nothing)
|
||||
|
||||
End If
|
||||
|
||||
@@ -432,6 +435,39 @@ Public Class cSendungen
|
||||
' Return Nothing
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD_VORKOSTEN()
|
||||
Try
|
||||
Me.VORKOSTEN.Clear()
|
||||
Dim conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()
|
||||
Using cmd2 As New SqlCommand("SELECT * FROM tblSendVorkosten WHERE sndvk_sendId=@sndvk_sendId ", conn)
|
||||
cmd2.Parameters.AddWithValue("@sndvk_sendId", Me.tblSnd_SendungID)
|
||||
Dim dr2 = cmd2.ExecuteReader()
|
||||
|
||||
While dr2.Read
|
||||
Dim a As New cSendVorkosten()
|
||||
|
||||
a.sndvk_LeistungsNr = SQL.checkNullReturnValue(dr2.Item("sndvk_LeistungsNr"), Nothing)
|
||||
a.sndvk_sendId = SQL.checkNullReturnValue(dr2.Item("sndvk_sendId"), Nothing)
|
||||
a.sndvk_LeistungsBez = SQL.checkNullReturnValue(dr2.Item("sndvk_LeistungsBez"), Nothing)
|
||||
a.sndvk_Firma = SQL.checkNullReturnValue(dr2.Item("sndvk_Firma"), Nothing)
|
||||
|
||||
a.sndvk_Preis = SQL.checkNullReturnValue(dr2.Item("sndvk_Preis"), 0)
|
||||
|
||||
Me.VORKOSTEN.Add(a)
|
||||
End While
|
||||
dr2.Close()
|
||||
End Using
|
||||
|
||||
conn.Close()
|
||||
'End Using
|
||||
'Return Nothing
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & " 'cSENDUNGEN'", System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
' Return Nothing
|
||||
End Sub
|
||||
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
@@ -527,6 +563,7 @@ Public Class cSendungen
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorpapier2_Pos", tblSnd_Vorpapier2_Pos))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorpapier3", tblSnd_Vorpapier3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorpapier3_Pos", tblSnd_Vorpapier3_Pos))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Frachtkosten", tblSnd_Frachtkosten))
|
||||
|
||||
|
||||
|
||||
@@ -608,6 +645,23 @@ Public Class cSendungen
|
||||
End Function
|
||||
|
||||
|
||||
Public Function SAVE_VORKOSTEN() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
' Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
SAVE_VORKOSTEN = False
|
||||
Dim sqlstr = " DELETE FROM tblSendVorkosten WHERE sndvk_sendId=" & Me.tblSnd_SendungID
|
||||
' MsgBox(sqlstr)
|
||||
If SQL.doSQL(sqlstr, "AVISO") Then
|
||||
SAVE_VORKOSTEN = True
|
||||
For Each a In VORKOSTEN
|
||||
a.sndvk_sendId = Me.tblSnd_SendungID
|
||||
If Not a.INSERT() Then SAVE_VORKOSTEN = False
|
||||
Next
|
||||
End If
|
||||
|
||||
' Return b
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function SET_SpedbuchEntry(tblSnd_SendungID As Integer, tblSnd_SpeditionsbuchEingetragen As Boolean) As String
|
||||
Try
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
@@ -620,6 +674,39 @@ Public Class cSendungen
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Public Function getNCTSAdress(Optional htmlOptimized As Boolean = False, Optional ansprechpartner As Boolean = True, Optional Bestimmungszollstelle As Boolean = True) As String
|
||||
Dim adresse = ""
|
||||
adresse &= If(Me.tblSnd_NCTSVerzollungsadresse, "") & vbNewLine
|
||||
adresse &= If(Me.NCTS_Verzollungsadresse_Strasse, "") & vbNewLine
|
||||
adresse &= If(Me.NCTS_Verzollungsadresse_Land, "") & " " & If(Me.NCTS_Verzollungsadresse_PLZ, "") & " " & If(Me.NCTS_Verzollungsadresse_Ort, "") & vbNewLine
|
||||
|
||||
If ansprechpartner Then adresse &= If(Me.NCTS_Verzollungsadresse_Ansprechpartner, "") & vbNewLine
|
||||
|
||||
If Bestimmungszollstelle And If(Me.NCTS_Bestimmungszollstelle, "") <> "" Then
|
||||
adresse &= SQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & Me.NCTS_Bestimmungszollstelle & "' ", "ATLAS")
|
||||
End If
|
||||
|
||||
If htmlOptimized Then adresse = adresse.Trim.Replace(vbNewLine, "<br/>")
|
||||
Return adresse.Trim
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getEmpfaengerAdress(Optional htmlOptimized As Boolean = False, Optional ansprechpartner As Boolean = False) As String
|
||||
If tblSnd_EmpfaengerKdNr > 0 Then
|
||||
Dim AD As New cAdressen(tblSnd_EmpfaengerKdNr)
|
||||
Dim adresse = ""
|
||||
adresse &= If(AD.Name_1, "") & If(AD.Name_2, "") & vbNewLine
|
||||
If If(AD.Straße, "") <> "" Then adresse &= If(AD.Straße, "") & vbNewLine
|
||||
adresse &= If(AD.LandKz, "") & " " & If(AD.PLZ, "").ToString.ToUpper.Replace("OHNE", "") & " " & If(AD.Ort, "")
|
||||
|
||||
If htmlOptimized Then adresse = adresse.Trim.Replace(vbNewLine, "<br/>")
|
||||
Return adresse.Trim
|
||||
Else
|
||||
Return tblSnd_Empfaenger
|
||||
End If
|
||||
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
Public Class cSendungAbrechnung
|
||||
|
||||
Reference in New Issue
Block a user