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 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 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 Next Else SENDUNG_LIST(CURRENT_INDEX).SAVE() 'Nur noch aktuelle Sendung speichern 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) 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 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 lblGrenze.Text = AVISO.Grenzstelle 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 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.FIRMA Case "VERAG" : cboFiliale._allowedValuesFreiText = {"4803", "4809", "4805", "4806", "4811", "5003", "5303", "5103", "4839"} Case "IMEX" : cboFiliale._allowedValuesFreiText = {"5501"} Case "ATILLA" : cboFiliale._allowedValuesFreiText = Nothing 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) 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(txtAvisierer, picWarnAvisierer) End Sub AddHandler txtFrachtfuehrer.PropertyChanged, Sub() btnFrachtfuehrer.BackgroundImage = IIf(txtFrachtfuehrer.KdNr > 0, My.Resources.person, My.Resources.personInaktiv) 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(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) 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(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(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 ' 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 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 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 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 picWarnAuftraggeber.Visible = False End Sub AddHandler txtAvisierer.TextChanged, Sub() picWarnAvisierer.Visible = False End Sub AddHandler txtFrachtfuehrer.TextChanged, Sub() picWarnFrachtfuehrer.Visible = False 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() End Sub Sub initWarnKd(kdSearch As VERAG_PROG_ALLGEMEIN.KdSearchBox, pic As PictureBox) Try pic.Visible = False 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) 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) 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 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 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) " 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 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, "") txtGewicht.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht, "") 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)) If VERAG_PROG_ALLGEMEIN.cAllgemein.AUTO_ABF_NR Then btnNeueAbfertigungNrVergeben.Visible = (SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr <= 0) lblSendungen.Text = (CURRENT_INDEX + 1) 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 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 pnlT1.Controls.Clear() usrcntl_NCTS.reset() usrcntl_FISKAL.reset() usrcntl_ATA.reset() ' 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, "")) 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.txtATA.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 initRbtn() cboAbfertigungsart.Focus() setQS() initAufschubBtn() ' poschanged() initButtons() ' initRbtn() lblAbfNrExists.Visible = checkDoppelAbfNr() ' initSpeditionbuch() initTab() initGesColliGewicht() If tbcntr.SelectedTab Is TabPage5 Then initDGVBelege() End If 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 ' Me.Enabled = True Me.Cursor = Cursors.Default ' GEAENDERT = False 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 '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_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) 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_ATANr = usrcntl_ATA.txtATA.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATCMRN_Fremd = usrcntl_ATA.txtATCMRNFremd.Text 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_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")) ' End Sub) ' trd.IsBackground = True : trd.Start() ElseIf sender Is Button8 Then SendungOptions.PrintSendung("PDF", SENDUNG_LIST(CURRENT_INDEX), AVISO, Printername) 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() ' 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 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(6)) + ' ','') + [Absender] as Absender,*/isnull(cast([EmpfängerKundenNr] as nvarchar(6)) + ' ','') + [Empfänger] as Empfänger,isnull(cast([VermittlerKundenNr] as nvarchar(6)) + ' ','') + [Vermittler] as Vermittler,isnull(cast([FrachtführerKundenNr] as nvarchar(6)) + ' ','') + [Frachtführer] as Frachtführer, " & " [LKW Kennzeichen],Sachbearbeiter FROM [Speditionsbuch] LEFT JOIN Abfertigungsarten ON Abfertigungsarten.Abfertigungsart=speditionsbuch.Abfertigungsart WHERE 1=1 " sqlstr &= " AND FilialenNr='" & 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 = 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 = 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 = aviso.Auftraggeber frmSendungsdetailsAbrechnung.absender = txtAbsender.Text frmSendungsdetailsAbrechnung.auftraggeber = txtAuftraggeber.Text frmSendungsdetailsAbrechnung.empfänger = txtEmpfaenger.Text frmSendungsdetailsAbrechnung.frachtführer = aviso.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) = Windows.Forms.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 = AVISO.Frächter frmBeleg.BELEG.Ordnungsbegriff = AVISO.Frächter 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 AVISO.Frächter_KdNr > 0 Then frmBeleg.kdFrachtf.KdNr = AVISO.Frächter_KdNr frmBeleg.kdkunde.KdNr = AVISO.Frächter_KdNr End If ' If sender Is Button13 Then frmBeleg.AddDusche(True) End Sub If frmBeleg.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then If frmBeleg.BELEG.gebucht Then If frmBeleg.BELEG.FilialenNr > 0 And frmBeleg.BELEG.AbfertigungsNr > 0 Then loadDataInLIST() If (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) = Windows.Forms.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 AVISO.Frächter_KdNr > 0 Then frmNacherfassungLeihgeld.kdFrachtführer.KdNr = AVISO.Frächter_KdNr Else frmNacherfassungLeihgeld.kdFrachtführer.Text = AVISO.Frächter 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 <> AVISO.Frächter And SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr <> AVISO.Frächter_KdNr) 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 = AVISO.Frächter_KdNr frmNacherfassungLeihgeld.kdFrachtführer.Text = AVISO.Frächter frmNacherfassungLeihgeld.cbxFrachter.Checked = True End If 'If sender Is Button13 Then frmNacherfassungLeihgeld.AddDusche(True) End Sub If frmNacherfassungLeihgeld.ShowDialog(Me) = Windows.Forms.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) 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) = Windows.Forms.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 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 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 End Sub Private Sub btnQS_MA_Click(sender As Object, e As EventArgs) Handles btnQS_MA.Click SENDUNG_LIST(CURRENT_INDEX).tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID setQS() End Sub Sub setQS() 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 THEN '***' ELSE [anh_Art] END as [anh_Art],[anh_Typ] 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 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_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter 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) = Windows.Forms.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(Windows.Forms.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 = AVISO.Frächter : kdnrFrm = AVISO.Frächter_KdNr ElseIf sender Is toolAvisierer Then ROLLE = "AVISIERER" : FirmaFrm = AVISO.Auftraggeber : kdnrFrm = AVISO.Auftraggeber_KdNr 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(Windows.Forms.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 = Windows.Forms.Cursor.Position ' f.Left = Me.PointToScreen(System.Windows.Forms.Cursor.Position).X ' f.Top = Me.PointToScreen(System.Windows.Forms.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) = Windows.Forms.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(Windows.Forms.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(System.Windows.Forms.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 VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value)}) 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", 1) & "
" 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(Windows.Forms.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 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 Private Sub NurÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NurÖffnenToolStripMenuItem.Click End Sub End Class