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 Imports DocumentFormat.OpenXml.Presentation Imports SDL Imports System.IO Imports EAGetMail Imports System.Globalization 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 Public SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) Public CURRENT_INDEX As Integer = -1 Dim closeWithoutSave = False ' Public WithEvents bsSendungen As New cEasyBinding("AVISO") 'fürs Binding Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim FormularArt = "" Dim loaded = False Public UNBOUND = False Dim kdnrEORI As Integer = -1 Dim usrcntl_NCTS As usrCntlSND_NCTSGestellungsadresse Dim usrcntl_FISKAL As usrCntlSND_NCTSFiskalEndempf Dim usrcntl_ATA As usrCntlSND_Handling Dim usrcntl_ATB As usrCntlSND_ATBGestellung Dim usrcntl_AUSFUHR As usrCntlSND_Ausfuhr Dim listOfTextconserven Dim isFailureShown As Boolean = False Dim cntVeranlagungsRg = 0 Sub New() InitializeComponent() Me.DoubleBuffered = True SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True) UpdateStyles() End Sub Sub New(AvisoId, SendungID) Try InitializeComponent() Me.AvisoId = AvisoId Me.SendungID = SendungID Me.DoubleBuffered = True SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True) UpdateStyles() Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try 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 '' In deinem Form (z.B. im Konstruktor nach InitializeComponent) 'Protected Overrides Sub OnHandleCreated(e As EventArgs) ' MyBase.OnHandleCreated(e) ' VERAG_PROG_ALLGEMEIN.cUI_Performance .EnableDoubleBuffer(Me) ' rekursiv auf Panels, etc. 'End Sub Sub SAVE_ABRECHUNG(Optional isDublicated = False) 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 If Not isDublicated Then 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) Try 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() Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub Function SAVE_ME(Optional saveAll = False, Optional isDublicated = False) As Boolean txtColli.Focus() 'DAMIT evtl. LEAVE Events ausgelöst werden txtGewicht.Focus() 'DAMIT evtl. LEAVE Events ausgelöst werden If AVISO IsNot Nothing Then If AVISO.Abgeschlossen Then 'MsgBox("Keine Änderung möglich - Akt bereits abgeschlossen.") Return True End If End If loadDataInLIST() doVeranlagungsValidation() If VALIDATE_ME() Then SAVE_ME = True If saveAll Then For Each s In SENDUNG_LIST If s.SAVE(False) = False Then SAVE_ME = False s.SAVE_HANDLING() 'derzeit ohne Funktion s.SAVE_VORKOSTEN() 'derzeit ohne Funktion Next Else SENDUNG_LIST(CURRENT_INDEX).SAVE(False) 'Nur noch aktuelle Sendung speichern SENDUNG_LIST(CURRENT_INDEX).SAVE_HANDLING() 'derzeit ohne Funktion SENDUNG_LIST(CURRENT_INDEX).SAVE_VORKOSTEN() 'derzeit ohne Funktion End If SAVE_ABRECHUNG(isDublicated) 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA ' Case "UNISPED" ' SQL.doSQL("UPDATE Aviso SET DakosyRef='" & txtDyRef.Text & "' WHERE AvisoId='" & AvisoId & "'", "AVISO") 'End Select End If End Function Sub doVeranlagungsValidation() cntVeranlagungsRg = SQL.DLookup("count(*)", "tblAvisoAnhaenge", "anh_SendungsId='" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & "' AND anh_art='VERANLANGUNG_RG' ", "AVISO", "0") End Sub Function VALIDATE_ME(Optional showErr As Boolean = True) As Boolean Try pnlValidation.Visible = False rtbValidierung.Text = "" 'Dim returnValue = True Dim FilialeAktFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(SENDUNG_LIST(CURRENT_INDEX).FilialenNr,, "") lblErr_AvisiererKdNr.Visible = False lblErr_EmpfKdNr.Visible = False lblErr_Auftrageber.Visible = False lblErr_FraechterKdNr.Visible = False If showErr Then lblFilialeAbfNr.Visible = False lblAbfArtLand.Visible = False End If If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then If cboFiliale._value = "" Then rtbValidierung.Text &= "Wählen Sie eine FilialenNr!" & vbNewLine : pnlValidation.Visible = True If showErr Then lblFilialeAbfNr.Visible = True : Return False End If If btnNeueAbfertigungNrVergeben.Visible OrElse txtAbfertigungsnummer.Text = "" Then rtbValidierung.Text &= "Wählen Sie eine Abfertigungs-Nummer!" & vbNewLine : pnlValidation.Visible = True If showErr Then lblFilialeAbfNr.Visible = True : Return False End If If cboAbfertigungsart._value = "" Then rtbValidierung.Text &= "Wählen Sie eine Abfertigungs-Art!" & vbNewLine : pnlValidation.Visible = True If showErr Then lblAbfArtLand.Visible = True : Return False End If If cboAbfertigungsLand._value = "" Then rtbValidierung.Text &= "Wählen Sie eine Abfertigungs-Land!" & vbNewLine : pnlValidation.Visible = True If showErr Then lblAbfArtLand.Visible = True : Return False End If If txtAuftraggeber.Text = "" Then rtbValidierung.Text &= "Wählen Sie einen Auftraggeber!" & vbNewLine : pnlValidation.Visible = True If showErr Then lblErr_Auftrageber.Visible = True : Return False End If End If '-------------------------------------------------- If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition Then Return True End If '-------------------------------------------------- If (txtAbsender.KdData_KUNDE_ERW IsNot Nothing AndAlso txtAbsender.KdData_KUNDE_ERW.Veranlagungskunde) Or (txtAuftraggeber.KdData_KUNDE_ERW IsNot Nothing AndAlso txtAuftraggeber.KdData_KUNDE_ERW.Veranlagungskunde) Then If cntVeranlagungsRg = 0 Then rtbValidierung.Text &= "- Keine Veranlagungs-Rechnung bei Veranlagungs-Kunde!" & vbNewLine : pnlValidation.Visible = True End If If (txtAbsender.KdData_KUNDE_ERW Is Nothing OrElse Not txtAbsender.KdData_KUNDE_ERW.Veranlagungskunde) And (txtAuftraggeber.KdData_KUNDE_ERW Is Nothing OrElse Not txtAuftraggeber.KdData_KUNDE_ERW.Veranlagungskunde) Then If cntVeranlagungsRg > 0 Then rtbValidierung.Text &= "- Veranlagungs-Rechnung aber kein Veranlagungs-Kunde!" & vbNewLine : pnlValidation.Visible = True End If '-------------------------------------------------- 'Aktuell noch nicht! Select Case CInt((SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID)) Case <= 0, 10 Case Else If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr, "0")) <= 0 Then rtbValidierung.Text &= "- Aviserer KdNr fehlt" & vbNewLine : pnlValidation.Visible = True ' lblErr_AvisiererKdNr.Visible = True : Return False If SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr <= 0 Then rtbValidierung.Text &= "- Empfänger KdNr fehlt" & vbNewLine : pnlValidation.Visible = True 'lblErr_EmpfKdNr.Visible = True : Return False If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr <= 0 Then rtbValidierung.Text &= "- Auftraggeber KdNr fehlt" & vbNewLine : pnlValidation.Visible = True 'lblErr_EmpfKdNr.Visible = True : Return False If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr, "0")) <= 0 Then rtbValidierung.Text &= "- Frächter KdNr fehlt" & vbNewLine : pnlValidation.Visible = True 'lblErr_FraechterKdNr.Visible = True : Return False End Select If Not SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition Then If SENDUNG_LIST(CURRENT_INDEX).FilialenNr = 5801 Or (SENDUNG_LIST(CURRENT_INDEX).FilialenNr.ToString = VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE And VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER) Then 'Firma=Cluster, zB Front-Office --> darf alle Firmen auswählen. Else If FilialeAktFirma <> "" Then If Panel6.Enabled Then 'wenn gesperrt, auch keine Prüfung! If Not txtAvisierer.checkFirma(FilialeAktFirma) Then Dim err = "- Avisierer: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden." rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True If showErr Then MsgBox(err) : Return False End If If Not txtAuftraggeber.checkFirma(FilialeAktFirma) Then Dim err = "- Auftraggeber: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden." rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True If showErr Then MsgBox(err) : Return False End If If Not txtEmpfaenger.checkFirma(FilialeAktFirma) Then Dim err = "- Empfänger: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden." rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True If showErr Then MsgBox(err) : Return False End If If Not txtFrachtfuehrer.checkFirma(FilialeAktFirma) Then Dim err = "- Frachtführer: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden." rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True If showErr Then MsgBox(err) : Return False End If If Not txtAbsender.checkFirma(FilialeAktFirma) Then Dim err = "- Absender: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden." rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True If showErr Then MsgBox(err) : Return False End If End If End If End If 'If UsrCntlSND_NCTSGestellungsadresse1.Controls.Count > 0 Then ' If UsrCntlSND_NCTSGestellungsadresse1.Controls(0).GetType.ToString = GetType(usrCntlSND_ATBGestellung).ToString Then ' If DirectCast(UsrCntlSND_NCTSGestellungsadresse1.Controls(0), usrCntlSND_ATBGestellung).cbxATBFakturieren.CheckState = CheckState.Indeterminate Then ' MsgBox("ATB-Gestllung: Bitte geben Sie an, ob die ATB Gestellung fakturiert (abgerechnet) werden sollte.") : Return False ' End If ' End If 'End If If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID = 44 Then ' ATB GEstellung If SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATBFakturieren Is Nothing Then Dim err = "- ATB-Gestellung: Bitte geben Sie an, ob die ATB Gestellung fakturiert (abgerechnet) werden sollte." rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True 'If showErr Then MsgBox(err) : Return False End If End If End If If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then If (cboVorpapier.Text.Trim <> String.Empty And txtVorpapierPos.Text.Trim = String.Empty) Or (cboVorpapier2.Text.Trim <> String.Empty And txtVorpapier2Pos.Text.Trim = String.Empty) Or (cboVorpapier3.Text.Trim <> String.Empty And txtVorpapier3Pos.Text.Trim = String.Empty) Then If showErr AndAlso MsgBox("Pre-Paper Position is not filled. Really continue?", vbYesNoCancel) <> vbYes Then Return False End If End If End If ' pnlValidation.Visible = rtbValidierung.Text <> "" Return True Catch ex As Exception Dim err = "interner Anzeigefehler" rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True isFailureShown = True End Try End Function Sub NEXT_SENDUNG() loadDataInLIST() If CURRENT_INDEX + 1 < SENDUNG_LIST.Count Then CURRENT_INDEX += 1 initDataBinding() ' initButtons() End If End Sub Sub PREV_SENDUNG() loadDataInLIST() If CURRENT_INDEX > 0 Then CURRENT_INDEX -= 1 initDataBinding() ' initButtons() End If End Sub Sub LAST_SENDUNG(Optional loadData As Boolean = True) If loadData Then loadDataInLIST() CURRENT_INDEX = SENDUNG_LIST.Count - 1 initDataBinding() 'initButtons() End Sub Sub FIRST_SENDUNG(Optional loadData As Boolean = True) If loadData Then loadDataInLIST() If SENDUNG_LIST.Count > 0 Then CURRENT_INDEX = 0 : initDataBinding() ': initButtons() End Sub Private Sub frmSendungsdetails_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown If e.KeyCode = Keys.PageDown Then ' BindingNavigatorMoveNextItem1.PerformClick() NEXT_SENDUNG() e.Handled = True e.SuppressKeyPress = True End If If e.KeyCode = Keys.PageUp Then ' BindingNavigatorMovePreviousItem1.PerformClick() PREV_SENDUNG() e.Handled = True e.SuppressKeyPress = True End If If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.P Then loadDataInLIST() Dim trd = New Threading.Thread(Sub() SendungOptions.PrintSendung("DIALOG", SENDUNG_LIST(CURRENT_INDEX), AVISO,,, SENDUNG_LIST.Count) End Sub) trd.IsBackground = True : trd.Start() e.Handled = True e.SuppressKeyPress = True End If Dim tmpsendId = -1 If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.D1 Then tmpsendId = 0 If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.D2 Then tmpsendId = 1 If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.D3 Then tmpsendId = 2 If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.D4 Then tmpsendId = 3 If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.D5 Then tmpsendId = 4 If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.D6 Then tmpsendId = 5 If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.D7 Then tmpsendId = 6 If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.D8 Then tmpsendId = 7 If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.D9 Then tmpsendId = 8 If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.D0 Then tmpsendId = 9 ' If e.Modifiers = Keys.Shift AndAlso e.KeyCode = Keys.D1 Then tmpsendId = 10 ' If e.Modifiers = Keys.Shift AndAlso e.KeyCode = Keys.D2 Then tmpsendId = 11 ' If e.Modifiers = Keys.Shift AndAlso e.KeyCode = Keys.D3 Then tmpsendId = 12 ' If e.Modifiers = Keys.Shift AndAlso e.KeyCode = Keys.D4 Then tmpsendId = 13 ' If e.Modifiers = Keys.Shift AndAlso e.KeyCode = Keys.D5 Then tmpsendId = 14 ' If e.Modifiers = Keys.Shift AndAlso e.KeyCode = Keys.D6 Then tmpsendId = 15 ' If e.Modifiers = Keys.Shift AndAlso e.KeyCode = Keys.D7 Then tmpsendId = 16 ' If e.Modifiers = Keys.Shift AndAlso e.KeyCode = Keys.D8 Then tmpsendId = 17 ' If e.Modifiers = Keys.Shift AndAlso e.KeyCode = Keys.D9 Then tmpsendId = 18 ' If e.Modifiers = Keys.Shift AndAlso e.KeyCode = Keys.D0 Then tmpsendId = 19 If e.Modifiers = Keys.Alt AndAlso e.KeyCode = Keys.D1 Then TabControl1.SelectedIndex = 0 If e.Modifiers = Keys.Alt AndAlso e.KeyCode = Keys.D2 Then TabControl1.SelectedIndex = 1 If e.Modifiers = Keys.Alt AndAlso e.KeyCode = Keys.D3 Then TabControl1.SelectedIndex = 2 If e.Modifiers = Keys.Alt AndAlso e.KeyCode = Keys.D4 Then TabControl1.SelectedIndex = 3 If e.Modifiers = Keys.Alt AndAlso e.KeyCode = Keys.D5 Then TabControl1.SelectedIndex = 4 If e.Modifiers = Keys.Alt AndAlso e.KeyCode = Keys.D6 Then TabControl1.SelectedIndex = 5 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 : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) : End Try e.Handled = True e.SuppressKeyPress = True End If End Sub Sub initGrenzstelle() If AVISO IsNot Nothing Then lblGrenze.Text = "" If AVISO.Grenzstelle.Replace("???", "").Replace("WO_FREMD", "") = "" Then 'lblGrenze.Text = SQL.getValueTxtBySql("Select basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & If(AVISO.Zollstelle, "") & "' ", "ATLAS") lblGrenze.Text = SQL.getValueTxtBySql("SELECT Code +' - ' + [Description] FROM tbl_DY_ZollDE_C0141_Zollstellen WHERE Code='" & If(AVISO.Zollstelle, "") & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()))", "FMZOLL") Else Dim GRZ As New VERAG_PROG_ALLGEMEIN.cGrenzstelle(AVISO.Grenzstelle) If GRZ IsNot Nothing AndAlso GRZ.hasEntry Then lblGrenze.Text = AVISO.Grenzstelle & vbNewLine & If(GRZ.grz_ZollamtDST, "") & " " & If(GRZ.grz_ZollamtBezeichnung, "") End If End If End If End Sub Private Sub frmSendungsdetails_Load(sender As Object, e As EventArgs) Handles Me.Load VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me) Button23.Visible = True btnWWberechnen.Visible = False If UNBOUND Then FlowLayoutPanel.Visible = False End If Try Panel5.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor Panel15.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor pnlFremd.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor cbxFremdspedition.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor AVISO = AvisoDAL.LesenAviso(AvisoId, "") txtWarenwertWaehrung.initSearchBox(Me.FindForm, " [Code] , [Description] As Land FROM tbl_DY_ZollDE_I0400_Waehrungsliste", {"Code", "Description"}, " (StartDate Is null Or StartDate< GETDATE()) And (EndDate Is null Or EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 150, 200) initGrenzstelle() initVorpapiere() If AVISO IsNot Nothing Then If AVISO.Abgeschlossen Then Label8.Visible = True End If 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' " TabControl1.SelectedTab = tbAnhang Case "VERIMEX" TabControl1.SelectedTab = tbAnhang 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_AUSFUHR = New usrCntlSND_Ausfuhr usrcntl_FISKAL = New usrCntlSND_NCTSFiskalEndempf 'usrcntl_ATA = New usrCntlSND_Handling(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZollanmeldungen", Me) Then TabControl1.TabPages.Remove(tbZollabfertigung) End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_ANHAENGE_QuickScan", Me) Then btnQuckScan.Visible = True End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Vorauskasse", Me) Then btnImportaviso.Visible = True btnVorauszahlung.Visible = True ' ToolStripMenuItem13.Enabled = True End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ATEZ_NCTS", Me) Then btnATEZNew.Visible = True End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DIGICUST", Me) Then Button19.Visible = True End If ContextMenuStrip3.Items.Clear() Dim dt = SQL.loadDgvBySql("SELECT [grz_Grenzstelle],grz_BezeichnungCBO FROM [AVISO].[dbo].[tblGrenzstelle] where grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "'", "AVISO") If dt IsNot Nothing Then dt.Rows.Add({"???", "??? - andere"}) For Each r As DataRow In dt.Rows Dim it As New ToolStripMenuItem it.Text = r("grz_BezeichnungCBO").ToString it.Tag = r("grz_Grenzstelle").ToString ContextMenuStrip3.Items.Add(it) AddHandler it.Click, Sub() If AVISO IsNot Nothing Then If it.Tag.ToString = "???" Then SAVE_ME() AVISO.Grenzstelle = "???" AvisoStatusFunctions.ummeldenAVISO(AVISO, it.Tag.ToString) cGlobal.Aktive_ID = AvisoId Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() Dim f As New frmEintragAviso f.ShowDialog(frmGrayOut) frmGrayOut.Close() AVISO = AvisoDAL.LesenAviso(AvisoId, "") Else SAVE_ME() AvisoStatusFunctions.ummeldenAVISO(AVISO, it.Tag.ToString) End If Me.initDataBinding() End If End Sub Next End If cboFiliale._allowFreiText = Nothing Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER Case "FRONTOFFICE" cboFiliale._allowFreiText = Nothing Case Else Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "VERAG" : cboFiliale._allowedValuesFreiText = {"4803", "4809", "4805", "4806", "4811", "5003", "5303", "5103", "4839", "7001"} Case "IMEX" : cboFiliale._allowedValuesFreiText = {"5501"} Case "UNISPED" : cboFiliale._allowedValuesFreiText = {"5601"} Case "AMBAR" : cboFiliale._allowedValuesFreiText = {"5701"} Case "ATILLA" : cboFiliale._allowedValuesFreiText = Nothing End Select End Select Select Case SENDUNG_LIST(CURRENT_INDEX).FilialenNr Case 4803, 4809 cboNiederlassung.Text = "SUB" If Not VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN" Then ToolStripMenuItem9.Enabled = False Case 4801 cboNiederlassung.Text = "SUW" Case 5003 cboNiederlassung.Text = "SBG" 'ANDERER SERVER!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Case 5103 cboNiederlassung.Text = "WAI" Case 5303 cboNiederlassung.Text = "SUB" If Not VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN" Then ToolStripMenuItem9.Enabled = False End Select 'bsSendungen. ' DsSendungen. Me.Height = Screen.FromRectangle(Me.Bounds).WorkingArea.Size.Height Me.Top = 0 ' initKdBoxEmpfaenger() Dim trd As Threading.Thread trd = New Threading.Thread(AddressOf initDrucker) trd.IsBackground = True trd.Start() 'initDrucker() txtAvisierer.initKdBox(Me, txtAvisiererKdNr) txtFrachtfuehrer.initKdBox(Me, txtFrachtfuehrerKdNr) AddHandler txtAvisierer.PropertyChanged, Sub() lblErr_AvisiererKdNr.Visible = False btnAvisierer.BackgroundImage = IIf(txtAvisierer.KdNr > 0, My.Resources.person, My.Resources.personInaktiv) SENDUNG_LIST(CURRENT_INDEX).tblSnd_Avisierer = txtAvisierer.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr = txtAvisierer.KdNr settoopTip(picKdAtrNr_Avisierer, txtAvisierer) txtKdAuftragsNrAvisierer.BackColor = Color.White If txtAvisierer.KdData_KUNDE_ERW IsNot Nothing AndAlso txtAvisierer.KdData_KUNDE_ERW.kde_VerwendetAuftragsNr Then txtKdAuftragsNrAvisierer.BackColor = Color.FromArgb(255, 255, 128) If txtKdAuftragsNrAvisierer.Text = "" Then txtKdAuftragsNrAvisierer.Text = If(txtAvisierer.KdData_KUNDE_ERW.kde_FixeAuftragsNr, "") End If initWarnKd_AndKdInfo(txtAvisierer, picWarnAvisierer) End Sub AddHandler txtFrachtfuehrer.PropertyChanged, Sub() lblErr_FraechterKdNr.Visible = False btnFrachtfuehrer.BackgroundImage = IIf(txtFrachtfuehrer.KdNr > 0, My.Resources.person, My.Resources.personInaktiv) SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtfuehrer = txtFrachtfuehrer.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr = txtFrachtfuehrer.KdNr settoopTip(picKdAtrNr_Fraechter, txtFrachtfuehrer) txtKdAuftragsNrFrachtfuehrer.BackColor = Color.White If txtFrachtfuehrer.KdData_KUNDE_ERW IsNot Nothing AndAlso txtFrachtfuehrer.KdData_KUNDE_ERW.kde_VerwendetAuftragsNr Then txtKdAuftragsNrFrachtfuehrer.BackColor = Color.FromArgb(255, 255, 128) If txtKdAuftragsNrFrachtfuehrer.Text = "" Then txtKdAuftragsNrFrachtfuehrer.Text = If(txtFrachtfuehrer.KdData_KUNDE_ERW.kde_FixeAuftragsNr, "") End If initWarnKd_AndKdInfo(txtFrachtfuehrer, picWarnFrachtfuehrer) End Sub txtEmpfaenger.initKdBox(Me, txtEmpfaengerKdNr) AddHandler txtEmpfaenger.PropertyChanged, Sub() lblErr_EmpfKdNr.Visible = False FlatButton1.BackgroundImage = IIf(txtEmpfaenger.KdNr > 0, My.Resources.person, My.Resources.personInaktiv) SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger = txtEmpfaenger.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr = txtEmpfaenger.KdNr ' If RadioButton2.Checked Then initKundenzolltarifChecked(txtEmpfaenger) If cboZolltarif._value = 2 Then initKundenzolltarifChecked(txtEmpfaenger) settoopTip(picKdAtrNr_Empfänger, txtEmpfaenger) fillUIDEORI(txtEmpfaenger) txtKdAuftragsNrEmpfaenger.BackColor = Color.White If txtEmpfaenger.KdData_KUNDE_ERW IsNot Nothing AndAlso txtEmpfaenger.KdData_KUNDE_ERW.kde_VerwendetAuftragsNr Then txtKdAuftragsNrEmpfaenger.BackColor = Color.FromArgb(255, 255, 128) If txtKdAuftragsNrEmpfaenger.Text = "" Then txtKdAuftragsNrEmpfaenger.Text = If(txtEmpfaenger.KdData_KUNDE_ERW.kde_FixeAuftragsNr, "") End If initWarnKd_AndKdInfo(txtEmpfaenger, picWarnEmpfaenger) End Sub AddHandler txtAbsender.PropertyChanged, Sub() FlatButton4.BackgroundImage = IIf(txtAbsender.KdNr > 0, My.Resources.person, My.Resources.personInaktiv) SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender = txtAbsender.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr = txtAbsender.KdNr ' If RadioButton1.Checked Then initKundenzolltarifChecked(txtAbsender) If cboZolltarif._value = 1 Then initKundenzolltarifChecked(txtAbsender) initWarnKd_AndKdInfo(txtAbsender, picWarnAbsender) End Sub AddHandler txtAuftraggeber.PropertyChanged, Sub() Try SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber = txtAuftraggeber.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr = txtAuftraggeber.KdNr FlatButton3.BackgroundImage = IIf(txtAuftraggeber.KdNr > 0, My.Resources.person, My.Resources.personInaktiv) If txtAuftraggeber.KdData_ADRESSEN IsNot Nothing Then ' txtEmpfaengerAnsprechpartner.Text = IIf(txtAuftraggeber.KdData_ADRESSEN.Ansprechpartner IsNot Nothing, txtAuftraggeber.KdData_ADRESSEN.Ansprechpartner, "") ' txtEmpfaengerBonitaet.Text = IIf(txtAuftraggeber.KdData_KUNDE.Bonität IsNot Nothing, txtAuftraggeber.KdData_KUNDE.Bonität, "") Else ' txtEmpfaengerAnsprechpartner.Text = "" ' txtEmpfaengerBonitaet.Text = "" End If ' lblAtrAufschubEustTxt.Visible = False lblAtrAufschubEust.Visible = False settoopTip(picKdAtrNr_Auftraggeber, txtAuftraggeber) ' If txtAuftraggeber.KdData_KUNDE IsNot Nothing Then ' If txtAuftraggeber.KdData_KUNDE.Aufschubkonto_EUSt IsNot Nothing And txtAuftraggeber.KdData_KUNDE.Aufschubkonto_EUSt <> "" Then 'lblAtrAufschubEust.Text = txtAuftraggeber.KdData_KUNDE.Aufschubkonto_EUSt btnAufschub_Atr.Text = SendungOptions.getAufschubKto(txtAuftraggeber.KdNr_value, "EUST") If btnAufschub_Atr.Text = "" Then btnAufschub_Atr.Text = "Aufschub" ' lblAtrAufschubEustTxt.Visible = True ' lblAtrAufschubEust.Visible = True ' btnAufschub_Atr.PerformClick() ' End If ' End If txtKdAuftragsNr.BackColor = Color.White If txtAuftraggeber.KdData_KUNDE_ERW IsNot Nothing AndAlso txtAuftraggeber.KdData_KUNDE_ERW.kde_VerwendetAuftragsNr Then txtKdAuftragsNr.BackColor = Color.FromArgb(255, 255, 128) If txtKdAuftragsNr.Text = "" Then txtKdAuftragsNr.Text = If(txtAuftraggeber.KdData_KUNDE_ERW.kde_FixeAuftragsNr, "") End If 'If RadioButton.Checked Then initKundenzolltarifChecked(txtAuftraggeber) If cboZolltarif._value = 0 Then initKundenzolltarifChecked(txtAuftraggeber) Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try initWarnKd_AndKdInfo(txtAuftraggeber, picWarnAuftraggeber) End Sub AddHandler txtEmpfaenger.TextChanged, Sub() ' If txtEmpfaenger.KdNr < 0 Then SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger") = txtEmpfaenger.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger = txtEmpfaenger.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr = -1 ' lblEmpfAufschubEustTxt.Visible = False lblEmpfAufschubEust.Visible = False ' If txtEmpfaenger.KdData_KUNDE IsNot Nothing Then ' If txtEmpfaenger.KdData_KUNDE.Aufschubkonto_EUSt IsNot Nothing And txtEmpfaenger.KdData_KUNDE.Aufschubkonto_EUSt <> "" Then 'lblEmpfAufschubEust.Text = txtEmpfaenger.KdData_KUNDE.Aufschubkonto_EUSt ' btnAufschub_Empf.Text = txtEmpfaenger.KdData_KUNDE.Aufschubkonto_EUSt btnAufschub_Empf.Text = SendungOptions.getAufschubKto(txtEmpfaenger.KdNr_value, "EUST") If btnAufschub_Empf.Text = "" Then btnAufschub_Empf.Text = "Aufschub" ' lblEmpfAufschubEustTxt.Visible = True ' lblEmpfAufschubEust.Visible = True ' btnAufschub_Atr.PerformClick() ' End If ' End If ' picWarnEmpfaenger.Visible = False initWarnKd_AndKdInfo(txtEmpfaenger, picWarnEmpfaenger) End Sub AddHandler txtAbsender.TextChanged, Sub() ' If txtAbsender.KdNr < 0 Then SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender") = txtAbsender.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender = txtAbsender.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr = -1 ' picWarnAbsender.Visible = False initWarnKd_AndKdInfo(txtAbsender, picWarnAbsender) End Sub AddHandler txtAuftraggeber.TextChanged, Sub() ' If txtAuftraggeber.KdNr < 0 Then SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber") = txtAuftraggeber.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber = txtAuftraggeber.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr = -1 initWarnKd_AndKdInfo(txtAuftraggeber, picWarnAuftraggeber) End Sub AddHandler txtAvisierer.TextChanged, Sub() 'picWarnAvisierer.Visible = False SENDUNG_LIST(CURRENT_INDEX).tblSnd_Avisierer = txtAvisierer.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr = -1 initWarnKd_AndKdInfo(txtAvisierer, picWarnAvisierer) End Sub AddHandler txtFrachtfuehrer.TextChanged, Sub() ' picWarnFrachtfuehrer.Visible = False SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtfuehrer = txtFrachtfuehrer.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr = -1 initWarnKd_AndKdInfo(txtFrachtfuehrer, picWarnFrachtfuehrer) End Sub txtAuftraggeber.initKdBox(Me, txtAuftraggeberKdNr) txtAbsender.initKdBox(Me, txtAbsenderKdNr) If SendungID > 0 Then For Each i In SENDUNG_LIST If i.tblSnd_SendungID = SendungID Then CURRENT_INDEX = SENDUNG_LIST.IndexOf(i) : Exit For End If Next ' Try : bsSendungen.Position = bsSendungen.Find("tblSnd_SendungID", SendungID) ' Catch ex As Exception : End Try End If loadContextMenudynMailvorlagen() If VERAG_PROG_ALLGEMEIN.cAllgemein.AUTO_ABF_NR Then btnNeueAbfertigungNrVergeben.Visible = True Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "AMBAR" AMBARZollbeschauToolStripMenuItem.Visible = True AMBARZollbeschauNEUToolStripMenuItem.Visible = True End Select initDataBinding() Catch ex As Exception closeWithoutSave = True VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Laden der Sendungsdaten.") Me.Close() End Try End Sub Private Sub kdAvisierer_KeyDown(sender As Object, e As KeyEventArgs) Handles txtAuftraggeber.KeyDown If e.Modifiers = Keys.Control And e.KeyCode = Keys.D0 Then LinkLabel1_LinkClicked(LinkLabel1, New EventArgs) End If End Sub Private Sub txtEmpfaenger_KeyDown(sender As Object, e As KeyEventArgs) Handles txtEmpfaenger.KeyDown If e.Modifiers = Keys.Control And e.KeyCode = Keys.D0 Then lklAuftraggeber_LinkClicked(lklAuftraggeber, New EventArgs) End If End Sub Private Sub txtAbsender_KeyDown(sender As Object, e As KeyEventArgs) Handles txtAbsender.KeyDown If e.Modifiers = Keys.Control And e.KeyCode = Keys.D0 Then LinkLabel2_LinkClicked(LinkLabel2, New EventArgs) End If End Sub Private Sub txtFrachtfuehrer_KeyDown(sender As Object, e As KeyEventArgs) Handles txtFrachtfuehrer.KeyDown If e.Modifiers = Keys.Control And e.KeyCode = Keys.D0 Then LinkLabel4_LinkClicked(LinkLabel4, New EventArgs) End If End Sub Sub fillUIDEORI(kdSB As VERAG_PROG_ALLGEMEIN.KdSearchBox) btnEORIPruef.Visible = False btnUIDPruef.Visible = False txtUIDPruef.Text = "-" txteori_Pruef.Text = "-" If kdSB IsNot Nothing Then If kdSB.KdData_KUNDE IsNot Nothing AndAlso kdSB.KdData_KUNDE.EORITIN IsNot Nothing Then txteori_Pruef.Text = kdSB.KdData_KUNDE.EORITIN ' & If(kdSB.KdData_KUNDE.EORITIN_NL, "") kdnrEORI = kdSB.KdData_KUNDE.KundenNr btnEORIPruef.Visible = True End If If kdSB.KdData_ADRESSEN IsNot Nothing AndAlso kdSB.KdData_ADRESSEN.UstIdKz IsNot Nothing AndAlso kdSB.KdData_ADRESSEN.UstIdNr IsNot Nothing Then txtUIDPruef.Text = kdSB.KdData_ADRESSEN.UstIdKz & kdSB.KdData_ADRESSEN.UstIdNr btnUIDPruef.Visible = True End If End If End Sub Sub settoopTip(pic As PictureBox, kdTXT As VERAG_PROG_ALLGEMEIN.KdSearchBox) If kdTXT.KdData_KUNDE_ERW IsNot Nothing AndAlso kdTXT.KdData_KUNDE_ERW.kde_InfoAuftragsNr IsNot Nothing AndAlso kdTXT.KdData_KUNDE_ERW.kde_InfoAuftragsNr <> "" Then ToolTip.SetToolTip(pic, kdTXT.KdData_KUNDE_ERW.kde_InfoAuftragsNr) pic.Visible = True pic.Cursor = Cursors.Hand pic.Tag = kdTXT.KdData_KUNDE_ERW.kde_InfoAuftragsNr Else ToolTip.SetToolTip(pic, "") pic.Visible = False pic.Cursor = Cursors.Default pic.Tag = "" End If End Sub Sub initWarnKd_AndKdInfo(kdSearch As VERAG_PROG_ALLGEMEIN.KdSearchBox, pic As PictureBox) Try 'If loaded Then initKdInfo(txtEmpfaenger.KdNr) 'pic.Visible = False 'If txtEmpfaenger.KdNr > 0 Then If loaded Then initKdInfo(kdSearch.KdNr) pic.Visible = False If kdSearch.KdNr > 0 Then ToolTip.SetToolTip(pic, "") Dim InfoText = "" If kdSearch.KdData_ADRESSEN IsNot Nothing Then If kdSearch.KdData_ADRESSEN.Auswahl = "I" Then InfoText &= "KUNDE INAKTIV!" & vbNewLine & vbNewLine End If End If If kdSearch.KdData_KUNDE IsNot Nothing Then If kdSearch.KdData_KUNDE.Abfertigungsverbot Then pic.Visible = True Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "VERAG" : InfoText &= "ACHTUNG!" & vbNewLine Case Else InfoText &= "ABFERTIGUNGSVERBOT!" & vbNewLine End Select If If(kdSearch.KdData_KUNDE.Abfertigungsverbot_Grund, "") <> "" Then InfoText &= kdSearch.KdData_KUNDE.Abfertigungsverbot_Grund & vbNewLine End If End If 'BESONDERHEITEN HERVORGEHOBEN Dim BH_LIST As New VERAG_PROG_ALLGEMEIN.cKundenBesonderheiten_LIST(kdSearch.KdData_KUNDE.KundenNr, Nothing, "'ZOLL','VERIMEX'") If BH_LIST.LIST IsNot Nothing AndAlso BH_LIST.LIST.Count > 0 Then pic.Visible = True InfoText &= "BESONDERHEITEN:" & vbNewLine For Each BH In BH_LIST.LIST InfoText &= "(" & BH.kdb_kategorie & ") " & BH.kdb_text & vbNewLine Next End If End If ToolTip.SetToolTip(pic, InfoText.Trim) End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub Sub initKundenzolltarifChecked(c As VERAG_PROG_ALLGEMEIN.KdSearchBox) ' lblKundenZolltarifVorhanden.Visible = ADMIN.getValueTxtBySql("SELECT CASE WHEN COUNT(*)>0 THEN 1 ELSE 0 END FROM tblZollArtikel WHERE KundenNr=" & c.KdNr, "FMZOLL") initZollTarife(c.KdNr) End Sub Private Sub frmSendungsdetailsShown(sender As Object, e As EventArgs) Handles Me.Shown If False Then 'VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then Dim u As New SDL.usrCntlATLAS_NCTS(DAKOSY_Worker.cDakosy_ZollanmeldungenArten.T2, AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, Now.ToString("yy"), "") u.Dock = DockStyle.Fill tbZollabfertigung.Controls.Clear() tbZollabfertigung.Controls.Add(u) Else 'TabControl1.TabPages.Remove(tbZollabfertigung) End If If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmSendungsdetails", Me) And Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmSendungsdetailsNEU", Me) Then Me.Close() End If If TabControl1.SelectedTab Is tbKundenInfo Then txtAuftraggeber.Focus() ' Damit in tbKundeninfo ausgewählt 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 VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub Sub initButtons() If UNBOUND Then Exit Sub ' 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 True Then 'SAVE_ME() Then ' Änderungen speichern Dim sendBez = SENDUNG_LIST(b.value).tblSnd_PosUnterNr & ". " sendBez &= ADMIN.getValueTxtBySql("SELECT Abfertigungsbezeichnung FROM Abfertigungsarten WHERE [Abfertigungsart]='" & SENDUNG_LIST(b.value).tblSnd_Abfertigungsart_ID & "'", "FMZOLL") sendBez &= " " & loadValue(SENDUNG_LIST(b.value).FilialenNr, "") & "/" & loadValue(SENDUNG_LIST(b.value).AbfertigungsNr, "") If If(SENDUNG_LIST(b.value).tblSnd_Empfaenger, "") <> "" Then sendBez &= " (" & loadValue(SENDUNG_LIST(b.value).tblSnd_Empfaenger, "") & ")" If SENDUNG_LIST(send.value).DELETE() Then 'Löschen der Betroffenen Sendung AvisoStatusFunctions.insertVermerkAllg(AvisoId, "Die Sendung '" & sendBez & "' wurde gelöscht.", 46) End If VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, CURRENT_INDEX, AvisoId) 'Alle Sendungen werden erneut geladen initDataBinding() If send.value > 0 Then CURRENT_INDEX = send.value - 1 Else CURRENT_INDEX = 0 End If End If initDataBinding() initPosNr() initButtons() 'initButtons() End If End Sub AddHandler b.RIGHTCLICK_COPYDATATO, Sub(fromIndex, toIndex) CopyDataFrom(fromIndex, toIndex) End Sub AddHandler b.RIGHTCLICK_DUPLICATE, Sub(fromIndex) Duplicate(fromIndex) End Sub FlowLayoutPanel.Controls.Add(b) b.Visible = True ' MsgBox(FlowLayoutPanel.Height) Next Dim b_add As New VERAG_PROG_ALLGEMEIN.FlatButton b_add.Visible = False b_add.FlatAppearance.BorderSize = 0 b_add.TextAlign = ContentAlignment.MiddleCenter b_add.Size = New Size(30, 30) b_add.Margin = New Padding(2, 22, 0, 0) b_add.Text = "+" 'b_add.Font = New Font() 'b_add.Font.FontFamily, 14, FontStyle.Bold) b_add.BackColor = Color.LightGray() AddHandler b_add.Click, Sub(send As Object, ev As EventArgs) If AVISO.Abgeschlossen Then Exit Sub ' Dim currentHisId = 0 ' Try : currentHisId = AVISO_newDataSet.tblSendungen.Select("tblSnd_PosUnterNr=MAX(tblSnd_PosUnterNr)")(0).Item("tblSnd_PosUnterNr") : Catch : End Try ' currentHisId += 1 Dim filiale_tmp As Integer = 0 Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "IMEX" : filiale_tmp = 5501 Case "UNISPED" : filiale_tmp = 5601 Case "AMBAR" : filiale_tmp = 5701 Case "FRONTOFFICE" : filiale_tmp = 0 '5801 Case "VERIMEX" : filiale_tmp = 0 '6001 Case Else Select Case AVISO.Grenzstelle Case "SUB" : filiale_tmp = 4803 Case "SBG" : filiale_tmp = 5003 Case "WAI" : filiale_tmp = 5103 Case "NKD" : filiale_tmp = 5303 Case "SFD" : filiale_tmp = 4839 End Select End Select ' loadDataInLIST() If SAVE_ME() Then 'aktuelle Änderungen sichern ' Dim abfnr_tmp As Integer = IIf(filiale_tmp > 0, ADMIN.getMaxPosNrIncrement(filiale_tmp, Now.Year), 0) Dim NEW_SND As New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SENDUNG_LIST.Count + 1, filiale_tmp, Nothing, 0, 0) 'Neue Sendung erstellen ' SENDUNG_LIST.Add(NEW_SND) NEW_SND.SAVE(False) '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 'diese Werte sollen beim dublizieren übernommen werden 'newRow.tblSnd_Gewicht = "" 'newRow.tblSnd_Colli = "" newRow.tblSnd_VG_MA = Nothing newRow.tblSnd_Vorgeschrieben = Nothing newRow.tblSnd_QS_MA = Nothing newRow.tblSnd_Vorbereitet = Nothing newRow.tblSnd_AbklaerungTR = Nothing newRow.tblSnd_AbklaerungTR_MA = Nothing newRow.tblSnd_AbfertigungTR = Nothing newRow.tblSnd_AbfertigungTR_MA = Nothing newRow.tblSnd_SpeditionsbuchEingetragen = False newRow.tblSnd_SendungID = -1 newRow.ABRECHNUNG.Clear() SENDUNG_LIST.Add(newRow) SAVE_ME(, True) LAST_SENDUNG() End Sub Public Sub CopyDataFrom(indexFrom, indexTo) Exit Sub SAVE_ME() Dim fromRow As DataRow = Nothing 'AVISO_newDataSet.tblSendungen.Rows(indexFrom) Dim toRow As DataRow = Nothing ' AVISO_newDataSet.tblSendungen.Rows(indexTo) Dim c As DataColumnCollection = Nothing ' AVISO_newDataSet.tblSendungen.Columns For i As Integer = 0 To (c.Count - 1) If c(i).ColumnName <> "tblSnd_SendungID" And c(i).ColumnName <> "tblSnd_PosUnterNr" And c(i).ColumnName <> "FilialenNr" And c(i).ColumnName <> "AbfertigungsNr" And c(i).ColumnName <> "UnterNr" Then toRow.Item(i) = fromRow.Item(i) End If Next ' AVISO_newDataSet.tblSendungen.Rows.Add(toRow) ' initButtons() LAST_SENDUNG() End Sub Sub initZollTarife(kdnr_tmp) ' MsgBox("DA") pnlKundenZolltarif.Controls.Clear() ' Dim kdnr_tmp = SENDUNG_LIST(CURRENT_INDEX).") If Not IsNumeric(kdnr_tmp) Or kdnr_tmp <= 0 Then lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Visible = True Exit Sub Else lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Visible = False End If Dim usrcntl As New SDL.usrCntlZollArtikel usrcntl.kdnr = CInt(kdnr_tmp) usrcntl.benutzeransicht = True usrcntl.Panel1.Visible = False usrcntl.pnlOptions1.Visible = True 'usrcntl.btnDatenUebernehmen.Visible = False usrcntl.dgvZollArtikel.BackgroundColor = Color.White ' AddHandler usrcntl.btnDatenUebernehmen.Click, Sub() ' If usrcntl.dgvZollArtikel.SelectedRows.Count > 0 Then ' Dim tmp As String = usrcntl.dgvZollArtikel.SelectedRows(0).Cells("zollArt_Warencodenummer").Value 'zollArt_Kurzbezeichnung() ' zollArt_Warenbeschreibung() ' End If ' End Sub usrcntl.displayFilter = True usrcntl.Dock = DockStyle.Fill usrcntl.parentKundenblatt = False pnlKundenZolltarif.Controls.Add(usrcntl) Label22.Visible = (usrcntl.dgvZollArtikel.RowCount = 0) End Sub Function loadValue(o As Object, o2 As Object) As Object 'If <> Nothing Then Return o If o IsNot Nothing Then Return o Else Return o2 End Function Dim allowChange = True Public Sub initDataBinding() 'Me.Enabled = False Me.Cursor = Cursors.WaitCursor loaded = False Try SuspendLayout() lblAbfNr_Err.Visible = False ' lblAtrAufschubEustTxt.Visible = False ' lblEmpfAufschubEustTxt.Visible = False 'KundenAtrNr: cboAbfertigungsLand.fillWithSQL("SELECT [AbfertigungsLand],AbfertigungsLand FROM [AbfertigungsLaender] WHERE Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' OR (Firma is null and cluster is null)", False, "FMZOLL", True) Dim whereFiliale = "" 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA ' Case "VERAG" ' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG ' Case "SUB" ' If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Or VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "FISKAL" Then ' whereFiliale = " AND FilialenNr IN (4803,4805,4811,5003,5303,5103,4839) " ' Else ' whereFiliale = " AND FilialenNr IN (4803,5003,4805,4811,5103,5303,4839) " '5103,5303 weil sonst keine WDH angezeigt ' End If ' Case "NKD" ' whereFiliale = " AND FilialenNr IN (5303,5003,4811,4805,5103,4803,4839) " ' Case "WAI" ' whereFiliale = " AND FilialenNr IN (5103,5003,4811,4803,5303,4839) " '4809,4803,5303, weil sonst keine SUB angezeigt ' Case "SBG" ' whereFiliale = " AND FilialenNr IN (5303,5003,4811,4805,5103,4803,4839) " ' End Select ' Case "ATILLA" ' whereFiliale = " AND FilialenNr IN (4801) " ' Case "IMEX" ' whereFiliale = " AND FilialenNr IN (5501) " ' Case Else ' whereFiliale = " AND FilialenNr IN (" & VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE & ") " 'End Select Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER Case "FRONTOFFICE" whereFiliale = " AND FilialenNr IN (4803,4805,4811,5003,5303,5103,4839,5501,5601,5701,5801,7001) " If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then whereFiliale = " AND FilialenNr IN (4803,4805,4811,5003,5303,5103,4839,5501,5601,5801,5701,7001) " ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then whereFiliale = " AND FilialenNr IN (4801,4802,4803,4805,4811,5003,5303,5103,4839,5501,5601,5801,5701,7001) " End If Case Else Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "ATILLA" whereFiliale = " AND FilialenNr IN (4801,4802) " Case "AMBAR" whereFiliale = " AND FilialenNr IN (5701) " Case Else whereFiliale = " AND FilialenNr IN ('" & VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE & "') " End Select End Select cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' " & whereFiliale & " ORDER BY FilialenNr ", True, "FMZOLL", True) cboFremdsped.fillWithSQL("SELECT fremd_kurzBezeichnung FROM tblFremdSpeditionen WHERE Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ORDER BY fremd_kurzBezeichnung ", False, "AVISO", True) If CURRENT_INDEX < 0 Then Me.Enabled = True Me.Cursor = Cursors.Default Exit Sub End If VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID cbxFremdspedition.Checked = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition cboFremdsped.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_FremdspeditionText If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition Then If SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr > -1 Then txtFremdEmpf.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr Else txtFremdEmpf.KdNr_value = -1 txtFremdEmpfKdNR.Text = "" txtFremdEmpf.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger 'IIf(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger Is Nothing, "", SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger) End If End If txtFrachtkostenEU.Text = If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtkosten, "") txtFrachtkostenNichtEU.Text = If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtkostenNichtEU, "") txtFrachtkostenGesamt.Text = If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtkostenGesamt, "") 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" cboAbfertigungsLand._value = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Zollsystem_Land, String.Empty) cboAbfertigungsart._value = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID, String.Empty) ' checkinitOLDAbfertigungsart(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID) --> weiter unten ' 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) txtAnzahlPos.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_anzahlPOS, String.Empty) ' txtAuftraggeber, "KdNr = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr", String.Empty) ' txtAbsender, "KdNr = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr", String.Empty) rtbAnmerkung.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Anmerkung, "") rtbAnmerkungDispoliste.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AnmerkungDispoliste, "") txtColli.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Colli, "").ToString.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen txtGewicht.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht, "").ToString.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen rtbWarenbezeichnung.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenbezeichnung, "") cbxSpedBuch.Checked = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen, False) ' cntlBar.Checked = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_bar, False) ' txtBarBelegNr.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_barBeleg, "") ' txtBarBelegBetrag._value = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_betrag, String.Empty) txtBARzuKassieren._value = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_BARzuKassieren, String.Empty) ' cboAufschub._value = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub, "") cboZolltarif.changeItem(loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AngabeZolltarif, 0)) If txtDyRef.Visible Then txtDyRef.Text = If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_DakosyRef, "") Else txtDyRef.Text = "" End If If VERAG_PROG_ALLGEMEIN.cAllgemein.AUTO_ABF_NR Then btnNeueAbfertigungNrVergeben.Visible = (SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr <= 0) lblSendungen.Text = (CURRENT_INDEX + 1) Me.Text = "Sendungsdetails - " & AVISO.LKW_Nr 'If AVISO.Auftraggeber_KdNr > -1 Then ' txtAvisierer.KdNr = AVISO.Auftraggeber_KdNr 'Else ' txtAvisierer.KdNr_value = -1 ' txtAvisiererKdNr.Text = "" ' txtAvisierer.Text = AVISO.Auftraggeber 'End If 'If AVISO.Frächter_KdNr > -1 Then ' txtFrachtfuehrer.KdNr = AVISO.Frächter_KdNr 'Else ' txtFrachtfuehrer.KdNr_value = -1 ' txtFrachtfuehrerKdNr.Text = "" ' txtFrachtfuehrer.Text = AVISO.Frächter 'End If fillUIDEORI(Nothing) If SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr > -1 Then txtEmpfaenger.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr Else txtEmpfaenger.KdNr_value = -1 txtEmpfaengerKdNr.Text = "" txtEmpfaenger.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger 'IIf(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger Is Nothing, "", SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger) End If If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr > -1 Then txtAuftraggeber.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr Else txtAuftraggeber.KdNr_value = -1 txtAuftraggeberKdNr.Text = "" txtAuftraggeber.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber End If If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr > -1 Then txtAbsender.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr Else txtAbsender.KdNr_value = -1 txtAbsenderKdNr.Text = "" txtAbsender.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender End If ' txtAvisiererKdNr.Text = "" If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr > -1 Then txtAvisierer.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr Else txtAvisierer.KdNr_value = -1 txtAvisiererKdNr.Text = "" txtAvisierer.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Avisierer 'IIf(SENDUNG_LIST(CURRENT_INDEX).tblSnd_avisierer Is Nothing, "", SENDUNG_LIST(CURRENT_INDEX).tblSnd_avisierer) End If ' txtFrachtfuehrer.Text = "" If SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr > -1 Then txtFrachtfuehrer.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr Else txtFrachtfuehrer.KdNr_value = -1 txtFrachtfuehrerKdNr.Text = "" txtFrachtfuehrer.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtfuehrer 'IIf(SENDUNG_LIST(CURRENT_INDEX).tblSnd_frachtfuehrer Is Nothing, "", SENDUNG_LIST(CURRENT_INDEX).tblSnd_frachtfuehrer) End If setVorpapiere() doVeranlagungsValidation() initFraechterAvisererFromAkt() ''Übergangsphase Aviso/Sendung 'If txtAvisierer.Text = "" And txtAvisierer.Enabled And (VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX") Then ' If AVISO.Auftraggeber_KdNr > -1 Then ' If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromKdNr(AVISO.Auftraggeber_KdNr) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then ' txtAvisierer.KdNr = AVISO.Auftraggeber_KdNr ' End If ' Else ' txtAvisierer.KdNr_value = -1 ' txtAvisiererKdNr.Text = "" ' txtAvisierer.Text = AVISO.Auftraggeber ' End If 'End If ''Übergangsphase Aviso/Sendung 'If txtFrachtfuehrer.Text = "" And txtFrachtfuehrer.Enabled And VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then ' If AVISO.Frächter_KdNr > -1 Then ' If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromKdNr(AVISO.Frächter_KdNr) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then ' txtFrachtfuehrer.KdNr = AVISO.Frächter_KdNr ' End If ' Else ' txtFrachtfuehrer.KdNr_value = -1 ' txtFrachtfuehrerKdNr.Text = "" ' txtFrachtfuehrer.Text = AVISO.Frächter ' End If 'End If pnlT1.Controls.Clear() usrcntl_NCTS.reset() usrcntl_AUSFUHR.reset() usrcntl_FISKAL.reset() usrcntl_ATA = New usrCntlSND_Handling(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) 'usrcntl_ATB = New usrCntlSND_ATBGestellung(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) usrcntl_ATB = New usrCntlSND_ATBGestellung(AVISO, SENDUNG_LIST(CURRENT_INDEX)) AddHandler usrcntl_ATA.HandlingWerte, Sub(colli, gewicht, anzahlSendungen) txtColli.Text = colli txtGewicht.Text = gewicht txtAnzahl.Text = anzahlSendungen End Sub 'AddHandler usrcntl_ATB.HandlingWerte, Sub(colli, gewicht) ' txtColli.Text = colli ' txtGewicht.Text = gewicht ' End Sub ' txtT1Verzollungsadresse.Text = "" Select Case SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID Case 5, 6, 18, 32, 24, 33, 34, 37, 40, 42 If (SENDUNG_LIST(CURRENT_INDEX).NCTS_ngaId IsNot Nothing) Then usrcntl_NCTS.NCTS_GA = New cNCTSGestellungsadressen(SENDUNG_LIST(CURRENT_INDEX).NCTS_ngaId) usrcntl_NCTS.setValues() End If 'trotzdem überschreiben: usrcntl_NCTS.txtT1Verzollungsadresse.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_NCTSVerzollungsadresse, "") usrcntl_NCTS.txtT1VerzollungsadresseStrasse.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Strasse, "") usrcntl_NCTS.txtT1VerzollungsadressePlz.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_PLZ, "") usrcntl_NCTS.txtT1VerzollungsadresseOrt.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Ort, "") usrcntl_NCTS.sbT1VerzollungsadresseLand.SET_VALUE(loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Land, "")) usrcntl_NCTS.txtT1VerzollungsadresseEORI.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_EORI, "") usrcntl_NCTS.txtT1VerzollungsadresseEORI_NL.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_EORI_NL, "") usrcntl_NCTS.txtT1VerzollungsadresseAnspr.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Ansprechpartner, "") usrcntl_NCTS.txtT1VerzollungsadresseBestimmungszollstelle.SET_VALUE(loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Bestimmungszollstelle, "")) usrcntl_NCTS.txtT1VerzollungsadresseATANr.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATANr, "") usrcntl_NCTS.cbxNCTSAufDispo.Checked = SENDUNG_LIST(CURRENT_INDEX).tblSnd_NCTSaufDISPO pnlT1.Controls.Add(usrcntl_NCTS) Case 26, 28 usrcntl_FISKAL.rtbFiskalEndempf.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_EUFiskalEmpfaenger, "") pnlT1.Controls.Add(usrcntl_FISKAL) Case 7 If (SENDUNG_LIST(CURRENT_INDEX).NCTS_ngaId IsNot Nothing) Then usrcntl_AUSFUHR.NCTS_GA = New cNCTSGestellungsadressen(SENDUNG_LIST(CURRENT_INDEX).NCTS_ngaId) usrcntl_AUSFUHR.setValues() End If 'trotzdem überschreiben: usrcntl_AUSFUHR.txtT1Verzollungsadresse.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_NCTSVerzollungsadresse, "") usrcntl_AUSFUHR.txtT1VerzollungsadresseStrasse.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Strasse, "") usrcntl_AUSFUHR.txtT1VerzollungsadressePlz.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_PLZ, "") usrcntl_AUSFUHR.txtT1VerzollungsadresseOrt.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Ort, "") usrcntl_AUSFUHR.sbT1VerzollungsadresseLand.SET_VALUE(loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Land, "")) usrcntl_AUSFUHR.txtT1VerzollungsadresseEORI.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_EORI, "") usrcntl_AUSFUHR.txtT1VerzollungsadresseEORI_NL.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_EORI_NL, "") usrcntl_AUSFUHR.txtT1VerzollungsadresseAnspr.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Ansprechpartner, "") usrcntl_AUSFUHR.txtT1VerzollungsadresseBestimmungszollstelle.SET_VALUE(loadValue(SENDUNG_LIST(CURRENT_INDEX).NCTS_Bestimmungszollstelle, "")) usrcntl_AUSFUHR.cbxNCTSAufDispo.Checked = SENDUNG_LIST(CURRENT_INDEX).tblSnd_NCTSaufDISPO pnlT1.Controls.Add(usrcntl_AUSFUHR) Case 23 usrcntl_ATA.txtATAold.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATANr, "") usrcntl_ATA.txtATCMRNFremd.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATCMRN_Fremd, "") pnlT1.Controls.Add(usrcntl_ATA) Case 44 usrcntl_ATB.txtATBT1.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATB_T1, "") usrcntl_ATB.txtATBNr.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATB_Nr, "") If SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATBFakturieren Is Nothing Then usrcntl_ATB.cbxATBFakturieren.CheckState = CheckState.Indeterminate Else If CBool(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATBFakturieren) Then usrcntl_ATB.cbxATBFakturieren.CheckState = CheckState.Checked Else usrcntl_ATB.cbxATBFakturieren.CheckState = CheckState.Unchecked End If End If pnlT1.Controls.Add(usrcntl_ATB) btnWWberechnen.Visible = True End Select cboAbfertigungsart_SelectedIndexChanged(cboAbfertigungsart, New EventArgs) txtKdAuftragsNr.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_KdAuftragsNr txtKdAuftragsNrAvisierer.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_KdAuftragsNrAvisierer txtKdAuftragsNrEmpfaenger.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_KdAuftragsNrEmpfaenger txtKdAuftragsNrFrachtfuehrer.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_KdAuftragsNrFrachtfuehrer lblZollsysErr.Text = "" cboZollsystem.changeItem("") cboZollsystem2.changeItem("") txtAtlasBezNrEZA.Text = "" txtAtlasBezNrEZA2.Text = "" txtAtlasBezNrNCTS.Text = "" txtAtlasBezNrNCTS2.Text = "" cboSachbearbeiter.changeItem("") cbxNCTST.Checked = False pnlEAviso.Visible = (SENDUNG_LIST(CURRENT_INDEX).VORSYSTEM IsNot Nothing) lblVorsystem.Text = If(SENDUNG_LIST(CURRENT_INDEX).VORSYSTEM, "") lblVorsystem.Visible = pnlEAviso.Visible initRbtn() cboAbfertigungsart.Focus() setQS() initAufschubBtn() ' poschanged() initButtons() ' initRbtn() lblAbfNrExists.Visible = checkDoppelAbfNr() ' initSpeditionbuch() initTab() initGesColliGewicht() ' initKdInfo(-1) initGrenzstelle() initSND_CHAT(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) checkinitOLDAbfertigungsart(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID) SENDUNG_LIST(CURRENT_INDEX).LOAD_VORKOSTEN() If tbcntr.SelectedTab Is tbBAR Then initDGVBelege() ElseIf tbcntr.SelectedTab Is tbVorkosten Then initDGVVorkosten() End If sperrePanel() LOAD_ABRECHUNG() 'STARK Spezial: '------------------------- If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr = 714875 Then If txtAuftraggeber.Text = "" Then txtAuftraggeber.KdNr = 714875 If txtAbsender.Text = "" Then txtAbsender.KdNr = 719810 If txtEmpfaenger.Text = "" Then txtEmpfaenger.KdNr = 714875 If txtAuftraggeber.Text = "" Then txtAuftraggeber.KdNr = 714875 If SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG.Count = 0 Then cntlAuftr_Zoll.lbl.Text = "X" cntlAuftr_Eust.lbl.Text = "X" cntlAuftr_Abf.lbl.Text = "X" End If End If '------------------------- Panel2.MinimumSize = New Size(0, FlowLayoutPanel.Height) '+ pnlheader.Height) ' damit das S***** Flowlayoutpanel nicht abgeschnitten wird... 'SAVE_ME ??????!!!!!!! Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try ResumeLayout() loaded = True ' Me.Enabled = True Me.Cursor = Cursors.Default ' GEAENDERT = False End Sub Sub initVorpapiere() cboVorpapier.Items.Clear() cboVorpapier2.Items.Clear() cboVorpapier3.Items.Clear() If AVISO IsNot Nothing Then AVISO.LOAD_Vorpapiere() cboVorpapier.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) cboVorpapier2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) cboVorpapier3.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) For Each VP In AVISO.VORPAPIERE cboVorpapier.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(VP.vp_Nr, VP.vp_Nr)) cboVorpapier2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(VP.vp_Nr, VP.vp_Nr)) cboVorpapier3.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(VP.vp_Nr, VP.vp_Nr)) Next Else End If End Sub Sub setVorpapiere() cboVorpapier.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier txtVorpapierPos.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier_Pos cboVorpapier2.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier2 txtVorpapier2Pos.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier2_Pos cboVorpapier3.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier3 txtVorpapier3Pos.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier3_Pos End Sub Sub initFraechterAvisererFromAkt() If AVISO IsNot Nothing Then 'Übergangsphase Aviso/Sendung If txtAvisierer.Text = "" And txtAvisierer.Enabled Then 'And (VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX") Then If AVISO.Auftraggeber_KdNr > -1 Then If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromKdNr(AVISO.Auftraggeber_KdNr) = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) Then txtAvisierer.KdNr = AVISO.Auftraggeber_KdNr End If Else txtAvisierer.KdNr_value = -1 txtAvisiererKdNr.Text = "" txtAvisierer.Text = AVISO.Auftraggeber End If End If 'Übergangsphase Aviso/Sendung If txtFrachtfuehrer.Text = "" And txtFrachtfuehrer.Enabled Then 'And (VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX") Then If AVISO.Frächter_KdNr > -1 Then If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromKdNr(AVISO.Frächter_KdNr) = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) Then txtFrachtfuehrer.KdNr = AVISO.Frächter_KdNr End If Else txtFrachtfuehrer.KdNr_value = -1 txtFrachtfuehrerKdNr.Text = "" txtFrachtfuehrer.Text = AVISO.Frächter End If End If End If End Sub Sub initPosNr() 'Try Dim cnt As Integer = 1 For Each i In SENDUNG_LIST i.tblSnd_PosUnterNr = cnt cnt += 1 Next SAVE_ME(True) End Sub Sub initGesColliGewicht() Try Dim gesColli As Double = 0 Dim gesGewicht As Double = 0 For Each s In SENDUNG_LIST If s.tblSnd_Colli IsNot Nothing AndAlso IsNumeric(s.tblSnd_Colli.Replace("Pk", "").Replace(".", "").Trim) Then gesColli += s.tblSnd_Colli If s.tblSnd_Gewicht IsNot Nothing AndAlso IsNumeric(s.tblSnd_Gewicht.Replace("kg", "").Trim) Then gesGewicht += s.tblSnd_Gewicht Next lblGesColli.Text = If(gesColli = 0, "-", gesColli.ToString("N0")) & " Pk" lblgesGewicht.Text = If(gesGewicht = 0, "-", gesGewicht.ToString("N1")) & " kg" Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub Sub binddata(o As Object, bindingParam As String, bindingSource As BindingSource, dataName As String, Optional bindingNullValue As Object = Nothing, Optional formatString As String = "") o.DataBindings.Clear() ' If bindingNullValue = Nothing Then bindingNullValue = DBNull.Value o.DataBindings.Add(New Binding(bindingParam, bindingSource, dataName, True, DataSourceUpdateMode.OnPropertyChanged, bindingNullValue, formatString)) End Sub Sub initRbtn() ' If SENDUNG_LIST.Count > 0 Then ' Select Case SENDUNG_LIST(CURRENT_INDEX).tblSnd_AngabeZolltarif ' Case 1 : RadioButton1.Checked = True ' Case 2 : RadioButton2.Checked = True ' Case Else : RadioButton.Checked = True ' End Select ' End If End Sub 'Sub poschanged() ' Try ' If VERAG_PROG_ALLGEMEIN.cAllgemein.AUTO_ABF_NR Then btnNeueAbfertigungNrVergeben.Visible = (SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr <= 0) ' lblSendungen.Text = (CURRENT_INDEX + 1) ' If SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr > -1 Then ' txtEmpfaenger.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr ' Else ' txtEmpfaengerKdNr.Text = "" ' txtEmpfaenger.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger 'IIf(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger Is Nothing, "", SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger) ' End If ' If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr > -1 Then ' txtAvisierer.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr ' Else ' txtAvisiererKdNr.Text = "" ' txtAvisierer.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Avisierer 'IIf(SENDUNG_LIST(CURRENT_INDEX).tblSnd_avisierer Is Nothing, "", SENDUNG_LIST(CURRENT_INDEX).tblSnd_avisierer) ' End If ' If SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr > -1 Then ' txtFrachtfuehrer.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr ' Else ' txtFrachtfuehrerKdNr.Text = "" ' txtFrachtfuehrer.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtfuehrer 'IIf(SENDUNG_LIST(CURRENT_INDEX).tblSnd_frachtfuehrer Is Nothing, "", SENDUNG_LIST(CURRENT_INDEX).tblSnd_frachtfuehrer) ' End If ' 'fremdsped ' If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition Then ' If SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr > -1 Then ' txtFremdEmpf.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr ' Else ' txtFremdEmpfKdNR.Text = "" ' txtFremdEmpf.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger 'IIf(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger Is Nothing, "", SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger) ' End If ' End If ' If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr > -1 Then ' txtAuftraggeber.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr ' Else ' txtAuftraggeberKdNr.Text = "" ' txtAuftraggeber.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber ' End If ' If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr > -1 Then ' txtAbsender.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr ' Else ' txtAbsenderKdNr.Text = "" ' txtAbsender.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender ' End If ' cboAbfertigungsart_SelectedIndexChanged(cboAbfertigungsart, New EventArgs) ' initRbtn() ' cboAbfertigungsart.Focus() ' ' MsgBox(bsSendungen.Current.row.Item("tblSnd_EmpfaengerKdNr").ToString) ' Catch ex As Exception ' MsgBox("POS ERR: " & ex.Message & ex.StackTrace) ' End Try ' ' MsgBox("c2") 'End Sub Sub loadDataInLIST() ' MsgBox(CURRENT_INDEX) If txtBARzuKassieren.Focused Then 'damit Validierung startet rtbAnmerkung.Focus() End If SENDUNG_LIST(CURRENT_INDEX).FilialenNr = If(IsNumeric(cboFiliale._value) AndAlso cboFiliale._value > 0, cboFiliale._value, Nothing) SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr = IIf(IsNumeric(txtAbfertigungsnummer.Text), txtAbfertigungsnummer.Text, Nothing) If SENDUNG_LIST(CURRENT_INDEX).FilialenNr <= 0 Then SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr = Nothing SENDUNG_LIST(CURRENT_INDEX).UnterNr = IIf(IsNumeric(txtUnterNr.Text), txtUnterNr.Text, Nothing) SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID = IIf(IsNumeric(cboAbfertigungsart._value), cboAbfertigungsart._value, Nothing) SENDUNG_LIST(CURRENT_INDEX).tblSnd_Zollsystem_Land = cboAbfertigungsLand._value ' SENDUNG_LIST(CURRENT_INDEX).tblSnd_Bonitaet = txtEmpfaengerBonitaet.Text ' SENDUNG_LIST(CURRENT_INDEX).tblSnd_Ansprechperson = txtEmpfaengerAnsprechpartner.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_anzahlHandling = txtAnzahl.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_anzahlPOS = If(IsNumeric(txtAnzahlPos.Text), txtAnzahlPos.Text, Nothing) ' txtAuftraggeber, "KdNr = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr", String.Empty) ' txtAbsender, "KdNr = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr", String.Empty) SENDUNG_LIST(CURRENT_INDEX).tblSnd_Anmerkung = rtbAnmerkung.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_AnmerkungDispoliste = rtbAnmerkungDispoliste.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_Colli = txtColli.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht = txtGewicht.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenbezeichnung = rtbWarenbezeichnung.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen = cbxSpedBuch.Checked ' SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub = cboAufschub._value ' MsgBox(CURRENT_INDEX & " _ " & txtColli.Text) SENDUNG_LIST(CURRENT_INDEX).tblSnd_SachbearbeiterId = cGlobal.AktiverMitarbeiter.MitarbeiterID 'fremdsped If cbxFremdspedition.Checked Then SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr = IIf(txtFremdEmpf.KdNr_value > 0, txtFremdEmpf.KdNr_value, -1) SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger = txtFremdEmpf.Text Else SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr = IIf(txtEmpfaenger.KdNr_value > 0, txtEmpfaenger.KdNr_value, -1) SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger = txtEmpfaenger.Text End If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr = IIf(txtAvisierer.KdNr_value > 0, txtAvisierer.KdNr_value, -1) SENDUNG_LIST(CURRENT_INDEX).tblSnd_Avisierer = txtAvisierer.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr = IIf(txtFrachtfuehrer.KdNr_value > 0, txtFrachtfuehrer.KdNr_value, -1) SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtfuehrer = txtFrachtfuehrer.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr = IIf(txtAuftraggeber.KdNr_value > 0, txtAuftraggeber.KdNr_value, -1) SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber = txtAuftraggeber.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr = IIf(txtAbsender.KdNr_value > 0, txtAbsender.KdNr_value, -1) SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender = txtAbsender.Text ' MsgBox(txtBARzuKassieren._value) SENDUNG_LIST(CURRENT_INDEX).tblSnd_BARzuKassieren = If(txtBARzuKassieren._value = "", Nothing, CDbl(txtBARzuKassieren._value)) SENDUNG_LIST(CURRENT_INDEX).tblSnd_AngabeZolltarif = 0 If cboZolltarif._value <> "" Then SENDUNG_LIST(CURRENT_INDEX).tblSnd_AngabeZolltarif = cboZolltarif._value ' MsgBox("SAVE: " & cboZolltarif._value) ' SENDUNG_LIST(CURRENT_INDEX).tblSnd_bar = cntlBar.Checked ' SENDUNG_LIST(CURRENT_INDEX).tblSnd_barBeleg = txtBarBelegNr.Text 'If IsNumeric(txtBarBelegBetrag._value) Then 'SENDUNG_LIST(CURRENT_INDEX).tblSnd_betrag = CDbl(txtBarBelegBetrag._value) ' Else ' SENDUNG_LIST(CURRENT_INDEX).tblSnd_betrag = Nothing 'End If SENDUNG_LIST(CURRENT_INDEX).tblSnd_NCTSVerzollungsadresse = Nothing SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Strasse = Nothing SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_PLZ = Nothing SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Ort = Nothing SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Land = Nothing SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_EORI = Nothing SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_EORI_NL = Nothing SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Ansprechpartner = Nothing SENDUNG_LIST(CURRENT_INDEX).NCTS_Bestimmungszollstelle = Nothing SENDUNG_LIST(CURRENT_INDEX).tblSnd_EUFiskalEmpfaenger = Nothing Select Case SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID Case 5, 6, 18, 32, 24, 33, 34, 37, 40, 42 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).tblSnd_ATANr = usrcntl_NCTS.txtT1VerzollungsadresseATANr.Text SENDUNG_LIST(CURRENT_INDEX).NCTS_ngaId = If(usrcntl_NCTS.NCTS_GA IsNot Nothing, usrcntl_NCTS.NCTS_GA.nga_id, Nothing) SENDUNG_LIST(CURRENT_INDEX).tblSnd_NCTSaufDISPO = usrcntl_NCTS.cbxNCTSAufDispo.Checked End If Case 7 If pnlT1.Controls.Count > 0 AndAlso pnlT1.Controls(0).GetType Is GetType(usrCntlSND_Ausfuhr) Then SENDUNG_LIST(CURRENT_INDEX).tblSnd_NCTSVerzollungsadresse = usrcntl_AUSFUHR.txtT1Verzollungsadresse.Text SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Strasse = usrcntl_AUSFUHR.txtT1VerzollungsadresseStrasse.Text SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_PLZ = usrcntl_AUSFUHR.txtT1VerzollungsadressePlz.Text SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Ort = usrcntl_AUSFUHR.txtT1VerzollungsadresseOrt.Text SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Land = usrcntl_AUSFUHR.sbT1VerzollungsadresseLand._value SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_EORI = usrcntl_AUSFUHR.txtT1VerzollungsadresseEORI.Text SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_EORI_NL = usrcntl_AUSFUHR.txtT1VerzollungsadresseEORI_NL.Text SENDUNG_LIST(CURRENT_INDEX).NCTS_Verzollungsadresse_Ansprechpartner = usrcntl_AUSFUHR.txtT1VerzollungsadresseAnspr.Text SENDUNG_LIST(CURRENT_INDEX).NCTS_Bestimmungszollstelle = usrcntl_AUSFUHR.txtT1VerzollungsadresseBestimmungszollstelle._value SENDUNG_LIST(CURRENT_INDEX).NCTS_ngaId = If(usrcntl_AUSFUHR.NCTS_GA IsNot Nothing, usrcntl_AUSFUHR.NCTS_GA.nga_id, Nothing) SENDUNG_LIST(CURRENT_INDEX).tblSnd_NCTSaufDISPO = usrcntl_AUSFUHR.cbxNCTSAufDispo.Checked End If Case 26, 28 ' SENDUNG_LIST(CURRENT_INDEX).tblSnd_Endempfaenger = txtT1Verzollungsadresse.Text If pnlT1.Controls.Count > 0 AndAlso pnlT1.Controls(0).GetType Is GetType(usrCntlSND_NCTSFiskalEndempf) Then SENDUNG_LIST(CURRENT_INDEX).tblSnd_EUFiskalEmpfaenger = usrcntl_FISKAL.rtbFiskalEndempf.Text End If Case 23 ' SENDUNG_LIST(CURRENT_INDEX).tblSnd_Endempfaenger = txtT1Verzollungsadresse.Text If pnlT1.Controls.Count > 0 AndAlso pnlT1.Controls(0).GetType Is GetType(usrCntlSND_Handling) Then SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATCMRN_Fremd = usrcntl_ATA.txtATCMRNFremd.Text ' SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATANr = usrcntl_ATA.txtATAold.Text SENDUNG_LIST(CURRENT_INDEX).HANDLING = usrcntl_ATA.GET_HANDLING() 'derzeit ohne Funktion SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATANr = usrcntl_ATA.GET_HANDLING_STRING() 'derzeit ohne Funktion End If Case 44 If pnlT1.Controls.Count > 0 AndAlso pnlT1.Controls(0).GetType Is GetType(usrCntlSND_ATBGestellung) Then SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATB_T1 = usrcntl_ATB.txtATBT1.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATB_Nr = usrcntl_ATB.txtATBNr.Text Select Case usrcntl_ATB.cbxATBFakturieren.CheckState Case CheckState.Indeterminate : SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATBFakturieren = Nothing Case CheckState.Checked : SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATBFakturieren = True Case CheckState.Unchecked : SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATBFakturieren = False End Select End If End Select SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtkosten = SQL.isNullNothingDbl(txtFrachtkostenEU.Text) SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtkostenNichtEU = SQL.isNullNothingDbl(txtFrachtkostenNichtEU.Text) SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtkostenGesamt = SQL.isNullNothingDbl(txtFrachtkostenGesamt.Text) 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_DakosyRef = txtDyRef.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_KdAuftragsNr = txtKdAuftragsNr.Text 'Auftrgeb SENDUNG_LIST(CURRENT_INDEX).tblSnd_KdAuftragsNrAvisierer = txtKdAuftragsNrAvisierer.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_KdAuftragsNrEmpfaenger = txtKdAuftragsNrEmpfaenger.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_KdAuftragsNrFrachtfuehrer = txtKdAuftragsNrFrachtfuehrer.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier = cboVorpapier.Text.Trim SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier_Pos = txtVorpapierPos.Text.Trim SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier2 = cboVorpapier2.Text.Trim SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier2_Pos = txtVorpapier2Pos.Text.Trim SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier3 = cboVorpapier3.Text.Trim SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier3_Pos = txtVorpapier3Pos.Text.Trim 'SENDUNG_LIST(CURRENT_INDEX).tblSnd_anzahlPOS = txtAnzahlPos.Text.Trim 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 AVISO_Tmp = Me.AVISO Dim SENDUNG_LIST_Tmp = Me.SENDUNG_LIST(CURRENT_INDEX) Dim trd = New Threading.Thread(Sub() SendungOptions.PrintSendung("PRINT", SENDUNG_LIST_Tmp, AVISO_Tmp, Printername, If(sender Is LaufzettelDruckenToolStripMenuItem, "LAUFZETTEL", "AKT"), SENDUNG_LIST.Count) End Sub) trd.IsBackground = True : trd.Start() ElseIf sender Is Button8 Then SendungOptions.PrintSendung("PDF", SENDUNG_LIST(CURRENT_INDEX), AVISO, Printername,, SENDUNG_LIST.Count) End If Me.Cursor = Cursors.Default End Sub Function CheckAusfuellen() As Boolean If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenbezeichnung = "" Or SENDUNG_LIST(CURRENT_INDEX).tblSnd_Colli = "" Or SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht = "" Then Return (MsgBox("Möchten Sie den Aktendeckel wirklich ohne Warenbezeichnung, Colli bzw. Gewicht drucken?", vbYesNoCancel) = vbYes) End If Return True End Function Sub initDrucker() ' SDL.cProgramFunctions.initDrucker(cboPrinter) Try ' alle installierten Drucker ermitteln und ' in in ein ArrayList-Objekt speichern Dim sPrinters As ArrayList If VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_LIST IsNot Nothing Then sPrinters = VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_LIST Else sPrinters = New ArrayList For Each sPrinter As String In PrinterSettings.InstalledPrinters sPrinters.Add(sPrinter) Next End If ' 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 ' Console.WriteLine("SSSSSSSSSSSSSSSSS - " & (VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD.ToUpper)) setCboSelected(VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD, oPS.PrinterName) 'If VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD <> String.Empty Then ' Console.WriteLine(setCboSelected(VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD)) ' If Not setCboSelected(VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD) Then ' 'nicht gefunden ' setCboSelected(oPS.PrinterName) ' End If 'Else ' setCboSelected(oPS.PrinterName) 'End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim initialisieren der Drucker!") End Try End Sub 'threadsicherer Aufruf Delegate Sub setCboEntryCallback(i As String) Private Sub setCboEntry(i As String) Try If Me.InvokeRequired Then Dim d As New setCboEntryCallback(AddressOf setCboEntry) Me.Invoke(d, New Object() {i}) Else cboPrinter.Items.Add(i) End If Catch ex As Exception End Try End Sub 'threadsicherer Aufruf Delegate Function setCboSelectedCallback(standardDruckerAviso As String, standardDrucker As String) As Boolean Private Function setCboSelected(standardDruckerAviso As String, standardDrucker As String) As Boolean If Me.InvokeRequired Then Dim d As New setCboSelectedCallback(AddressOf setCboSelected) Try Me.Invoke(d, New Object() {standardDruckerAviso, standardDrucker}) Catch ex As Exception : End Try 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 If standardDruckerAviso <> "" Then For Each i In cboPrinter.Items If i.ToString.ToUpper.Contains(standardDruckerAviso.ToUpper) Then ' If i.ToString = standardDrucker Then ' Contains, weil sonst \\dc02\ stört cboPrinter.SelectedItem = i Return True ' Exit For End If Next End If 'nciht gefunden --> Standard For Each i In cboPrinter.Items If i.ToString.ToUpper.Contains(standardDrucker.ToUpper) Then ' If i.ToString = standardDrucker Then ' Contains, weil sonst \\dc02\ stört cboPrinter.SelectedItem = i Return True ' Exit For End If Next End If End If Return False End Function 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 btnSpedBuch.Click 'loadDataInLIST() If Not SAVE_ME() Then If vbNo = MsgBox("Fehler beim Speichern. Möchten Sie das Speditionsbuch dennoch öffenen?" & vbNewLine & "(Einige Daten werden möglicherweise nicht übernommen)", vbYesNo) Then Exit Sub End If End If If IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) AndAlso CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) > 100000 Then Else MsgBox("Abfertigungsnummer angeben!") Exit Sub End If Dim posnr As posNr = AVISOFUNC.SpeditionsbuchEintrag(AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) If posnr IsNot Nothing Then cboFiliale._value = posnr.Filiale txtAbfertigungsnummer.Text = posnr.Abfertigungsnummer txtUnterNr.Text = posnr.UnterNr 'cbxSpedBuch.Checked = (posnr.Filiale > 0 And posnr.Abfertigungsnummer > 0 And posnr.UnterNr >= 0) ' Wenn Sped Eintrag gelöscht-> - 1, dann ist der Eintrag nicht mehr vorhanden Dim vorhanden = ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM [Speditionsbuch] WHERE [FilialenNr]='" & cboFiliale._value & "' AND AbfertigungsNr='" & txtAbfertigungsnummer.Text & "'", "FMZOLL") ' AND UnterNr='" & txtUnterNr.Text & "' cbxSpedBuch.Checked = (vorhanden > 0) End If lblAbfNrExists.Visible = checkDoppelAbfNr() End Sub Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click If txtEmpfaenger.KdNr > 0 Then Me.Cursor = Cursors.WaitCursor AVISOFUNC.showKd(txtEmpfaenger.KdNr) Me.Cursor = Cursors.Default End If End Sub Private Sub lblKundenZolltarifVorhanden_Click(sender As Object, e As EventArgs) FlatButton1.PerformClick() End Sub Sub initSpeditionbuch() DataGridView.Columns.Clear() If TabControl1.SelectedTab IsNot TabPage2 Then Exit Sub If Not IsNumeric(cboFiliale._value) Then Exit Sub If Not IsNumeric(txtAbfertigungsnummer.Text) Then Exit Sub Dim sqlstr As String = "" sqlstr &= " SELECT TOP 1000 [FilialenNr],[AbfertigungsNr],[UnterNr],[Abfertigungsdatum],speditionsbuch.[Abfertigungsart],Abfertigungsarten.Abfertigungsbezeichnung, " & " [Rechnungsbetrag],Bar,[Barzahlungsbetrag],/*isnull(cast([AbsenderKundenNr] as nvarchar(7)) + ' ','') + [Absender] as Absender,*/isnull(cast([EmpfängerKundenNr] as nvarchar(7)) + ' ','') + [Empfänger] as Empfänger,isnull(cast([VermittlerKundenNr] as nvarchar(7)) + ' ','') + [Vermittler] as Vermittler,isnull(cast([FrachtführerKundenNr] as nvarchar(7)) + ' ','') + [Frachtführer] as Frachtführer, " & " [LKW Kennzeichen],Sachbearbeiter FROM [Speditionsbuch] LEFT JOIN Abfertigungsarten ON Abfertigungsarten.Abfertigungsart=speditionsbuch.Abfertigungsart WHERE 1=1 " sqlstr &= " AND FilialenNr='" & cboFiliale._value & "'" sqlstr &= " AND AbfertigungsNr='" & txtAbfertigungsnummer.Text & "'" ' Dim sql As New VERAG_PROG_ALLGEMEIN.SQL 'DataGridView.DataSource = sql.loadDgvBySql(sqlstr, "FMZOLL") With DataGridView ' .DataSource = myTable .SET_SQL(sqlstr, "FMZOLL") .LOAD() If .RowCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub .RowHeadersVisible = False .ReadOnly = True .SelectionMode = DataGridViewSelectionMode.FullRowSelect .MultiSelect = False .Columns("FilialenNr").Visible = False .Columns("AbfertigungsNr").Visible = False ' .Columns("FilialenNr").Width = 45 ' .Columns("FilialenNr").HeaderText = "Filiale" ' .Columns("FilialenNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter ' .Columns("AbfertigungsNr").Width = 70 ' .Columns("AbfertigungsNr").HeaderText = "Abf-Nr" ' .Columns("AbfertigungsNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter .Columns("UnterNr").Width = 45 .Columns("UnterNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter .Columns("Abfertigungsdatum").Width = 100 .Columns("Abfertigungsdatum").HeaderText = "Abf-Dat." .Columns("Abfertigungsdatum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter ' .Columns("Absender").MinimumWidth = 150 ' .Columns("Absender").HeaderText = "Absender" ' .Columns("Absender").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("Bar").Width = 30 .Columns("Barzahlungsbetrag").HeaderText = "Bar Betrag" .Columns("Barzahlungsbetrag").Width = 80 .Columns("Barzahlungsbetrag").DefaultCellStyle.Format = "C" .Columns("Barzahlungsbetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight .Columns("Rechnungsbetrag").HeaderText = "Rg.Betrag" .Columns("Rechnungsbetrag").Width = 80 .Columns("Rechnungsbetrag").DefaultCellStyle.Format = "C" .Columns("Rechnungsbetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight .Columns("Abfertigungsart").Width = 50 .Columns("Abfertigungsart").HeaderText = "Abf.Nr" .Columns("Abfertigungsart").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter .Columns("Abfertigungsbezeichnung").MinimumWidth = 100 .Columns("Abfertigungsbezeichnung").HeaderText = "Abfertigungsart" .Columns("Abfertigungsbezeichnung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("Vermittler").MinimumWidth = 150 .Columns("Vermittler").HeaderText = "Auftraggeber" .Columns("Vermittler").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("Empfänger").MinimumWidth = 150 .Columns("Empfänger").HeaderText = "Empfänger" .Columns("Empfänger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("Frachtführer").MinimumWidth = 150 .Columns("Frachtführer").HeaderText = "Frachtführer" .Columns("Frachtführer").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("LKW Kennzeichen").Width = 120 .Columns("LKW Kennzeichen").HeaderText = "LKW Kennzeichen" .Columns("Sachbearbeiter").MinimumWidth = 100 'lblErgebnis.Text = "Ergebnise: " & .RowCount End With End Sub Private Sub DataGridView_CellContentClick(sender As Object, e As EventArgs) Handles DataGridView.DoubleClick, DataGridView.CellContentDoubleClick If DataGridView.SelectedRows.Count = 0 Then Exit Sub Dim frmNacherfassung As New SDL.frmNacherfassungNEU frmNacherfassung.srchFiliale = DataGridView.SelectedRows(0).Cells("FilialenNr").Value frmNacherfassung.srchAbfertigungsnummer = DataGridView.SelectedRows(0).Cells("AbfertigungsNr").Value frmNacherfassung.srchUnterNr = DataGridView.SelectedRows(0).Cells("UnterNr").Value ' frmNacherfassung.FMZollPersID = VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.mit_FMZollPersID ' frmNacherfassung.initDataBinding() frmNacherfassung.ShowDialog(Me) DataGridView.RELOAD() ' frmNacherfassung.showAll() End Sub Private Sub FlatButton3_Click(sender As Object, e As EventArgs) Handles FlatButton3.Click If txtAuftraggeber.KdNr > 0 Then Me.Cursor = Cursors.WaitCursor AVISOFUNC.showKd(txtAuftraggeber.KdNr) Me.Cursor = Cursors.Default End If End Sub Private Sub btnAvisierer_Click(sender As Object, e As EventArgs) Handles btnAvisierer.Click If txtAvisierer.KdNr > 0 Then Me.Cursor = Cursors.WaitCursor AVISOFUNC.showKd(txtAvisierer.KdNr) Me.Cursor = Cursors.Default End If End Sub Private Sub btnFrachtfuehrer_Click(sender As Object, e As EventArgs) Handles btnFrachtfuehrer.Click If txtFrachtfuehrer.KdNr > 0 Then Me.Cursor = Cursors.WaitCursor AVISOFUNC.showKd(txtFrachtfuehrer.KdNr) Me.Cursor = Cursors.Default End If End Sub Private Sub FlatButton4_Click(sender As Object, e As EventArgs) Handles FlatButton4.Click If txtAbsender.KdNr > 0 Then Me.Cursor = Cursors.WaitCursor AVISOFUNC.showKd(txtAbsender.KdNr) Me.Cursor = Cursors.Default End If End Sub Private Sub cboAbfertigungsart_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAbfertigungsart.SelectedIndexChanged btnLeihgeld.Enabled = False lblAnzahl.Visible = False txtAnzahl.Visible = False btnAufschub_Atr.Visible = True btnAufschub_Empf.Visible = True btnAufschub_VERAG.Visible = True Select Case cboAbfertigungsart._value Case "23", "67", "68" lblAnzahl.Visible = True txtAnzahl.Visible = True btnAufschub_Atr.Visible = False btnAufschub_Empf.Visible = False btnAufschub_VERAG.Visible = False SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub = "" txtDyRef.Visible = False picDy.Visible = False txtDyRef.Text = "" End Select 'grpAufschub.Visible = (cboAbfertigungsart._value <> "23") setContextMenuGVMSControl() If cboAbfertigungsart._value = "9" Then btnLeihgeld.Enabled = True Else txtDyRef.Visible = (SENDUNG_LIST(CURRENT_INDEX).FilialenNr = "5601") 'UNISPED picDy.Visible = (SENDUNG_LIST(CURRENT_INDEX).FilialenNr = "5601") 'UNISPED ' If SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub = "" Then SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub = "VERAG" initAufschubBtn() End If Button4.Enabled = btnLeihgeld.Enabled cntlAvisierer_Eust.Visible = True cntlAuftr_Eust.Visible = True cntlEmpf_Eust.Visible = True cntlAbsender_Eust.Visible = True cntlFrachtf_Eust.Visible = True pnlT1.Controls.Clear() cboVorpapier.Enabled = True cboVorpapier2.Enabled = True cboVorpapier3.Enabled = True txtVorpapierPos.Enabled = True txtVorpapier2Pos.Enabled = True txtVorpapier3Pos.Enabled = True Select Case cboAbfertigungsart._value Case "5", "18", "32" pnlT1.Controls.Add(usrcntl_NCTS) ' usrcntl_NCTS.Label33.Text = "NCTS-" & vbNewLine & "Gestellungsadr." Case "6", "24", "33", "34", "37", "40", "42" pnlT1.Controls.Add(usrcntl_NCTS) ' usrcntl_NCTS.Label33.Text = "Amtsplatz/" & vbNewLine & "Zollstopp" Case "7" pnlT1.Controls.Add(usrcntl_AUSFUHR) Case "26", "28" pnlT1.Controls.Add(usrcntl_FISKAL) cntlAvisierer_Eust.value = "" : cntlAvisierer_Eust.Visible = False cntlAuftr_Eust.value = "" : cntlAuftr_Eust.Visible = False cntlEmpf_Eust.value = "" : cntlEmpf_Eust.Visible = False cntlAbsender_Eust.value = "" : cntlAbsender_Eust.Visible = False cntlFrachtf_Eust.value = "" : cntlFrachtf_Eust.Visible = False Case "23" pnlT1.Controls.Add(usrcntl_ATA) Case "44" pnlT1.Controls.Add(usrcntl_ATB) cboVorpapier.Enabled = False cboVorpapier2.Enabled = False cboVorpapier3.Enabled = False txtVorpapierPos.Enabled = False txtVorpapier2Pos.Enabled = False txtVorpapier3Pos.Enabled = False End Select If Not isFailureShown Then VALIDATE_ME(False) sperrePanel() ' initOfferteDGV() End Sub Sub initOfferteDGV() Try SENDUNG_LIST(CURRENT_INDEX).LOAD_ABRECHNUNG() Dim MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview ' nur für Fehlerveremindung -> kein Control in Form With MyDatagridview1 .Columns.Clear() Dim tmpKdnr = -1 For Each a In SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG If a.sndabr_abrArt = "ABFKOST" Then Select Case a.sndabr_beteiligter Case "EMPF" : tmpKdnr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr Case "AVISIERER" : tmpKdnr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr'If(IsNumeric(AVISO.Auftraggeber_KdNr), IsNumeric(AVISO.Auftraggeber_KdNr), -1) Case "ABS" : tmpKdnr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr Case "AUFTR" : tmpKdnr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr Case "FRACHTF" : tmpKdnr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr 'If(IsNumeric(AVISO.Frächter_KdNr), IsNumeric(AVISO.Frächter_KdNr), -1) End Select End If Next If cboAbfertigungsart._value <> "" Then If tmpKdnr > 0 Then .DataSource = SQL.loadDgvBySql("select LeistungsNr,LeistungsBez,Preis FROM [Offertenpositionen] where KundenNr=" & tmpKdnr & " AND OffertenNr=(SELECT ISNULL(AO.ao_OffertenNr,-1) FROM tblAbfertigungsartOffertenstamm as AO WHERE AO.ao_Abfertigungsart='" & cboAbfertigungsart._value & "') and preis is not null order by LeistungsNr, Preis desc", "FMZOLL") End If End If End With Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub Sub initDGVBelege() Try 'SENDUNG_LIST(CURRENT_INDEX).LOAD_ABRECHNUNG() With dgvBelege .Columns.Clear() If .RowCount > 0 Then .Rows.Clear() Dim AvisoID = -1 If AVISO IsNot Nothing Then AvisoID = AVISO.AvisoID End If 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='" & 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 VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked Dim aviso As cAviso = AvisoDAL.LesenAviso(AvisoId, "") If aviso.Auftraggeber_KdNr <> "" AndAlso IsNumeric(aviso.Auftraggeber_KdNr) AndAlso CInt(aviso.Auftraggeber_KdNr) > 0 Then txtAuftraggeber.KdNr = CInt(aviso.Auftraggeber_KdNr) Else txtAuftraggeber.KdNr = -1 txtAuftraggeber.Text = aviso.Auftraggeber End If End Sub Private Sub LinkLabel3_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked Dim aviso As cAviso = AvisoDAL.LesenAviso(AvisoId, "") If aviso.Frächter_KdNr <> "" AndAlso IsNumeric(aviso.Frächter_KdNr) AndAlso CInt(aviso.Frächter_KdNr) > 0 Then txtAuftraggeber.KdNr = CInt(aviso.Frächter_KdNr) Else txtAuftraggeber.KdNr = -1 txtAuftraggeber.Text = aviso.Frächter End If End Sub Private Sub LinkLabel2_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked If txtAuftraggeber.KdNr > 0 Then txtAbsender.KdNr = txtAuftraggeber.KdNr Else txtAbsender.KdNr = -1 txtAbsender.Text = txtAuftraggeber.Text End If End Sub Private Sub lklAuftraggeber_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklAuftraggeber.LinkClicked If txtAuftraggeber.KdNr > 0 Then txtEmpfaenger.KdNr = txtAuftraggeber.KdNr Else txtEmpfaenger.KdNr = -1 txtEmpfaenger.Text = txtAuftraggeber.Text End If End Sub Private Sub cbxSpedBuch_CheckedChanged(sender As Object, e As EventArgs) Handles cbxSpedBuch.CheckedChanged cboFiliale.Enabled = Not sender.checked txtAbfertigungsnummer.Enabled = Not sender.checked txtUnterNr.Enabled = Not sender.checked End Sub Private Sub RadioButton_CheckedChanged(sender As Object, e As EventArgs) initKundenzolltarifChecked(txtAuftraggeber) SENDUNG_LIST(CURRENT_INDEX).tblSnd_AngabeZolltarif = 0 End Sub Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) initKundenzolltarifChecked(txtAbsender) SENDUNG_LIST(CURRENT_INDEX).tblSnd_AngabeZolltarif = 1 End Sub Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) initKundenzolltarifChecked(txtEmpfaenger) SENDUNG_LIST(CURRENT_INDEX).tblSnd_AngabeZolltarif = 2 End Sub Private Sub cboZolltarif_selChanged(sender As Object, e As EventArgs) Handles cboZolltarif.SelectedIndexChanged Select Case cboZolltarif._value Case 2 : initKundenzolltarifChecked(txtEmpfaenger) ' : SENDUNG_LIST(CURRENT_INDEX).tblSnd_AngabeZolltarif = 2 Case 1 : initKundenzolltarifChecked(txtAbsender) ' : SENDUNG_LIST(CURRENT_INDEX).tblSnd_AngabeZolltarif = 1 Case 0 : initKundenzolltarifChecked(txtAuftraggeber) ' : SENDUNG_LIST(CURRENT_INDEX).tblSnd_AngabeZolltarif = 0 End Select End Sub Private Sub btnFirmaNeu_Click(sender As Object, e As EventArgs) MsgBox("Funktion nicht verfügbar") Exit Sub Dim kdtxt As VERAG_PROG_ALLGEMEIN.KdSearchBox = Nothing ' If sender Is btnFirmaNeu Then kdtxt = txtAuftraggeber ' If sender Is Button5 Then kdtxt = txtAbsender ' If sender Is Button6 Then kdtxt = txtEmpfaenger Dim frmKd As New SDL.frmNeuerKunde frmKd.openKd = False frmKd.timerIntervall = 500 frmKd.username = cGlobal.AktiverMitarbeiter.mit_username If frmKd.username.Length > 15 Then frmKd.username = frmKd.username.Substring(0, 15) frmKd.tmpFiliale = cGlobal.AktiverMitarbeiter.StandartFiliale frmKd.tmpKdNrKreis = 9 If kdtxt.KdNr = -1 Then frmKd.tmpKdName = kdtxt.Text End If frmKd.ShowDialog() txtAuftraggeber.initKdBox(Me, txtAuftraggeberKdNr) txtAbsender.initKdBox(Me, txtAbsenderKdNr) txtEmpfaenger.initKdBox(Me, txtEmpfaengerKdNr) txtFremdEmpf.initKdBox(Me, txtFremdEmpfKdNR) If frmKd.kdnr > 0 Then kdtxt.KdNr = frmKd.kdnr End If End Sub Private Sub btnNeueAbfertigungNrVergeben_Click(sender As Object, e As EventArgs) Handles btnNeueAbfertigungNrVergeben.Click increasePosNr() ' loadDataInLIST() SAVE_ME() lblAbfNrExists.Visible = checkDoppelAbfNr() End Sub Sub increasePosNr() If Not IsNumeric(cboFiliale._value) OrElse CInt(cboFiliale._value) <= 0 Then MsgBox("Bitte Filiale auswählen!") : Exit Sub End If txtAbfertigungsnummer.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(cboFiliale._value, Now.Year) btnNeueAbfertigungNrVergeben.Visible = False End Sub Private Sub Button9_Click(sender As Object, e As EventArgs) NEXT_SENDUNG() End Sub Dim valueSel = "" Private Sub cboFiliale_GotFocus(sender As Object, e As EventArgs) Handles cboFiliale.GotFocus valueSel = sender._value End Sub Private Sub cboFiliale_LostFocus(sender As Object, e As EventArgs) Handles cboFiliale.LostFocus If VERAG_PROG_ALLGEMEIN.cAllgemein.AUTO_ABF_NR Then If valueSel <> sender._value Then ' increasePosNr() txtAbfertigungsnummer.Text = "" btnNeueAbfertigungNrVergeben.Visible = True End If End If End Sub Private Sub Label28_Click(sender As Object, e As EventArgs) End Sub Private Sub Button9_Click_1(sender As Object, e As EventArgs) Handles Button9.Click 'Me.loadDataInLIST() If SAVE_ME() Then Dim frmSendungsdetailsAbrechnung As New frmSendungsdetailsAbrechnung frmSendungsdetailsAbrechnung.SENDUNG = SENDUNG_LIST(CURRENT_INDEX) Dim aviso As cAviso = AvisoDAL.LesenAviso(AvisoId, "") ' frmSendungsdetailsAbrechnung.Aufschub = SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub frmSendungsdetailsAbrechnung.avisierer = txtAvisierer.Text 'aviso.Auftraggeber frmSendungsdetailsAbrechnung.absender = txtAbsender.Text frmSendungsdetailsAbrechnung.auftraggeber = txtAuftraggeber.Text frmSendungsdetailsAbrechnung.empfänger = txtEmpfaenger.Text frmSendungsdetailsAbrechnung.frachtführer = txtFrachtfuehrer.Text '.Frächter frmSendungsdetailsAbrechnung.ShowDialog(Me) SENDUNG_LIST(CURRENT_INDEX).LOAD_ABRECHNUNG() initDataBinding() End If End Sub Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click closeWithoutSave = True Me.Close() End Sub Private Sub btnKassenbuchEintrag_Click(sender As Object, e As EventArgs) Handles btnKassenbuchEintrag.Click, Button1.Click ' loadDataInLIST() SAVE_ME() Dim PERSONAL As SDL.cPersonal = Nothing Dim frmSecureLoginKassenbuch As New SDL.frmSecureLoginKassenbuch If frmSecureLoginKassenbuch.ShowDialog(Me) = DialogResult.OK Then PERSONAL = frmSecureLoginKassenbuch.PERSONAL Dim frmBeleg As New SDL.frmBelegNeu(PERSONAL, Nothing, "E") frmBeleg.AvisoID = AvisoId frmBeleg.SendungID = SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID frmBeleg.aktFiliale = Me.SENDUNG_LIST(Me.CURRENT_INDEX).FilialenNr frmBeleg.aktAbfertigungsNr = Me.SENDUNG_LIST(Me.CURRENT_INDEX).AbfertigungsNr AddHandler frmBeleg.LOADED, Sub() Dim AVISO As cAviso = AvisoDAL.LesenAviso(AvisoId, "") frmBeleg.BELEG.LKW_Kennzeichen = AVISO.LKW_Nr frmBeleg.BELEG.Frachtführer = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_Frachtfuehrer frmBeleg.BELEG.Ordnungsbegriff = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_Frachtfuehrer frmBeleg.BELEG.FilialenNr = Me.SENDUNG_LIST(Me.CURRENT_INDEX).FilialenNr frmBeleg.BELEG.AbfertigungsNr = Me.SENDUNG_LIST(Me.CURRENT_INDEX).AbfertigungsNr frmBeleg.BELEG.LKW_Id = AVISO.AvisoID frmBeleg.BELEG.LKW_Beleg = False frmBeleg.init() If Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr > 0 Then frmBeleg.kdFrachtf.KdNr = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr frmBeleg.kdkunde.KdNr = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr End If ' If sender Is Button13 Then frmBeleg.AddDusche(True) End Sub If frmBeleg.ShowDialog(Me) = DialogResult.OK Then If frmBeleg.BELEG.gebucht Then If frmBeleg.BELEG.FilialenNr > 0 And frmBeleg.BELEG.AbfertigungsNr > 0 Then loadDataInLIST() If (Me.SENDUNG_LIST(Me.CURRENT_INDEX).FilialenNr <= 0 Or Me.SENDUNG_LIST(Me.CURRENT_INDEX).AbfertigungsNr <= 0) Then Me.SENDUNG_LIST(Me.CURRENT_INDEX).FilialenNr = frmBeleg.BELEG.FilialenNr Me.SENDUNG_LIST(Me.CURRENT_INDEX).AbfertigungsNr = frmBeleg.BELEG.AbfertigungsNr End If If VERAG_PROG_ALLGEMEIN.cAllgemein.SpedBuchExists(frmBeleg.BELEG.FilialenNr, frmBeleg.BELEG.AbfertigungsNr) Then Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen = True End If SAVE_ME() End If 'INKASSE Eintrag Sendung/Leistungen: For Each p In frmBeleg.BELEG.POS If p.PreislistenNr = 4 And p.PreislistenPos = 21 And p.LeistungsNr = 497 Then Me.SENDUNG_LIST(CURRENT_INDEX).tblSnd_BARzuKassieren = p.Betrag ' Dim find=Me.SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG.Find({) Me.SENDUNG_LIST(CURRENT_INDEX).LOAD_ABRECHNUNG() Dim FindPOS = Me.SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG.Find(Function(x) x.sndabr_beteiligter = "AUFTR" And x.sndabr_wert = "ERSTATTUNG") If FindPOS Is Nothing Then FindPOS = New VERAG_PROG_ALLGEMEIN.cSendungAbrechnung(Me.SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) Me.SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG.Add(FindPOS) End If 'Me.SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG.Remove(a) FindPOS.sndabr_einzelPreis = p.Preis * -1 FindPOS.sndabr_preis = p.Betrag * -1 FindPOS.sndabr_anzahl = p.Anzahl FindPOS.sndabr_beteiligter = "AUFTR" FindPOS.sndabr_wert = "ERSTATTUNG" FindPOS.sndabr_bezeichnung = "Erstatt. Inkasso-Betrag" FindPOS.sndabr_abrArt = "" SAVE_ABRECHUNG() End If Next initDataBinding() End If End If End If End Sub Private Sub btnEinnahmeBeleg_Click(sender As Object, e As EventArgs) Handles btnAufschub_VERAG.Click, btnAufschub_Atr.Click, btnAufschub_Empf.Click ADMIN.doSQL("DELETE FROM tblSendAbrechnung WHERE sndabr_sendId=" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & " AND sndabr_abrArt='EUST' ") If sender.backcolor = Color.SteelBlue Then SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub = "" Else If sender Is btnAufschub_VERAG Then SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA If sender Is btnAufschub_Atr Then SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub = "AUFTR" If sender Is btnAufschub_Empf Then SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub = "EMPF" If SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub <> VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then ADMIN.doSQL("INSERT INTO tblSendAbrechnung (sndabr_sendId,sndabr_beteiligter,sndabr_abrArt,sndabr_wert) VALUES('" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & "' ,'" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub & "','EUST','eig. BIN')") End If End If initAufschubBtn() End Sub Sub initAufschubBtn() ' deselectButton(btnAufschub_Abs) deselectButton(btnAufschub_Empf) deselectButton(btnAufschub_Atr) deselectButton(btnAufschub_VERAG) Select Case SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA : selectButton(btnAufschub_VERAG) Case "AUFTR" : selectButton(btnAufschub_Atr) ' Case "ABS" : selectButton(btnAufschub_Abs) Case "EMPF" : selectButton(btnAufschub_Empf) End Select End Sub Sub initAufschubBtnOLD() ' deselectButton(btnAufschub_Abs) deselectButton(btnAufschub_Empf) deselectButton(btnAufschub_Atr) deselectButton(btnAufschub_VERAG) Select Case SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA : selectButton(btnAufschub_VERAG) Case "AUFTR" : selectButton(btnAufschub_Atr) ' Case "ABS" : selectButton(btnAufschub_Abs) Case "EMPF" : selectButton(btnAufschub_Empf) End Select End Sub Sub selectButton(b As Button) b.BackColor = Color.SteelBlue b.ForeColor = Color.White End Sub Sub deselectButton(b As Button) ' b.BackColor = Color.Transparent ' b.ForeColor = Color.DimGray b.BackColor = Color.Silver b.ForeColor = Color.Black End Sub Private Sub Button14_Click(sender As Object, e As EventArgs) Handles btnLeihgeld.Click, Button4.Click Dim PERSONAL As SDL.cPersonal = Nothing loadDataInLIST() Dim frmSecureLoginKassenbuch As New SDL.frmSecureLoginKassenbuch Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "IMEX" ' s.openKB = True frmSecureLoginKassenbuch.KassenbuchNr_tmp = 5030 's.disableCBO = False ' s.ShowDialog(Me) End Select ' frmSecureLoginKassenbuch.KassenbuchNr_tmp = PERSONAL.KassenbuchNr If frmSecureLoginKassenbuch.ShowDialog(Me) = DialogResult.OK Then PERSONAL = frmSecureLoginKassenbuch.PERSONAL Dim frmNacherfassungLeihgeld As New SDL.frmNacherfassungLeihgeld(PERSONAL, frmSecureLoginKassenbuch.PERSONAL_LG) frmNacherfassungLeihgeld.FMZollPersID = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.mit_FMZollPersID 'frmNacherfassungLeihgeld.ShowDialog() frmNacherfassungLeihgeld.AvisoID = AvisoId AddHandler frmNacherfassungLeihgeld.LOADED, Sub() Dim AVISO As cAviso = AvisoDAL.LesenAviso(AvisoId, "") frmNacherfassungLeihgeld.MyTextBoxLKWKz.Text = AVISO.LKW_Nr If Me.SENDUNG_LIST(Me.CURRENT_INDEX).FilialenNr > 0 And Me.SENDUNG_LIST(Me.CURRENT_INDEX).AbfertigungsNr > 0 Then frmNacherfassungLeihgeld.cboFiliale.changeItem(Me.SENDUNG_LIST(Me.CURRENT_INDEX).FilialenNr) frmNacherfassungLeihgeld.txtAbfertigungsnummer.Text = Me.SENDUNG_LIST(Me.CURRENT_INDEX).AbfertigungsNr frmNacherfassungLeihgeld.btnNeueAbfertigungNrVergeben.Visible = False frmNacherfassungLeihgeld.btnNeueAbfertigungNrVergeben.Enabled = False End If 'frmNacherfassungLeihgeld.BELEG.Ordnungsbegriff = AVISO.Frächter 'Keine Abf.-Nr, da neue Pos 'frmNacherfassungLeihgeld.cboFiliale.changeItem(Me.SENDUNG_LIST(Me.CURRENT_INDEX).FilialenNr) ' frmNacherfassungLeihgeld.txtAbfertigungsnummer.Text = Me.SENDUNG_LIST(Me.CURRENT_INDEX).AbfertigungsNr ' frmNacherfassungLeihgeld.init() If Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr > 0 Then frmNacherfassungLeihgeld.kdFrachtführer.KdNr = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr Else frmNacherfassungLeihgeld.kdFrachtführer.Text = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_Frachtfuehrer End If frmNacherfassungLeihgeld.txtKdAuftragsnummer.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_KdAuftragsNr If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber <> "" And (SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber <> Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_Frachtfuehrer And SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr <> Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr) Then If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr > 0 Then frmNacherfassungLeihgeld.txtAuftraggeber.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr Else frmNacherfassungLeihgeld.txtAuftraggeber.KdNr = "" frmNacherfassungLeihgeld.txtAuftraggeber.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber End If frmNacherfassungLeihgeld.cbxFrachter.Checked = False Else frmNacherfassungLeihgeld.txtAuftraggeber.KdNr = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr frmNacherfassungLeihgeld.kdFrachtführer.Text = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_Frachtfuehrer frmNacherfassungLeihgeld.cbxFrachter.Checked = True End If 'If sender Is Button13 Then frmNacherfassungLeihgeld.AddDusche(True) End Sub If frmNacherfassungLeihgeld.ShowDialog(Me) = DialogResult.OK Then If frmNacherfassungLeihgeld.BELEG.FilialenNr > 0 And frmNacherfassungLeihgeld.BELEG.AbfertigungsNr > 0 Then loadDataInLIST() If (Me.SENDUNG_LIST(Me.CURRENT_INDEX).FilialenNr <= 0 Or Me.SENDUNG_LIST(Me.CURRENT_INDEX).AbfertigungsNr <= 0) Then Me.SENDUNG_LIST(Me.CURRENT_INDEX).FilialenNr = frmNacherfassungLeihgeld.BELEG.FilialenNr Me.SENDUNG_LIST(Me.CURRENT_INDEX).AbfertigungsNr = frmNacherfassungLeihgeld.BELEG.AbfertigungsNr End If If VERAG_PROG_ALLGEMEIN.cAllgemein.SpedBuchExists(frmNacherfassungLeihgeld.BELEG.FilialenNr, frmNacherfassungLeihgeld.BELEG.AbfertigungsNr) Then Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen = True End If 'Lädt Auftraggeber If Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_AuftraggeberKdNr <= 0 And frmNacherfassungLeihgeld.BELEG.KundenNr > 0 Then Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_AuftraggeberKdNr = frmNacherfassungLeihgeld.BELEG.KundenNr Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_Auftraggeber = frmNacherfassungLeihgeld.BELEG.Ordnungsbegriff ElseIf Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_Auftraggeber.ToString = "" And frmNacherfassungLeihgeld.BELEG.Ordnungsbegriff <> "" Then Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_Auftraggeber = frmNacherfassungLeihgeld.BELEG.Ordnungsbegriff End If Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_KdAuftragsNr = frmNacherfassungLeihgeld.BELEG.Auftraggeber_KdAuftragsnummer SAVE_ME() initDataBinding() End If End If ' If frmNacherfassungLeihgeld.BELEG.gebucht Then 'SENDUNG_LIST(CURRENT_INDEX).tblSnd_bar = True ' SENDUNG_LIST(CURRENT_INDEX).tblSnd_betrag = frmNacherfassungLeihgeld.BELEG.rksv_umsatz() ' SENDUNG_LIST(CURRENT_INDEX).tblSnd_barBeleg = frmNacherfassungLeihgeld.BELEG.rksv_BelegId ' initDataBinding() ' End If End If End Sub Private Sub Button11_Click_1(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click If vbYes = MsgBox("Möchten Sie alle Aktendeckel drucken?", vbYesNoCancel) Then 'GC.Collect() Me.Cursor = Cursors.WaitCursor 'loadDataInLIST() SAVE_ME() For Each s In SENDUNG_LIST If Not s.tblSnd_Fremdspedition Then If CInt(s.AbfertigungsNr) < 100000 Then MsgBox("Es wurden nicht alle Abfertigungsnummern vergeben!") : Exit Sub Next Dim Printername = cboPrinter.Text 'Dim trd = New Threading.Thread(Sub() For Each s In SENDUNG_LIST If Not s.tblSnd_Fremdspedition Then SendungOptions.PrintSendung("PRINT", s, AVISO, Printername,, SENDUNG_LIST.Count) Next ' End Sub) ' trd.IsBackground = True : trd.Start() Me.Cursor = Cursors.Default End If End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles GelangensbestätigungToolStripMenuItem.Click, toolGelangensbestätigung.Click ' loadDataInLIST() SAVE_ME() Dim SND_TMP = SENDUNG_LIST(CURRENT_INDEX) Dim frmGB As New frmGelangensbestaetigung 'If SND_TMP.tblSnd_AbsenderKdNr > 0 Then 'frmGB.KdSearchBox1.KdNr = SND_TMP.tblSnd_AbsenderKdNr ' Else ' frmGB.KdSearchBox1.Text = SND_TMP.tblSnd_Absender ' End If 'If SND_TMP.tblSnd_EmpfaengerKdNr > 0 Then 'frmGB.KdSearchBox2.KdNr = SND_TMP.tblSnd_EmpfaengerKdNr ' Else ' frmGB.KdSearchBox2.Text = SND_TMP.tblSnd_Empfaenger ' End If frmGB.KdSearchBox1.Text = SND_TMP.tblSnd_Absender frmGB.KdSearchBox2.Text = SND_TMP.tblSnd_Empfaenger If frmGB.ShowDialog(Me) = DialogResult.OK Then SND_TMP.tblSnd_Absender = frmGB.KdSearchBox1.Text SND_TMP.tblSnd_Empfaenger = frmGB.KdSearchBox2.Text Dim art = "" ' If sender Is Button3 Then art = "PRINT" If sender Is GelangensbestätigungToolStripMenuItem Then art = "PDF" Dim Printername = cboPrinter.Text Dim trd = New Threading.Thread(Sub() SendungOptions.Gelangensbestaetigung(art, SND_TMP, AVISO, Printername) End Sub) trd.IsBackground = True : trd.Start() End If End Sub Private Sub txtAbfertigungsnummer_Leave(sender As Object, e As EventArgs) Handles txtAbfertigungsnummer.Leave lblAbfNrExists.Visible = False lblAbfNr_Err.Visible = False If txtAbfertigungsnummer.Text = "" Or txtAbfertigungsnummer.Text = "0" Then Exit Sub If Not IsNumeric(txtAbfertigungsnummer.Text) Then lblAbfNr_Err.Visible = True : Exit Sub If txtAbfertigungsnummer.Text < 0 Then lblAbfNr_Err.Visible = True : Exit Sub If txtAbfertigungsnummer.Text.Length > 8 Then lblAbfNr_Err.Visible = True : Exit Sub If txtAbfertigungsnummer.Text.Length <= 6 Then If IsNumeric(txtAbfertigungsnummer.Text) Then txtAbfertigungsnummer.Text = Now.ToString("yy") & CInt(txtAbfertigungsnummer.Text).ToString("000000") End If End If lblAbfNrExists.Visible = checkDoppelAbfNr() End Sub Function checkDoppelAbfNr() As Boolean Dim Filiale = cboFiliale._value Dim AbfertigungsNr = txtAbfertigungsnummer.Text If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition Then Return False If Filiale Is Nothing Or AbfertigungsNr Is Nothing Then Return False If cbxSpedBuch.Checked Then Return False If IsNumeric(Filiale) And IsNumeric(AbfertigungsNr) Then If SDL.cRKSV.SpedBuchExists(Filiale, AbfertigungsNr) Then Return True End If End If Return False End Function Private Sub cbxFremdspedition_CheckedChanged(sender As Object, e As EventArgs) Handles cbxFremdspedition.CheckedChanged '' TabControl1.Enabled = Not sender.checked 'Panel6.Enabled = Not sender.checked 'Panel16.Enabled = Not sender.checked 'btn.Enabled = Not sender.checked '' Panel5.Enabled = Not sender.checked '' cboAbfertigungsart.Enabled = Not sender.checked 'txtAnzahl.Enabled = Not sender.checked 'cboFiliale.Enabled = Not sender.checked 'txtAbfertigungsnummer.Enabled = Not sender.checked 'txtUnterNr.Enabled = Not sender.checked 'btnNeueAbfertigungNrVergeben.Enabled = Not sender.checked sperrePanel() If sender.checked Then 'Label1.Text = "Fremdspedition:" cboFremdsped.Visible = True ' cboAbfertigungsart.Visible = False pnlFremd.Width = 440 Else ' Label1.Text = "Abfertigungsart:" cboFremdsped.Visible = False ' cboAbfertigungsart.Visible = True pnlFremd.Width = 0 End If End Sub Sub sperrePanel() txtFrachtfuehrer._UseFIRMA = "" txtAvisierer._UseFIRMA = "" txtAuftraggeber._UseFIRMA = "" txtEmpfaenger._UseFIRMA = "" txtAbsender._UseFIRMA = "" Dim sperren = False If cbxFremdspedition.Checked Then sperren = True ElseIf cboAbfertigungsart._value = "44" Then sperren = False ElseIf cboAbfertigungsart._value = "23" Then sperren = False txtFrachtfuehrer._UseFIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(cboFiliale._value) txtAvisierer._UseFIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(cboFiliale._value) txtAuftraggeber._UseFIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(cboFiliale._value) txtEmpfaenger._UseFIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(cboFiliale._value) txtAbsender._UseFIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(cboFiliale._value) Else If cboFiliale._value <> "" Then Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "IMEX" If cboFiliale._value <> "5501" Then sperren = True If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(cboFiliale._value) = "VERAG" AndAlso VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Then sperren = False End If Case "UNISPED" If cboFiliale._value <> "5601" Then sperren = True Case "VERIMEX" If cboFiliale._value = "5601" Then sperren = True 'UNISPED darf VERIMEX nicht, sonst alle im CLUSTER Case "AMBAR" If cboFiliale._value <> "5701" Then sperren = True 'UNISPED darf VERIMEX nicht, sonst alle im CLUSTER Case "VERAG" If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(cboFiliale._value) <> "VERAG" Then sperren = True 'Grundsätzlich wenn nicht VERAG --> sperren If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO") Then If cboFiliale._value = "5601" Or cboFiliale._value = "5501" Then sperren = True End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_AMBARVERAG", "AVISO") Then If cboFiliale._value = "5701" Then sperren = False End If If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(cboFiliale._value) = "IMEX" AndAlso VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Then sperren = False End If End Select End If End If ' TabControl1.Enabled = Not sperren Panel6.Enabled = Not sperren Panel16.Enabled = Not sperren btnSpedBuch.Enabled = Not sperren ' Panel5.Enabled = Not sperren ' cboAbfertigungsart.Enabled = Not sperren txtAnzahl.Enabled = Not sperren txtAnzahlPos.Enabled = Not sperren ' cboFiliale.Enabled = Not sperren txtAbfertigungsnummer.Enabled = Not sperren txtUnterNr.Enabled = Not sperren btnNeueAbfertigungNrVergeben.Enabled = Not sperren End Sub Private Sub cboFiliale_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFiliale.SelectedIndexChanged ' btnKassenbuchEintrag.Enabled = True If loaded Then If Panel6.Enabled Then 'wenn gesperrt, auch keine Prüfung! If cboFiliale._value <> "" Then Dim FilialeAktFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(SENDUNG_LIST(CURRENT_INDEX).FilialenNr,, "") Dim FilialeNeuFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(cboFiliale._value,, "") setContextMenuGVMSControl() If FilialeNeuFirma <> "FRONTOFFICE" And FilialeAktFirma <> "FRONTOFFICE" Then If FilialeAktFirma <> "" And FilialeNeuFirma <> "" Then If FilialeAktFirma <> FilialeNeuFirma Then Dim kdGesetz As Boolean = False If txtAvisierer.KdNr_value > 0 Then kdGesetz = True If txtAuftraggeber.KdNr_value > 0 Then kdGesetz = True If txtEmpfaenger.KdNr_value > 0 Then kdGesetz = True If txtFrachtfuehrer.KdNr_value > 0 Then kdGesetz = True If txtAbsender.KdNr_value > 0 Then kdGesetz = True 'If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(txtAvisierer.KdData_KUNDE.FilialenNr,, "") <> FilialeNeuFirma Then kdGesetz If kdGesetz Then If vbYes = MsgBox("Es wurden bereits Kundennummern einer anderen Firma im Verbund eingetragen. Möchten Sie fortfahren?" & vbNewLine & vbNewLine & "(Die Kundenummern werden zurückgesetzt.)", vbYesNoCancel) Then txtAvisierer.setKdNrKeepName() txtAuftraggeber.setKdNrKeepName() txtEmpfaenger.setKdNrKeepName() txtFrachtfuehrer.setKdNrKeepName() txtAbsender.setKdNrKeepName() Else cboFiliale.changeItem(FilialeAktFirma) Exit Sub End If End If End If End If End If End If End If End If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Firma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(cboFiliale._value,, "") SENDUNG_LIST(CURRENT_INDEX).tblSnd_Cluster = VERAG_PROG_ALLGEMEIN.cAllgemein.getClusterFromFiliale(cboFiliale._value,, "") txtAnzahlPos.Visible = (cboFiliale._value = "7001") Label4.Visible = (cboFiliale._value = "7001") Dim tmp = cboAbfertigungsart._value initAbfertigungsart() 'If IsNumeric(cboFiliale._value) Then ' cboAbfertigungsart.fillWithSQL("SELECT Abfertigungsarten.Abfertigungsart,[Abfertigungsbezeichnung] FROM [Abfertigungsarten] INNER JOIN tblAbfertigungsartenFiliale ON tblAbfertigungsartenFiliale.Abfertigungsart=Abfertigungsarten.Abfertigungsart where Filialennr=" & cboFiliale._value & "", True, "FMZOLL", True) 'Else ' cboAbfertigungsart.fillWithSQL("SELECT Abfertigungsart,[Abfertigungsbezeichnung] FROM [Abfertigungsarten]", True, "FMZOLL", True) 'End If cboAbfertigungsart.changeItem(tmp) If cboAbfertigungsart._value = "" And cboAbfertigungsart.Items.Count = 2 Then cboAbfertigungsart.SelectedItem = cboAbfertigungsart.Items(1) End If If cboFiliale._value <> SENDUNG_LIST(CURRENT_INDEX).FilialenNr.ToString Then btnNeueAbfertigungNrVergeben.Visible = True txtAbfertigungsnummer.Text = "" Else txtAbfertigungsnummer.Text = If(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr > 0, SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr, "") If txtAbfertigungsnummer.Text <> "" And txtAbfertigungsnummer.Text <> "0" Then btnNeueAbfertigungNrVergeben.Visible = False End If Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "UNISPED" Case Else txtDyRef.Visible = (SENDUNG_LIST(CURRENT_INDEX).FilialenNr = "5601") picDy.Visible = (SENDUNG_LIST(CURRENT_INDEX).FilialenNr = "5601") End Select sperrePanel() End Sub Private Sub btnQS_MA_Click(sender As Object, e As EventArgs) Handles btnQS_MA.Click 'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then ' SENDUNG_LIST(CURRENT_INDEX).tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID 'End If SAVE_ME() AVISOFUNC.SendungUebernehmen(SENDUNG_LIST(CURRENT_INDEX)) initDataBinding() End Sub Sub setQS() btnQS_MA.Visible = True btnDelQS.Visible = False lblQsMa.Text = If(SENDUNG_LIST(CURRENT_INDEX).LetzterMitarbeiter, "-") If SENDUNG_LIST(CURRENT_INDEX).LetzterMitarbeiterId IsNot Nothing AndAlso SENDUNG_LIST(CURRENT_INDEX).LetzterMitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then btnQS_MA.Image = My.Resources.personCheck_blue_small Button18.Enabled = True Else btnQS_MA.Image = My.Resources.personCheck_small Button18.Enabled = False End If 'If SENDUNG_LIST(CURRENT_INDEX).tblSnd_QS_MA IsNot Nothing AndAlso IsNumeric(SENDUNG_LIST(CURRENT_INDEX).tblSnd_QS_MA) Then ' lblQsMa.Text = ADMIN.getValueTxtBySql("SELECT [mit_vname] + ' ' + [mit_nname] FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE mit_id=" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_QS_MA, "ADMIN") ' If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then ' btnQS_MA.Visible = False ' btnDelQS.Visible = True ' End If 'Else ' lblQsMa.Text = "-" ' If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then ' btnQS_MA.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & " eintragen" ' btnQS_MA.Visible = True ' btnDelQS.Visible = False ' End If 'End If End Sub Private Sub Button7_Click(sender As Object, e As EventArgs) Handles btnDelQS.Click SENDUNG_LIST(CURRENT_INDEX).tblSnd_QS_MA = Nothing setQS() End Sub Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged initTab() End Sub Sub initTab() btnAutomatischeNacherfassung.Visible = False If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Auto_Nacherfassung", Me) Then btnAutomatischeNacherfassung.Visible = (TabControl1.SelectedTab Is TabPage2) End If If TabControl1.SelectedTab Is tbZollabfertigung Then initdgvZollAnmeldungen() ElseIf TabControl1.SelectedTab Is TabPage1 Then ElseIf TabControl1.SelectedTab Is TabPage2 Then initSpeditionbuch() ElseIf TabControl1.SelectedTab Is TabPage3 Then initVermerke() ElseIf TabControl1.SelectedTab Is tbAnhang Then initAnhang() ElseIf TabControl1.SelectedTab Is tbKundenInfo Then initdgvATEZ() ElseIf TabControl1.SelectedTab Is tbDigicust Then initdgvDigicust(SENDUNG_LIST(CURRENT_INDEX)) ElseIf TabControl1.SelectedTab Is tbKundenInfo Then Dim kdSrc As VERAG_PROG_ALLGEMEIN.KdSearchBox = txtAuftraggeber If kdSrc.KdNr_value <= 0 Then kdSrc = txtEmpfaenger kdSrc.Focus() ' Damit in tbKundeninfo ausgewählt initKdInfo(kdSrc.KdNr_value) Button13.Focus() 'Damit focus wieder weggeht End If End Sub Private Sub initVermerke() RCntrlVermerke1.init(AVISO, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) Exit Sub ' 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_Datum,[anh_docId],CASE WHEN (anh_SendungsId is null OR anh_SendungsId <=0) AND isnull(aa_name,'')='' THEN '***' ELSE [aa_name] END as [anh_Art],[anh_Typ],anh_LaufzettelDruck,anh_GestellungslisteAnfuegen, anh_markiert , anh_cmrId FROM [tblAvisoAnhaenge] left join tblAvisoAnhangsArten on aa_bezeichnung = anh_Art 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 aa_sort = NULL THEN 15 else aa_sort 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_markiert").Visible = False .Columns("anh_cmrId").Visible = False .Columns("anh_Name").MinimumWidth = 150 .Columns("anh_Name").HeaderText = "Name" .Columns("anh_Name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("anh_Datum").Width = 120 .Columns("anh_Datum").HeaderText = "Datum" .Columns("anh_Art").MinimumWidth = 100 .Columns("anh_Art").HeaderText = "Art" .Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter .Columns("anh_Typ").Width = 150 .Columns("anh_Typ").HeaderText = "Typ" .Columns("anh_Typ").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter .Columns("anh_LaufzettelDruck").Width = 150 .Columns("anh_LaufzettelDruck").HeaderText = "Laufzettel-Druck" .Columns("anh_GestellungslisteAnfuegen").Width = 150 .Columns("anh_GestellungslisteAnfuegen").HeaderText = "GestListe anfügen" If .Columns("isCMR") Is Nothing Then Dim c As New DataGridViewImageColumn c.Name = "isCMR" : c.HeaderText = "CMR" c.Image = New Bitmap(1, 1) c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White .Columns.Add(c) End If For Each row As DataGridViewRow In dgvAnhang.Rows If Not IsDBNull(row.Cells("anh_markiert").Value) Then If row.Cells("anh_markiert").Value Then row.DefaultCellStyle.BackColor = Color.Yellow End If If Not IsDBNull(row.Cells("anh_cmrId").Value) Then If row.Cells("anh_cmrId").Value > 0 Then DirectCast(row.Cells("isCMR"), DataGridViewImageCell).Value = My.Resources.stift End If Next .ClearSelection() 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 VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try initDataBinding() End Sub Function checkATLAS_EZA(strManNr, strManNl, Encts_Nr, ATLAS_SERVER_VERBINDUNG) As Boolean Dim i As Integer = SQL.getValueTxtBySql("SELECT COUNT(*) FROM zbant WHERE basman_nr='" & strManNr & "' And basman_nl='" & strManNl & "' And zbant_beznr='" & Encts_Nr & "' ", ATLAS_SERVER_VERBINDUNG) Return (i > 0) End Function Function checkATLAS_NCTS(strManNr, strManNl, ncts_Nr, ATLAS_SERVER_VERBINDUNG) As Boolean Dim i As Integer = SQL.getValueTxtBySql("SELECT COUNT(*) FROM veoant WHERE basman_nr='" & strManNr & "' And basman_nl='" & strManNl & "' And veoant_beznr='" & ncts_Nr & "' ", ATLAS_SERVER_VERBINDUNG) Return (i > 0) End Function Function checkEZOLL_EZA(Encts_Nr) As Boolean Dim i As Integer = SQL.getValueTxtBySql("SELECT COUNT(*) FROM zsAnmRefs WHERE (VorgangID = 'EF') AND (LRN = '" & Encts_Nr & "') ", "EZOLL") Return (i > 0) End Function Function checkEZOLL_NCTS(ncts_Nr) As Boolean Dim i As Integer = SQL.getValueTxtBySql("SELECT COUNT(*) FROM zsAnmRefs WHERE (VorgangID = 'AV') AND (LRN = '" & ncts_Nr & "') ", "EZOLL") Return (i > 0) End Function Private Sub cbxNCTST_CheckedChanged(sender As Object, e As EventArgs) Handles cbxNCTST.CheckedChanged txtAtlasBezNrEZA2.Enabled = sender.checked txtAtlasBezNrNCTS2.Enabled = sender.checked cboZollsystem2.Enabled = sender.checked End Sub Private Sub cboAbfertigungsart_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles cboAbfertigungsart.SelectedIndexChanged pnlHandling.Controls.Clear() Label31.Visible = False cbxOhneZollsys.Checked = False If cboAbfertigungsart._value = "23" Then initHandling() cbxOhneZollsys.Checked = True End If End Sub Sub initHandling() 'SPEDITIONSBUCH.LOAD_UNTERPOS() Label31.Visible = True 'For Each r As DataRow In SQL.loadDgvBySql("SELECT Abfertigungsart,Abfertigungsbezeichnung FROM Abfertigungsarten WHERE isHandlingArt=1 ORDER BY Abfertigungsbezeichnung ", "FMZOLL").Rows For Each r As DataRow In SQL.loadDgvBySql("SELECT * FROM tblSpeditionsbuchUnterPosArten ORDER BY sbupa_bez", "FMZOLL").Rows Dim usr As New VERAG_PROG_ALLGEMEIN.usrcntlUnterposEntry usr.Padding = New Padding(0, 0, 0, 0) usr.Margin = New Padding(0, 0, 0, 0) usr.lblBezeichnung.Text = r("sbupa_bez") usr.UnterPosArt = r("sbupa_id") usr.txtAnzahl.Text = "0" pnlHandling.Controls.Add(usr) Next End Sub Private Sub cbxOhneZollsys_CheckedChanged(sender As Object, e As EventArgs) Handles cbxOhneZollsys.CheckedChanged cboZollsystem.Enabled = Not sender.checked cboZollsystem2.Enabled = Not sender.checked txtAtlasBezNrEZA.Enabled = Not sender.checked txtAtlasBezNrEZA2.Enabled = Not sender.checked txtAtlasBezNrNCTS.Enabled = Not sender.checked txtAtlasBezNrNCTS2.Enabled = Not sender.checked cbxNCTST.Enabled = Not sender.checked End Sub Private Sub DataGridView_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) End Sub Private Sub LinkLabel4_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) ' txtT1Verzollungsadresse.Text = txtEmpfaenger.Text End Sub Private Sub txtGewicht_TextChanged(sender As Object, e As EventArgs) Handles txtGewicht.Leave If IsNumeric(txtGewicht.Text) Then txtGewicht.Text = CDbl(txtGewicht.Text).ToString("N1") End If End Sub Private Sub txtColli_TextChanged(sender As Object, e As EventArgs) Handles txtColli.Leave If IsNumeric(txtColli.Text) Then txtColli.Text = CDbl(txtColli.Text).ToString("N0") End If End Sub Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click ' Dim v As New VERAG_PROG_ALLGEMEIN.NewDataSe Dim G As New DAKOSY_Worker.VersandanmeldungNCTSDE.TransaktionNCTSTyp Dim v As New DAKOSY_Worker.VersandanmeldungNCTSDE.EinzelVersandanmeldungTyp 'Dim G As New VERAG_PROG_ALLGEMEIN.VersandanmeldungNCTSDE2.EntityBase(Of 'Dim data as SchemaClass.LoadFromFile( "myData.xml") 'Dim TEST As New VERAG_PROG_ALLGEMEIN.VersandanmeldungNCTSDE2.VersandanmeldungVATayp ' Dim TEST_X As New VERAG_PROG_ALLGEMEIN.VersandanmeldungNCTSDE2.VersandanmeldungNCTSDE(Of VERAG_PROG_ALLGEMEIN.VersandanmeldungNCTSDE2.VersandanmeldungVATayp) Dim TEST As New DAKOSY_Worker.VersandanmeldungNCTSDE.VersandanmeldungVATayp TEST.EinzelVersandanmeldung = New DAKOSY_Worker.VersandanmeldungNCTSDE.EinzelVersandanmeldungTyp TEST.EinzelVersandanmeldung.KopfDaten = New DAKOSY_Worker.VersandanmeldungNCTSDE.KopfDatenVersandanmeldungTyp TEST.EinzelVersandanmeldung.KopfDaten.Adressen = New DAKOSY_Worker.VersandanmeldungNCTSDE.AdressenVATyp TEST.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger = New DAKOSY_Worker.VersandanmeldungNCTSDE.AdresseVA1Typ TEST.EinzelVersandanmeldung.KopfDaten.Adressen.Empfaenger.EORI = "ASD" 'Dim a As New VERAG_PROG_ALLGEMEIN.VersandanmeldungNCTSDE2.EntityBase(Of VERAG_PROG_ALLGEMEIN.VersandanmeldungNCTSDE2.EinzelVersandanmeldungTyp) TEST.SaveToFile("TESTfileX.xml") Dim TEST3 As New DAKOSY_Worker.VersandanmeldungNCTSDE.DatenaustauschNCTSTyp ' TEST3.Transaktion ' Dim QE2 As New VERAG_PROG_ALLGEMEIN.QuittungEingangsverarbeitungNCTS.DatenaustauschAllgemeinTyp Dim QE As New DAKOSY_Worker.QuittungEingangsverarbeitungNCTS.QuittungEingangsverarbeitungBQTyp QE.Transaktion = New DAKOSY_Worker.QuittungEingangsverarbeitungNCTS.TransaktionAllgemeinTyp QE.EinzelQuittung = New List(Of DAKOSY_Worker.QuittungEingangsverarbeitungNCTS.EinzelQuittungTyp) Dim Q As New DAKOSY_Worker.QuittungEingangsverarbeitungNCTS.EinzelQuittungTyp Q.Transaktionsreferenz = "asdasdasd" QE.EinzelQuittung.Add(Q) 'QE.SaveToFile("TESTQE.xml") ' VERAG_PROG_ALLGEMEIN.QuittungEingangsverarbeitungNCTS.QuittungEingangsverarbeitungBQTyp.LoadFromFile(SAVE_ME) QE.SaveToFile("TESTQE.xml") ' Deserialize() Dim ex As New Exception ' If VERAG_PROG_ALLGEMEIN.QuittungEingangsverarbeitungNCTS.QuittungEingangsverarbeitungBQTyp.LoadFromFile("D:\TESTQEBASE.xml", QE, ex) Then 'MsgBox("asd") ' QE.SaveToFile("TESTQE2.xml") 'End If Dim qVA As New DAKOSY_Worker.QuittungEingangsverarbeitungNCTS.QuittungEingangsverarbeitungBQTyp qVA = DAKOSY_Worker.QuittungEingangsverarbeitungNCTS.QuittungEingangsverarbeitungBQTyp.Deserialize(System.IO.File.ReadAllText("D:\TESTQEBASE.xml")) If qVA IsNot Nothing Then If qVA.Transaktion IsNot Nothing Then MsgBox(qVA.Transaktion.IODatumZeit.ToString()) End If qVA.SaveToFile("TESTQE2.xml") End If 'LOAD: 'SchemaClass data = SchemaClass.LoadFromFile("myData.xml"); 'data.SomeElement.SomeProperty = "foo"; 'data.SaveToFile("myData.xml"); 'v.SaveToFile("TESTfile.xml") 'Dim vers As New VERAG_PROG_ALLGEMEIN.ver ' Dim k As New VERAG_PROG_ALLGEMEIN.NewDataSet.KopfDatenDataTable ' Dim a As New VERAG_PROG_ALLGEMEIN.AdressenVATyp ' Dim em As New VERAG_PROG_ALLGEMEIN.AdresseVA1Typ '' Dim ansp = New VERAG_PROG_ALLGEMEIN.AnsprechpartnerVATyp() ' ansp.EmailAdresse = "asd" 'v.KopfDaten.Adressen.Empfaenger.Ansprechpartner.EmailAdresse = "A" ' em.Ansprechpartner = ansp ' a.Empfaenger = em ' k.Adressen = a ' v.KopfDaten = k ' System.IO.File.Create("C:\Users\DEVELOPER1\Desktop\test\file2.xml", v.GetXml()) ' Using outputFile As New System.IO.StreamWriter("C:\Users\DEVELOPER1\Desktop\test\file2.xml") 'outputFile.Write(v.GetXml) ' End Using ' Dim serializer As New System.Xml.Serialization.XmlSerializer(v.GetType) ' serializer.Serialize(System.IO.File.Create("C:\Users\DEVELOPER1\Desktop\test\file.xml"), v) End Sub Private Sub dgvBelege_CellMouseDoubleClick(sender As Object, e As EventArgs) Handles dgvBelege.DoubleClick If dgvBelege.SelectedRows.Count <= 0 Then Exit Sub Dim frmSecureLoginKassenbuch As New SDL.frmSecureLoginKassenbuch If frmSecureLoginKassenbuch.ShowDialog(Me) = DialogResult.OK Then Dim PERSONAL As SDL.cPersonal = frmSecureLoginKassenbuch.PERSONAL Dim sqlTMP As New SDL.FMZOLL_SQL Dim r As DataGridViewRow = dgvBelege.SelectedRows(0) Dim PERSONALTmp As SDL.cPersonal = sqlTMP.getPersonalById(r.Cells("Benutzer").Value) Dim B As New SDL.EABeleg("LOAD", PERSONALTmp.Mandant, PERSONALTmp.Niederlassung, PERSONALTmp.ID, r.Cells("BelegNr").Value, r.Cells("BelegDat").Value) openBELEG(PERSONALTmp, B) End If End Sub Sub openBELEG(PERSONAL As SDL.cPersonal, B As SDL.EABeleg) If B Is Nothing Then Exit Sub Select Case B.Beleg_TYP Case "0" MsgBox("Ein NULL-Beleg ist nur einmal verfügbar.") Case "E" 'If B.storniert Then MsgBox("Der Beleg wurde bereits storiniert!") : Exit Sub Dim frmBeleg As New SDL.frmFremdbeleg(PERSONAL, PERSONAL.Mandant, PERSONAL.Niederlassung, B.Benutzer, B.BelegNr, B.BelegDat) frmBeleg.ShowDialog(Me) Case "L" If B.storniert Then MsgBox("Der Beleg wurde bereits storiniert!") : Exit Sub Dim frmBeleg As New SDL.frmNacherfassungLeihgeld(PERSONAL, Nothing, PERSONAL.Mandant, PERSONAL.Niederlassung, B.Benutzer, B.BelegNr, B.BelegDat) frmBeleg.ShowDialog(Me) Case Else Dim frmBeleg As New SDL.frmBelegNeu(PERSONAL, Nothing, PERSONAL.Mandant, PERSONAL.Niederlassung, B.Benutzer, B.BelegNr, B.BelegDat) frmBeleg.ShowDialog(Me) End Select initDGVBelege() ' End If End Sub Private Sub dgvBelege_SelectionChanged(sender As Object, e As EventArgs) Handles dgvBelege.Leave dgvBelege.ClearSelection() End Sub Private Sub Button14_Click_1(sender As Object, e As EventArgs) loadDataInLIST() 'SAVE_ME() SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Importaviso_VK, SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr, {SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr, SENDUNG_LIST(CURRENT_INDEX), AVISO}) End Sub Private Sub Button15_Click(sender As Object, e As EventArgs) Handles btnVorauszahlung.Click SAVE_ME() ' falls Änderungen gemacht in Sendung wurden! FormularArt = SDL.FormularManagerArten.Importaviso_VK cntxtVorauskasse.Show(Cursor.Position) End Sub Private Sub FrächterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles toolAbsender.Click, toolAuftraggeber.Click, toolEmpfänger.Click, toolAvisierer.Click, toolFrächter.Click loadDataInLIST() 'SAVE_ME() Dim FirmaFrm = "" Dim ROLLE = "" Dim kdnrFrm = -1 If sender Is toolFrächter Then ROLLE = "FRÄCHTER" : FirmaFrm = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_Frachtfuehrer : kdnrFrm = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr ElseIf sender Is toolAvisierer Then ROLLE = "AVISIERER" : FirmaFrm = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_Avisierer : kdnrFrm = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_AvisiererKdNr ElseIf sender Is toolAbsender Then ROLLE = "ABSENDER" : FirmaFrm = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender : kdnrFrm = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr ElseIf sender Is toolAuftraggeber Then ROLLE = "AUFTRAGGEBER" : FirmaFrm = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber : kdnrFrm = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr ElseIf sender Is toolEmpfänger Then ROLLE = "EMPFAENGER" : FirmaFrm = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger : kdnrFrm = SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr End If Select Case FormularArt Case SDL.FormularManagerArten.Importaviso_VK : SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Importaviso_VK, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO, ROLLE}) Case SDL.FormularManagerArten.Zollbeschau_Protokoll : SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Zollbeschau_Protokoll, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO, ROLLE}) ' Case SDL.FormularManagerArten.Qualitaetskontrolle : SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Qualitaetskontrolle, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO}) Case SDL.FormularManagerArten.Importaviso Dim f As SDL.frmFormulare = Nothing SDL.FormularManagerNEU.OPEN_FORM_Byref(SDL.FormularManagerArten.Importaviso, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO, ROLLE},, f) AddHandler f.FormClosing, Sub() If f.printed Then AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "Auftrag fehlt - angefordert", 1) End Sub End Select End Sub Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click cntxtOptions.Show(Cursor.Position) End Sub Private Sub cntlAvisierer_Sonst_Load(sender As usrcntlCheckBox) Handles cntlAvisierer_Sonst.CLICKED, cntlAuftraggeber_Sonst.CLICKED, cntlAbsender_Sonst.CLICKED, cntlEmpfaenger_Sonst.CLICKED, cntlFrachtfuehrer_Sonst.CLICKED Dim f As New frmSendungsDetailsAbrechnungLeistungen(SENDUNG_LIST(CURRENT_INDEX), sender._beteiligter) ' Dim p As Point = Cursor.Position ' p.Offset(-f.Width \ 2, -f.Height \ 2) ' f.Location = Cursor.Position ' f.Left = Me.PointToScreen(System.Cursor.Position).X ' f.Top = Me.PointToScreen(System.Cursor.Position).Y f.ShowDialog() SAVE_ABRECHUNG() LOAD_ABRECHUNG() End Sub Private Sub Panel6_Paint(sender As Object, e As PaintEventArgs) Handles Panel6.Paint End Sub Private Sub Button14_Click_2(sender As Object, e As EventArgs) Handles Button14.Click Dim f As New frmWarenbezeichnungBegriffe If f.ShowDialog(Me) = DialogResult.OK Then If f.WB IsNot Nothing Then rtbWarenbezeichnung.Text = f.WB.wb_begriff End If End If End Sub Sub initdgvZollAnmeldungen() With dgvZollAnmeldungen .Columns.Clear() .ReadOnly = True .DataSource = SQL.loadDgvBySql("SELECT [dy_Id],[dy_ART],[dy_BezugsNr],[dy_Erstellung],[dy_Status] FROM [tblDakosy_Zollanmeldungen] WHERE dy_AvisoId='" & AvisoId & "' AND dy_SendungsID='" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & "'", "FMZOLL") If .Columns.Count <= 0 Then Exit Sub 'Ä.Columns("txtStatus").ReadOnly = False .Columns("dy_Id").Visible = False .Columns("dy_Status").Visible = False .Columns("dy_ART").HeaderText = "Art" .Columns("dy_ART").Width = 80 .Columns("dy_BezugsNr").HeaderText = "BezugsNr" .Columns("dy_BezugsNr").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("dy_Erstellung").HeaderText = "Erstellt" .Columns("dy_Erstellung").Width = 100 .Columns("dy_Erstellung").DefaultCellStyle.Format = "dd.MM.yy HH:mm" .Columns("dy_Erstellung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter Dim c As New DataGridViewTextBoxColumn c.Name = "txtStatus" .Columns.Add(c) .Columns("txtStatus").HeaderText = "Status" .Columns("txtStatus").Width = 250 For Each r As DataGridViewRow In .Rows r.Cells("txtStatus").Value = DAKOSY_Worker.cDY_Statusliste.getTxtByCode2(r.Cells("dy_Status").Value, r.Cells("dy_ART").Value, r.Cells("txtStatus").Value, r.Cells("txtStatus").Style.BackColor) Next End With End Sub Private Sub dgvZollAnmeldungen_CellFormatting(sender As Object, e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles dgvZollAnmeldungen.CellFormatting Select Case dgvZollAnmeldungen.Columns(e.ColumnIndex).Name Case "txtStatus" 'Dauer ' dgvZollAnmeldungen.Rows(e.RowIndex).Cells("txtStatus").Value = "A" DAKOSY_Worker.cDY_Statusliste.getTxtByCode2(dgvZollAnmeldungen.Rows(e.RowIndex).Cells("dy_Status").Value, dgvZollAnmeldungen.Rows(e.RowIndex).Cells("dy_art").Value, dgvZollAnmeldungen.Rows(e.RowIndex).Cells("txtStatus").Value, dgvZollAnmeldungen.Rows(e.RowIndex).Cells("txtStatus").Style.BackColor, , dgvZollAnmeldungen.Rows(e.RowIndex).Cells("txtStatus").Style.ForeColor) End Select End Sub Private Sub dgvZollAnmeldungen_CellContentClick(sender As Object, e As EventArgs) Handles dgvZollAnmeldungen.DoubleClick ', dgvZollAnmeldungen.CellContentClick If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZA_AVISO_Edit", "AVISO") Then Try Me.Cursor = Cursors.WaitCursor If dgvZollAnmeldungen.SelectedRows.Count = 0 Then Exit Sub Dim DY As DAKOSY_Worker.cDakosy_Zollanmeldungen = DAKOSY_Worker.cDakosy_Zollanmeldungen.LOADById(dgvZollAnmeldungen.SelectedRows(0).Cells("dy_Id").Value) If DY IsNot Nothing Then Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing If SENDUNG_LIST IsNot Nothing Then SND = SENDUNG_LIST(CURRENT_INDEX) End If ' Dim f As New SDL.frmZollanmeldung(DY.dy_ART, DY, AVISO, SENDUNG_LIST(0), Now.ToString("yy")) Dim f As New SDL.frmZollanmeldung(DY.dy_ART, DY, AVISO, SND, Now.ToString("yy")) AddHandler f.FormClosed, Sub() initdgvZollAnmeldungen() End Sub f.Show() End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Me.Cursor = Cursors.Default ' frmNacherfassung.showAll() End If End Sub Private Sub ToolStripMenuItem12_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem32.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 toolSendDyEZA.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 toolSendDyAES.Click 'Me.loadDataInLIST() SAVE_ME() If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub Dim frMZA As New SDL.frmZollanmeldung("AES", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy")) frMZA.Show() AddHandler frMZA.FormClosed, Sub() initdgvZollAnmeldungen() End Sub End Sub Private Sub Button11_Click(sender As Object, e As EventArgs) Handles btnImportaviso.Click FormularArt = SDL.FormularManagerArten.Importaviso cntxtVorauskasse.Show(Cursor.Position) End Sub Private Sub ToolStripMenuItem10_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem10.Click ' Me.loadDataInLIST() SAVE_ME() If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub Dim frMZA As New SDL.frmZollanmeldung("ÜT", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy")) frMZA.Show() AddHandler frMZA.FormClosed, Sub() initdgvZollAnmeldungen() End Sub End Sub Sub newKunde(KD As VERAG_PROG_ALLGEMEIN.KdSearchBox) If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then Dim frmKundenblatt As New SDL.frmKundenblatt frmKundenblatt.showEdit = True frmKundenblatt.kdNr = -1 'frmKundenblatt.BERECHTIGUNEN = BERECHTIGUNEN If frmKundenblatt.ShowDialog(Me) Then If frmKundenblatt.kdNr > 0 Then KD.KdNr = frmKundenblatt.kdNr End If End If Else Dim frmKd As New SDL.frmNeuerKunde frmKd.openKd = False frmKd.timerIntervall = 500 frmKd.username = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.mit_username If frmKd.username.Length > 15 Then frmKd.username = frmKd.username.Substring(0, 15) frmKd.tmpFiliale = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.StandartFiliale ' frmKd.tmpKdNrKreis = 9 If KD.KdNr = -1 Then frmKd.tmpKdName = KD.Text End If frmKd.ShowDialog() If frmKd.kdnr > 0 Then KD.KdNr = frmKd.kdnr End If End If End Sub Private Sub Button11_Click_2(sender As Object, e As EventArgs) Handles Button11.Click newKunde(txtAuftraggeber) End Sub Private Sub Button15_Click_1(sender As Object, e As EventArgs) Handles Button15.Click newKunde(txtEmpfaenger) End Sub Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click newKunde(txtAbsender) End Sub Private Sub tbcntr_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tbcntr.SelectedIndexChanged If tbcntr.SelectedTab Is tbVorkosten Then initDGVVorkosten() ElseIf tbcntr.SelectedTab Is tbBAR Then initDGVBelege() End If End Sub Sub initDGVVorkosten() dgvVorkosten.Rows.Clear() For Each VK In SENDUNG_LIST(CURRENT_INDEX).VORKOSTEN dgvVorkosten.Rows.Add(SENDUNG_LIST(CURRENT_INDEX).VORKOSTEN.IndexOf(VK), VK.sndvk_Firma, VK.sndvk_LeistungsBez, VK.sndvk_Preis) Next End Sub Sub initDGVAbrechnung() dgvVorkosten.Rows.Clear() For Each ABR In SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG dgvVorkosten.Rows.Add(SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG.IndexOf(ABR), ABR.sndabr_beteiligter, ABR.sndabr_LeistungsNr, ABR.sndabr_bezeichnung, ABR.sndabr_preis) Next End Sub Private Sub ToolStripMenuItem13_Click(sender As Object, e As EventArgs) Handles toolSendDyEZA.Click End Sub Private Sub Button17_Click(sender As Object, e As EventArgs) Handles btnVermerk.Click Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() Dim sv As New frmAddSendungsvermerkShort(AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) ', dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value) sv.Location = Me.PointToClient(Cursor.Position) sv.ShowDialog(frmGrayOut) frmGrayOut.Close() sv.Close() initVermerke() End Sub Private Sub dgvAnhang_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnhang.CellDoubleClick Try If TabControl1.SelectedTab Is tbAnhang Then If dgvAnhang.SelectedRows.Count > 0 Then If dgvAnhang.Columns(e.ColumnIndex).Name = "isCMR" Then If Not IsDBNull(dgvAnhang.SelectedRows(0).Cells("anh_cmrId").Value) AndAlso dgvAnhang.SelectedRows(0).Cells("anh_cmrId").Value > 0 Then Dim cmrId As Integer = dgvAnhang.SelectedRows(0).Cells("anh_cmrId").Value Dim f As New SDL.frmCMR(cmrId, dgvAnhang.SelectedRows(0).Cells("anh_docId").Value, dgvAnhang.SelectedRows(0).Cells("anh_id").Value) f.btnCMRtoAkt.Visible = True f.txtCMRName.Visible = True f.btnSaveVorlage.Visible = False 'aus dieser Ansicht keine Vorlagen speichern! If f.ShowDialog(Me) = DialogResult.OK Then If f.ueberschreiben Then Dim da_id = -1 Dim anhId = -1 Dim destPath = "" Dim Typ = "" If f.PDF_Path <> "" Then Dim CMRName = If(f.txtCMRName.Text <> "", f.txtCMRName.Text, "CMR") frmSendungAnhangImport.saveToDS(AvisoId, CMRName, f.PDF_Path, "CMR", "PDF", da_id, anhId, destPath,, f.CMR.CMR_ID) initAnhang() End If End If End If End If Else Dim docPath = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvAnhang.SelectedRows(0).Cells("anh_docId").Value) If Not File.Exists(docPath) Then MsgBox("Die Datei existiert nicht!") Else If docPath.ToString.ToLower.EndsWith(".msg") Then ' MSG - Mails --> lokale Kopie, sonst Fehler (bereits von Benutzer soUndSo geöffnet) Try Dim docPathTMP = VERAG_PROG_ALLGEMEIN.cFormularManager.getTMPPath_MSG() File.Copy(docPath, docPathTMP) Process.Start(docPathTMP) Catch ex As Exception 'wenn fehler, soll versucht werden, das oríginal zu öffnen. Process.Start(docPath) End Try Else Process.Start(docPath) End If End If End If End If End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub Private Sub Button18_Click(sender As Object, e As EventArgs) Handles btnImportAssi.Click 'loadDataInLIST() SAVE_ME() Dim f As New frmSendungAnhangImport(AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) f.ShowDialog(Me) VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, CURRENT_INDEX, AvisoId, False) 'LÄDT alle SENDUNGSDATEN initDataBinding() 'frmSendungsdetails_Load(Me, New EventArgs) End Sub Private Sub MarkiertePDFsDruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MarkiertePDFsDruckenToolStripMenuItem.Click For Each r As DataGridViewRow In dgvAnhang.SelectedRows Select Case r.Cells("anh_Typ").Value Case "PDF" : VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value)}) Case "BILD" : VERAG_PROG_ALLGEMEIN.cFormularManager.Print_PICTURE({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value)}) End Select Next End Sub Private Sub Button20_Click(sender As Object, e As EventArgs) Handles btnOptionen.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.Replace(vbNewLine, " ") If If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender, "") <> "" Then Mail.Subject &= " | Absender: " & SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender If If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht, "") <> "" Then Mail.Subject &= " | Gewicht: " & SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht Dim TextHTML = "" TextHTML &= "Sehr geehrte Damen und Herren,
" TextHTML &= "
" TextHTML &= "beiliegend senden wir Ihnen die Sendungsunterlagen für den o.g. LKW/Container. Wir bitten um Zusendung der ATA-Nummer.
" TextHTML &= "
" TextHTML &= "Mit freundlichen Grüßen
" TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
" TextHTML &= "
" Mail.HTMLBody = "
" & TextHTML & SDL.cFakturierung.getSignature("DE") & "
" AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "ATA-Nr fehlt (Fremdanmeldung) - angefordert", 33) End If Mail.Display() Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!") End Try End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!") End Try End Sub Private Sub GestellungsgarantieToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OhneGestellungsgarantieToolStripMenuItem.Click, MitGestellungsgarantieToolStripMenuItem.Click Try VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP") Try Dim outl As New Outlook.Application Dim Mail As Microsoft.Office.Interop.Outlook.MailItem Mail = outl.CreateItem(0) If dgvAnhang.SelectedRows.Count >= 1 Then For Each r As DataGridViewRow In dgvAnhang.SelectedRows Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) Next End If Dim language As String Select Case usrcntl_NCTS.sbT1VerzollungsadresseLand.Text Case "DE", "AT", "CH", "D", "A" language = "DE" Case Else language = "EN" End Select If language = "DE" Then Mail.Subject = "T1 Bestätigung | " Else Mail.Subject = "T1 Confirmation | " End If Mail.Subject &= AVISO.LKW_Nr If txtEmpfaenger.Text <> "" Then Mail.Subject &= " | " & txtEmpfaenger.Text If txtColli.Text <> "" AndAlso txtGewicht.Text <> "" Then Mail.Subject &= " | " & txtColli.Text & " Pk. " & txtGewicht.Text & " kg" Dim firstTextHTMLDE = "" firstTextHTMLDE &= "Sehr geehrter Geschäftspartner,
" firstTextHTMLDE &= "
" firstTextHTMLDE &= "wir bitten um Bestätigung, dass wir für die angefügte Sendung ein T1-Versandschein an folgender Adresse erstellen dürfen:
" firstTextHTMLDE &= "Mit der Bestätigung stimmen Sie zu, diesen Versandverfahren bei Ihnen zu beenden.
" firstTextHTMLDE &= "
" Dim firstTextHTMLEN = "" firstTextHTMLEN &= "Dear Business Partner,
" firstTextHTMLEN &= "
" firstTextHTMLEN &= "we request confirmation that we may issue a T1 dispatch note for the attached item to the following address:
" firstTextHTMLEN &= "By confirming, you agree to terminate this shipping procedure with you.
" firstTextHTMLEN &= "
" Dim TextHTMLInfo = "" TextHTMLInfo &= usrcntl_NCTS.txtT1Verzollungsadresse.Text & "
" TextHTMLInfo &= usrcntl_NCTS.txtT1VerzollungsadresseStrasse.Text & "
" TextHTMLInfo &= usrcntl_NCTS.sbT1VerzollungsadresseLand.Text & "-" & usrcntl_NCTS.txtT1VerzollungsadressePlz.Text & " " & usrcntl_NCTS.txtT1VerzollungsadresseOrt.Text & "
" TextHTMLInfo &= usrcntl_NCTS.txtT1VerzollungsadresseBestimmungszollstelle.Text & "
" Dim lastTextHTMLDE = "" Dim lastTextHTMLEN = "" If sender Is MitGestellungsgarantieToolStripMenuItem Then lastTextHTMLDE &= "Für eine dauerhafte Gestellungsgarantie füllen Sie bitte beilg. Formular aus und schicken uns dieses unterzeichnet zurück.
" lastTextHTMLEN &= "For a permanent permit, please complete and sign the enclosed form and return it to us.
" Dim usrcntlGestellungsgarantieNew As New SDL.usrcntlGestellungsgarantie() usrcntlGestellungsgarantieNew.cboSprache.Items.Clear() usrcntlGestellungsgarantieNew.cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE", "DE")) usrcntlGestellungsgarantieNew.cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EN", "EN")) usrcntlGestellungsgarantieNew.cboSprache._value = language usrcntlGestellungsgarantieNew.txtFirma.Text = usrcntl_NCTS.txtT1Verzollungsadresse.Text usrcntlGestellungsgarantieNew.txtAdresse1.Text = usrcntl_NCTS.txtT1VerzollungsadresseStrasse.Text usrcntlGestellungsgarantieNew.txtAdresse2.Text = usrcntl_NCTS.sbT1VerzollungsadresseLand.Text & " " & usrcntl_NCTS.txtT1VerzollungsadressePlz.Text & " " & usrcntl_NCTS.txtT1VerzollungsadresseOrt.Text usrcntlGestellungsgarantieNew.txtBestimmungszollamt.Text = usrcntl_NCTS.txtT1VerzollungsadresseBestimmungszollstelle.Text usrcntlGestellungsgarantieNew.txtEORI.Text = usrcntl_NCTS.txtT1VerzollungsadresseEORI.Text Dim PDF_PFad = SDL.FormularManagerNEU.genPDF(usrcntlGestellungsgarantieNew).Item(0).ToString Mail.Attachments.Add(PDF_PFad, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) End If lastTextHTMLDE &= "Mit freundlichen Grüßen
" lastTextHTMLDE &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
" lastTextHTMLDE &= "
" lastTextHTMLEN &= "Best regards
" lastTextHTMLEN &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
" lastTextHTMLEN &= "
" If language = "DE" Then Mail.HTMLBody = "
" & firstTextHTMLDE & TextHTMLInfo & lastTextHTMLDE & SDL.cFakturierung.getSignature(language) & "
" Else Mail.HTMLBody = "
" & firstTextHTMLEN & TextHTMLInfo & lastTextHTMLEN & SDL.cFakturierung.getSignature(language) & "
" End If AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "T1 Bestätigung gesendet", 96) Mail.Display() Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!") End Try Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!") End Try End Sub Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click FormularArt = SDL.FormularManagerArten.Importaviso_VK ctxtWeitereFormulare.Show(Cursor.Position) End Sub Private Sub EmpfängerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EmpfängerToolStripMenuItem.Click loadDataInLIST() Dim ROLLE = "EMPFAENGER" : Dim FirmaFrm = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger : Dim kdnrFrm = SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Verzollungsunterlagen, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO, ROLLE, -1, True}) End Sub Private Sub AuftraggeberToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AuftraggeberToolStripMenuItem.Click loadDataInLIST() Dim ROLLE = "AUFTRAGGEBER" : Dim FirmaFrm = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber : Dim kdnrFrm = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Verzollungsunterlagen, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO, ROLLE, -1, True}) End Sub Private Sub KdAuftragsNrInAlleSendungenÜbernehmenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KdAuftragsNrInAlleSendungenÜbernehmenToolStripMenuItem.Click Dim Atrnr = txtKdAuftragsNrAvisierer.Text ' loadDataInLIST() SAVE_ME() For Each s In SENDUNG_LIST s.tblSnd_KdAuftragsNrAvisierer = Atrnr s.SAVE(False) Next End Sub Private Sub Button22_Click(sender As Object, e As EventArgs) Handles btnMailVorlage.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 btnPDFZusammenfueren.Click ' ContextMenuStrip2.Show(Cursor.Position) If dgvAnhang.SelectedRows.Count >= 1 Then Try Dim files As New List(Of String) ' Dim outputFile As String = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Merge.pdf", ".pdf", True,, "Merge") ' "result.pdf" For Each r As DataGridViewRow In dgvAnhang.SelectedRows files.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value)) Next VERAG_PROG_ALLGEMEIN.cFormularManager.mergePDFs(files, outputFile) Process.Start(outputFile) Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End If End Sub Private Sub ToolStripMenuItem14_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem14.Click 'deleteElement(docId, anhId) End Sub Sub initKdInfo(kdNr As Integer) If TabControl1.SelectedTab Is tbKundenInfo Then ' MsgBox(kdNr) 'Panel20.Controls.Clear() 'If loaded If kdNr > 0 Then If pnlKundenInfo.Controls.Count = 0 Then Dim c As New SDL.usrCntlKundenuebersicht pnlKundenInfo.AutoScrollMinSize = New Size(c.Width, c.Height) pnlKundenInfo.Controls.Add(c) End If If pnlKundenInfo.Controls.Count > 0 Then DirectCast(pnlKundenInfo.Controls(0), SDL.usrCntlKundenuebersicht).setKD(kdNr) DirectCast(pnlKundenInfo.Controls(0), SDL.usrCntlKundenuebersicht).Visible = True End If Else If pnlKundenInfo.Controls.Count > 0 Then DirectCast(pnlKundenInfo.Controls(0), SDL.usrCntlKundenuebersicht).Visible = False End If End If End If End Sub Private Sub txtEmpfaenger_TextChanged(sender As Object, e As EventArgs) Handles txtEmpfaenger.GotFocus, txtAbsender.GotFocus, txtFrachtfuehrer.GotFocus, txtAvisierer.GotFocus, txtAuftraggeber.GotFocus initKdInfo(sender.KdNr) End Sub Private Sub LaufzetteldruckJANEINToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LaufzetteldruckJANEINToolStripMenuItem.Click If dgvAnhang.SelectedRows.Count >= 1 Then Dim errShown = False For Each r As DataGridViewRow In dgvAnhang.SelectedRows ' If r.Cells("anh_typ").Value = "PDF" Then VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.toggleLaufzettelDruck(r.Cells("anh_Id").Value) 'ElseIf Not errShown Then ' MsgBox("Nur bei PDF möglich!") ' errShown = True 'End If Next initAnhang() End If End Sub Private Sub SpeditionSUBENToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpeditionSUBENToolStripMenuItem.Click Try VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP") If dgvAnhang.SelectedRows.Count >= 1 Then Try Dim outl As New Outlook.Application Dim Mail As Microsoft.Office.Interop.Outlook.MailItem Mail = outl.CreateItem(0) 'For Each SI In MyListBox1.SelectedItems ' Dim item As MyListItem = DirectCast(SI, MyListItem) 'DirectCast(MyListBox1.SelectedItems(0), MyListItem) ' For Each ii In ds.DATA_LIST.LIST ' If ii.coll_id = item.Value Then ' If ii.coll_pfad <> "" Then ' Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.copyToTmp_KeepFilename(ii.coll_pfad, ii.coll_bezeichnung), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) ' End If ' End If ' Next 'Next For Each r As DataGridViewRow In dgvAnhang.SelectedRows ' Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.copyToTmp_KeepFilenameByDS(ii.coll_pfad, ii.coll_bezeichnung), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) Next Mail.Subject = "Kennzeichen: " & AVISO.LKW_Nr 'ATA FREMD!!! If sender Is ToolStripMenuItem15 Then Mail.Subject = "Kennzeichen: " & AVISO.LKW_Nr & " | Grenze: " & lblGrenze.Text.Replace(vbNewLine, " ") Dim TextHTML = "" TextHTML &= "Sehr geehrte Damen und Herren,
" TextHTML &= "
" TextHTML &= "beiliegend senden wir Ihnen die Sendungsunterlagen für den o.g. LKW/Container. Wir bitten Sie den LKW/Container vorzubereiten.
" TextHTML &= "
" TextHTML &= "Mit freundlichen Grüßen
" TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
" TextHTML &= "
" Mail.HTMLBody = "
" & TextHTML & SDL.cFakturierung.getSignature("DE") & "
" AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "Doks an Fremdspedition (SUBEN) weitergeleitet.", 46) End If Mail.Display() Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!") End Try End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!") End Try End Sub Private Sub cboFremdsped_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFremdsped.SelectedIndexChanged Select Case cboFremdsped._value Case "IMEX" : cboFiliale.changeItem("5501") Case "UNISPED" : cboFiliale.changeItem("5601") Case "AMBAR" : cboFiliale.changeItem("5701") Case "VERIMEX" : cboFiliale.changeItem("") Case "FRONTOFFICE" : cboFiliale.changeItem("") Case Else If VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE <> "" Then cboFiliale.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE) Else cboFiliale.changeItem("4803") End If End Select End Sub Private Sub LinkLabel4_LinkClicked_1(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel4.LinkClicked If txtAuftraggeber.KdNr > 0 Then txtFrachtfuehrer.KdNr = txtAvisierer.KdNr Else txtFrachtfuehrer.KdNr = -1 txtFrachtfuehrer.Text = txtAvisierer.Text End If End Sub Private Sub IMEXToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles IMEXToolStripMenuItem1.Click open_Mail_NeuerLKW("IMEX") End Sub Sub open_Mail_NeuerLKW(firmaTmp) Dim outl As New Outlook.Application Dim Mail As Microsoft.Office.Interop.Outlook.MailItem Mail = outl.CreateItem(0) Mail.Subject = "NEUER LKW: " & AVISO.LKW_Nr Select Case firmaTmp Case "IMEX" : Mail.To = "info@imex-group.at" Case "AMBAR" : Mail.To = "info@imex-group.at" Case "UNISPED" : Mail.To = "office@unisped.at" Case "VERAG" : Mail.To = "quickstop@verag.ag" End Select Dim TextHTML = "" TextHTML &= "Hallo " & firmaTmp & "-TEAM,
" TextHTML &= "
" TextHTML &= "oben genannter LKW/Container wurde im AVISO erfasst.
" TextHTML &= "Die Papiere sind im Aviso der jeweiligen Sendung angehängt (DIGITALER AKT).
" TextHTML &= "
" TextHTML &= "Mit freundlichen Grüßen
" TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
" TextHTML &= "
" Mail.HTMLBody = "
" & TextHTML & SDL.cFakturierung.getSignature("DE") & "
" Mail.Display() End Sub Private Sub UNISPEDToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UNISPEDToolStripMenuItem.Click open_Mail_NeuerLKW("UNISPED") End Sub Private Sub VERAGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VERAGToolStripMenuItem.Click open_Mail_NeuerLKW("VERAG") End Sub Private Sub ToolStripMenuItem20_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem20.Click ' Me.loadDataInLIST() SAVE_ME() If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub Dim frMZA As New SDL.frmTCZollanmeldung("EZA", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy")) frMZA.Show() AddHandler frMZA.FormClosed, Sub() initdgvZollAnmeldungen() End Sub End Sub Private Sub picKdAtrNr_Avisierer_Click(sender As Object, e As EventArgs) Handles picKdAtrNr_Avisierer.Click, picKdAtrNr_Auftraggeber.Click, picKdAtrNr_Fraechter.Click, picKdAtrNr_Empfänger.Click If sender.tag <> "" Then MsgBox(sender.tag) End If End Sub Private Sub cboFiliale_Leave(sender As Object, e As EventArgs) Handles cboFiliale.Leave initFraechterAvisererFromAkt() End Sub Private Sub Button25_Click(sender As Object, e As EventArgs) Handles btnUIDPruef.Click Me.Cursor = Cursors.WaitCursor Try If txtUIDPruef.Text.Replace("-", "").Trim = "" Then Me.Cursor = Cursors.Default : Exit Sub Dim UID_ERG As Integer = -1 Dim path = SDL.cFinanzOnlineWebService.genUID_Formular(txtUIDPruef.Text, AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, UID_ERG) btnUIDPruef.BackgroundImage = My.Resources.fragezeichen Select Case UID_ERG Case 0 : btnUIDPruef.BackgroundImage = My.Resources.ok 'If path <> "" AndAlso IO.File.Exists(path) Then 'ADD ' Dim fi As New IO.FileInfo(path) ' Dim filename = fi.Name ' If filename = "" Then ' MsgBox("Dateiname konnte nicht ermittelt werden." & vbNewLine & path) ' Else ' If frmSendungAnhangImport.saveToDS(AvisoId, filename, path, "UID", "PDF", , , , SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) Then ' initAnhang() ' End If ' End If 'End If initAnhang() Case 1 : btnUIDPruef.BackgroundImage = My.Resources.del End Select Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Me.Cursor = Cursors.Default End Sub Private Sub Button24_Click(sender As Object, e As EventArgs) Handles btnEORIPruef.Click Me.Cursor = Cursors.WaitCursor Try Dim EORI_NR = txteori_Pruef.Text.Replace("-", "").Replace(" ", "").Trim If EORI_NR = "" Then Me.Cursor = Cursors.Default : Exit Sub Dim EORI_ERG As Integer = -1 Dim path = SDL.cEORIWebService.genEORI_Formular(kdnrEORI, EORI_NR, AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, EORI_ERG) btnEORIPruef.BackgroundImage = My.Resources.fragezeichen Select Case EORI_ERG Case 0 : btnEORIPruef.BackgroundImage = My.Resources.ok 'If path <> "" AndAlso IO.File.Exists(path) Then 'ADD ' Dim fi As New IO.FileInfo(path) ' Dim filename = fi.Name ' If filename = "" Then ' MsgBox("Dateiname konnte nicht ermittelt werden." & vbNewLine & path) ' Else ' If frmSendungAnhangImport.saveToDS(AvisoId, filename, path, "UID", "PDF", , , , SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) Then ' initAnhang() ' End If ' End If 'End If initAnhang() Case 1 : btnEORIPruef.BackgroundImage = My.Resources.del End Select Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Me.Cursor = Cursors.Default 'MsgBox("Noch nicht verfügbar!") 'Exit sub 'Me.Cursor = Cursors.WaitCursor 'Try ' If lbleori_Pruef.Text.Replace("-", "").Trim = "" Then Me.Cursor = Cursors.Default : Exit Sub ' Dim url = "https://ec.europa.eu/taxation_customs/dds2/eos/eori_validation.jsp?Lang=de&EoriNumb=" & lbleori_Pruef.Text.Replace(" ", "") & "&Expand=true" ' Dim path = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(url) ' btnEORIPruef.BackgroundImage = My.Resources.fragezeichen ' MsgBox("1:" & path) ' If path <> "" AndAlso IO.File.Exists(path) Then 'ADD ' Dim fi As New IO.FileInfo(path) ' Dim filename = fi.Name ' If filename = "" Then ' MsgBox("Dateiname konnte nicht ermittelt werden." & vbNewLine & path) ' Else ' MsgBox("2:" & path) ' If frmSendungAnhangImport.saveToDS(AvisoId, filename, path, "EORI", "PDF", , , , SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) Then ' initAnhang() ' End If ' End If ' End If 'Catch ex As Exception ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) 'End Try 'Me.Cursor = Cursors.Default End Sub Private Sub Button24_Click_1(sender As Object, e As EventArgs) Handles Button24.Click Dim f As New frmAviso_Vorpapiere(AVISO) f.ShowDialog(Me) initVorpapiere() setVorpapiere() End Sub Private Sub GestellungslisteAnfügenJANEINToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GestellungslisteAnfügenJANEINToolStripMenuItem.Click If dgvAnhang.SelectedRows.Count >= 1 Then Dim errShown = False For Each r As DataGridViewRow In dgvAnhang.SelectedRows ' If r.Cells("anh_typ").Value = "PDF" Then VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.toggleGestellungslisteAnfuegen(r.Cells("anh_Id").Value) 'ElseIf Not errShown Then ' MsgBox("Nur bei PDF möglich!") ' errShown = True 'End If Next initAnhang() End If End Sub 'Private Sub dgvAnhang_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvAnhang.CellMouseClick ' If e.Button = MouseButtons.Right Then ' MsgBox("HM1") ' dgvAnhang.ClearSelection() ' dgvAnhang.Rows(e.RowIndex).Selected = True ' End If 'End Sub 'Private Sub dgvAnhang_MouseClick(sender As Object, e As MouseEventArgs) Handles dgvAnhang.MouseClick ' If e.Button = MouseButtons.Right Then ' MsgBox("HM2") ' dgvAnhang.ClearSelection() ' ' dgvAnhang.Rows(e.RowIndex).Selected = True ' End If 'End Sub Private Sub grid_CellMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgvAnhang.CellMouseClick If e.Button = MouseButtons.Right Then If Not dgvAnhang.Rows(e.RowIndex).Selected Then If e.RowIndex < 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt dgvAnhang.ClearSelection() dgvAnhang.Rows(e.RowIndex).Selected = True End If cntxtAnh.Show(Cursor.Position) End If 'If e.Button = MouseButtons.Right Then ' If AVISO.Abgeschlossen Then Exit Sub ' If sender Is gridVermerke Then ' If gridVermerke.SelectedRows.Count = 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt ' ' AvisoID = CInt(gridVermerke.Rows(e.RowIndex).Cells("AvisoId").Value) ' gridVermerke.CurrentCell = gridVermerke.Rows(e.RowIndex).Cells(e.ColumnIndex) ' conMenuVermerke.Show(Cursor.Position) ' ToolUeberweisungsBeleg.Visible = (gridVermerke.SelectedRows(0).Cells("VermerkeCode").Value = "13") ' toolVkReminder.Visible = (gridVermerke.SelectedRows(0).Cells("VermerkeCode").Value = "13") ' End If 'End If End Sub '--------------------------- Private Sub btnAddAbr_Click_1(sender As Object, e As EventArgs) Handles btnAddAbr.Click lblErrAbr.Visible = False If cboAbrAn._value.Trim = "" Then lblErrAbr.Text = "Abrechnung An fehlt!" : lblErrAbr.Visible = True : Exit Sub End If If cboAbrLeistungen._value = "" Then lblErrAbr.Text = "Leistungs-Nr fehlt!" : lblErrAbr.Visible = True : Exit Sub End If If txtAbrLeistungsBez.Text.Trim = "" Then lblErrAbr.Text = "Leistungs-Bezeichnung fehlt!" : lblErrAbr.Visible = True : Exit Sub End If If txtAbrLeistungsBez.Text.Trim.Length <= 35 Then lblErrAbr.Text = "Leistungs-Bezeichnung zu lang!" : lblErrAbr.Visible = True : Exit Sub End If If txtAbrPreis._value = "" Then lblErrAbr.Text = "Preis fehlt!" : lblErrAbr.Visible = True : Exit Sub End If Try If ABR_ID >= 0 Then Dim ABR = SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG(ABR_ID) ABR.sndabr_LeistungsNr = cboAbrLeistungen._value abr.sndabr_abrArt = "" ABR.sndabr_bezeichnung = txtAbrLeistungsBez.Text.Trim ABR.sndabr_beteiligter = cboAbrAn._value.Trim abr.sndabr_preis = CDbl(txtAbrPreis._value) abr.sndabr_einzelPreis = CDbl(txtAbrPreis._value) abr.sndabr_anzahl = 1 'SENDUNG_LIST(CURRENT_INDEX).SAVE() btnAddAbr.BackgroundImage = My.Resources.plus Else Dim ABR As New VERAG_PROG_ALLGEMEIN.cSendungAbrechnung(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) ABR.sndabr_LeistungsNr = cboAbrLeistungen._value ABR.sndabr_abrArt = "" ABR.sndabr_bezeichnung = txtAbrLeistungsBez.Text.Trim ABR.sndabr_beteiligter = cboAbrAn._value.Trim ABR.sndabr_preis = CDbl(txtAbrPreis._value) ABR.sndabr_einzelPreis = CDbl(txtAbrPreis._value) ABR.sndabr_anzahl = 1 SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG.Add(ABR) End If ABR_ID = -1 lblVK_BEarbeitungAbbrechen.Visible = False txtVK_Leistung.Text = "" txtVK_Firma.Text = "" txtVK_Preis.Text = "" initdgvAbrechnung() Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub Private Sub dgvAbrechnung_KeyDown(sender As Object, e As KeyEventArgs) Handles dgvAbrechnung.KeyDown If dgvAbrechnung.SelectedRows.Count = 0 Then Exit Sub If e.KeyCode = Keys.Delete Then If vbYes = MsgBox("Möchten Sie die Abrechnungs-Position wirklich löschen?", vbYesNoCancel) Then Dim ABR = SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG.Find(Function(x) x.sndabr_id = dgvAbrechnung.SelectedRows(0).Cells("clmnAbrID").Value) SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG.Remove(ABR) SENDUNG_LIST(CURRENT_INDEX).SAVE(False) initdgvAbrechnung() End If End If End Sub Dim ABR_ID = -1 Private Sub dgvAbrechnung_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAbrechnung.CellDoubleClick, dgvAbrechnung.CellContentDoubleClick If e.RowIndex >= 0 Then Try Dim VK = SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG(dgvAbrechnung.SelectedRows(0).Cells("clmnAbrId").Value) cboAbrAn.changeItem(VK.sndabr_beteiligter) txtAbrLeistungsBez.Text = VK.sndabr_bezeichnung cboAbrLeistungen.changeItem(VK.sndabr_LeistungsNr) txtAbrPreis.Text = CDbl(VK.sndabr_preis).ToString("N2") ABR_ID = dgvAbrechnung.SelectedRows(0).Cells("clmnAbrId").Value lblVK_BEarbeitungAbbrechen.Visible = True btnAddAbr.BackgroundImage = My.Resources.stift Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End If End Sub Private Sub lblAbrAbbrechen_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblAbrAbbrechen.LinkClicked ABR_ID = -1 lblVK_BEarbeitungAbbrechen.Visible = False btnAddAbr.BackgroundImage = My.Resources.plus txtVK_Leistung.Text = "" txtVK_Firma.Text = "" txtVK_Preis.Text = "" End Sub '--------------------------- Private Sub Button17_Click_1(sender As Object, e As EventArgs) Handles btnVorkostenAdd.Click If txtVK_Leistung.Text.Trim = "" Then Exit Sub If txtVK_Firma.Text.Trim = "" Then Exit Sub If txtVK_Preis._value = "" Then Exit Sub Try If VK_ID >= 0 Then 'Dim VK = SENDUNG_LIST(CURRENT_INDEX).VORKOSTEN.Find(Function(x) x.sndvk_id = VK_ID) Dim VK = SENDUNG_LIST(CURRENT_INDEX).VORKOSTEN(VK_ID) VK.sndvk_LeistungsNr = 499 VK.sndvk_LeistungsBez = txtVK_Leistung.Text.Trim VK.sndvk_Firma = txtVK_Firma.Text.Trim VK.sndvk_Preis = CDbl(txtVK_Preis._value) 'SENDUNG_LIST(CURRENT_INDEX).SAVE() btnVorkostenAdd.BackgroundImage = My.Resources.plus Else Dim VK As New VERAG_PROG_ALLGEMEIN.cSendVorkosten VK.sndvk_LeistungsNr = 499 VK.sndvk_LeistungsBez = txtVK_Leistung.Text.Trim VK.sndvk_Firma = txtVK_Firma.Text.Trim VK.sndvk_Preis = CDbl(txtVK_Preis._value) SENDUNG_LIST(CURRENT_INDEX).VORKOSTEN.Add(VK) End If VK_ID = -1 lblVK_BEarbeitungAbbrechen.Visible = False txtVK_Leistung.Text = "" txtVK_Firma.Text = "" txtVK_Preis.Text = "" initDGVVorkosten() Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub Private Sub dgvVorkosten_KeyDown(sender As Object, e As KeyEventArgs) Handles dgvVorkosten.KeyDown If dgvVorkosten.SelectedRows.Count = 0 Then Exit Sub If e.KeyCode = Keys.Delete Then If vbYes = MsgBox("Möchten Sie die Vorkosten-Position wirklich löschen?", vbYesNoCancel) Then Dim VK = SENDUNG_LIST(CURRENT_INDEX).VORKOSTEN.Find(Function(x) x.sndvk_id = dgvVorkosten.SelectedRows(0).Cells("clmnVK_id").Value) SENDUNG_LIST(CURRENT_INDEX).VORKOSTEN.Remove(VK) SENDUNG_LIST(CURRENT_INDEX).SAVE(False) initDGVVorkosten() End If End If End Sub Dim VK_ID = -1 Private Sub dgvVorkosten_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVorkosten.CellDoubleClick, dgvVorkosten.CellContentDoubleClick If e.RowIndex >= 0 Then Try ' Dim VK = SENDUNG_LIST(CURRENT_INDEX).VORKOSTEN.Find(Function(x) x.sndvk_id = dgvVorkosten.SelectedRows(0).Cells("clmnVK_id").Value) Dim VK = SENDUNG_LIST(CURRENT_INDEX).VORKOSTEN(dgvVorkosten.SelectedRows(0).Cells("clmnVK_id").Value) txtVK_Firma.Text = VK.sndvk_Firma txtVK_Leistung.Text = VK.sndvk_LeistungsBez txtVK_Preis.Text = CDbl(VK.sndvk_Preis).ToString("N2") 'VK_ID = VK.sndvk_id VK_ID = dgvVorkosten.SelectedRows(0).Cells("clmnVK_id").Value lblVK_BEarbeitungAbbrechen.Visible = True btnVorkostenAdd.BackgroundImage = My.Resources.stift Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End If End Sub Private Sub lblVK_BEarbeitungAbbrechen_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblVK_BEarbeitungAbbrechen.LinkClicked VK_ID = -1 lblVK_BEarbeitungAbbrechen.Visible = False btnVorkostenAdd.BackgroundImage = My.Resources.plus txtVK_Leistung.Text = "" txtVK_Firma.Text = "" txtVK_Preis.Text = "" End Sub Private Sub ZollstoppAMBARToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZollstoppAMBARToolStripMenuItem.Click Me.Cursor = Cursors.WaitCursor SAVE_ME() Dim f As New frmZollstopp(SENDUNG_LIST(CURRENT_INDEX), usrcntl_NCTS.NCTS_GA) f.ShowDialog(Me) Me.Cursor = DefaultCursor End Sub Private Sub ImportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ImportToolStripMenuItem.Click Me.Cursor = Cursors.WaitCursor Try Dim Path = "" If True Then Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\ATANAK\" If Not My.Computer.FileSystem.DirectoryExists(sPath) Then My.Computer.FileSystem.CreateDirectory(sPath) End If Dim exclApp As Object 'as Application Dim Datei As Object 'as WorkBook Dim Blatt As Object 'Microsoft.Office.Interop.Excel.Worksheet 'As Object 'as Worksheet exclApp = CreateObject("Excel.Application") With exclApp .Visible = False Try Path = sPath & "ATANAK_Import_" & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "-" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & "" & " .xlsx" While System.IO.File.Exists(Path) Path = sPath & "ATANAK_Import_" & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "-" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & "" & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx" End While My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.ATANAK_Instructions_Import, False) Catch ex As System.Exception ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) Me.Cursor = Cursors.Default Exit Sub End Try Datei = .Workbooks.Open(Path) 'Anpassen Blatt = Datei.Worksheets(1) 'Anpassen Blatt.Range("E9").Value = SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "/" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr Blatt.Range("D10").Value = AVISO.LKW_Nr Blatt.Range("D11").Value = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger If SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr > 0 Then Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr) If KD IsNot Nothing AndAlso If(KD.EORITIN, "") <> "" Then Blatt.Range("D12").Value = KD.EORITIN End If End If Blatt.Range("F13").Value = "" 'DDA Blatt.Range("C26").Value = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht Blatt.Range("G26").Value = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Colli.Replace(",", "").Replace(".", "") Blatt.Range("D27").Value = "" 'Procedure Blatt.Range("F29").Value = "" 'CPC Blatt.Range("F30").Value = "" 'Supervising HMRC Adress Blatt.Range("F32").Value = "" 'LICENSE Y/N Blatt.Range("A36").Value = "" 'Other1 Blatt.Range("A37").Value = "" 'Other2 Blatt.Range("A39").Value = "" 'Other3 Blatt.Range("B42").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname Blatt.Range("G42").Value = Now.ToShortDateString Datei.Save If False Then Blatt.PrintOutEx() Else 'Process.Start(Path) .Visible = True End If End With End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Me.Cursor = Cursors.Default End Sub Private Sub ExportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExportToolStripMenuItem.Click Me.Cursor = Cursors.WaitCursor Try Dim Path = "" If True Then Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\ATANAK\" If Not My.Computer.FileSystem.DirectoryExists(sPath) Then My.Computer.FileSystem.CreateDirectory(sPath) End If Dim exclApp As Object 'as Application Dim Datei As Object 'as WorkBook Dim Blatt As Object 'Microsoft.Office.Interop.Excel.Worksheet 'As Object 'as Worksheet exclApp = CreateObject("Excel.Application") With exclApp .Visible = False Try Path = sPath & "ATANAK_Export_" & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "-" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & "" & " .xlsx" While System.IO.File.Exists(Path) Path = sPath & "ATANAK_Export_" & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "-" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & "" & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx" End While My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.ATANAK_Instructions_Export, False) Catch ex As System.Exception ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) Me.Cursor = Cursors.Default Exit Sub End Try Datei = .Workbooks.Open(Path) 'Anpassen Blatt = Datei.Worksheets(1) 'Anpassen Blatt.Range("B8").Value = SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "/" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr Blatt.Range("D6").Value = AVISO.LKW_Nr Dim absender = "" If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr > 0 Then Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr) If KD IsNot Nothing AndAlso If(KD.EORITIN, "") <> "" Then absender = KD.EORITIN End If End If absender = (absender & " " & SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender).Trim Blatt.Range("E10").Value = absender Blatt.Range("E11").Value = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger 'Blatt.Range("C26").Value = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht Blatt.Range("I15").Value = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Colli.Replace(",", "").Replace(".", "") Blatt.Range("B17").Value = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenbezeichnung Blatt.Range("C33").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname Blatt.Range("H33").Value = Now.ToShortDateString Datei.Save If False Then Blatt.PrintOutEx() Else 'Process.Start(Path) .Visible = True End If End With End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Me.Cursor = Cursors.Default End Sub Private Sub ExportT1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExportT1ToolStripMenuItem.Click Me.Cursor = Cursors.WaitCursor Try Dim Path = "" If True Then Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\ATANAK\" If Not My.Computer.FileSystem.DirectoryExists(sPath) Then My.Computer.FileSystem.CreateDirectory(sPath) End If Dim exclApp As Object 'as Application Dim Datei As Object 'as WorkBook Dim Blatt As Object 'Microsoft.Office.Interop.Excel.Worksheet 'As Object 'as Worksheet exclApp = CreateObject("Excel.Application") With exclApp .Visible = False Try Path = sPath & "ATANAK_ExportT1_" & AVISO.AvisoID & "" & " .xlsx" While System.IO.File.Exists(Path) Path = sPath & "ATANAK_ExportT1_" & AVISO.AvisoID & "" & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx" End While My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.ATANAK_Instructions_Export_T1, False) Catch ex As System.Exception ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) Me.Cursor = Cursors.Default Exit Sub End Try Datei = .Workbooks.Open(Path) 'Anpassen Blatt = Datei.Worksheets(1) 'Anpassen Blatt.Range("F7").Value = AVISO.AvisoID Blatt.Range("F6").Value = AVISO.LKW_Nr Dim fraechter = "" If SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr > 0 Then Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr) If AD IsNot Nothing Then Blatt.Range("E13").Value = AD.Name_1 Blatt.Range("E14").Value = (If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, "") & " " & If(AD.Straße, "")).Trim End If Blatt.Range("E13").Value = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtfuehrer Else Blatt.Range("E13").Value = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtfuehrer End If 'Blatt.Range("C26").Value = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht Blatt.Range("I17").Value = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Colli.Replace(",", "").Replace(".", "") Blatt.Range("C25").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname Blatt.Range("H25").Value = Now.ToShortDateString Datei.Save If False Then Blatt.PrintOutEx() Else 'Process.Start(Path) .Visible = True End If End With End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Me.Cursor = Cursors.Default End Sub Private Sub ToolStripMenuItem26_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem26.Click Try VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP") If True Then '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 r As DataGridViewRow In dgvAnhang.SelectedRows 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 = If(AVISO.ImEx <> "", AVISO.ImEx & " / ", "") & AVISO.LKW_Nr & " / " & "ETA: " & If(AVISO.VoraussichtlichesEintreffen IsNot Nothing, CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "") & " // VERAG" Mail.Subject = "VERAG // " & If(AVISO.ImEx <> "", AVISO.ImEx & " / ", "") & " // REF " & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "/" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & " // TRUCK: " & AVISO.LKW_Nr Mail.To = "bblcustoms@groupe-bbl.com" Dim TextHTML = "" TextHTML &= "Dear BBL Team,
" TextHTML &= "
" TextHTML &= "please do the " & If(AVISO.ImEx = "", "customs", AVISO.ImEx) & " for attached shipment on our behalf.
" TextHTML &= "
" TextHTML &= "" TextHTML &= "" TextHTML &= "" ' TextHTML &= "" TextHTML &= "" TextHTML &= "
ETA:" & If(AVISO.VoraussichtlichesEintreffen IsNot Nothing, CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "") & "
Truck:" & AVISO.LKW_Nr & "
Customs Office: " & SQL.getValueTxtBySql("SELECT [basncd_name] FROM basncd WHERE basncd_dstnr='" & If(AVISO.Zollstelle, "") & "' ", "ATLAS") & "
Customs Office: " & SQL.getValueTxtBySql("SELECT [Description] FROM tbl_DY_ZollDE_C0141_Zollstellen WHERE Code='" & If(AVISO.Zollstelle, "") & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ) ", "FMZOLL") & "
" TextHTML &= "
" TextHTML &= "
" TextHTML &= "Best regards
" TextHTML &= "" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
" TextHTML &= "
" Mail.HTMLBody = "
" & TextHTML & SDL.cFakturierung.getSignature("EN",,,, "BREXIT_VERAG") & "
" Dim answer = MsgBox("Vermerk 'An BBL avisiert' eintragen?", vbYesNoCancel) If vbYes = answer Then AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "An BBL avisiert", 43) End If Mail.Display() Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!") End Try End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!") End Try End Sub Private Sub AuftragATANAKToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATANAKTRFraechter.Click, ATANAKEUFraechter.Click Try VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP") If True Then '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 r As DataGridViewRow In dgvAnhang.SelectedRows 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 = If(AVISO.ImEx <> "", AVISO.ImEx & " / ", "") & AVISO.LKW_Nr & " / " & "ETA: " & If(AVISO.VoraussichtlichesEintreffen IsNot Nothing, CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "") & " // VERAG" 'Mail.To = "european@atanak.com" ' Mail.To = "european@dailygroupage.com" If sender Is ATANAKEUFraechter Then Mail.To = "european@atanak.com" If sender Is ATANAKTRFraechter Then Mail.To = "dover@atanak.com" Dim TextHTML = "" TextHTML &= "Dear ATANAK Team,
" TextHTML &= "
" TextHTML &= "attached our next " & If(AVISO.ImEx = "", "customs", AVISO.ImEx) & " instruction.
" TextHTML &= "
" TextHTML &= "" TextHTML &= "" TextHTML &= "" ' TextHTML &= "" TextHTML &= "" TextHTML &= "
ETA:" & If(AVISO.VoraussichtlichesEintreffen IsNot Nothing, CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "") & "
Truck:" & AVISO.LKW_Nr & "
Customs Office: " & SQL.getValueTxtBySql("SELECT [basncd_name] FROM basncd WHERE basncd_dstnr='" & If(AVISO.Zollstelle, "") & "' ", "ATLAS") & "
Customs Office: " & SQL.getValueTxtBySql("SELECT [Description] FROM tbl_DY_ZollDE_C0141_Zollstellen WHERE Code='" & If(AVISO.Zollstelle, "") & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ) ", "FMZOLL") & "
" TextHTML &= "
" TextHTML &= "
" TextHTML &= "Best regards
" TextHTML &= "" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
" TextHTML &= "
" Mail.HTMLBody = "
" & TextHTML & SDL.cFakturierung.getSignature("EN",,,, "BREXIT_VERAG") & "
" Dim answer = MsgBox("Vermerk 'An ATANAK avisiert' eintragen?", vbYesNoCancel) If vbYes = answer Then AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "An ATANAK avisiert", 43) End If Mail.Display() Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!") End Try End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!") End Try End Sub Private Sub ToolStripMenuItem27_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem27.Click Try VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP") If True Then '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 r As DataGridViewRow In dgvAnhang.SelectedRows 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 = If(AVISO.ImEx <> "", AVISO.ImEx & " / ", "") & AVISO.LKW_Nr & " / " & "ETA: " & If(AVISO.VoraussichtlichesEintreffen IsNot Nothing, CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "") & " // VERAG" Mail.Subject = "VERAG // " & If(AVISO.ImEx <> "", AVISO.ImEx & " / ", "") & " // REF " & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "/" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & " // TRUCK: " & AVISO.LKW_Nr Mail.To = "douane@vibsea.com" Dim TextHTML = "" TextHTML &= "Dear VIBSEA Team,
" TextHTML &= "
" TextHTML &= "please do the " & If(AVISO.ImEx = "", "customs", AVISO.ImEx) & " for attached shipment on our behalf.
" TextHTML &= "
" TextHTML &= "" TextHTML &= "" TextHTML &= "" ' TextHTML &= "" TextHTML &= "" TextHTML &= "
ETA:" & If(AVISO.VoraussichtlichesEintreffen IsNot Nothing, CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "") & "
Truck:" & AVISO.LKW_Nr & "
Customs Office: " & SQL.getValueTxtBySql("SELECT [basncd_name] FROM basncd WHERE basncd_dstnr='" & If(AVISO.Zollstelle, "") & "' ", "ATLAS") & "
Customs Office: " & SQL.getValueTxtBySql("SELECT [Description] FROM tbl_DY_ZollDE_C0141_Zollstellen WHERE Code='" & If(AVISO.Zollstelle, "") & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ) ", "FMZOLL") & "
" TextHTML &= "
" TextHTML &= "
" TextHTML &= "Best regards
" TextHTML &= "" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
" TextHTML &= "
" Mail.HTMLBody = "
" & TextHTML & SDL.cFakturierung.getSignature("EN",,,, "BREXIT_VERAG") & "
" Dim answer = MsgBox("Vermerk 'An VIBSEA avisiert' eintragen?", vbYesNoCancel) If vbYes = answer Then AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "An VIBSEA avisiert", 43) End If Mail.Display() Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!") End Try End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!") End Try End Sub Private Sub btnQuckScan_Click(sender As Object, e As EventArgs) Handles btnQuckScan.Click Try Me.Cursor = Cursors.WaitCursor If frmSendungAnhangImport.quickScan(AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) Then initAnhang() End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler QuickScan") End Try Me.Cursor = Cursors.Default End Sub Private Sub ToolStripMenuItem22_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem22.Click ' VERAG_PROG_ALLGEMEIN.cMIC.send_MIC_AvisoSendung(AVISO, SENDUNG_LIST(CURRENT_INDEX)) End Sub Private Sub ToolStripMenuItem23_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem23.Click 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"), "MIC") frMZA.Show() AddHandler frMZA.FormClosed, Sub() initdgvZollAnmeldungen() End Sub End Sub Private Sub AbrechungFremdeGrenzeAktDruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AbrechungFremdeGrenzeAktDruckenToolStripMenuItem.Click Dim SENDUNG = SENDUNG_LIST(CURRENT_INDEX) If IsNumeric(SENDUNG.AbfertigungsNr) AndAlso CInt(SENDUNG.AbfertigungsNr) > 100000 Then Else MsgBox("Abfertigungsnummer angeben!") Exit Sub End If If Not SENDUNG.tblSnd_Fremdspedition And SENDUNG.tblSnd_Abfertigungsart_ID <= 0 Then MsgBox("Abfertigungsart angeben!") Exit Sub End If Dim Printername = "" Dim oPS As New System.Drawing.Printing.PrinterSettings Try Printername = oPS.PrinterName Catch ex As System.Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try 'Aktendeckel SendungOptions.PrintSendung("PRINT", Me.SENDUNG_LIST(CURRENT_INDEX), Me.AVISO, Printername, If(sender Is LaufzettelDruckenToolStripMenuItem, "LAUFZETTEL", "AKT"), SENDUNG_LIST.Count) 'Steuerbescheide drucken Dim SP_LIST As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuchList(SENDUNG.FilialenNr, SENDUNG.AbfertigungsNr) For Each s In SP_LIST.LIST If s.DokumentId_Steuerbeleg IsNot Nothing AndAlso s.DokumentId_Steuerbeleg > 0 Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(s.DokumentId_Steuerbeleg)}) End If If s.DokumentId_Mitteilung IsNot Nothing AndAlso s.DokumentId_Mitteilung > 0 Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(s.DokumentId_Mitteilung)}) End If Next 'Handelsrechnungen Dim ANH_LIST_SND As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge) VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST_SND, SENDUNG.tblSnd_SendungID) 'LÄDT alle Aviso-Anhänge Dim invoicePrinted As Boolean = False If ANH_LIST_SND.Any(Function(c) c.anh_Art.ToString.ToUpper.Contains("RECHNUNG")) Then invoicePrinted = True For Each l In ANH_LIST_SND Select Case l.anh_Art.ToString.ToUpper Case "RECHNUNG", "HANDELSRECHNUNG" VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId)}) Case "EFATURA" If Not invoicePrinted Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId)}) Case "EUR1" VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId)}) End Select Next For Each l In ANH_LIST_SND Select Case l.anh_Art.ToString.ToUpper Case "ATR", "ATR-EUR1" Select Case AVISO.Grenzstelle Case "WO_GE" Case Else VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId)}) End Select End Select Next End Sub Private Sub KreditlimitRisikobewertungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KreditlimitRisikobewertungToolStripMenuItem.Click checkKreditlimit(Me, AVISO, SENDUNG_LIST(CURRENT_INDEX), False, True) End Sub Shared Sub checkKreditlimit_ID(FORM As Form, ByRef AvisoID As Integer, ByRef SendungsID As Integer, allowInsertVermerk As Boolean, showNoErg As Boolean) Dim AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(AvisoID) Dim SND = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsID) checkKreditlimit(FORM, AVISO, SND, allowInsertVermerk, showNoErg) End Sub Shared Sub checkKreditlimit(FORM As Form, ByRef AVISO As VERAG_PROG_ALLGEMEIN.cAviso, ByRef SND As VERAG_PROG_ALLGEMEIN.cSendungen, allowInsertVermerk As Boolean, showNoErg As Boolean) Try If AVISO Is Nothing Then Exit Sub If SND Is Nothing Then Exit Sub FORM.Cursor = Cursors.WaitCursor Dim listKdNr As New List(Of Integer) Dim f As frmSndVorgeschriebenSetzen = Nothing Dim TmpKdNr As Integer Dim found = False If SND.ABRECHNUNG.Exists(Function(x) x.sndabr_beteiligter = "EMPF") Then ' Wenn barechnugn an EmpfFambar TmpKdNr = SND.tblSnd_EmpfaengerKdNr If Not listKdNr.Contains(TmpKdNr) Then f = New AVISO.frmSndVorgeschriebenSetzen(AVISO, SND, TmpKdNr) f.ShowDialog(FORM) If f.ueberschreitungFound Then found = True If allowInsertVermerk Then AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, AVISO.AvisoID, "Kreditlimit überzogen: " & SND.tblSnd_Empfaenger & " | " & f.lblUeberzeihung.Text, 95,,, True) End If listKdNr.Add(TmpKdNr) End If End If FORM.Cursor = Cursors.WaitCursor If SND.ABRECHNUNG.Exists(Function(x) x.sndabr_beteiligter = "AUFTR") Then ' Wenn barechnugn an Empf TmpKdNr = SND.tblSnd_AuftraggeberKdNr If Not listKdNr.Contains(TmpKdNr) Then f = New AVISO.frmSndVorgeschriebenSetzen(AVISO, SND, TmpKdNr) f.ShowDialog(FORM) If f.ueberschreitungFound Then found = True If allowInsertVermerk Then AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, AVISO.AvisoID, "Kreditlimit überzogen: " & SND.tblSnd_Auftraggeber & " | " & f.lblUeberzeihung.Text, 95,,, True) End If listKdNr.Add(TmpKdNr) End If End If FORM.Cursor = Cursors.WaitCursor If SND.ABRECHNUNG.Exists(Function(x) x.sndabr_beteiligter = "ABS") Then ' Wenn barechnugn an Empf TmpKdNr = SND.tblSnd_AbsenderKdNr If Not listKdNr.Contains(TmpKdNr) Then f = New AVISO.frmSndVorgeschriebenSetzen(AVISO, SND, TmpKdNr) f.ShowDialog(FORM) If f.ueberschreitungFound Then found = True If allowInsertVermerk Then AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, AVISO.AvisoID, "Kreditlimit überzogen: " & SND.tblSnd_Absender & " | " & f.lblUeberzeihung.Text, 95,,, True) End If listKdNr.Add(TmpKdNr) End If End If FORM.Cursor = Cursors.WaitCursor If SND.ABRECHNUNG.Exists(Function(x) x.sndabr_beteiligter = "AVISIERER") Then ' Wenn barechnugn an Empf TmpKdNr = SND.tblSnd_AvisiererKdNr If Not listKdNr.Contains(TmpKdNr) Then f = New AVISO.frmSndVorgeschriebenSetzen(AVISO, SND, TmpKdNr) f.ShowDialog(FORM) If f.ueberschreitungFound Then found = True If allowInsertVermerk Then AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, AVISO.AvisoID, "Kreditlimit überzogen: " & SND.tblSnd_Avisierer & " | " & f.lblUeberzeihung.Text, 95,,, True) End If listKdNr.Add(TmpKdNr) End If End If FORM.Cursor = Cursors.WaitCursor If SND.ABRECHNUNG.Exists(Function(x) x.sndabr_beteiligter = "FRACHTF") Then ' Wenn barechnugn an Empf TmpKdNr = SND.tblSnd_FrachtfuehrerKdNr If Not listKdNr.Contains(TmpKdNr) Then f = New AVISO.frmSndVorgeschriebenSetzen(AVISO, SND, TmpKdNr) f.ShowDialog(FORM) If f.ueberschreitungFound Then found = True If allowInsertVermerk Then AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, AVISO.AvisoID, "Kreditlimit überzogen: " & SND.tblSnd_Frachtfuehrer & " | " & f.lblUeberzeihung.Text, 95,,, True) End If listKdNr.Add(TmpKdNr) End If End If If Not found Then If showNoErg Then MsgBox("Keine Überschreitungen gefunden.") End If Catch ex As Exception End Try FORM.Cursor = Cursors.Default End Sub Private Sub AktuelleSendungAnhängeWählenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AktuelleSendungAnhängeWählenToolStripMenuItem.Click, AlleLEXSendungenLKWToolStripMenuItem.Click Me.Cursor = Cursors.WaitCursor Try VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP") If True Then 'dgvAnhang.SelectedRows.Count >= 1 Then Try Dim outl As New Outlook.Application Dim Mail As Microsoft.Office.Interop.Outlook.MailItem Mail = outl.CreateItem(0) Dim OnylSND = -1 If sender Is AktuelleSendungAnhängeWählenToolStripMenuItem Then 'For Each r As DataGridViewRow In dgvAnhang.SelectedRows ' Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) 'Next OnylSND = CURRENT_INDEX End If 'LEX Mail.Subject = "AVIS: Kennzeichen: " & AVISO.LKW_Nr & " | Pos: " & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "/" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & If(AVISO.VoraussichtlichesEintreffen IsNot Nothing, " | ETA: " & CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "") Dim TextHTML = "" TextHTML &= "Sehr geehrte Damen und Herren,
" TextHTML &= "
" TextHTML &= "anbei senden wir Ihnen unser Avis zu o.g. LKW.
" TextHTML &= "
" TextHTML &= "Bitte bereiten Sie angefügte(n) Sendung(en) wie folgt vor:
" TextHTML &= "
" TextHTML &= "" TextHTML &= "" Dim ANH_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge) Dim cnt = 1 For Each SND In SENDUNG_LIST Dim gestellungsadresseTmp = "" If (OnylSND >= 0 AndAlso SND Is SENDUNG_LIST(OnylSND)) Or (OnylSND < 0 And SND.FilialenNr = 4839) Then TextHTML &= "" TextHTML &= "" TextHTML &= "" TextHTML &= "" TextHTML &= "" TextHTML &= "" TextHTML &= "" TextHTML &= "" Select Case SND.tblSnd_Abfertigungsart_ID Case "38", "1" Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(SND.tblSnd_EmpfaengerKdNr) Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(SND.tblSnd_EmpfaengerKdNr) Dim VMDat As Object = SQL.getValueTxtBySql("SELECT [kdvm_erhalten_Datum] FROM [tblKundenVollmachten] where kdvm_KundenNr='" & SND.tblSnd_EmpfaengerKdNr & "' and [kdvm_kdvmaId] IN (12,3) and [kdvm_erhalten]=1 ORDER BY [kdvm_erhalten_Datum] desc", "FMZOLL",,, Nothing) If KD IsNot Nothing AndAlso KD IsNot Nothing Then TextHTML &= "" TextHTML &= "" TextHTML &= "" Else TextHTML &= "" TextHTML &= "" TextHTML &= "" End If Case "5", "6" gestellungsadresseTmp = SND.getNCTSAdress().Trim TextHTML &= "" TextHTML &= "" TextHTML &= "" Case Else TextHTML &= "" TextHTML &= "" TextHTML &= "" End Select TextHTML &= "" If gestellungsadresseTmp <> "" Then TextHTML &= "" TextHTML &= "" TextHTML &= "" TextHTML &= "" TextHTML &= "" End If '.... 'For Each r As DataGridViewRow In dgvAnhang.SelectedRows ' Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) 'Next Dim anhaengeVersand As New List(Of String) Dim found = False VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST, SND.tblSnd_SendungID) 'LÄDT alle Aviso-Anhänge For Each l In ANH_LIST Select Case l.anh_Art.ToString.ToUpper Case "UID", "EORI" Case Else ' Case "RECHNUNG", "CMR", "AUSFUHR", "COO", "PACKLISTE" Dim PathTmpANH = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(l.anh_docId)).GET_TOP1_PATH(False) If PathTmpANH <> "" Then If OnylSND < 0 Then 'NUR WENN ALLE SENDUNGEN... anhaengeVersand.Add(PathTmpANH) Else ' ...Sonst direkt an Mail anfügen Mail.Attachments.Add(PathTmpANH, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) End If found = True End If End Select Next If OnylSND < 0 Then 'NUR WENN ALLE SENDUNGEN If anhaengeVersand.Count = 1 Then 'Falls nur 1 Anhang Mail.Attachments.Add(anhaengeVersand(0), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) ElseIf anhaengeVersand.Count > 1 Then 'Zusammenfassen der Anhänge Dim zielPfadZusammenfassung = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(cnt & "_" & SND.FilialenNr & "-" & SND.AbfertigungsNr & ".pdf", ".pdf",, False, "Zusammenfassung_LEX_" & SND.tblSnd_SendungID & "_" & Now.ToString("ddMMyyyy_HHmmss")) If SDL.FormularManagerNEU.MergePdfFiles(anhaengeVersand, zielPfadZusammenfassung) Then Mail.Attachments.Add(zielPfadZusammenfassung, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) End If End If End If cnt += 1 End If Next 'Vorpapier laden: ANH_LIST = New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge) VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_ByAviso(ANH_LIST, AvisoId) 'LÄDT alle Aviso-Anhänge For Each l In ANH_LIST Select Case l.anh_Art.ToString.ToUpper Case "VORPAPIER" ' T1,.. Dim PathTmpANH = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(l.anh_docId)).GET_TOP1_PATH(False) If PathTmpANH <> "" Then Mail.Attachments.Add(PathTmpANH, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) End Select Next TextHTML &= "
PosReferenzAbfertigungsartAbsenderEmpfängerSendungAbrechnungEORIUIDVollmacht
" & cnt & "" & SND.FilialenNr & "/" & SND.AbfertigungsNr & "" & SQL.DLookup("isnull(AbfertigungsbezeichnungLang,Abfertigungsbezeichnung)", "[Abfertigungsarten]", "[Abfertigungsart]='" & SND.tblSnd_Abfertigungsart_ID & "'", "FMZOLL", "") & "" & SND.tblSnd_Absender & "" & SND.tblSnd_Empfaenger & "" & SND.tblSnd_Colli & " Pk. " & SND.tblSnd_Warenbezeichnung & " - " & SND.tblSnd_Gewicht & " kg " If SND.tblSnd_BARzuKassieren IsNot Nothing Then If IsNumeric(SND.tblSnd_BARzuKassieren) AndAlso SND.tblSnd_BARzuKassieren <> 0 Then TextHTML &= "BAR kassieren:" & CDbl(SND.tblSnd_BARzuKassieren).ToString("C2") Else TextHTML &= "BAR kassieren:" & SND.tblSnd_BARzuKassieren 'falls keine Zahl End If Else TextHTML &= "VERAG" End If TextHTML &= "" & If(KD.EORITIN, "") & "" & If(AD.UstIdKz, "") & If(AD.UstIdNr, "") & "" & If(VMDat, "") & "---------
NCTS-Gestellungsadresse:" & gestellungsadresseTmp & "
" TextHTML &= "
" TextHTML &= "
" TextHTML &= "Für Rückfragen stehen wir gerne zur Verfügung
" TextHTML &= "
" TextHTML &= "Mit freundlichen Grüßen
" TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
" TextHTML &= "
" Mail.HTMLBody = "
" & TextHTML & SDL.cFakturierung.getSignature("DE") & "
" AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "Doks an Fremdspedition (SUBEN) weitergeleitet.", 46) Mail.Display() Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!") End Try End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!") End Try Me.Cursor = Cursors.Default End Sub Private Sub AktuelleSendungGVMSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AlleEIDRSendungenToolStripMenuItem.Click, AktuelleSendungToolStripMenuItem.Click Me.Cursor = Cursors.WaitCursor Dim currentFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(SENDUNG_LIST(CURRENT_INDEX).FilialenNr,, "") Try VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP") If True Then Try Dim outl As New Outlook.Application Dim Mail As Microsoft.Office.Interop.Outlook.MailItem Dim isReply As Boolean = False If dgvAnhang.SelectedRows.Count = 1 AndAlso dgvAnhang.CurrentRow.Cells("anh_Typ").Value = "MSG" Then Dim olSess = outl.Session Dim accounts = olSess.Accounts Dim account As Outlook.Account Dim PathTmpANH = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvAnhang.CurrentRow.Cells("anh_docId").Value) Mail = CType(olSess.OpenSharedItem(PathTmpANH), Outlook.MailItem) 'For Each account In accounts ' If account.UserName.ToString = "brexit" Then ' Mail.SentOnBehalfOfName = "brexit@verag.ag" 'account.SmtpAddress.ToString ' End If 'Next Mail = Mail.ReplyAll isReply = True Else Mail = outl.CreateItem(0) End If Dim OnylSND = -1 If sender Is AktuelleSendungToolStripMenuItem Then OnylSND = CURRENT_INDEX End If 'LEX Mail.Subject = "GVMS: Kennzeichen: " & AVISO.LKW_Nr If OnylSND >= 0 Then Mail.Subject &= " | Pos: " & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "/" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr Dim DETextHTML = "" DETextHTML &= "Sehr geehrter Geschäftspartner,
" DETextHTML &= "
" DETextHTML &= "hiermit bestätigen wir, dass die folgende(n) Sendung(en) durch uns im EIDR Verfahren erfasst wurden.
Sie dürfen somit ins Zollgebiet des Vereinigten Königreichs einfahren und die Waren in den Freien Verkehr bringen.
" DETextHTML &= "Bitte beachten Sie, dass Sie vor der Überfahrt einen GVMS-Eintrag erstellen müssen.
" DETextHTML &= "Bitte verwenden Sie als Deklarationstyp die Entry In Declarant's Records (EIDR) und als Referenz unsere EORI-Nr: GB078068385000
" DETextHTML &= "Wir übernehmen gerne die Eintragung für Sie – bitte antworten Sie auf dieses Mail, wenn die Anmeldung durch uns durchgeführt werden sollte.

" Dim ENTextHTML = "" ENTextHTML &= "
" ENTextHTML &= "Dear Business Partner,
" ENTextHTML &= "
" ENTextHTML &= "We hereby confirm that the following shipment(s) have been registered by us under the EIDR procedure.
You may therefore enter the customs territory of the United Kingdom and release the goods for free circulation.
" ENTextHTML &= "Please use Entry In Declarant's Records (EIDR) as declaration type and EORI no. GB078068385000 as reference.
" ENTextHTML &= "Please note that you must create a GVMS entry before crossing.
We will be happy to make the entry for you - please reply to this email if the entry should be made by us" ENTextHTML &= "You will find instructions attached.

" ENTextHTML &= "Sendungen/Shipment(s):
" Dim TextHTMLtable = "" TextHTMLtable &= "" TextHTMLtable &= "" Dim cnt = 1 For Each SND In SENDUNG_LIST If (OnylSND >= 0 AndAlso SND Is SENDUNG_LIST(OnylSND)) Or (OnylSND < 0 And SND.FilialenNr = 7001 And SND.tblSnd_Abfertigungsart_ID = 46) Then TextHTMLtable &= "" TextHTMLtable &= "" TextHTMLtable &= "" TextHTMLtable &= "" TextHTMLtable &= "" TextHTMLtable &= "" TextHTMLtable &= "" TextHTMLtable &= "" cnt += 1 End If Next TextHTMLtable &= "
PosReferenzAbsender/SenderEmpfänger/RecipientSendung/ShipmentKennzeichen/License plate
" & cnt & "" & SND.FilialenNr & "/" & SND.AbfertigungsNr & "" & SND.tblSnd_Absender & "" & SND.tblSnd_Empfaenger & "" & SND.tblSnd_Colli & " Pk. " & SND.tblSnd_Warenbezeichnung & " - " & SND.tblSnd_Gewicht & " kg " & AVISO.LKW_Nr & "
" Dim EndTextHTML = "" EndTextHTML &= "
" EndTextHTML &= "
" EndTextHTML &= "Für Rückfragen stehen wir gerne zur Verfügung/We are at your disposal for any questions
" EndTextHTML &= "
" EndTextHTML &= "Mit freundlichen Grüßen/Best regards
" EndTextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
" EndTextHTML &= "
" If isReply Then Dim HTML = DETextHTML & ENTextHTML & TextHTMLtable & EndTextHTML & SDL.cFakturierung.getSignature("EN",,,, "BREXIT_VERAG") & Mail.HTMLBody Mail.HTMLBody = HTML Mail.Display() Else Mail.HTMLBody = "
" & DETextHTML & ENTextHTML & TextHTMLtable & EndTextHTML & SDL.cFakturierung.getSignature("EN",,,, "BREXIT_VERAG") & "
" Mail.Display() End If AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "GMVS/ EIDR Notification sent to Client.", 99) Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!") End Try End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!") End Try Me.Cursor = Cursors.Default End Sub Private Sub AMBARZollbeschauToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AMBARZollbeschauToolStripMenuItem.Click Me.Cursor = Cursors.WaitCursor Try Dim Path = "" If True Then Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\AMABR\" If Not My.Computer.FileSystem.DirectoryExists(sPath) Then My.Computer.FileSystem.CreateDirectory(sPath) End If Dim exclApp As Object 'as Application Dim Datei As Object 'as WorkBook Dim Blatt As Object 'Microsoft.Office.Interop.Excel.Worksheet 'As Object 'as Worksheet exclApp = CreateObject("Excel.Application") With exclApp .Visible = False Try Path = sPath & "VZ HINDERNISS - ZOLLBESCHAU - PROTOKOLL " & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "-" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & "" & " .xlsx" While System.IO.File.Exists(Path) Path = sPath & "VZ HINDERNISS - ZOLLBESCHAU - PROTOKOLL " & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "-" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & "" & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx" End While My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.VZ_HINDERNISS___ZOLLBESCHAU___PROTOKOLL, False) Catch ex As System.Exception ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) Me.Cursor = Cursors.Default Exit Sub End Try Datei = .Workbooks.Open(Path) 'Anpassen Blatt = Datei.Worksheets(1) 'Anpassen Blatt.Range("J7").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname Blatt.Range("C52").Value = Now.ToShortDateString Blatt.Range("D7").Value = SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "/" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr Blatt.Range("I13").Value = AVISO.LKW_Nr Dim absender = "" If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr > 0 Then Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr) If KD IsNot Nothing AndAlso If(KD.EORITIN, "") <> "" Then absender = KD.EORITIN End If End If absender = (absender & " " & SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender).Trim Blatt.Range("D14").Value = absender Blatt.Range("I14").Value = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger Blatt.Range("D13").Value = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtfuehrer 'Blatt.Range("C26").Value = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht Blatt.Range("H20").Value = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Colli.Replace(",", "").Replace(".", "") Blatt.Range("K20").Value = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht '.Replace(",", "").Replace(".", "") Blatt.Range("D23").Value = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenbezeichnung Blatt.Range("E19").Value = If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert, "") Blatt.Range("D19").Value = If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_WarenwertWaehrung, "") Datei.Save If False Then Blatt.PrintOutEx() Else 'Process.Start(Path) .Visible = True End If End With End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Me.Cursor = Cursors.Default End Sub Sub calculateFreightCosts() Dim f = New frmFrachtkostenBerechnen() f.UsrcntlFrachtkostenberechnung1.init(AvisoId, txtAbsenderKdNr._value, txtEmpfaengerKdNr._value, txtGewicht.Text, txtFrachtkostenGesamt.Text, rtbWarenbezeichnung.Text, txtWarenwert._value) If f.ShowDialog = DialogResult.OK Then txtFrachtkostenEU._value = f.UsrcntlFrachtkostenberechnung1.EUAnteil.ToString("N2") txtFrachtkostenNichtEU._value = f.UsrcntlFrachtkostenberechnung1.nichtEUAnteil.ToString("N2") txtFrachtkostenGesamt._value = (f.UsrcntlFrachtkostenberechnung1.EUAnteil + f.UsrcntlFrachtkostenberechnung1.nichtEUAnteil).ToString("N2") End If End Sub Private Sub btn_FrachtkostenBerechnen_Click(sender As Object, e As EventArgs) Handles btn_FrachtkostenBerechnen.Click If txtFrachtkostenGesamt.Text = "" AndAlso txtGewicht.Text = "" Then MsgBox("Bitte Gewicht oder Gesamtfrachtkosten angeben!") txtGewicht.Focus() Else calculateFreightCosts() End If End Sub Private Sub Button17_Click_2(sender As Object, e As EventArgs) Handles Button17.Click Dim f As New SDL.frmCMR f.btnCMRtoAkt.Visible = True f.txtCMRName.Visible = True If txtAbsender.KdData_ADRESSEN IsNot Nothing Then f.uCmr.txtAbsender.Text = txtAbsender.KdData_ADRESSEN.getAdressFromatted() If txtFrachtfuehrer.KdData_ADRESSEN IsNot Nothing Then f.uCmr.txtFrachtführer.Text = txtFrachtfuehrer.KdData_ADRESSEN.getAdressFromatted() If txtEmpfaenger.KdData_ADRESSEN IsNot Nothing Then f.uCmr.txtEmpfänger.Text = txtEmpfaenger.KdData_ADRESSEN.getAdressFromatted() f.uCmr.dgvLadungenKurz.Rows.Add(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Colli, ""), "Pk", If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenbezeichnung, ""), If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht, "")) f.uCmr.txtKfz.Text = AVISO.LKW_Nr f.uCmr.txtAnhänger.Text = AVISO.LKW_Nr If SENDUNG_LIST(CURRENT_INDEX).NCTS_Bestimmungszollstelle <> "" Then f.uCmr.txtAnweisungenDesAbsenders.Text = "Bestimmungszollstelle: " & vbNewLine & SENDUNG_LIST(CURRENT_INDEX).NCTS_Bestimmungszollstelle ' usrcntl_NCTS.txtT1VerzollungsadresseBestimmungszollstelle.Text End If If f.ShowDialog(Me) Then Dim da_id = -1 Dim anhId = -1 Dim destPath = "" Dim Typ = "" If f.PDF_Path <> "" Then Dim CMRName = If(f.txtCMRName.Text <> "", f.txtCMRName.Text, "CMR") frmSendungAnhangImport.saveToDS(AvisoId, CMRName, f.PDF_Path, "CMR", "PDF", da_id, anhId, destPath, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, f.CMR.CMR_ID) initAnhang() End If End If End Sub Sub initSND_CHAT(SendungsID) If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("LKW_CHAT") Then If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("LKW_CHAT", Me.FindForm) Then picAVISOMessengerSNDChat.Visible = True lblSNDChat_MsgCnt.Visible = False Dim newMsgSnd = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT_SendungsID(SendungsID) If newMsgSnd > 0 Then lblSNDChat_MsgCnt.Text = newMsgSnd lblSNDChat_MsgCnt.Visible = True lblSNDChat_MsgCnt.BringToFront() End If 'If VERAG_PROG_ALLGEMEIN.cMessenger.isACTIVE_SendungsID(SendungsID) Then ' lblSNDChat_MsgCnt.Text = "!!" ' lblSNDChat_MsgCnt.Visible = True ' lblSNDChat_MsgCnt.BringToFront() 'End If End If End If End Sub Private Sub picAVISOMessengerSNDChat_Click(sender As Object, e As EventArgs) Handles picAVISOMessengerSNDChat.Click, lblSNDChat_MsgCnt.Click SAVE_ME() If SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr <= 0 Then MsgBox("Bitte zuerst AbfertigungsNr und FilialenNr vergeben!") : Exit Sub If SENDUNG_LIST(CURRENT_INDEX).FilialenNr <= 0 Then MsgBox("Bitte zuerst AbfertigungsNr und FilialenNr vergeben!") : Exit Sub Me.Cursor = Cursors.WaitCursor If VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat.openSND_Chat(AVISO, SENDUNG_LIST(CURRENT_INDEX)) Then initSND_CHAT(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) End If Me.Cursor = Cursors.Default End Sub Private Sub setContextMenuGVMSControl() If cboFiliale._value = "7001" AndAlso cboAbfertigungsart._value = "46" Then GVMSInfoToolStripMenuItem.Visible = True Else GVMSInfoToolStripMenuItem.Visible = False End If End Sub Private Sub AMBARZollbeschauNEUToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AMBARZollbeschauNEUToolStripMenuItem.Click Try FormularArt = SDL.FormularManagerArten.Zollbeschau_Protokoll cntxtVorauskasse.Show(Cursor.Position) Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub Private Sub AuftragMOTISToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AuftragMOTISToolStripMenuItem.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) Mail.To = "clearance@motisfreeflow.com" Mail.Subject = "Arrival Notice " & If(AVISO.LKW_Nr <> "", AVISO.LKW_Nr, "") & " our Ref: " & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "/" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr Dim TextHTML = "" TextHTML &= "Dear Motis Free Flow Team,
" TextHTML &= "
" TextHTML &= "please see attached.
" TextHTML &= "
" For Each r As DataGridViewRow In dgvAnhang.SelectedRows Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) 'If (r.Cells("anh_ART").Value <> "***" Or r.Cells("anh_ART").Value <> "") Then ' TextHTML &= r.Cells("anh_ART").Value ' TextHTML &= "
" 'End If Next TextHTML &= "Import document
" TextHTML &= "T1
" TextHTML &= "Commercial Invoice
" TextHTML &= "Packing list
" TextHTML &= "
" TextHTML &= "ETA to MOTIS " & IIf(AVISO.VoraussichtlichesEintreffen IsNot Nothing, CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "") TextHTML &= "
" TextHTML &= "
" TextHTML &= "Best regards
" TextHTML &= "" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
" TextHTML &= "
" Mail.HTMLBody = "
" & TextHTML & SDL.cFakturierung.getSignature("EN",,,, "BREXIT_VERAG") & "
" Dim answer = MsgBox("Vermerk 'An MOTIS avisiert' eintragen?", vbYesNoCancel) If vbYes = answer Then AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "An MOTIS avisiert", 43) End If Mail.Display() Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!") End Try End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!") End Try End Sub Private Sub HervorhebenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HervorhebenToolStripMenuItem.Click If dgvAnhang.SelectedRows.Count >= 1 Then For Each r As DataGridViewRow In dgvAnhang.SelectedRows Dim ANH = New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(r.Cells("anh_Id").Value) ANH.anh_markiert = Not ANH.anh_markiert ANH.SAVE() Next initAnhang() End If End Sub Private Sub Button18_Click_1(sender As Object, e As EventArgs) Handles Button18.Click Dim f As New frmAvisoWeiterleiten("S", AvisoId, VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID) '--> Weitereliten If f.ShowDialog(Me) = DialogResult.OK Then Me.Close() End If End Sub Private Sub ToolStripMenuItem29_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem29.Click Me.Cursor = Cursors.WaitCursor Try VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP") If True Then 'dgvAnhang.SelectedRows.Count >= 1 Then Try Dim outl As New Outlook.Application Dim Mail As Microsoft.Office.Interop.Outlook.MailItem Mail = outl.CreateItem(0) Mail.To = "zoll.wels@gw-world.com" Dim OnylSND = -1 If sender Is ToolStripMenuItem29 Then 'For Each r As DataGridViewRow In dgvAnhang.SelectedRows ' Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) 'Next OnylSND = CURRENT_INDEX End If 'LEX Mail.Subject = "AVIS: Kennzeichen: " & AVISO.LKW_Nr & " | Pos: " & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "/" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & If(AVISO.VoraussichtlichesEintreffen IsNot Nothing, " | ETA: " & CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "") Dim TextHTML = "" TextHTML &= "Sehr geehrte Damen und Herren,
" TextHTML &= "
" TextHTML &= "anbei senden wir Ihnen unser Avis zu o.g. LKW.
" TextHTML &= "
" TextHTML &= "Bitte bereiten Sie angefügte(n) Sendung(en) wie folgt vor:
" TextHTML &= "
" TextHTML &= "" TextHTML &= "" Dim ANH_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge) Dim cnt = 1 For Each SND In SENDUNG_LIST Dim gestellungsadresseTmp = "" If (OnylSND >= 0 AndAlso SND Is SENDUNG_LIST(OnylSND)) Or (OnylSND < 0 And SND.FilialenNr = 4839) Then TextHTML &= "" TextHTML &= "" TextHTML &= "" TextHTML &= "" TextHTML &= "" TextHTML &= "" TextHTML &= "" TextHTML &= "" Select Case SND.tblSnd_Abfertigungsart_ID Case "38", "1" Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(SND.tblSnd_EmpfaengerKdNr) Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(SND.tblSnd_EmpfaengerKdNr) Dim VMDat As Object = SQL.getValueTxtBySql("SELECT [kdvm_erhalten_Datum] FROM [tblKundenVollmachten] where kdvm_KundenNr='" & SND.tblSnd_EmpfaengerKdNr & "' and [kdvm_kdvmaId] IN (12,3) and [kdvm_erhalten]=1 ORDER BY [kdvm_erhalten_Datum] desc", "FMZOLL",,, Nothing) If KD IsNot Nothing AndAlso KD IsNot Nothing Then TextHTML &= "" TextHTML &= "" TextHTML &= "" Else TextHTML &= "" TextHTML &= "" TextHTML &= "" End If Case "5", "6" gestellungsadresseTmp = SND.getNCTSAdress().Trim TextHTML &= "" TextHTML &= "" TextHTML &= "" Case Else TextHTML &= "" TextHTML &= "" TextHTML &= "" End Select TextHTML &= "" If gestellungsadresseTmp <> "" Then TextHTML &= "" TextHTML &= "" TextHTML &= "" TextHTML &= "" TextHTML &= "" End If '.... 'For Each r As DataGridViewRow In dgvAnhang.SelectedRows ' Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) 'Next Dim anhaengeVersand As New List(Of String) Dim found = False VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST, SND.tblSnd_SendungID) 'LÄDT alle Aviso-Anhänge For Each l In ANH_LIST Select Case l.anh_Art.ToString.ToUpper Case "UID", "EORI" Case Else ' Case "RECHNUNG", "CMR", "AUSFUHR", "COO", "PACKLISTE" Dim PathTmpANH = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(l.anh_docId)).GET_TOP1_PATH(False) If PathTmpANH <> "" Then If OnylSND < 0 Then 'NUR WENN ALLE SENDUNGEN... anhaengeVersand.Add(PathTmpANH) Else ' ...Sonst direkt an Mail anfügen Mail.Attachments.Add(PathTmpANH, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) End If found = True End If End Select Next If OnylSND < 0 Then 'NUR WENN ALLE SENDUNGEN If anhaengeVersand.Count = 1 Then 'Falls nur 1 Anhang Mail.Attachments.Add(anhaengeVersand(0), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) ElseIf anhaengeVersand.Count > 1 Then 'Zusammenfassen der Anhänge Dim zielPfadZusammenfassung = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(cnt & "_" & SND.FilialenNr & "-" & SND.AbfertigungsNr & ".pdf", ".pdf",, False, "Zusammenfassung_LEX_" & SND.tblSnd_SendungID & "_" & Now.ToString("ddMMyyyy_HHmmss")) If SDL.FormularManagerNEU.MergePdfFiles(anhaengeVersand, zielPfadZusammenfassung) Then Mail.Attachments.Add(zielPfadZusammenfassung, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) End If End If End If cnt += 1 End If Next 'Vorpapier laden: ANH_LIST = New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge) VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_ByAviso(ANH_LIST, AvisoId) 'LÄDT alle Aviso-Anhänge For Each l In ANH_LIST Select Case l.anh_Art.ToString.ToUpper Case "VORPAPIER" ' T1,.. Dim PathTmpANH = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(l.anh_docId)).GET_TOP1_PATH(False) If PathTmpANH <> "" Then Mail.Attachments.Add(PathTmpANH, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) End Select Next TextHTML &= "
PosReferenzAbfertigungsartAbsenderEmpfängerSendungAbrechnungEORIUIDVollmacht
" & cnt & "" & SND.FilialenNr & "/" & SND.AbfertigungsNr & "" & SQL.DLookup("isnull(AbfertigungsbezeichnungLang,Abfertigungsbezeichnung)", "[Abfertigungsarten]", "[Abfertigungsart]='" & SND.tblSnd_Abfertigungsart_ID & "'", "FMZOLL", "") & "" & SND.tblSnd_Absender & "" & SND.tblSnd_Empfaenger & "" & SND.tblSnd_Colli & " Pk. " & SND.tblSnd_Warenbezeichnung & " - " & SND.tblSnd_Gewicht & " kg " If SND.tblSnd_BARzuKassieren IsNot Nothing Then If IsNumeric(SND.tblSnd_BARzuKassieren) AndAlso SND.tblSnd_BARzuKassieren <> 0 Then TextHTML &= "BAR kassieren:" & CDbl(SND.tblSnd_BARzuKassieren).ToString("C2") Else TextHTML &= "BAR kassieren:" & SND.tblSnd_BARzuKassieren 'falls keine Zahl End If Else TextHTML &= "VERAG" End If TextHTML &= "" & If(KD.EORITIN, "") & "" & If(AD.UstIdKz, "") & If(AD.UstIdNr, "") & "" & If(VMDat, "") & "---------
NCTS-Gestellungsadresse:" & gestellungsadresseTmp & "
" TextHTML &= "
" TextHTML &= "
" TextHTML &= "Für Rückfragen stehen wir gerne zur Verfügung
" TextHTML &= "
" TextHTML &= "Mit freundlichen Grüßen
" TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
" TextHTML &= "
" Mail.HTMLBody = "
" & TextHTML & SDL.cFakturierung.getSignature("DE") & "
" AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "Doks an Fremdspedition (SUBEN) weitergeleitet.", 46) Mail.Display() Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!") End Try End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!") End Try Me.Cursor = Cursors.Default End Sub Private Sub ToolStripMenuItem30_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem30.Click Me.Cursor = Cursors.WaitCursor Try VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP") If True Then 'dgvAnhang.SelectedRows.Count >= 1 Then Try Dim outl As New Outlook.Application Dim Mail As Microsoft.Office.Interop.Outlook.MailItem Mail = outl.CreateItem(0) Mail.To = "zoll.wels@gw-world.com" Dim OnylSND = -1 If sender Is ToolStripMenuItem30 Then 'For Each r As DataGridViewRow In dgvAnhang.SelectedRows ' Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) 'Next OnylSND = CURRENT_INDEX End If 'LEX Mail.Subject = "AVIS: Kennzeichen: " & AVISO.LKW_Nr & " | Pos: " & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "/" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & If(AVISO.VoraussichtlichesEintreffen IsNot Nothing, " | ETA: " & CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "") Dim TextHTML = "" TextHTML &= "Sehr geehrte Damen und Herren,
" TextHTML &= "
" TextHTML &= "anbei senden wir Ihnen unser Avis zu o.g. LKW.
" TextHTML &= "
" TextHTML &= "Bitte bereiten Sie angefügte(n) Sendung(en) wie folgt vor:
" TextHTML &= "
" TextHTML &= "" TextHTML &= "" Dim ANH_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge) Dim cnt = 1 For Each SND In SENDUNG_LIST Dim gestellungsadresseTmp = "" If (OnylSND >= 0 AndAlso SND Is SENDUNG_LIST(OnylSND)) Or (OnylSND < 0) Then TextHTML &= "" TextHTML &= "" TextHTML &= "" TextHTML &= "" TextHTML &= "" TextHTML &= "" TextHTML &= "" TextHTML &= "" Select Case SND.tblSnd_Abfertigungsart_ID Case "38", "1" Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(SND.tblSnd_EmpfaengerKdNr) Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(SND.tblSnd_EmpfaengerKdNr) Dim VMDat As Object = SQL.getValueTxtBySql("SELECT [kdvm_erhalten_Datum] FROM [tblKundenVollmachten] where kdvm_KundenNr='" & SND.tblSnd_EmpfaengerKdNr & "' and [kdvm_kdvmaId] IN (12,3) and [kdvm_erhalten]=1 ORDER BY [kdvm_erhalten_Datum] desc", "FMZOLL",,, Nothing) If KD IsNot Nothing AndAlso KD IsNot Nothing Then TextHTML &= "" TextHTML &= "" TextHTML &= "" Else TextHTML &= "" TextHTML &= "" TextHTML &= "" End If Case "5", "6" gestellungsadresseTmp = SND.getNCTSAdress().Trim TextHTML &= "" TextHTML &= "" TextHTML &= "" Case Else TextHTML &= "" TextHTML &= "" TextHTML &= "" End Select TextHTML &= "" If gestellungsadresseTmp <> "" Then TextHTML &= "" TextHTML &= "" TextHTML &= "" TextHTML &= "" TextHTML &= "" End If '.... 'For Each r As DataGridViewRow In dgvAnhang.SelectedRows ' Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) 'Next Dim anhaengeVersand As New List(Of String) Dim found = False VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST, SND.tblSnd_SendungID) 'LÄDT alle Aviso-Anhänge For Each l In ANH_LIST Select Case l.anh_Art.ToString.ToUpper Case "UID", "EORI" Case Else ' Case "RECHNUNG", "CMR", "AUSFUHR", "COO", "PACKLISTE" Dim PathTmpANH = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(l.anh_docId)).GET_TOP1_PATH(False) If PathTmpANH <> "" Then If OnylSND < 0 Then 'NUR WENN ALLE SENDUNGEN... anhaengeVersand.Add(PathTmpANH) Else ' ...Sonst direkt an Mail anfügen Mail.Attachments.Add(PathTmpANH, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) End If found = True End If End Select Next If OnylSND < 0 Then 'NUR WENN ALLE SENDUNGEN If anhaengeVersand.Count = 1 Then 'Falls nur 1 Anhang Mail.Attachments.Add(anhaengeVersand(0), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) ElseIf anhaengeVersand.Count > 1 Then 'Zusammenfassen der Anhänge Dim zielPfadZusammenfassung = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(cnt & "_" & SND.FilialenNr & "-" & SND.AbfertigungsNr & ".pdf", ".pdf",, False, "Zusammenfassung_LEX_" & SND.tblSnd_SendungID & "_" & Now.ToString("ddMMyyyy_HHmmss")) If SDL.FormularManagerNEU.MergePdfFiles(anhaengeVersand, zielPfadZusammenfassung) Then Mail.Attachments.Add(zielPfadZusammenfassung, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) End If End If End If cnt += 1 End If Next 'Vorpapier laden: ANH_LIST = New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge) VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_ByAviso(ANH_LIST, AvisoId) 'LÄDT alle Aviso-Anhänge For Each l In ANH_LIST Select Case l.anh_Art.ToString.ToUpper Case "VORPAPIER" ' T1,.. Dim PathTmpANH = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(l.anh_docId)).GET_TOP1_PATH(False) If PathTmpANH <> "" Then Mail.Attachments.Add(PathTmpANH, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) End Select Next TextHTML &= "
PosReferenzAbfertigungsartAbsenderEmpfängerSendungAbrechnungEORIUIDVollmacht
" & cnt & "" & SND.FilialenNr & "/" & SND.AbfertigungsNr & "" & SQL.DLookup("isnull(AbfertigungsbezeichnungLang,Abfertigungsbezeichnung)", "[Abfertigungsarten]", "[Abfertigungsart]='" & SND.tblSnd_Abfertigungsart_ID & "'", "FMZOLL", "") & "" & SND.tblSnd_Absender & "" & SND.tblSnd_Empfaenger & "" & SND.tblSnd_Colli & " Pk. " & SND.tblSnd_Warenbezeichnung & " - " & SND.tblSnd_Gewicht & " kg " If SND.tblSnd_BARzuKassieren IsNot Nothing Then If IsNumeric(SND.tblSnd_BARzuKassieren) AndAlso SND.tblSnd_BARzuKassieren <> 0 Then TextHTML &= "BAR kassieren:" & CDbl(SND.tblSnd_BARzuKassieren).ToString("C2") Else 'TextHTML &= "BAR kassieren:" & SND.tblSnd_BARzuKassieren 'falls keine Zahl TextHTML &= "VERAG" End If Else TextHTML &= "VERAG" End If TextHTML &= "" & If(KD.EORITIN, "") & "" & If(AD.UstIdKz, "") & If(AD.UstIdNr, "") & "" & If(VMDat, "") & "---------
NCTS-Gestellungsadresse:" & gestellungsadresseTmp & "
" TextHTML &= "
" TextHTML &= "
" TextHTML &= "Für Rückfragen stehen wir gerne zur Verfügung
" TextHTML &= "
" TextHTML &= "Mit freundlichen Grüßen
" TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
" TextHTML &= "
" Mail.HTMLBody = "
" & TextHTML & SDL.cFakturierung.getSignature("DE") & "
" AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "Doks an Fremdspedition (SUBEN) weitergeleitet.", 46) Mail.Display() Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!") End Try End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!") End Try Me.Cursor = Cursors.Default End Sub 'Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click ' SAVE_ME() ' cntxAPI.Show(Cursor.Position) ' Try ' If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then ' Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX) ' Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(AVISO, SND, Now.ToString("yy")) ' frmAttilaATEZNCTS.Show(Me) ' End If ' Catch ex As Exception ' MsgBox(ex.Message & ex.StackTrace) ' End Try ' Me.Cursor = Cursors.Default 'End Sub Private Sub Button20_Click_1(sender As Object, e As EventArgs) Handles btnATEZNew.Click SAVE_ME() Try If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX) Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(AVISO, SND, Now.ToString("yy"), dgvATEZNCTS) frmAttilaATEZNCTS.Show(Me) AddHandler frmAttilaATEZNCTS.FormClosing, Function() initdgvATEZ() Me.BringToFront() End Function End If Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try Me.Cursor = Cursors.Default '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"), "MODALTRANS") 'frMZA.Show() 'AddHandler frMZA.FormClosed, Sub() ' initdgvZollAnmeldungen() ' End Sub End Sub 'Private Sub ATEZToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATEZToolStripMenuItem.Click ' Try ' If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then ' Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX) ' Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(AVISO, SND, Now.ToString("yy")) ' frmAttilaATEZNCTS.Show(Me) ' End If ' Catch ex As Exception ' MsgBox(ex.Message & ex.StackTrace) ' End Try ' Me.Cursor = Cursors.Default 'End Sub 'Private Sub DigicustToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DigicustToolStripMenuItem.Click ' Try ' If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then ' If AVISO.ImEx.ToLower() <> "import" Then ' MsgBox("API unterstützt nur Importe!" & vbNewLine & "Aktenübersicht-Einstellungen kontrollieren") ' Exit Sub ' End If ' Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX) ' Dim frm = New frmDigicust(AVISO, SND, Now.ToString("yy")) ' frm.Show(Me) ' End If ' Catch ex As Exception ' MsgBox(ex.Message & ex.StackTrace) ' End Try ' Me.Cursor = Cursors.Default 'End Sub Sub initdgvATEZ() With dgvATEZNCTS .Columns.Clear() .ReadOnly = False .DataSource = SQL.loadDgvBySql("select [Id],'ATEZ' as Art ,[VERAG_LRN] as BezugsNr,[erstellung] as Erstellung,[Status] as Status FROM [tblATEZ_NCTS] WHERE AvisoId='" & AvisoId & "' AND [SendungsId]='" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & "'", "FMZOLL") If .Columns.Count <= 0 Then Exit Sub 'Ä.Columns("txtStatus").ReadOnly = False .Columns("Id").Visible = False .Columns("Art").HeaderText = "Art" .Columns("Art").Width = 80 .Columns("Status").HeaderText = "Art" .Columns("Status").Width = 80 .Columns("BezugsNr").HeaderText = "BezugsNr" .Columns("BezugsNr").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("Erstellung").HeaderText = "Erstellt" .Columns("Erstellung").Width = 100 .Columns("Erstellung").DefaultCellStyle.Format = "dd.MM.yy HH:mm" .Columns("Erstellung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .ReadOnly = False End With End Sub Private Sub dgvATEZNCTS_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvATEZNCTS.CellDoubleClick Try Me.Cursor = Cursors.WaitCursor If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(0) Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(dgvATEZNCTS.SelectedRows(0).Cells("Id").Value, AVISO, SND, Now.ToString("yy")) frmAttilaATEZNCTS.Show(Me) Me.Refresh() AddHandler frmAttilaATEZNCTS.FormClosing, Function() initdgvATEZ() Me.BringToFront() End Function End If Cursor = Cursors.Default Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try End Sub Private Sub dgvATEZNCTS_KeyUp(sender As Object, e As KeyEventArgs) Handles dgvATEZNCTS.KeyUp If e.KeyCode = Keys.Delete Then If dgvATEZNCTS.SelectedRows.Count > 0 Then If Not IsDBNull(dgvATEZNCTS.SelectedRows(0).Cells("Status").Value) Then If dgvATEZNCTS.SelectedRows(0).Cells("Status").Value = "Sent" Then MsgBox("Bereits gesendete Request können nicht gelöscht werden!") Exit Sub End If If vbYes = MsgBox("Möchten Sie den Request " & dgvATEZNCTS.SelectedRows(0).Cells("BezugsNr").Value & " wirklich löschen?", vbYesNoCancel) Then Dim atez As New cATEZ_NCTS_DATA(dgvATEZNCTS.SelectedRows(0).Cells("Id").Value) atez.delete() initdgvATEZ() End If End If End If End If End Sub Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click Try If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX) Dim frm = New frmDigicust(AVISO, SND, Now.ToString("yy"), dgvDigicust) frm.Show(Me) initdgvDigicust(SND) End If Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try Me.Cursor = Cursors.Default End Sub Sub initdgvDigicust(SND As VERAG_PROG_ALLGEMEIN.cSendungen) Dim refLength = SND.FilialenNr.ToString.Length + SND.AbfertigungsNr.ToString.Length + 1 With dgvDigicust .Columns.Clear() .ReadOnly = False .DataSource = SQL.loadDgvBySql("select Id, AvisoId, reference, digicustId, status, createdAt, modifiedAt, uploadedDocuments, companyId, projectId FROM [tblDigicust_Sendungen] WHERE AvisoId='" & AvisoId & "' AND left(reference," & refLength & ") = '" & SND.FilialenNr & "/" & SND.AbfertigungsNr & "'", "FMZOLL") If .Columns.Count <= 0 Then Exit Sub 'Ä.Columns("txtStatus").ReadOnly = False .Columns("Id").Visible = False .Columns("AvisoId").Visible = False .Columns("reference").HeaderText = "Referenz" .Columns("reference").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("digicustId").HeaderText = "Digicust ID" .Columns("digicustId").Width = 300 .Columns("status").HeaderText = "Status" .Columns("status").Width = 100 .Columns("createdAt").HeaderText = "Erstellt" .Columns("createdAt").Width = 150 .Columns("createdAt").DefaultCellStyle.Format = "dd.MM.yy HH:mm" .Columns("createdAt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns("modifiedAt").HeaderText = "Status abgefragt" .Columns("modifiedAt").Width = 150 .Columns("modifiedAt").DefaultCellStyle.Format = "dd.MM.yy HH:mm" .Columns("modifiedAt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns("uploadedDocuments").HeaderText = "Dokumente" .Columns("uploadedDocuments").Width = 100 .Columns("companyId").Visible = False .Columns("projectId").Visible = False .ReadOnly = False End With End Sub Private Sub dgvDigicust_CellMouseDown(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvDigicust.CellMouseDown If e.Button = Windows.Forms.MouseButtons.Right AndAlso e.RowIndex > -1 Then Dim rowClicked As DataGridView.HitTestInfo rowClicked = dgvDigicust.HitTest(e.X, e.Y) dgvDigicust.ClearSelection() Me.dgvDigicust.Rows(e.RowIndex).Selected = True cntDigicust.Show(MousePosition.X, MousePosition.Y) End If End Sub Private Sub StatusAbrufenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StatusAbrufenToolStripMenuItem.Click Dim digiSendung As New cDigicustSendungen(dgvDigicust.SelectedRows(0).Cells("Id").Value) Dim API = New cDigicustAPI("digicust") API.fetchingCase(digiSendung) initdgvDigicust(SENDUNG_LIST(CURRENT_INDEX)) End Sub Sub initAbfertigungsart(Optional fillwithAbfNr As Boolean = False, Optional AbfNr As Object = Nothing) Dim abfTmp As String = cboAbfertigungsart._value cboAbfertigungsart.fillWithSQL(" SELECT AA.Abfertigungsart,AA.[Abfertigungsbezeichnung] FROM [Abfertigungsarten]as AA INNER JOIN AbfertigungsLaenderAbfertigungsarten as ALA ON AA.Abfertigungsart=ALA.Abfertigungsart INNER JOIN tblAbfertigungsartenFiliale ON tblAbfertigungsartenFiliale.Abfertigungsart=AA.Abfertigungsart WHERE ALA.[AbfertigungsLand]='" & cboAbfertigungsLand._value & "' AND Filialennr='" & cboFiliale._value & "' GROUP BY AA.Abfertigungsart,AA.[Abfertigungsbezeichnung]", True, "FMZOLL", True) If abfTmp <> "" Then cboAbfertigungsart.changeItem(abfTmp) End If toolSendDyEZA.Enabled = False toolSendDyAES.Enabled = False toolSendDyEXG.Enabled = False toolSendDyNCTS.Enabled = False toolSendDyModelTrans.Enabled = False toolSendTelotec.Enabled = False Select Case cboAbfertigungsLand._value Case "UK", "GB" toolSendDyModelTrans.Enabled = True Case "AT" toolSendTelotec.Enabled = True Case Else toolSendDyEZA.Enabled = True toolSendDyAES.Enabled = True toolSendDyEXG.Enabled = True toolSendDyNCTS.Enabled = True End Select End Sub Sub checkinitOLDAbfertigungsart(Optional AbfNr As Object = Nothing) If cboAbfertigungsart.Items.Count <= 1 Then If AbfNr IsNot Nothing AndAlso AbfNr.ToString <> "" Then cboAbfertigungsart.fillWithSQL(" SELECT AA.Abfertigungsart,AA.[Abfertigungsbezeichnung] FROM [Abfertigungsarten]as AA INNER JOIN tblAbfertigungsartenFiliale ON tblAbfertigungsartenFiliale.Abfertigungsart=AA.Abfertigungsart WHERE Filialennr='" & cboFiliale._value & "' GROUP BY AA.Abfertigungsart,AA.[Abfertigungsbezeichnung]", True, "FMZOLL", True) cboAbfertigungsart.changeItem(AbfNr) End If End If End Sub Private Sub cboAbfertigungsLand_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAbfertigungsLand.SelectedIndexChanged initAbfertigungsart() End Sub Private Sub btnLKWUmmelden_Click(sender As Object, e As EventArgs) Handles btnLKWUmmelden.Click ContextMenuStrip3.Show(Cursor.Position) End Sub 'Private Sub AntragQualitätskontrolleToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AntragQualitätskontrolleToolStripMenuItem.Click ' Try ' FormularArt = SDL.FormularManagerArten.Qualitaetskontrolle ' cntxtVorauskasse.Show(Cursor.Position) ' Catch ex As Exception ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) ' End Try 'End Sub Private Sub EmpfängerToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles EmpfängerToolStripMenuItem1.Click SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Qualitaetskontrolle, SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr, {SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr, SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger, SENDUNG_LIST(CURRENT_INDEX), AVISO}) End Sub Private Sub AuftraggeberToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles AuftraggeberToolStripMenuItem1.Click SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Qualitaetskontrolle, SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr, {SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr, SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber, SENDUNG_LIST(CURRENT_INDEX), AVISO}) End Sub Private Sub Button22_Click_1(sender As Object, e As EventArgs) Handles Button22.Click Dim f As New frmOriginalArchiv_ATR f.SendungKoppeln = True f.SendungsId = SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID f.ShowDialog(Me) initAnhang() End Sub Private Sub CMRBestätigungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CMRBestätigungToolStripMenuItem.Click Try Dim outl As New Outlook.Application Dim Mail As Microsoft.Office.Interop.Outlook.MailItem Mail = outl.CreateItem(0) Mail.Subject &= AVISO.LKW_Nr & " Fiskal CMR/packing List" Dim firstTextHTMLDE = "" firstTextHTMLDE &= "Sehr geehrte Damen und Herren,
" firstTextHTMLDE &= "
" firstTextHTMLDE &= "o.g. LKW ist bei uns zur Zollabfertigung eingetroffen.
" firstTextHTMLDE &= "Um die Ware im Zollverfahren 4200 (Fiskal) abfertigen zu können, ist es notwendig dass Sie beigefügten CMR im Feld 22 gegenstempeln und unterzeichnen.
" firstTextHTMLDE &= "Es ist von äußerster Wichtigkeit, dass Sie den angefügten CMR verwenden. Bitte verwenden Sie keinen anderen CMR.
" firstTextHTMLDE &= "Alternativ können Sie uns auch eine Packliste mit Original-Stempel und Signatur per Mail übersenden.
" firstTextHTMLDE &= " Auf der Packliste müssen folgende Merkmale vorhanden sein:
" firstTextHTMLDE &= "
" firstTextHTMLDE &= "Versender mit kompletter Anschrift
" firstTextHTMLDE &= "Empfänger mit kompletter Anschrift
" firstTextHTMLDE &= "Warenbezeichnung
" firstTextHTMLDE &= "Packstück + Gewicht
" firstTextHTMLDE &= "Stempel + Signatur


" '----------------------------------------------- firstTextHTMLDE &= "Dear Sir or Madam,
" firstTextHTMLDE &= "
" firstTextHTMLDE &= "The above-mentioned lorry has arrived at our premises for customs clearance.
" firstTextHTMLDE &= "In order to be able to clear the goods in customs procedure 4200 (fiscal), it is necessary that you stamp and sign the attached CMR in field 22.
" firstTextHTMLDE &= "It is of utmost importance that you use the attached CMR. Please do not use any other CMR.
" firstTextHTMLDE &= "Alternatively, you can send us a packing list with original stamp and signature by mail.
" firstTextHTMLDE &= " The following features must be present on the packing list:
" firstTextHTMLDE &= "
" firstTextHTMLDE &= "Consignor with complete address
" firstTextHTMLDE &= "Consignee with complete address
" firstTextHTMLDE &= "Description of goods
" firstTextHTMLDE &= "Package + weight
" firstTextHTMLDE &= "Stamp + signature


" '----------------------------------------------- firstTextHTMLDE &= "Sayin Bay veya Bayan,
" firstTextHTMLDE &= "
" firstTextHTMLDE &= "Yukarida belirtilen arac gümrük islemleri için bize varis yapmistir.
" firstTextHTMLDE &= "Mallarin 4200 (Fiskal) gümrük prosedürüne göre gümrükten çekilebilmesi için, ekteki CMR'yi 22 hanesinin imzlayip ve kaseleyip bize gönderici tarafindan posta yolu ile iletilmesi gerekiyor.
" firstTextHTMLDE &= "Ekteki CMR'yi kullanmaniz büyük önem tasimaktadir. Lütfen baska bir CMR kullanmayin.
" firstTextHTMLDE &= "Alternatif olarak, bize posta yoluyla orijinal kaşe ve imzalı bir çeki listesi gönderebilirsiniz.
" firstTextHTMLDE &= "Çeki listesinde aşağıdaki özellikler bulunmalıdır:
" firstTextHTMLDE &= "
" firstTextHTMLDE &= "Tam adresli gönderici
" firstTextHTMLDE &= "Tam adresli alıcı
" firstTextHTMLDE &= "Malların tanımı
" firstTextHTMLDE &= "Paket + ağırlık
" firstTextHTMLDE &= "Damga + imza
" Mail.HTMLBody = "
" & firstTextHTMLDE & SDL.cFakturierung.getSignature("DE") & "
" AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "Absenderbestätigung angefordert", 76) Mail.Display() Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!") End Try End Sub Private Sub mnuItem_MouseHover(sender As Object, e As EventArgs) Try 'ContextMenuStrip1.Hide() Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem) If item IsNot Nothing Then listOfTextconserven = New cTextkonserve_LIST("FRM_MNGR_MailText", item.Name, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) If listOfTextconserven.LIST.Count = 0 Then 'ContextMenuStrip1.Show(Cursor.Position) Else For Each r In listOfTextconserven.LIST If Not item.DropDownItems.ContainsKey(r.txt_id) Then Dim menuItem = New ToolStripMenuItem() With {.Text = r.txt_bezeichnung, .Name = r.txt_id} item.DropDownItems.Add(menuItem) AddHandler menuItem.Click, AddressOf mnusubItem_Click End If Next 'ContextMenuStrip1.Show() 'item.ShowDropDown() End If End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub Private Sub mnusubItem_Click(sender As Object, e As EventArgs) ContextMenuStrip1.Hide() Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem) Try If item IsNot Nothing Then For Each r As cTextkonserve In listOfTextconserven.LIST If item.Name = r.txt_Id.ToString Then Dim outl As New Outlook.Application Dim Mail As Microsoft.Office.Interop.Outlook.MailItem Mail = outl.CreateItem(0) If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then Mail.SentOnBehalfOfName = SDL.cFakturierung.getDefaultMail("AMBAR") Mail.HTMLBody &= cFakturierung.getSignature(r.txt_sprache, 24, True, True) End If Mail.To = r.txt_fixerEmpfaengerEmail Mail.Subject = r.txt_betreff Dim TextHTML = "" TextHTML &= r.txt_text TextHTML &= "
" TextHTML &= "
" TextHTML &= "Mit freundlichen Grüßen
" TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
" TextHTML &= "
" TextHTML &= cFakturierung.getSignature(r.txt_sprache, r.txt_firmaSig, True, True) If AVISO IsNot Nothing Then Mail.Subject = Mail.Subject.Replace("%LKW%", AVISO.LKW_Nr) Mail.Subject = Mail.Subject.Replace("%LKWKennzeichen%", AVISO.LKW_Nr) TextHTML = TextHTML.Replace("%LKW%", AVISO.LKW_Nr) TextHTML = TextHTML.Replace("%LKWKennzeichen%", AVISO.LKW_Nr) If AVISO.VoraussichtlichesEintreffen IsNot Nothing Then TextHTML = TextHTML.Replace("%voraus-Eintreffen%", CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString) Mail.Subject = Mail.Subject.Replace("%voraus-Eintreffen%", CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString) End If If AVISO.ImEx IsNot Nothing Then If AVISO.ImEx = "" Then TextHTML = TextHTML.Replace("%ImEx%", "Custom") Mail.Subject = Mail.Subject.Replace("%ImEx%", "Custom") Else TextHTML = TextHTML.Replace("%ImEx%", AVISO.ImEx) Mail.Subject = Mail.Subject.Replace("%ImEx%", AVISO.ImEx) End If End If If AVISO.Zollstelle IsNot Nothing Then If AVISO.Zollstelle <> "" Then Dim zollstelleBez = SQL.getValueTxtBySql("SELECT [Description] FROM tbl_DY_ZollDE_C0141_Zollstellen WHERE Code='" & If(AVISO.Zollstelle, "") & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ) ", "FMZOLL") TextHTML = TextHTML.Replace("%Zollstelle%", zollstelleBez) Else TextHTML = TextHTML.Replace("%Zollstelle%", AVISO.Zollstelle) Mail.Subject = Mail.Subject.Replace("%Zollstelle%", AVISO.Zollstelle) End If End If End If If lblGrenze.Text <> "" Then TextHTML = TextHTML.Replace("%VAR-GRENZE%", lblGrenze.Text & "
") Mail.Subject = Mail.Subject.Replace("%VAR-GRENZE%", lblGrenze.Text.Replace(vbCrLf, " ")) End If If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger IsNot Nothing Then Mail.Subject = Mail.Subject.Replace("%Empfaenger%", SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger) TextHTML = TextHTML.Replace("%Empfaenger%", SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger) End If If SENDUNG_LIST(CURRENT_INDEX).FilialenNr > 0 Then Mail.Subject = Mail.Subject.Replace("%FilialenNr%", SENDUNG_LIST(CURRENT_INDEX).FilialenNr) TextHTML = TextHTML.Replace("%FilialenNr%", SENDUNG_LIST(CURRENT_INDEX).FilialenNr) End If If SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr > 0 Then Mail.Subject = Mail.Subject.Replace("%AbfertigungsNr%", SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) TextHTML = TextHTML.Replace("%AbfertigungsNr%", SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) End If If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender <> "" Then Mail.Subject = Mail.Subject.Replace("%Absender%", SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender) TextHTML = TextHTML.Replace("%Absender%", SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender) End If If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht <> "" Then Mail.Subject = Mail.Subject.Replace("%Gewicht%", SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht) TextHTML = TextHTML.Replace("%Gewicht%", SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht) End If Mail.Subject = Mail.Subject.Replace("%LKW%", "") Mail.Subject = Mail.Subject.Replace("%LKWKennzeichen%", "") Mail.Subject = Mail.Subject.Replace("%Empfaenger%", "") Mail.Subject = Mail.Subject.Replace("%VAR-GRENZE%", "") Mail.Subject = Mail.Subject.Replace("%voraus-Eintreffen%", "") Mail.Subject = Mail.Subject.Replace("%FilialenNr%", "") Mail.Subject = Mail.Subject.Replace("%AbfertigungsNr%", "") Mail.Subject = Mail.Subject.Replace("%Absender%", "") Mail.Subject = Mail.Subject.Replace("%Gewicht%", "") Mail.Subject = Mail.Subject.Replace("%ImEx%", "") Mail.Subject = Mail.Subject.Replace("%Zollstelle%", "") TextHTML = TextHTML.Replace("%LKW%", "") TextHTML = TextHTML.Replace("%LKWKennzeichen%", "") TextHTML = TextHTML.Replace("%Empfaenger%", "") TextHTML = TextHTML.Replace("%VAR-GRENZE%", "") TextHTML = TextHTML.Replace("%voraus-Eintreffen%", "") TextHTML = TextHTML.Replace("%FilialenNr%", "") TextHTML = TextHTML.Replace("%AbfertigungsNr%", "") TextHTML = TextHTML.Replace("%Absender%", "") TextHTML = TextHTML.Replace("%Gewicht%", "") TextHTML = TextHTML.Replace("%ImEx%", "") TextHTML = TextHTML.Replace("%Zollstelle%", "") For Each anh As DataGridViewRow In dgvAnhang.SelectedRows Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(anh.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) Next Mail.HTMLBody = "
" & TextHTML & "
" Mail.Display() If r.txt_sendungsvermerk AndAlso Not r.txt_sendungsvermerkText.ToLower.Contains("test") AndAlso SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID > 0 Then AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, r.txt_sendungsvermerkText, r.txt_sendungsvermerkId) End If Exit For End If Next End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub Private Sub loadContextMenudynMailvorlagen() Try Dim Sprachen = New cTextkonserve_LIST(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) If Sprachen.SPRACHENLIST.Count = 0 Then 'ContextMenuStrip1.Show(Cursor.Position) Else For Each r In Sprachen.SPRACHENLIST If Not dynMailsToolStripMenuItem.DropDownItems.ContainsKey(r.ToString) Then Dim menuItem = New ToolStripMenuItem() With {.Text = r.ToString, .Name = r.ToString} dynMailsToolStripMenuItem.DropDownItems.Add(menuItem) AddHandler menuItem.MouseHover, AddressOf mnuItem_MouseHover End If Next 'ContextMenuStrip1.Show(Cursor.Position) End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub Private Sub timerValidation_Tick(sender As Object, e As EventArgs) Handles timerValidation.Tick Try If Not isFailureShown Then VALIDATE_ME(False) 'verhindert eine Fehlerendlosschleife! Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) isFailureShown = True End Try End Sub Private Sub Button23_Click_1(sender As Object, e As EventArgs) Handles Button23.Click With dgvMail .Rows.Clear() Try ' Create a folder named "inbox" under current directory ' to save the email retrieved. 'Dim localInbox As String = String.Format("{0}\inbox", Directory.GetCurrentDirectory()) ' MsgBox(localInbox) ' If the folder is not existed, create it. ' If Not Directory.Exists(localInbox) Then ' Directory.CreateDirectory(localInbox) 'End If Dim oServer As New MailServer("owa.verag.ag", "al@verag.ag", "verag#2", ServerProtocol.Imap4) ' Enable SSL/TLS connection, most modern email server require SSL/TLS connection by default. oServer.SSLConnection = True oServer.Port = 993 ' If your server doesn't support SSL/TLS connection, please use the following codes ' oServer.SSLConnection = False ' oServer.Port = 110 Console.WriteLine("Connecting server ...") Dim oClient As New MailClient("EG-D1710817841-00027-8F73639A7EE1E54E-7E5AA3751E31F532") oClient.Connect(oServer) 'Dim folders() As Imap4Folder = oClient.Imap4Folders '' enumerates all folders on IMAP4/Exchange server. 'EnumerateFolder(folders) Dim options As GetMailInfosOptionType = GetMailInfosOptionType.All options = options Or GetMailInfosOptionType.DateRange options = options Or GetMailInfosOptionType.OrderByDateTime options = options Or GetMailInfosOptionType.IncludeAllFolders oClient.GetMailInfosParam.Reset() oClient.GetMailInfosParam.GetMailInfosOptions = options oClient.GetMailInfosParam.SubjectContains = "EAGetMail Component" ' oClient.GetMailInfosParam.UIDRange = "167355-167355" 'oClient.GetMailInfosParam.BodyContains = "24DE770176692626M6" 'oClient.GetMailInfosParam.SenderContains = "support" oClient.GetMailInfosParam.DateRange.SINCE = System.DateTime.Now.AddMonths(-12) oClient.GetMailInfosParam.DateRange.BEFORE = System.DateTime.Now.AddDays(1) oClient.GetMailInfosParam.DateRange.BEFORE = System.DateTime.Now.AddDays(1) Dim infos As MailInfo() = oClient.GetMailInfos() Console.WriteLine("Total {0} email(s)", infos.Length) For i As Integer = 0 To infos.Length - 1 Dim info As MailInfo = infos(i) Console.WriteLine("Index: {0}; Size: {1}; UIDL: {2}", info.Index, info.Size, info.UIDL) ' Retrieve email from IMAP server Dim oMail As Mail = oClient.GetMail(info) Console.WriteLine("From: {0}", oMail.From.ToString()) Console.WriteLine("Subject: {0}" & vbCr & vbLf, oMail.Subject) '?? oMail.MAPIConversationId.ToString .Rows.Add({oMail.From.ToString(), oMail.To.ToString(), oMail.Subject, oMail.Attachments.Count, info.UIDL}) ' Generate an unqiue email file name based on date time. ' Dim fileName As String = _generateFileName(i + 1) ' Dim fullPath As String = String.Format("{0}\{1}", localInbox, fileName) ' Save email to local disk 'oMail.SaveAs(fullPath, True) ' Mark email as deleted from POP3 server. '''''' oClient.Delete(info) Next ' Quit and expunge emails marked as deleted from POP3 server. oClient.Quit() Console.WriteLine("Completed!") Catch ep As Exception Console.WriteLine(ep.Message) Console.WriteLine(ep.StackTrace) MsgBox(ep.Message & " - " & ep.StackTrace) End Try End With End Sub 'Private Sub openMial(UIDL As String) ' Try ' ' Create a folder named "inbox" under current directory ' ' to save the email retrieved. ' 'Dim localInbox As String = String.Format("{0}\inbox", Directory.GetCurrentDirectory()) ' ' MsgBox(localInbox) ' ' If the folder is not existed, create it. ' ' If Not Directory.Exists(localInbox) Then ' ' Directory.CreateDirectory(localInbox) ' 'End If ' Dim oServer As New MailServer("owa.verag.ag", ' "al@verag.ag", ' "verag#2", ' ServerProtocol.Imap4) ' ' Enable SSL/TLS connection, most modern email server require SSL/TLS connection by default. ' oServer.SSLConnection = True ' oServer.Port = 993 ' ' If your server doesn't support SSL/TLS connection, please use the following codes ' ' oServer.SSLConnection = False ' ' oServer.Port = 110 ' Console.WriteLine("Connecting server ...") ' Dim oClient As New MailClient("EG-D1710817841-00027-8F73639A7EE1E54E-7E5AA3751E31F532") ' oClient.Connect(oServer) ' Dim oUIDLManager As UIDLManager = New UIDLManager() ' oUIDLManager.FindUIDL(oServer, UIDL) ' Dim fileName As String = _generateFileName(i + 1) ' Dim fullPath As String = String.Format("{0}\{1}", localInbox, fileName) ' Console.WriteLine("Downloading {0}/{1} ...", i + 1, infos.Length) ' Dim oMail As Mail = oClient.GetMail(info) ' oClient.GetImap4FolderUID(,) = "UIDL" ' 'oClient.GetMailInfosParam.BodyContains = "24DE770176692626M6" ' 'oClient.GetMailInfosParam.SenderContains = "support" ' oClient.GetMailInfosParam.DateRange.SINCE = System.DateTime.Now.AddMonths(-12) ' oClient.GetMailInfosParam.DateRange.BEFORE = System.DateTime.Now.AddDays(1) ' oClient.GetMailInfosParam.DateRange.BEFORE = System.DateTime.Now.AddDays(1) ' Dim infos As MailInfo() = oClient.GetMailInfos(s) ' Console.WriteLine("Total {0} email(s)", infos.Length) ' For i As Integer = 0 To infos.Length - 1 ' Dim info As MailInfo = infos(i) ' Console.WriteLine("Index: {0}; Size: {1}; UIDL: {2}", ' info.Index, info.Size, info.UIDL) ' ' Retrieve email from IMAP server ' Dim oMail As Mail = oClient.GetMail(info) ' Console.WriteLine("From: {0}", oMail.From.ToString()) ' Console.WriteLine("Subject: {0}" & vbCr & vbLf, oMail.Subject) ' '?? oMail.MAPIConversationId.ToString ' .Rows.Add({oMail.From.ToString(), oMail.To.ToString(), oMail.Subject, oMail.Attachments.Count, info.UIDL}) ' ' Generate an unqiue email file name based on date time. ' ' Dim fileName As String = _generateFileName(i + 1) ' ' Dim fullPath As String = String.Format("{0}\{1}", localInbox, fileName) ' ' Save email to local disk ' 'oMail.SaveAs(fullPath, True) ' ' Mark email as deleted from POP3 server. ' '''''' oClient.Delete(info) ' Next ' ' Quit and expunge emails marked as deleted from POP3 server. ' oClient.Quit() ' Console.WriteLine("Completed!") ' Catch ep As Exception ' Console.WriteLine(ep.Message) ' Console.WriteLine(ep.StackTrace) ' MsgBox(ep.Message & " - " & ep.StackTrace) ' End Try 'End Sub Public Sub EnumerateFolder(ByVal folders() As Imap4Folder) For i As Integer = 0 To folders.Length - 1 Dim folder As Imap4Folder = folders(i) Console.WriteLine("Name: {0}", folder.Name) Console.WriteLine("FullPath: {0}", folder.FullPath) Console.WriteLine("LocalPath: {0}", folder.LocalPath) Console.WriteLine("Flags: {0}", folder.IMAP4FolderFlags) Console.WriteLine("Subscribed: {0}" & vbCrLf, folder.Subscribed) EnumerateFolder(folder.SubFolders) Next End Sub Function _generateFileName(ByVal sequence As Integer) As String Dim currentDateTime As DateTime = DateTime.Now Return String.Format("{0}-{1:000}-{2:000}.eml", currentDateTime.ToString("yyyyMMddHHmmss", New CultureInfo("en-US")), currentDateTime.Millisecond, sequence) End Function Private Sub txtBARzuKassieren_TextChanged(sender As Object, e As EventArgs) Handles txtBARzuKassieren.TextChanged If txtBARzuKassieren.Text <> "" And (IsNumeric(txtBARzuKassieren.Text.Replace("€", "").Trim) AndAlso CDbl(txtBARzuKassieren.Text) <> 0) Then Panel22.BackColor = Color.Yellow Else Panel22.BackColor = Color.FromArgb(255, 255, 192) End If End Sub Private Sub btnWWberechnen_Click(sender As Object, e As EventArgs) Handles btnWWberechnen.Click Dim calcWarenwerte As Double = 0 Dim vorpT1 = usrcntl_ATB.txtATBT1.Text Try If SENDUNG_LIST(CURRENT_INDEX).tblSnd_WarenwertWaehrung = "" Then txtWarenwertWaehrung.SET_VALUE("EUR") SAVE_ME() End If If vorpT1 = "" Then MsgBox("Vorpapier/T1 muss eingetragen werden!") usrcntl_ATB.txtATBT1.Focus() Exit Sub End If If SENDUNG_LIST(CURRENT_INDEX).tblSnd_WarenwertWaehrung <> "EUR" Then MsgBox("Warenwert darf nur in EUR angegeben werden") Exit Sub End If For Each s As cSendungen In SENDUNG_LIST 'nur Betrag EUR If s.tblSnd_Vorpapier = vorp Then If s.tblSnd_WarenwertWaehrung = "EUR" AndAlso s.tblSnd_Warenwert > 0 AndAlso s.FilialenNr = SENDUNG_LIST(CURRENT_INDEX).FilialenNr Then calcWarenwerte += s.tblSnd_Warenwert Else MsgBox("Bei Sendung " & s.AbfertigungsNr & " ist der Warenwert nicht in EUR angegeben!") Exit Sub End If End If Next If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert Is Nothing Then SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert = Math.Round(calcWarenwerte, 2) SAVE_ME() End If If IsNumeric(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert) AndAlso Math.Round(calcWarenwerte, 2) <> Math.Round(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert, 2) Then MsgBox("Warenwert für Gestellung stimmt nicht überein!" & vbNewLine & "Berechnerter Warenwert: " & Math.Round(calcWarenwerte, 2) & vbNewLine & "Eingetragener Warenwert: " & Math.Round(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert, 2), MsgBoxStyle.Critical) Else txtWarenwert.Text = Math.Round(calcWarenwerte, 2) If txtWarenwertWaehrung._value = "" Then txtWarenwertWaehrung._value = "EUR" End If End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub Private Sub txteori_Pruef_TextChanged(sender As Object, e As EventArgs) Handles txteori_Pruef.TextChanged End Sub Private Sub ToolStripMenuItem33_Click(sender As Object, e As EventArgs) Handles toolSendDyEXG.Click ' If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me.FindForm) Then Me.Refresh() Me.Cursor = Cursors.WaitCursor Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing If SENDUNG_LIST IsNot Nothing Then SND = SENDUNG_LIST(CURRENT_INDEX) Else MsgBox("Keine Sendung!") Exit Sub End If If Not IsNumeric(SND.AbfertigungsNr) OrElse CInt(SND.AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub Dim Standort As String = "" Select Case SND.FilialenNr Case 4803, 4809 Standort = "VERAG AG" Case 5601 Standort = "Unisped GmbH" Case 5701 Standort = "AMBAR GmbH" Case 4810, 5103, 5901 Standort = "VERAG GmbH" Case 5501 Standort = "IMEX" End Select 'sonderfälle lt. Mestan If SND.tblSnd_Zollsystem_Land = "DE" Then Select Case SND.FilialenNr Case 5501, 4803, 4809, 5103 Standort = "VERAG GmbH" End Select ElseIf SND.tblSnd_Zollsystem_Land = "AT" Then If SND.tblSnd_Abfertigungsart_ID = 1 Then 'ZA Standort = "VERAG CS" ElseIf SND.tblSnd_Abfertigungsart_ID = 38 Then 'EV-Verz Select Case SND.FilialenNr Case 4803, 5303, 4809, 5103 Standort = "VERAG CS" End Select End If End If Dim frMZA As New SDL.frmZollanmeldung("EXG", Nothing, AVISO, SND, Now.ToString("yy")) frMZA.Show() AddHandler frMZA.FormClosed, Sub() ' initdgvZollAnmeldungen() End Sub Me.Cursor = Cursors.Default ' End If End Sub Private Sub IMPORTToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles toolModal_Import.Click Dim LRN = InputBox("Please insert unique LRN:", "Send Import Declaration", cboFiliale._value & "/" & txtAbfertigungsnummer.Text) If vbYes = MsgBox("Do you want to create an import declaration with LRN '" & LRN & "' in ModalTrans?", vbYesNoCancel) Then If cModalTransIMPORT.ceateAndSend_IMP_FromSENDUNG(LRN, SENDUNG_LIST(CURRENT_INDEX), AVISO) Then 'OK -> MSGBOX in Function End If End If End Sub Private Sub EXPORTToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles toolModal_Export.Click Dim LRN = InputBox("Please insert unique LRN:", "Send Export Declaration", cboFiliale._value & "/" & txtAbfertigungsnummer.Text) If vbYes = MsgBox("Do you want to create an Export declaration with LRN '" & LRN & "' in ModalTrans?", vbYesNoCancel) Then If cModalTransIMPORT.ceateAndSend_EXP_FromSENDUNG(LRN, SENDUNG_LIST(CURRENT_INDEX), AVISO) Then 'OK -> MSGBOX in Function End If End If 'goto https://app.modaltrans.com/traderdecs/455159-250000473 End Sub Private Sub TRANSITT1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles toolModal_Transit.Click Dim LRN = InputBox("Please insert unique LRN:", "Send Transit Declaration", cboFiliale._value & "/" & txtAbfertigungsnummer.Text) If vbYes = MsgBox("Do you want to create an Transit declaration with LRN '" & LRN & "' in ModalTrans?", vbYesNoCancel) Then If cModalTransNCTS.ceateAndSend_NCTS_FromSENDUNG(LRN, SENDUNG_LIST(CURRENT_INDEX), AVISO) Then 'OK -> MSGBOX in Function End If End If End Sub Private Sub btnATEZNewEZA_Click(sender As Object, e As EventArgs) Handles btnATEZNewEZA.Click SAVE_ME() Try If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX) Dim frmAttilaATEZNCTS = New frmATEZ_EZA(AVISO, SND, Now.ToString("yy"), dgvATEZNCTS) frmAttilaATEZNCTS.Show(Me) AddHandler frmAttilaATEZNCTS.FormClosing, Function() initdgvATEZ() Me.BringToFront() End Function End If Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try Me.Cursor = Cursors.Default End Sub End Class