713 lines
38 KiB
VB.net
713 lines
38 KiB
VB.net
Imports System.Reflection
|
|
|
|
Public Class cDispoAuftraege
|
|
Property atr_id As Integer = -1
|
|
Property atr_frachtpos As Object = Nothing
|
|
Property atr_datum As Object = Nothing
|
|
Property atr_speditionsbuchNr As Object = Nothing
|
|
Property atr_frachtf_id As Object = Nothing
|
|
Property atr_ladest_id As Object = Nothing
|
|
Property atr_entladest_id As Object = Nothing
|
|
Property atr_auftr_id As Object = Nothing
|
|
Property atr_trans_id As Object = Nothing
|
|
Property atr_frachtf_firma As Object = Nothing
|
|
Property atr_frachtf_str As Object = Nothing
|
|
Property atr_frachtf_strnr As Object = Nothing
|
|
Property atr_frachtf_land As Object = Nothing
|
|
Property atr_frachtf_plz As Object = Nothing
|
|
Property atr_frachtf_ort As Object = Nothing
|
|
Property atr_frachtf_anspr As Object = Nothing
|
|
Property atr_ladest_firma As Object = Nothing
|
|
Property atr_ladest_str As Object = Nothing
|
|
Property atr_ladest_strnr As Object = Nothing
|
|
Property atr_ladest_land As Object = Nothing
|
|
Property atr_ladest_plz As Object = Nothing
|
|
Property atr_ladest_ort As Object = Nothing
|
|
Property atr_ladest_anspr As Object = Nothing
|
|
Property atr_ladest_termin As Object = Nothing
|
|
Property atr_ladest_terminDat As Object = Nothing
|
|
Property atr_ladest_terminVon As Object = Nothing
|
|
Property atr_ladest_terminBis As Object = Nothing
|
|
Property atr_ladest_isRefNr As Object = Nothing
|
|
Property atr_ladest_refNr As Object = Nothing
|
|
Property atr_entladest_firma As Object = Nothing
|
|
Property atr_entladest_str As Object = Nothing
|
|
Property atr_entladest_strnr As Object = Nothing
|
|
Property atr_entladest_land As Object = Nothing
|
|
Property atr_entladest_plz As Object = Nothing
|
|
Property atr_entladest_ort As Object = Nothing
|
|
Property atr_entladest_anspr As Object = Nothing
|
|
Property atr_entladest_termin As Object = Nothing
|
|
Property atr_entladest_terminDat As Object = Nothing
|
|
Property atr_entladest_terminVon As Object = Nothing
|
|
Property atr_entladest_terminBis As Object = Nothing
|
|
Property atr_auftr_firma As Object = Nothing
|
|
Property atr_auftr_str As Object = Nothing
|
|
Property atr_auftr_strnr As Object = Nothing
|
|
Property atr_auftr_land As Object = Nothing
|
|
Property atr_auftr_plz As Object = Nothing
|
|
Property atr_auftr_ort As Object = Nothing
|
|
Property atr_auftr_anspr As Object = Nothing
|
|
Property atr_trans_firma As Object = Nothing
|
|
Property atr_trans_str As Object = Nothing
|
|
Property atr_trans_strnr As Object = Nothing
|
|
Property atr_trans_land As Object = Nothing
|
|
Property atr_trans_plz As Object = Nothing
|
|
Property atr_trans_ort As Object = Nothing
|
|
Property atr_trans_anspr As Object = Nothing
|
|
Property atr_frachtIsTrans As Object = Nothing
|
|
Property atr_lkwKz As Object = Nothing
|
|
Property atr_lkwArt As Object = Nothing
|
|
Property atr_lkwNutzlast As Object = Nothing
|
|
Property atr_anhKz As Object = Nothing
|
|
Property atr_anhNutzlast As Object = Nothing
|
|
Property atr_bemerkung As Object = Nothing
|
|
Property atr_frachtkosten As Object = Nothing
|
|
Property atr_gefahrengut As String = ""
|
|
Property atr_abliefernachweis As Object = Nothing
|
|
Property cmr_ausl_land As Object = Nothing
|
|
Property cmr_ausl_ort As Object = Nothing
|
|
Property cmr_beigefDok As Object = Nothing
|
|
Property cmr_anwAbs As Object = Nothing
|
|
Property cmr_rueckerst As Object = Nothing
|
|
Property cmr_frZahlanwFrei As Object = Nothing
|
|
Property cmr_frZahlanwUnfrei As Object = Nothing
|
|
Property cmr_besVereinb As Object = Nothing
|
|
Property cmr_ausgefIn As Object = Nothing
|
|
Property cmr_uebergabe_land As Object = Nothing
|
|
Property cmr_uebergabe_ort As Object = Nothing
|
|
Property cmr_uebergabe_datum As Object = Nothing
|
|
Property cmr_vorbehFrachtf As Object = Nothing
|
|
Property bh_mon As Object = Nothing
|
|
Property bh_unterKennz_1 As Object = Nothing
|
|
Property bh_unterKennz_bis_1 As Object = Nothing
|
|
Property bh_unterKennz_kosten_1 As Object = Nothing
|
|
Property bh_unterKennz_2 As Object = Nothing
|
|
Property bh_unterKennz_bis_2 As Object = Nothing
|
|
Property bh_unterKennz_kosten_2 As Object = Nothing
|
|
Property bh_unterKennz_3 As Object = Nothing
|
|
Property bh_unterKennz_bis_3 As Object = Nothing
|
|
Property bh_unterKennz_kosten_3 As Object = Nothing
|
|
Property bh_unterKennz_4 As Object = Nothing
|
|
Property bh_unterKennz_bis_4 As Object = Nothing
|
|
Property bh_unterKennz_kosten_4 As Object = Nothing
|
|
Property bh_vermerke As Object = Nothing
|
|
Property atr_notes As Object = Nothing
|
|
Property atr_altladest_firma As Object = Nothing
|
|
Property atr_altladest_str As Object = Nothing
|
|
Property atr_altladest_strnr As Object = Nothing
|
|
Property atr_altladest_land As Object = Nothing
|
|
Property atr_altladest_plz As Object = Nothing
|
|
Property atr_altladest_ort As Object = Nothing
|
|
Property atr_altladest_anspr As Object = Nothing
|
|
Property atr_altladest_id As Object = Nothing
|
|
Property atr_hasaltladest As Object = Nothing
|
|
Property atr_verzollungsadresse As Object = Nothing
|
|
|
|
|
|
Property atr_absender_firma As Object = Nothing
|
|
Property atr_absender_str As Object = Nothing
|
|
Property atr_absender_strnr As Object = Nothing
|
|
Property atr_absender_land As Object = Nothing
|
|
Property atr_absender_plz As Object = Nothing
|
|
Property atr_absender_ort As Object = Nothing
|
|
Property atr_absender_anspr As Object = Nothing
|
|
Property atr_empfaenger_firma As Object = Nothing
|
|
Property atr_empfaenger_str As Object = Nothing
|
|
Property atr_empfaenger_strnr As Object = Nothing
|
|
Property atr_empfaenger_land As Object = Nothing
|
|
Property atr_empfaenger_plz As Object = Nothing
|
|
Property atr_empfaenger_ort As Object = Nothing
|
|
Property atr_empfaenger_anspr As Object = Nothing
|
|
Property atr_frachtfAb_firma As Object = Nothing
|
|
Property atr_frachtfAb_str As Object = Nothing
|
|
Property atr_frachtfAb_strnr As Object = Nothing
|
|
Property atr_frachtfAb_land As Object = Nothing
|
|
Property atr_frachtfAb_plz As Object = Nothing
|
|
Property atr_frachtfAb_ort As Object = Nothing
|
|
Property atr_frachtfAb_anspr As Object = Nothing
|
|
Property atr_frachtfAb_lkwKz As Object = Nothing
|
|
Property atr_frachtfAb_lkwArt As Object = Nothing
|
|
Property atr_frachtfAb_lkwNutzlast As Object = Nothing
|
|
Property atr_frachtfAb_anhKz As Object = Nothing
|
|
Property atr_frachtfAb_anhNutzlast As Object = Nothing
|
|
Property atr_FilialenNr As Object = Nothing
|
|
Property atr_AuftragsArt As String = "TRANSPORT"
|
|
|
|
|
|
|
|
Property atr_frachtf_tatKosten As Object = Nothing
|
|
Property atr_frachtfAb_tatKosten As Object = Nothing
|
|
Property atr_entladung As Object = Nothing
|
|
Property atr_beladung As Object = Nothing
|
|
Property atr_frachtf_Kdnr As Object = Nothing
|
|
Property atr_ladest_Kdnr As Object = Nothing
|
|
Property atr_entladest_Kdnr As Object = Nothing
|
|
Property atr_auftr_Kdnr As Object = Nothing
|
|
Property atr_trans_Kdnr As Object = Nothing
|
|
Property atr_absender_id As Object = Nothing
|
|
Property atr_empfaenger_id As Object = Nothing
|
|
Property atr_absender_Kdnr As Object = Nothing
|
|
Property atr_empfaenger_Kdnr As Object = Nothing
|
|
Property atr_frachtfAb_id As Object = Nothing
|
|
Property atr_frachtfAb_Kdnr As Object = Nothing
|
|
Property atr_altladest_Kdnr As Object = Nothing
|
|
Property atr_RgRefNr As Object = Nothing
|
|
Property atr_TransportauftragArt As Object = Nothing
|
|
|
|
Property avisolade As String() = Nothing
|
|
Property avisoentlade As String() = Nothing
|
|
Property oezlade As String = ""
|
|
Property oezentlade As String = ""
|
|
|
|
Property atr_tripNr As String = ""
|
|
Property atr_tripStopNr As Integer = -1
|
|
|
|
Property atr_copyfrom As Integer = -1
|
|
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
|
|
|
|
|
|
|
|
Property BH_unternkennz As List(Of cUnternKennz)
|
|
Property BH_rechnungen As New List(Of cBuchhaltungRechnung)
|
|
|
|
Property LADUNGEN As New List(Of cDispoLadungen)
|
|
|
|
Private DISPO As New cOptionenDAL
|
|
|
|
Sub New()
|
|
End Sub
|
|
|
|
|
|
Sub New(id)
|
|
Me.atr_id = id
|
|
LOAD()
|
|
End Sub
|
|
|
|
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("atr_id", atr_id, , True, True))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_frachtpos", atr_frachtpos))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_datum", atr_datum))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_speditionsbuchNr", atr_speditionsbuchNr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_frachtf_id", atr_frachtf_id))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_ladest_id", atr_ladest_id))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_entladest_id", atr_entladest_id))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_auftr_id", atr_auftr_id))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_trans_id", atr_trans_id))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_frachtf_firma", atr_frachtf_firma))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_frachtf_str", atr_frachtf_str))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_frachtf_strnr", atr_frachtf_strnr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_frachtf_land", atr_frachtf_land))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_frachtf_plz", atr_frachtf_plz))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_frachtf_ort", atr_frachtf_ort))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_frachtf_anspr", atr_frachtf_anspr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_ladest_firma", atr_ladest_firma))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_ladest_str", atr_ladest_str))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_ladest_strnr", atr_ladest_strnr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_ladest_land", atr_ladest_land))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_ladest_plz", atr_ladest_plz))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_ladest_ort", atr_ladest_ort))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_ladest_anspr", atr_ladest_anspr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_ladest_termin", atr_ladest_termin))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_ladest_terminDat", atr_ladest_terminDat))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_ladest_terminVon", atr_ladest_terminVon))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_ladest_terminBis", atr_ladest_terminBis))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_ladest_isRefNr", atr_ladest_isRefNr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_ladest_refNr", atr_ladest_refNr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_entladest_firma", atr_entladest_firma))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_entladest_str", atr_entladest_str))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_entladest_strnr", atr_entladest_strnr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_entladest_land", atr_entladest_land))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_entladest_plz", atr_entladest_plz))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_entladest_ort", atr_entladest_ort))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_entladest_anspr", atr_entladest_anspr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_entladest_termin", atr_entladest_termin))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_entladest_terminDat", atr_entladest_terminDat))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_entladest_terminVon", atr_entladest_terminVon))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_entladest_terminBis", atr_entladest_terminBis))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_auftr_firma", atr_auftr_firma))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_auftr_str", atr_auftr_str))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_auftr_strnr", atr_auftr_strnr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_auftr_land", atr_auftr_land))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_auftr_plz", atr_auftr_plz))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_auftr_ort", atr_auftr_ort))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_auftr_anspr", atr_auftr_anspr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_trans_firma", atr_trans_firma))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_trans_str", atr_trans_str))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_trans_strnr", atr_trans_strnr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_trans_land", atr_trans_land))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_trans_plz", atr_trans_plz))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_trans_ort", atr_trans_ort))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_trans_anspr", atr_trans_anspr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_frachtIsTrans", atr_frachtIsTrans))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_lkwKz", atr_lkwKz))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_lkwArt", atr_lkwArt))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_lkwNutzlast", atr_lkwNutzlast))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_anhKz", atr_anhKz))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_anhNutzlast", atr_anhNutzlast))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_bemerkung", atr_bemerkung))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_frachtkosten", atr_frachtkosten))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_gefahrengut", atr_gefahrengut))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_abliefernachweis", atr_abliefernachweis))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("cmr_ausl_land", cmr_ausl_land))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("cmr_ausl_ort", cmr_ausl_ort))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("cmr_beigefDok", cmr_beigefDok))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("cmr_anwAbs", cmr_anwAbs))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("cmr_rueckerst", cmr_rueckerst))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("cmr_frZahlanwFrei", cmr_frZahlanwFrei))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("cmr_frZahlanwUnfrei", cmr_frZahlanwUnfrei))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("cmr_besVereinb", cmr_besVereinb))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("cmr_ausgefIn", cmr_ausgefIn))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("cmr_uebergabe_land", cmr_uebergabe_land))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("cmr_uebergabe_ort", cmr_uebergabe_ort))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("cmr_uebergabe_datum", cmr_uebergabe_datum))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("cmr_vorbehFrachtf", cmr_vorbehFrachtf))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bh_mon", bh_mon))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bh_unterKennz_1", bh_unterKennz_1))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bh_unterKennz_bis_1", bh_unterKennz_bis_1))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bh_unterKennz_kosten_1", bh_unterKennz_kosten_1))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bh_unterKennz_2", bh_unterKennz_2))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bh_unterKennz_bis_2", bh_unterKennz_bis_2))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bh_unterKennz_kosten_2", bh_unterKennz_kosten_2))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bh_unterKennz_3", bh_unterKennz_3))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bh_unterKennz_bis_3", bh_unterKennz_bis_3))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bh_unterKennz_kosten_3", bh_unterKennz_kosten_3))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bh_unterKennz_4", bh_unterKennz_4))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bh_unterKennz_bis_4", bh_unterKennz_bis_4))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bh_unterKennz_kosten_4", bh_unterKennz_kosten_4))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bh_vermerke", bh_vermerke))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_notes", atr_notes))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_altladest_firma", atr_altladest_firma))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_altladest_str", atr_altladest_str))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_altladest_strnr", atr_altladest_strnr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_altladest_land", atr_altladest_land))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_altladest_plz", atr_altladest_plz))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_altladest_ort", atr_altladest_ort))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_altladest_anspr", atr_altladest_anspr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_altladest_id", atr_altladest_id))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_hasaltladest", atr_hasaltladest))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_verzollungsadresse", atr_verzollungsadresse))
|
|
|
|
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_absender_firma", atr_absender_firma))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_absender_str", atr_absender_str))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_absender_strnr", atr_absender_strnr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_absender_land", atr_absender_land))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_absender_plz", atr_absender_plz))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_absender_ort", atr_absender_ort))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_absender_anspr", atr_absender_anspr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_empfaenger_firma", atr_empfaenger_firma))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_empfaenger_str", atr_empfaenger_str))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_empfaenger_strnr", atr_empfaenger_strnr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_empfaenger_land", atr_empfaenger_land))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_empfaenger_plz", atr_empfaenger_plz))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_empfaenger_ort", atr_empfaenger_ort))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_empfaenger_anspr", atr_empfaenger_anspr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_frachtfAb_firma", atr_frachtfAb_firma))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_frachtfAb_str", atr_frachtfAb_str))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_frachtfAb_strnr", atr_frachtfAb_strnr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_frachtfAb_land", atr_frachtfAb_land))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_frachtfAb_plz", atr_frachtfAb_plz))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_frachtfAb_ort", atr_frachtfAb_ort))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_frachtfAb_anspr", atr_frachtfAb_anspr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_frachtfAb_lkwKz", atr_frachtfAb_lkwKz))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_frachtfAb_lkwArt", atr_frachtfAb_lkwArt))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_frachtfAb_lkwNutzlast", atr_frachtfAb_lkwNutzlast))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_frachtfAb_anhKz", atr_frachtfAb_anhKz))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_frachtfAb_anhNutzlast", atr_frachtfAb_anhNutzlast))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_FilialenNr", atr_FilialenNr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_AuftragsArt", atr_AuftragsArt))
|
|
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_frachtf_tatKosten", atr_frachtf_tatKosten))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_frachtfAb_tatKosten", atr_frachtfAb_tatKosten))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_entladung", atr_entladung))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_beladung", atr_beladung))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_frachtf_Kdnr", atr_frachtf_Kdnr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_ladest_Kdnr", atr_ladest_Kdnr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_entladest_Kdnr", atr_entladest_Kdnr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_auftr_Kdnr", atr_auftr_Kdnr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_trans_Kdnr", atr_trans_Kdnr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_absender_id", atr_absender_id))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_empfaenger_id", atr_empfaenger_id))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_absender_Kdnr", atr_absender_Kdnr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_empfaenger_Kdnr", atr_empfaenger_Kdnr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_frachtfAb_id", atr_frachtfAb_id))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_frachtfAb_Kdnr", atr_frachtfAb_Kdnr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_altladest_Kdnr", atr_altladest_Kdnr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_RgRefNr", atr_RgRefNr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_TransportauftragArt", atr_TransportauftragArt))
|
|
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_tripNr", atr_tripNr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_tripStopNr", atr_tripStopNr))
|
|
|
|
|
|
Return list
|
|
End Function
|
|
|
|
|
|
|
|
Public Function SAVE(Optional saveAll = True) As Boolean
|
|
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
|
|
|
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblAuftraege WITH(updlock,serializable) WHERE atr_id=@atr_id) " &
|
|
" BEGIN " & getUpdateCmd() & " END " &
|
|
" Else " &
|
|
" BEGIN " & getInsertCmd() & " END " &
|
|
" commit tran "
|
|
atr_id = SQL.doSQLVarListID(atr_id, sqlstr, "DISPO", , list)
|
|
If atr_id > 0 Then
|
|
If saveAll Then SAVE_BHRG() : SAVE_LADUNGEN()
|
|
Return True
|
|
Else
|
|
Return False
|
|
End If
|
|
End Function
|
|
|
|
Public Function LoadOeffnungszeiten()
|
|
If IsNumeric(atr_ladest_id) Then
|
|
Dim o As cOeffnungszeiten = DISPO.getOeffnungszeitenByKdId(atr_ladest_id)
|
|
Dim o_str As String = ""
|
|
Dim vorh As Boolean = False
|
|
If Not o Is Nothing Then
|
|
o_str = "Öffungszeiten: " & vbCrLf
|
|
If Not o.oz_montag_closed Then o_str &= "Mo: " & getOzStr("Mo", o) : vorh = True
|
|
o_str &= vbNewLine
|
|
If Not o.oz_dienstag_closed Then o_str &= "Di: " & getOzStr("Di", o) : vorh = True
|
|
o_str &= vbNewLine
|
|
If Not o.oz_mittoch_closed Then o_str &= "Mi: " & getOzStr("Mi", o) : vorh = True
|
|
o_str &= vbNewLine
|
|
If Not o.oz_donnerstag_closed Then o_str &= "Do: " & getOzStr("Do", o) : vorh = True
|
|
o_str &= vbNewLine
|
|
If Not o.oz_freitag_closed Then o_str &= "Fr: " & getOzStr("Fr", o) : vorh = True
|
|
o_str &= vbNewLine
|
|
If Not o.oz_samstag_closed Then o_str &= "Sa: " & getOzStr("Sa", o) : vorh = True
|
|
o_str &= vbNewLine
|
|
If Not o.oz_sonntag_closed Then o_str &= "So: " & getOzStr("So", o) : vorh = True
|
|
If vorh Then oezlade = o_str
|
|
End If
|
|
End If
|
|
If IsNumeric(atr_entladest_id) Then
|
|
Dim o As cOeffnungszeiten = DISPO.getOeffnungszeitenByKdId(atr_entladest_id)
|
|
Dim o_str As String = ""
|
|
Dim vorh As Boolean = False
|
|
'MsgBox(auftrag.atr_entladest_id)
|
|
If Not o Is Nothing Then
|
|
o_str = "Öffungszeiten: " & vbCrLf
|
|
If Not o.oz_montag_closed Then o_str &= "Mo: " & getOzStr("Mo", o) : vorh = True
|
|
o_str &= vbNewLine
|
|
If Not o.oz_dienstag_closed Then o_str &= "Di: " & getOzStr("Di", o) : vorh = True
|
|
o_str &= vbNewLine
|
|
If Not o.oz_mittoch_closed Then o_str &= "Mi: " & getOzStr("Mi", o) : vorh = True
|
|
o_str &= vbNewLine
|
|
If Not o.oz_donnerstag_closed Then o_str &= "Do: " & getOzStr("Do", o) : vorh = True
|
|
o_str &= vbNewLine
|
|
If Not o.oz_freitag_closed Then o_str &= "Fr: " & getOzStr("Fr", o) : vorh = True
|
|
o_str &= vbNewLine
|
|
If Not o.oz_samstag_closed Then o_str &= "Sa: " & getOzStr("Sa", o) : vorh = True
|
|
o_str &= vbNewLine
|
|
If Not o.oz_sonntag_closed Then o_str &= "So: " & getOzStr("So", o) : vorh = True
|
|
If vorh Then oezentlade = o_str
|
|
End If
|
|
End If
|
|
End Function
|
|
Private Function getOzStr(ByVal day As String, ByVal o As cOeffnungszeiten) As String
|
|
Dim s As String = ""
|
|
If day = "Mo" Then
|
|
If o.oz_montag_von1 <> "" And o.oz_montag_bis1 <> "" Then s &= o.oz_montag_von1 & " - " & o.oz_montag_bis1
|
|
If o.oz_montag_von2 <> "" And o.oz_montag_bis2 <> "" Then s &= ", " & o.oz_montag_von2 & " - " & o.oz_montag_bis2
|
|
If s = "" Then s = ""
|
|
End If
|
|
If day = "Di" Then
|
|
If o.oz_dienstag_von1 <> "" And o.oz_dienstag_bis1 <> "" Then s &= o.oz_dienstag_von1 & " - " & o.oz_dienstag_bis1
|
|
If o.oz_dienstag_von2 <> "" And o.oz_dienstag_bis2 <> "" Then s &= ", " & o.oz_dienstag_von2 & " - " & o.oz_dienstag_bis2
|
|
If s = "" Then s = ""
|
|
End If
|
|
If day = "Mi" Then
|
|
If o.oz_mittwoch_von1 <> "" And o.oz_mittwoch_bis1 <> "" Then s &= o.oz_mittwoch_von1 & " - " & o.oz_mittwoch_bis1
|
|
If o.oz_mittwoch_von2 <> "" And o.oz_mittwoch_bis2 <> "" Then s &= ", " & o.oz_mittwoch_von2 & " - " & o.oz_mittwoch_bis2
|
|
If s = "" Then s = ""
|
|
End If
|
|
If day = "Do" Then
|
|
If o.oz_donnerstag_von1 <> "" And o.oz_donnerstag_bis1 <> "" Then s &= o.oz_donnerstag_von1 & " - " & o.oz_donnerstag_bis1
|
|
If o.oz_donnerstag_von2 <> "" And o.oz_donnerstag_bis2 <> "" Then s &= ", " & o.oz_donnerstag_von2 & " - " & o.oz_donnerstag_bis2
|
|
If s = "" Then s = ""
|
|
End If
|
|
If day = "Fr" Then
|
|
If o.oz_freitag_von1 <> "" And o.oz_freitag_bis1 <> "" Then s &= o.oz_freitag_von1 & " - " & o.oz_freitag_bis1
|
|
If o.oz_freitag_von2 <> "" And o.oz_freitag_bis2 <> "" Then s &= ", " & o.oz_freitag_von2 & " - " & o.oz_freitag_bis2
|
|
If s = "" Then s = ""
|
|
End If
|
|
If day = "Sa" Then
|
|
If o.oz_samstag_von1 <> "" And o.oz_samstag_bis1 <> "" Then s &= o.oz_samstag_von1 & " - " & o.oz_samstag_bis1
|
|
If o.oz_samstag_von2 <> "" And o.oz_samstag_bis2 <> "" Then s &= ", " & o.oz_samstag_von2 & " - " & o.oz_samstag_bis2
|
|
If s = "" Then s = ""
|
|
End If
|
|
If day = "So" Then
|
|
If o.oz_sonntag_von1 <> "" And o.oz_sonntag_bis1 <> "" Then s &= o.oz_sonntag_von1 & " - " & o.oz_sonntag_bis1
|
|
If o.oz_sonntag_von2 <> "" And o.oz_sonntag_bis2 <> "" Then s &= ", " & o.oz_sonntag_von2 & " - " & o.oz_sonntag_bis2
|
|
If s = "" Then s = ""
|
|
End If
|
|
Return s
|
|
End Function
|
|
|
|
|
|
Public Function SAVE_LADUNGEN() As Boolean
|
|
SAVE_LADUNGEN = True
|
|
If DELETE_LADUNGEN() Then
|
|
For Each r In LADUNGEN
|
|
r.lad_atrId = Me.atr_id
|
|
If Not r.SAVE() Then SAVE_LADUNGEN = False
|
|
Next
|
|
Else
|
|
SAVE_LADUNGEN = False
|
|
End If
|
|
End Function
|
|
|
|
Public Function SAVE_BHRG() As Boolean
|
|
SAVE_BHRG = True
|
|
If DELETE_BHRG() Then
|
|
For Each r In BH_rechnungen
|
|
r.bhrg_atrId = Me.atr_id
|
|
If Not r.SAVE() Then SAVE_BHRG = False
|
|
Next
|
|
Else
|
|
SAVE_BHRG = False
|
|
End If
|
|
End Function
|
|
|
|
|
|
Public Function DELETE_BHRG() As Boolean
|
|
Return SQL.doSQL("DELETE FROM tblBhRechnungen WHERE bhrg_atrId = '" & atr_id & "' ", "DISPO")
|
|
End Function
|
|
Public Function DELETE_LADUNGEN() As Boolean
|
|
Return SQL.doSQL("DELETE FROM tblLadungen WHERE lad_atrId = '" & atr_id & "' ", "DISPO")
|
|
End Function
|
|
|
|
Public Function Return_TransportauftragArt()
|
|
If Me.atr_TransportauftragArt = "VOR" Then
|
|
Return Me.atr_frachtf_firma
|
|
ElseIf Me.atr_TransportauftragArt = "NACH" Then
|
|
Return Me.atr_frachtfAb_firma
|
|
Else
|
|
Return "---na---"
|
|
End If
|
|
End Function
|
|
|
|
|
|
Public Sub LOAD()
|
|
Try
|
|
Using conn As SqlClient.SqlConnection = SQL.GetNewOpenConnectionDISPO()
|
|
Using cmd As New SqlClient.SqlCommand("SELECT * FROM tblAuftraege WHERE atr_id=@atr_id ", conn)
|
|
cmd.Parameters.AddWithValue("@atr_id", atr_id)
|
|
Dim dr = cmd.ExecuteReader()
|
|
If dr.Read Then
|
|
For Each l In getParameterList()
|
|
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
|
|
|
If dr.Item(l.Text) Is DBNull.Value Then
|
|
propInfo.SetValue(Me, Nothing)
|
|
Else
|
|
propInfo.SetValue(Me, dr.Item(l.Text))
|
|
End If
|
|
|
|
Next
|
|
LOAD_LADUNGEN()
|
|
LOAD_BHRG()
|
|
End If
|
|
dr.Close()
|
|
End Using
|
|
End Using
|
|
LoadOeffnungszeiten()
|
|
LoadEntUNDLadeStelle()
|
|
|
|
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 Sub LoadEntUNDLadeStelle()
|
|
Dim usrcntlEntladestelle As New DISPO.usrcntlAdresse
|
|
usrcntlEntladestelle.setByID(Me.atr_entladest_id)
|
|
Me.avisoentlade = DISPO.getAvisoFromKundeByIds(usrcntlEntladestelle.BET_ID)
|
|
|
|
Dim usrcntlLadestelle As New DISPO.usrcntlAdresse
|
|
usrcntlLadestelle.setByID(Me.atr_ladest_id)
|
|
Me.avisolade = DISPO.getAvisoFromKundeByIds(usrcntlLadestelle.BET_ID)
|
|
End Sub
|
|
|
|
|
|
Public Sub LOAD_BHRG()
|
|
Try
|
|
BH_rechnungen.Clear()
|
|
Using conn As SqlClient.SqlConnection = SQL.GetNewOpenConnectionDISPO()
|
|
Using cmd As New SqlClient.SqlCommand("SELECT * FROM [tblBhRechnungen] WHERE bhrg_atrId=@atr_id ", conn)
|
|
cmd.Parameters.AddWithValue("@atr_id", Me.atr_id)
|
|
Dim dr = cmd.ExecuteReader()
|
|
While dr.Read
|
|
Dim l As New cBuchhaltungRechnung
|
|
For Each i In l.getParameterList()
|
|
|
|
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
|
|
|
|
If dr.Item(i.Text) Is DBNull.Value Then
|
|
propInfo.SetValue(l, Nothing)
|
|
Else
|
|
' MsgBox(dr.Item(i.Text))
|
|
propInfo.SetValue(l, dr.Item(i.Text))
|
|
End If
|
|
|
|
Next
|
|
BH_rechnungen.Add(l)
|
|
End While
|
|
dr.Close()
|
|
End Using
|
|
End Using
|
|
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 Sub LOAD_LADUNGEN()
|
|
Try
|
|
LADUNGEN.Clear()
|
|
Using conn As SqlClient.SqlConnection = SQL.GetNewOpenConnectionDISPO()
|
|
Using cmd As New SqlClient.SqlCommand("SELECT * FROM [tblLadungen] WHERE lad_atrId=@atr_id ", conn)
|
|
cmd.Parameters.AddWithValue("@atr_id", Me.atr_id)
|
|
Dim dr = cmd.ExecuteReader()
|
|
While dr.Read
|
|
Dim l As New cDispoLadungen
|
|
For Each i In l.getParameterList()
|
|
|
|
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
|
|
|
|
If dr.Item(i.Text) Is DBNull.Value Then
|
|
propInfo.SetValue(l, Nothing)
|
|
Else
|
|
' MsgBox(dr.Item(i.Text))
|
|
propInfo.SetValue(l, dr.Item(i.Text))
|
|
End If
|
|
|
|
Next
|
|
LADUNGEN.Add(l)
|
|
End While
|
|
dr.Close()
|
|
End Using
|
|
End Using
|
|
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 getUpdateCmd() As String
|
|
Try
|
|
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
|
|
|
Dim str As String = ""
|
|
For Each i In list
|
|
If Not i.isPrimaryParam Then
|
|
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
|
End If
|
|
Next
|
|
str = str.Substring(0, str.Length - 1) 'wg. ','
|
|
Return (" UPDATE [tblAuftraege] SET " & str & " WHERE atr_id=@atr_id ")
|
|
|
|
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 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
|
|
If Not i.isPrimaryParam Then
|
|
str &= "[" & i.Text & "],"
|
|
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
|
End If
|
|
Next
|
|
str = str.Substring(0, str.Length - 1) 'wg. ','
|
|
values = values.Substring(0, values.Length - 1) 'wg. ','
|
|
Return (" INSERT INTO tblAuftraege (" & 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 DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
|
Dim sqlstr = " DELETE FROM tblAuftraege WITH(updlock,serializable) WHERE atr_id=" & Me.atr_id
|
|
Return SQL.doSQL(sqlstr, "DISPO")
|
|
End Function
|
|
|
|
|
|
End Class
|
|
|
|
|
|
Public Class cDispoLadungen
|
|
Property lad_id As Integer
|
|
Property lad_atrId As Integer
|
|
Property lad_ZeNr As String = ""
|
|
Property lad_Anzahl As String = ""
|
|
Property lad_Art As String = ""
|
|
Property lad_Bezeichnung As String = ""
|
|
Property lad_StatNr As String = ""
|
|
Property lad_BruttoKg As String = ""
|
|
Property lad_Umfang As String = ""
|
|
|
|
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
|
|
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("lad_id", lad_id, , True)) 'UPDATE INSERT ISPRIMARY!
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("lad_atrId", lad_atrId))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("lad_ZeNr", lad_ZeNr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("lad_Anzahl", lad_Anzahl))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("lad_Art", lad_Art))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("lad_Bezeichnung", lad_Bezeichnung))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("lad_StatNr", lad_StatNr))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("lad_BruttoKg", lad_BruttoKg))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("lad_Umfang", lad_Umfang))
|
|
|
|
Return list
|
|
End Function
|
|
|
|
Public Function SAVE() As Boolean
|
|
lad_id = SQL.doSQLVarListID(lad_id, getInsertCmd, "DISPO", , getParameterList)
|
|
Return lad_id > 0
|
|
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
|
|
If Not i.isPrimaryParam Then
|
|
str &= "[" & i.Text & "],"
|
|
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
|
End If
|
|
Next
|
|
str = str.Substring(0, str.Length - 1) 'wg. ','
|
|
values = values.Substring(0, values.Length - 1) 'wg. ','
|
|
Return (" INSERT INTO [tblLadungen] (" & 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
|
|
|
|
End Class
|
|
|
|
|
|
|