Imports System.Reflection Imports System.ComponentModel Imports System.Data.SqlClient Imports GrapeCity.ActiveReports Public Class frmAuftragNEU ' Private auftrag As cAuftraege Public auftragID As Integer = -1 Private newEntry As Boolean = True ' Private closeOK As Boolean = True Private closeWithOutSave As Boolean = False Private DISPO As New cOptionenDAL Dim AUFTRAG As cDispoAuftraege = Nothing Dim kd_data As New List(Of cEntry) Public searchHandles As String Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Private ItemInfoBindingSource As New ItemInfo Dim FUNC As New SDL.cProgramFunctions Public Shared printAuftrag As New cDispoAuftraege ' = Nothing Public Shared printcmr As New List(Of cCMRLadeliste) 'Public Shared oezlade, oezentlade As String ' Public Shared avisolade, avisoentlade As String() Sub New() ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. End Sub Sub New(AUFTRAG As cDispoAuftraege) ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() Me.AUFTRAG = AUFTRAG ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. End Sub Private Sub frmDetails_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing If Not closeWithOutSave Then 'closeOK Then If txtFrachtpos.Text = "" Then MsgBox("Bitte Pos-Nr. angeben!") e.Cancel = True Exit Sub End If ' saveMe() End If End Sub 'Läuft alle Elememte durch Private Sub initChangeEvent(ByVal oContainer As Object) If Not IsNothing(oContainer) Then ' alle Controls des Container-Objekts durchlaufen For Each oControl As Control In oContainer.Controls ' Falls es sich um ein Container-Control handelt und die ' TextBox-Controls ebenfalls zurückgesetzt werden sollen, muss ' die Funktion ResetTextBox rekursiv erneut aufgerufen werden If oControl.Controls.Count > 0 Then initChangeEvent(oControl) Else ' Sofern es sich um ein TextBox-Control handelt... If TypeOf oControl Is TextBox Or TypeOf oControl Is RichTextBox Then AddHandler oControl.TextChanged, AddressOf setChange End If If TypeOf oControl Is MyTextBox Then AddHandler oControl.TextChanged, AddressOf setChange End If If TypeOf oControl Is CheckBox Then AddHandler DirectCast(oControl, CheckBox).CheckedChanged, AddressOf setChange End If If TypeOf oControl Is DateTimePicker Then AddHandler DirectCast(oControl, DateTimePicker).ValueChanged, AddressOf setChange End If If TypeOf oControl Is ComboBox Then AddHandler DirectCast(oControl, ComboBox).SelectedIndexChanged, AddressOf setChange End If If TypeOf oControl Is MyComboBox Then AddHandler DirectCast(oControl, ComboBox).SelectedIndexChanged, AddressOf setChange End If If TypeOf oControl Is RadioButton Then AddHandler DirectCast(oControl, RadioButton).CheckedChanged, AddressOf setChange End If End If Next End If End Sub Private Sub setChange() ' changed = True ' btnSave.Enabled = True 'closeOK = False End Sub Private Sub frmAuftrag_Shown(sender As Object, e As EventArgs) Handles Me.Shown dostuff() End Sub Private Sub frmAuftrag_Load(sender As Object, e As EventArgs) Handles MyBase.Load cboFilialenNr.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True) Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung Case "NEU" : cboFilialenNr.changeItem("4819") Case Else : cboFilialenNr.changeItem("4807") End Select cboFirma.SelectedIndex = 0 cboFirma2.SelectedIndex = 0 cboAuftragsart.Items.Clear() cboAuftragsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("HANDLING", "HANDLING")) cboAuftragsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TRANSPORT", "TRANSPORT")) cboAuftragsart.changeItem("TRANSPORT") cboTransportauftragArt.Items.Clear() cboTransportauftragArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) cboTransportauftragArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VORHOLUNG", "VOR")) cboTransportauftragArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ZUSTELLUNG", "NACH")) cboTransportauftragArt.changeItem("") End Sub Sub dostuff() ' atr_auftr_id._useAsBindingText = True ' atr_auftr_id.Visible = True If auftragID = -1 Then If AUFTRAG Is Nothing Then AUFTRAG = New cDispoAuftraege initDataBinding() initDGVLeistungen() Else initDataBinding() loadDataInForm() End If ' auftragID = DISPO.newAuftrag() newEntry = True ' initDataBinding() 'If txtFrachtpos.Text = "" Then 'txtSpedBuchNr.Text = DISPO.getMaxPosNrIncrement(4807, Now.Year) 'End If ' datTA.Value = Now ' txtbhMon.Text = Now.ToString("MM") Else AUFTRAG = New cDispoAuftraege(auftragID) newEntry = False initDataBinding() End If datTA.Focus() If txtbhMon.Text = "" Then txtbhMon.Text = Now.ToString("MM") End Sub Dim dataAdapterLadungen As New SqlDataAdapter Dim dataBindingLadungen As New BindingSource Dim dataAdapterBHRg1 As New SqlDataAdapter Dim dataBindingBHRg1 As New BindingSource Dim dataAdapterBHRg2 As New SqlDataAdapter Dim dataBindingBHRg2 As New BindingSource Dim dataAdapterBHUntern As New SqlDataAdapter Dim dataBindingBHUntern As New BindingSource Function nullInt(o) As Integer Try If o IsNot DBNull.Value Then Return CInt(o) Catch ex As Exception : End Try Return -1 End Function Function nullStr(o) As String Try If o IsNot DBNull.Value Then Return CStr(o) Catch ex As Exception : End Try Return "" End Function Sub loadDataInForm() ' ----- Adressdaten ----- datTA.Text = AUFTRAG.atr_datum ' txtSpedBuchNr.Text = AUFTRAG.atr_speditionsbuchNr cboFilialenNr.changeItem(If(AUFTRAG.atr_FilialenNr, "4807")) cboAuftragsart.changeItem(AUFTRAG.atr_AuftragsArt) cboTransportauftragArt.changeItem(AUFTRAG.atr_TransportauftragArt) txtFrachtpos.Text = AUFTRAG.atr_frachtpos If AUFTRAG.atr_frachtpos <> "" Then btnNeueAbfertigungNrVergeben.Visible = False usrCntlFrachtfBis.txtFirma.Text = AUFTRAG.atr_frachtf_firma usrCntlFrachtfBis.txtStr.Text = AUFTRAG.atr_frachtf_str usrCntlFrachtfBis.txtStrnr.Text = AUFTRAG.atr_frachtf_strnr usrCntlFrachtfBis.cboLand.Text = AUFTRAG.atr_frachtf_land usrCntlFrachtfBis.txtPlz.Text = AUFTRAG.atr_frachtf_plz usrCntlFrachtfBis.txtOrt.Text = AUFTRAG.atr_frachtf_ort usrCntlFrachtfBis.txtAnpsr.Text = AUFTRAG.atr_frachtf_anspr usrcntlAuftraggeber.kdFirma.KdNr = AUFTRAG.atr_auftr_Kdnr usrcntlLadestelle.kdFirma.KdNr = AUFTRAG.atr_ladest_Kdnr usrcntlEntladestelle.kdFirma.KdNr = AUFTRAG.atr_entladest_Kdnr usrCntlFrachtfAb.kdFirma.KdNr = AUFTRAG.atr_frachtfAb_Kdnr usrCntlFrachtfBis.kdFirma.KdNr = AUFTRAG.atr_frachtf_Kdnr usrcntlAbsender.kdFirma.KdNr = AUFTRAG.atr_absender_Kdnr usrcntlEmpfaenger.kdFirma.KdNr = AUFTRAG.atr_empfaenger_Kdnr usrCntlAlternativeLadestelle.kdFirma.KdNr = AUFTRAG.atr_altladest_Kdnr txtBeladung._value = If(AUFTRAG.atr_beladung, "") txtEntladung._value = If(AUFTRAG.atr_entladung, "") txtFrachtf_tatKosten._value = If(AUFTRAG.atr_frachtf_tatKosten, "") txtFrachtfAb_tatKosten._value = If(AUFTRAG.atr_frachtfAb_tatKosten, "") txtRgRefNr.Text = If(AUFTRAG.atr_RgRefNr, "") usrcntlLadestelle.txtFirma.Text = AUFTRAG.atr_ladest_firma usrcntlLadestelle.txtStr.Text = AUFTRAG.atr_ladest_str usrcntlLadestelle.txtStrnr.Text = AUFTRAG.atr_ladest_strnr usrcntlLadestelle.cboLand.Text = AUFTRAG.atr_ladest_land usrcntlLadestelle.txtPlz.Text = AUFTRAG.atr_ladest_plz usrcntlLadestelle.txtOrt.Text = AUFTRAG.atr_ladest_ort usrcntlLadestelle.txtAnpsr.Text = AUFTRAG.atr_ladest_anspr datLadest_terminDat.Text = AUFTRAG.atr_ladest_terminDat txtLadest_terminVon.Text = AUFTRAG.atr_ladest_terminVon txtLadest_terminBis.Text = AUFTRAG.atr_ladest_terminBis cbxLadest_termin.Checked = getChecked(AUFTRAG.atr_ladest_termin) cbxLadest_RefNr.Checked = getChecked(AUFTRAG.atr_ladest_isRefNr) txtLadest_RefNr.Text = AUFTRAG.atr_ladest_refNr cbxAltLadest.Checked = getChecked(AUFTRAG.atr_hasaltladest) usrCntlAlternativeLadestelle.txtFirma.Text = AUFTRAG.atr_altladest_firma usrCntlAlternativeLadestelle.txtStr.Text = AUFTRAG.atr_altladest_str usrCntlAlternativeLadestelle.txtStrnr.Text = AUFTRAG.atr_altladest_strnr usrCntlAlternativeLadestelle.cboLand.Text = AUFTRAG.atr_altladest_land usrCntlAlternativeLadestelle.txtPlz.Text = AUFTRAG.atr_altladest_plz usrCntlAlternativeLadestelle.txtOrt.Text = AUFTRAG.atr_altladest_ort usrCntlAlternativeLadestelle.txtAnpsr.Text = AUFTRAG.atr_altladest_anspr usrcntlEntladestelle.txtFirma.Text = AUFTRAG.atr_entladest_firma usrcntlEntladestelle.txtStr.Text = AUFTRAG.atr_entladest_str usrcntlEntladestelle.txtStrnr.Text = AUFTRAG.atr_entladest_strnr usrcntlEntladestelle.cboLand.Text = AUFTRAG.atr_entladest_land usrcntlEntladestelle.txtPlz.Text = AUFTRAG.atr_entladest_plz usrcntlEntladestelle.txtOrt.Text = AUFTRAG.atr_entladest_ort usrcntlEntladestelle.txtAnpsr.Text = AUFTRAG.atr_entladest_anspr datEntladest_terminDat.Text = AUFTRAG.atr_entladest_terminDat txtEntladest_terminVon.Text = AUFTRAG.atr_entladest_terminVon txtEntladest_terminBis.Text = AUFTRAG.atr_entladest_terminBis cbxEntladest_termin.Checked = getChecked(AUFTRAG.atr_entladest_termin) If If(AUFTRAG.atr_frachtf_id, 0) > 0 Then usrCntlFrachtfBis.setByID(AUFTRAG.atr_frachtf_id) If If(AUFTRAG.atr_frachtfAb_id, 0) > 0 Then usrCntlFrachtfAb.setByID(AUFTRAG.atr_frachtfAb_id) If If(AUFTRAG.atr_auftr_id, 0) > 0 Then usrcntlAuftraggeber.setByID(AUFTRAG.atr_auftr_id) If If(AUFTRAG.atr_ladest_id, 0) > 0 Then usrcntlLadestelle.setByID(AUFTRAG.atr_ladest_id) If If(AUFTRAG.atr_entladest_id, 0) > 0 Then usrcntlEntladestelle.setByID(AUFTRAG.atr_entladest_id) If If(AUFTRAG.atr_altladest_id, 0) > 0 Then usrCntlAlternativeLadestelle.setByID(AUFTRAG.atr_altladest_id) If If(AUFTRAG.atr_absender_id, 0) > 0 Then usrcntlAbsender.setByID(AUFTRAG.atr_absender_id) If If(AUFTRAG.atr_empfaenger_id, 0) > 0 Then usrcntlEmpfaenger.setByID(AUFTRAG.atr_empfaenger_id) usrcntlAuftraggeber.txtFirma.Text = AUFTRAG.atr_auftr_firma usrcntlAuftraggeber.txtStr.Text = AUFTRAG.atr_auftr_str usrcntlAuftraggeber.txtStrnr.Text = AUFTRAG.atr_auftr_strnr usrcntlAuftraggeber.cboLand.Text = AUFTRAG.atr_auftr_land usrcntlAuftraggeber.txtPlz.Text = AUFTRAG.atr_auftr_plz usrcntlAuftraggeber.txtOrt.Text = AUFTRAG.atr_auftr_ort usrcntlAuftraggeber.txtAnpsr.Text = AUFTRAG.atr_auftr_anspr ' txtTrans_firma.Text = AUFTRAG.atr_trans_firma ' txtTrans_str.Text = AUFTRAG.atr_trans_str ' txtTrans_strnr.Text = AUFTRAG.atr_trans_strnr 'cboTrans_land.Text = AUFTRAG.atr_trans_land ' txtTrans_plz.Text = AUFTRAG.atr_trans_plz ' txtTrans_ort.Text = AUFTRAG.atr_trans_ort ' txtTransAnspr.Text = AUFTRAG.atr_trans_anspr txtLkwKz.Text = AUFTRAG.atr_lkwKz txtLkwArt.Text = AUFTRAG.atr_lkwArt txtLkwNutzlast.Text = AUFTRAG.atr_lkwNutzlast txtAnhKz.Text = AUFTRAG.atr_anhKz txtAnhNutzlast.Text = AUFTRAG.atr_anhNutzlast rtbTrans_Bem.Text = AUFTRAG.atr_bemerkung rtbTrans_Frachtkosten.Text = AUFTRAG.atr_frachtkosten rtbTrans_Verzollungsadresse.Text = AUFTRAG.atr_verzollungsadresse rtbGefahrengut.Text = AUFTRAG.atr_gefahrengut ' cbxTfrachtfIsTrans.Checked = getChecked(AUFTRAG.atr_frachtIsTrans) cbxAbliefernachweis.Checked = getChecked(AUFTRAG.atr_abliefernachweis) cboAuslieferung_land.Text = AUFTRAG.cmr_ausl_land txtAuslieferung_ort.Text = AUFTRAG.cmr_ausl_ort rtbBeigefDok.Text = AUFTRAG.cmr_beigefDok rtbAnwAbs.Text = AUFTRAG.cmr_anwAbs txtRueckerst.Text = AUFTRAG.cmr_rueckerst txtFrachtzahl_frei.Text = AUFTRAG.cmr_frZahlanwFrei txtFrachtzahl_unfrei.Text = AUFTRAG.cmr_frZahlanwUnfrei rtbBesVereinb.Text = AUFTRAG.cmr_besVereinb txtAusgef.Text = AUFTRAG.cmr_ausgefIn cboUebergabe_land.Text = AUFTRAG.cmr_uebergabe_land txtUebergabe_ort.Text = AUFTRAG.cmr_uebergabe_ort Try If AUFTRAG.cmr_uebergabe_datum IsNot Nothing Or AUFTRAG.cmr_uebergabe_datum IsNot "" Then datUebergabe_datum.Text = AUFTRAG.cmr_uebergabe_datum.replace("Jänner", "Januar") Else datUebergabe_datum.Value = Date.Now 'MsgBox("Nothing") End If Catch End Try 'datUebergabe_datum.Value = Convert.ToDateTime(AUFTRAG.cmr_uebergabe_datum) 'datUebergabe_datum.Value = "08.01.2019 14:27" 'datUebergabe_datum.Value = Date.Now 'datUebergabe_datum.Text = AUFTRAG.cmr_uebergabe_datum 'MsgBox(ex) rtbVorbehBem.Text = AUFTRAG.cmr_vorbehFrachtf txtbhMon.Text = AUFTRAG.bh_mon rtbBhVermerke.Text = AUFTRAG.bh_vermerke rtbNotes.Text = AUFTRAG.atr_notes usrcntlAbsender.txtFirma.Text = AUFTRAG.atr_absender_firma usrcntlAbsender.txtStr.Text = AUFTRAG.atr_absender_str usrcntlAbsender.txtStrnr.Text = AUFTRAG.atr_absender_strnr usrcntlAbsender.cboLand.Text = AUFTRAG.atr_absender_land usrcntlAbsender.txtPlz.Text = AUFTRAG.atr_absender_plz usrcntlAbsender.txtOrt.Text = AUFTRAG.atr_absender_ort usrcntlAbsender.txtAnpsr.Text = AUFTRAG.atr_absender_anspr usrcntlEmpfaenger.txtFirma.Text = AUFTRAG.atr_empfaenger_firma usrcntlEmpfaenger.txtStr.Text = AUFTRAG.atr_empfaenger_str usrcntlEmpfaenger.txtStrnr.Text = AUFTRAG.atr_empfaenger_strnr usrcntlEmpfaenger.cboLand.Text = AUFTRAG.atr_empfaenger_land usrcntlEmpfaenger.txtPlz.Text = AUFTRAG.atr_empfaenger_plz usrcntlEmpfaenger.txtOrt.Text = AUFTRAG.atr_empfaenger_ort usrcntlEmpfaenger.txtAnpsr.Text = AUFTRAG.atr_empfaenger_anspr usrCntlFrachtfAb.txtFirma.Text = AUFTRAG.atr_frachtfAb_firma usrCntlFrachtfAb.txtStr.Text = AUFTRAG.atr_frachtfAb_str usrCntlFrachtfAb.txtStrnr.Text = AUFTRAG.atr_frachtfAb_strnr usrCntlFrachtfAb.cboLand.Text = AUFTRAG.atr_frachtfAb_land usrCntlFrachtfAb.txtPlz.Text = AUFTRAG.atr_frachtfAb_plz usrCntlFrachtfAb.txtOrt.Text = AUFTRAG.atr_frachtfAb_ort usrCntlFrachtfAb.txtAnpsr.Text = AUFTRAG.atr_frachtfAb_anspr txtFrachtfAb_LkwKr.Text = AUFTRAG.atr_frachtfAb_lkwKz txtFrachtfAb_LkwArt.Text = AUFTRAG.atr_frachtfAb_lkwArt txtFrachtfAb_LkwNutzlast.Text = AUFTRAG.atr_frachtfAb_lkwNutzlast txtFrachtfAb_AnhKz.Text = AUFTRAG.atr_frachtfAb_anhKz txtFrachtfAb_AnhNutzlast.Text = AUFTRAG.atr_frachtfAb_anhNutzlast If AUFTRAG.atr_tripNr = "" Then lblTrip.Text = "Transport ist Teil eines Trips: NEIN" btnShowTrip.Enabled = False : btnAddToTrip.Enabled = True : btnNewTrip.Enabled = True : btnRemoveFromTrip.Enabled = False Else lblTrip.Text = "Transport ist Teil eines Trips: JA, TripNr: " & AUFTRAG.atr_tripNr btnShowTrip.Enabled = True : btnAddToTrip.Enabled = False : btnNewTrip.Enabled = False : btnRemoveFromTrip.Enabled = True End If initDGVLeistungen() End Sub Sub initDataBinding() Me.Enabled = False Me.Cursor = Cursors.WaitCursor txtFrachtpos.Enabled = True Try If AUFTRAG.atr_id > 0 Then ' btnNeueAbfertigungNrVergeben.Visible = False txtFrachtpos.Enabled = True loadDataInForm() End If With dgvLadungen .Columns.Clear() ' .DataSource = Me.dataBindingLadungen ' initDGVBindingLadungen("SELECT * FROM tblLadungen WHERE lad_atrId = '" & auftragID & "'") .DataSource = SQL.loadDgvBySql("SELECT * FROM tblLadungen WHERE lad_atrId = '" & auftragID & "'", "DISPO") DirectCast(.DataSource, DataTable).Columns("lad_atrID").DefaultValue = Me.AUFTRAG.atr_id DirectCast(.DataSource, DataTable).Columns("lad_ZeNr").DefaultValue = "" DirectCast(.DataSource, DataTable).Columns("lad_Anzahl").DefaultValue = "" DirectCast(.DataSource, DataTable).Columns("lad_Art").DefaultValue = "" DirectCast(.DataSource, DataTable).Columns("lad_Bezeichnung").DefaultValue = "" DirectCast(.DataSource, DataTable).Columns("lad_StatNr").DefaultValue = "" DirectCast(.DataSource, DataTable).Columns("lad_BruttoKg").DefaultValue = "" DirectCast(.DataSource, DataTable).Columns("lad_Umfang").DefaultValue = "" .Columns("lad_id").Visible = False .Columns("lad_atrID").Visible = False .Columns("lad_ZeNr").HeaderText = "Zeichen / Nr." .Columns("lad_ZeNr").Width = 100 .Columns("lad_Anzahl").HeaderText = "Anzahl" .Columns("lad_Anzahl").Width = 80 .Columns("lad_Art").HeaderText = "Art der Verpackung" .Columns("lad_Art").Width = 170 .Columns("lad_Bezeichnung").HeaderText = "Bezeichnung" .Columns("lad_Bezeichnung").Width = 250 .Columns("lad_StatNr").HeaderText = "Statistik Nr." .Columns("lad_StatNr").Width = 90 .Columns("lad_BruttoKg").HeaderText = "Bruttogewicht" .Columns("lad_BruttoKg").Width = 100 .Columns("lad_Umfang").HeaderText = "Umfang" .Columns("lad_Umfang").Width = 120 If False Then AddHandler .UserAddedRow, Sub(send As Object, evnt As EventArgs) send.CurrentRow.Cells("lad_atrID").Value = auftragID End Sub AddHandler .CellValueChanged, Sub(send As Object, evnt As EventArgs) btnSave.Enabled = True End Sub AddHandler .UserDeletedRow, Sub(send As Object, evnt As DataGridViewRowEventArgs) btnSave.Enabled = True End Sub End If End With If False Then ' MsgBox("2") With dgvBHRg1 .Columns.Clear() .DataSource = Me.dataBindingBHRg1 initDGVBindingBHRg1("SELECT * FROM tblBhRechnungen WHERE bhrg_atrId = '" & auftragID & "' and bhrg_option='1'") .Columns("bhrg_id").Visible = False .Columns("bhrg_atrId").Visible = False .Columns("bhrg_option").Visible = False .Columns("bhrg_code").HeaderText = "Code" .Columns("bhrg_code").Width = 70 .Columns("bhrg_vermerk").HeaderText = "Vermerk" .Columns("bhrg_vermerk").Width = 150 .Columns("bhrg_pfl").HeaderText = "Pfl." .Columns("bhrg_pfl").Width = 70 .Columns("bhrg_frei").HeaderText = "Frei" .Columns("bhrg_frei").Width = 70 AddHandler .UserAddedRow, Sub(send As Object, evnt As EventArgs) send.CurrentRow.Cells("bhrg_atrId").Value = auftragID send.CurrentRow.Cells("bhrg_option").Value = 1 End Sub AddHandler .CellValueChanged, Sub(send As Object, evnt As EventArgs) btnSave.Enabled = True End Sub AddHandler .UserDeletedRow, Sub(send As Object, evnt As DataGridViewRowEventArgs) btnSave.Enabled = True End Sub End With With dgvBHRg2 .Columns.Clear() .DataSource = Me.dataBindingBHRg2 initDGVBindingBHRg2("SELECT * FROM tblBhRechnungen WHERE bhrg_atrId = '" & auftragID & "' and bhrg_option='2'") .Columns("bhrg_id").Visible = False .Columns("bhrg_atrId").Visible = False .Columns("bhrg_option").Visible = False .Columns("bhrg_code").HeaderText = "Code" .Columns("bhrg_code").Width = 70 .Columns("bhrg_vermerk").HeaderText = "Vermerk" .Columns("bhrg_vermerk").Width = 150 .Columns("bhrg_pfl").HeaderText = "Pfl." .Columns("bhrg_pfl").Width = 70 .Columns("bhrg_frei").HeaderText = "Frei" .Columns("bhrg_frei").Width = 70 AddHandler .UserAddedRow, Sub(send As Object, evnt As EventArgs) send.CurrentRow.Cells("bhrg_atrId").Value = auftragID send.CurrentRow.Cells("bhrg_option").Value = 2 End Sub AddHandler .CellValueChanged, Sub(send As Object, evnt As EventArgs) btnSave.Enabled = True End Sub AddHandler .UserDeletedRow, Sub(send As Object, evnt As DataGridViewRowEventArgs) btnSave.Enabled = True End Sub End With ' MsgBox("4") With dgvBHUntern .Columns.Clear() .DataSource = Me.dataBindingBHUntern initDGVBindingBHUntern(" SELECT * FROM tblBhUntern WHERE bhut_atrId =" & auftragID) .Columns("bhut_id").Visible = False .Columns("bhut_atrId").Visible = False .Columns("bhut_unternKennz").HeaderText = "Untern. / Kennz." .Columns("bhut_unternKennz").Width = 150 .Columns("bhut_bis").HeaderText = "bis" .Columns("bhut_bis").Width = 70 .Columns("bhut_kosten").HeaderText = "Kosten" .Columns("bhut_kosten").Width = 70 AddHandler .CellValueChanged, Sub(send As Object, evnt As EventArgs) btnSave.Enabled = True End Sub AddHandler .UserDeletedRow, Sub(send As Object, evnt As DataGridViewRowEventArgs) btnSave.Enabled = True 'send.AllowUserToAddRows = (send.RowCount <= 4) End Sub ' .AllowUserToAddRows = (.RowCount >= 4) End With End If Catch ex As Exception MsgBox("initDataBinding: " & ex.Message) End Try Me.Enabled = True Me.Cursor = Cursors.Default End Sub Sub initDGVLeistungen2() With dgvBHRg2 .Columns.Clear() .DataSource = Me.dataBindingBHRg2 initDGVBindingBHRg2("SELECT * FROM tblBhRechnungen WHERE bhrg_atrId = '" & auftragID & "' and bhrg_option='3'") .Columns("bhrg_id").Visible = False .Columns("bhrg_atrId").Visible = False .Columns("bhrg_option").Visible = False .Columns("bhrg_code").HeaderText = "Code" .Columns("bhrg_code").Width = 70 .Columns("bhrg_vermerk").HeaderText = "Vermerk" .Columns("bhrg_vermerk").Width = 150 .Columns("bhrg_pfl").HeaderText = "Pfl." .Columns("bhrg_pfl").Width = 70 .Columns("bhrg_frei").HeaderText = "Frei" .Columns("bhrg_frei").Width = 70 End With End Sub Function getDBL(v) As Double If v Is Nothing Then Return 0 v = v.ToString.Replace(".", ",") If Not IsNumeric(v) Then Return 0 getDBL = CDbl(If(IsNumeric(v), v, 0)) End Function Sub initDGVLeistungen() 'AUFTRAG ' Dim dtLeistung As DataTable = SQL.loadDgvBySql("SELECT [bhrg_id],[bhrg_atrId],[bhrg_code],[bhrg_vermerk],[bhrg_pfl],[bhrg_frei],[bhrg_option] FROM tblBhRechnungen WHERE bhrg_atrId = '" & auftragID & "' and bhrg_option='3'", "DISPO") 'MsgBox(AUFTRAG.BH_rechnungen.Count) Dim Leistungen As New List(Of cLeistungenDispo) Leistungen.Add(New cLeistungenDispo(601, "Entladung", True, 1)) Leistungen.Add(New cLeistungenDispo(610, "Lagerung", True, 2)) Leistungen.Add(New cLeistungenDispo(601, "Beladung", True, 3)) Leistungen.Add(New cLeistungenDispo(489, "Spätzuschlag", True, 4)) Leistungen.Add(New cLeistungenDispo(521, "Transportkosten", True, 5)) Leistungen.Add(New cLeistungenDispo(344, "Ausfuhrabfertigung", True, 6)) Leistungen.Add(New cLeistungenDispo(340, "Einfuhrabfertigung", True, 7)) Leistungen.Add(New cLeistungenDispo(341, "T1/T2", True, 8)) Leistungen.Add(New cLeistungenDispo(489, "Verwahrung", True, 9)) ' Leistungen.Add(New cLeistungenDispo(130, "Hausbeschau", True, 10)) Leistungen.Add(New cLeistungenDispo(489, "-", True, 11)) Leistungen.Add(New cLeistungenDispo(489, "-", True, 12)) With flpLeistungen .Controls.Clear() 'For Each r As DataRow In SQL.loadDgvBySql("select LeistungsNr, LeistungsBez ,Steuerpflichtig from Leistungen where LeistungsNr in (130,610,345,340,341,344,498,521,601) order by LeistungsNr desc ", "FMZOLL").Rows For Each r In Leistungen Dim u As New usrcntlLeistungen(r.LeistungsNr, r.LeistungsBez, r.Steuerpflichtig, r.LeistungsIdDispo) If AUFTRAG.BH_rechnungen IsNot Nothing AndAlso AUFTRAG.BH_rechnungen.Count > 0 Then For Each re In AUFTRAG.BH_rechnungen If (re.bhrg_leistungIdDispo IsNot Nothing And re.bhrg_leistungIdDispo = r.LeistungsIdDispo) Or (re.bhrg_leistungIdDispo Is Nothing And re.bhrg_code = r.LeistungsNr) Then ' MsgBox(l.bhrg_option) Select Case re.bhrg_option Case 1 : u.txtBetrag_Auftraggeber._value = getDBL(re.bhrg_pfl) + getDBL(re.bhrg_frei) : u.lblLeistung.Text = If(re.bhrg_vermerk, r.LeistungsBez) Case 2 : u.txtBetrag_Absender._value = getDBL(re.bhrg_pfl) + getDBL(re.bhrg_frei) : u.lblLeistung.Text = If(re.bhrg_vermerk, r.LeistungsBez) Case 3 : u.txtBetrag_Empfaenger._value = getDBL(re.bhrg_pfl) + getDBL(re.bhrg_frei) : u.lblLeistung.Text = If(re.bhrg_vermerk, r.LeistungsBez) Case 4 : u.txtBetrag_FraechterBis._value = getDBL(re.bhrg_pfl) + getDBL(re.bhrg_frei) : u.lblLeistung.Text = If(re.bhrg_vermerk, r.LeistungsBez) Case 5 : u.txtBetrag_FraechterAb._value = getDBL(re.bhrg_pfl) + getDBL(re.bhrg_frei) : u.lblLeistung.Text = If(re.bhrg_vermerk, r.LeistungsBez) End Select End If Next End If ' Dim row = dt.Rows.Find(Function(x) x("bhrg_option") = 3) .Controls.Add(u) Next End With Exit Sub With dgvLeistungen ' dgvBHRg2 .Columns.Clear() Dim dt As DataTable = SQL.loadDgvBySql("SELECT [bhrg_id],[bhrg_atrId],[bhrg_code],[bhrg_vermerk],[bhrg_pfl],[bhrg_frei],[bhrg_option] FROM tblBhRechnungen WHERE bhrg_atrId = '" & auftragID & "' and bhrg_option='3'", "DISPO") ' dt.Columns("bhrg_id").DefaultValue = -1 dt.Columns("bhrg_atrId").DefaultValue = AUFTRAG.atr_id dt.Columns("bhrg_option").DefaultValue = 3 .DataSource = dt 'SQL.loadDgvBySql("SELECT * FROM tblBhRechnungen WHERE bhrg_atrId = '" & auftragID & "' and bhrg_option='3'", "DISPO") 'initDGVBindingBHRg2("SELECT * FROM tblBhRechnungen WHERE bhrg_atrId = '" & auftragID & "' and bhrg_option='3'") .Columns("bhrg_id").Visible = False .Columns("bhrg_atrId").Visible = False .Columns("bhrg_option").Visible = False .Columns("bhrg_code").HeaderText = "Code" .Columns("bhrg_code").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("bhrg_vermerk").HeaderText = "Vermerk" .Columns("bhrg_vermerk").Width = 150 '.Columns("bhrg_vermerk").Visible = False .Columns("bhrg_pfl").HeaderText = "Pfl." .Columns("bhrg_pfl").Width = 70 .Columns("bhrg_frei").HeaderText = "Frei" .Columns("bhrg_frei").Width = 70 FUNC.dgvCellToCbo2(dgvLeistungen, "bhrg_code", "Leistung", "bhrg_code", "select LeistungsNr, cast(LeistungsNr as varchar(3)) + ' ' + LeistungsBez from Leistungen where LeistungsNr in (130,610,345,340,341,344,498,521,601) order by LeistungsNr desc ", "FMZOLL") AddHandler .CellValueChanged, Sub(c As Object, ev As DataGridViewCellEventArgs) If ev.ColumnIndex = dgvLeistungen.Columns("bhrg_code").Index Then dgvLeistungen.Rows(ev.RowIndex).Cells("bhrg_vermerk").Value = "aaaa" End If End Sub ' FUNC.dgvCellToCbo2(dgvLeistungen, 2, "Leistung", "LeistungsNr", "select LeistungsNr,cast(LeistungsNr as varchar(3)) + ' '+ LeistungsBez as display from Leistungen where LeistungsNr in (130,610,345,340,341,344,498,521,601) order by LeistungsNr desc ", "FMZOLL") ' FUNC.dgvCellToCbo(dgvUstv_LaenderUndSteuernummern, 1, "Land", "LandNr", "SELECT LandNr, LandBez FROM [Länderverzeichnis für die Außenhandelsstatistik] ORDER BY LandBez ", "FMZOLL") End With End Sub Function getBHRgFromUsrcntl(Usrcntl As usrcntlLeistungen, opt As Integer, betrag As Double) As cBuchhaltungRechnung getBHRgFromUsrcntl = New cBuchhaltungRechnung getBHRgFromUsrcntl.bhrg_code = Usrcntl.LEISTUNGS_NR getBHRgFromUsrcntl.bhrg_vermerk = If(Usrcntl.lblLeistung.Text <> "", Usrcntl.lblLeistung.Text, Usrcntl.LEISTUNGS_BEZ) If Usrcntl.Steuerpflichtig Then getBHRgFromUsrcntl.bhrg_pfl = betrag.ToString.Replace(",", ".") getBHRgFromUsrcntl.bhrg_frei = 0 Else getBHRgFromUsrcntl.bhrg_pfl = 0 getBHRgFromUsrcntl.bhrg_frei = betrag.ToString.Replace(",", ".") End If getBHRgFromUsrcntl.bhrg_option = opt getBHRgFromUsrcntl.bhrg_leistungIdDispo = Usrcntl.LEISTUNGS_IdDispo End Function Sub saveLeistungenOption3() Dim rechnungen As New List(Of cBuchhaltungRechnung) '= AUFTRAG.BH_rechnungen For Each c As usrcntlLeistungen In flpLeistungen.Controls ' Dim Usrcntl As usrcntlLeistungen = c ' MsgBox(c.txtBetrag_Auftraggeber.Text) If c.txtBetrag_Auftraggeber._value <> "" Then rechnungen.Add(getBHRgFromUsrcntl(c, 1, CDbl(c.txtBetrag_Auftraggeber._value))) If c.txtBetrag_Absender._value <> "" Then rechnungen.Add(getBHRgFromUsrcntl(c, 2, CDbl(c.txtBetrag_Absender._value))) If c.txtBetrag_Empfaenger._value <> "" Then rechnungen.Add(getBHRgFromUsrcntl(c, 3, CDbl(c.txtBetrag_Empfaenger._value))) If c.txtBetrag_FraechterBis._value <> "" Then rechnungen.Add(getBHRgFromUsrcntl(c, 4, CDbl(c.txtBetrag_FraechterBis._value))) If c.txtBetrag_FraechterAb._value <> "" Then rechnungen.Add(getBHRgFromUsrcntl(c, 5, CDbl(c.txtBetrag_FraechterAb._value))) Next AUFTRAG.BH_rechnungen = rechnungen End Sub Function getCheckedState(o) As CheckState If o Is Nothing OrElse o Is DBNull.Value Then Return CheckState.Indeterminate Else If CBool(o) Then Return CheckState.Checked Else Return CheckState.Unchecked End If End If End Function Function getChecked(o) As CheckState If o Is Nothing OrElse o Is DBNull.Value Then Return False Else Return CBool(o) End If End Function Private Sub initDGVBindingLadungen(bindingString As String) Dim sqlstr As String = bindingString ' dgvLKW.DataSource = bindingSDL Dim d As New SqlDataAdapter() Try 'Dim connectionString As String = cSqlDb.GetNewOpenConnection If frmLogin.TESTSYSTEM Then Me.dataAdapterLadungen = New SqlDataAdapter(sqlstr, My.Resources.connStringDISPO_TEST) Else Me.dataAdapterLadungen = New SqlDataAdapter(sqlstr, My.Resources.connStringDISPO) End If Catch ex As SqlException MessageBox.Show("Der Connection-String kann nicht verarbeitet werden. Wenden Sie sich an den Programmbetreuer.") End Try Dim commandBuilder As New SqlCommandBuilder(Me.dataAdapterLadungen) Dim table As New DataTable() Me.dataAdapterLadungen.Fill(table) ' table.Columns("KundenNr").DefaultValue = kdNr table.Locale = System.Globalization.CultureInfo.InvariantCulture 'table.Columns("lad_atrID").DefaultValue = auftragID 'bindingSDL.Clear() dgvLadungen.DataBindings.Clear() Me.dataBindingLadungen.DataSource = table End Sub Private Sub initDGVBindingBHRg1(bindingString As String) Dim sqlstr As String = bindingString ' dgvLKW.DataSource = bindingSDL Dim d As New SqlDataAdapter() Try 'Dim connectionString As String = cSqlDb.GetNewOpenConnection If frmLogin.TESTSYSTEM Then Me.dataAdapterBHRg1 = New SqlDataAdapter(sqlstr, My.Resources.connStringDISPO_TEST) Else Me.dataAdapterBHRg1 = New SqlDataAdapter(sqlstr, My.Resources.connStringDISPO) End If Catch ex As SqlException MessageBox.Show("Der Connection-String kann nicht verarbeitet werden. Wenden Sie sich an den Programmbetreuer.") End Try Dim commandBuilder As New SqlCommandBuilder(Me.dataAdapterBHRg1) Dim table As New DataTable() Me.dataAdapterBHRg1.Fill(table) ' table.Columns("KundenNr").DefaultValue = kdNr table.Locale = System.Globalization.CultureInfo.InvariantCulture 'table.Columns("lad_atrID").DefaultValue = auftragID 'bindingSDL.Clear() dgvBHRg1.DataBindings.Clear() Me.dataBindingBHRg1.DataSource = table End Sub Private Sub initDGVBindingBHRg2(bindingString As String) Dim sqlstr As String = bindingString ' dgvLKW.DataSource = bindingSDL Dim d As New SqlDataAdapter() Try 'Dim connectionString As String = cSqlDb.GetNewOpenConnection If frmLogin.TESTSYSTEM Then Me.dataAdapterBHRg2 = New SqlDataAdapter(sqlstr, My.Resources.connStringDISPO_TEST) Else Me.dataAdapterBHRg2 = New SqlDataAdapter(sqlstr, My.Resources.connStringDISPO) End If Catch ex As SqlException MessageBox.Show("Der Connection-String kann nicht verarbeitet werden. Wenden Sie sich an den Programmbetreuer.") End Try Dim commandBuilder As New SqlCommandBuilder(Me.dataAdapterBHRg2) Dim table As New DataTable() Me.dataAdapterBHRg2.Fill(table) ' table.Columns("KundenNr").DefaultValue = kdNr table.Locale = System.Globalization.CultureInfo.InvariantCulture 'table.Columns("lad_atrID").DefaultValue = auftragID 'bindingSDL.Clear() dgvBHRg2.DataBindings.Clear() Me.dataBindingBHRg2.DataSource = table End Sub Private Sub initDGVBindingBHUntern(bindingString As String) Dim sqlstr As String = bindingString ' dgvLKW.DataSource = bindingSDL Dim d As New SqlDataAdapter() Try 'Dim connectionString As String = cSqlDb.GetNewOpenConnection If frmLogin.TESTSYSTEM Then Me.dataAdapterBHUntern = New SqlDataAdapter(sqlstr, My.Resources.connStringDISPO_TEST) Else Me.dataAdapterBHUntern = New SqlDataAdapter(sqlstr, My.Resources.connStringDISPO) End If Catch ex As SqlException MessageBox.Show("Der Connection-String kann nicht verarbeitet werden. Wenden Sie sich an den Programmbetreuer.") End Try Dim commandBuilder As New SqlCommandBuilder(Me.dataAdapterBHUntern) Dim table As New DataTable() Me.dataAdapterBHUntern.Fill(table) ' table.Columns("KundenNr").DefaultValue = kdNr table.Locale = System.Globalization.CultureInfo.InvariantCulture table.Columns("bhut_atrId").DefaultValue = auftragID dgvBHUntern.DataBindings.Clear() Me.dataBindingBHUntern.DataSource = table End Sub Sub binddata(o As Object, bindingParam As String, bindingSource As BindingSource, dataName As String, Optional bindingNullValue As String = "") o.DataBindings.Clear() o.DataBindings.Add(New Binding(bindingParam, bindingSource, dataName, True, DataSourceUpdateMode.OnPropertyChanged, bindingNullValue)) End Sub Public Sub initB(b As Binding, bindingSource As BindingSource, bindingParam As String, bindingDBname As String) If Not b Is Nothing Then Me.DataBindings.Remove(b) b = New Binding(bindingParam, bindingSource, bindingDBname) Me.DataBindings.Add(b) End Sub Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click If txtFrachtpos.Text = "" Then MsgBox("Bitte Pos-Nr. angeben!") Exit Sub End If ' If btnSave.Enabled Then If saveMe() Then closeWithOutSave = True : Me.Close() ' End If End Sub Public Sub RemoveClickEvent(b As Object) Dim f1 As FieldInfo = GetType(Control).GetField("EventClick", BindingFlags.Static Or BindingFlags.NonPublic) Dim obj As Object = f1.GetValue(b) Dim pi As PropertyInfo = b.GetType().GetProperty("Events", BindingFlags.NonPublic Or BindingFlags.Instance) Dim list As EventHandlerList = DirectCast(pi.GetValue(b, Nothing), EventHandlerList) list.RemoveHandler(obj, list(obj)) End Sub Function isLeerNothing(o) If o Is Nothing Then Return Nothing If o = "" Then Return Nothing Return o End Function Function isLeerNothingDbl(o) If o Is Nothing Then Return Nothing If o = "" Then Return Nothing Return CDbl(o) End Function Sub loadDataInClass() 'Dim auftrag As New cAuftraege AUFTRAG.atr_auftr_id = usrcntlAuftraggeber.BET_ID AUFTRAG.atr_ladest_id = usrcntlLadestelle.BET_ID AUFTRAG.atr_entladest_id = usrcntlEntladestelle.BET_ID 'AUFTRAG.atr_trans_id = usr.BET_ID AUFTRAG.atr_frachtfAb_id = usrCntlFrachtfAb.BET_ID AUFTRAG.atr_frachtf_id = usrCntlFrachtfBis.BET_ID AUFTRAG.atr_absender_id = usrcntlAbsender.BET_ID AUFTRAG.atr_empfaenger_id = usrcntlEmpfaenger.BET_ID AUFTRAG.atr_altladest_id = usrCntlAlternativeLadestelle.BET_ID 'AUFTRAG.atr_trans_id = usr.BET_ID 'AUFTRAG.atr_altladest_id = usrcntlAuftraggeber.BET_ID AUFTRAG.atr_auftr_Kdnr = usrcntlAuftraggeber.kdFirma.KdNrNullInt AUFTRAG.atr_ladest_Kdnr = usrcntlLadestelle.kdFirma.KdNrNullInt AUFTRAG.atr_entladest_Kdnr = usrcntlEntladestelle.kdFirma.KdNrNullInt 'AUFTRAG.atr_trans_Kdnr = usr.BET_Kdnr AUFTRAG.atr_frachtfAb_Kdnr = usrCntlFrachtfAb.kdFirma.KdNrNullInt AUFTRAG.atr_frachtf_Kdnr = usrCntlFrachtfBis.kdFirma.KdNrNullInt AUFTRAG.atr_absender_Kdnr = usrcntlAbsender.kdFirma.KdNrNullInt AUFTRAG.atr_empfaenger_Kdnr = usrcntlEmpfaenger.kdFirma.KdNrNullInt AUFTRAG.atr_altladest_Kdnr = usrCntlAlternativeLadestelle.kdFirma.KdNrNullInt AUFTRAG.atr_RgRefNr = txtRgRefNr.Text AUFTRAG.atr_frachtpos = txtFrachtpos.Text AUFTRAG.atr_datum = datTA.Text AUFTRAG.atr_FilialenNr = If(IsNumeric(cboFilialenNr._value), cboFilialenNr._value, Nothing) AUFTRAG.atr_speditionsbuchNr = AUFTRAG.atr_FilialenNr ' MsgBox(txtFrachtf_tatKosten._value) AUFTRAG.atr_beladung = isLeerNothing(txtBeladung._value) AUFTRAG.atr_entladung = isLeerNothing(txtEntladung._value) AUFTRAG.atr_frachtf_tatKosten = isLeerNothingDbl(txtFrachtf_tatKosten._value) AUFTRAG.atr_frachtfAb_tatKosten = isLeerNothingDbl(txtFrachtfAb_tatKosten._value) AUFTRAG.atr_AuftragsArt = cboAuftragsart._value AUFTRAG.atr_TransportauftragArt = "" If AUFTRAG.atr_AuftragsArt = "TRANSPORT" Then AUFTRAG.atr_TransportauftragArt = cboTransportauftragArt._value AUFTRAG.atr_frachtf_firma = usrCntlFrachtfBis.txtFirma.Text AUFTRAG.atr_frachtf_str = usrCntlFrachtfBis.txtStr.Text AUFTRAG.atr_frachtf_strnr = usrCntlFrachtfBis.txtStrnr.Text AUFTRAG.atr_frachtf_land = usrCntlFrachtfBis.cboLand.Text AUFTRAG.atr_frachtf_plz = usrCntlFrachtfBis.txtPlz.Text AUFTRAG.atr_frachtf_ort = usrCntlFrachtfBis.txtOrt.Text AUFTRAG.atr_frachtf_anspr = usrCntlFrachtfBis.txtAnpsr.Text AUFTRAG.atr_ladest_firma = usrcntlLadestelle.txtFirma.Text AUFTRAG.atr_ladest_str = usrcntlLadestelle.txtStr.Text AUFTRAG.atr_ladest_strnr = usrcntlLadestelle.txtStrnr.Text AUFTRAG.atr_ladest_land = usrcntlLadestelle.cboLand.Text AUFTRAG.atr_ladest_plz = usrcntlLadestelle.txtPlz.Text AUFTRAG.atr_ladest_ort = usrcntlLadestelle.txtOrt.Text AUFTRAG.atr_ladest_anspr = usrcntlLadestelle.txtAnpsr.Text AUFTRAG.atr_ladest_termin = cbxLadest_termin.Checked If cbxLadest_termin.Checked Then AUFTRAG.atr_ladest_terminDat = datLadest_terminDat.Value.ToString("dd.MM.yyyy") AUFTRAG.atr_ladest_terminVon = txtLadest_terminVon.Text AUFTRAG.atr_ladest_terminBis = txtLadest_terminBis.Text End If AUFTRAG.atr_hasaltladest = cbxAltLadest.Checked AUFTRAG.atr_altladest_firma = usrCntlAlternativeLadestelle.txtFirma.Text AUFTRAG.atr_altladest_str = usrCntlAlternativeLadestelle.txtStr.Text AUFTRAG.atr_altladest_strnr = usrCntlAlternativeLadestelle.txtStrnr.Text AUFTRAG.atr_altladest_land = usrCntlAlternativeLadestelle.cboLand.Text AUFTRAG.atr_altladest_plz = usrCntlAlternativeLadestelle.txtPlz.Text AUFTRAG.atr_altladest_ort = usrCntlAlternativeLadestelle.txtOrt.Text AUFTRAG.atr_altladest_anspr = usrCntlAlternativeLadestelle.txtAnpsr.Text AUFTRAG.atr_ladest_isRefNr = cbxLadest_RefNr.Checked If cbxLadest_RefNr.Checked Then AUFTRAG.atr_ladest_refNr = txtLadest_RefNr.Text Else AUFTRAG.atr_ladest_refNr = "" End If AUFTRAG.atr_entladest_firma = usrcntlEntladestelle.txtFirma.Text AUFTRAG.atr_entladest_str = usrcntlEntladestelle.txtStr.Text AUFTRAG.atr_entladest_strnr = usrcntlEntladestelle.txtStrnr.Text AUFTRAG.atr_entladest_land = usrcntlEntladestelle.cboLand.Text AUFTRAG.atr_entladest_plz = usrcntlEntladestelle.txtPlz.Text AUFTRAG.atr_entladest_ort = usrcntlEntladestelle.txtOrt.Text AUFTRAG.atr_entladest_anspr = usrcntlEntladestelle.txtAnpsr.Text AUFTRAG.atr_entladest_termin = cbxEntladest_termin.Checked If cbxEntladest_termin.Checked Then AUFTRAG.atr_entladest_terminDat = datEntladest_terminDat.Value.ToString("dd.MM.yyyy") AUFTRAG.atr_entladest_terminVon = txtEntladest_terminVon.Text AUFTRAG.atr_entladest_terminBis = txtEntladest_terminBis.Text End If AUFTRAG.atr_auftr_firma = usrcntlAuftraggeber.txtFirma.Text AUFTRAG.atr_auftr_str = usrcntlAuftraggeber.txtStr.Text AUFTRAG.atr_auftr_strnr = usrcntlAuftraggeber.txtStrnr.Text AUFTRAG.atr_auftr_land = usrcntlAuftraggeber.cboLand.Text AUFTRAG.atr_auftr_plz = usrcntlAuftraggeber.txtPlz.Text AUFTRAG.atr_auftr_ort = usrcntlAuftraggeber.txtOrt.Text AUFTRAG.atr_auftr_anspr = usrcntlAuftraggeber.txtAnpsr.Text AUFTRAG.cmr_ausl_land = cboAuslieferung_land.Text AUFTRAG.cmr_ausl_ort = txtAuslieferung_ort.Text AUFTRAG.cmr_beigefDok = rtbBeigefDok.Text AUFTRAG.cmr_anwAbs = rtbAnwAbs.Text AUFTRAG.cmr_rueckerst = txtRueckerst.Text AUFTRAG.cmr_frZahlanwFrei = txtFrachtzahl_frei.Text AUFTRAG.cmr_frZahlanwUnfrei = txtFrachtzahl_unfrei.Text AUFTRAG.cmr_besVereinb = rtbBesVereinb.Text AUFTRAG.cmr_ausgefIn = txtAusgef.Text AUFTRAG.cmr_uebergabe_land = cboUebergabe_land.Text AUFTRAG.cmr_uebergabe_ort = txtUebergabe_ort.Text AUFTRAG.cmr_uebergabe_datum = datUebergabe_datum.Value AUFTRAG.cmr_vorbehFrachtf = rtbVorbehBem.Text AUFTRAG.atr_lkwKz = txtLkwKz.Text AUFTRAG.atr_lkwArt = txtLkwArt.Text AUFTRAG.atr_lkwNutzlast = txtLkwNutzlast.Text AUFTRAG.atr_anhKz = txtAnhKz.Text AUFTRAG.atr_anhNutzlast = txtAnhNutzlast.Text AUFTRAG.atr_bemerkung = rtbTrans_Bem.Text AUFTRAG.atr_frachtkosten = rtbTrans_Frachtkosten.Text AUFTRAG.atr_verzollungsadresse = rtbTrans_Verzollungsadresse.Text AUFTRAG.atr_abliefernachweis = cbxAbliefernachweis.Checked AUFTRAG.bh_mon = txtbhMon.Text AUFTRAG.bh_vermerke = rtbBhVermerke.Text AUFTRAG.atr_notes = rtbNotes.Text AUFTRAG.atr_absender_firma = usrcntlAbsender.txtFirma.Text AUFTRAG.atr_absender_str = usrcntlAbsender.txtStr.Text AUFTRAG.atr_absender_strnr = usrcntlAbsender.txtStrnr.Text AUFTRAG.atr_absender_land = usrcntlAbsender.cboLand.Text AUFTRAG.atr_absender_plz = usrcntlAbsender.txtPlz.Text AUFTRAG.atr_absender_ort = usrcntlAbsender.txtOrt.Text AUFTRAG.atr_absender_anspr = usrcntlAbsender.txtAnpsr.Text AUFTRAG.atr_empfaenger_firma = usrcntlEmpfaenger.txtFirma.Text AUFTRAG.atr_empfaenger_str = usrcntlEmpfaenger.txtStr.Text AUFTRAG.atr_empfaenger_strnr = usrcntlEmpfaenger.txtStrnr.Text AUFTRAG.atr_empfaenger_land = usrcntlEmpfaenger.cboLand.Text AUFTRAG.atr_empfaenger_plz = usrcntlEmpfaenger.txtPlz.Text AUFTRAG.atr_empfaenger_ort = usrcntlEmpfaenger.txtOrt.Text AUFTRAG.atr_empfaenger_anspr = usrcntlEmpfaenger.txtAnpsr.Text AUFTRAG.atr_frachtfAb_firma = usrCntlFrachtfAb.txtFirma.Text AUFTRAG.atr_frachtfAb_str = usrCntlFrachtfAb.txtStr.Text AUFTRAG.atr_frachtfAb_strnr = usrCntlFrachtfAb.txtStrnr.Text AUFTRAG.atr_frachtfAb_land = usrCntlFrachtfAb.cboLand.Text AUFTRAG.atr_frachtfAb_plz = usrCntlFrachtfAb.txtPlz.Text AUFTRAG.atr_frachtfAb_ort = usrCntlFrachtfAb.txtOrt.Text AUFTRAG.atr_frachtfAb_anspr = usrCntlFrachtfAb.txtAnpsr.Text AUFTRAG.atr_frachtfAb_lkwKz = txtFrachtfAb_LkwKr.Text AUFTRAG.atr_frachtfAb_lkwArt = txtFrachtfAb_LkwArt.Text AUFTRAG.atr_frachtfAb_lkwNutzlast = txtFrachtfAb_LkwNutzlast.Text AUFTRAG.atr_frachtfAb_anhKz = txtFrachtfAb_AnhKz.Text AUFTRAG.atr_frachtfAb_anhNutzlast = txtFrachtfAb_AnhNutzlast.Text If IsNumeric(AUFTRAG.atr_ladest_id) Then Dim o As cOeffnungszeiten = DISPO.getOeffnungszeitenByKdId(AUFTRAG.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 AUFTRAG.oezlade = o_str End If End If If IsNumeric(AUFTRAG.atr_entladest_id) Then Dim o As cOeffnungszeiten = DISPO.getOeffnungszeitenByKdId(AUFTRAG.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 AUFTRAG.oezentlade = o_str End If End If Dim unternkennz As New List(Of cUnternKennz) For Each r In dgvBHUntern.Rows Dim tmp As New cUnternKennz tmp.bhut_id = nullStr(r.cells("bhut_id").value) tmp.bhut_unternKennz = nullStr(r.cells("bhut_unternKennz").value) tmp.bhut_bis = nullStr(r.cells("bhut_bis").value) tmp.bhut_kosten = nullStr(r.cells("bhut_kosten").value) unternkennz.Add(tmp) Next AUFTRAG.BH_unternkennz = unternkennz Dim ladungen As New List(Of cDispoLadungen) For Each r As DataGridViewRow In dgvLadungen.Rows Dim tmp As New cDispoLadungen If r.Index < dgvLadungen.Rows.GetLastRow(DataGridViewElementStates.Visible) Then tmp.lad_ZeNr = nullStr(r.Cells("lad_ZeNr").Value) tmp.lad_Anzahl = nullStr(r.Cells("lad_Anzahl").Value) tmp.lad_Art = nullStr(r.Cells("lad_Art").Value) tmp.lad_Bezeichnung = nullStr(r.Cells("lad_Bezeichnung").Value) tmp.lad_StatNr = nullStr(r.Cells("lad_StatNr").Value) tmp.lad_BruttoKg = nullStr(r.Cells("lad_BruttoKg").Value) tmp.lad_Umfang = nullStr(r.Cells("lad_Umfang").Value) ladungen.Add(tmp) End If Next AUFTRAG.LADUNGEN = ladungen If False Then Dim rechnungen As New List(Of cBuchhaltungRechnung) For Each r In dgvBHRg1.Rows Dim tmp As New cBuchhaltungRechnung tmp.bhrg_code = nullStr(r.cells("bhrg_code").value) tmp.bhrg_vermerk = nullStr(r.cells("bhrg_vermerk").value) tmp.bhrg_pfl = nullStr(r.cells("bhrg_pfl").value) tmp.bhrg_frei = nullStr(r.cells("bhrg_frei").value) tmp.bhrg_option = 1 rechnungen.Add(tmp) Next For Each r In dgvBHRg2.Rows Dim tmp As New cBuchhaltungRechnung tmp.bhrg_code = nullStr(r.cells("bhrg_code").value) tmp.bhrg_vermerk = nullStr(r.cells("bhrg_vermerk").value) tmp.bhrg_pfl = nullStr(r.cells("bhrg_pfl").value) tmp.bhrg_frei = nullStr(r.cells("bhrg_frei").value) tmp.bhrg_option = 2 rechnungen.Add(tmp) Next AUFTRAG.BH_rechnungen = rechnungen End If saveLeistungenOption3() 'Return auftrag End Sub Private Sub cbxAbliefernachweis_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAbliefernachweis.CheckedChanged If cbxAbliefernachweis.Checked Then Me.BackColor = Color.MintCream Else Me.BackColor = SystemColors.Control End If End Sub Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click closeWithOutSave = True Me.Close() End Sub Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles btnCMR1.Click, btnCMR2.Click 'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then Me.Cursor = Cursors.WaitCursor saveMe() 'zusert Daten laden Dim eh As New SDL.frmCMR(initCMR2()) eh.Show() Me.Cursor = Cursors.Default ' End If Exit Sub loadDataInClass() frmPrintView.fillCMRReport(initCMR()) frmPrintView.Show() End Sub Private Sub Button5_Click_1(sender As Object, e As EventArgs) Handles btnTrans1.Click, btnTrans2.Click 'loadDataInClass() 'frmPrintView.fillTransReport(initTrans(), getTransportAtrFirma) 'frmPrintView.Show() 'frmPrintActiveReports.Standort = cboFilialenNr.SelectedItem.Value initTrans() If usrcntlEntladestelle.BET_ID >= 0 Then AUFTRAG.avisoentlade = DISPO.getAvisoFromKundeByIds(usrcntlEntladestelle.BET_ID) Else AUFTRAG.avisoentlade = Nothing End If If usrcntlLadestelle.BET_ID >= 0 Then AUFTRAG.avisolade = DISPO.getAvisoFromKundeByIds(usrcntlLadestelle.BET_ID) Else AUFTRAG.avisolade = Nothing End If If AUFTRAG.atr_tripNr = "" Then Dim PrintActiveReports As New frmPrintActiveReports PrintActiveReports.Standort = cboFirma.SelectedItem PrintActiveReports.Reporter = "Transportauftrag" PrintActiveReports.printauftrag = AUFTRAG PrintActiveReports.Show() Else Dim PrintActiveReports As New frmPrintActiveReports PrintActiveReports.Standort = cboFirma.SelectedItem PrintActiveReports.Reporter = "Transportauftrag" PrintActiveReports.istrip = True PrintActiveReports.printauftrag = AUFTRAG Dim trip As New cTrips trip.tripNr = AUFTRAG.atr_tripNr trip.LoadTrip() PrintActiveReports.printTrip = trip PrintActiveReports.Show() End If End Sub Function getTransportAtrFirma() Select Case cboFirma.SelectedIndex Case 0 : Return "VERAG_AT" Case Else : Return "VERAG_GmbH" End Select End Function Private Sub btnBuchh1_Click(sender As Object, e As EventArgs) Handles btnBuchh2.Click frmLoading.Show() loadDataInClass() frmPrintView.fillBuchReport(initBH()) frmPrintView.Show() End Sub 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 Private Function initTrans() As cTransParams AUFTRAG.oezlade = "" AUFTRAG.oezentlade = "" Dim cTransParams As New cTransParams cTransParams.aviso = "" If usrcntlEntladestelle.BET_ID >= 0 Then Dim s() As String = DISPO.getAvisoFromKundeByIds(usrcntlEntladestelle.BET_ID) If Not s Is Nothing Then If s(0) <> "" And s(0) = "0" Then cTransParams.aviso = "Avisieren:" If s(1) <> "" Then cTransParams.aviso &= vbNewLine & s(1) If s(2) <> "" Then cTransParams.aviso &= " " & s(2) ElseIf s(0) = "1" Then cTransParams.aviso = "Ankunftsaviso:" If s(1) <> "" Then cTransParams.aviso &= vbNewLine & s(1) If s(2) <> "" Then cTransParams.aviso &= " " & s(2) Else cTransParams.aviso = "" If s(1) <> "" Then cTransParams.aviso &= vbNewLine & s(1) If s(2) <> "" Then cTransParams.aviso &= " " & s(2) End If End If End If cTransParams.frachtpos = txtFrachtpos.Text If cboTransportauftragArt._value = "NACH" Then cTransParams.an_firma = usrCntlFrachtfAb.txtFirma.Text cTransParams.an_anspr = usrCntlFrachtfAb.txtAnpsr.Text cTransParams.lkw_kennz = txtFrachtfAb_LkwKr.Text cTransParams.lkw_art = txtFrachtfAb_LkwArt.Text Else cTransParams.an_firma = usrCntlFrachtfBis.txtFirma.Text cTransParams.an_anspr = usrCntlFrachtfBis.txtAnpsr.Text cTransParams.lkw_kennz = txtLkwKz.Text cTransParams.lkw_art = txtLkwArt.Text End If cTransParams.datum = Now.ToString("dd.MM.yyyy") cTransParams.sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME cTransParams.ladestelle = "" cTransParams.ladestelle += usrcntlLadestelle.txtFirma.Text & vbNewLine cTransParams.ladestelle += usrcntlLadestelle.txtStr.Text & " " & usrcntlLadestelle.txtStrnr.Text & vbNewLine cTransParams.ladestelle += usrcntlLadestelle.cboLand.Text & " " & usrcntlLadestelle.txtPlz.Text & " - " & usrcntlLadestelle.txtOrt.Text & vbNewLine cTransParams.ladestelle = cTransParams.ladestelle.Trim() cTransParams.ladest_kontakt = vbNewLine Dim ldst_kont() As String = DISPO.getAvisoFromKundeByIds(usrcntlLadestelle.BET_ID) If Not ldst_kont Is Nothing Then If ldst_kont(1) <> "" Then cTransParams.ladest_kontakt &= ldst_kont(1) If ldst_kont(2) <> "" Then cTransParams.ladest_kontakt &= " " & ldst_kont(2) End If If cbxLadest_RefNr.Checked Then cTransParams.referenz = txtLadest_RefNr.Text End If If cbxLadest_termin.Checked Then cTransParams.ladest_termin = datLadest_terminDat.Value.ToString("dd.MM.yyyy, ") & txtLadest_terminVon.Text & " - " & txtLadest_terminBis.Text Else : cTransParams.ladest_termin = "" End If cTransParams.ladest_oeffnungszeiten = "" If IsNumeric(usrcntlLadestelle.BET_ID) Then Dim o As cOeffnungszeiten = DISPO.getOeffnungszeitenByKdId(usrcntlLadestelle.BET_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 cTransParams.ladest_oeffnungszeiten = o_str : AUFTRAG.oezlade = o_str End If End If cTransParams.entladest_oeffnungszeiten = "" If IsNumeric(usrcntlEntladestelle.BET_ID) Then Dim o As cOeffnungszeiten = DISPO.getOeffnungszeitenByKdId(usrcntlEntladestelle.BET_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 cTransParams.entladest_oeffnungszeiten = o_str : AUFTRAG.oezentlade = o_str End If End If cTransParams.entladestelle = "" cTransParams.entladestelle += usrcntlEntladestelle.txtFirma.Text & vbNewLine cTransParams.entladestelle += usrcntlEntladestelle.txtStr.Text & " " & usrcntlEntladestelle.txtStrnr.Text & vbNewLine cTransParams.entladestelle += usrcntlEntladestelle.cboLand.Text & " " & usrcntlEntladestelle.txtPlz.Text & " - " & usrcntlEntladestelle.txtOrt.Text & vbNewLine cTransParams.entladestelle = cTransParams.entladestelle.Trim() If cbxEntladest_termin.Checked Then cTransParams.entladest_termin = datEntladest_terminDat.Value.ToString("dd.MM.yyyy, ") & txtEntladest_terminVon.Text & " - " & txtEntladest_terminBis.Text Else : cTransParams.entladest_termin = "" End If cTransParams.bemerkung = rtbTrans_Bem.Text cTransParams.verzollungsadresse = rtbTrans_Verzollungsadresse.Text cTransParams.frachtkosten = rtbTrans_Frachtkosten.Text Dim CMR As New List(Of cCMRLadeliste) loadDataInClass() For Each cLadungen As cDispoLadungen In AUFTRAG.LADUNGEN Dim cCMR = New cCMRLadeliste cCMR.ZeNr = cLadungen.lad_ZeNr cCMR.AnzPack = cLadungen.lad_Anzahl cCMR.Art = cLadungen.lad_Art cCMR.Bez = cLadungen.lad_Bezeichnung cCMR.Stat = cLadungen.lad_StatNr cCMR.BruttoKg = cLadungen.lad_BruttoKg cCMR.Umfang = cLadungen.lad_Umfang CMR.Add(cCMR) Next printcmr = CMR cTransParams.cCMRLadeliste = CMR Return cTransParams End Function Private Function initCMR() As cCMRParams Dim cCMRParams As New cCMRParams If cbxAltLadest.Checked Then cCMRParams.param1 = "" cCMRParams.param1 += usrCntlAlternativeLadestelle.txtFirma.Text & vbNewLine cCMRParams.param1 += usrCntlAlternativeLadestelle.txtStr.Text & " " & usrCntlAlternativeLadestelle.txtStrnr.Text & vbNewLine cCMRParams.param1 += usrCntlAlternativeLadestelle.cboLand.Text & " " & usrCntlAlternativeLadestelle.txtPlz.Text & " - " & usrCntlAlternativeLadestelle.txtOrt.Text & vbNewLine cCMRParams.param1 = cCMRParams.param1.Trim() Else cCMRParams.param1 = "" cCMRParams.param1 += usrcntlLadestelle.txtFirma.Text & vbNewLine cCMRParams.param1 += usrcntlLadestelle.txtStr.Text & " " & usrcntlLadestelle.txtStrnr.Text & vbNewLine cCMRParams.param1 += usrcntlLadestelle.cboLand.Text & " " & usrcntlLadestelle.txtPlz.Text & " - " & usrcntlLadestelle.txtOrt.Text & vbNewLine cCMRParams.param1 = cCMRParams.param1.Trim() End If cCMRParams.param2 = "" cCMRParams.param2 += usrcntlEntladestelle.txtFirma.Text & vbNewLine cCMRParams.param2 += usrcntlEntladestelle.txtStr.Text & " " & usrcntlEntladestelle.txtStrnr.Text & vbNewLine cCMRParams.param2 += usrcntlEntladestelle.cboLand.Text & " " & usrcntlEntladestelle.txtPlz.Text & " - " & usrcntlEntladestelle.txtOrt.Text & vbNewLine cCMRParams.param2 = cCMRParams.param2.Trim() cCMRParams.param3_1 = txtAuslieferung_ort.Text cCMRParams.param3_2 = cboAuslieferung_land.Text cCMRParams.param4_1 = txtUebergabe_ort.Text cCMRParams.param4_2 = cboUebergabe_land.Text cCMRParams.param4_3 = datUebergabe_datum.Text cCMRParams.param5 = rtbBeigefDok.Text cCMRParams.param13 = rtbAnwAbs.Text cCMRParams.param14 = txtRueckerst.Text cCMRParams.param15 = txtFrachtzahl_frei.Text & vbNewLine & txtFrachtzahl_unfrei.Text cCMRParams.param16 = "" ' If cboTransportauftragArt._value = "NACH" Then cCMRParams.param16 += usrCntlFrachtfAb.txtFirma.Text & vbNewLine cCMRParams.param16 += usrCntlFrachtfAb.txtStr.Text & " " & usrCntlFrachtfAb.txtStrnr.Text & vbNewLine cCMRParams.param16 += usrCntlFrachtfAb.cboLand.Text & " " & usrCntlFrachtfAb.txtPlz.Text & " - " & usrCntlFrachtfAb.txtOrt.Text & vbNewLine cCMRParams.param16 = cCMRParams.param16.Trim() cCMRParams.param17 = "" ' cCMRParams.param17 += txtNachf_firma.Text & vbNewLine ' cCMRParams.param17 += txtNachf_str.Text & " " & txtNachf_strnr.Text & vbNewLine ' cCMRParams.param17 += cboNachf_land.Text & " " & txtNachf_plz.Text & " - " & txtNachf_ort.Text & vbNewLine ' cCMRParams.param17 = cCMRParams.param17.Trim() cCMRParams.param18 = rtbVorbehBem.Text cCMRParams.param20 = rtbBesVereinb.Text cCMRParams.param21 = txtAusgef.Text cCMRParams.param22 = cCMRParams.param1 cCMRParams.param23 = cCMRParams.param16 cCMRParams.param27_1 = txtFrachtfAb_LkwKr.Text & vbNewLine & txtFrachtfAb_AnhKz.Text cCMRParams.param27_2 = txtFrachtfAb_LkwNutzlast.Text & vbNewLine & txtFrachtfAb_AnhNutzlast.Text Dim CMR As New List(Of cCMRLadeliste) For i As Integer = 0 To 6 Step 1 Dim cCMR = New cCMRLadeliste Dim cLadungen As New cDispoLadungen loadDataInClass() Dim lad_tmp As List(Of cDispoLadungen) = AUFTRAG.LADUNGEN If lad_tmp.Count > i Then cLadungen = lad_tmp(i) End If cCMR.ZeNr = cLadungen.lad_ZeNr cCMR.AnzPack = cLadungen.lad_Anzahl cCMR.Art = cLadungen.lad_Art cCMR.Bez = cLadungen.lad_Bezeichnung cCMR.Stat = cLadungen.lad_StatNr cCMR.BruttoKg = cLadungen.lad_BruttoKg cCMR.Umfang = cLadungen.lad_Umfang CMR.Add(cCMR) Next cCMRParams.cCMRLadeliste = CMR Return cCMRParams End Function Private Function initCMR2() As SDL.cCMR initCMR2 = New SDL.cCMR Try If If(AUFTRAG.atr_hasaltladest, False) Then 'If(AUFTRAG.atr_altladest_firma, "") <> "" Then initCMR2.CMR_Absender_1 = If(AUFTRAG.atr_altladest_firma, "") initCMR2.CMR_Absender_2 = (If(AUFTRAG.atr_altladest_str, "") & " " & If(AUFTRAG.atr_altladest_strnr, "")).trim initCMR2.CMR_Absender_3 = (If(AUFTRAG.atr_altladest_land, "") & " " & If(AUFTRAG.atr_altladest_plz, "") & " " & If(AUFTRAG.atr_altladest_ort, "")).trim Else If If(AUFTRAG.atr_ladest_firma, "") <> "" Then initCMR2.CMR_Absender_1 = If(AUFTRAG.atr_ladest_firma, "") initCMR2.CMR_Absender_2 = (If(AUFTRAG.atr_ladest_str, "") & " " & If(AUFTRAG.atr_ladest_strnr, "")).trim initCMR2.CMR_Absender_3 = (If(AUFTRAG.atr_ladest_land, "") & " " & If(AUFTRAG.atr_ladest_plz, "") & " " & If(AUFTRAG.atr_ladest_ort, "")).trim End If End If If If(AUFTRAG.atr_entladest_firma, "") <> "" Then initCMR2.CMR_Empfänger_1 = If(AUFTRAG.atr_entladest_firma, "") initCMR2.CMR_Empfänger_2 = (If(AUFTRAG.atr_entladest_str, "") & " " & If(AUFTRAG.atr_entladest_strnr, "")).trim initCMR2.CMR_Empfänger_3 = (If(AUFTRAG.atr_entladest_land, "") & " " & If(AUFTRAG.atr_entladest_plz, "") & " " & If(AUFTRAG.atr_entladest_ort, "")).trim End If initCMR2.CMR_Auslieferung_Ort = If(AUFTRAG.cmr_ausl_ort, "") initCMR2.CMR_Auslieferung_Land = If(AUFTRAG.cmr_ausl_land, "") '' '' initCMR2.CMR_Übernahme_Ort = If(AUFTRAG.cmr_uebergabe_ort, "") initCMR2.CMR_Übernahme_Land = If(AUFTRAG.cmr_uebergabe_land, "") initCMR2.CMR_Übernahme_Datum = Now.ToShortDateString If AUFTRAG.cmr_uebergabe_datum IsNot Nothing AndAlso IsDate(AUFTRAG.cmr_uebergabe_datum) Then initCMR2.CMR_Übernahme_Datum = CDate(AUFTRAG.cmr_uebergabe_datum).ToShortDateString End If If AUFTRAG.cmr_beigefDok IsNot Nothing Then Dim s = AUFTRAG.cmr_beigefDok.ToString.Split(Environment.NewLine) If s.Length > 0 Then initCMR2.CMR_Dokumente_1 = s(0) If s.Length > 1 Then initCMR2.CMR_Dokumente_2 = s(1) If s.Length > 2 Then initCMR2.CMR_Dokumente_3 = s(2) End If If AUFTRAG.cmr_anwAbs IsNot Nothing Then Dim s = AUFTRAG.cmr_anwAbs.ToString.Split(Environment.NewLine) If s.Length > 0 Then initCMR2.CMR_Anweisungen_1 = s(0) If s.Length > 1 Then initCMR2.CMR_Anweisungen_2 = s(1) If s.Length > 2 Then initCMR2.CMR_Anweisungen_3 = s(2) End If initCMR2.CMR_Rückerstattung = If(AUFTRAG.cmr_rueckerst, "") initCMR2.CMR_Frachtzahlungsanweisung_Frei = If(AUFTRAG.cmr_frZahlanwFrei, "") initCMR2.CMR_Frachtzahlungsanweisung_Unfrei = If(AUFTRAG.cmr_frZahlanwUnfrei, "") If If(AUFTRAG.atr_frachtfAb_firma, "") <> "" Then initCMR2.CMR_Frachtführer_1 = If(AUFTRAG.atr_frachtfAb_firma, "") initCMR2.CMR_Frachtführer_2 = (If(AUFTRAG.atr_frachtfAb_str, "") & " " & If(AUFTRAG.atr_frachtfAb_strnr, "")).trim initCMR2.CMR_Frachtführer_3 = (If(AUFTRAG.atr_frachtfAb_land, "") & " " & If(AUFTRAG.atr_frachtfAb_plz, "") & " " & If(AUFTRAG.atr_frachtfAb_ort, "")).trim End If If False Then If AUFTRAG.atr_bemerkung IsNot Nothing Then Dim s = AUFTRAG.atr_bemerkung.ToString.Split(Environment.NewLine) If s.Length > 0 Then initCMR2.CMR_Bemerkungen_1 = s(0) If s.Length > 1 Then initCMR2.CMR_Bemerkungen_2 = s(1) If s.Length > 2 Then initCMR2.CMR_Bemerkungen_3 = s(2) If s.Length > 3 Then initCMR2.CMR_Bemerkungen_4 = s(3) If s.Length > 4 Then initCMR2.CMR_Bemerkungen_5 = s(4) End If End If If AUFTRAG.cmr_besVereinb IsNot Nothing Then Dim s = AUFTRAG.cmr_besVereinb.ToString.Split(Environment.NewLine) If s.Length > 0 Then initCMR2.CMR_Vereinbarungen_1 = s(0) If s.Length > 1 Then initCMR2.CMR_Vereinbarungen_2 = s(1) End If initCMR2.CMR_Ausgefertigt = If(AUFTRAG.cmr_ausgefIn, "") initCMR2.CMR_Kennzeichen_Kfz = If(AUFTRAG.atr_frachtfAb_lkwKz, "") initCMR2.CMR_Kennzeichen_Anhänger = If(AUFTRAG.atr_frachtfAb_anhKz, "") initCMR2.CMR_Nutzlast_Kfz = If(AUFTRAG.atr_frachtfAb_lkwNutzlast, "") initCMR2.CMR_Nutzlast_Anhänger = If(AUFTRAG.atr_frachtfAb_anhNutzlast, "") initCMR2.CMR_Stempel_Absender_1 = initCMR2.CMR_Absender_1 initCMR2.CMR_Stempel_Absender_2 = initCMR2.CMR_Absender_3 initCMR2.CMR_Stempel_Frachtführer_1 = initCMR2.CMR_Frachtführer_1 initCMR2.CMR_Stempel_Frachtführer_2 = initCMR2.CMR_Frachtführer_3 For Each lad In AUFTRAG.LADUNGEN Dim POS As New SDL.cCMRPos POS.Zeichen = lad.lad_ZeNr POS.Anzahl = lad.lad_Anzahl POS.Art = lad.lad_Art POS.Bezeichnung = lad.lad_Bezeichnung POS.StatistikNr = lad.lad_StatNr POS.Bruttogewicht = lad.lad_BruttoKg POS.Umfang = lad.lad_Umfang initCMR2.CMRPos.Add(POS) Next initCMR2.CMR_Bemerkungen_1 &= If(" Verag Pos.Nr.: " & AUFTRAG.atr_frachtpos, "") Catch ex As Exception MsgBox("Problem bein erstellen des CMR!" & vbNewLine & ex.Message & ex.StackTrace) End Try End Function Private Function initBH() As cBuchParams Dim d As New cBuchParams d.spedBuchNr = cboFilialenNr._value For i As Integer = 0 To txtbhMon.Text.Length - 1 d.mon &= txtbhMon.Text.ToString()(i) & " " Next Dim frachtpos As String = txtFrachtpos.Text.Replace("/", "") For i As Integer = 0 To frachtpos.Length - 1 d.posNr &= frachtpos.ToString()(i) & " " Next Dim dat As String = datTA.Value.ToString("ddMMyy") For i As Integer = 0 To dat.Length - 1 d.auftrDatum &= dat(i) & " " Next ' cBuchParams.mon = txtbhMon.Text.ToString ' cBuchParams.posNr = txtFrachtpos.Text.ToString d.absender = "" d.absender += usrcntlLadestelle.txtFirma.Text & vbNewLine d.absender += usrcntlLadestelle.txtStr.Text & " " & usrcntlLadestelle.txtStrnr.Text & vbNewLine d.absender += usrcntlLadestelle.cboLand.Text & " " & usrcntlLadestelle.txtPlz.Text & " - " & usrcntlLadestelle.txtOrt.Text & vbNewLine d.absender = d.absender.Trim() d.abs_ladedat_datum = datLadest_terminDat.Value.ToString("dd.MM.yyyy") d.abs_ladedat_von = txtLadest_terminVon.Text d.abs_ladedat_bis = txtLadest_terminBis.Text d.abs_anspr = usrcntlLadestelle.txtAnpsr.Text d.empfaenger = "" d.empfaenger += usrcntlEntladestelle.txtFirma.Text & vbNewLine d.empfaenger += usrcntlEntladestelle.txtStr.Text & " " & usrcntlEntladestelle.txtStrnr.Text & vbNewLine d.empfaenger += usrcntlEntladestelle.cboLand.Text & " " & usrcntlEntladestelle.txtPlz.Text & " - " & usrcntlEntladestelle.txtOrt.Text & vbNewLine d.empfaenger = d.empfaenger.Trim() d.empf_ladedat_datum = datEntladest_terminDat.Value.ToString("dd.MM.yyyy") d.empf_ladedat_von = txtEntladest_terminVon.Text d.empf_ladedat_bis = txtEntladest_terminBis.Text d.empf_anspr = usrcntlEntladestelle.txtAnpsr.Text ' d.auftraggeber = txtAuftr_firma.Text d.auftraggeber = "" d.auftraggeber += usrcntlAuftraggeber.txtFirma.Text & vbNewLine d.auftraggeber += usrcntlAuftraggeber.txtStr.Text & " " & usrcntlAuftraggeber.txtStrnr.Text & vbNewLine d.auftraggeber += usrcntlAuftraggeber.cboLand.Text & " " & usrcntlAuftraggeber.txtPlz.Text & " - " & usrcntlAuftraggeber.txtOrt.Text & vbNewLine d.auftraggeber = d.auftraggeber.Trim() d.auftr_anspr = usrcntlAuftraggeber.txtAnpsr.Text If dgvBHUntern.RowCount > 0 Then d.unterKennz1 = nullStr(dgvBHUntern.Rows(0).Cells("bhut_unternKennz").Value) d.unterKennz_bis1 = nullStr(dgvBHUntern.Rows(0).Cells("bhut_bis").Value) d.unterKennz_kosten1 = nullStr(dgvBHUntern.Rows(0).Cells("bhut_kosten").Value) End If If dgvBHUntern.RowCount > 1 Then d.unterKennz2 = nullStr(dgvBHUntern.Rows(1).Cells("bhut_unternKennz").Value) d.unterKennz_bis2 = nullStr(dgvBHUntern.Rows(1).Cells("bhut_bis").Value) d.unterKennz_kosten2 = nullStr(dgvBHUntern.Rows(1).Cells("bhut_kosten").Value) End If If dgvBHUntern.RowCount > 2 Then d.unterKennz3 = nullStr(dgvBHUntern.Rows(2).Cells("bhut_unternKennz").Value) d.unterKennz_bis3 = nullStr(dgvBHUntern.Rows(2).Cells("bhut_bis").Value) d.unterKennz_kosten3 = nullStr(dgvBHUntern.Rows(2).Cells("bhut_kosten").Value) End If If dgvBHUntern.RowCount > 3 Then d.unterKennz4 = nullStr(dgvBHUntern.Rows(3).Cells("bhut_unternKennz").Value) d.unterKennz_bis4 = nullStr(dgvBHUntern.Rows(3).Cells("bhut_bis").Value) d.unterKennz_kosten4 = nullStr(dgvBHUntern.Rows(3).Cells("bhut_kosten").Value) End If loadDataInClass() d.vermerke = rtbBhVermerke.Text d.bhRg = New List(Of cBuchhaltungRechnung) d.bhRg2 = New List(Of cBuchhaltungRechnung) For Each b As cBuchhaltungRechnung In AUFTRAG.BH_rechnungen If b.bhrg_option = 1 Then d.bhRg.Add(b) If b.bhrg_option = 2 Then d.bhRg2.Add(b) Next d.cLadungen = AUFTRAG.LADUNGEN Return d End Function Private Sub cbxLadest_termin_CheckedChanged(sender As Object, e As EventArgs) Handles cbxLadest_termin.CheckedChanged datLadest_terminDat.Enabled = cbxLadest_termin.Checked txtLadest_terminVon.Enabled = cbxLadest_termin.Checked txtLadest_terminBis.Enabled = cbxLadest_termin.Checked End Sub Private Sub cbxEntladest_termin_CheckedChanged(sender As Object, e As EventArgs) Handles cbxEntladest_termin.CheckedChanged datEntladest_terminDat.Enabled = cbxEntladest_termin.Checked txtEntladest_terminVon.Enabled = cbxEntladest_termin.Checked txtEntladest_terminBis.Enabled = cbxEntladest_termin.Checked End Sub Private Sub cbxLadest_RefNr_CheckedChanged(sender As Object, e As EventArgs) Handles cbxLadest_RefNr.CheckedChanged txtLadest_RefNr.Enabled = cbxLadest_RefNr.Checked End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnFrachtkostenrechner.Click frmFrachtkosten.Show() 'AddHandler frmFrachtkosten.Disposed, AddressOf meEnabledTrue End Sub Private Sub meEnabledTrue() Me.Enabled = True Me.BringToFront() dostuff() End Sub Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAltLadest.CheckedChanged usrCntlAlternativeLadestelle.Enabled = sender.checked If sender.checked = False Then usrCntlAlternativeLadestelle.pic.Visible = False usrCntlAlternativeLadestelle.lblChange.Visible = False usrCntlAlternativeLadestelle.lblOld.Visible = False usrCntlAlternativeLadestelle.lblNotFound.Visible = False usrCntlAlternativeLadestelle.txtFirma.Text = "" usrCntlAlternativeLadestelle.txtStr.Text = "" usrCntlAlternativeLadestelle.txtStrnr.Text = "" usrCntlAlternativeLadestelle.cboLand.Text = "" usrCntlAlternativeLadestelle.txtPlz.Text = "" usrCntlAlternativeLadestelle.txtOrt.Text = "" usrCntlAlternativeLadestelle.txtAnpsr.Text = "" usrCntlAlternativeLadestelle.BET_ID = -1 End If End Sub Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click saveMe() End Sub Function saveMe() As Boolean Me.Enabled = False Me.Cursor = Cursors.WaitCursor Try loadDataInClass() ' bindingDATA.bindingdataTable.Rows(0).Item("atr_auftr_id") = atr_auftr_id ' bindingDATA.bindingdataTable.Rows(0).Item("atr_ladest_id") = atr_ladest_id ' bindingDATA.bindingdataTable.Rows(0).Item("atr_entladest_id") = atr_entladest_id 'bindingDATA.bindingdataTable.Rows(0).Item("atr_trans_id") = atr_trans_id 'bindingDATA.bindingdataTable.Rows(0).Item("atr_altladest_id") = atr_altladest_id If AUFTRAG.SAVE Then '.updateBinding() Then ' Me.dataAdapterLadungen.Update(CType(Me.dataBindingLadungen.DataSource, DataTable)) ' Me.dataAdapterBHRg1.Update(CType(Me.dataBindingBHRg1.DataSource, DataTable)) ' Me.dataAdapterBHRg2.Update(CType(Me.dataBindingBHRg2.DataSource, DataTable)) ' Me.dataAdapterBHUntern.Update(CType(Me.dataBindingBHUntern.DataSource, DataTable)) ' btnSave.Enabled = False Me.Enabled = True Me.Cursor = Cursors.Default Return True End If Catch ex As Exception MsgBox("Es ist ein Fehler aufgetreten: " & ex.Message & "saveMe()") End Try Me.Enabled = True Me.Cursor = Cursors.Default Return False End Function Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnNeueAbfertigungNrVergeben.Click If Not IsNumeric(cboFilialenNr._value) OrElse CInt(cboFilialenNr._value) <= 0 Then MsgBox("Bitte Filiale auswählen!") : Exit Sub End If txtFrachtpos.Enabled = True txtFrachtpos.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(cboFilialenNr._value, Now.Year) 'If txtUnterNr.Text = "" Then txtUnterNr.Text = 0 ' cboFilialenNr.Enabled = False btnNeueAbfertigungNrVergeben.Visible = False End Sub Private Sub cboFilialenNr_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFilialenNr.SelectedIndexChanged txtFrachtpos.Text = "" btnNeueAbfertigungNrVergeben.Visible = True If cboFilialenNr.SelectedItem.value = "4807" Then cboFirma.SelectedItem = "VERAG AG" ElseIf cboFilialenNr.SelectedItem.value = "4819" Then cboFirma.SelectedItem = "VERAG GmbH" End If cboFirma2.SelectedItem = cboFirma.SelectedItem End Sub Sub initSpeditionbuch() dgvSpeditionsbuch.Columns.Clear() If Not IsNumeric(cboFilialenNr._value) Then Exit Sub If Not IsNumeric(txtFrachtpos.Text) Then Exit Sub Dim sqlstr As String = "" sqlstr &= " SELECT TOP 1000 [FilialenNr],[AbfertigungsNr],[UnterNr],[Abfertigungsdatum],speditionsbuch.[Abfertigungsart],Abfertigungsarten.Abfertigungsbezeichnung, " & " [Rechnungsbetrag],Bar,[Barzahlungsbetrag],/*isnull(cast([AbsenderKundenNr] as nvarchar(6)) + ' ','') + [Absender] as Absender,*/isnull(cast([EmpfängerKundenNr] as nvarchar(6)) + ' ','') + [Empfänger] as Empfänger,isnull(cast([VermittlerKundenNr] as nvarchar(6)) + ' ','') + [Vermittler] as Vermittler,isnull(cast([FrachtführerKundenNr] as nvarchar(6)) + ' ','') + [Frachtführer] as Frachtführer, " & " [LKW Kennzeichen],Sachbearbeiter FROM [Speditionsbuch] LEFT JOIN Abfertigungsarten ON Abfertigungsarten.Abfertigungsart=speditionsbuch.Abfertigungsart WHERE 1=1 " sqlstr &= " AND FilialenNr='" & cboFilialenNr._value & "'" sqlstr &= " AND AbfertigungsNr='" & txtFrachtpos.Text & "'" ' Dim sql As New VERAG_PROG_ALLGEMEIN.SQL 'DataGridView.DataSource = sql.loadDgvBySql(sqlstr, "FMZOLL") With dgvSpeditionsbuch ' .DataSource = myTable .SET_SQL(sqlstr, "FMZOLL") .LOAD() If .RowCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub .RowHeadersVisible = False .ReadOnly = True .SelectionMode = DataGridViewSelectionMode.FullRowSelect .MultiSelect = False .Columns("FilialenNr").Visible = False .Columns("AbfertigungsNr").Visible = False ' .Columns("FilialenNr").Width = 45 ' .Columns("FilialenNr").HeaderText = "Filiale" ' .Columns("FilialenNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter ' .Columns("AbfertigungsNr").Width = 70 ' .Columns("AbfertigungsNr").HeaderText = "Abf-Nr" ' .Columns("AbfertigungsNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter .Columns("UnterNr").Width = 45 .Columns("UnterNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns("Abfertigungsdatum").Width = 100 .Columns("Abfertigungsdatum").HeaderText = "Abf-Dat." .Columns("Abfertigungsdatum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter ' .Columns("Absender").MinimumWidth = 150 ' .Columns("Absender").HeaderText = "Absender" ' .Columns("Absender").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("Bar").Width = 30 .Columns("Barzahlungsbetrag").HeaderText = "Bar Betrag" .Columns("Barzahlungsbetrag").Width = 80 .Columns("Barzahlungsbetrag").DefaultCellStyle.Format = "C" .Columns("Barzahlungsbetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns("Rechnungsbetrag").HeaderText = "Rg.Betrag" .Columns("Rechnungsbetrag").Width = 80 .Columns("Rechnungsbetrag").DefaultCellStyle.Format = "C" .Columns("Rechnungsbetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns("Abfertigungsart").Width = 50 .Columns("Abfertigungsart").HeaderText = "Abf.Nr" .Columns("Abfertigungsart").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns("Abfertigungsbezeichnung").MinimumWidth = 100 .Columns("Abfertigungsbezeichnung").HeaderText = "Abfertigungsart" .Columns("Abfertigungsbezeichnung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("Vermittler").MinimumWidth = 150 .Columns("Vermittler").HeaderText = "Auftraggeber" .Columns("Vermittler").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("Empfänger").MinimumWidth = 150 .Columns("Empfänger").HeaderText = "Empfänger" .Columns("Empfänger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("Frachtführer").MinimumWidth = 150 .Columns("Frachtführer").HeaderText = "Frachtführer" .Columns("Frachtführer").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("LKW Kennzeichen").Width = 120 .Columns("LKW Kennzeichen").HeaderText = "LKW Kennzeichen" .Columns("Sachbearbeiter").MinimumWidth = 100 'lblErgebnis.Text = "Ergebnise: " & .RowCount End With End Sub Private Sub DataGridView_CellContentClick(sender As Object, e As EventArgs) Handles dgvSpeditionsbuch.DoubleClick ', dgvSpeditionsbuch.CellContentClick If dgvSpeditionsbuch.SelectedRows.Count = 0 Then Exit Sub Dim frmNacherfassung As New SDL.frmNacherfassungNEU frmNacherfassung.srchFiliale = dgvSpeditionsbuch.SelectedRows(0).Cells("FilialenNr").Value frmNacherfassung.srchAbfertigungsnummer = dgvSpeditionsbuch.SelectedRows(0).Cells("AbfertigungsNr").Value frmNacherfassung.srchUnterNr = dgvSpeditionsbuch.SelectedRows(0).Cells("UnterNr").Value ' frmNacherfassung.FMZollPersID = Gemeinsames.cGlobal.AktiverMitarbeiter.mit_FMZollPersID ' frmNacherfassung.initDataBinding() frmNacherfassung.ShowDialog(Me) dgvSpeditionsbuch.RELOAD() ' frmNacherfassung.showAll() End Sub Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged If TabControl1.SelectedTab Is tbSpeditionsbuch Then initSpeditionbuch() End If End Sub Private Sub Button5_Click_2(sender As Object, e As EventArgs) Handles Button5.Click If Not IsNumeric(If(cboFilialenNr._value, "")) Then MsgBox("FilialNr. eingeben!") : Exit Sub If Not IsNumeric(If(txtFrachtpos.Text, "")) Then MsgBox("PosNr. eingeben!") : Exit Sub If txtFrachtpos.Text <= 0 Then MsgBox("PosNr. eingeben!") : Exit Sub Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(cboFilialenNr._value, txtFrachtpos.Text, 0) If Not SPEDBUCH.hasEntry OrElse (vbYes = MsgBox("Eintrag bereits vorhanden - Möchten Sie ihn überschreiben?", vbYesNoCancel)) Then loadDataInClass() SPEDBUCH.Abfertigungsart = 19 ' Fracht / Handling SPEDBUCH.Vermittler = AUFTRAG.atr_auftr_firma If If(AUFTRAG.atr_auftr_Kdnr, 0) > 0 Then SPEDBUCH.VermittlerKundenNr = AUFTRAG.atr_auftr_Kdnr SPEDBUCH.Vermittler = SQL.getValueTxtBySql("SELECT isnull(Ordnungsbegriff,'') FROM Adressen WHERE AdressenNr='" & AUFTRAG.atr_auftr_Kdnr & "'", "FMZOLL") If SQL.getValueTxtBySql(" SELECT Count(*) FROM Offerten INNER JOIN [Offertenstamm] ON [Offertenstamm].OffertenNr=Offerten.OffertenNr WHERE Offerten.KundenNr='" & AUFTRAG.atr_auftr_Kdnr & "' AND Offerten.OffertenNr=29 ", "FMZOLL") > 0 Then SPEDBUCH.VermittlerOffertenNr = 29 End If Else : SPEDBUCH.VermittlerKundenNr = Nothing End If SPEDBUCH.KdAuftragsNr = AUFTRAG.atr_RgRefNr SPEDBUCH.Packstücke = If(AUFTRAG.atr_RgRefNr IsNot Nothing AndAlso AUFTRAG.atr_RgRefNr <> "", " / Ref.: " & AUFTRAG.atr_RgRefNr, "") If SPEDBUCH.Packstücke IsNot Nothing AndAlso SPEDBUCH.Packstücke.StartsWith(" / ") Then SPEDBUCH.Packstücke = Replace(SPEDBUCH.Packstücke, " / ", "", , 1) Dim rohmasse As Double = 0.0 For Each lad In AUFTRAG.LADUNGEN ' SPEDBUCH.Packstücke &= vbNewLine & If(l.lad_Anzahl, "") & " " & If(l.lad_Art, "Pk") & " " & If(l.lad_Bezeichnung, "-") SPEDBUCH.Packstücke &= "; " & If(lad.lad_Anzahl, "") & " " & If(lad.lad_Art, "Pk") & " " & If(lad.lad_Bezeichnung, "-") If lad.lad_BruttoKg IsNot Nothing AndAlso lad.lad_BruttoKg <> "" Then SPEDBUCH.Packstücke &= ", " & lad.lad_BruttoKg If Not (lad.lad_BruttoKg.Contains("kg") Or lad.lad_BruttoKg.Contains("to") Or lad.lad_BruttoKg.Contains("t")) Then SPEDBUCH.Packstücke &= " kg" End If Dim kg = If(lad.lad_BruttoKg, "").Trim kg = kg.ToLower.Replace("kg", "").Replace("to", "").Replace("t", "") If IsNumeric(kg) Then rohmasse += CDbl(kg) Next SPEDBUCH.Packstücke = SPEDBUCH.Packstücke.Trim If SPEDBUCH.Packstücke.StartsWith(";") Then SPEDBUCH.Packstücke = Replace(SPEDBUCH.Packstücke, ";", "", , 1).Trim() SPEDBUCH.Rohmasse = rohmasse SPEDBUCH.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME SPEDBUCH.Personalnummer = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FMZollPersID, "") SPEDBUCH.Abfertigungsanzahl = 1 SPEDBUCH.Abfertigungsdatum = Now SPEDBUCH.SgutKompl = "S" Select Case cboAuftragsart._value Case "HANDLING" : SPEDBUCH.Vermerk = "Handling" Case "TRANSPORT" : SPEDBUCH.Vermerk = "Transport" End Select ' SPEDBUCH.ErfassungsNr = "Abzurechnen: " SPEDBUCH.Versendungsland = If(AUFTRAG.atr_absender_land.ToString.Length = 1, SDL.cProgramFunctions.getISO2Land(AUFTRAG.atr_absender_land), If(AUFTRAG.atr_absender_land.ToString.Length = 2, AUFTRAG.atr_absender_land, "")) SPEDBUCH.Bestimmungsland = If(AUFTRAG.atr_empfaenger_land.ToString.Length = 1, SDL.cProgramFunctions.getISO2Land(AUFTRAG.atr_empfaenger_land), If(AUFTRAG.atr_empfaenger_land.ToString.Length = 2, AUFTRAG.atr_empfaenger_land, "")) SPEDBUCH.Absender = AUFTRAG.atr_absender_firma SPEDBUCH.Empfänger = AUFTRAG.atr_empfaenger_firma If If(AUFTRAG.atr_absender_Kdnr, 0) > 0 Then SPEDBUCH.AbsenderKundenNr = AUFTRAG.atr_absender_Kdnr SPEDBUCH.Absender = SQL.getValueTxtBySql("SELECT isnull(Ordnungsbegriff,'') FROM Adressen WHERE AdressenNr='" & AUFTRAG.atr_absender_Kdnr & "'", "FMZOLL") If SQL.getValueTxtBySql(" SELECT Count(*) FROM Offerten INNER JOIN [Offertenstamm] ON [Offertenstamm].OffertenNr=Offerten.OffertenNr WHERE Offerten.KundenNr='" & AUFTRAG.atr_absender_Kdnr & "' AND Offerten.OffertenNr=29 ", "FMZOLL") > 0 Then SPEDBUCH.AbsenderOffertenNr = 29 End If Else : SPEDBUCH.AbsenderKundenNr = Nothing End If If If(AUFTRAG.atr_empfaenger_Kdnr, 0) > 0 Then SPEDBUCH.EmpfängerKundenNr = AUFTRAG.atr_empfaenger_Kdnr SPEDBUCH.Empfänger = SQL.getValueTxtBySql("SELECT isnull(Ordnungsbegriff,'') FROM Adressen WHERE AdressenNr='" & AUFTRAG.atr_empfaenger_Kdnr & "'", "FMZOLL") If SQL.getValueTxtBySql(" SELECT Count(*) FROM Offerten INNER JOIN [Offertenstamm] ON [Offertenstamm].OffertenNr=Offerten.OffertenNr WHERE Offerten.KundenNr='" & AUFTRAG.atr_empfaenger_Kdnr & "' AND Offerten.OffertenNr=29 ", "FMZOLL") > 0 Then SPEDBUCH.EmpfängerOffertenNr = 29 End If Else : SPEDBUCH.EmpfängerKundenNr = Nothing End If SPEDBUCH.AvisUhrzeit = Nothing SPEDBUCH.Zollsystem = Nothing Dim kz1 = If(AUFTRAG.atr_anhKz, "") If kz1 = "" Then kz1 = If(AUFTRAG.atr_lkwKz, "") Dim kz2 = If(AUFTRAG.atr_frachtfAb_anhKz, "") If kz2 = "" Then kz2 = If(AUFTRAG.atr_frachtfAb_lkwKz, "") If AUFTRAG.atr_AuftragsArt = "TRANSPORT" Then If If(AUFTRAG.atr_TransportauftragArt, "") = "VOR" Then SPEDBUCH.LKW_Kennzeichen = kz2.ToString.Trim Else SPEDBUCH.LKW_Kennzeichen = kz1.ToString.Trim End If Else SPEDBUCH.LKW_Kennzeichen = kz1 & "/" & kz2 If SPEDBUCH.LKW_Kennzeichen.EndsWith("/") Or SPEDBUCH.LKW_Kennzeichen.StartsWith("/") Then SPEDBUCH.LKW_Kennzeichen = SPEDBUCH.LKW_Kennzeichen.Replace("/", "") End If SPEDBUCH.FrachtführerKundenNr = Nothing If AUFTRAG.atr_AuftragsArt = "TRANSPORT" And If(AUFTRAG.atr_TransportauftragArt, "") = "VOR" Then SPEDBUCH.Frachtführer = AUFTRAG.atr_frachtfAb_firma If If(AUFTRAG.atr_frachtfAb_Kdnr, 0) > 0 Then SPEDBUCH.FrachtführerKundenNr = AUFTRAG.atr_frachtfAb_Kdnr SPEDBUCH.Frachtführer = SQL.getValueTxtBySql("SELECT isnull(Ordnungsbegriff,'') FROM Adressen WHERE AdressenNr='" & AUFTRAG.atr_frachtfAb_Kdnr & "'", "FMZOLL") End If Else SPEDBUCH.Frachtführer = AUFTRAG.atr_frachtf_firma If If(AUFTRAG.atr_frachtf_Kdnr, 0) > 0 Then SPEDBUCH.FrachtführerKundenNr = AUFTRAG.atr_frachtf_Kdnr SPEDBUCH.Frachtführer = SQL.getValueTxtBySql("SELECT isnull(Ordnungsbegriff,'') FROM Adressen WHERE AdressenNr='" & AUFTRAG.atr_frachtf_Kdnr & "'", "FMZOLL") ' If SQL.getValueTxtBySql(" SELECT Count(*) FROM Offerten INNER JOIN [Offertenstamm] ON [Offertenstamm].OffertenNr=Offerten.OffertenNr WHERE Offerten.KundenNr='" & AUFTRAG.atr_frachtf_Kdnr & "' AND Offerten.OffertenNr=29 ", "FMZOLL") > 0 Then 'SPEDBUCH.frachtfOffertenNr = 29 ' End If End If End If If SPEDBUCH.Frachtführer.Length > 50 Then SPEDBUCH.Frachtführer = SPEDBUCH.Frachtführer.Substring(0, 50) If SPEDBUCH.Absender.Length > 50 Then SPEDBUCH.Absender = SPEDBUCH.Absender.Substring(0, 50) If SPEDBUCH.Empfänger.Length > 50 Then SPEDBUCH.Empfänger = SPEDBUCH.Empfänger.Substring(0, 50) If SPEDBUCH.Vermittler.Length > 50 Then SPEDBUCH.Vermittler = SPEDBUCH.Vermittler.Substring(0, 50) SPEDBUCH.VORKOSTEN = New List(Of VERAG_PROG_ALLGEMEIN.cVorkosten) If IsNumeric(If(AUFTRAG.atr_frachtf_tatKosten, "")) Then Dim txt As String = ("Frachtkosten bis: " & AUFTRAG.atr_frachtf_firma) If txt.Length > 30 Then txt = txt.Substring(0, 30) SPEDBUCH.VORKOSTEN.Add(New VERAG_PROG_ALLGEMEIN.cVorkosten(SPEDBUCH.FilialenNr, SPEDBUCH.AbfertigungsNr, SPEDBUCH.UnterNr, 521, txt, AUFTRAG.atr_frachtf_tatKosten)) End If If IsNumeric(If(AUFTRAG.atr_frachtfAb_tatKosten, "")) Then Dim txt As String = ("Frachtkosten ab: " & AUFTRAG.atr_frachtfAb_firma) If txt.Length > 30 Then txt = txt.Substring(0, 30) SPEDBUCH.VORKOSTEN.Add(New VERAG_PROG_ALLGEMEIN.cVorkosten(SPEDBUCH.FilialenNr, SPEDBUCH.AbfertigungsNr, SPEDBUCH.UnterNr, 521, txt, AUFTRAG.atr_frachtfAb_tatKosten)) End If SPEDBUCH.SAVE() End If Dim frmNacherfassung As New SDL.frmNacherfassungNEU frmNacherfassung.srchFiliale = SPEDBUCH.FilialenNr frmNacherfassung.srchAbfertigungsnummer = SPEDBUCH.AbfertigungsNr frmNacherfassung.srchUnterNr = SPEDBUCH.UnterNr frmNacherfassung.ShowDialog(Me) dgvSpeditionsbuch.RELOAD() End Sub Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click usrCntlFrachtfBis.txtFirma.Text = "VERAG Spedition AG" usrCntlFrachtfBis.txtStr.Text = "Suben" usrCntlFrachtfBis.txtStrnr.Text = "100" usrCntlFrachtfBis.txtPlz.Text = "4975" usrCntlFrachtfBis.txtOrt.Text = "Suben" usrCntlFrachtfBis.cboLand.Text = "AT" usrCntlFrachtfBis.BET_ID = Nothing txtLkwKz.Text = "SD 803 DG" usrCntlFrachtfBis.txtAnpsr.Text = "Mestan Akpinar" End Sub Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click usrCntlFrachtfAb.txtFirma.Text = "VERAG Spedition AG" usrCntlFrachtfAb.txtStr.Text = "Suben" usrCntlFrachtfAb.txtStrnr.Text = "100" usrCntlFrachtfAb.txtPlz.Text = "4975" usrCntlFrachtfAb.txtOrt.Text = "Suben" usrCntlFrachtfAb.cboLand.Text = "AT" txtFrachtfAb_LkwKr.Text = "SD 803 DG" usrCntlFrachtfAb.txtAnpsr.Text = "Mestan Akpinar" End Sub Private Sub Ladung_Click(sender As Object, e As EventArgs) Handles Ladung.Click End Sub Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click usrcntlLadestelle.txtFirma.Text = "VERAG Spedition AG" usrcntlLadestelle.txtStr.Text = "Suben" usrcntlLadestelle.txtStrnr.Text = "100" usrcntlLadestelle.txtPlz.Text = "4975" usrcntlLadestelle.txtOrt.Text = "Suben" usrcntlLadestelle.cboLand.Text = "AT" usrcntlLadestelle.txtAnpsr.Text = "Mestan Akpinar" End Sub Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click usrcntlEntladestelle.txtFirma.Text = "VERAG Spedition AG" usrcntlEntladestelle.txtStr.Text = "Suben" usrcntlEntladestelle.txtStrnr.Text = "100" usrcntlEntladestelle.txtPlz.Text = "4975" usrcntlEntladestelle.txtOrt.Text = "Suben" usrcntlEntladestelle.cboLand.Text = "AT" usrcntlEntladestelle.txtAnpsr.Text = "Mestan Akpinar" End Sub Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click usrcntlLadestelle.txtFirma.Text = "VERAG Spedition GmbH" usrcntlLadestelle.txtStr.Text = "Hartham" usrcntlLadestelle.txtStrnr.Text = "6" usrcntlLadestelle.txtPlz.Text = "94152" usrcntlLadestelle.txtOrt.Text = "Neuhaus am Inn" usrcntlLadestelle.cboLand.Text = "DE" usrcntlLadestelle.txtAnpsr.Text = "Mestan Akpinar" End Sub Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click usrcntlEntladestelle.txtFirma.Text = "VERAG Spedition GmbH" usrcntlEntladestelle.txtStr.Text = "Hartham" usrcntlEntladestelle.txtStrnr.Text = "6" usrcntlEntladestelle.txtPlz.Text = "94152" usrcntlEntladestelle.txtOrt.Text = "Neuhaus am Inn" usrcntlEntladestelle.cboLand.Text = "DE" usrcntlEntladestelle.txtAnpsr.Text = "Mestan Akpinar" End Sub Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click, btnSearch.Click If Not IsNumeric(If(cboFilialenNr._value, "")) Then MsgBox("FilialNr. eingeben!") : Exit Sub If Not IsNumeric(If(txtFrachtpos.Text, "")) Then MsgBox("PosNr. eingeben!") : Exit Sub If txtFrachtpos.Text <= 0 Then MsgBox("PosNr. eingeben!") : Exit Sub loadDataInClass() Dim rpt As New rptAktendeckelDISPO(AUFTRAG) rpt.Document.CacheToDisk = True Dim printername = "" ' rpt.Picture.Image = My.Resources.AKT_DISPO If sender Is btnSearch Then ' Wird angezeigt, nicht gedruckt Dim print As New GrapeCity.ActiveReports.Viewer.Win.Viewer print.Text = "Beleg" Dim printForm As New frmPrintView2 ' AddHandler print.LoadCompleted, Sub() ' End Sub printForm.Viewer.LoadDocument(rpt) printForm.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous printForm.Show() printForm.BringToFront() Else ' print.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous ' print.LoadDocument(rpt) rpt.Run(False) rpt.Document.Printer.PrinterSettings.Copies = 1 If printername <> "" Then rpt.Document.Printer.PrinterName = printername Else Dim p As New PrintDialog If p.ShowDialog() = DialogResult.OK Then printername = p.PrinterSettings.PrinterName Else rpt.Dispose() Exit Sub End If End If If Not rpt.Document.Print(False, False) Then MsgBox("Problem beim Drucken.") End If rpt.Dispose() End If End Sub Private Sub Button2_Click_1(sender As Object, e As EventArgs) End Sub Private Sub TabPage4_Click(sender As Object, e As EventArgs) Handles TabPage4.Click End Sub Private Sub cboAuftragsart_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAuftragsart.SelectedIndexChanged cboTransportauftragArt.changeItem("") cboTransportauftragArt.Visible = False If cboAuftragsart._value = "TRANSPORT" Then cboTransportauftragArt.Visible = True End If End Sub Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button2.Click, Button3.Click ' loadDataInLIST() saveMe() Dim PERSONAL As SDL.cPersonal = Nothing Dim frmSecureLoginKassenbuch As New SDL.frmSecureLoginKassenbuch frmSecureLoginKassenbuch.openKB = False frmSecureLoginKassenbuch.disableCBO = True If frmSecureLoginKassenbuch.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then PERSONAL = frmSecureLoginKassenbuch.PERSONAL Dim frmBeleg As New SDL.frmBelegNeu(PERSONAL, Nothing, "E") ' frmBeleg.AvisoID = AvisoId frmBeleg.SendungID = Nothing AddHandler frmBeleg.LOADED, Sub() ' Dim AVISO As cAviso = AvisoDAL.LesenAviso(AvisoId, "") frmBeleg.BELEG.FilialenNr = AUFTRAG.atr_FilialenNr frmBeleg.BELEG.AbfertigungsNr = AUFTRAG.atr_frachtpos If sender Is Button2 Then frmBeleg.BELEG.LKW_Kennzeichen = AUFTRAG.atr_anhKz frmBeleg.BELEG.Frachtführer = AUFTRAG.atr_frachtf_firma frmBeleg.BELEG.Ordnungsbegriff = AUFTRAG.atr_frachtf_firma If AUFTRAG.atr_frachtf_Kdnr > 0 Then frmBeleg.kdFrachtf.KdNr = AUFTRAG.atr_frachtf_Kdnr frmBeleg.kdkunde.KdNr = AUFTRAG.atr_frachtf_Kdnr End If End If If sender Is Button3 Then frmBeleg.BELEG.LKW_Kennzeichen = AUFTRAG.atr_frachtfAb_anhKz frmBeleg.BELEG.Frachtführer = AUFTRAG.atr_frachtfAb_firma frmBeleg.BELEG.Ordnungsbegriff = AUFTRAG.atr_frachtfAb_firma If AUFTRAG.atr_frachtfAb_Kdnr > 0 Then frmBeleg.kdFrachtf.KdNr = AUFTRAG.atr_frachtfAb_Kdnr frmBeleg.kdkunde.KdNr = AUFTRAG.atr_frachtfAb_Kdnr End If End If frmBeleg.init() ' If sender Is Button13 Then frmBeleg.AddDusche(True) End Sub If frmBeleg.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then If frmBeleg.BELEG.gebucht Then If frmBeleg.BELEG.FilialenNr > 0 And frmBeleg.BELEG.AbfertigungsNr > 0 Then ' loadDataInLIST() If (AUFTRAG.atr_FilialenNr <= 0 Or AUFTRAG.atr_frachtpos <= 0) Then AUFTRAG.atr_FilialenNr = frmBeleg.BELEG.FilialenNr AUFTRAG.atr_frachtpos = frmBeleg.BELEG.AbfertigungsNr End If saveMe() End If initDataBinding() End If End If End If End Sub Private Sub cboFirma_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged cboFirma2.Text = sender.text End Sub Private Sub cboFirma2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma2.SelectedIndexChanged cboFirma.Text = sender.text End Sub Private Sub frmAuftragNEU_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing End Sub Private Sub usrcntlEmpfaenger_Load(sender As Object, e As EventArgs) Handles usrcntlEmpfaenger.Load End Sub Private Sub btnShowTrip_Click(sender As Object, e As EventArgs) Handles btnShowTrip.Click Dim Trip As New cTrips Trip.tripNr = AUFTRAG.atr_tripNr Trip.LoadTrip() frmtrip(Trip) End Sub Private Sub btnNewTrip_Click(sender As Object, e As EventArgs) Handles btnNewTrip.Click Dim trip As New cTrips trip.trip_start = AUFTRAG.atr_ladest_firma trip.trip_Datum = Date.Now trip.trip_FilNr = cboFilialenNr._value AUFTRAG.atr_tripNr = trip.CreateNewTripNr() AUFTRAG.atr_tripStopNr = 0 btnSave.PerformClick() trip.SaveTripAsNew() dostuff() End Sub Private Sub btnAddToTrip_Click(sender As Object, e As EventArgs) Handles btnAddToTrip.Click Dim frmTrips As New frmLeer frmTrips.Text = "Trips" Dim usrcntrl As New usrcntlTrips usrcntrl.Dock = DockStyle.Fill : frmTrips.PanMain.Controls.Add(usrcntrl) usrcntrl.btnAddTo.Visible = True usrcntrl.Auftrag = AUFTRAG AddHandler frmTrips.Disposed, AddressOf meEnabledTrue Me.Enabled = False frmTrips.Show() End Sub Function frmtrip(trip As cTrips) Dim frm As New frmLeer frm.Text = "Trip-Details" Dim usrcntrl As New usrcntlTripDetail usrcntrl.Trip = trip usrcntrl.Dock = DockStyle.Fill : frm.PanMain.Controls.Add(usrcntrl) AddHandler frm.Disposed, AddressOf meEnabledTrue Me.Enabled = False frm.Show() End Function Private Sub btnRemoveFromTrip_Click(sender As Object, e As EventArgs) Handles btnRemoveFromTrip.Click If MsgBox("Auftrag aus Trip entfernen?", MsgBoxStyle.OkCancel, "Auftrag aus Trip entfernen?") = MsgBoxResult.Cancel Then Exit Sub Dim trip As New cTrips trip.tripNr = AUFTRAG.atr_tripNr trip.LoadTrip() trip.RemoveAuftragFromTrip(AUFTRAG.atr_id) dostuff() End Sub End Class Public Class cLeistungenDispo Property LeistungsNr As Integer Property LeistungsBez As String Property Steuerpflichtig As Boolean = True Property LeistungsIdDispo As Integer Sub New(LeistungsNr, LeistungsBez, Steuerpflichtig, LeistungsIdDispo) Me.LeistungsNr = LeistungsNr Me.LeistungsBez = LeistungsBez Me.Steuerpflichtig = Steuerpflichtig Me.LeistungsIdDispo = LeistungsIdDispo End Sub End Class