edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
56fe11bc9740bbb96199778d09d97cb4ee3569af
AVISO/Aviso/frmSendungsdetailsNEU.vb
Andreas Luxbauer 56fe11bc97 neu
2020-12-13 21:30:05 +01:00

4140 lines
208 KiB
VB.net
Raw Blame History

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