Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO Imports System.Drawing.Printing Imports System.Management Imports System.Data.SqlClient Imports iTextSharp.text.pdf Imports Microsoft.Office.Interop Public Class frmSendungsdetailsNEU Public AvisoId As Integer Public SendungID As Integer = -1 Dim FUNC As New SDL.cProgramFunctions Dim AVISOFUNC As New AvisoStatusFunctions Dim ADMIN As New cADMIN Dim AvisoDAL As New cAvisoDAL Dim PROG As New cProgramFunctions Dim AVISO As New cAviso ' Dim GEAENDERT As Boolean = False Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) Dim CURRENT_INDEX As Integer = -1 Dim closeWithoutSave = False ' Public WithEvents bsSendungen As New cEasyBinding("AVISO") 'fürs Binding Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim FormularArt = "" Dim loaded = False Dim usrcntl_NCTS As usrCntlSND_NCTSGestellungsadresse Dim usrcntl_FISKAL As usrCntlSND_NCTSFiskalEndempf Dim usrcntl_ATA As usrCntlSND_Handling Sub New() InitializeComponent() End Sub Sub New(AvisoId, SendungID) InitializeComponent() Me.AvisoId = AvisoId Me.SendungID = SendungID End Sub Private Sub frmSendungsdetails_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing If Not closeWithoutSave Then ' loadDataInLIST() If Not SAVE_ME() Then e.Cancel = True End If End If End Sub Sub SAVE_ABRECHUNG() SENDUNG_LIST(CURRENT_INDEX).CLEAR_ABRECHNUNG_NotLeistungen() For Each c In Panel6.Controls If c.GetType.ToString = "AVISO.usrcntlCheckBox" Then Dim cntlCbx As usrcntlCheckBox = DirectCast(c, usrcntlCheckBox) If cntlCbx.value <> "" Then SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG.Add(New VERAG_PROG_ALLGEMEIN.cSendungAbrechnung(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, cntlCbx._beteiligter, cntlCbx._abrArt, cntlCbx.value)) End If End If Next SENDUNG_LIST(CURRENT_INDEX).SAVE_Abrechnung() End Sub Sub LOAD_ABRECHUNG() SENDUNG_LIST(CURRENT_INDEX).LOAD_ABRECHNUNG() cntlAvisierer_Sonst.special(False) cntlAbsender_Sonst.special(False) cntlEmpfaenger_Sonst.special(False) cntlAuftraggeber_Sonst.special(False) cntlFrachtfuehrer_Sonst.special(False) For Each c In Panel6.Controls If c.GetType.ToString = "AVISO.usrcntlCheckBox" Then Dim cntlCbx As usrcntlCheckBox = DirectCast(c, usrcntlCheckBox) cntlCbx.lbl.Text = "" For Each a In SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG If a.sndabr_beteiligter = cntlCbx._beteiligter Then If a.sndabr_abrArt = "" And cntlCbx._abrArt = "SONST" Then cntlCbx.special(True) ElseIf a.sndabr_abrArt = cntlCbx._abrArt Then cntlCbx.lbl.Text = a.sndabr_wert End If End If Next End If Next SENDUNG_LIST(CURRENT_INDEX).SAVE_Abrechnung() End Sub Function SAVE_ME(Optional saveAll = False) As Boolean txtColli.Focus() 'DAMIT evtl. LEAVE Events ausgelöst werden txtGewicht.Focus() 'DAMIT evtl. LEAVE Events ausgelöst werden loadDataInLIST() If AVISO.Abgeschlossen Then 'MsgBox("Keine Änderung möglich - Akt bereits abgeschlossen.") Return True End If SAVE_ME = True If saveAll Then For Each s In SENDUNG_LIST If s.SAVE() = False Then SAVE_ME = False s.SAVE_HANDLING() 'derzeit ohne Funktion Next Else SENDUNG_LIST(CURRENT_INDEX).SAVE() 'Nur noch aktuelle Sendung speichern SENDUNG_LIST(CURRENT_INDEX).SAVE_HANDLING() 'derzeit ohne Funktion End If SAVE_ABRECHUNG() 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA ' Case "UNISPED" ' SQL.doSQL("UPDATE Aviso SET DakosyRef='" & txtDyRef.Text & "' WHERE AvisoId='" & AvisoId & "'", "AVISO") 'End Select End Function Sub NEXT_SENDUNG() loadDataInLIST() If CURRENT_INDEX + 1 < SENDUNG_LIST.Count Then CURRENT_INDEX += 1 initDataBinding() ' initButtons() End If End Sub Sub PREV_SENDUNG() loadDataInLIST() If CURRENT_INDEX > 0 Then CURRENT_INDEX -= 1 initDataBinding() ' initButtons() End If End Sub Sub LAST_SENDUNG(Optional loadData As Boolean = True) If loadData Then loadDataInLIST() CURRENT_INDEX = SENDUNG_LIST.Count - 1 initDataBinding() 'initButtons() End Sub Sub FIRST_SENDUNG(Optional loadData As Boolean = True) If loadData Then loadDataInLIST() If SENDUNG_LIST.Count > 0 Then CURRENT_INDEX = 0 : initDataBinding() ': initButtons() End Sub Private Sub frmSendungsdetails_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown If e.KeyCode = Keys.PageDown Then ' BindingNavigatorMoveNextItem1.PerformClick() NEXT_SENDUNG() e.Handled = True e.SuppressKeyPress = True End If If e.KeyCode = Keys.PageUp Then ' BindingNavigatorMovePreviousItem1.PerformClick() PREV_SENDUNG() e.Handled = True e.SuppressKeyPress = True End If If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.P Then loadDataInLIST() Dim trd = New Threading.Thread(Sub() SendungOptions.PrintSendung("DIALOG", SENDUNG_LIST(CURRENT_INDEX), AVISO,,, SENDUNG_LIST.Count) End Sub) trd.IsBackground = True : trd.Start() e.Handled = True e.SuppressKeyPress = True End If Dim tmpsendId = -1 If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.D1 Then tmpsendId = 0 If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.D2 Then tmpsendId = 1 If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.D3 Then tmpsendId = 2 If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.D4 Then tmpsendId = 3 If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.D5 Then tmpsendId = 4 If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.D6 Then tmpsendId = 5 If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.D7 Then tmpsendId = 6 If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.D8 Then tmpsendId = 7 If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.D9 Then tmpsendId = 8 If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.D0 Then tmpsendId = 9 ' If e.Modifiers = Keys.Shift AndAlso e.KeyCode = Keys.D1 Then tmpsendId = 10 ' If e.Modifiers = Keys.Shift AndAlso e.KeyCode = Keys.D2 Then tmpsendId = 11 ' If e.Modifiers = Keys.Shift AndAlso e.KeyCode = Keys.D3 Then tmpsendId = 12 ' If e.Modifiers = Keys.Shift AndAlso e.KeyCode = Keys.D4 Then tmpsendId = 13 ' If e.Modifiers = Keys.Shift AndAlso e.KeyCode = Keys.D5 Then tmpsendId = 14 ' If e.Modifiers = Keys.Shift AndAlso e.KeyCode = Keys.D6 Then tmpsendId = 15 ' If e.Modifiers = Keys.Shift AndAlso e.KeyCode = Keys.D7 Then tmpsendId = 16 ' If e.Modifiers = Keys.Shift AndAlso e.KeyCode = Keys.D8 Then tmpsendId = 17 ' If e.Modifiers = Keys.Shift AndAlso e.KeyCode = Keys.D9 Then tmpsendId = 18 ' If e.Modifiers = Keys.Shift AndAlso e.KeyCode = Keys.D0 Then tmpsendId = 19 If tmpsendId >= 0 Then Try : If tmpsendId < SENDUNG_LIST.Count Then CURRENT_INDEX = tmpsendId initDataBinding() End If 'bsSendungen.Position = tmpsendId ' bsSendungen.Find("tblSnd_SendungID", SendungID) Catch ex As Exception : MsgBox(ex.Message) : End Try e.Handled = True e.SuppressKeyPress = True End If End Sub Private Sub frmSendungsdetails_Load(sender As Object, e As EventArgs) Handles Me.Load Try Panel5.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor Panel15.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor pnlFremd.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor cbxFremdspedition.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor AVISO = AvisoDAL.LesenAviso(AvisoId, "") txtWarenwertWaehrung.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_I0400_Waehrungsliste", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 150, 200) If AVISO.Grenzstelle.Replace("???", "") = "" Then lblGrenze.Text = SQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & If(AVISO.Zollstelle, "") & "' ", "ATLAS") Else Select Case AVISO.Grenzstelle Case "SUB" : lblGrenze.Text = "DE007701 Suben" Case "WAI" : lblGrenze.Text = "DE008904 Waidhaus" Case "SBG" : lblGrenze.Text = "DE007458 Bad Reichenhall" Case "NKD" : lblGrenze.Text = "AT320300 Nickelsdorf" Case "SFD" : lblGrenze.Text = "AT700400 Spielfeld" End Select End If If AVISO.Abgeschlossen Then Label8.Visible = True End If lblZollsysErr.Text = "" LinkLabel1.TabStop = False LinkLabel2.TabStop = False ' cbxFremdspedition.TabStop = False LinkLabel3.TabStop = False Label26.TabStop = False Panel8.TabStop = False ' RadioButton.TabStop = False ' RadioButton1.TabStop = False ' RadioButton2.TabStop = False lklAuftraggeber.TabStop = False ' txtEmpfaengerBonitaet.TabStop = False ' txtEmpfaengerAnsprechpartner.TabStop = False 'TODO: Diese Codezeile lädt Daten in die Tabelle "AVISO_newDataSet.tblSendungen". Sie können sie bei Bedarf verschieben oder entfernen. If AvisoId <= 0 Then MsgBox("Fehler") : Me.Close() : Exit Sub ' Me.TblSendungenTableAdapter.Fill(Me.AVISO_newDataSet.tblSendungen, AvisoId) VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, CURRENT_INDEX, AvisoId) 'LÄDT alle SENDUNGSDATEN Dim sbWhere = "" Dim QSwhere = "" Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "IMEX" btnAufschub_VERAG.Text = "IMEX" cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAKOSY", "D")) cboZollsystem.SelectedIndex = 1 cboZollsystem2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) cboZollsystem2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAKOSY", "D")) cboZollsystem2.SelectedIndex = 1 sbWhere = " And Mandant = 'IMEX' " QSwhere = " AND mit_firma IN ('IMEX','BEIDE') " ' Label10.Visible = False 'rtbAnmerkungDispoliste.Visible = False Case "ATILLA" : sbWhere = " AND Niederlassung = 'SUA' " Case "UNISPED" txtDyRef.Visible = True picDy.Visible = True If AVISO IsNot Nothing Then txtDyRef.Text = If(AVISO.DakosyRef, "") Case Else cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATLAS", "A")) cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EZOLL", "E")) cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAKOSY", "D")) cboZollsystem.SelectedIndex = 0 cboZollsystem2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) cboZollsystem2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATLAS", "A")) cboZollsystem2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EZOLL", "E")) cboZollsystem2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAKOSY", "D")) cboZollsystem2.SelectedIndex = 0 sbWhere = " AND Mandant <> 'IMEX' " QSwhere = " AND mit_firma <> 'IMEX' " End Select cboSachbearbeiter.fillWithSQL("SELECT ID,/*cast(ID as nvarchar(3)) +' ' + Name as*/ Name FROM Personal WHERE [Status]<>'L' " & sbWhere & " ORDER BY Name ", False, "FMZOLL", True) cboZolltarif.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftraggeber", 0)) cboZolltarif.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Absender", 1)) cboZolltarif.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Empfänger", 2)) ' cboZolltarif.changeItem("0") usrcntl_NCTS = New usrCntlSND_NCTSGestellungsadresse usrcntl_FISKAL = New usrCntlSND_NCTSFiskalEndempf 'usrcntl_ATA = New usrCntlSND_Handling(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZollanmeldungen", Me) Then TabControl1.TabPages.Remove(tbZollabfertigung) End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Vorauskasse", Me) Then btnImportaviso.Visible = True btnVorauszahlung.Visible = True ' ToolStripMenuItem13.Enabled = True End If cboFiliale._allowFreiText = Nothing Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER Case "FRONTOFFICE" cboFiliale._allowFreiText = Nothing Case Else Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "VERAG" : cboFiliale._allowedValuesFreiText = {"4803", "4809", "4805", "4806", "4811", "5003", "5303", "5103", "4839"} Case "IMEX" : cboFiliale._allowedValuesFreiText = {"5501"} Case "UNISPED" : cboFiliale._allowedValuesFreiText = {"5601"} Case "AMBAR" : cboFiliale._allowedValuesFreiText = {"5701"} Case "ATILLA" : cboFiliale._allowedValuesFreiText = Nothing End Select End Select Select Case SENDUNG_LIST(CURRENT_INDEX).FilialenNr Case 4803, 4809 cboNiederlassung.Text = "SUB" If Not VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN" Then ToolStripMenuItem9.Enabled = False Case 4801 cboNiederlassung.Text = "SUW" Case 5003 cboNiederlassung.Text = "SBG" 'ANDERER SERVER!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Case 5103 cboNiederlassung.Text = "WAI" Case 5303 cboNiederlassung.Text = "SUB" If Not VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN" Then ToolStripMenuItem9.Enabled = False End Select 'bsSendungen. ' DsSendungen. Me.Height = Screen.FromRectangle(Me.Bounds).WorkingArea.Size.Height Me.Top = 0 ' initKdBoxEmpfaenger() Dim trd As Threading.Thread trd = New Threading.Thread(AddressOf initDrucker) trd.IsBackground = True trd.Start() 'initDrucker() txtAvisierer.initKdBox(Me, txtAvisiererKdNr) txtFrachtfuehrer.initKdBox(Me, txtFrachtfuehrerKdNr) AddHandler txtAvisierer.PropertyChanged, Sub() btnAvisierer.BackgroundImage = IIf(txtAvisierer.KdNr > 0, My.Resources.person, My.Resources.personInaktiv) SENDUNG_LIST(CURRENT_INDEX).tblSnd_Avisierer = txtAvisierer.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr = txtAvisierer.KdNr settoopTip(picKdAtrNr_Avisierer, txtAvisierer) txtKdAuftragsNrAvisierer.BackColor = Color.White If txtAvisierer.KdData_KUNDE_ERW IsNot Nothing AndAlso txtAvisierer.KdData_KUNDE_ERW.kde_VerwendetAuftragsNr Then txtKdAuftragsNrAvisierer.BackColor = Color.FromArgb(255, 255, 128) If txtKdAuftragsNrAvisierer.Text = "" Then txtKdAuftragsNrAvisierer.Text = If(txtAvisierer.KdData_KUNDE_ERW.kde_FixeAuftragsNr, "") End If initWarnKd_AndKdInfo(txtAvisierer, picWarnAvisierer) End Sub AddHandler txtFrachtfuehrer.PropertyChanged, Sub() btnFrachtfuehrer.BackgroundImage = IIf(txtFrachtfuehrer.KdNr > 0, My.Resources.person, My.Resources.personInaktiv) SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtfuehrer = txtFrachtfuehrer.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr = txtFrachtfuehrer.KdNr settoopTip(picKdAtrNr_Fraechter, txtFrachtfuehrer) txtKdAuftragsNrFrachtfuehrer.BackColor = Color.White If txtFrachtfuehrer.KdData_KUNDE_ERW IsNot Nothing AndAlso txtFrachtfuehrer.KdData_KUNDE_ERW.kde_VerwendetAuftragsNr Then txtKdAuftragsNrFrachtfuehrer.BackColor = Color.FromArgb(255, 255, 128) If txtKdAuftragsNrFrachtfuehrer.Text = "" Then txtKdAuftragsNrFrachtfuehrer.Text = If(txtFrachtfuehrer.KdData_KUNDE_ERW.kde_FixeAuftragsNr, "") End If initWarnKd_AndKdInfo(txtFrachtfuehrer, picWarnFrachtfuehrer) End Sub txtEmpfaenger.initKdBox(Me, txtEmpfaengerKdNr) AddHandler txtEmpfaenger.PropertyChanged, Sub() FlatButton1.BackgroundImage = IIf(txtEmpfaenger.KdNr > 0, My.Resources.person, My.Resources.personInaktiv) SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger = txtEmpfaenger.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr = txtEmpfaenger.KdNr ' If RadioButton2.Checked Then initKundenzolltarifChecked(txtEmpfaenger) If cboZolltarif._value = 2 Then initKundenzolltarifChecked(txtEmpfaenger) settoopTip(picKdAtrNr_Empfänger, txtEmpfaenger) fillUIDEORI(txtEmpfaenger) txtKdAuftragsNrEmpfaenger.BackColor = Color.White If txtEmpfaenger.KdData_KUNDE_ERW IsNot Nothing AndAlso txtEmpfaenger.KdData_KUNDE_ERW.kde_VerwendetAuftragsNr Then txtKdAuftragsNrEmpfaenger.BackColor = Color.FromArgb(255, 255, 128) If txtKdAuftragsNrEmpfaenger.Text = "" Then txtKdAuftragsNrEmpfaenger.Text = If(txtEmpfaenger.KdData_KUNDE_ERW.kde_FixeAuftragsNr, "") End If initWarnKd_AndKdInfo(txtEmpfaenger, picWarnEmpfaenger) End Sub AddHandler txtAbsender.PropertyChanged, Sub() FlatButton4.BackgroundImage = IIf(txtAbsender.KdNr > 0, My.Resources.person, My.Resources.personInaktiv) SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender = txtAbsender.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr = txtAbsender.KdNr ' If RadioButton1.Checked Then initKundenzolltarifChecked(txtAbsender) If cboZolltarif._value = 1 Then initKundenzolltarifChecked(txtAbsender) initWarnKd_AndKdInfo(txtAbsender, picWarnAbsender) End Sub AddHandler txtAuftraggeber.PropertyChanged, Sub() Try SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber = txtAuftraggeber.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr = txtAuftraggeber.KdNr FlatButton3.BackgroundImage = IIf(txtAuftraggeber.KdNr > 0, My.Resources.person, My.Resources.personInaktiv) If txtAuftraggeber.KdData_ADRESSEN IsNot Nothing Then ' txtEmpfaengerAnsprechpartner.Text = IIf(txtAuftraggeber.KdData_ADRESSEN.Ansprechpartner IsNot Nothing, txtAuftraggeber.KdData_ADRESSEN.Ansprechpartner, "") ' txtEmpfaengerBonitaet.Text = IIf(txtAuftraggeber.KdData_KUNDE.Bonität IsNot Nothing, txtAuftraggeber.KdData_KUNDE.Bonität, "") Else ' txtEmpfaengerAnsprechpartner.Text = "" ' txtEmpfaengerBonitaet.Text = "" End If ' lblAtrAufschubEustTxt.Visible = False lblAtrAufschubEust.Visible = False settoopTip(picKdAtrNr_Auftraggeber, txtAuftraggeber) ' If txtAuftraggeber.KdData_KUNDE IsNot Nothing Then ' If txtAuftraggeber.KdData_KUNDE.Aufschubkonto_EUSt IsNot Nothing And txtAuftraggeber.KdData_KUNDE.Aufschubkonto_EUSt <> "" Then 'lblAtrAufschubEust.Text = txtAuftraggeber.KdData_KUNDE.Aufschubkonto_EUSt btnAufschub_Atr.Text = SendungOptions.getAufschubKto(txtAuftraggeber.KdNr_value, "EUST") If btnAufschub_Atr.Text = "" Then btnAufschub_Atr.Text = "Aufschub" ' lblAtrAufschubEustTxt.Visible = True ' lblAtrAufschubEust.Visible = True ' btnAufschub_Atr.PerformClick() ' End If ' End If txtKdAuftragsNr.BackColor = Color.White If txtAuftraggeber.KdData_KUNDE_ERW IsNot Nothing AndAlso txtAuftraggeber.KdData_KUNDE_ERW.kde_VerwendetAuftragsNr Then txtKdAuftragsNr.BackColor = Color.FromArgb(255, 255, 128) If txtKdAuftragsNr.Text = "" Then txtKdAuftragsNr.Text = If(txtAuftraggeber.KdData_KUNDE_ERW.kde_FixeAuftragsNr, "") End If 'If RadioButton.Checked Then initKundenzolltarifChecked(txtAuftraggeber) If cboZolltarif._value = 0 Then initKundenzolltarifChecked(txtAuftraggeber) Catch ex As Exception MsgBox(ex.Message & vbNewLine & ex.StackTrace) End Try initWarnKd_AndKdInfo(txtAuftraggeber, picWarnAuftraggeber) End Sub AddHandler txtEmpfaenger.TextChanged, Sub() ' If txtEmpfaenger.KdNr < 0 Then SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger") = txtEmpfaenger.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger = txtEmpfaenger.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr = -1 ' lblEmpfAufschubEustTxt.Visible = False lblEmpfAufschubEust.Visible = False ' If txtEmpfaenger.KdData_KUNDE IsNot Nothing Then ' If txtEmpfaenger.KdData_KUNDE.Aufschubkonto_EUSt IsNot Nothing And txtEmpfaenger.KdData_KUNDE.Aufschubkonto_EUSt <> "" Then 'lblEmpfAufschubEust.Text = txtEmpfaenger.KdData_KUNDE.Aufschubkonto_EUSt ' btnAufschub_Empf.Text = txtEmpfaenger.KdData_KUNDE.Aufschubkonto_EUSt btnAufschub_Empf.Text = SendungOptions.getAufschubKto(txtEmpfaenger.KdNr_value, "EUST") If btnAufschub_Empf.Text = "" Then btnAufschub_Empf.Text = "Aufschub" ' lblEmpfAufschubEustTxt.Visible = True ' lblEmpfAufschubEust.Visible = True ' btnAufschub_Atr.PerformClick() ' End If ' End If ' picWarnEmpfaenger.Visible = False initWarnKd_AndKdInfo(txtEmpfaenger, picWarnEmpfaenger) End Sub AddHandler txtAbsender.TextChanged, Sub() ' If txtAbsender.KdNr < 0 Then SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender") = txtAbsender.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender = txtAbsender.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr = -1 ' picWarnAbsender.Visible = False initWarnKd_AndKdInfo(txtAbsender, picWarnAbsender) End Sub AddHandler txtAuftraggeber.TextChanged, Sub() ' If txtAuftraggeber.KdNr < 0 Then SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber") = txtAuftraggeber.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber = txtAuftraggeber.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr = -1 initWarnKd_AndKdInfo(txtAuftraggeber, picWarnAuftraggeber) End Sub AddHandler txtAvisierer.TextChanged, Sub() 'picWarnAvisierer.Visible = False SENDUNG_LIST(CURRENT_INDEX).tblSnd_Avisierer = txtAvisierer.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr = -1 initWarnKd_AndKdInfo(txtAvisierer, picWarnAvisierer) End Sub AddHandler txtFrachtfuehrer.TextChanged, Sub() ' picWarnFrachtfuehrer.Visible = False SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtfuehrer = txtFrachtfuehrer.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr = -1 initWarnKd_AndKdInfo(txtFrachtfuehrer, picWarnFrachtfuehrer) End Sub txtAuftraggeber.initKdBox(Me, txtAuftraggeberKdNr) txtAbsender.initKdBox(Me, txtAbsenderKdNr) If SendungID > 0 Then For Each i In SENDUNG_LIST If i.tblSnd_SendungID = SendungID Then CURRENT_INDEX = SENDUNG_LIST.IndexOf(i) : Exit For End If Next ' Try : bsSendungen.Position = bsSendungen.Find("tblSnd_SendungID", SendungID) ' Catch ex As Exception : End Try End If If VERAG_PROG_ALLGEMEIN.cAllgemein.AUTO_ABF_NR Then btnNeueAbfertigungNrVergeben.Visible = True initDataBinding() Catch ex As Exception closeWithoutSave = True MsgBox("Fehler beim Laden der Sendungsdaten." & ex.Message & ex.StackTrace) Me.Close() End Try End Sub Sub fillUIDEORI(kdSB As VERAG_PROG_ALLGEMEIN.KdSearchBox) btnEORIPruef.Visible = False btnUIDPruef.Visible = False lblUID_Pruef.Text = "-" lbleori_Pruef.Text = "-" If kdSB IsNot Nothing Then If kdSB.KdData_KUNDE IsNot Nothing AndAlso kdSB.KdData_KUNDE.EORITIN IsNot Nothing Then lbleori_Pruef.Text = kdSB.KdData_KUNDE.EORITIN & If(kdSB.KdData_KUNDE.EORITIN_NL, "") btnEORIPruef.Visible = True End If If kdSB.KdData_ADRESSEN IsNot Nothing AndAlso kdSB.KdData_ADRESSEN.UstIdKz IsNot Nothing AndAlso kdSB.KdData_ADRESSEN.UstIdNr IsNot Nothing Then lblUID_Pruef.Text = kdSB.KdData_ADRESSEN.UstIdKz & kdSB.KdData_ADRESSEN.UstIdNr btnUIDPruef.Visible = True End If End If End Sub Sub settoopTip(pic As PictureBox, kdTXT As VERAG_PROG_ALLGEMEIN.KdSearchBox) If kdTXT.KdData_KUNDE_ERW IsNot Nothing AndAlso kdTXT.KdData_KUNDE_ERW.kde_InfoAuftragsNr IsNot Nothing AndAlso kdTXT.KdData_KUNDE_ERW.kde_InfoAuftragsNr <> "" Then ToolTip.SetToolTip(pic, kdTXT.KdData_KUNDE_ERW.kde_InfoAuftragsNr) pic.Visible = True pic.Cursor = Cursors.Hand pic.Tag = kdTXT.KdData_KUNDE_ERW.kde_InfoAuftragsNr Else ToolTip.SetToolTip(pic, "") pic.Visible = False pic.Cursor = Cursors.Default pic.Tag = "" End If End Sub Sub initWarnKd_AndKdInfo(kdSearch As VERAG_PROG_ALLGEMEIN.KdSearchBox, pic As PictureBox) Try 'If loaded Then initKdInfo(txtEmpfaenger.KdNr) 'pic.Visible = False 'If txtEmpfaenger.KdNr > 0 Then If loaded Then initKdInfo(kdSearch.KdNr) pic.Visible = False If kdSearch.KdNr > 0 Then ToolTip.SetToolTip(pic, "") Dim InfoText = "" If kdSearch.KdData_ADRESSEN IsNot Nothing Then If kdSearch.KdData_ADRESSEN.Auswahl = "I" Then InfoText &= "KUNDE INAKTIV!" & vbNewLine & vbNewLine End If End If If kdSearch.KdData_KUNDE IsNot Nothing Then If kdSearch.KdData_KUNDE.Abfertigungsverbot Then pic.Visible = True Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "VERAG" : InfoText &= "ACHTUNG!" & vbNewLine Case Else InfoText &= "ABFERTIGUNGSVERBOT!" & vbNewLine End Select If If(kdSearch.KdData_KUNDE.Abfertigungsverbot_Grund, "") <> "" Then InfoText &= kdSearch.KdData_KUNDE.Abfertigungsverbot_Grund & vbNewLine If If(kdSearch.KdData_KUNDE.Besonderheiten, "") <> "" Then pic.Visible = True InfoText &= "BESONDERHEITEN:" & vbNewLine InfoText &= kdSearch.KdData_KUNDE.Besonderheiten End If End If End If ToolTip.SetToolTip(pic, InfoText.Trim) End If Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try End Sub Sub initKundenzolltarifChecked(c As VERAG_PROG_ALLGEMEIN.KdSearchBox) ' lblKundenZolltarifVorhanden.Visible = ADMIN.getValueTxtBySql("SELECT CASE WHEN COUNT(*)>0 THEN 1 ELSE 0 END FROM tblZollArtikel WHERE KundenNr=" & c.KdNr, "FMZOLL") initZollTarife(c.KdNr) End Sub Private Sub frmSendungsdetailsShown(sender As Object, e As EventArgs) Handles Me.Shown If False Then 'VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then Dim u As New SDL.usrCntlATLAS_NCTS(DAKOSY_Worker.cDakosy_ZollanmeldungenArten.T2, AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, Now.ToString("yy"), "") u.Dock = DockStyle.Fill tbZollabfertigung.Controls.Clear() tbZollabfertigung.Controls.Add(u) Else 'TabControl1.TabPages.Remove(tbZollabfertigung) End If If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmSendungsdetails", Me) And Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmSendungsdetailsNEU", Me) Then Me.Close() End If ' Button13.Location = New Point(Button13.Left, 0) ' Dim ber As Integer = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG(Me) ' If ber >= 99 Then 'Me.Dispose() 'Me.Close() ' Exit Sub 'nd If End Sub Sub changeSelectedButton() ' If FlowLayoutPanel.Controls.Count <> AVISO_newDataSet.tblSendungen.Rows.Count Then 'initButtons() ' Exit Sub ' End If ' MsgBox(bsSendungen.Position & " _ " & AVISO_newDataSet.tblSendungen.Rows.Count) ' If bsSendungen.Position >= AVISO_newDataSet.tblSendungen.Rows.Count Then Exit Sub Try ' saveMe() 'sonst hat es nur die erste Registerkarte gespeichert For Each c In FlowLayoutPanel.Controls If c.GetType Is GetType(sendTAB) Then Dim b As sendTAB = c 'If b.value >= bsSendungen.Count Then Exit Sub If Not b.value >= SENDUNG_LIST.Count Then 'Dim da As cSendungen = SENDUNG_LIST(b.value) ' If Not da.RowState = DataRowState.Deleted Then Dim pos As Integer = CURRENT_INDEX 'SENDUNG_LIST.IndexOf(SENDUNG_LIST(b.value)) ')bsSendungen.Position b.pnl.BackColor = IIf(b.value = pos, VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor, Color.LightGray) b.lblAbfBez.ForeColor = IIf(b.value = pos, VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_ForeColor, Color.Black) b.lblAuftr.ForeColor = IIf(b.value = pos, VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_ForeColor, Color.Black) b.lblNr.ForeColor = IIf(b.value = pos, VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_ForeColor, Color.Black) ' Dim r As DataRow = AVISO_newDataSet.tblSendungen.Rows(b.value) ' MsgBox(da("tblSnd_PosUnterNr") & ". ") b.lblNr.Text = SENDUNG_LIST(b.value).tblSnd_PosUnterNr & ". " b.lblAbfBez.Text = ADMIN.getValueTxtBySql("SELECT Abfertigungsbezeichnung FROM Abfertigungsarten WHERE [Abfertigungsart]='" & SENDUNG_LIST(b.value).tblSnd_Abfertigungsart_ID & "'", "FMZOLL") b.lblAuftr.Text = loadValue(SENDUNG_LIST(b.value).tblSnd_Empfaenger, "") 'End If End If End If Next Catch ex As Exception 'evtl. bei poschanged fehler MsgBox("BUTTON; " & ex.Message & ex.StackTrace) End Try End Sub Sub initButtons() ' FlowLayoutPanel.Visible = False ' Me.SuspendLayout() FlowLayoutPanel.SuspendLayout() FlowLayoutPanel.Controls.Clear() For Each s In SENDUNG_LIST Dim b As New sendTAB b.Visible = False b.value = SENDUNG_LIST.IndexOf(s) AddHandler b.MECLICK, Sub(send As Object) ' Me.loadDataInLIST() If SAVE_ME() Then Me.CURRENT_INDEX = send.value Me.initDataBinding() End If End Sub AddHandler b.DEL, Sub(send As Object) 'saveMe() 'bsSendungen.Position = send.value ' MsgBox(send.value) 'bsSendungen.RemoveAt(send.value) ' BindingNavigatorDeleteItem1.PerformClick() ' AVISO_newDataSet.tblSendungen.EndLoadData() ' AVISO_newDataSet.tblSendungen.Rows(send.value).Delete() ' AVISO_newDataSet.tblSendungen.BeginLoadData() ' saveMe() 'REMOVE ??????!!!!!!! If SENDUNG_LIST.Count = 1 Then MsgBox("Diese Sendung kann nicht gelöscht werden!") Exit Sub Else If SAVE_ME() Then ' Änderungen speichern Dim sendBez = SENDUNG_LIST(b.value).tblSnd_PosUnterNr & ". " sendBez &= ADMIN.getValueTxtBySql("SELECT Abfertigungsbezeichnung FROM Abfertigungsarten WHERE [Abfertigungsart]='" & SENDUNG_LIST(b.value).tblSnd_Abfertigungsart_ID & "'", "FMZOLL") sendBez &= " " & loadValue(SENDUNG_LIST(b.value).FilialenNr, "") & "/" & loadValue(SENDUNG_LIST(b.value).AbfertigungsNr, "") If If(SENDUNG_LIST(b.value).tblSnd_Empfaenger, "") <> "" Then sendBez &= " (" & loadValue(SENDUNG_LIST(b.value).tblSnd_Empfaenger, "") & ")" If SENDUNG_LIST(send.value).DELETE() Then 'Löschen der Betroffenen Sendung AvisoStatusFunctions.insertVermerkAllg(AvisoId, "Die Sendung '" & sendBez & "' wurde gelöscht.", 46) End If VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, CURRENT_INDEX, AvisoId) 'Alle Sendungen werden erneut geladen initDataBinding() If send.value > 0 Then CURRENT_INDEX = send.value - 1 Else CURRENT_INDEX = 0 End If End If initDataBinding() initPosNr() initButtons() 'initButtons() End If End Sub AddHandler b.RIGHTCLICK_COPYDATATO, Sub(fromIndex, toIndex) CopyDataFrom(fromIndex, toIndex) End Sub AddHandler b.RIGHTCLICK_DUPLICATE, Sub(fromIndex) Duplicate(fromIndex) End Sub FlowLayoutPanel.Controls.Add(b) b.Visible = True ' MsgBox(FlowLayoutPanel.Height) Next Dim b_add As New VERAG_PROG_ALLGEMEIN.FlatButton b_add.Visible = False b_add.FlatAppearance.BorderSize = 0 b_add.TextAlign = ContentAlignment.MiddleCenter b_add.Size = New Size(30, 30) b_add.Margin = New Padding(2, 22, 0, 0) b_add.Text = "+" b_add.Font = New Font(b_add.Font.FontFamily, 14, FontStyle.Bold) b_add.BackColor = Color.LightGray() AddHandler b_add.Click, Sub(send As Object, ev As EventArgs) If AVISO.Abgeschlossen Then Exit Sub ' Dim currentHisId = 0 ' Try : currentHisId = AVISO_newDataSet.tblSendungen.Select("tblSnd_PosUnterNr=MAX(tblSnd_PosUnterNr)")(0).Item("tblSnd_PosUnterNr") : Catch : End Try ' currentHisId += 1 Dim filiale_tmp As Integer = 0 Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "IMEX" : filiale_tmp = 5501 Case "UNISPED" : filiale_tmp = 5601 Case "AMBAR" : filiale_tmp = 5701 Case "FRONTOFFICE" : filiale_tmp = 0 '5801 Case "VERIMEX" : filiale_tmp = 0 '6001 Case Else Select Case AVISO.Grenzstelle Case "SUB" : filiale_tmp = 4803 Case "SBG" : filiale_tmp = 5003 Case "WAI" : filiale_tmp = 5103 Case "NKD" : filiale_tmp = 5303 Case "SFD" : filiale_tmp = 4839 End Select End Select ' loadDataInLIST() If SAVE_ME() Then 'aktuelle Änderungen sichern ' Dim abfnr_tmp As Integer = IIf(filiale_tmp > 0, ADMIN.getMaxPosNrIncrement(filiale_tmp, Now.Year), 0) Dim NEW_SND As New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SENDUNG_LIST.Count + 1, filiale_tmp, Nothing, 0, 0) 'Neue Sendung erstellen ' SENDUNG_LIST.Add(NEW_SND) NEW_SND.SAVE() 'Insert neue Sendung VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, CURRENT_INDEX, AvisoId, False) 'Alle Sendungen neu laden ' initDataBinding() LAST_SENDUNG(False) 'letzte Sendung initButtons() End If End Sub FlowLayoutPanel.Controls.Add(b_add) b_add.Visible = True ' FlowLayoutPanel.Visible = True ' Me.ResumeLayout(False) changeSelectedButton() FlowLayoutPanel.ResumeLayout(True) ' Panel3.Height = FlowLayoutPanel.Height End Sub Public Sub Duplicate(index) ' loadDataInLIST() SAVE_ME() Dim newRow As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(index).Clone newRow.tblSnd_PosUnterNr = SENDUNG_LIST.Count + 1 newRow.AbfertigungsNr = IIf(newRow.FilialenNr > 0, Nothing, 0) newRow.UnterNr = 0 newRow.tblSnd_Colli = "" newRow.tblSnd_Gewicht = "" newRow.tblSnd_Colli = "" newRow.tblSnd_SendungID = -1 SENDUNG_LIST.Add(newRow) SAVE_ME() LAST_SENDUNG() End Sub Public Sub CopyDataFrom(indexFrom, indexTo) Exit Sub SAVE_ME() Dim fromRow As DataRow = Nothing 'AVISO_newDataSet.tblSendungen.Rows(indexFrom) Dim toRow As DataRow = Nothing ' AVISO_newDataSet.tblSendungen.Rows(indexTo) Dim c As DataColumnCollection = Nothing ' AVISO_newDataSet.tblSendungen.Columns For i As Integer = 0 To (c.Count - 1) If c(i).ColumnName <> "tblSnd_SendungID" And c(i).ColumnName <> "tblSnd_PosUnterNr" And c(i).ColumnName <> "FilialenNr" And c(i).ColumnName <> "AbfertigungsNr" And c(i).ColumnName <> "UnterNr" Then toRow.Item(i) = fromRow.Item(i) End If Next ' AVISO_newDataSet.tblSendungen.Rows.Add(toRow) ' initButtons() LAST_SENDUNG() End Sub Sub initZollTarife(kdnr_tmp) ' MsgBox("DA") pnlKundenZolltarif.Controls.Clear() ' Dim kdnr_tmp = SENDUNG_LIST(CURRENT_INDEX).") If Not IsNumeric(kdnr_tmp) Or kdnr_tmp <= 0 Then lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Visible = True Exit Sub Else lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Visible = False End If Dim usrcntl As New SDL.usrCntlZollArtikel usrcntl.kdnr = CInt(kdnr_tmp) usrcntl.benutzeransicht = True usrcntl.Panel1.Visible = False usrcntl.pnlOptions1.Visible = True 'usrcntl.btnDatenUebernehmen.Visible = False usrcntl.dgvZollArtikel.BackgroundColor = Color.White ' AddHandler usrcntl.btnDatenUebernehmen.Click, Sub() ' If usrcntl.dgvZollArtikel.SelectedRows.Count > 0 Then ' Dim tmp As String = usrcntl.dgvZollArtikel.SelectedRows(0).Cells("zollArt_Warencodenummer").Value 'zollArt_Kurzbezeichnung() ' zollArt_Warenbeschreibung() ' End If ' End Sub usrcntl.displayFilter = True usrcntl.Dock = DockStyle.Fill usrcntl.parentKundenblatt = False pnlKundenZolltarif.Controls.Add(usrcntl) Label22.Visible = (usrcntl.dgvZollArtikel.RowCount = 0) End Sub Function loadValue(o As Object, o2 As Object) As Object 'If <> Nothing Then Return o If o IsNot Nothing Then Return o Else Return o2 End Function Dim allowChange = True Public Sub initDataBinding() 'Me.Enabled = False Me.Cursor = Cursors.WaitCursor loaded = False Try lblAbfNr_Err.Visible = False ' lblAtrAufschubEustTxt.Visible = False ' lblEmpfAufschubEustTxt.Visible = False 'KundenAtrNr: cboAbfertigungsart.fillWithSQL("SELECT [Abfertigungsart],[Abfertigungsbezeichnung] FROM [Abfertigungsarten] ", True, "FMZOLL", True) Dim whereFiliale = "" 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA ' Case "VERAG" ' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG ' Case "SUB" ' If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Or VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "FISKAL" Then ' whereFiliale = " AND FilialenNr IN (4803,4805,4811,5003,5303,5103,4839) " ' Else ' whereFiliale = " AND FilialenNr IN (4803,5003,4805,4811,5103,5303,4839) " '5103,5303 weil sonst keine WDH angezeigt ' End If ' Case "NKD" ' whereFiliale = " AND FilialenNr IN (5303,5003,4811,4805,5103,4803,4839) " ' Case "WAI" ' whereFiliale = " AND FilialenNr IN (5103,5003,4811,4803,5303,4839) " '4809,4803,5303, weil sonst keine SUB angezeigt ' Case "SBG" ' whereFiliale = " AND FilialenNr IN (5303,5003,4811,4805,5103,4803,4839) " ' End Select ' Case "ATILLA" ' whereFiliale = " AND FilialenNr IN (4801) " ' Case "IMEX" ' whereFiliale = " AND FilialenNr IN (5501) " ' Case Else ' whereFiliale = " AND FilialenNr IN (" & VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE & ") " 'End Select Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER Case "FRONTOFFICE" whereFiliale = " AND FilialenNr IN (4803,4805,4811,5003,5303,5103,4839,5501,5601,5801) " If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then whereFiliale = " AND FilialenNr IN (4803,4805,4811,5003,5303,5103,4839,5501,5601,5801,5701) " End If Case Else Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "ATILLA" whereFiliale = " AND FilialenNr IN (4801) " Case "AMBAR" whereFiliale = " AND FilialenNr IN (5701) " Case Else whereFiliale = " AND FilialenNr IN ('" & VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE & "') " End Select End Select cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' " & whereFiliale & " ORDER BY FilialenNr ", True, "FMZOLL", True) cboFremdsped.fillWithSQL("SELECT fremd_kurzBezeichnung FROM tblFremdSpeditionen WHERE Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ORDER BY fremd_kurzBezeichnung ", False, "AVISO", True) If CURRENT_INDEX < 0 Then Me.Enabled = True Me.Cursor = Cursors.Default Exit Sub End If VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID cbxFremdspedition.Checked = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition cboFremdsped.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_FremdspeditionText If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition Then If SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr > -1 Then txtFremdEmpf.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr Else txtFremdEmpf.KdNr_value = -1 txtFremdEmpfKdNR.Text = "" txtFremdEmpf.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger 'IIf(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger Is Nothing, "", SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger) End If End If txtWarenwert.Text = If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert, "") txtWarenwertWaehrung.SET_VALUE(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_WarenwertWaehrung, "")) 'MsgBox(loadValue(SENDUNG_LIST(CURRENT_INDEX).FilialenNr(), -1)) cboFiliale._value = loadValue(SENDUNG_LIST(CURRENT_INDEX).FilialenNr, -1) txtAbfertigungsnummer.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr, String.Empty) txtUnterNr.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).UnterNr, String.Empty) If txtUnterNr.Text = "" Then txtUnterNr.Text = "0" cboAbfertigungsart._value = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID, String.Empty) ' txtEmpfaengerBonitaet.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Bonitaet, "") ' txtEmpfaengerAnsprechpartner.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Ansprechperson, "") txtAnzahl.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_anzahlHandling, String.Empty) ' txtAuftraggeber, "KdNr = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr", String.Empty) ' txtAbsender, "KdNr = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr", String.Empty) rtbAnmerkung.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Anmerkung, "") rtbAnmerkungDispoliste.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AnmerkungDispoliste, "") txtColli.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Colli, "").ToString.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen txtGewicht.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht, "").ToString.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen rtbWarenbezeichnung.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenbezeichnung, "") cbxSpedBuch.Checked = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen, False) ' cntlBar.Checked = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_bar, False) ' txtBarBelegNr.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_barBeleg, "") ' txtBarBelegBetrag._value = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_betrag, String.Empty) txtBARzuKassieren._value = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_BARzuKassieren, String.Empty) ' cboAufschub._value = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub, "") cboZolltarif.changeItem(loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AngabeZolltarif, 0)) txtDyRef.Text = If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_DakosyRef, "") If VERAG_PROG_ALLGEMEIN.cAllgemein.AUTO_ABF_NR Then btnNeueAbfertigungNrVergeben.Visible = (SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr <= 0) lblSendungen.Text = (CURRENT_INDEX + 1) Me.Text = "Sendungsdetails - " & AVISO.LKW_Nr 'If AVISO.Auftraggeber_KdNr > -1 Then ' txtAvisierer.KdNr = AVISO.Auftraggeber_KdNr 'Else ' txtAvisierer.KdNr_value = -1 ' txtAvisiererKdNr.Text = "" ' txtAvisierer.Text = AVISO.Auftraggeber 'End If 'If AVISO.Frächter_KdNr > -1 Then ' txtFrachtfuehrer.KdNr = AVISO.Frächter_KdNr 'Else ' txtFrachtfuehrer.KdNr_value = -1 ' txtFrachtfuehrerKdNr.Text = "" ' txtFrachtfuehrer.Text = AVISO.Frächter 'End If fillUIDEORI(Nothing) If SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr > -1 Then txtEmpfaenger.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr Else txtEmpfaenger.KdNr_value = -1 txtEmpfaengerKdNr.Text = "" txtEmpfaenger.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger 'IIf(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger Is Nothing, "", SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger) End If If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr > -1 Then txtAuftraggeber.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr Else txtAuftraggeber.KdNr_value = -1 txtAuftraggeberKdNr.Text = "" txtAuftraggeber.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber End If If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr > -1 Then txtAbsender.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr Else txtAbsender.KdNr_value = -1 txtAbsenderKdNr.Text = "" txtAbsender.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender End If ' txtAvisiererKdNr.Text = "" If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr > -1 Then txtAvisierer.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr Else txtAvisierer.KdNr_value = -1 txtAvisiererKdNr.Text = "" txtAvisierer.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Avisierer 'IIf(SENDUNG_LIST(CURRENT_INDEX).tblSnd_avisierer Is Nothing, "", SENDUNG_LIST(CURRENT_INDEX).tblSnd_avisierer) End If ' txtFrachtfuehrer.Text = "" If SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr > -1 Then txtFrachtfuehrer.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr Else txtFrachtfuehrer.KdNr_value = -1 txtFrachtfuehrerKdNr.Text = "" txtFrachtfuehrer.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtfuehrer 'IIf(SENDUNG_LIST(CURRENT_INDEX).tblSnd_frachtfuehrer Is Nothing, "", SENDUNG_LIST(CURRENT_INDEX).tblSnd_frachtfuehrer) End If initFraechterAvisererFromAkt() ''Übergangsphase Aviso/Sendung 'If txtAvisierer.Text = "" And txtAvisierer.Enabled And (VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX") Then ' If AVISO.Auftraggeber_KdNr > -1 Then ' If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromKdNr(AVISO.Auftraggeber_KdNr) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then ' txtAvisierer.KdNr = AVISO.Auftraggeber_KdNr ' End If ' Else ' txtAvisierer.KdNr_value = -1 ' txtAvisiererKdNr.Text = "" ' txtAvisierer.Text = AVISO.Auftraggeber ' End If 'End If ''Übergangsphase Aviso/Sendung 'If txtFrachtfuehrer.Text = "" And txtFrachtfuehrer.Enabled And VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then ' If AVISO.Frächter_KdNr > -1 Then ' If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromKdNr(AVISO.Frächter_KdNr) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then ' txtFrachtfuehrer.KdNr = AVISO.Frächter_KdNr ' End If ' Else ' txtFrachtfuehrer.KdNr_value = -1 ' txtFrachtfuehrerKdNr.Text = "" ' txtFrachtfuehrer.Text = AVISO.Frächter ' End If 'End If pnlT1.Controls.Clear() usrcntl_NCTS.reset() usrcntl_FISKAL.reset() usrcntl_ATA = New usrCntlSND_Handling(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) AddHandler usrcntl_ATA.HandlingWerte, Sub(colli, gewicht) txtColli.Text = colli txtGewicht.Text = gewicht End Sub ' txtT1Verzollungsadresse.Text = "" Select Case SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID Case 5, 6 If (SENDUNG_LIST(CURRENT_INDEX).NCTS_ngaId IsNot Nothing) Then usrcntl_NCTS.NCTS_GA = New cNCTSGestellungsadressen(SENDUNG_LIST(CURRENT_INDEX).NCTS_ngaId) usrcntl_NCTS.setValues() End If 'trotzdem überschreiben: usrcntl_NCTS.txtT1Verzollungsadresse.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_NCTSVerzollungsadresse, "") usrcntl_NCTS.txtT1VerzollungsadresseStrasse.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Strasse, "") usrcntl_NCTS.txtT1VerzollungsadressePlz.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_PLZ, "") usrcntl_NCTS.txtT1VerzollungsadresseOrt.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Ort, "") usrcntl_NCTS.sbT1VerzollungsadresseLand.SET_VALUE(loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Land, "")) usrcntl_NCTS.txtT1VerzollungsadresseEORI.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_EORI, "") usrcntl_NCTS.txtT1VerzollungsadresseEORI_NL.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_EORI_NL, "") usrcntl_NCTS.txtT1VerzollungsadresseAnspr.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Ansprechpartner, "") usrcntl_NCTS.txtT1VerzollungsadresseBestimmungszollstelle.SET_VALUE(loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Bestimmungszollstelle, "")) usrcntl_NCTS.cbxNCTSAufDispo.Checked = SENDUNG_LIST(CURRENT_INDEX).tblSnd_NCTSaufDISPO pnlT1.Controls.Add(usrcntl_NCTS) Case 26, 28 usrcntl_FISKAL.rtbFiskalEndempf.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_EUFiskalEmpfaenger, "") pnlT1.Controls.Add(usrcntl_FISKAL) Case 23 usrcntl_ATA.txtATAold.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATANr, "") usrcntl_ATA.txtATCMRNFremd.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATCMRN_Fremd, "") pnlT1.Controls.Add(usrcntl_ATA) End Select cboAbfertigungsart_SelectedIndexChanged(cboAbfertigungsart, New EventArgs) txtKdAuftragsNr.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_KdAuftragsNr txtKdAuftragsNrAvisierer.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_KdAuftragsNrAvisierer txtKdAuftragsNrEmpfaenger.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_KdAuftragsNrEmpfaenger txtKdAuftragsNrFrachtfuehrer.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_KdAuftragsNrFrachtfuehrer lblZollsysErr.Text = "" cboZollsystem.changeItem("") cboZollsystem2.changeItem("") txtAtlasBezNrEZA.Text = "" txtAtlasBezNrEZA2.Text = "" txtAtlasBezNrNCTS.Text = "" txtAtlasBezNrNCTS2.Text = "" cboSachbearbeiter.changeItem("") cbxNCTST.Checked = False pnlEAviso.Visible = (SENDUNG_LIST(CURRENT_INDEX).VORSYSTEM IsNot Nothing) lblVorsystem.Text = If(SENDUNG_LIST(CURRENT_INDEX).VORSYSTEM, "") lblVorsystem.Visible = pnlEAviso.Visible initRbtn() cboAbfertigungsart.Focus() setQS() initAufschubBtn() ' poschanged() initButtons() ' initRbtn() lblAbfNrExists.Visible = checkDoppelAbfNr() ' initSpeditionbuch() initTab() initGesColliGewicht() initKdInfo(-1) If tbcntr.SelectedTab Is TabPage5 Then initDGVBelege() End If sperrePanel() LOAD_ABRECHUNG() Panel2.MinimumSize = New Size(0, FlowLayoutPanel.Height) '+ pnlheader.Height) ' damit das S***** Flowlayoutpanel nicht abgeschnitten wird... 'SAVE_ME ??????!!!!!!! Catch ex As Exception MsgBox("ERR: " & ex.Message & ex.StackTrace) End Try loaded = True ' Me.Enabled = True Me.Cursor = Cursors.Default ' GEAENDERT = False End Sub Sub initFraechterAvisererFromAkt() 'Übergangsphase Aviso/Sendung If txtAvisierer.Text = "" And txtAvisierer.Enabled Then 'And (VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX") Then If AVISO.Auftraggeber_KdNr > -1 Then If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromKdNr(AVISO.Auftraggeber_KdNr) = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) Then txtAvisierer.KdNr = AVISO.Auftraggeber_KdNr End If Else txtAvisierer.KdNr_value = -1 txtAvisiererKdNr.Text = "" txtAvisierer.Text = AVISO.Auftraggeber End If End If 'Übergangsphase Aviso/Sendung If txtFrachtfuehrer.Text = "" And txtFrachtfuehrer.Enabled Then 'And (VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX") Then If AVISO.Frächter_KdNr > -1 Then If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromKdNr(AVISO.Frächter_KdNr) = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) Then txtFrachtfuehrer.KdNr = AVISO.Frächter_KdNr End If Else txtFrachtfuehrer.KdNr_value = -1 txtFrachtfuehrerKdNr.Text = "" txtFrachtfuehrer.Text = AVISO.Frächter End If End If End Sub Sub initPosNr() 'Try Dim cnt As Integer = 1 For Each i In SENDUNG_LIST i.tblSnd_PosUnterNr = cnt cnt += 1 Next SAVE_ME(True) End Sub Sub initGesColliGewicht() Try Dim gesColli As Double = 0 Dim gesGewicht As Double = 0 For Each s In SENDUNG_LIST If s.tblSnd_Colli IsNot Nothing AndAlso IsNumeric(s.tblSnd_Colli.Replace("Pk", "").Replace(".", "").Trim) Then gesColli += s.tblSnd_Colli If s.tblSnd_Gewicht IsNot Nothing AndAlso IsNumeric(s.tblSnd_Gewicht.Replace("kg", "").Trim) Then gesGewicht += s.tblSnd_Gewicht Next lblGesColli.Text = If(gesColli = 0, "-", gesColli.ToString("N0")) & " Pk" lblgesGewicht.Text = If(gesGewicht = 0, "-", gesGewicht.ToString("N1")) & " kg" Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try End Sub Sub binddata(o As Object, bindingParam As String, bindingSource As BindingSource, dataName As String, Optional bindingNullValue As Object = Nothing, Optional formatString As String = "") o.DataBindings.Clear() ' If bindingNullValue = Nothing Then bindingNullValue = DBNull.Value o.DataBindings.Add(New Binding(bindingParam, bindingSource, dataName, True, DataSourceUpdateMode.OnPropertyChanged, bindingNullValue, formatString)) End Sub Sub initRbtn() ' If SENDUNG_LIST.Count > 0 Then ' Select Case SENDUNG_LIST(CURRENT_INDEX).tblSnd_AngabeZolltarif ' Case 1 : RadioButton1.Checked = True ' Case 2 : RadioButton2.Checked = True ' Case Else : RadioButton.Checked = True ' End Select ' End If End Sub 'Sub poschanged() ' Try ' If VERAG_PROG_ALLGEMEIN.cAllgemein.AUTO_ABF_NR Then btnNeueAbfertigungNrVergeben.Visible = (SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr <= 0) ' lblSendungen.Text = (CURRENT_INDEX + 1) ' If SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr > -1 Then ' txtEmpfaenger.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr ' Else ' txtEmpfaengerKdNr.Text = "" ' txtEmpfaenger.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger 'IIf(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger Is Nothing, "", SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger) ' End If ' If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr > -1 Then ' txtAvisierer.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr ' Else ' txtAvisiererKdNr.Text = "" ' txtAvisierer.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Avisierer 'IIf(SENDUNG_LIST(CURRENT_INDEX).tblSnd_avisierer Is Nothing, "", SENDUNG_LIST(CURRENT_INDEX).tblSnd_avisierer) ' End If ' If SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr > -1 Then ' txtFrachtfuehrer.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr ' Else ' txtFrachtfuehrerKdNr.Text = "" ' txtFrachtfuehrer.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtfuehrer 'IIf(SENDUNG_LIST(CURRENT_INDEX).tblSnd_frachtfuehrer Is Nothing, "", SENDUNG_LIST(CURRENT_INDEX).tblSnd_frachtfuehrer) ' End If ' 'fremdsped ' If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition Then ' If SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr > -1 Then ' txtFremdEmpf.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr ' Else ' txtFremdEmpfKdNR.Text = "" ' txtFremdEmpf.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger 'IIf(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger Is Nothing, "", SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger) ' End If ' End If ' If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr > -1 Then ' txtAuftraggeber.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr ' Else ' txtAuftraggeberKdNr.Text = "" ' txtAuftraggeber.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber ' End If ' If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr > -1 Then ' txtAbsender.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr ' Else ' txtAbsenderKdNr.Text = "" ' txtAbsender.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender ' End If ' cboAbfertigungsart_SelectedIndexChanged(cboAbfertigungsart, New EventArgs) ' initRbtn() ' cboAbfertigungsart.Focus() ' ' MsgBox(bsSendungen.Current.row.Item("tblSnd_EmpfaengerKdNr").ToString) ' Catch ex As Exception ' MsgBox("POS ERR: " & ex.Message & ex.StackTrace) ' End Try ' ' MsgBox("c2") 'End Sub Sub loadDataInLIST() ' MsgBox(CURRENT_INDEX) If txtBARzuKassieren.Focused Then 'damit Validierung startet rtbAnmerkung.Focus() End If SENDUNG_LIST(CURRENT_INDEX).FilialenNr = If(IsNumeric(cboFiliale._value) AndAlso cboFiliale._value > 0, cboFiliale._value, Nothing) SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr = IIf(IsNumeric(txtAbfertigungsnummer.Text), txtAbfertigungsnummer.Text, Nothing) If SENDUNG_LIST(CURRENT_INDEX).FilialenNr <= 0 Then SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr = Nothing SENDUNG_LIST(CURRENT_INDEX).UnterNr = IIf(IsNumeric(txtUnterNr.Text), txtUnterNr.Text, Nothing) SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID = IIf(IsNumeric(cboAbfertigungsart._value), cboAbfertigungsart._value, Nothing) ' SENDUNG_LIST(CURRENT_INDEX).tblSnd_Bonitaet = txtEmpfaengerBonitaet.Text ' SENDUNG_LIST(CURRENT_INDEX).tblSnd_Ansprechperson = txtEmpfaengerAnsprechpartner.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_anzahlHandling = txtAnzahl.Text ' txtAuftraggeber, "KdNr = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr", String.Empty) ' txtAbsender, "KdNr = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr", String.Empty) SENDUNG_LIST(CURRENT_INDEX).tblSnd_Anmerkung = rtbAnmerkung.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_AnmerkungDispoliste = rtbAnmerkungDispoliste.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_Colli = txtColli.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht = txtGewicht.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenbezeichnung = rtbWarenbezeichnung.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen = cbxSpedBuch.Checked ' SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub = cboAufschub._value ' MsgBox(CURRENT_INDEX & " _ " & txtColli.Text) SENDUNG_LIST(CURRENT_INDEX).tblSnd_SachbearbeiterId = cGlobal.AktiverMitarbeiter.MitarbeiterID 'fremdsped If cbxFremdspedition.Checked Then SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr = IIf(txtFremdEmpf.KdNr_value > 0, txtFremdEmpf.KdNr_value, -1) SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger = txtFremdEmpf.Text Else SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr = IIf(txtEmpfaenger.KdNr_value > 0, txtEmpfaenger.KdNr_value, -1) SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger = txtEmpfaenger.Text End If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr = IIf(txtAvisierer.KdNr_value > 0, txtAvisierer.KdNr_value, -1) SENDUNG_LIST(CURRENT_INDEX).tblSnd_Avisierer = txtAvisierer.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr = IIf(txtFrachtfuehrer.KdNr_value > 0, txtFrachtfuehrer.KdNr_value, -1) SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtfuehrer = txtFrachtfuehrer.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr = IIf(txtAuftraggeber.KdNr_value > 0, txtAuftraggeber.KdNr_value, -1) SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber = txtAuftraggeber.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr = IIf(txtAbsender.KdNr_value > 0, txtAbsender.KdNr_value, -1) SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender = txtAbsender.Text ' MsgBox(txtBARzuKassieren._value) SENDUNG_LIST(CURRENT_INDEX).tblSnd_BARzuKassieren = If(txtBARzuKassieren._value = "", Nothing, CDbl(txtBARzuKassieren._value)) SENDUNG_LIST(CURRENT_INDEX).tblSnd_AngabeZolltarif = 0 If cboZolltarif._value <> "" Then SENDUNG_LIST(CURRENT_INDEX).tblSnd_AngabeZolltarif = cboZolltarif._value ' MsgBox("SAVE: " & cboZolltarif._value) ' SENDUNG_LIST(CURRENT_INDEX).tblSnd_bar = cntlBar.Checked ' SENDUNG_LIST(CURRENT_INDEX).tblSnd_barBeleg = txtBarBelegNr.Text 'If IsNumeric(txtBarBelegBetrag._value) Then 'SENDUNG_LIST(CURRENT_INDEX).tblSnd_betrag = CDbl(txtBarBelegBetrag._value) ' Else ' SENDUNG_LIST(CURRENT_INDEX).tblSnd_betrag = Nothing 'End If SENDUNG_LIST(CURRENT_INDEX).tblSnd_NCTSVerzollungsadresse = Nothing SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Strasse = Nothing SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_PLZ = Nothing SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Ort = Nothing SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Land = Nothing SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_EORI = Nothing SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_EORI_NL = Nothing SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Ansprechpartner = Nothing SENDUNG_LIST(CURRENT_INDEX).NCTS_Bestimmungszollstelle = Nothing SENDUNG_LIST(CURRENT_INDEX).tblSnd_EUFiskalEmpfaenger = Nothing Select Case SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID Case 5, 6 If pnlT1.Controls.Count > 0 AndAlso pnlT1.Controls(0).GetType Is GetType(usrCntlSND_NCTSGestellungsadresse) Then SENDUNG_LIST(CURRENT_INDEX).tblSnd_NCTSVerzollungsadresse = usrcntl_NCTS.txtT1Verzollungsadresse.Text SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Strasse = usrcntl_NCTS.txtT1VerzollungsadresseStrasse.Text SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_PLZ = usrcntl_NCTS.txtT1VerzollungsadressePlz.Text SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Ort = usrcntl_NCTS.txtT1VerzollungsadresseOrt.Text SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Land = usrcntl_NCTS.sbT1VerzollungsadresseLand._value SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_EORI = usrcntl_NCTS.txtT1VerzollungsadresseEORI.Text SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_EORI_NL = usrcntl_NCTS.txtT1VerzollungsadresseEORI_NL.Text SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Ansprechpartner = usrcntl_NCTS.txtT1VerzollungsadresseAnspr.Text SENDUNG_LIST(CURRENT_INDEX).NCTS_Bestimmungszollstelle = usrcntl_NCTS.txtT1VerzollungsadresseBestimmungszollstelle._value SENDUNG_LIST(CURRENT_INDEX).NCTS_ngaId = If(usrcntl_NCTS.NCTS_GA IsNot Nothing, usrcntl_NCTS.NCTS_GA.nga_id, Nothing) SENDUNG_LIST(CURRENT_INDEX).tblSnd_NCTSaufDISPO = usrcntl_NCTS.cbxNCTSAufDispo.Checked End If Case 26, 28 ' SENDUNG_LIST(CURRENT_INDEX).tblSnd_Endempfaenger = txtT1Verzollungsadresse.Text If pnlT1.Controls.Count > 0 AndAlso pnlT1.Controls(0).GetType Is GetType(usrCntlSND_NCTSFiskalEndempf) Then SENDUNG_LIST(CURRENT_INDEX).tblSnd_EUFiskalEmpfaenger = usrcntl_FISKAL.rtbFiskalEndempf.Text End If Case 23 ' SENDUNG_LIST(CURRENT_INDEX).tblSnd_Endempfaenger = txtT1Verzollungsadresse.Text If pnlT1.Controls.Count > 0 AndAlso pnlT1.Controls(0).GetType Is GetType(usrCntlSND_Handling) Then SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATCMRN_Fremd = usrcntl_ATA.txtATCMRNFremd.Text ' SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATANr = usrcntl_ATA.txtATAold.Text SENDUNG_LIST(CURRENT_INDEX).HANDLING = usrcntl_ATA.GET_HANDLING() 'derzeit ohne Funktion SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATANr = usrcntl_ATA.GET_HANDLING_STRING() 'derzeit ohne Funktion End If End Select SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert = SQL.isNullNothingDbl(txtWarenwert.Text) SENDUNG_LIST(CURRENT_INDEX).tblSnd_WarenwertWaehrung = SQL.isNullNothing(txtWarenwertWaehrung._value) ' SENDUNG_LIST(CURRENT_INDEX).tblSnd_betrag = IIf(IsNumeric(txtBarBelegBetrag._value), txtBarBelegBetrag._value, Nothing) ' SENDUNG_LIST(CURRENT_INDEX). tblSnd_inBearbeitung As Boolean = False ' SENDUNG_LIST(CURRENT_INDEX). tblSnd_Bearbeitung_MaId As Integer = Nothing SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition = cbxFremdspedition.Checked SENDUNG_LIST(CURRENT_INDEX).tblSnd_FremdspeditionText = cboFremdsped.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_KdAuftragsNr = txtKdAuftragsNr.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_DakosyRef = txtDyRef.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_KdAuftragsNrAvisierer = txtKdAuftragsNrAvisierer.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_KdAuftragsNrEmpfaenger = txtKdAuftragsNrEmpfaenger.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_KdAuftragsNrFrachtfuehrer = txtKdAuftragsNrFrachtfuehrer.Text End Sub Function getint(o) As Integer Try If o IsNot DBNull.Value AndAlso IsNumeric(o) Then Return CInt(o) Catch ex As Exception : End Try Return -1 End Function Private Sub btn_Click(sender As Object, e As EventArgs) BindingNavigatorMoveNextItem.PerformClick() End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) BindingNavigatorMovePreviousItem.PerformClick() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click ' loadDataInLIST() If SAVE_ME() Then Me.Close() End If End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Me.Close() End Sub Sub dgvCellToCbo2(dgv As DataGridView, columnName As String, HeaderText As String, DataPropertyName As String, sqlstr As String, Optional conn_art As String = "SDL", Optional dropdownwidth As Integer = -1, Optional simpleStyle As Boolean = False) Dim comboBoxColumn As New DataGridViewComboBoxColumn Dim SQL As New SDL.SQL Dim columnIndex = dgv.Columns(columnName).Index With comboBoxColumn .HeaderText = HeaderText .DataPropertyName = DataPropertyName .Name = columnName .DataSource = SQL.loadDgvBySql(sqlstr, conn_art) .ValueMember = .DataSource.Columns(0).ColumnName .DisplayMember = .DataSource.Columns(1).ColumnName .FlatStyle = FlatStyle.Flat If simpleStyle Then .DisplayStyle = DataGridViewComboBoxDisplayStyle.Nothing If dropdownwidth > 0 Then .DropDownWidth = dropdownwidth End With dgv.Columns.RemoveAt(columnIndex) dgv.Columns.Insert(columnIndex, comboBoxColumn) End Sub Private Sub Button1_Click_1(sender As Object, e As EventArgs) MsgBox(DirectCast(cboAbfertigungsart.SelectedItem, Gemeinsames.MyListItem).Value) End Sub Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click, Button8.Click, LaufzettelDruckenToolStripMenuItem.Click Me.Cursor = Cursors.WaitCursor ' loadDataInLIST() SAVE_ME() Dim Printername = cboPrinter.Text If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then If Not CheckAusfuellen() Then Exit Sub End If End If If sender Is Button3 Or sender Is LaufzettelDruckenToolStripMenuItem Then 'Dim trd = New Threading.Thread(Sub() SendungOptions.PrintSendung("PRINT", Me.SENDUNG_LIST(CURRENT_INDEX), Me.AVISO, Printername, If(sender Is LaufzettelDruckenToolStripMenuItem, "LAUFZETTEL", "AKT"), SENDUNG_LIST.Count) ' End Sub) ' trd.IsBackground = True : trd.Start() ElseIf sender Is Button8 Then SendungOptions.PrintSendung("PDF", SENDUNG_LIST(CURRENT_INDEX), AVISO, Printername,, SENDUNG_LIST.Count) End If Me.Cursor = Cursors.Default End Sub Function CheckAusfuellen() As Boolean If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenbezeichnung = "" Or SENDUNG_LIST(CURRENT_INDEX).tblSnd_Colli = "" Or SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht = "" Then Return (MsgBox("Möhten Sie den Aktendeckel wirklich ohne Warenbezeichnung, Colli bzw. Gewicht drucken?", vbYesNoCancel) = vbYes) End If Return True End Function Sub initDrucker() Try ' alle installierten Drucker ermitteln und ' in in ein ArrayList-Objekt speichern Dim sPrinters As New ArrayList For Each sPrinter As String In PrinterSettings.InstalledPrinters sPrinters.Add(sPrinter) Next ' Array sortieren sPrinters.Sort() ' printer() ' jetzt alle Drucker in sortierter Reihenfolge in einer ' ComboBox zur Auswahl anbieten Dim oPS As New System.Drawing.Printing.PrinterSettings Dim pList As List(Of PrinterList) = PROG.getPrinterList For i As Integer = 0 To sPrinters.Count - 1 If PROG.isPrinterOnlineByList(pList, sPrinters(i)) Then setCboEntry(sPrinters(i)) ' cboPrinter.Items.Add(sPrinters(i)) End If Next setCboSelected(oPS.PrinterName) If False Then If sPrinters.Count > 0 Then cboPrinter.SelectedIndex = 0 For Each i In cboPrinter.Items If i.ToString = oPS.PrinterName Then cboPrinter.SelectedItem = i Exit For End If Next End If ' For Each i In cboPrinter.Items 'If i.ToString.ToUpper.Contains("TALLY") Then 'cboPrinter.SelectedItem = i : Exit For ' End If ' Next End If Catch ex As Exception MsgBox("Fehler beim initialisieren der Drucker!" & ex.Message & ex.StackTrace) End Try End Sub 'threadsicherer Aufruf Delegate Sub setCboEntryCallback(i As String) Private Sub setCboEntry(i As String) Try If Me.InvokeRequired Then Dim d As New setCboEntryCallback(AddressOf setCboEntry) Me.Invoke(d, New Object() {i}) Else cboPrinter.Items.Add(i) End If Catch ex As Exception End Try End Sub 'threadsicherer Aufruf Delegate Sub setCboSelectedCallback(standardDrucker As String) Private Sub setCboSelected(standardDrucker As String) If Me.InvokeRequired Then Dim d As New setCboSelectedCallback(AddressOf setCboSelected) Me.Invoke(d, New Object() {standardDrucker}) Else Dim found As Boolean = False ' For Each i In cboPrinter.Items 'If i.ToString.ToUpper.Contains("TALLY") Then 'found = True ' cboPrinter.SelectedItem = i : Exit For ' End If ' Next If found = False Then 'Falls kein TALLY, Standarddrucker cboPrinter.SelectedIndex = 0 For Each i In cboPrinter.Items If i.ToString = standardDrucker Then cboPrinter.SelectedItem = i Exit For End If Next End If End If End Sub Function isOnline(printerName) As Boolean Dim b As Boolean = False Try Dim PrintDocument As New PrintDocument() PrintDocument.PrinterSettings.PrinterName = printerName b = PrintDocument.PrinterSettings.IsValid Catch b = False End Try Return b End Function Private Sub btn_Click_1(sender As Object, e As EventArgs) Handles btn.Click 'loadDataInLIST() If Not SAVE_ME() Then If vbNo = MsgBox("Fehler beim Speichern. Möchten Sie das Speditionsbuch dennoch öffenen?" & vbNewLine & "(Einige Daten werden möglicherweise nicht übernommen)", vbYesNo) Then Exit Sub End If End If If IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) AndAlso CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) > 100000 Then Else MsgBox("Abfertigungsnummer angeben!") Exit Sub End If Dim posnr As posNr = AVISOFUNC.SpeditionsbuchEintrag(AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) If posnr IsNot Nothing Then cboFiliale._value = posnr.Filiale txtAbfertigungsnummer.Text = posnr.Abfertigungsnummer txtUnterNr.Text = posnr.UnterNr 'cbxSpedBuch.Checked = (posnr.Filiale > 0 And posnr.Abfertigungsnummer > 0 And posnr.UnterNr >= 0) ' Wenn Sped Eintrag gelöscht-> - 1, dann ist der Eintrag nicht mehr vorhanden Dim vorhanden = ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM [Speditionsbuch] WHERE [FilialenNr]='" & cboFiliale._value & "' AND AbfertigungsNr='" & txtAbfertigungsnummer.Text & "'", "FMZOLL") ' AND UnterNr='" & txtUnterNr.Text & "' cbxSpedBuch.Checked = (vorhanden > 0) End If lblAbfNrExists.Visible = checkDoppelAbfNr() End Sub Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click If txtEmpfaenger.KdNr > 0 Then Me.Cursor = Cursors.WaitCursor AVISOFUNC.showKd(txtEmpfaenger.KdNr) Me.Cursor = Cursors.Default End If End Sub Private Sub lblKundenZolltarifVorhanden_Click(sender As Object, e As EventArgs) FlatButton1.PerformClick() End Sub Sub initSpeditionbuch() DataGridView.Columns.Clear() If TabControl1.SelectedTab IsNot TabPage2 Then Exit Sub If Not IsNumeric(cboFiliale._value) Then Exit Sub If Not IsNumeric(txtAbfertigungsnummer.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(7)) + ' ','') + [Absender] as Absender,*/isnull(cast([EmpfängerKundenNr] as nvarchar(7)) + ' ','') + [Empfänger] as Empfänger,isnull(cast([VermittlerKundenNr] as nvarchar(7)) + ' ','') + [Vermittler] as Vermittler,isnull(cast([FrachtführerKundenNr] as nvarchar(7)) + ' ','') + [Frachtführer] as Frachtführer, " & " [LKW Kennzeichen],Sachbearbeiter FROM [Speditionsbuch] LEFT JOIN Abfertigungsarten ON Abfertigungsarten.Abfertigungsart=speditionsbuch.Abfertigungsart WHERE 1=1 " sqlstr &= " AND FilialenNr='" & cboFiliale._value & "'" sqlstr &= " AND AbfertigungsNr='" & txtAbfertigungsnummer.Text & "'" ' Dim sql As New VERAG_PROG_ALLGEMEIN.SQL 'DataGridView.DataSource = sql.loadDgvBySql(sqlstr, "FMZOLL") With DataGridView ' .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.TopCenter .Columns("Abfertigungsdatum").Width = 100 .Columns("Abfertigungsdatum").HeaderText = "Abf-Dat." .Columns("Abfertigungsdatum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter ' .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.TopRight .Columns("Rechnungsbetrag").HeaderText = "Rg.Betrag" .Columns("Rechnungsbetrag").Width = 80 .Columns("Rechnungsbetrag").DefaultCellStyle.Format = "C" .Columns("Rechnungsbetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight .Columns("Abfertigungsart").Width = 50 .Columns("Abfertigungsart").HeaderText = "Abf.Nr" .Columns("Abfertigungsart").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter .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 DataGridView.DoubleClick, DataGridView.CellContentDoubleClick If DataGridView.SelectedRows.Count = 0 Then Exit Sub Dim frmNacherfassung As New SDL.frmNacherfassungNEU frmNacherfassung.srchFiliale = DataGridView.SelectedRows(0).Cells("FilialenNr").Value frmNacherfassung.srchAbfertigungsnummer = DataGridView.SelectedRows(0).Cells("AbfertigungsNr").Value frmNacherfassung.srchUnterNr = DataGridView.SelectedRows(0).Cells("UnterNr").Value ' frmNacherfassung.FMZollPersID = VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.mit_FMZollPersID ' frmNacherfassung.initDataBinding() frmNacherfassung.ShowDialog(Me) DataGridView.RELOAD() ' frmNacherfassung.showAll() End Sub Private Sub FlatButton3_Click(sender As Object, e As EventArgs) Handles FlatButton3.Click If txtAuftraggeber.KdNr > 0 Then Me.Cursor = Cursors.WaitCursor AVISOFUNC.showKd(txtAuftraggeber.KdNr) Me.Cursor = Cursors.Default End If End Sub Private Sub btnAvisierer_Click(sender As Object, e As EventArgs) Handles btnAvisierer.Click If txtAvisierer.KdNr > 0 Then Me.Cursor = Cursors.WaitCursor AVISOFUNC.showKd(txtAvisierer.KdNr) Me.Cursor = Cursors.Default End If End Sub Private Sub btnFrachtfuehrer_Click(sender As Object, e As EventArgs) Handles btnFrachtfuehrer.Click If txtFrachtfuehrer.KdNr > 0 Then Me.Cursor = Cursors.WaitCursor AVISOFUNC.showKd(txtFrachtfuehrer.KdNr) Me.Cursor = Cursors.Default End If End Sub Private Sub FlatButton4_Click(sender As Object, e As EventArgs) Handles FlatButton4.Click If txtAbsender.KdNr > 0 Then Me.Cursor = Cursors.WaitCursor AVISOFUNC.showKd(txtAbsender.KdNr) Me.Cursor = Cursors.Default End If End Sub Private Sub cboAbfertigungsart_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAbfertigungsart.SelectedIndexChanged btnLeihgeld.Enabled = False lblAnzahl.Visible = (cboAbfertigungsart._value = "23") txtAnzahl.Visible = (cboAbfertigungsart._value = "23") 'grpAufschub.Visible = (cboAbfertigungsart._value <> "23") btnAufschub_Atr.Visible = (cboAbfertigungsart._value <> "23") btnAufschub_Empf.Visible = (cboAbfertigungsart._value <> "23") btnAufschub_VERAG.Visible = (cboAbfertigungsart._value <> "23") If cboAbfertigungsart._value = "23" Then SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub = "" ElseIf cboAbfertigungsart._value = "9" Then btnLeihgeld.Enabled = True Else ' If SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub = "" Then SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub = "VERAG" initAufschubBtn() End If Button4.Enabled = btnLeihgeld.Enabled pnlT1.Controls.Clear() Select Case cboAbfertigungsart._value Case "5", "6", "24", "33", "34" pnlT1.Controls.Add(usrcntl_NCTS) Case "26", "28" pnlT1.Controls.Add(usrcntl_FISKAL) Case "23" pnlT1.Controls.Add(usrcntl_ATA) End Select ' initOfferteDGV() End Sub Sub initOfferteDGV() Try SENDUNG_LIST(CURRENT_INDEX).LOAD_ABRECHNUNG() Dim MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview ' nur für Fehlerveremindung -> kein Control in Form With MyDatagridview1 .Columns.Clear() Dim tmpKdnr = -1 For Each a In SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG If a.sndabr_abrArt = "ABFKOST" Then Select Case a.sndabr_beteiligter Case "EMPF" : tmpKdnr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr Case "AVISIERER" : tmpKdnr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr'If(IsNumeric(AVISO.Auftraggeber_KdNr), IsNumeric(AVISO.Auftraggeber_KdNr), -1) Case "ABS" : tmpKdnr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr Case "AUFTR" : tmpKdnr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr Case "FRACHTF" : tmpKdnr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr 'If(IsNumeric(AVISO.Frächter_KdNr), IsNumeric(AVISO.Frächter_KdNr), -1) End Select End If Next If cboAbfertigungsart._value <> "" Then If tmpKdnr > 0 Then .DataSource = SQL.loadDgvBySql("select LeistungsNr,LeistungsBez,Preis FROM [Offertenpositionen] where KundenNr=" & tmpKdnr & " AND OffertenNr=(SELECT ISNULL(AO.ao_OffertenNr,-1) FROM tblAbfertigungsartOffertenstamm as AO WHERE AO.ao_Abfertigungsart='" & cboAbfertigungsart._value & "') and preis is not null order by LeistungsNr, Preis desc", "FMZOLL") End If End If End With Catch ex As Exception MsgBox("Offert-ERR: " & ex.Message) End Try End Sub Sub initDGVBelege() Try 'SENDUNG_LIST(CURRENT_INDEX).LOAD_ABRECHNUNG() With dgvBelege .Columns.Clear() If .RowCount > 0 Then .Rows.Clear() If (txtAbfertigungsnummer.Text.Trim <> "" AndAlso IsNumeric(txtAbfertigungsnummer.Text) AndAlso txtAbfertigungsnummer.Text > 0) And (cboFiliale._value.Trim <> "" AndAlso IsNumeric(cboFiliale._value) AndAlso cboFiliale._value > 0) Then ' .DataSource = SQL.loadDgvBySql("SELECT rksv_BelegId, rksv_umsatz ,BelegNr,BelegDat,Benutzer,[Name],LKW_Beleg FROM [tblEABelegnummer] INNER JOIN Personal ON ID=Benutzer where ((FilialenNr='" & cboFiliale._value & "' and AbfertigungsNr='" & txtAbfertigungsnummer.Text & "') OR (LKW_id='" & AVISO.AvisoID & "' AND LKW_Beleg=1) OR (SELECT Count(*) FROM [tblEABelegnummer] where AbfertigungsNr='" & txtAbfertigungsnummer.Text & "' and FilialenNr='" & cboFiliale._value & "' )>0) and storniert=0 and gebuchtstorno=0 order by rksv_BelegId", "FMZOLL") .DataSource = SQL.loadDgvBySql(" SELECT rksv_BelegId, rksv_umsatz ,b.BelegNr,b.BelegDat,b.Benutzer,[Name],LKW_Beleg FROM [tblEABelegnummer] as b " & " INNER JOIN Personal ON ID=Benutzer " & " INNER JOIN [tblEABelegposition] as pos ON pos.[Mandant]=b.[Mandant] AND pos.[Niederlassung]=b.[Niederlassung] AND pos.[Benutzer]=b.[Benutzer] AND pos.[BelegDat]=b.[BelegDat] AND pos.[BelegNr]=b.[BelegNr] " & " where " & " ((b.FilialenNr='" & cboFiliale._value & "' and b.AbfertigungsNr='" & txtAbfertigungsnummer.Text & "') OR (LKW_id='" & AVISO.AvisoID & "' AND LKW_Beleg=1) OR " & " ( pos.AbfertigungsNr='" & txtAbfertigungsnummer.Text & "' and pos.FilialenNr='" & cboFiliale._value & "' ) ) and storniert=0 and gebuchtstorno=0 " & " group by rksv_BelegId, rksv_umsatz ,b.BelegNr,b.BelegDat,b.Benutzer,[Name],LKW_Beleg " & " order by rksv_BelegId", "FMZOLL") 'AND UnterNr='" & SPEDITIONSBUCH.UnterNr & "' --> Unternr gibts ned 'MsgBox("SELECT rksv_BelegId, rksv_umsatz ,BelegNr,BelegDat,Benutzer FROM [tblEABelegnummer] where AbfertigungsNr='" & txtAbfertigungsnummer.Text & "' and FilialenNr='" & cboFiliale._value & "' and storniert=0 and gebuchtstorno=0 order by rksv_BelegId") .Columns("rksv_BelegId").HeaderText = "Beleg-Id" .Columns("rksv_BelegId").Width = 70 .Columns("rksv_BelegId").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns("rksv_umsatz").HeaderText = "Betrag" .Columns("rksv_umsatz").Width = 70 .Columns("rksv_umsatz").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight .Columns("rksv_umsatz").DefaultCellStyle.Format = "C" .Columns("BelegNr").Visible = False .Columns("BelegDat").Visible = False .Columns("Benutzer").Visible = False .Columns("LKW_Beleg").HeaderText = "LKW" .Columns("LKW_Beleg").Width = 35 .Columns("Name").HeaderText = "Kassen-Benutzer" .Columns("Name").MinimumWidth = 70 .Columns("Name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .RowTemplate.Height = 18 '.DataSource = SQL.loadDgvBySql("SELECT rksv_BelegId, rksv_umsatz ,BelegNr,BelegDat,Benutzer FROM [tblEABelegnummer] where AbfertigungsNr='" & txtAbfertigungsnummer.Text & "' and FilialenNr='" & cboFiliale._value & "' and storniert=0 and gebuchtstorno=0 order by rksv_BelegId", "FMZOLL") ''MsgBox("SELECT rksv_BelegId, rksv_umsatz ,BelegNr,BelegDat,Benutzer FROM [tblEABelegnummer] where AbfertigungsNr='" & txtAbfertigungsnummer.Text & "' and FilialenNr='" & cboFiliale._value & "' and storniert=0 and gebuchtstorno=0 order by rksv_BelegId") '.Columns("rksv_BelegId").HeaderText = "Beleg-Id" '.Columns("rksv_BelegId").Width = 70 '.Columns("rksv_BelegId").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter '.Columns("rksv_umsatz").HeaderText = "Betrag" '.Columns("rksv_umsatz").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill '.Columns("rksv_umsatz").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight '.Columns("rksv_umsatz").DefaultCellStyle.Format = "C" '.Columns("BelegNr").Visible = False '.Columns("BelegDat").Visible = False '.Columns("Benutzer").Visible = False '.RowTemplate.Height = 18 End If End With Catch ex As Exception MsgBox("Belege-ERR: " & ex.Message) End Try End Sub Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked Dim aviso As cAviso = AvisoDAL.LesenAviso(AvisoId, "") If aviso.Auftraggeber_KdNr <> "" AndAlso IsNumeric(aviso.Auftraggeber_KdNr) AndAlso CInt(aviso.Auftraggeber_KdNr) > 0 Then txtAuftraggeber.KdNr = CInt(aviso.Auftraggeber_KdNr) Else txtAuftraggeber.KdNr = -1 txtAuftraggeber.Text = aviso.Auftraggeber End If End Sub Private Sub LinkLabel3_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked Dim aviso As cAviso = AvisoDAL.LesenAviso(AvisoId, "") If aviso.Frächter_KdNr <> "" AndAlso IsNumeric(aviso.Frächter_KdNr) AndAlso CInt(aviso.Frächter_KdNr) > 0 Then txtAuftraggeber.KdNr = CInt(aviso.Frächter_KdNr) Else txtAuftraggeber.KdNr = -1 txtAuftraggeber.Text = aviso.Frächter End If End Sub Private Sub LinkLabel2_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked If txtAuftraggeber.KdNr > 0 Then txtAbsender.KdNr = txtAuftraggeber.KdNr Else txtAbsender.KdNr = -1 txtAbsender.Text = txtAuftraggeber.Text End If End Sub Private Sub lklAuftraggeber_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklAuftraggeber.LinkClicked If txtAuftraggeber.KdNr > 0 Then txtEmpfaenger.KdNr = txtAuftraggeber.KdNr Else txtEmpfaenger.KdNr = -1 txtEmpfaenger.Text = txtAuftraggeber.Text End If End Sub Private Sub cbxSpedBuch_CheckedChanged(sender As Object, e As EventArgs) Handles cbxSpedBuch.CheckedChanged cboFiliale.Enabled = Not sender.checked txtAbfertigungsnummer.Enabled = Not sender.checked txtUnterNr.Enabled = Not sender.checked End Sub Private Sub RadioButton_CheckedChanged(sender As Object, e As EventArgs) initKundenzolltarifChecked(txtAuftraggeber) SENDUNG_LIST(CURRENT_INDEX).tblSnd_AngabeZolltarif = 0 End Sub Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) initKundenzolltarifChecked(txtAbsender) SENDUNG_LIST(CURRENT_INDEX).tblSnd_AngabeZolltarif = 1 End Sub Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) initKundenzolltarifChecked(txtEmpfaenger) SENDUNG_LIST(CURRENT_INDEX).tblSnd_AngabeZolltarif = 2 End Sub Private Sub cboZolltarif_selChanged(sender As Object, e As EventArgs) Handles cboZolltarif.SelectedIndexChanged Select Case cboZolltarif._value Case 2 : initKundenzolltarifChecked(txtEmpfaenger) ' : SENDUNG_LIST(CURRENT_INDEX).tblSnd_AngabeZolltarif = 2 Case 1 : initKundenzolltarifChecked(txtAbsender) ' : SENDUNG_LIST(CURRENT_INDEX).tblSnd_AngabeZolltarif = 1 Case 0 : initKundenzolltarifChecked(txtAuftraggeber) ' : SENDUNG_LIST(CURRENT_INDEX).tblSnd_AngabeZolltarif = 0 End Select End Sub Private Sub btnFirmaNeu_Click(sender As Object, e As EventArgs) MsgBox("Funktion nicht verfügbar") Exit Sub Dim kdtxt As VERAG_PROG_ALLGEMEIN.KdSearchBox = Nothing ' If sender Is btnFirmaNeu Then kdtxt = txtAuftraggeber ' If sender Is Button5 Then kdtxt = txtAbsender ' If sender Is Button6 Then kdtxt = txtEmpfaenger Dim frmKd As New SDL.frmNeuerKunde frmKd.openKd = False frmKd.timerIntervall = 500 frmKd.username = cGlobal.AktiverMitarbeiter.mit_username If frmKd.username.Length > 15 Then frmKd.username = frmKd.username.Substring(0, 15) frmKd.tmpFiliale = cGlobal.AktiverMitarbeiter.StandartFiliale frmKd.tmpKdNrKreis = 9 If kdtxt.KdNr = -1 Then frmKd.tmpKdName = kdtxt.Text End If frmKd.ShowDialog() txtAuftraggeber.initKdBox(Me, txtAuftraggeberKdNr) txtAbsender.initKdBox(Me, txtAbsenderKdNr) txtEmpfaenger.initKdBox(Me, txtEmpfaengerKdNr) txtFremdEmpf.initKdBox(Me, txtFremdEmpfKdNR) If frmKd.kdnr > 0 Then kdtxt.KdNr = frmKd.kdnr End If End Sub Private Sub btnNeueAbfertigungNrVergeben_Click(sender As Object, e As EventArgs) Handles btnNeueAbfertigungNrVergeben.Click increasePosNr() ' loadDataInLIST() SAVE_ME() lblAbfNrExists.Visible = checkDoppelAbfNr() End Sub Sub increasePosNr() If Not IsNumeric(cboFiliale._value) OrElse CInt(cboFiliale._value) <= 0 Then MsgBox("Bitte Filiale auswählen!") : Exit Sub End If txtAbfertigungsnummer.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(cboFiliale._value, Now.Year) btnNeueAbfertigungNrVergeben.Visible = False End Sub Private Sub Button9_Click(sender As Object, e As EventArgs) NEXT_SENDUNG() End Sub Dim valueSel = "" Private Sub cboFiliale_GotFocus(sender As Object, e As EventArgs) Handles cboFiliale.GotFocus valueSel = sender._value End Sub Private Sub cboFiliale_LostFocus(sender As Object, e As EventArgs) Handles cboFiliale.LostFocus If VERAG_PROG_ALLGEMEIN.cAllgemein.AUTO_ABF_NR Then If valueSel <> sender._value Then ' increasePosNr() txtAbfertigungsnummer.Text = "" btnNeueAbfertigungNrVergeben.Visible = True End If End If End Sub Private Sub Label28_Click(sender As Object, e As EventArgs) End Sub Private Sub Button9_Click_1(sender As Object, e As EventArgs) Handles Button9.Click 'Me.loadDataInLIST() If SAVE_ME() Then Dim frmSendungsdetailsAbrechnung As New frmSendungsdetailsAbrechnung frmSendungsdetailsAbrechnung.SENDUNG = SENDUNG_LIST(CURRENT_INDEX) Dim aviso As cAviso = AvisoDAL.LesenAviso(AvisoId, "") ' frmSendungsdetailsAbrechnung.Aufschub = SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub frmSendungsdetailsAbrechnung.avisierer = txtAvisierer.Text 'aviso.Auftraggeber frmSendungsdetailsAbrechnung.absender = txtAbsender.Text frmSendungsdetailsAbrechnung.auftraggeber = txtAuftraggeber.Text frmSendungsdetailsAbrechnung.empfänger = txtEmpfaenger.Text frmSendungsdetailsAbrechnung.frachtführer = txtFrachtfuehrer.Text '.Frächter frmSendungsdetailsAbrechnung.ShowDialog(Me) SENDUNG_LIST(CURRENT_INDEX).LOAD_ABRECHNUNG() initDataBinding() End If End Sub Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click closeWithoutSave = True Me.Close() End Sub Private Sub btnKassenbuchEintrag_Click(sender As Object, e As EventArgs) Handles btnKassenbuchEintrag.Click, Button1.Click ' loadDataInLIST() SAVE_ME() Dim PERSONAL As SDL.cPersonal = Nothing Dim frmSecureLoginKassenbuch As New SDL.frmSecureLoginKassenbuch If frmSecureLoginKassenbuch.ShowDialog(Me) = DialogResult.OK Then PERSONAL = frmSecureLoginKassenbuch.PERSONAL Dim frmBeleg As New SDL.frmBelegNeu(PERSONAL, Nothing, "E") frmBeleg.AvisoID = AvisoId frmBeleg.SendungID = SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID frmBeleg.aktFiliale = Me.SENDUNG_LIST(Me.CURRENT_INDEX).FilialenNr frmBeleg.aktAbfertigungsNr = Me.SENDUNG_LIST(Me.CURRENT_INDEX).AbfertigungsNr AddHandler frmBeleg.LOADED, Sub() Dim AVISO As cAviso = AvisoDAL.LesenAviso(AvisoId, "") frmBeleg.BELEG.LKW_Kennzeichen = AVISO.LKW_Nr frmBeleg.BELEG.Frachtführer = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_Frachtfuehrer frmBeleg.BELEG.Ordnungsbegriff = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_Frachtfuehrer frmBeleg.BELEG.FilialenNr = Me.SENDUNG_LIST(Me.CURRENT_INDEX).FilialenNr frmBeleg.BELEG.AbfertigungsNr = Me.SENDUNG_LIST(Me.CURRENT_INDEX).AbfertigungsNr frmBeleg.BELEG.LKW_Id = AVISO.AvisoID frmBeleg.BELEG.LKW_Beleg = False frmBeleg.init() If Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr > 0 Then frmBeleg.kdFrachtf.KdNr = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr frmBeleg.kdkunde.KdNr = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr End If ' If sender Is Button13 Then frmBeleg.AddDusche(True) End Sub If frmBeleg.ShowDialog(Me) = DialogResult.OK Then If frmBeleg.BELEG.gebucht Then If frmBeleg.BELEG.FilialenNr > 0 And frmBeleg.BELEG.AbfertigungsNr > 0 Then loadDataInLIST() If (Me.SENDUNG_LIST(Me.CURRENT_INDEX).FilialenNr <= 0 Or Me.SENDUNG_LIST(Me.CURRENT_INDEX).AbfertigungsNr <= 0) Then Me.SENDUNG_LIST(Me.CURRENT_INDEX).FilialenNr = frmBeleg.BELEG.FilialenNr Me.SENDUNG_LIST(Me.CURRENT_INDEX).AbfertigungsNr = frmBeleg.BELEG.AbfertigungsNr End If If VERAG_PROG_ALLGEMEIN.cAllgemein.SpedBuchExists(frmBeleg.BELEG.FilialenNr, frmBeleg.BELEG.AbfertigungsNr) Then Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen = True End If SAVE_ME() End If 'INKASSE Eintrag Sendung/Leistungen: For Each p In frmBeleg.BELEG.POS If p.PreislistenNr = 4 And p.PreislistenPos = 21 And p.LeistungsNr = 497 Then Me.SENDUNG_LIST(CURRENT_INDEX).tblSnd_BARzuKassieren = p.Betrag ' Dim find=Me.SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG.Find({) Me.SENDUNG_LIST(CURRENT_INDEX).LOAD_ABRECHNUNG() Dim FindPOS = Me.SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG.Find(Function(x) x.sndabr_beteiligter = "AUFTR" And x.sndabr_wert = "ERSTATTUNG") If FindPOS Is Nothing Then FindPOS = New VERAG_PROG_ALLGEMEIN.cSendungAbrechnung(Me.SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) Me.SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG.Add(FindPOS) End If 'Me.SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG.Remove(a) FindPOS.sndabr_einzelPreis = p.Preis * -1 FindPOS.sndabr_preis = p.Betrag * -1 FindPOS.sndabr_anzahl = p.Anzahl FindPOS.sndabr_beteiligter = "AUFTR" FindPOS.sndabr_wert = "ERSTATTUNG" FindPOS.sndabr_bezeichnung = "Erstatt. Inkasso-Betrag" FindPOS.sndabr_abrArt = "" SAVE_ABRECHUNG() End If Next initDataBinding() End If End If End If End Sub Private Sub btnEinnahmeBeleg_Click(sender As Object, e As EventArgs) Handles btnAufschub_VERAG.Click, btnAufschub_Atr.Click, btnAufschub_Empf.Click ADMIN.doSQL("DELETE FROM tblSendAbrechnung WHERE sndabr_sendId=" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & " AND sndabr_abrArt='EUST' ") If sender.backcolor = Color.SteelBlue Then SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub = "" Else If sender Is btnAufschub_VERAG Then SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA If sender Is btnAufschub_Atr Then SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub = "AUFTR" If sender Is btnAufschub_Empf Then SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub = "EMPF" If SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub <> VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then ADMIN.doSQL("INSERT INTO tblSendAbrechnung (sndabr_sendId,sndabr_beteiligter,sndabr_abrArt,sndabr_wert) VALUES('" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & "' ,'" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub & "','EUST','eig. BIN')") End If End If initAufschubBtn() End Sub Sub initAufschubBtn() ' deselectButton(btnAufschub_Abs) deselectButton(btnAufschub_Empf) deselectButton(btnAufschub_Atr) deselectButton(btnAufschub_VERAG) Select Case SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA : selectButton(btnAufschub_VERAG) Case "AUFTR" : selectButton(btnAufschub_Atr) ' Case "ABS" : selectButton(btnAufschub_Abs) Case "EMPF" : selectButton(btnAufschub_Empf) End Select End Sub Sub initAufschubBtnOLD() ' deselectButton(btnAufschub_Abs) deselectButton(btnAufschub_Empf) deselectButton(btnAufschub_Atr) deselectButton(btnAufschub_VERAG) Select Case SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA : selectButton(btnAufschub_VERAG) Case "AUFTR" : selectButton(btnAufschub_Atr) ' Case "ABS" : selectButton(btnAufschub_Abs) Case "EMPF" : selectButton(btnAufschub_Empf) End Select End Sub Sub selectButton(b As Button) b.BackColor = Color.SteelBlue b.ForeColor = Color.White End Sub Sub deselectButton(b As Button) ' b.BackColor = Color.Transparent ' b.ForeColor = Color.DimGray b.BackColor = Color.Silver b.ForeColor = Color.Black End Sub Private Sub Button14_Click(sender As Object, e As EventArgs) Handles btnLeihgeld.Click, Button4.Click Dim PERSONAL As SDL.cPersonal = Nothing loadDataInLIST() Dim frmSecureLoginKassenbuch As New SDL.frmSecureLoginKassenbuch Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "IMEX" ' s.openKB = True frmSecureLoginKassenbuch.KassenbuchNr_tmp = 5030 's.disableCBO = False ' s.ShowDialog(Me) End Select ' frmSecureLoginKassenbuch.KassenbuchNr_tmp = PERSONAL.KassenbuchNr If frmSecureLoginKassenbuch.ShowDialog(Me) = DialogResult.OK Then PERSONAL = frmSecureLoginKassenbuch.PERSONAL Dim frmNacherfassungLeihgeld As New SDL.frmNacherfassungLeihgeld(PERSONAL, frmSecureLoginKassenbuch.PERSONAL_LG) frmNacherfassungLeihgeld.FMZollPersID = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.mit_FMZollPersID 'frmNacherfassungLeihgeld.ShowDialog() frmNacherfassungLeihgeld.AvisoID = AvisoId AddHandler frmNacherfassungLeihgeld.LOADED, Sub() Dim AVISO As cAviso = AvisoDAL.LesenAviso(AvisoId, "") frmNacherfassungLeihgeld.MyTextBoxLKWKz.Text = AVISO.LKW_Nr If Me.SENDUNG_LIST(Me.CURRENT_INDEX).FilialenNr > 0 And Me.SENDUNG_LIST(Me.CURRENT_INDEX).AbfertigungsNr > 0 Then frmNacherfassungLeihgeld.cboFiliale.changeItem(Me.SENDUNG_LIST(Me.CURRENT_INDEX).FilialenNr) frmNacherfassungLeihgeld.txtAbfertigungsnummer.Text = Me.SENDUNG_LIST(Me.CURRENT_INDEX).AbfertigungsNr frmNacherfassungLeihgeld.btnNeueAbfertigungNrVergeben.Visible = False frmNacherfassungLeihgeld.btnNeueAbfertigungNrVergeben.Enabled = False End If 'frmNacherfassungLeihgeld.BELEG.Ordnungsbegriff = AVISO.Frächter 'Keine Abf.-Nr, da neue Pos 'frmNacherfassungLeihgeld.cboFiliale.changeItem(Me.SENDUNG_LIST(Me.CURRENT_INDEX).FilialenNr) ' frmNacherfassungLeihgeld.txtAbfertigungsnummer.Text = Me.SENDUNG_LIST(Me.CURRENT_INDEX).AbfertigungsNr ' frmNacherfassungLeihgeld.init() If Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr > 0 Then frmNacherfassungLeihgeld.kdFrachtführer.KdNr = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr Else frmNacherfassungLeihgeld.kdFrachtführer.Text = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_Frachtfuehrer End If frmNacherfassungLeihgeld.txtKdAuftragsnummer.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_KdAuftragsNr If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber <> "" And (SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber <> Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_Frachtfuehrer And SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr <> Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr) Then If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr > 0 Then frmNacherfassungLeihgeld.txtAuftraggeber.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr Else frmNacherfassungLeihgeld.txtAuftraggeber.KdNr = "" frmNacherfassungLeihgeld.txtAuftraggeber.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber End If frmNacherfassungLeihgeld.cbxFrachter.Checked = False Else frmNacherfassungLeihgeld.txtAuftraggeber.KdNr = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr frmNacherfassungLeihgeld.kdFrachtführer.Text = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_Frachtfuehrer frmNacherfassungLeihgeld.cbxFrachter.Checked = True End If 'If sender Is Button13 Then frmNacherfassungLeihgeld.AddDusche(True) End Sub If frmNacherfassungLeihgeld.ShowDialog(Me) = DialogResult.OK Then If frmNacherfassungLeihgeld.BELEG.FilialenNr > 0 And frmNacherfassungLeihgeld.BELEG.AbfertigungsNr > 0 Then loadDataInLIST() If (Me.SENDUNG_LIST(Me.CURRENT_INDEX).FilialenNr <= 0 Or Me.SENDUNG_LIST(Me.CURRENT_INDEX).AbfertigungsNr <= 0) Then Me.SENDUNG_LIST(Me.CURRENT_INDEX).FilialenNr = frmNacherfassungLeihgeld.BELEG.FilialenNr Me.SENDUNG_LIST(Me.CURRENT_INDEX).AbfertigungsNr = frmNacherfassungLeihgeld.BELEG.AbfertigungsNr End If If VERAG_PROG_ALLGEMEIN.cAllgemein.SpedBuchExists(frmNacherfassungLeihgeld.BELEG.FilialenNr, frmNacherfassungLeihgeld.BELEG.AbfertigungsNr) Then Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen = True End If 'Lädt Auftraggeber If Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_AuftraggeberKdNr <= 0 And frmNacherfassungLeihgeld.BELEG.KundenNr > 0 Then Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_AuftraggeberKdNr = frmNacherfassungLeihgeld.BELEG.KundenNr Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_Auftraggeber = frmNacherfassungLeihgeld.BELEG.Ordnungsbegriff ElseIf Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_Auftraggeber.ToString = "" And frmNacherfassungLeihgeld.BELEG.Ordnungsbegriff <> "" Then Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_Auftraggeber = frmNacherfassungLeihgeld.BELEG.Ordnungsbegriff End If Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_KdAuftragsNr = frmNacherfassungLeihgeld.BELEG.Auftraggeber_KdAuftragsnummer SAVE_ME() initDataBinding() End If End If ' If frmNacherfassungLeihgeld.BELEG.gebucht Then 'SENDUNG_LIST(CURRENT_INDEX).tblSnd_bar = True ' SENDUNG_LIST(CURRENT_INDEX).tblSnd_betrag = frmNacherfassungLeihgeld.BELEG.rksv_umsatz() ' SENDUNG_LIST(CURRENT_INDEX).tblSnd_barBeleg = frmNacherfassungLeihgeld.BELEG.rksv_BelegId ' initDataBinding() ' End If End If End Sub Private Sub Button11_Click_1(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click If vbYes = MsgBox("Möchten Sie alle Aktendeckel drucken?", vbYesNoCancel) Then 'GC.Collect() Me.Cursor = Cursors.WaitCursor 'loadDataInLIST() SAVE_ME() For Each s In SENDUNG_LIST If Not s.tblSnd_Fremdspedition Then If CInt(s.AbfertigungsNr) < 100000 Then MsgBox("Es wurden nicht alle Abfertigungsnummern vergeben!") : Exit Sub Next Dim Printername = cboPrinter.Text 'Dim trd = New Threading.Thread(Sub() For Each s In SENDUNG_LIST If Not s.tblSnd_Fremdspedition Then SendungOptions.PrintSendung("PRINT", s, AVISO, Printername,, SENDUNG_LIST.Count) Next ' End Sub) ' trd.IsBackground = True : trd.Start() Me.Cursor = Cursors.Default End If End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles GelangensbestätigungToolStripMenuItem.Click, toolGelangensbestätigung.Click ' loadDataInLIST() SAVE_ME() Dim SND_TMP = SENDUNG_LIST(CURRENT_INDEX) Dim frmGB As New frmGelangensbestaetigung 'If SND_TMP.tblSnd_AbsenderKdNr > 0 Then 'frmGB.KdSearchBox1.KdNr = SND_TMP.tblSnd_AbsenderKdNr ' Else ' frmGB.KdSearchBox1.Text = SND_TMP.tblSnd_Absender ' End If 'If SND_TMP.tblSnd_EmpfaengerKdNr > 0 Then 'frmGB.KdSearchBox2.KdNr = SND_TMP.tblSnd_EmpfaengerKdNr ' Else ' frmGB.KdSearchBox2.Text = SND_TMP.tblSnd_Empfaenger ' End If frmGB.KdSearchBox1.Text = SND_TMP.tblSnd_Absender frmGB.KdSearchBox2.Text = SND_TMP.tblSnd_Empfaenger If frmGB.ShowDialog(Me) = DialogResult.OK Then SND_TMP.tblSnd_Absender = frmGB.KdSearchBox1.Text SND_TMP.tblSnd_Empfaenger = frmGB.KdSearchBox2.Text Dim art = "" ' If sender Is Button3 Then art = "PRINT" If sender Is GelangensbestätigungToolStripMenuItem Then art = "PDF" Dim Printername = cboPrinter.Text Dim trd = New Threading.Thread(Sub() SendungOptions.Gelangensbestaetigung(art, SND_TMP, AVISO, Printername) End Sub) trd.IsBackground = True : trd.Start() End If End Sub Private Sub txtAbfertigungsnummer_Leave(sender As Object, e As EventArgs) Handles txtAbfertigungsnummer.Leave lblAbfNrExists.Visible = False lblAbfNr_Err.Visible = False If txtAbfertigungsnummer.Text = "" Or txtAbfertigungsnummer.Text = "0" Then Exit Sub If Not IsNumeric(txtAbfertigungsnummer.Text) Then lblAbfNr_Err.Visible = True : Exit Sub If txtAbfertigungsnummer.Text < 0 Then lblAbfNr_Err.Visible = True : Exit Sub If txtAbfertigungsnummer.Text.Length > 8 Then lblAbfNr_Err.Visible = True : Exit Sub If txtAbfertigungsnummer.Text.Length <= 6 Then If IsNumeric(txtAbfertigungsnummer.Text) Then txtAbfertigungsnummer.Text = Now.ToString("yy") & CInt(txtAbfertigungsnummer.Text).ToString("000000") End If End If lblAbfNrExists.Visible = checkDoppelAbfNr() End Sub Function checkDoppelAbfNr() As Boolean Dim Filiale = cboFiliale._value Dim AbfertigungsNr = txtAbfertigungsnummer.Text If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition Then Return False If Filiale Is Nothing Or AbfertigungsNr Is Nothing Then Return False If cbxSpedBuch.Checked Then Return False If IsNumeric(Filiale) And IsNumeric(AbfertigungsNr) Then If SDL.cRKSV.SpedBuchExists(Filiale, AbfertigungsNr) Then Return True End If End If Return False End Function Private Sub cbxFremdspedition_CheckedChanged(sender As Object, e As EventArgs) Handles cbxFremdspedition.CheckedChanged '' TabControl1.Enabled = Not sender.checked 'Panel6.Enabled = Not sender.checked 'Panel16.Enabled = Not sender.checked 'btn.Enabled = Not sender.checked '' Panel5.Enabled = Not sender.checked '' cboAbfertigungsart.Enabled = Not sender.checked 'txtAnzahl.Enabled = Not sender.checked 'cboFiliale.Enabled = Not sender.checked 'txtAbfertigungsnummer.Enabled = Not sender.checked 'txtUnterNr.Enabled = Not sender.checked 'btnNeueAbfertigungNrVergeben.Enabled = Not sender.checked sperrePanel() If sender.checked Then 'Label1.Text = "Fremdspedition:" cboFremdsped.Visible = True ' cboAbfertigungsart.Visible = False pnlFremd.Width = 440 Else ' Label1.Text = "Abfertigungsart:" cboFremdsped.Visible = False ' cboAbfertigungsart.Visible = True pnlFremd.Width = 0 End If End Sub Sub sperrePanel() Dim sperren = False If cbxFremdspedition.Checked Then sperren = True Else If cboFiliale._value <> "" Then Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "IMEX" If cboFiliale._value <> "5501" Then sperren = True If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(cboFiliale._value) = "VERAG" AndAlso VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Then sperren = False End If Case "UNISPED" If cboFiliale._value <> "5601" Then sperren = True Case "VERIMEX" If cboFiliale._value = "5601" Then sperren = True 'UNISPED darf VERIMEX nicht, sonst alle im CLUSTER Case "AMBAR" If cboFiliale._value <> "5701" Then sperren = True 'UNISPED darf VERIMEX nicht, sonst alle im CLUSTER Case "VERAG" If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO") Then If cboFiliale._value = "5601" Or cboFiliale._value = "5501" Then sperren = True End If If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(cboFiliale._value) = "IMEX" AndAlso VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Then sperren = False End If End Select End If End If ' TabControl1.Enabled = Not sperren Panel6.Enabled = Not sperren Panel16.Enabled = Not sperren btn.Enabled = Not sperren ' Panel5.Enabled = Not sperren ' cboAbfertigungsart.Enabled = Not sperren txtAnzahl.Enabled = Not sperren ' cboFiliale.Enabled = Not sperren txtAbfertigungsnummer.Enabled = Not sperren txtUnterNr.Enabled = Not sperren btnNeueAbfertigungNrVergeben.Enabled = Not sperren End Sub Private Sub cboFiliale_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFiliale.SelectedIndexChanged ' btnKassenbuchEintrag.Enabled = True Dim tmp = cboAbfertigungsart._value If IsNumeric(cboFiliale._value) Then cboAbfertigungsart.fillWithSQL("SELECT Abfertigungsarten.Abfertigungsart,[Abfertigungsbezeichnung] FROM [Abfertigungsarten] INNER JOIN tblAbfertigungsartenFiliale ON tblAbfertigungsartenFiliale.Abfertigungsart=Abfertigungsarten.Abfertigungsart where Filialennr=" & cboFiliale._value & "", True, "FMZOLL", True) Else cboAbfertigungsart.fillWithSQL("SELECT Abfertigungsart,[Abfertigungsbezeichnung] FROM [Abfertigungsarten]", True, "FMZOLL", True) End If cboAbfertigungsart.changeItem(tmp) If cboAbfertigungsart._value = "" And cboAbfertigungsart.Items.Count = 2 Then cboAbfertigungsart.SelectedItem = cboAbfertigungsart.Items(1) End If If cboFiliale._value <> SENDUNG_LIST(CURRENT_INDEX).FilialenNr.ToString Then btnNeueAbfertigungNrVergeben.Visible = True txtAbfertigungsnummer.Text = "" Else txtAbfertigungsnummer.Text = If(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr > 0, SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr, "") If txtAbfertigungsnummer.Text <> "" And txtAbfertigungsnummer.Text <> "0" Then btnNeueAbfertigungNrVergeben.Visible = False End If Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "UNISPED" Case Else txtDyRef.Visible = (SENDUNG_LIST(CURRENT_INDEX).FilialenNr = "5601") picDy.Visible = (SENDUNG_LIST(CURRENT_INDEX).FilialenNr = "5601") End Select sperrePanel() End Sub Private Sub btnQS_MA_Click(sender As Object, e As EventArgs) Handles btnQS_MA.Click 'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then ' SENDUNG_LIST(CURRENT_INDEX).tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID 'End If SAVE_ME() AVISOFUNC.SendungUebernehmen(SENDUNG_LIST(CURRENT_INDEX)) initDataBinding() End Sub Sub setQS() btnQS_MA.Visible = True btnDelQS.Visible = False lblQsMa.Text = If(SENDUNG_LIST(CURRENT_INDEX).LetzterMitarbeiter, "-") If SENDUNG_LIST(CURRENT_INDEX).LetzterMitarbeiterId IsNot Nothing AndAlso SENDUNG_LIST(CURRENT_INDEX).LetzterMitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then btnQS_MA.Image = My.Resources.personCheck_blue_small Else btnQS_MA.Image = My.Resources.personCheck_small End If 'If SENDUNG_LIST(CURRENT_INDEX).tblSnd_QS_MA IsNot Nothing AndAlso IsNumeric(SENDUNG_LIST(CURRENT_INDEX).tblSnd_QS_MA) Then ' lblQsMa.Text = ADMIN.getValueTxtBySql("SELECT [mit_vname] + ' ' + [mit_nname] FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE mit_id=" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_QS_MA, "ADMIN") ' If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then ' btnQS_MA.Visible = False ' btnDelQS.Visible = True ' End If 'Else ' lblQsMa.Text = "-" ' If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then ' btnQS_MA.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & " eintragen" ' btnQS_MA.Visible = True ' btnDelQS.Visible = False ' End If 'End If End Sub Private Sub Button7_Click(sender As Object, e As EventArgs) Handles btnDelQS.Click SENDUNG_LIST(CURRENT_INDEX).tblSnd_QS_MA = Nothing setQS() End Sub Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged initTab() End Sub Sub initTab() btnAutomatischeNacherfassung.Visible = False If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Auto_Nacherfassung", Me) Then btnAutomatischeNacherfassung.Visible = (TabControl1.SelectedTab Is TabPage2) End If If TabControl1.SelectedTab Is tbZollabfertigung Then initdgvZollAnmeldungen() ElseIf TabControl1.SelectedTab Is TabPage1 Then ElseIf TabControl1.SelectedTab Is TabPage2 Then initSpeditionbuch() ElseIf TabControl1.SelectedTab Is TabPage3 Then initVermerke() ElseIf TabControl1.SelectedTab Is tbAnhang Then initAnhang() End If End Sub Private Sub initVermerke() ' If setAkive_AuswahlID() = -1 Then Exit Sub If AvisoId <= 0 Then Exit Sub Dim hSQL As String = " SELECT TOP 1000 [VermerkID],[AvisoID], [SendungID],[VermerkeCode], [Datum],[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr," & " CASE WHEN VermerkeCode IS NULL OR VermerkeCode IN (25,28,29,30,35,46,47) THEN Hinweis_Vermerk ELSE VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk], tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter]" & " FROM [Vermerke] LEFT JOIN VermerkeCodes ON [VermerkeCode]=VermerkeCodes.VermerkCodeId " & " LEFT JOIN tblSendungen ON [SendungID]=tblSendungen.tblSnd_SendungID " & " WHERE AvisoID = " & AvisoId & " AND VermerkArt='S' AND SendungID=" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & " order by /*VermerkArt ASC,tblSnd_PosUnterNr,*/Datum DESC " With gridVermerke .DataSource = SQL.loadDgvBySql(hSQL, "AVISO") If .RowCount = 0 Then .Columns.Clear() : Exit Sub .RowTemplate.MinimumHeight = 20 .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells .Columns("VermerkID").Visible = False 'VermerkID nicht anzeigen .Columns("AvisoID").Visible = False 'AvisoID nicht anzeigen .Columns("SendungID").Visible = False 'VermerkCode nicht anzeigen .Columns("VermerkeCode").Visible = False 'VermerkeCode nicht anzeigen .Columns("MitarbeiterId").Visible = False 'MitarbeiterId nicht anzeigen .Columns("Hinweis_Vermerk").Visible = False 'Hinweis_Vermerk nicht anzeigen .Columns("tblSnd_Empfaenger").Visible = False 'tblSnd_Empfaengernicht anzeigen .Columns("Datum").Width = 125 '110 .Columns("Datum").HeaderText = "Datum" .Columns("Datum").DefaultCellStyle.Format = "dd.MM. HH:mm (ddd)" .Columns("Hinweis_Vermerk_Anzeige").MinimumWidth = 150 .Columns("Hinweis_Vermerk_Anzeige").HeaderText = "Hinweistext zu Vermerk" .Columns("Hinweis_Vermerk_Anzeige").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("tblSnd_PosUnterNr").Width = 50 .Columns("tblSnd_PosUnterNr").HeaderText = "Send.Nr" .Columns("tblSnd_PosUnterNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter .Columns("Mitarbeiter").MinimumWidth = 50 .Columns("Mitarbeiter").HeaderText = "Mitarbeiter" .Columns("Hinweis_Vermerk_Anzeige").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill ' .Columns.Add(New DataGridViewButtonColumn) '.Columns("VermerkeOptions").Width = 120 '.Columns("VermerkeOptions").HeaderText = "Optionen" '.Columns("VermerkeOptions").ReadOnly = True End With ''If tbcntlVermerke.SelectedIndex = 2 And rowindex > 0 Then 'If rowindex > 0 Then ' dgvSendungen.ClearSelection() ' dgvSendungen.Rows(rowindex).Selected = True 'Else ' gridVermerke.ClearSelection() 'End If 'Timer.Enabled = True End Sub Sub initAnhang() Dim hSQL As String = " SELECT [anh_id],[anh_Name],[anh_docId],CASE WHEN (anh_SendungsId is null OR anh_SendungsId <=0) AND anh_Art='' THEN '***' ELSE [anh_Art] END as [anh_Art],[anh_Typ],anh_LaufzettelDruck FROM [tblAvisoAnhaenge] WHERE anh_AvisoId=" & AvisoId & " AND (anh_SendungsId is null OR anh_SendungsId <=0 OR anh_SendungsId=" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & ") ORDER BY anh_SendungsId desc, case /* when [anh_Art] ='ATR' then 0 when [anh_Art] ='Rechnung' then 1 when [anh_Art] ='CMR' then 2 when [anh_Art] ='Ausfuhr' then 3 when [anh_Art] ='Packliste' then 4 when [anh_Art] ='Auftrag' then 5 when [anh_Art] ='Sonstiges' then 6 when [anh_Art] ='' then 7*/ when [anh_Art] = 'ATR-EUR1' then 0 when [anh_Art] = 'Rechnung' then 1 when [anh_Art] = 'CMR' then 2 when [anh_Art] = 'Ausfuhr' then 3 when [anh_Art] = 'Vorpapier' then 4 when [anh_Art] = 'Packliste' then 5 when [anh_Art] = 'Auftrag' then 6 when [anh_Art] = 'Auftrag' then 7 when [anh_Art] = 'Dispoliste' then 8 when [anh_Art] = 'Vorkasse' then 9 when [anh_Art] = 'Überweisungsbeleg' then 10 when [anh_Art] = 'Vollmacht' then 11 when [anh_Art] = 'ATB' then 12 when [anh_Art] = 'ATA' then 13 when [anh_Art] = 'Sonstiges' then 99 when [anh_Art] ='' then 15 END, [anh_Reihenfolge],[anh_id]" dgvAnhang.DataSource = SQL.loadDgvBySql(hSQL, "AVISO") If dgvAnhang.RowCount = 0 Then dgvAnhang.Columns.Clear() : Exit Sub With dgvAnhang .RowTemplate.Height = 35 '.RowTemplate.MinimumHeight = 30 .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells .Columns("anh_id").Visible = False 'VermerkID nicht anzeigen .Columns("anh_docId").Visible = False 'AvisoID nicht anzeigen .Columns("anh_Name").MinimumWidth = 150 .Columns("anh_Name").HeaderText = "Name" .Columns("anh_Name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("anh_Art").MinimumWidth = 100 .Columns("anh_Art").HeaderText = "Art" .Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter .Columns("anh_Typ").Width = 150 .Columns("anh_Typ").HeaderText = "Typ" .Columns("anh_Typ").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter .Columns("anh_LaufzettelDruck").Width = 150 .Columns("anh_LaufzettelDruck").HeaderText = "Laufzettel-Druck" End With End Sub Private Sub btnAutomatischeNacherfassung_Click(sender As Object, e As EventArgs) Handles btnAutomatischeNacherfassung.Click ' ZollSystem: 0=ATLAS 1= EZOLL ' loadDataInLIST() SAVE_ME() Dim ZOLL_IMPORT As New DAKOSY_Worker.cZOLL_IMPORT ZOLL_IMPORT.AUTO_IMPORT(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) initSpeditionbuch() End Sub Private Sub cbxFremdspedition_GotFocus(sender As Object, e As EventArgs) Handles cbxFremdspedition.GotFocus txtAnzahl.Focus() End Sub Private Sub RadioButton_GotFocus(sender As Object, e As EventArgs) txtAuftraggeber.Focus() End Sub Private Sub Button7_Click_1(sender As Object, e As EventArgs) Handles Button7.Click lblZollsysErr.Text = "" Try 'loadDataInLIST() SAVE_ME() If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID <= 0 Then lblZollsysErr.Text = "Keine Abfertigungsart gewählt!" : Exit Sub End If If SENDUNG_LIST(CURRENT_INDEX).FilialenNr <= 0 Then lblZollsysErr.Text = "Keine Filiale gewählt!" : Exit Sub End If If SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr <= 0 Then lblZollsysErr.Text = "Keine AbfertigungsNr gewählt!" : Exit Sub End If If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber = "" Then lblZollsysErr.Text = "Kein Auftraggeber gewählt!" : Exit Sub End If If cboSachbearbeiter._value = "" Then lblZollsysErr.Text = "Kein Sachbearbeiter gewählt!" : Exit Sub End If Dim anzahl As Integer = 0 If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID = 23 Then For Each u As VERAG_PROG_ALLGEMEIN.usrcntlUnterposEntry In pnlHandling.Controls If u.txtAnzahl.Text <> "" And Not IsNumeric(u.txtAnzahl.Text) Then lblZollsysErr.Text = "Handling angeben!" : Exit Sub anzahl += u.txtAnzahl.Text Next If anzahl <= 0 Then lblZollsysErr.Text = "Handling angeben!" : Exit Sub End If 'Falls bereits Einträge vorhanden sind, werden diese gelöscht... Dim SPED_LIST = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuchList(SENDUNG_LIST(CURRENT_INDEX).FilialenNr, SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) If SPED_LIST.LIST.Count > 0 Then If vbYes = MsgBox("Vorhande Einträge werden gelöscht. Möchten Sie fortfahren?", vbYesNoCancel) Then Dim sqlstr = " DELETE FROM tblSpeditionsbuchUnterPos WHERE sbup_Filiale=" & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & " AND sbup_AbfertigungsNr=" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & " " Dim sqlstr2 = " DELETE FROM Speditionsbuch WHERE FilialenNr=" & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & " AND AbfertigungsNr=" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & " " If Not SQL.doSQL(sqlstr, "FMZOLL") OrElse Not SQL.doSQL(sqlstr2, "FMZOLL") Then Exit Sub Else Exit Sub End If SPED_LIST.LOAD_LIST() ' neu laden, wenn gelöscht End If Dim ZOLL_IMPORT As New DAKOSY_Worker.cZOLL_IMPORT Dim notFound = False ' Dim ATLAS_SERVER_VERBINDUNG = "" 'If cboNiederlassung.Text <> "" Then ATLAS_SERVER_VERBINDUNG = cboNiederlassung.Text Dim strManNr = "VERA" Dim strManNl = "SUB" If cboNiederlassung.Text <> "" Then strManNl = cboNiederlassung.Text Else Select Case SENDUNG_LIST(CURRENT_INDEX).FilialenNr Case 4803, 4809 strManNl = "SUB" Case 4801 strManNl = "SUW" Case 5003 strManNl = "SBG" 'ANDERER SERVER!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Case 5103 strManNl = "WAI" Case 5303 strManNl = "SUB" End Select End If Dim ATLAS_SERVER_VERBINDUNG = "ATLAS" If strManNl = "SBG" Then ATLAS_SERVER_VERBINDUNG = "ATLAS_SBG" If Not cbxOhneZollsys.Checked Then '------------ Prüfung ob BzugsNr vorhanden, sonst EXIT If cboZollsystem._value <> "" Then Select Case cboZollsystem._value Case "A" If txtAtlasBezNrEZA.Text <> "" Then If Not checkATLAS_EZA(strManNr, strManNl, txtAtlasBezNrEZA.Text, ATLAS_SERVER_VERBINDUNG) Then lblZollsysErr.Text = "Bezugs-Nr (1) falsch!" : Exit Sub If txtAtlasBezNrNCTS.Text <> "" Then If Not checkATLAS_NCTS(strManNr, strManNl, txtAtlasBezNrNCTS.Text, ATLAS_SERVER_VERBINDUNG) Then lblZollsysErr.Text = "Bezugs-Nr (1) falsch!" : Exit Sub Case "E" If txtAtlasBezNrEZA.Text <> "" Then If Not checkEZOLL_EZA(txtAtlasBezNrEZA.Text) Then lblZollsysErr.Text = "Bezugs-Nr (1) falsch!" : Exit Sub If txtAtlasBezNrNCTS.Text <> "" Then If Not checkEZOLL_NCTS(txtAtlasBezNrNCTS.Text) Then lblZollsysErr.Text = "Bezugs-Nr (1) falsch!" : Exit Sub End Select End If If cboZollsystem2._value <> "" Then Select Case cboZollsystem2._value Case "A" If txtAtlasBezNrEZA2.Text <> "" Then If Not checkATLAS_EZA(strManNr, strManNl, txtAtlasBezNrEZA2.Text, ATLAS_SERVER_VERBINDUNG) Then lblZollsysErr.Text = "Bezugs-Nr (2) falsch!" : Exit Sub If txtAtlasBezNrNCTS2.Text <> "" Then If Not checkATLAS_NCTS(strManNr, strManNl, txtAtlasBezNrNCTS2.Text, ATLAS_SERVER_VERBINDUNG) Then lblZollsysErr.Text = "Bezugs-Nr (2) falsch!" : Exit Sub Case "E" If txtAtlasBezNrEZA2.Text <> "" Then If Not checkEZOLL_EZA(txtAtlasBezNrEZA2.Text) Then lblZollsysErr.Text = "Bezugs-Nr (2) falsch!" : Exit Sub If txtAtlasBezNrNCTS2.Text <> "" Then If Not checkEZOLL_NCTS(txtAtlasBezNrNCTS2.Text) Then lblZollsysErr.Text = "Bezugs-Nr (2) falsch!" : Exit Sub End Select End If '------------ If cboZollsystem._value <> "" Then Dim ZollSystem = "" If cboZollsystem._value = "A" Then ZollSystem = 0 If cboZollsystem._value = "E" Then ZollSystem = 1 Dim SPEDBUCH_TMP As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(SENDUNG_LIST(CURRENT_INDEX).FilialenNr, SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) ZOLL_IMPORT.IMPORT(SPEDBUCH_TMP, AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, strManNr, strManNl, ZollSystem, txtAtlasBezNrEZA.Text, txtAtlasBezNrNCTS.Text, notFound, True) If notFound Then lblZollsysErr.Text = "Der Eintrag wurde nicht gefunden!" SPEDBUCH_TMP.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME SPEDBUCH_TMP.Personalnummer = cboSachbearbeiter._value SPEDBUCH_TMP.SAVE() : SPED_LIST.LIST.Add(SPEDBUCH_TMP) ': SPEDBUCH_TMP = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(SENDUNG_LIST(CURRENT_INDEX).FilialenNr, SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) End If If cboZollsystem2._value <> "" Then Dim ZollSystem = "" If cboZollsystem2._value = "A" Then ZollSystem = 0 If cboZollsystem2._value = "E" Then ZollSystem = 1 Dim SPEDBUCH_TMP2 As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(SENDUNG_LIST(CURRENT_INDEX).FilialenNr, SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) ZOLL_IMPORT.IMPORT(SPEDBUCH_TMP2, AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, strManNr, strManNl, ZollSystem, txtAtlasBezNrEZA2.Text, txtAtlasBezNrNCTS2.Text, notFound, True) If notFound Then lblZollsysErr.Text = "Der Eintrag wurde nicht gefunden!" SPEDBUCH_TMP2.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME SPEDBUCH_TMP2.Personalnummer = cboSachbearbeiter._value SPEDBUCH_TMP2.Abfertigungsart = 5 ' T1 SPEDBUCH_TMP2.SAVE() : SPED_LIST.LIST.Add(SPEDBUCH_TMP2) ': SPEDBUCH_TMP2 = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(SENDUNG_LIST(CURRENT_INDEX).FilialenNr, SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) End If Else Dim SPEDBUCH_TMP As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(SENDUNG_LIST(CURRENT_INDEX).FilialenNr, SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) ZOLL_IMPORT.IMPORT(SPEDBUCH_TMP, AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, strManNr, strManNl, "", "", "", notFound, True) SPEDBUCH_TMP.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME SPEDBUCH_TMP.Personalnummer = cboSachbearbeiter._value If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID = 23 Then SPEDBUCH_TMP.Abfertigungsanzahl = anzahl SPEDBUCH_TMP.SAVE() : SPED_LIST.LIST.Add(SPEDBUCH_TMP) ': SPEDBUCH_TMP = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(SENDUNG_LIST(CURRENT_INDEX).FilialenNr, SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID = 23 Then SPEDBUCH_TMP.UNTERPOS.Clear() For Each c In pnlHandling.Controls If c.GetType.Name = GetType(VERAG_PROG_ALLGEMEIN.usrcntlUnterposEntry).Name Then Dim u As VERAG_PROG_ALLGEMEIN.usrcntlUnterposEntry = DirectCast(c, VERAG_PROG_ALLGEMEIN.usrcntlUnterposEntry) SPEDBUCH_TMP.UNTERPOS.Add(New VERAG_PROG_ALLGEMEIN.cSpeditionsbuchUnterPos(SPEDBUCH_TMP.FilialenNr, SPEDBUCH_TMP.AbfertigungsNr, SPEDBUCH_TMP.UnterNr, u.UnterPosArt, u.Anzahl)) End If Next If SPEDBUCH_TMP.SAVE_UNTERPOS() Then If SPEDBUCH_TMP.SAVE Then SPED_LIST.LOAD_LIST() End If End If End If 'Wenn kein Zollsystem, spedbuch öffnen, um Daten zu ergänzen: Dim frmNacherfassung As New SDL.frmNacherfassungNEU frmNacherfassung.srchFiliale = SPEDBUCH_TMP.FilialenNr frmNacherfassung.srchAbfertigungsnummer = SPEDBUCH_TMP.AbfertigungsNr frmNacherfassung.srchUnterNr = SPEDBUCH_TMP.UnterNr ' frmNacherfassung.FMZollPersID = cboSachbearbeiter._value frmNacherfassung.ShowDialog(Me) End If If SPED_LIST.LIST.Count > 0 Then SENDUNG_LIST(CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen = True Else SENDUNG_LIST(CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen = False End If SAVE_ME() Catch ex As Exception MsgBox(ex.Message) End Try initDataBinding() End Sub Function checkATLAS_EZA(strManNr, strManNl, Encts_Nr, ATLAS_SERVER_VERBINDUNG) As Boolean Dim i As Integer = SQL.getValueTxtBySql("SELECT COUNT(*) FROM zbant WHERE basman_nr='" & strManNr & "' And basman_nl='" & strManNl & "' And zbant_beznr='" & Encts_Nr & "' ", ATLAS_SERVER_VERBINDUNG) Return (i > 0) End Function Function checkATLAS_NCTS(strManNr, strManNl, ncts_Nr, ATLAS_SERVER_VERBINDUNG) As Boolean Dim i As Integer = SQL.getValueTxtBySql("SELECT COUNT(*) FROM veoant WHERE basman_nr='" & strManNr & "' And basman_nl='" & strManNl & "' And veoant_beznr='" & ncts_Nr & "' ", ATLAS_SERVER_VERBINDUNG) Return (i > 0) End Function Function checkEZOLL_EZA(Encts_Nr) As Boolean Dim i As Integer = SQL.getValueTxtBySql("SELECT COUNT(*) FROM zsAnmRefs WHERE (VorgangID = 'EF') AND (LRN = '" & Encts_Nr & "') ", "EZOLL") Return (i > 0) End Function Function checkEZOLL_NCTS(ncts_Nr) As Boolean Dim i As Integer = SQL.getValueTxtBySql("SELECT COUNT(*) FROM zsAnmRefs WHERE (VorgangID = 'AV') AND (LRN = '" & ncts_Nr & "') ", "EZOLL") Return (i > 0) End Function Private Sub cbxNCTST_CheckedChanged(sender As Object, e As EventArgs) Handles cbxNCTST.CheckedChanged txtAtlasBezNrEZA2.Enabled = sender.checked txtAtlasBezNrNCTS2.Enabled = sender.checked cboZollsystem2.Enabled = sender.checked End Sub Private Sub cboAbfertigungsart_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles cboAbfertigungsart.SelectedIndexChanged pnlHandling.Controls.Clear() Label31.Visible = False cbxOhneZollsys.Checked = False If cboAbfertigungsart._value = "23" Then initHandling() cbxOhneZollsys.Checked = True End If End Sub Sub initHandling() 'SPEDITIONSBUCH.LOAD_UNTERPOS() Label31.Visible = True 'For Each r As DataRow In SQL.loadDgvBySql("SELECT Abfertigungsart,Abfertigungsbezeichnung FROM Abfertigungsarten WHERE isHandlingArt=1 ORDER BY Abfertigungsbezeichnung ", "FMZOLL").Rows For Each r As DataRow In SQL.loadDgvBySql("SELECT * FROM tblSpeditionsbuchUnterPosArten ORDER BY sbupa_bez", "FMZOLL").Rows Dim usr As New VERAG_PROG_ALLGEMEIN.usrcntlUnterposEntry usr.Padding = New Padding(0, 0, 0, 0) usr.Margin = New Padding(0, 0, 0, 0) usr.lblBezeichnung.Text = r("sbupa_bez") usr.UnterPosArt = r("sbupa_id") usr.txtAnzahl.Text = "0" pnlHandling.Controls.Add(usr) Next End Sub Private Sub cbxOhneZollsys_CheckedChanged(sender As Object, e As EventArgs) Handles cbxOhneZollsys.CheckedChanged cboZollsystem.Enabled = Not sender.checked cboZollsystem2.Enabled = Not sender.checked txtAtlasBezNrEZA.Enabled = Not sender.checked txtAtlasBezNrEZA2.Enabled = Not sender.checked txtAtlasBezNrNCTS.Enabled = Not sender.checked txtAtlasBezNrNCTS2.Enabled = Not sender.checked cbxNCTST.Enabled = Not sender.checked End Sub Private Sub DataGridView_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) End Sub Private Sub LinkLabel4_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) ' txtT1Verzollungsadresse.Text = txtEmpfaenger.Text End Sub Private Sub txtGewicht_TextChanged(sender As Object, e As EventArgs) Handles txtGewicht.Leave If IsNumeric(txtGewicht.Text) Then txtGewicht.Text = CDbl(txtGewicht.Text).ToString("N1") End If End Sub Private Sub txtColli_TextChanged(sender As Object, e As EventArgs) Handles txtColli.Leave If IsNumeric(txtColli.Text) Then txtColli.Text = CDbl(txtColli.Text).ToString("N0") End If End Sub Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click ' Dim v As New VERAG_PROG_ALLGEMEIN.NewDataSe Dim G As New DAKOSY_Worker.VersandanmeldungNCTSDE.TransaktionNCTSTyp Dim v As New DAKOSY_Worker.VersandanmeldungNCTSDE.EinzelVersandanmeldungTyp 'Dim G As New VERAG_PROG_ALLGEMEIN.VersandanmeldungNCTSDE2.EntityBase(Of 'Dim data as SchemaClass.LoadFromFile( "myData.xml") 'Dim TEST As New VERAG_PROG_ALLGEMEIN.VersandanmeldungNCTSDE2.VersandanmeldungVATayp ' Dim TEST_X As New VERAG_PROG_ALLGEMEIN.VersandanmeldungNCTSDE2.VersandanmeldungNCTSDE(Of VERAG_PROG_ALLGEMEIN.VersandanmeldungNCTSDE2.VersandanmeldungVATayp) Dim TEST As New DAKOSY_Worker.VersandanmeldungNCTSDE.VersandanmeldungVATayp TEST.EinzelVersandanmeldung = New DAKOSY_Worker.VersandanmeldungNCTSDE.EinzelVersandanmeldungTyp TEST.EinzelVersandanmeldung.KopfDaten = New DAKOSY_Worker.VersandanmeldungNCTSDE.KopfDatenVersandanmeldungTyp TEST.EinzelVersandanmeldung.KopfDaten.Adressen = New DAKOSY_Worker.VersandanmeldungNCTSDE.AdressenVATyp TEST.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger = New DAKOSY_Worker.VersandanmeldungNCTSDE.AdresseVA1Typ TEST.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.EORI = "ASD" 'Dim a As New VERAG_PROG_ALLGEMEIN.VersandanmeldungNCTSDE2.EntityBase(Of VERAG_PROG_ALLGEMEIN.VersandanmeldungNCTSDE2.EinzelVersandanmeldungTyp) TEST.SaveToFile("TESTfileX.xml") Dim TEST3 As New DAKOSY_Worker.VersandanmeldungNCTSDE.DatenaustauschNCTSTyp ' TEST3.Transaktion ' Dim QE2 As New VERAG_PROG_ALLGEMEIN.QuittungEingangsverarbeitungNCTS.DatenaustauschAllgemeinTyp Dim QE As New DAKOSY_Worker.QuittungEingangsverarbeitungNCTS.QuittungEingangsverarbeitungBQTyp QE.Transaktion = New DAKOSY_Worker.QuittungEingangsverarbeitungNCTS.TransaktionAllgemeinTyp QE.EinzelQuittung = New List(Of DAKOSY_Worker.QuittungEingangsverarbeitungNCTS.EinzelQuittungTyp) Dim Q As New DAKOSY_Worker.QuittungEingangsverarbeitungNCTS.EinzelQuittungTyp Q.Transaktionsreferenz = "asdasdasd" QE.EinzelQuittung.Add(Q) 'QE.SaveToFile("TESTQE.xml") ' VERAG_PROG_ALLGEMEIN.QuittungEingangsverarbeitungNCTS.QuittungEingangsverarbeitungBQTyp.LoadFromFile(SAVE_ME) QE.SaveToFile("TESTQE.xml") ' Deserialize() Dim ex As New Exception ' If VERAG_PROG_ALLGEMEIN.QuittungEingangsverarbeitungNCTS.QuittungEingangsverarbeitungBQTyp.LoadFromFile("D:\TESTQEBASE.xml", QE, ex) Then 'MsgBox("asd") ' QE.SaveToFile("TESTQE2.xml") 'End If Dim qVA As New DAKOSY_Worker.QuittungEingangsverarbeitungNCTS.QuittungEingangsverarbeitungBQTyp qVA = DAKOSY_Worker.QuittungEingangsverarbeitungNCTS.QuittungEingangsverarbeitungBQTyp.Deserialize(System.IO.File.ReadAllText("D:\TESTQEBASE.xml")) If qVA IsNot Nothing Then If qVA.Transaktion IsNot Nothing Then MsgBox(qVA.Transaktion.IODatumZeit.ToString()) End If qVA.SaveToFile("TESTQE2.xml") End If 'LOAD: 'SchemaClass data = SchemaClass.LoadFromFile("myData.xml"); 'data.SomeElement.SomeProperty = "foo"; 'data.SaveToFile("myData.xml"); 'v.SaveToFile("TESTfile.xml") 'Dim vers As New VERAG_PROG_ALLGEMEIN.ver ' Dim k As New VERAG_PROG_ALLGEMEIN.NewDataSet.KopfDatenDataTable ' Dim a As New VERAG_PROG_ALLGEMEIN.AdressenVATyp ' Dim em As New VERAG_PROG_ALLGEMEIN.AdresseVA1Typ '' Dim ansp = New VERAG_PROG_ALLGEMEIN.AnsprechpartnerVATyp() ' ansp.EmailAdresse = "asd" 'v.KopfDaten.Adressen.Empfaenger.Ansprechpartner.EmailAdresse = "A" ' em.Ansprechpartner = ansp ' a.Empfaenger = em ' k.Adressen = a ' v.KopfDaten = k ' System.IO.File.Create("C:\Users\DEVELOPER1\Desktop\test\file2.xml", v.GetXml()) ' Using outputFile As New System.IO.StreamWriter("C:\Users\DEVELOPER1\Desktop\test\file2.xml") 'outputFile.Write(v.GetXml) ' End Using ' Dim serializer As New System.Xml.Serialization.XmlSerializer(v.GetType) ' serializer.Serialize(System.IO.File.Create("C:\Users\DEVELOPER1\Desktop\test\file.xml"), v) End Sub Private Sub dgvBelege_CellMouseDoubleClick(sender As Object, e As EventArgs) Handles dgvBelege.DoubleClick If dgvBelege.SelectedRows.Count <= 0 Then Exit Sub Dim frmSecureLoginKassenbuch As New SDL.frmSecureLoginKassenbuch If frmSecureLoginKassenbuch.ShowDialog(Me) = DialogResult.OK Then Dim PERSONAL As SDL.cPersonal = frmSecureLoginKassenbuch.PERSONAL Dim sqlTMP As New SDL.FMZOLL_SQL Dim r As DataGridViewRow = dgvBelege.SelectedRows(0) Dim PERSONALTmp As SDL.cPersonal = sqlTMP.getPersonalById(r.Cells("Benutzer").Value) Dim B As New SDL.EABeleg("LOAD", PERSONALTmp.Mandant, PERSONALTmp.Niederlassung, PERSONALTmp.ID, r.Cells("BelegNr").Value, r.Cells("BelegDat").Value) openBELEG(PERSONALTmp, B) End If End Sub Sub openBELEG(PERSONAL As SDL.cPersonal, B As SDL.EABeleg) If B Is Nothing Then Exit Sub Select Case B.Beleg_TYP Case "0" MsgBox("Ein NULL-Beleg ist nur einmal verfügbar.") Case "E" 'If B.storniert Then MsgBox("Der Beleg wurde bereits storiniert!") : Exit Sub Dim frmBeleg As New SDL.frmFremdbeleg(PERSONAL, PERSONAL.Mandant, PERSONAL.Niederlassung, B.Benutzer, B.BelegNr, B.BelegDat) frmBeleg.ShowDialog(Me) Case "L" If B.storniert Then MsgBox("Der Beleg wurde bereits storiniert!") : Exit Sub Dim frmBeleg As New SDL.frmNacherfassungLeihgeld(PERSONAL, Nothing, PERSONAL.Mandant, PERSONAL.Niederlassung, B.Benutzer, B.BelegNr, B.BelegDat) frmBeleg.ShowDialog(Me) Case Else Dim frmBeleg As New SDL.frmBelegNeu(PERSONAL, Nothing, PERSONAL.Mandant, PERSONAL.Niederlassung, B.Benutzer, B.BelegNr, B.BelegDat) frmBeleg.ShowDialog(Me) End Select initDGVBelege() ' End If End Sub Private Sub dgvBelege_SelectionChanged(sender As Object, e As EventArgs) Handles dgvBelege.Leave dgvBelege.ClearSelection() End Sub Private Sub Button14_Click_1(sender As Object, e As EventArgs) loadDataInLIST() 'SAVE_ME() SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Importaviso_VK, SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr, {SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr, SENDUNG_LIST(CURRENT_INDEX), AVISO}) End Sub Private Sub Button15_Click(sender As Object, e As EventArgs) Handles btnVorauszahlung.Click FormularArt = SDL.FormularManagerArten.Importaviso_VK cntxtVorauskasse.Show(Cursor.Position) End Sub Private Sub FrächterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles toolAbsender.Click, toolAuftraggeber.Click, toolEmpfänger.Click, toolAvisierer.Click, toolFrächter.Click loadDataInLIST() 'SAVE_ME() Dim FirmaFrm = "" Dim ROLLE = "" Dim kdnrFrm = -1 If sender Is toolFrächter Then ROLLE = "FRÄCHTER" : FirmaFrm = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_Frachtfuehrer : kdnrFrm = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr ElseIf sender Is toolAvisierer Then ROLLE = "AVISIERER" : FirmaFrm = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_Avisierer : kdnrFrm = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_AvisiererKdNr ElseIf sender Is toolAbsender Then ROLLE = "ABSENDER" : FirmaFrm = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender : kdnrFrm = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr ElseIf sender Is toolAuftraggeber Then ROLLE = "AUFTRAGGEBER" : FirmaFrm = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber : kdnrFrm = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr ElseIf sender Is toolEmpfänger Then ROLLE = "EMPFAENGER" : FirmaFrm = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger : kdnrFrm = SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr End If Select Case FormularArt Case SDL.FormularManagerArten.Importaviso_VK : SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Importaviso_VK, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO, ROLLE}) Case SDL.FormularManagerArten.Importaviso Dim f As SDL.frmFormulare = Nothing SDL.FormularManagerNEU.OPEN_FORM_Byref(SDL.FormularManagerArten.Importaviso, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO, ROLLE},, f) AddHandler f.FormClosing, Sub() If f.printed Then AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "Auftrag fehlt - angefordert", 1) End Sub End Select End Sub Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click cntxtOptions.Show(Cursor.Position) End Sub Private Sub cntlAvisierer_Sonst_Load(sender As usrcntlCheckBox) Handles cntlAvisierer_Sonst.CLICKED, cntlAuftraggeber_Sonst.CLICKED, cntlAbsender_Sonst.CLICKED, cntlEmpfaenger_Sonst.CLICKED, cntlFrachtfuehrer_Sonst.CLICKED Dim f As New frmSendungsDetailsAbrechnungLeistungen(SENDUNG_LIST(CURRENT_INDEX), sender._beteiligter) ' Dim p As Point = Cursor.Position ' p.Offset(-f.Width \ 2, -f.Height \ 2) ' f.Location = Cursor.Position ' f.Left = Me.PointToScreen(System.Cursor.Position).X ' f.Top = Me.PointToScreen(System.Cursor.Position).Y f.ShowDialog() SAVE_ABRECHUNG() LOAD_ABRECHUNG() End Sub Private Sub Panel6_Paint(sender As Object, e As PaintEventArgs) Handles Panel6.Paint End Sub Private Sub Button14_Click_2(sender As Object, e As EventArgs) Handles Button14.Click Dim f As New frmWarenbezeichnungBegriffe If f.ShowDialog(Me) = DialogResult.OK Then If f.WB IsNot Nothing Then rtbWarenbezeichnung.Text = f.WB.wb_begriff End If End If End Sub Sub initdgvZollAnmeldungen() With dgvZollAnmeldungen .Columns.Clear() .ReadOnly = True .DataSource = SQL.loadDgvBySql("SELECT [dy_Id],[dy_ART],[dy_BezugsNr],[dy_Erstellung],[dy_Status] FROM [tblDakosy_Zollanmeldungen] WHERE dy_AvisoId='" & AvisoId & "' AND dy_SendungsID='" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & "'", "FMZOLL") If .Columns.Count <= 0 Then Exit Sub 'Ä.Columns("txtStatus").ReadOnly = False .Columns("dy_Id").Visible = False .Columns("dy_Status").Visible = False .Columns("dy_ART").HeaderText = "Art" .Columns("dy_ART").Width = 80 .Columns("dy_BezugsNr").HeaderText = "BezugsNr" .Columns("dy_BezugsNr").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("dy_Erstellung").HeaderText = "Erstellt" .Columns("dy_Erstellung").Width = 100 .Columns("dy_Erstellung").DefaultCellStyle.Format = "dd.MM.yy HH:mm" .Columns("dy_Erstellung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter Dim c As New DataGridViewTextBoxColumn c.Name = "txtStatus" .Columns.Add(c) .Columns("txtStatus").HeaderText = "Status" .Columns("txtStatus").Width = 250 For Each r As DataGridViewRow In .Rows r.Cells("txtStatus").Value = DAKOSY_Worker.cDY_Statusliste.getTxtByCode2(r.Cells("dy_Status").Value, r.Cells("dy_ART").Value, r.Cells("txtStatus").Value, r.Cells("txtStatus").Style.BackColor) Next End With End Sub Private Sub dgvZollAnmeldungen_CellFormatting(sender As Object, e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles dgvZollAnmeldungen.CellFormatting Select Case dgvZollAnmeldungen.Columns(e.ColumnIndex).Name Case "txtStatus" 'Dauer ' dgvZollAnmeldungen.Rows(e.RowIndex).Cells("txtStatus").Value = "A" DAKOSY_Worker.cDY_Statusliste.getTxtByCode2(dgvZollAnmeldungen.Rows(e.RowIndex).Cells("dy_Status").Value, dgvZollAnmeldungen.Rows(e.RowIndex).Cells("dy_art").Value, dgvZollAnmeldungen.Rows(e.RowIndex).Cells("txtStatus").Value, dgvZollAnmeldungen.Rows(e.RowIndex).Cells("txtStatus").Style.BackColor, , dgvZollAnmeldungen.Rows(e.RowIndex).Cells("txtStatus").Style.ForeColor) End Select End Sub Private Sub dgvZollAnmeldungen_CellContentClick(sender As Object, e As EventArgs) Handles dgvZollAnmeldungen.DoubleClick ', dgvZollAnmeldungen.CellContentClick If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZA_AVISO_Edit", "AVISO") Then Try Me.Cursor = Cursors.WaitCursor If dgvZollAnmeldungen.SelectedRows.Count = 0 Then Exit Sub Dim DY As DAKOSY_Worker.cDakosy_Zollanmeldungen = DAKOSY_Worker.cDakosy_Zollanmeldungen.LOADById(dgvZollAnmeldungen.SelectedRows(0).Cells("dy_Id").Value) If DY IsNot Nothing Then Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing If SENDUNG_LIST IsNot Nothing Then SND = SENDUNG_LIST(CURRENT_INDEX) End If ' Dim f As New SDL.frmZollanmeldung(DY.dy_ART, DY, AVISO, SENDUNG_LIST(0), Now.ToString("yy")) Dim f As New SDL.frmZollanmeldung(DY.dy_ART, DY, AVISO, SND, Now.ToString("yy")) AddHandler f.FormClosed, Sub() initdgvZollAnmeldungen() End Sub f.Show() End If Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try Me.Cursor = Cursors.Default ' frmNacherfassung.showAll() End If End Sub Private Sub ToolStripMenuItem12_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem12.Click If dgvZollAnmeldungen.SelectedRows.Count > 0 Then Dim log As New SDL.frmDY_LogBuch(dgvZollAnmeldungen.SelectedRows(0).Cells("dy_id").Value) ' log.Parent = Me.FindForm log.Show(Me) End If End Sub Private Sub EZAToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem13.Click ' Me.loadDataInLIST() SAVE_ME() If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub Dim frMZA As New SDL.frmZollanmeldung("EZA", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy")) ' Dim u As New SDL.usrCntlATLAS_EZA(DAKOSY_Worker.cDakosy_ZollanmeldungenArten.EZA, AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, Now.ToString("yy"), "") ' u.Dock = DockStyle.Fill frMZA.Show() AddHandler frMZA.FormClosed, Sub() initdgvZollAnmeldungen() End Sub 'tbZollabfertigung.Controls.Clear() ' tbZollabfertigung.Controls.Add(u) End Sub Private Sub NCTSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem8.Click ' Me.loadDataInLIST() SAVE_ME() If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub Dim frMZA As New SDL.frmZollanmeldung("T1", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy")) frMZA.Show() AddHandler frMZA.FormClosed, Sub() initdgvZollAnmeldungen() End Sub End Sub Private Sub NCTST2ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem9.Click ' Me.loadDataInLIST() SAVE_ME() If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub Dim frMZA As New SDL.frmZollanmeldung("T2", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy")) frMZA.Show() AddHandler frMZA.FormClosed, Sub() initdgvZollAnmeldungen() End Sub End Sub Private Sub AESToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem11.Click 'Me.loadDataInLIST() SAVE_ME() If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub Dim frMZA As New SDL.frmZollanmeldung("AES", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy")) frMZA.Show() AddHandler frMZA.FormClosed, Sub() initdgvZollAnmeldungen() End Sub End Sub Private Sub Button11_Click(sender As Object, e As EventArgs) Handles btnImportaviso.Click FormularArt = SDL.FormularManagerArten.Importaviso cntxtVorauskasse.Show(Cursor.Position) End Sub Private Sub ToolStripMenuItem10_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem10.Click ' Me.loadDataInLIST() SAVE_ME() If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub Dim frMZA As New SDL.frmZollanmeldung("ÜT", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy")) frMZA.Show() AddHandler frMZA.FormClosed, Sub() initdgvZollAnmeldungen() End Sub End Sub Sub newKunde(KD As VERAG_PROG_ALLGEMEIN.KdSearchBox) If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then Dim frmKundenblatt As New SDL.frmKundenblatt frmKundenblatt.showEdit = True frmKundenblatt.kdNr = -1 'frmKundenblatt.BERECHTIGUNEN = BERECHTIGUNEN If frmKundenblatt.ShowDialog(Me) Then If frmKundenblatt.kdNr > 0 Then KD.KdNr = frmKundenblatt.kdNr End If End If Else Dim frmKd As New SDL.frmNeuerKunde frmKd.openKd = False frmKd.timerIntervall = 500 frmKd.username = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.mit_username If frmKd.username.Length > 15 Then frmKd.username = frmKd.username.Substring(0, 15) frmKd.tmpFiliale = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.StandartFiliale ' frmKd.tmpKdNrKreis = 9 If KD.KdNr = -1 Then frmKd.tmpKdName = KD.Text End If frmKd.ShowDialog() If frmKd.kdnr > 0 Then KD.KdNr = frmKd.kdnr End If End If End Sub Private Sub Button11_Click_2(sender As Object, e As EventArgs) Handles Button11.Click newKunde(txtAuftraggeber) End Sub Private Sub Button15_Click_1(sender As Object, e As EventArgs) Handles Button15.Click newKunde(txtEmpfaenger) End Sub Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click newKunde(txtAbsender) End Sub Private Sub tbcntr_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tbcntr.SelectedIndexChanged If tbcntr.SelectedTab Is TabPage5 Then initDGVBelege() End If End Sub Private Sub ToolStripMenuItem13_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem13.Click End Sub Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() Dim sv As New frmAddSendungsvermerkShort(AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) ', dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value) sv.Location = Me.PointToClient(Cursor.Position) sv.ShowDialog(frmGrayOut) frmGrayOut.Close() sv.Close() initVermerke() End Sub Private Sub dgvAnhang_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnhang.CellDoubleClick Try If TabControl1.SelectedTab Is tbAnhang Then If dgvAnhang.SelectedRows.Count > 0 Then Process.Start(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvAnhang.SelectedRows(0).Cells("anh_docId").Value)) End If End If Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try End Sub Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click 'loadDataInLIST() SAVE_ME() Dim f As New frmSendungAnhangImport(AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) f.ShowDialog(Me) VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, CURRENT_INDEX, AvisoId, False) 'LÄDT alle SENDUNGSDATEN initDataBinding() 'frmSendungsdetails_Load(Me, New EventArgs) End Sub Private Sub MarkiertePDFsDruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MarkiertePDFsDruckenToolStripMenuItem.Click For Each r As DataGridViewRow In dgvAnhang.SelectedRows Select Case r.Cells("anh_Typ").Value Case "PDF" : VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value)}) Case "BILD" : VERAG_PROG_ALLGEMEIN.cFormularManager.Print_PICTURE({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value)}) End Select Next End Sub Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click cntxtAnh.Show(Cursor.Position) End Sub Private Sub KopierenZwischenablageToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KopierenZwischenablageToolStripMenuItem.Click If dgvAnhang.SelectedRows.Count >= 1 Then Dim f As New List(Of String) 'For Each SI In MyListBox1.SelectedItems ' Dim item As MyListItem = DirectCast(SI, MyListItem) 'DirectCast(MyListBox1.SelectedItems(0), MyListItem) ' For Each ii In ds.DATA_LIST.LIST ' If ii.coll_id = item.Value Then ' 'Dim f() As String = {ii.coll_pfad} ' If ii.coll_pfad <> "" Then ' f(cnt) = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.copyToTmp_KeepFilename(ii.coll_pfad, ii.coll_bezeichnung) ' cnt += 1 ' 'Exit For ' End If ' End If ' Next 'Next For Each r As DataGridViewRow In dgvAnhang.SelectedRows f.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value)) Next 'Zwischenablage Clipboard.Clear() Dim d As New DataObject(DataFormats.FileDrop, f.ToArray) Clipboard.SetDataObject(d, True) Exit Sub End If End Sub Private Sub EMailAnfügenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EMailAnfügenToolStripMenuItem.Click, ToolStripMenuItem15.Click Try VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP") If dgvAnhang.SelectedRows.Count >= 1 Then Try Dim outl As New Outlook.Application Dim Mail As Microsoft.Office.Interop.Outlook.MailItem Mail = outl.CreateItem(0) 'For Each SI In MyListBox1.SelectedItems ' Dim item As MyListItem = DirectCast(SI, MyListItem) 'DirectCast(MyListBox1.SelectedItems(0), MyListItem) ' For Each ii In ds.DATA_LIST.LIST ' If ii.coll_id = item.Value Then ' If ii.coll_pfad <> "" Then ' Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.copyToTmp_KeepFilename(ii.coll_pfad, ii.coll_bezeichnung), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) ' End If ' End If ' Next 'Next For Each r As DataGridViewRow In dgvAnhang.SelectedRows ' Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.copyToTmp_KeepFilenameByDS(ii.coll_pfad, ii.coll_bezeichnung), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) Next Mail.Subject = "Kennzeichen: " & AVISO.LKW_Nr 'ATA FREMD!!! If sender Is ToolStripMenuItem15 Then Mail.Subject = "Kennzeichen: " & AVISO.LKW_Nr & " | Grenze: " & lblGrenze.Text Dim TextHTML = "" TextHTML &= "Sehr geehrte Damen und Herren,
" TextHTML &= "
" TextHTML &= "beiliegend senden wir Ihnen die Sendungsunterlagen für den o.g. LKW/Container. Wir bitten um Zusendung der ATA-Nummer.
" TextHTML &= "
" TextHTML &= "Mit freundlichen Grüßen
" TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
" TextHTML &= "
" Mail.HTMLBody = "
" & TextHTML & SDL.cFakturierung.getSignature("DE") & "
" AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "ATA-Nr fehlt (Fremdanmeldung) - angefordert", 33) End If Mail.Display() Catch ex As Exception MsgBox("Fehler beim Öffnen der Mail!") End Try End If Catch ex As Exception MsgBox("Fehler beim Öffnen der Mail!") End Try End Sub Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click FormularArt = SDL.FormularManagerArten.Importaviso_VK ctxtWeitereFormulare.Show(Cursor.Position) End Sub Private Sub EmpfängerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EmpfängerToolStripMenuItem.Click loadDataInLIST() Dim ROLLE = "EMPFAENGER" : Dim FirmaFrm = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger : Dim kdnrFrm = SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Verzollungsunterlagen, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO, ROLLE, -1, True}) End Sub Private Sub AuftraggeberToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AuftraggeberToolStripMenuItem.Click loadDataInLIST() Dim ROLLE = "AUFTRAGGEBER" : Dim FirmaFrm = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber : Dim kdnrFrm = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Verzollungsunterlagen, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO, ROLLE, -1, True}) End Sub Private Sub KdAuftragsNrInAlleSendungenÜbernehmenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KdAuftragsNrInAlleSendungenÜbernehmenToolStripMenuItem.Click Dim Atrnr = txtKdAuftragsNrAvisierer.Text ' loadDataInLIST() SAVE_ME() For Each s In SENDUNG_LIST s.tblSnd_KdAuftragsNrAvisierer = Atrnr s.SAVE() Next End Sub Private Sub Button22_Click(sender As Object, e As EventArgs) Handles Button22.Click ContextMenuStrip1.Show(Cursor.Position) End Sub Private Sub txtColli_Leave(sender As Object, e As EventArgs) Handles txtColli.Leave, txtGewicht.Leave loadDataInLIST() initGesColliGewicht() End Sub Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click ' ContextMenuStrip2.Show(Cursor.Position) If dgvAnhang.SelectedRows.Count >= 1 Then Try Dim files As New List(Of String) ' String() = New String() {"Sample1.pdf", "Sample2.pdf", "Sample3.pdf"} Dim outputFile As String = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Merge.pdf", ".pdf", True,, "Merge") ' "result.pdf" 'Dim outl As New Outlook.Application 'Dim Mail As Microsoft.Office.Interop.Outlook.MailItem 'Mail = outl.CreateItem(0) For Each r As DataGridViewRow In dgvAnhang.SelectedRows files.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value)) Next VERAG_PROG_ALLGEMEIN.cFormularManager.mergePDFs(files, outputFile) 'Dim doc As Spire.Pdf.PdfDocumentBase = Spire.Pdf.PdfDocument.MergeFiles(files.ToArray) 'doc.Save(outputFile, Spire.Pdf.FileFormat.PDF) Process.Start(outputFile) ' VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.OPEN_PATH() Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try End If End Sub Private Sub ToolStripMenuItem14_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem14.Click 'deleteElement(docId, anhId) End Sub Sub initKdInfo(kdNr As Integer) If TabControl1.SelectedTab Is tbKundenInfo Then 'Panel20.Controls.Clear() 'If loaded If kdNr > 0 Then If pnlKundenInfo.Controls.Count = 0 Then Dim c As New SDL.usrCntlKundenuebersicht pnlKundenInfo.AutoScrollMinSize = New Size(c.Width, c.Height) pnlKundenInfo.Controls.Add(c) End If DirectCast(pnlKundenInfo.Controls(0), SDL.usrCntlKundenuebersicht).setKD(kdNr) DirectCast(pnlKundenInfo.Controls(0), SDL.usrCntlKundenuebersicht).Visible = True Else If pnlKundenInfo.Controls.Count > 0 Then DirectCast(pnlKundenInfo.Controls(0), SDL.usrCntlKundenuebersicht).Visible = False End If End If End If End Sub Private Sub txtEmpfaenger_TextChanged(sender As Object, e As EventArgs) Handles txtEmpfaenger.GotFocus, txtAbsender.GotFocus, txtFrachtfuehrer.GotFocus, txtAvisierer.GotFocus, txtAuftraggeber.GotFocus initKdInfo(sender.KdNr) End Sub Private Sub LaufzetteldruckJANEINToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LaufzetteldruckJANEINToolStripMenuItem.Click If dgvAnhang.SelectedRows.Count >= 1 Then Dim errShown = False For Each r As DataGridViewRow In dgvAnhang.SelectedRows ' If r.Cells("anh_typ").Value = "PDF" Then VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.toggleLaufzettelDruck(r.Cells("anh_Id").Value) 'ElseIf Not errShown Then ' MsgBox("Nur bei PDF möglich!") ' errShown = True 'End If Next initAnhang() End If End Sub Private Sub SpeditionSUBENToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpeditionSUBENToolStripMenuItem.Click Try VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP") If dgvAnhang.SelectedRows.Count >= 1 Then Try Dim outl As New Outlook.Application Dim Mail As Microsoft.Office.Interop.Outlook.MailItem Mail = outl.CreateItem(0) 'For Each SI In MyListBox1.SelectedItems ' Dim item As MyListItem = DirectCast(SI, MyListItem) 'DirectCast(MyListBox1.SelectedItems(0), MyListItem) ' For Each ii In ds.DATA_LIST.LIST ' If ii.coll_id = item.Value Then ' If ii.coll_pfad <> "" Then ' Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.copyToTmp_KeepFilename(ii.coll_pfad, ii.coll_bezeichnung), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) ' End If ' End If ' Next 'Next For Each r As DataGridViewRow In dgvAnhang.SelectedRows ' Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.copyToTmp_KeepFilenameByDS(ii.coll_pfad, ii.coll_bezeichnung), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) Next Mail.Subject = "Kennzeichen: " & AVISO.LKW_Nr 'ATA FREMD!!! If sender Is ToolStripMenuItem15 Then Mail.Subject = "Kennzeichen: " & AVISO.LKW_Nr & " | Grenze: " & lblGrenze.Text Dim TextHTML = "" TextHTML &= "Sehr geehrte Damen und Herren,
" TextHTML &= "
" TextHTML &= "beiliegend senden wir Ihnen die Sendungsunterlagen für den o.g. LKW/Container. Wir bitten Sie den LKW/Container vorzubereiten.
" TextHTML &= "
" TextHTML &= "Mit freundlichen Grüßen
" TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
" TextHTML &= "
" Mail.HTMLBody = "
" & TextHTML & SDL.cFakturierung.getSignature("DE") & "
" AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "Doks an Fremdspedition (SUBEN) weitergeleitet.", 46) End If Mail.Display() Catch ex As Exception MsgBox("Fehler beim Öffnen der Mail!") End Try End If Catch ex As Exception MsgBox("Fehler beim Öffnen der Mail!") End Try End Sub Private Sub cboFremdsped_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFremdsped.SelectedIndexChanged Select Case cboFremdsped._value Case "IMEX" : cboFiliale.changeItem("5501") Case "UNISPED" : cboFiliale.changeItem("5601") Case "AMBAR" : cboFiliale.changeItem("5701") Case "VERIMEX" : cboFiliale.changeItem("") Case "FRONTOFFICE" : cboFiliale.changeItem("") Case Else If VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE <> "" Then cboFiliale.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE) Else cboFiliale.changeItem("4803") End If End Select End Sub Private Sub LinkLabel4_LinkClicked_1(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel4.LinkClicked If txtAuftraggeber.KdNr > 0 Then txtFrachtfuehrer.KdNr = txtAvisierer.KdNr Else txtFrachtfuehrer.KdNr = -1 txtFrachtfuehrer.Text = txtAvisierer.Text End If End Sub Private Sub IMEXToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles IMEXToolStripMenuItem1.Click open_Mail_NeuerLKW("IMEX") End Sub Sub open_Mail_NeuerLKW(firmaTmp) Dim outl As New Outlook.Application Dim Mail As Microsoft.Office.Interop.Outlook.MailItem Mail = outl.CreateItem(0) Mail.Subject = "NEUER LKW: " & AVISO.LKW_Nr Select Case firmaTmp Case "IMEX" : Mail.To = "info@imex-group.at" Case "AMBAR" : Mail.To = "info@imex-group.at" Case "UNISPED" : Mail.To = "office@unisped.at" Case "VERAG" : Mail.To = "quickstop@verag.ag" End Select Dim TextHTML = "" TextHTML &= "Hallo " & firmaTmp & "-TEAM,
" TextHTML &= "
" TextHTML &= "oben genannter LKW/Container wurde im AVISO erfasst.
" TextHTML &= "Die Papiere sind im Aviso der jeweiligen Sendung angehängt (DIGITALER AKT).
" TextHTML &= "
" TextHTML &= "Mit freundlichen Grüßen
" TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
" TextHTML &= "
" Mail.HTMLBody = "
" & TextHTML & SDL.cFakturierung.getSignature("DE") & "
" Mail.Display() End Sub Private Sub UNISPEDToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UNISPEDToolStripMenuItem.Click open_Mail_NeuerLKW("UNISPED") End Sub Private Sub VERAGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VERAGToolStripMenuItem.Click open_Mail_NeuerLKW("VERAG") End Sub Private Sub ToolStripMenuItem20_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem20.Click ' Me.loadDataInLIST() SAVE_ME() If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub Dim frMZA As New SDL.frmTCZollanmeldung("EZA", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy")) frMZA.Show() AddHandler frMZA.FormClosed, Sub() initdgvZollAnmeldungen() End Sub End Sub Private Sub picKdAtrNr_Avisierer_Click(sender As Object, e As EventArgs) Handles picKdAtrNr_Avisierer.Click, picKdAtrNr_Auftraggeber.Click, picKdAtrNr_Fraechter.Click, picKdAtrNr_Empfänger.Click If sender.tag <> "" Then MsgBox(sender.tag) End If End Sub Private Sub cboFiliale_Leave(sender As Object, e As EventArgs) Handles cboFiliale.Leave initFraechterAvisererFromAkt() End Sub Private Sub Button25_Click(sender As Object, e As EventArgs) Handles btnUIDPruef.Click Me.Cursor = Cursors.WaitCursor Try If lblUID_Pruef.Text.Replace("-", "").Trim = "" Then Me.Cursor = Cursors.Default : Exit Sub Dim UID_ERG As Integer = -1 Dim path = SDL.cFinanzOnlineWebService.genUID_Formular(lblUID_Pruef.Text, AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, UID_ERG) btnUIDPruef.BackgroundImage = My.Resources.fragezeichen Select Case UID_ERG Case 0 : btnUIDPruef.BackgroundImage = My.Resources.ok 'If path <> "" AndAlso IO.File.Exists(path) Then 'ADD ' Dim fi As New IO.FileInfo(path) ' Dim filename = fi.Name ' If filename = "" Then ' MsgBox("Dateiname konnte nicht ermittelt werden." & vbNewLine & path) ' Else ' If frmSendungAnhangImport.saveToDS(AvisoId, filename, path, "UID", "PDF", , , , SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) Then ' initAnhang() ' End If ' End If 'End If initAnhang() Case 1 : btnUIDPruef.BackgroundImage = My.Resources.del End Select Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try Me.Cursor = Cursors.Default End Sub Private Sub Button24_Click(sender As Object, e As EventArgs) Handles btnEORIPruef.Click MsgBox("Noch nicht verfügbar!") Exit sub Me.Cursor = Cursors.WaitCursor Try If lbleori_Pruef.Text.Replace("-", "").Trim = "" Then Me.Cursor = Cursors.Default : Exit Sub Dim url = "https://ec.europa.eu/taxation_customs/dds2/eos/eori_validation.jsp?Lang=de&EoriNumb=" & lbleori_Pruef.Text.Replace(" ", "") & "&Expand=true" Dim path = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(url) btnEORIPruef.BackgroundImage = My.Resources.fragezeichen MsgBox("1:" & path) If path <> "" AndAlso IO.File.Exists(path) Then 'ADD Dim fi As New IO.FileInfo(path) Dim filename = fi.Name If filename = "" Then MsgBox("Dateiname konnte nicht ermittelt werden." & vbNewLine & path) Else MsgBox("2:" & path) If frmSendungAnhangImport.saveToDS(AvisoId, filename, path, "EORI", "PDF", , , , SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) Then initAnhang() End If End If End If Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try Me.Cursor = Cursors.Default End Sub End Class