edv/DISPO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
1e9039b6ea0b8dba8a2507581276d89f2118294a
DISPO/UID/frmAuftragNEU.vb
ms 1e9039b6ea Projektdateien hinzufügen.
2019-08-07 12:29:10 +02:00

2359 lines
112 KiB
VB.net
Raw Blame History

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 l In AUFTRAG.BH_rechnungen
If (l.bhrg_leistungIdDispo IsNot Nothing And l.bhrg_leistungIdDispo = r.LeistungsIdDispo) Or (l.bhrg_leistungIdDispo Is Nothing And l.bhrg_code = r.LeistungsNr) Then
' MsgBox(l.bhrg_option)
Select Case l.bhrg_option
Case 1 : u.txtBetrag_Auftraggeber._value = getDBL(l.bhrg_pfl) + getDBL(l.bhrg_frei) : u.lblLeistung.Text = If(l.bhrg_vermerk, r.LeistungsBez)
Case 2 : u.txtBetrag_Absender._value = getDBL(l.bhrg_pfl) + getDBL(l.bhrg_frei) : u.lblLeistung.Text = If(l.bhrg_vermerk, r.LeistungsBez)
Case 3 : u.txtBetrag_Empfaenger._value = getDBL(l.bhrg_pfl) + getDBL(l.bhrg_frei) : u.lblLeistung.Text = If(l.bhrg_vermerk, r.LeistungsBez)
Case 4 : u.txtBetrag_FraechterBis._value = getDBL(l.bhrg_pfl) + getDBL(l.bhrg_frei) : u.lblLeistung.Text = If(l.bhrg_vermerk, r.LeistungsBez)
Case 5 : u.txtBetrag_FraechterAb._value = getDBL(l.bhrg_pfl) + getDBL(l.bhrg_frei) : u.lblLeistung.Text = If(l.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 l In AUFTRAG.LADUNGEN
Dim POS As New SDL.cCMRPos
POS.Zeichen = l.lad_ZeNr
POS.Anzahl = l.lad_Anzahl
POS.Art = l.lad_Art
POS.Bezeichnung = l.lad_Bezeichnung
POS.StatistikNr = l.lad_StatNr
POS.Bruttogewicht = l.lad_BruttoKg
POS.Umfang = l.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 l In AUFTRAG.LADUNGEN
' SPEDBUCH.Packstücke &= vbNewLine & If(l.lad_Anzahl, "") & " " & If(l.lad_Art, "Pk") & " " & If(l.lad_Bezeichnung, "-")
SPEDBUCH.Packstücke &= "; " & If(l.lad_Anzahl, "") & " " & If(l.lad_Art, "Pk") & " " & If(l.lad_Bezeichnung, "-")
If l.lad_BruttoKg IsNot Nothing AndAlso l.lad_BruttoKg <> "" Then
SPEDBUCH.Packstücke &= ", " & l.lad_BruttoKg
If Not (l.lad_BruttoKg.Contains("kg") Or l.lad_BruttoKg.Contains("to") Or l.lad_BruttoKg.Contains("t")) Then SPEDBUCH.Packstücke &= " kg"
End If
Dim kg = If(l.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
If frmSecureLoginKassenbuch.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
PERSONAL = frmSecureLoginKassenbuch.PERSONAL
Dim frmBeleg As New SDL.frmBelegNeu(PERSONAL, "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
Reference in New Issue View Git Blame Copy Permalink