7280 lines
376 KiB
VB.net
7280 lines
376 KiB
VB.net
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
|
||
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
|
||
|
||
Dim CURRENT_INDEX As Integer = -1
|
||
Dim closeWithoutSave = False
|
||
' Public WithEvents bsSendungen As New cEasyBinding("AVISO") 'fürs Binding
|
||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||
Dim FormularArt = ""
|
||
Dim loaded = False
|
||
Dim 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 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)
|
||
InitializeComponent()
|
||
Me.AvisoId = AvisoId
|
||
Me.SendungID = SendungID
|
||
Me.DoubleBuffered = True
|
||
SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True)
|
||
UpdateStyles()
|
||
|
||
End Sub
|
||
|
||
Private Sub frmSendungsdetails_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||
If Not closeWithoutSave Then
|
||
' loadDataInLIST()
|
||
If Not SAVE_ME() Then
|
||
e.Cancel = True
|
||
End If
|
||
End If
|
||
|
||
End Sub
|
||
|
||
|
||
Sub SAVE_ABRECHUNG(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)
|
||
|
||
For Each c In Panel6.Controls
|
||
If c.GetType.ToString = "AVISO.usrcntlCheckBox" Then
|
||
Dim cntlCbx As usrcntlCheckBox = DirectCast(c, usrcntlCheckBox)
|
||
cntlCbx.lbl.Text = ""
|
||
For Each a In SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG
|
||
If a.sndabr_beteiligter = cntlCbx._beteiligter Then
|
||
If a.sndabr_abrArt = "" And cntlCbx._abrArt = "SONST" Then
|
||
cntlCbx.special(True)
|
||
ElseIf a.sndabr_abrArt = cntlCbx._abrArt Then
|
||
cntlCbx.lbl.Text = a.sndabr_wert
|
||
End If
|
||
End If
|
||
Next
|
||
End If
|
||
Next
|
||
SENDUNG_LIST(CURRENT_INDEX).SAVE_Abrechnung()
|
||
End Sub
|
||
|
||
Function SAVE_ME(Optional saveAll = False, 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.Abgeschlossen Then
|
||
'MsgBox("Keine Änderung möglich - Akt bereits abgeschlossen.")
|
||
Return True
|
||
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 = True) As Boolean
|
||
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_FraechterKdNr.Visible = False
|
||
|
||
|
||
'--------------------------------------------------
|
||
|
||
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 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
|
||
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()
|
||
|
||
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 Sub
|
||
|
||
Private Sub frmSendungsdetails_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||
VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
|
||
Button23.Visible = True
|
||
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.Abgeschlossen Then
|
||
Label8.Visible = True
|
||
End If
|
||
lblZollsysErr.Text = ""
|
||
LinkLabel1.TabStop = False
|
||
LinkLabel2.TabStop = False
|
||
' cbxFremdspedition.TabStop = False
|
||
LinkLabel3.TabStop = False
|
||
Label26.TabStop = False
|
||
Panel8.TabStop = False
|
||
' RadioButton.TabStop = False
|
||
' RadioButton1.TabStop = False
|
||
' RadioButton2.TabStop = False
|
||
lklAuftraggeber.TabStop = False
|
||
' txtEmpfaengerBonitaet.TabStop = False
|
||
' txtEmpfaengerAnsprechpartner.TabStop = False
|
||
|
||
'TODO: Diese Codezeile lädt Daten in die Tabelle "AVISO_newDataSet.tblSendungen". Sie können sie bei Bedarf verschieben oder entfernen.
|
||
If AvisoId <= 0 Then MsgBox("Fehler") : Me.Close() : Exit Sub
|
||
' Me.TblSendungenTableAdapter.Fill(Me.AVISO_newDataSet.tblSendungen, AvisoId)
|
||
|
||
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, CURRENT_INDEX, AvisoId) 'LÄDT alle SENDUNGSDATEN
|
||
|
||
Dim sbWhere = ""
|
||
Dim QSwhere = ""
|
||
|
||
|
||
|
||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||
Case "IMEX"
|
||
|
||
btnAufschub_VERAG.Text = "IMEX"
|
||
cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||
cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAKOSY", "D"))
|
||
cboZollsystem.SelectedIndex = 1
|
||
|
||
cboZollsystem2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||
cboZollsystem2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAKOSY", "D"))
|
||
cboZollsystem2.SelectedIndex = 1
|
||
sbWhere = " And Mandant = 'IMEX' "
|
||
QSwhere = " AND mit_firma IN ('IMEX','BEIDE') "
|
||
' Label10.Visible = False
|
||
'rtbAnmerkungDispoliste.Visible = False
|
||
|
||
Case "ATILLA" : sbWhere = " AND Niederlassung = 'SUA' "
|
||
Case "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
|
||
Button20.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 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 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()
|
||
|
||
' FlowLayoutPanel.Visible = False
|
||
' Me.SuspendLayout()
|
||
FlowLayoutPanel.SuspendLayout()
|
||
FlowLayoutPanel.Controls.Clear()
|
||
|
||
|
||
For Each s In SENDUNG_LIST
|
||
Dim b As New sendTAB
|
||
b.Visible = False
|
||
b.value = SENDUNG_LIST.IndexOf(s)
|
||
|
||
AddHandler b.MECLICK, Sub(send As Object)
|
||
' Me.loadDataInLIST()
|
||
If SAVE_ME() Then
|
||
Me.CURRENT_INDEX = send.value
|
||
Me.initDataBinding()
|
||
End If
|
||
|
||
End Sub
|
||
AddHandler b.DEL, Sub(send As Object)
|
||
'saveMe()
|
||
'bsSendungen.Position = send.value
|
||
' MsgBox(send.value)
|
||
'bsSendungen.RemoveAt(send.value)
|
||
' BindingNavigatorDeleteItem1.PerformClick()
|
||
' AVISO_newDataSet.tblSendungen.EndLoadData()
|
||
' AVISO_newDataSet.tblSendungen.Rows(send.value).Delete()
|
||
' AVISO_newDataSet.tblSendungen.BeginLoadData()
|
||
' saveMe()
|
||
|
||
'REMOVE ??????!!!!!!!
|
||
|
||
|
||
If SENDUNG_LIST.Count = 1 Then
|
||
MsgBox("Diese Sendung kann nicht gelöscht werden!")
|
||
Exit Sub
|
||
Else
|
||
If SAVE_ME() Then ' Änderungen speichern
|
||
|
||
Dim sendBez = SENDUNG_LIST(b.value).tblSnd_PosUnterNr & ". "
|
||
sendBez &= ADMIN.getValueTxtBySql("SELECT Abfertigungsbezeichnung FROM Abfertigungsarten WHERE [Abfertigungsart]='" & SENDUNG_LIST(b.value).tblSnd_Abfertigungsart_ID & "'", "FMZOLL")
|
||
|
||
sendBez &= " " & loadValue(SENDUNG_LIST(b.value).FilialenNr, "") & "/" & loadValue(SENDUNG_LIST(b.value).AbfertigungsNr, "")
|
||
If If(SENDUNG_LIST(b.value).tblSnd_Empfaenger, "") <> "" Then sendBez &= " (" & loadValue(SENDUNG_LIST(b.value).tblSnd_Empfaenger, "") & ")"
|
||
|
||
If SENDUNG_LIST(send.value).DELETE() Then 'Löschen der Betroffenen Sendung
|
||
AvisoStatusFunctions.insertVermerkAllg(AvisoId, "Die Sendung '" & sendBez & "' wurde gelöscht.", 46)
|
||
End If
|
||
|
||
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, CURRENT_INDEX, AvisoId) 'Alle Sendungen werden erneut geladen
|
||
initDataBinding()
|
||
If send.value > 0 Then
|
||
CURRENT_INDEX = send.value - 1
|
||
Else
|
||
CURRENT_INDEX = 0
|
||
End If
|
||
End If
|
||
initDataBinding()
|
||
initPosNr()
|
||
initButtons()
|
||
'initButtons()
|
||
End If
|
||
|
||
End Sub
|
||
|
||
AddHandler b.RIGHTCLICK_COPYDATATO, Sub(fromIndex, toIndex)
|
||
CopyDataFrom(fromIndex, toIndex)
|
||
End Sub
|
||
AddHandler b.RIGHTCLICK_DUPLICATE, Sub(fromIndex)
|
||
Duplicate(fromIndex)
|
||
End Sub
|
||
FlowLayoutPanel.Controls.Add(b)
|
||
|
||
b.Visible = True
|
||
' MsgBox(FlowLayoutPanel.Height)
|
||
|
||
Next
|
||
|
||
|
||
Dim b_add As New VERAG_PROG_ALLGEMEIN.FlatButton
|
||
b_add.Visible = False
|
||
b_add.FlatAppearance.BorderSize = 0
|
||
b_add.TextAlign = ContentAlignment.MiddleCenter
|
||
b_add.Size = New Size(30, 30)
|
||
b_add.Margin = New Padding(2, 22, 0, 0)
|
||
b_add.Text = "+"
|
||
'b_add.Font = New Font()
|
||
'b_add.Font.FontFamily, 14, FontStyle.Bold)
|
||
b_add.BackColor = Color.LightGray()
|
||
AddHandler b_add.Click, Sub(send As Object, ev As EventArgs)
|
||
If AVISO.Abgeschlossen Then Exit Sub
|
||
' Dim currentHisId = 0
|
||
' Try : currentHisId = AVISO_newDataSet.tblSendungen.Select("tblSnd_PosUnterNr=MAX(tblSnd_PosUnterNr)")(0).Item("tblSnd_PosUnterNr") : Catch : End Try
|
||
' currentHisId += 1
|
||
|
||
Dim filiale_tmp As Integer = 0
|
||
|
||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||
Case "IMEX" : filiale_tmp = 5501
|
||
Case "UNISPED" : filiale_tmp = 5601
|
||
Case "AMBAR" : filiale_tmp = 5701
|
||
Case "FRONTOFFICE" : filiale_tmp = 0 '5801
|
||
Case "VERIMEX" : filiale_tmp = 0 '6001
|
||
Case Else
|
||
Select Case AVISO.Grenzstelle
|
||
Case "SUB" : filiale_tmp = 4803
|
||
Case "SBG" : filiale_tmp = 5003
|
||
Case "WAI" : filiale_tmp = 5103
|
||
Case "NKD" : filiale_tmp = 5303
|
||
Case "SFD" : filiale_tmp = 4839
|
||
End Select
|
||
|
||
End Select
|
||
|
||
|
||
' loadDataInLIST()
|
||
If SAVE_ME() Then 'aktuelle Änderungen sichern
|
||
' Dim abfnr_tmp As Integer = IIf(filiale_tmp > 0, ADMIN.getMaxPosNrIncrement(filiale_tmp, Now.Year), 0)
|
||
|
||
Dim NEW_SND As New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SENDUNG_LIST.Count + 1, filiale_tmp, Nothing, 0, 0) 'Neue Sendung erstellen
|
||
' SENDUNG_LIST.Add(NEW_SND)
|
||
|
||
NEW_SND.SAVE(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) "
|
||
End If
|
||
|
||
Case Else
|
||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||
Case "ATILLA"
|
||
whereFiliale = " AND FilialenNr IN (4801) "
|
||
Case "AMBAR"
|
||
whereFiliale = " AND FilialenNr IN (5701) "
|
||
Case Else
|
||
whereFiliale = " AND FilialenNr IN ('" & VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE & "') "
|
||
End Select
|
||
End Select
|
||
|
||
cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' " & whereFiliale & " ORDER BY FilialenNr ", True, "FMZOLL", True)
|
||
cboFremdsped.fillWithSQL("SELECT fremd_kurzBezeichnung FROM tblFremdSpeditionen WHERE Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ORDER BY fremd_kurzBezeichnung ", False, "AVISO", True)
|
||
|
||
|
||
|
||
If CURRENT_INDEX < 0 Then
|
||
Me.Enabled = True
|
||
Me.Cursor = Cursors.Default
|
||
Exit Sub
|
||
End If
|
||
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID
|
||
|
||
cbxFremdspedition.Checked = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition
|
||
cboFremdsped.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_FremdspeditionText
|
||
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition Then
|
||
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr > -1 Then
|
||
txtFremdEmpf.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr
|
||
Else
|
||
txtFremdEmpf.KdNr_value = -1
|
||
txtFremdEmpfKdNR.Text = ""
|
||
txtFremdEmpf.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger 'IIf(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger Is Nothing, "", SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger)
|
||
End If
|
||
End If
|
||
|
||
|
||
|
||
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)
|
||
|
||
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.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)
|
||
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()
|
||
|
||
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
|
||
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()
|
||
|
||
'Übergangsphase Aviso/Sendung
|
||
If txtAvisierer.Text = "" And txtAvisierer.Enabled Then 'And (VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX") Then
|
||
If AVISO.Auftraggeber_KdNr > -1 Then
|
||
If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromKdNr(AVISO.Auftraggeber_KdNr) = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) Then
|
||
txtAvisierer.KdNr = AVISO.Auftraggeber_KdNr
|
||
End If
|
||
Else
|
||
txtAvisierer.KdNr_value = -1
|
||
txtAvisiererKdNr.Text = ""
|
||
txtAvisierer.Text = AVISO.Auftraggeber
|
||
End If
|
||
End If
|
||
|
||
|
||
'Übergangsphase Aviso/Sendung
|
||
If txtFrachtfuehrer.Text = "" And txtFrachtfuehrer.Enabled Then 'And (VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX") Then
|
||
If AVISO.Frächter_KdNr > -1 Then
|
||
If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromKdNr(AVISO.Frächter_KdNr) = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) Then
|
||
txtFrachtfuehrer.KdNr = AVISO.Frächter_KdNr
|
||
End If
|
||
Else
|
||
|
||
txtFrachtfuehrer.KdNr_value = -1
|
||
txtFrachtfuehrerKdNr.Text = ""
|
||
txtFrachtfuehrer.Text = AVISO.Frächter
|
||
End If
|
||
End If
|
||
End Sub
|
||
|
||
Sub initPosNr()
|
||
'Try
|
||
Dim cnt As Integer = 1
|
||
For Each i In SENDUNG_LIST
|
||
i.tblSnd_PosUnterNr = cnt
|
||
cnt += 1
|
||
Next
|
||
SAVE_ME(True)
|
||
End Sub
|
||
|
||
|
||
Sub initGesColliGewicht()
|
||
Try
|
||
|
||
Dim gesColli As Double = 0
|
||
Dim gesGewicht As Double = 0
|
||
|
||
For Each s In SENDUNG_LIST
|
||
If s.tblSnd_Colli IsNot Nothing AndAlso IsNumeric(s.tblSnd_Colli.Replace("Pk", "").Replace(".", "").Trim) Then gesColli += s.tblSnd_Colli
|
||
If s.tblSnd_Gewicht IsNot Nothing AndAlso IsNumeric(s.tblSnd_Gewicht.Replace("kg", "").Trim) Then gesGewicht += s.tblSnd_Gewicht
|
||
Next
|
||
|
||
lblGesColli.Text = If(gesColli = 0, "-", gesColli.ToString("N0")) & " Pk"
|
||
lblgesGewicht.Text = If(gesGewicht = 0, "-", gesGewicht.ToString("N1")) & " kg"
|
||
|
||
Catch ex As Exception
|
||
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).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 = (cboAbfertigungsart._value = "23")
|
||
txtAnzahl.Visible = (cboAbfertigungsart._value = "23")
|
||
'grpAufschub.Visible = (cboAbfertigungsart._value <> "23")
|
||
|
||
btnAufschub_Atr.Visible = (cboAbfertigungsart._value <> "23")
|
||
btnAufschub_Empf.Visible = (cboAbfertigungsart._value <> "23")
|
||
btnAufschub_VERAG.Visible = (cboAbfertigungsart._value <> "23")
|
||
|
||
setContextMenuGVMSControl()
|
||
|
||
If cboAbfertigungsart._value = "23" Then
|
||
SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub = ""
|
||
|
||
txtDyRef.Visible = False
|
||
picDy.Visible = False
|
||
txtDyRef.Text = ""
|
||
ElseIf 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
|
||
|
||
|
||
VALIDATE_ME(False)
|
||
|
||
' 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()
|
||
If (txtAbfertigungsnummer.Text.Trim <> "" AndAlso IsNumeric(txtAbfertigungsnummer.Text) AndAlso txtAbfertigungsnummer.Text > 0) And (cboFiliale._value.Trim <> "" AndAlso IsNumeric(cboFiliale._value) AndAlso cboFiliale._value > 0) Then
|
||
' .DataSource = SQL.loadDgvBySql("SELECT rksv_BelegId, rksv_umsatz ,BelegNr,BelegDat,Benutzer,[Name],LKW_Beleg FROM [tblEABelegnummer] INNER JOIN Personal ON ID=Benutzer where ((FilialenNr='" & cboFiliale._value & "' and AbfertigungsNr='" & txtAbfertigungsnummer.Text & "') OR (LKW_id='" & AVISO.AvisoID & "' AND LKW_Beleg=1) OR (SELECT Count(*) FROM [tblEABelegnummer] where AbfertigungsNr='" & txtAbfertigungsnummer.Text & "' and FilialenNr='" & cboFiliale._value & "' )>0) and storniert=0 and gebuchtstorno=0 order by rksv_BelegId", "FMZOLL")
|
||
.DataSource = SQL.loadDgvBySql(" SELECT rksv_BelegId, rksv_umsatz ,b.BelegNr,b.BelegDat,b.Benutzer,[Name],LKW_Beleg FROM [tblEABelegnummer] as b " &
|
||
" INNER JOIN Personal ON ID=Benutzer " &
|
||
" INNER JOIN [tblEABelegposition] as pos ON pos.[Mandant]=b.[Mandant] AND pos.[Niederlassung]=b.[Niederlassung] AND pos.[Benutzer]=b.[Benutzer] AND pos.[BelegDat]=b.[BelegDat] AND pos.[BelegNr]=b.[BelegNr] " &
|
||
" where " &
|
||
" ((b.FilialenNr='" & cboFiliale._value & "' and b.AbfertigungsNr='" & txtAbfertigungsnummer.Text & "') OR (LKW_id='" & AVISO.AvisoID & "' AND LKW_Beleg=1) OR " &
|
||
" ( pos.AbfertigungsNr='" & txtAbfertigungsnummer.Text & "' and pos.FilialenNr='" & cboFiliale._value & "' ) ) and storniert=0 and gebuchtstorno=0 " &
|
||
" group by rksv_BelegId, rksv_umsatz ,b.BelegNr,b.BelegDat,b.Benutzer,[Name],LKW_Beleg " &
|
||
" order by rksv_BelegId", "FMZOLL")
|
||
|
||
'AND UnterNr='" & SPEDITIONSBUCH.UnterNr & "' --> Unternr gibts ned
|
||
'MsgBox("SELECT rksv_BelegId, rksv_umsatz ,BelegNr,BelegDat,Benutzer FROM [tblEABelegnummer] where AbfertigungsNr='" & txtAbfertigungsnummer.Text & "' and FilialenNr='" & cboFiliale._value & "' and storniert=0 and gebuchtstorno=0 order by rksv_BelegId")
|
||
.Columns("rksv_BelegId").HeaderText = "Beleg-Id"
|
||
.Columns("rksv_BelegId").Width = 70
|
||
.Columns("rksv_BelegId").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||
.Columns("rksv_umsatz").HeaderText = "Betrag"
|
||
.Columns("rksv_umsatz").Width = 70
|
||
.Columns("rksv_umsatz").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
||
.Columns("rksv_umsatz").DefaultCellStyle.Format = "C"
|
||
.Columns("BelegNr").Visible = False
|
||
.Columns("BelegDat").Visible = False
|
||
.Columns("Benutzer").Visible = False
|
||
.Columns("LKW_Beleg").HeaderText = "LKW"
|
||
.Columns("LKW_Beleg").Width = 35
|
||
.Columns("Name").HeaderText = "Kassen-Benutzer"
|
||
.Columns("Name").MinimumWidth = 70
|
||
.Columns("Name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||
.RowTemplate.Height = 18
|
||
'.DataSource = SQL.loadDgvBySql("SELECT rksv_BelegId, rksv_umsatz ,BelegNr,BelegDat,Benutzer FROM [tblEABelegnummer] where AbfertigungsNr='" & txtAbfertigungsnummer.Text & "' and FilialenNr='" & cboFiliale._value & "' and storniert=0 and gebuchtstorno=0 order by rksv_BelegId", "FMZOLL")
|
||
''MsgBox("SELECT rksv_BelegId, rksv_umsatz ,BelegNr,BelegDat,Benutzer FROM [tblEABelegnummer] where AbfertigungsNr='" & txtAbfertigungsnummer.Text & "' and FilialenNr='" & cboFiliale._value & "' and storniert=0 and gebuchtstorno=0 order by rksv_BelegId")
|
||
'.Columns("rksv_BelegId").HeaderText = "Beleg-Id"
|
||
'.Columns("rksv_BelegId").Width = 70
|
||
'.Columns("rksv_BelegId").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||
'.Columns("rksv_umsatz").HeaderText = "Betrag"
|
||
'.Columns("rksv_umsatz").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||
'.Columns("rksv_umsatz").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
||
'.Columns("rksv_umsatz").DefaultCellStyle.Format = "C"
|
||
'.Columns("BelegNr").Visible = False
|
||
'.Columns("BelegDat").Visible = False
|
||
'.Columns("Benutzer").Visible = False
|
||
'.RowTemplate.Height = 18
|
||
End If
|
||
End With
|
||
|
||
Catch ex As Exception
|
||
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()
|
||
Dim sperren = False
|
||
If cbxFremdspedition.Checked Then
|
||
sperren = True
|
||
ElseIf cboAbfertigungsart._value = "44" Then
|
||
sperren = False
|
||
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
|
||
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 ToolStripMenuItem13.Click
|
||
' Me.loadDataInLIST()
|
||
SAVE_ME()
|
||
If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
|
||
Dim frMZA As New SDL.frmZollanmeldung("EZA", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy"))
|
||
' Dim u As New SDL.usrCntlATLAS_EZA(DAKOSY_Worker.cDakosy_ZollanmeldungenArten.EZA, AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, Now.ToString("yy"), "")
|
||
' u.Dock = DockStyle.Fill
|
||
frMZA.Show()
|
||
AddHandler frMZA.FormClosed, Sub()
|
||
initdgvZollAnmeldungen()
|
||
End Sub
|
||
'tbZollabfertigung.Controls.Clear()
|
||
' tbZollabfertigung.Controls.Add(u)
|
||
End Sub
|
||
|
||
Private Sub NCTSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem8.Click
|
||
' Me.loadDataInLIST()
|
||
SAVE_ME()
|
||
If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
|
||
Dim frMZA As New SDL.frmZollanmeldung("T1", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy"))
|
||
frMZA.Show()
|
||
AddHandler frMZA.FormClosed, Sub()
|
||
initdgvZollAnmeldungen()
|
||
End Sub
|
||
End Sub
|
||
|
||
Private Sub NCTST2ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem9.Click
|
||
' Me.loadDataInLIST()
|
||
SAVE_ME()
|
||
If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
|
||
Dim frMZA As New SDL.frmZollanmeldung("T2", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy"))
|
||
frMZA.Show()
|
||
AddHandler frMZA.FormClosed, Sub()
|
||
initdgvZollAnmeldungen()
|
||
End Sub
|
||
End Sub
|
||
|
||
Private Sub AESToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem11.Click
|
||
'Me.loadDataInLIST()
|
||
SAVE_ME()
|
||
If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
|
||
Dim frMZA As New SDL.frmZollanmeldung("AES", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy"))
|
||
frMZA.Show()
|
||
AddHandler frMZA.FormClosed, Sub()
|
||
initdgvZollAnmeldungen()
|
||
End Sub
|
||
End Sub
|
||
|
||
|
||
|
||
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles btnImportaviso.Click
|
||
FormularArt = SDL.FormularManagerArten.Importaviso
|
||
cntxtVorauskasse.Show(Cursor.Position)
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem10_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem10.Click
|
||
' Me.loadDataInLIST()
|
||
SAVE_ME()
|
||
If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
|
||
Dim frMZA As New SDL.frmZollanmeldung("ÜT", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy"))
|
||
frMZA.Show()
|
||
AddHandler frMZA.FormClosed, Sub()
|
||
initdgvZollAnmeldungen()
|
||
End Sub
|
||
End Sub
|
||
|
||
|
||
Sub newKunde(KD As VERAG_PROG_ALLGEMEIN.KdSearchBox)
|
||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
|
||
Dim frmKundenblatt As New SDL.frmKundenblatt
|
||
frmKundenblatt.showEdit = True
|
||
frmKundenblatt.kdNr = -1
|
||
'frmKundenblatt.BERECHTIGUNEN = BERECHTIGUNEN
|
||
If frmKundenblatt.ShowDialog(Me) Then
|
||
If frmKundenblatt.kdNr > 0 Then
|
||
KD.KdNr = frmKundenblatt.kdNr
|
||
End If
|
||
End If
|
||
Else
|
||
Dim frmKd As New SDL.frmNeuerKunde
|
||
frmKd.openKd = False
|
||
frmKd.timerIntervall = 500
|
||
frmKd.username = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.mit_username
|
||
If frmKd.username.Length > 15 Then frmKd.username = frmKd.username.Substring(0, 15)
|
||
frmKd.tmpFiliale = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.StandartFiliale
|
||
' frmKd.tmpKdNrKreis = 9
|
||
If KD.KdNr = -1 Then
|
||
frmKd.tmpKdName = KD.Text
|
||
End If
|
||
frmKd.ShowDialog()
|
||
If frmKd.kdnr > 0 Then
|
||
KD.KdNr = frmKd.kdnr
|
||
End If
|
||
|
||
End If
|
||
|
||
End Sub
|
||
|
||
Private Sub Button11_Click_2(sender As Object, e As EventArgs) Handles Button11.Click
|
||
newKunde(txtAuftraggeber)
|
||
End Sub
|
||
|
||
Private Sub Button15_Click_1(sender As Object, e As EventArgs) Handles Button15.Click
|
||
newKunde(txtEmpfaenger)
|
||
End Sub
|
||
|
||
Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
|
||
newKunde(txtAbsender)
|
||
End Sub
|
||
|
||
Private Sub tbcntr_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tbcntr.SelectedIndexChanged
|
||
If tbcntr.SelectedTab Is 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
|
||
Private Sub ToolStripMenuItem13_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem13.Click
|
||
|
||
End Sub
|
||
|
||
Private Sub Button17_Click(sender As Object, e As EventArgs) Handles 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 IO.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)
|
||
Dim docPathTMP = VERAG_PROG_ALLGEMEIN.cFormularManager.getTMPPath_MSG()
|
||
System.IO.File.Copy(docPath, docPathTMP)
|
||
Process.Start(docPathTMP)
|
||
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,<br>"
|
||
TextHTML &= "<br>"
|
||
TextHTML &= "beiliegend senden wir Ihnen die Sendungsunterlagen für den o.g. LKW/Container. Wir bitten um Zusendung der ATA-Nummer.<br>"
|
||
TextHTML &= "<br>"
|
||
|
||
TextHTML &= "Mit freundlichen Grüßen<br>"
|
||
TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
|
||
TextHTML &= "<br>"
|
||
|
||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("DE") & "</div>"
|
||
|
||
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,<br>"
|
||
firstTextHTMLDE &= "<br>"
|
||
firstTextHTMLDE &= "wir bitten um Bestätigung, dass wir für die angefügte Sendung ein T1-Versandschein an folgender Adresse erstellen dürfen:<br>"
|
||
firstTextHTMLDE &= "Mit der Bestätigung stimmen Sie zu, diesen Versandverfahren bei Ihnen zu beenden.<br>"
|
||
firstTextHTMLDE &= "<br>"
|
||
|
||
Dim firstTextHTMLEN = ""
|
||
firstTextHTMLEN &= "Dear Business Partner,<br>"
|
||
firstTextHTMLEN &= "<br>"
|
||
firstTextHTMLEN &= "we request confirmation that we may issue a T1 dispatch note for the attached item to the following address:<br>"
|
||
firstTextHTMLEN &= "By confirming, you agree to terminate this shipping procedure with you.<br>"
|
||
firstTextHTMLEN &= "<br>"
|
||
|
||
Dim TextHTMLInfo = ""
|
||
TextHTMLInfo &= usrcntl_NCTS.txtT1Verzollungsadresse.Text & "<br>"
|
||
TextHTMLInfo &= usrcntl_NCTS.txtT1VerzollungsadresseStrasse.Text & "<br>"
|
||
TextHTMLInfo &= usrcntl_NCTS.sbT1VerzollungsadresseLand.Text & "-" & usrcntl_NCTS.txtT1VerzollungsadressePlz.Text & " " & usrcntl_NCTS.txtT1VerzollungsadresseOrt.Text & "<br>"
|
||
TextHTMLInfo &= usrcntl_NCTS.txtT1VerzollungsadresseBestimmungszollstelle.Text & "<br>"
|
||
|
||
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.<br>"
|
||
lastTextHTMLEN &= "For a permanent permit, please complete and sign the enclosed form and return it to us.<br>"
|
||
|
||
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<br>"
|
||
lastTextHTMLDE &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
|
||
lastTextHTMLDE &= "<br>"
|
||
|
||
lastTextHTMLEN &= "Best regards<br>"
|
||
lastTextHTMLEN &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
|
||
lastTextHTMLEN &= "<br>"
|
||
|
||
|
||
|
||
If language = "DE" Then
|
||
|
||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & firstTextHTMLDE & TextHTMLInfo & lastTextHTMLDE & SDL.cFakturierung.getSignature(language) & "</div>"
|
||
Else
|
||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & firstTextHTMLEN & TextHTMLInfo & lastTextHTMLEN & SDL.cFakturierung.getSignature(language) & "</div>"
|
||
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) ' String() = New String() {"Sample1.pdf", "Sample2.pdf", "Sample3.pdf"}
|
||
Dim outputFile As String = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Merge.pdf", ".pdf", True,, "Merge") ' "result.pdf"
|
||
|
||
'Dim outl As New Outlook.Application
|
||
'Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
|
||
'Mail = outl.CreateItem(0)
|
||
|
||
For Each r As DataGridViewRow In dgvAnhang.SelectedRows
|
||
files.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value))
|
||
Next
|
||
VERAG_PROG_ALLGEMEIN.cFormularManager.mergePDFs(files, outputFile)
|
||
'Dim doc As Spire.Pdf.PdfDocumentBase = Spire.Pdf.PdfDocument.MergeFiles(files.ToArray)
|
||
'doc.Save(outputFile, Spire.Pdf.FileFormat.PDF)
|
||
Process.Start(outputFile)
|
||
' VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.OPEN_PATH()
|
||
Catch ex As Exception
|
||
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,<br>"
|
||
TextHTML &= "<br>"
|
||
TextHTML &= "beiliegend senden wir Ihnen die Sendungsunterlagen für den o.g. LKW/Container. Wir bitten Sie den LKW/Container vorzubereiten.<br>"
|
||
TextHTML &= "<br>"
|
||
|
||
TextHTML &= "Mit freundlichen Grüßen<br>"
|
||
TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
|
||
TextHTML &= "<br>"
|
||
|
||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("DE") & "</div>"
|
||
|
||
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,<br>"
|
||
TextHTML &= "<br>"
|
||
TextHTML &= "oben genannter LKW/Container wurde im AVISO erfasst.<br>"
|
||
TextHTML &= "Die Papiere sind im Aviso der jeweiligen Sendung angehängt (<b>DIGITALER AKT</b>).<br>"
|
||
TextHTML &= "<br>"
|
||
TextHTML &= "Mit freundlichen Grüßen<br>"
|
||
TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
|
||
TextHTML &= "<br>"
|
||
|
||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("DE") & "</div>"
|
||
|
||
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 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,<br>"
|
||
TextHTML &= "<br>"
|
||
TextHTML &= "please do the " & If(AVISO.ImEx = "", "customs", AVISO.ImEx) & " for attached shipment on our behalf.<br>"
|
||
TextHTML &= "<br>"
|
||
TextHTML &= "<table style=""font-family:Calibri, Arial;font-size:15px;"">"
|
||
TextHTML &= "<tr><td>ETA:</td><td><b>" & If(AVISO.VoraussichtlichesEintreffen IsNot Nothing, CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "") & "</b></td></tr>"
|
||
TextHTML &= "<tr><td>Truck:</td><td><b>" & AVISO.LKW_Nr & "</b></td></tr>"
|
||
' TextHTML &= "<tr><td width=""150"">Customs Office: </td><td><b>" & SQL.getValueTxtBySql("SELECT [basncd_name] FROM basncd WHERE basncd_dstnr='" & If(AVISO.Zollstelle, "") & "' ", "ATLAS") & "</b></td></tr>"
|
||
TextHTML &= "<tr><td width=""150"">Customs Office: </td><td><b>" & 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") & "</b></td></tr>"
|
||
|
||
TextHTML &= "</table>"
|
||
TextHTML &= "<br>"
|
||
TextHTML &= "<br>"
|
||
|
||
TextHTML &= "Best regards<br>"
|
||
TextHTML &= "<b>" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "</b><br>"
|
||
TextHTML &= "<br>"
|
||
|
||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("EN",,,, "BREXIT_VERAG") & "</div>"
|
||
|
||
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,<br>"
|
||
TextHTML &= "<br>"
|
||
TextHTML &= "attached our next " & If(AVISO.ImEx = "", "customs", AVISO.ImEx) & " instruction.<br>"
|
||
TextHTML &= "<br>"
|
||
TextHTML &= "<table style=""font-family:Calibri, Arial;font-size:15px;"">"
|
||
TextHTML &= "<tr><td>ETA:</td><td><b>" & If(AVISO.VoraussichtlichesEintreffen IsNot Nothing, CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "") & "</b></td></tr>"
|
||
TextHTML &= "<tr><td>Truck:</td><td><b>" & AVISO.LKW_Nr & "</b></td></tr>"
|
||
' TextHTML &= "<tr><td width=""150"">Customs Office: </td><td><b>" & SQL.getValueTxtBySql("SELECT [basncd_name] FROM basncd WHERE basncd_dstnr='" & If(AVISO.Zollstelle, "") & "' ", "ATLAS") & "</b></td></tr>"
|
||
TextHTML &= "<tr><td width=""150"">Customs Office: </td><td><b>" & 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") & "</b></td></tr>"
|
||
|
||
TextHTML &= "</table>"
|
||
TextHTML &= "<br>"
|
||
TextHTML &= "<br>"
|
||
|
||
TextHTML &= "Best regards<br>"
|
||
TextHTML &= "<b>" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "</b><br>"
|
||
TextHTML &= "<br>"
|
||
|
||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("EN",,,, "BREXIT_VERAG") & "</div>"
|
||
|
||
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,<br>"
|
||
TextHTML &= "<br>"
|
||
TextHTML &= "please do the " & If(AVISO.ImEx = "", "customs", AVISO.ImEx) & " for attached shipment on our behalf.<br>"
|
||
TextHTML &= "<br>"
|
||
TextHTML &= "<table style=""font-family:Calibri, Arial;font-size:15px;"">"
|
||
TextHTML &= "<tr><td>ETA:</td><td><b>" & If(AVISO.VoraussichtlichesEintreffen IsNot Nothing, CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "") & "</b></td></tr>"
|
||
TextHTML &= "<tr><td>Truck:</td><td><b>" & AVISO.LKW_Nr & "</b></td></tr>"
|
||
' TextHTML &= "<tr><td width=""150"">Customs Office: </td><td><b>" & SQL.getValueTxtBySql("SELECT [basncd_name] FROM basncd WHERE basncd_dstnr='" & If(AVISO.Zollstelle, "") & "' ", "ATLAS") & "</b></td></tr>"
|
||
TextHTML &= "<tr><td width=""150"">Customs Office: </td><td><b>" & 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") & "</b></td></tr>"
|
||
|
||
|
||
TextHTML &= "</table>"
|
||
TextHTML &= "<br>"
|
||
TextHTML &= "<br>"
|
||
|
||
TextHTML &= "Best regards<br>"
|
||
TextHTML &= "<b>" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "</b><br>"
|
||
TextHTML &= "<br>"
|
||
|
||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("EN",,,, "BREXIT_VERAG") & "</div>"
|
||
|
||
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
|
||
For Each l In ANH_LIST_SND
|
||
Select Case l.anh_Art.ToString.ToUpper
|
||
Case "RECHNUNG", "HANDELSRECHNUNG", "EFATURA", "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,<br>"
|
||
TextHTML &= "<br>"
|
||
TextHTML &= "anbei senden wir Ihnen unser Avis zu o.g. LKW.<br>"
|
||
|
||
TextHTML &= "<br>"
|
||
TextHTML &= "Bitte bereiten Sie angefügte(n) Sendung(en) wie folgt vor:<br>"
|
||
TextHTML &= "<br>"
|
||
|
||
TextHTML &= "<table border=1>"
|
||
TextHTML &= "<tr><td>Pos</td><td>Referenz</td><td>Abfertigungsart</td><td>Absender</td><td>Empfänger</td><td>Sendung</td><td>Abrechnung</td><td>EORI</td><td>UID</td><td>Vollmacht</td></tr>"
|
||
|
||
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 &= "<tr>"
|
||
TextHTML &= "<td><b>" & cnt & "</b></td>"
|
||
TextHTML &= "<td><b>" & SND.FilialenNr & "/" & SND.AbfertigungsNr & "</b></td>"
|
||
TextHTML &= "<td><b><nobr>" & SQL.DLookup("isnull(AbfertigungsbezeichnungLang,Abfertigungsbezeichnung)", "[Abfertigungsarten]", "[Abfertigungsart]='" & SND.tblSnd_Abfertigungsart_ID & "'", "FMZOLL", "") & "</nobr></b></td>"
|
||
TextHTML &= "<td><b>" & SND.tblSnd_Absender & "</b></td>"
|
||
TextHTML &= "<td><b>" & SND.tblSnd_Empfaenger & "</b></td>"
|
||
TextHTML &= "<td><b>" & SND.tblSnd_Colli & " Pk. " & SND.tblSnd_Warenbezeichnung & " - " & SND.tblSnd_Gewicht & " kg </b></td>"
|
||
|
||
TextHTML &= "<td><b>"
|
||
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 &= "</b></td>"
|
||
|
||
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 &= "<td><b>" & If(KD.EORITIN, "") & "</b></td>"
|
||
TextHTML &= "<td><b>" & If(AD.UstIdKz, "") & If(AD.UstIdNr, "") & "</b></td>"
|
||
TextHTML &= "<td><b>" & If(VMDat, "") & "</b></td>"
|
||
Else
|
||
TextHTML &= "<td><b>-</b></td>"
|
||
TextHTML &= "<td><b>-</b></td>"
|
||
TextHTML &= "<td><b>-</b></td>"
|
||
End If
|
||
Case "5", "6"
|
||
gestellungsadresseTmp = SND.getNCTSAdress().Trim
|
||
TextHTML &= "<td><b>-</b></td>"
|
||
TextHTML &= "<td><b>-</b></td>"
|
||
TextHTML &= "<td><b>-</b></td>"
|
||
Case Else
|
||
TextHTML &= "<td><b>-</b></td>"
|
||
TextHTML &= "<td><b>-</b></td>"
|
||
TextHTML &= "<td><b>-</b></td>"
|
||
End Select
|
||
|
||
TextHTML &= "</tr>"
|
||
|
||
If gestellungsadresseTmp <> "" Then
|
||
TextHTML &= "<tr>"
|
||
TextHTML &= "<td colspan=2><b></b></td>"
|
||
TextHTML &= "<td colspan=2>NCTS-Gestellungsadresse:</td>"
|
||
TextHTML &= "<td colspan=6><b>" & gestellungsadresseTmp & "</b></td>"
|
||
TextHTML &= "</tr>"
|
||
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 &= "</table>"
|
||
TextHTML &= "<br>"
|
||
TextHTML &= "<br>"
|
||
TextHTML &= "Für Rückfragen stehen wir gerne zur Verfügung<br>"
|
||
TextHTML &= "<br>"
|
||
TextHTML &= "Mit freundlichen Grüßen<br>"
|
||
TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
|
||
TextHTML &= "<br>"
|
||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("DE") & "</div>"
|
||
|
||
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,<br>"
|
||
DETextHTML &= "<br>"
|
||
DETextHTML &= "hiermit bestätigen wir, dass die folgende(n) Sendung(en) durch uns im EIDR Verfahren erfasst wurden.<br>
|
||
Sie dürfen somit ins Zollgebiet des Vereinigten Königreichs einfahren und die Waren in den Freien Verkehr bringen.<br>"
|
||
|
||
DETextHTML &= "Bitte beachten Sie, dass Sie vor der Überfahrt einen GVMS-Eintrag erstellen müssen.<br>"
|
||
|
||
DETextHTML &= "Bitte verwenden Sie als Deklarationstyp die Entry In Declarant's Records (EIDR) und als Referenz unsere EORI-Nr: GB078068385000 <br>"
|
||
|
||
DETextHTML &= "Wir übernehmen gerne die Eintragung für Sie – bitte antworten Sie auf dieses Mail, wenn die Anmeldung durch uns durchgeführt werden sollte.<br><br>"
|
||
|
||
Dim ENTextHTML = ""
|
||
ENTextHTML &= "<br>"
|
||
ENTextHTML &= "Dear Business Partner,<br>"
|
||
ENTextHTML &= "<br>"
|
||
ENTextHTML &= "We hereby confirm that the following shipment(s) have been registered by us under the EIDR procedure.<br>
|
||
You may therefore enter the customs territory of the United Kingdom and release the goods for free circulation.<br>"
|
||
|
||
ENTextHTML &= "Please use Entry In Declarant's Records (EIDR) as declaration type and EORI no. GB078068385000 as reference.<br>"
|
||
|
||
ENTextHTML &= "Please note that you must create a GVMS entry before crossing.<br>
|
||
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.<br><br>"
|
||
ENTextHTML &= "Sendungen/Shipment(s):<br>"
|
||
|
||
Dim TextHTMLtable = ""
|
||
|
||
TextHTMLtable &= "<table border=1>"
|
||
TextHTMLtable &= "<tr><td>Pos</td><td>Referenz</td><td>Absender/Sender</td><td>Empfänger/Recipient</td><td>Sendung/Shipment</td><td>Kennzeichen/License plate</td></tr>"
|
||
|
||
|
||
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 &= "<tr>"
|
||
TextHTMLtable &= "<td><b>" & cnt & "</b></td>"
|
||
TextHTMLtable &= "<td><b>" & SND.FilialenNr & "/" & SND.AbfertigungsNr & "</b></td>"
|
||
TextHTMLtable &= "<td><b>" & SND.tblSnd_Absender & "</b></td>"
|
||
TextHTMLtable &= "<td><b>" & SND.tblSnd_Empfaenger & "</b></td>"
|
||
TextHTMLtable &= "<td><b>" & SND.tblSnd_Colli & " Pk. " & SND.tblSnd_Warenbezeichnung & " - " & SND.tblSnd_Gewicht & " kg </b></td>"
|
||
TextHTMLtable &= "<td><b>" & AVISO.LKW_Nr & "</b></td>"
|
||
TextHTMLtable &= "</tr>"
|
||
|
||
cnt += 1
|
||
End If
|
||
Next
|
||
|
||
TextHTMLtable &= "</table>"
|
||
|
||
Dim EndTextHTML = ""
|
||
|
||
EndTextHTML &= "<br>"
|
||
EndTextHTML &= "<br>"
|
||
EndTextHTML &= "Für Rückfragen stehen wir gerne zur Verfügung/We are at your disposal for any questions<br>"
|
||
EndTextHTML &= "<br>"
|
||
EndTextHTML &= "Mit freundlichen Grüßen/Best regards<br>"
|
||
EndTextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
|
||
EndTextHTML &= "<br>"
|
||
|
||
|
||
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 = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & DETextHTML & ENTextHTML & TextHTMLtable & EndTextHTML & SDL.cFakturierung.getSignature("EN",,,, "BREXIT_VERAG") & "</div>"
|
||
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 = frachkosten.usrcntlFrachtkostenberechnung.EUAnteil
|
||
'txtFrachtkostenNichtEU._value = frachkosten.nichtEUAnteil
|
||
'txtFrachtkostenGesamt._value = frachkosten.tbxGesamtfrachtkosten._value
|
||
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,<br>"
|
||
TextHTML &= "<br>"
|
||
TextHTML &= "please see attached.<br>"
|
||
TextHTML &= "<br>"
|
||
|
||
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 &= "<br>"
|
||
'End If
|
||
|
||
Next
|
||
|
||
TextHTML &= "Import document <br>"
|
||
TextHTML &= "T1 <br>"
|
||
TextHTML &= "Commercial Invoice <br>"
|
||
TextHTML &= "Packing list <br>"
|
||
TextHTML &= "<br>"
|
||
TextHTML &= "ETA to MOTIS " & IIf(AVISO.VoraussichtlichesEintreffen IsNot Nothing, CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "")
|
||
TextHTML &= "<br>"
|
||
TextHTML &= "<br>"
|
||
TextHTML &= "Best regards<br>"
|
||
TextHTML &= "<b>" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "</b><br>"
|
||
TextHTML &= "<br>"
|
||
|
||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("EN",,,, "BREXIT_VERAG") & "</div>"
|
||
|
||
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,<br>"
|
||
TextHTML &= "<br>"
|
||
TextHTML &= "anbei senden wir Ihnen unser Avis zu o.g. LKW.<br>"
|
||
|
||
TextHTML &= "<br>"
|
||
TextHTML &= "Bitte bereiten Sie angefügte(n) Sendung(en) wie folgt vor:<br>"
|
||
TextHTML &= "<br>"
|
||
|
||
TextHTML &= "<table border=1>"
|
||
TextHTML &= "<tr><td>Pos</td><td>Referenz</td><td>Abfertigungsart</td><td>Absender</td><td>Empfänger</td><td>Sendung</td><td>Abrechnung</td><td>EORI</td><td>UID</td><td>Vollmacht</td></tr>"
|
||
|
||
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 &= "<tr>"
|
||
TextHTML &= "<td><b>" & cnt & "</b></td>"
|
||
TextHTML &= "<td><b>" & SND.FilialenNr & "/" & SND.AbfertigungsNr & "</b></td>"
|
||
TextHTML &= "<td><b><nobr>" & SQL.DLookup("isnull(AbfertigungsbezeichnungLang,Abfertigungsbezeichnung)", "[Abfertigungsarten]", "[Abfertigungsart]='" & SND.tblSnd_Abfertigungsart_ID & "'", "FMZOLL", "") & "</nobr></b></td>"
|
||
TextHTML &= "<td><b>" & SND.tblSnd_Absender & "</b></td>"
|
||
TextHTML &= "<td><b>" & SND.tblSnd_Empfaenger & "</b></td>"
|
||
TextHTML &= "<td><b>" & SND.tblSnd_Colli & " Pk. " & SND.tblSnd_Warenbezeichnung & " - " & SND.tblSnd_Gewicht & " kg </b></td>"
|
||
|
||
TextHTML &= "<td><b>"
|
||
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 &= "</b></td>"
|
||
|
||
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 &= "<td><b>" & If(KD.EORITIN, "") & "</b></td>"
|
||
TextHTML &= "<td><b>" & If(AD.UstIdKz, "") & If(AD.UstIdNr, "") & "</b></td>"
|
||
TextHTML &= "<td><b>" & If(VMDat, "") & "</b></td>"
|
||
Else
|
||
TextHTML &= "<td><b>-</b></td>"
|
||
TextHTML &= "<td><b>-</b></td>"
|
||
TextHTML &= "<td><b>-</b></td>"
|
||
End If
|
||
Case "5", "6"
|
||
gestellungsadresseTmp = SND.getNCTSAdress().Trim
|
||
TextHTML &= "<td><b>-</b></td>"
|
||
TextHTML &= "<td><b>-</b></td>"
|
||
TextHTML &= "<td><b>-</b></td>"
|
||
Case Else
|
||
TextHTML &= "<td><b>-</b></td>"
|
||
TextHTML &= "<td><b>-</b></td>"
|
||
TextHTML &= "<td><b>-</b></td>"
|
||
End Select
|
||
|
||
TextHTML &= "</tr>"
|
||
|
||
If gestellungsadresseTmp <> "" Then
|
||
TextHTML &= "<tr>"
|
||
TextHTML &= "<td colspan=2><b></b></td>"
|
||
TextHTML &= "<td colspan=2>NCTS-Gestellungsadresse:</td>"
|
||
TextHTML &= "<td colspan=6><b>" & gestellungsadresseTmp & "</b></td>"
|
||
TextHTML &= "</tr>"
|
||
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 &= "</table>"
|
||
TextHTML &= "<br>"
|
||
TextHTML &= "<br>"
|
||
TextHTML &= "Für Rückfragen stehen wir gerne zur Verfügung<br>"
|
||
TextHTML &= "<br>"
|
||
TextHTML &= "Mit freundlichen Grüßen<br>"
|
||
TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
|
||
TextHTML &= "<br>"
|
||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("DE") & "</div>"
|
||
|
||
|
||
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,<br>"
|
||
TextHTML &= "<br>"
|
||
TextHTML &= "anbei senden wir Ihnen unser Avis zu o.g. LKW.<br>"
|
||
|
||
TextHTML &= "<br>"
|
||
TextHTML &= "Bitte bereiten Sie angefügte(n) Sendung(en) wie folgt vor:<br>"
|
||
TextHTML &= "<br>"
|
||
|
||
TextHTML &= "<table border=1>"
|
||
TextHTML &= "<tr><td>Pos</td><td>Referenz</td><td>Abfertigungsart</td><td>Absender</td><td>Empfänger</td><td>Sendung</td><td>Abrechnung</td><td>EORI</td><td>UID</td><td>Vollmacht</td></tr>"
|
||
|
||
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 &= "<tr>"
|
||
TextHTML &= "<td><b>" & cnt & "</b></td>"
|
||
TextHTML &= "<td><b>" & SND.FilialenNr & "/" & SND.AbfertigungsNr & "</b></td>"
|
||
TextHTML &= "<td><b><nobr>" & SQL.DLookup("isnull(AbfertigungsbezeichnungLang,Abfertigungsbezeichnung)", "[Abfertigungsarten]", "[Abfertigungsart]='" & SND.tblSnd_Abfertigungsart_ID & "'", "FMZOLL", "") & "</nobr></b></td>"
|
||
TextHTML &= "<td><b>" & SND.tblSnd_Absender & "</b></td>"
|
||
TextHTML &= "<td><b>" & SND.tblSnd_Empfaenger & "</b></td>"
|
||
TextHTML &= "<td><b>" & SND.tblSnd_Colli & " Pk. " & SND.tblSnd_Warenbezeichnung & " - " & SND.tblSnd_Gewicht & " kg </b></td>"
|
||
|
||
TextHTML &= "<td><b>"
|
||
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 &= "</b></td>"
|
||
|
||
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 &= "<td><b>" & If(KD.EORITIN, "") & "</b></td>"
|
||
TextHTML &= "<td><b>" & If(AD.UstIdKz, "") & If(AD.UstIdNr, "") & "</b></td>"
|
||
TextHTML &= "<td><b>" & If(VMDat, "") & "</b></td>"
|
||
Else
|
||
TextHTML &= "<td><b>-</b></td>"
|
||
TextHTML &= "<td><b>-</b></td>"
|
||
TextHTML &= "<td><b>-</b></td>"
|
||
End If
|
||
Case "5", "6"
|
||
gestellungsadresseTmp = SND.getNCTSAdress().Trim
|
||
TextHTML &= "<td><b>-</b></td>"
|
||
TextHTML &= "<td><b>-</b></td>"
|
||
TextHTML &= "<td><b>-</b></td>"
|
||
Case Else
|
||
TextHTML &= "<td><b>-</b></td>"
|
||
TextHTML &= "<td><b>-</b></td>"
|
||
TextHTML &= "<td><b>-</b></td>"
|
||
End Select
|
||
|
||
TextHTML &= "</tr>"
|
||
|
||
If gestellungsadresseTmp <> "" Then
|
||
TextHTML &= "<tr>"
|
||
TextHTML &= "<td colspan=2><b></b></td>"
|
||
TextHTML &= "<td colspan=2>NCTS-Gestellungsadresse:</td>"
|
||
TextHTML &= "<td colspan=6><b>" & gestellungsadresseTmp & "</b></td>"
|
||
TextHTML &= "</tr>"
|
||
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 &= "</table>"
|
||
TextHTML &= "<br>"
|
||
TextHTML &= "<br>"
|
||
TextHTML &= "Für Rückfragen stehen wir gerne zur Verfügung<br>"
|
||
TextHTML &= "<br>"
|
||
TextHTML &= "Mit freundlichen Grüßen<br>"
|
||
TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
|
||
TextHTML &= "<br>"
|
||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("DE") & "</div>"
|
||
|
||
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 Button20.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
|
||
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,<br>"
|
||
firstTextHTMLDE &= "<br>"
|
||
firstTextHTMLDE &= "o.g. LKW ist bei uns zur Zollabfertigung eingetroffen.<br>"
|
||
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.<br>"
|
||
firstTextHTMLDE &= "Es ist von äußerster Wichtigkeit, dass Sie den angefügten CMR verwenden. Bitte verwenden Sie keinen anderen CMR.<br>"
|
||
|
||
firstTextHTMLDE &= "Alternativ können Sie uns auch eine Packliste mit Original-Stempel und Signatur per Mail übersenden.<br>"
|
||
firstTextHTMLDE &= " Auf der Packliste müssen folgende Merkmale vorhanden sein:<br>"
|
||
firstTextHTMLDE &= "<br>"
|
||
firstTextHTMLDE &= "Versender mit kompletter Anschrift<br>"
|
||
firstTextHTMLDE &= "Empfänger mit kompletter Anschrift<br>"
|
||
firstTextHTMLDE &= "Warenbezeichnung<br>"
|
||
firstTextHTMLDE &= "Packstück + Gewicht<br>"
|
||
firstTextHTMLDE &= "Stempel + Signatur<br><br><br>"
|
||
|
||
'-----------------------------------------------
|
||
|
||
firstTextHTMLDE &= "Dear Sir or Madam,<br>"
|
||
firstTextHTMLDE &= "<br>"
|
||
firstTextHTMLDE &= "The above-mentioned lorry has arrived at our premises for customs clearance.<br>"
|
||
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.<br>"
|
||
firstTextHTMLDE &= "It is of utmost importance that you use the attached CMR. Please do not use any other CMR.<br>"
|
||
|
||
firstTextHTMLDE &= "Alternatively, you can send us a packing list with original stamp and signature by mail.<br>"
|
||
firstTextHTMLDE &= " The following features must be present on the packing list:<br>"
|
||
firstTextHTMLDE &= "<br>"
|
||
firstTextHTMLDE &= "Consignor with complete address<br>"
|
||
firstTextHTMLDE &= "Consignee with complete address<br>"
|
||
firstTextHTMLDE &= "Description of goods<br>"
|
||
firstTextHTMLDE &= "Package + weight<br>"
|
||
firstTextHTMLDE &= "Stamp + signature<br><br><br>"
|
||
|
||
'-----------------------------------------------
|
||
|
||
firstTextHTMLDE &= "Sayin Bay veya Bayan,<br>"
|
||
firstTextHTMLDE &= "<br>"
|
||
firstTextHTMLDE &= "Yukarida belirtilen arac gümrük islemleri için bize varis yapmistir.<br>"
|
||
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.<br>"
|
||
firstTextHTMLDE &= "Ekteki CMR'yi kullanmaniz büyük önem tasimaktadir. Lütfen baska bir CMR kullanmayin.<br>"
|
||
|
||
firstTextHTMLDE &= "Alternatif olarak, bize posta yoluyla orijinal kaşe ve imzalı bir çeki listesi gönderebilirsiniz.<br>"
|
||
firstTextHTMLDE &= "Çeki listesinde aşağıdaki özellikler bulunmalıdır:<br>"
|
||
firstTextHTMLDE &= "<br>"
|
||
firstTextHTMLDE &= "Tam adresli gönderici<br>"
|
||
firstTextHTMLDE &= "Tam adresli alıcı<br>"
|
||
firstTextHTMLDE &= "Malların tanımı<br>"
|
||
firstTextHTMLDE &= "Paket + ağırlık<br>"
|
||
firstTextHTMLDE &= "Damga + imza<br>"
|
||
|
||
|
||
|
||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & firstTextHTMLDE & SDL.cFakturierung.getSignature("DE") & "</div>"
|
||
|
||
|
||
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)
|
||
|
||
'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
|
||
|
||
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 &= "<br>"
|
||
TextHTML &= "<br>"
|
||
TextHTML &= "Mit freundlichen Grüßen<br>"
|
||
TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
|
||
TextHTML &= "<br>"
|
||
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 & "<br>")
|
||
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 = "<div style=""font-family:Calibri, Arial"">" & TextHTML & "</div>"
|
||
|
||
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()
|
||
|
||
|
||
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
|
||
|
||
End Sub
|
||
|
||
Private Sub timerValidation_Tick(sender As Object, e As EventArgs) Handles timerValidation.Tick
|
||
VALIDATE_ME(False)
|
||
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
|
||
End Class
|