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 i In getParameterList() Dim propInfo As PropertyInfo = Me.GetType.GetProperty(i.Scalarvariable) If dr.Item(i.Text) Is DBNull.Value Then propInfo.SetValue(Me, Nothing) Else propInfo.SetValue(Me, dr.Item(i.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