neu
This commit is contained in:
@@ -216,339 +216,368 @@ Public Class frmSendungsdetailsNEU
|
||||
|
||||
|
||||
Private Sub frmSendungsdetails_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
Try
|
||||
|
||||
Panel5.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
|
||||
Panel15.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
|
||||
pnlFremd.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
|
||||
cbxFremdspedition.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
|
||||
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, "")
|
||||
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)
|
||||
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
|
||||
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
|
||||
End If
|
||||
|
||||
If AVISO.Abgeschlossen Then
|
||||
Label8.Visible = True
|
||||
End If
|
||||
lblZollsysErr.Text = ""
|
||||
LinkLabel1.TabStop = False
|
||||
LinkLabel2.TabStop = False
|
||||
' cbxFremdspedition.TabStop = False
|
||||
LinkLabel3.TabStop = False
|
||||
Label26.TabStop = False
|
||||
Panel8.TabStop = False
|
||||
' RadioButton.TabStop = False
|
||||
' RadioButton1.TabStop = False
|
||||
' RadioButton2.TabStop = False
|
||||
lklAuftraggeber.TabStop = False
|
||||
' txtEmpfaengerBonitaet.TabStop = False
|
||||
' txtEmpfaengerAnsprechpartner.TabStop = False
|
||||
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)
|
||||
'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
|
||||
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, CURRENT_INDEX, AvisoId) 'LÄDT alle SENDUNGSDATEN
|
||||
|
||||
Dim sbWhere = ""
|
||||
Dim QSwhere = ""
|
||||
Dim sbWhere = ""
|
||||
Dim QSwhere = ""
|
||||
|
||||
|
||||
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "IMEX"
|
||||
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
|
||||
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') "
|
||||
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
|
||||
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
|
||||
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
|
||||
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)
|
||||
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")
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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.
|
||||
'bsSendungen.
|
||||
|
||||
' DsSendungen.
|
||||
Me.Height = Screen.FromRectangle(Me.Bounds).WorkingArea.Size.Height
|
||||
Me.Top = 0
|
||||
' initKdBoxEmpfaenger()
|
||||
' 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()
|
||||
Dim trd As Threading.Thread
|
||||
trd = New Threading.Thread(AddressOf initDrucker)
|
||||
trd.IsBackground = True
|
||||
trd.Start()
|
||||
|
||||
'initDrucker()
|
||||
'initDrucker()
|
||||
|
||||
|
||||
txtAvisierer.initKdBox(Me, txtAvisiererKdNr)
|
||||
txtFrachtfuehrer.initKdBox(Me, txtFrachtfuehrerKdNr)
|
||||
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
|
||||
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
|
||||
|
||||
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, "")
|
||||
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(txtFrachtfuehrer, picWarnFrachtfuehrer)
|
||||
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
|
||||
|
||||
txtEmpfaenger.initKdBox(Me, txtEmpfaengerKdNr)
|
||||
AddHandler txtEmpfaenger.PropertyChanged, Sub()
|
||||
FlatButton1.BackgroundImage = IIf(txtEmpfaenger.KdNr > 0, My.Resources.person, My.Resources.personInaktiv)
|
||||
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)
|
||||
|
||||
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 = txtEmpfaenger.KdNr
|
||||
' If RadioButton2.Checked Then initKundenzolltarifChecked(txtEmpfaenger)
|
||||
If cboZolltarif._value = 2 Then initKundenzolltarifChecked(txtEmpfaenger)
|
||||
SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr = -1
|
||||
|
||||
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
|
||||
' 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.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)
|
||||
|
||||
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.PropertyChanged, Sub()
|
||||
Try
|
||||
SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber = txtAuftraggeber.Text
|
||||
SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr = txtAuftraggeber.KdNr
|
||||
FlatButton3.BackgroundImage = IIf(txtAuftraggeber.KdNr > 0, My.Resources.person, My.Resources.personInaktiv)
|
||||
If txtAuftraggeber.KdData_ADRESSEN IsNot Nothing Then
|
||||
' txtEmpfaengerAnsprechpartner.Text = IIf(txtAuftraggeber.KdData_ADRESSEN.Ansprechpartner IsNot Nothing, txtAuftraggeber.KdData_ADRESSEN.Ansprechpartner, "")
|
||||
' txtEmpfaengerBonitaet.Text = IIf(txtAuftraggeber.KdData_KUNDE.Bonität IsNot Nothing, txtAuftraggeber.KdData_KUNDE.Bonität, "")
|
||||
|
||||
Else
|
||||
' txtEmpfaengerAnsprechpartner.Text = ""
|
||||
' txtEmpfaengerBonitaet.Text = ""
|
||||
End If
|
||||
' lblAtrAufschubEustTxt.Visible = False
|
||||
lblAtrAufschubEust.Visible = False
|
||||
|
||||
' If txtAuftraggeber.KdData_KUNDE IsNot Nothing Then
|
||||
' If txtAuftraggeber.KdData_KUNDE.Aufschubkonto_EUSt IsNot Nothing And txtAuftraggeber.KdData_KUNDE.Aufschubkonto_EUSt <> "" Then
|
||||
'lblAtrAufschubEust.Text = txtAuftraggeber.KdData_KUNDE.Aufschubkonto_EUSt
|
||||
|
||||
btnAufschub_Atr.Text = SendungOptions.getAufschubKto(txtAuftraggeber.KdNr_value, "EUST")
|
||||
If btnAufschub_Atr.Text = "" Then btnAufschub_Atr.Text = "Aufschub"
|
||||
' lblAtrAufschubEustTxt.Visible = True
|
||||
' lblAtrAufschubEust.Visible = True
|
||||
' btnAufschub_Atr.PerformClick()
|
||||
' End If
|
||||
|
||||
' End If
|
||||
|
||||
txtKdAuftragsNr.BackColor = Color.White
|
||||
If txtAuftraggeber.KdData_KUNDE_ERW IsNot Nothing AndAlso txtAuftraggeber.KdData_KUNDE_ERW.kde_VerwendetAuftragsNr Then
|
||||
txtKdAuftragsNr.BackColor = Color.FromArgb(255, 255, 128)
|
||||
If txtKdAuftragsNr.Text = "" Then txtKdAuftragsNr.Text = If(txtAuftraggeber.KdData_KUNDE_ERW.kde_FixeAuftragsNr, "")
|
||||
End If
|
||||
|
||||
|
||||
'If RadioButton.Checked Then initKundenzolltarifChecked(txtAuftraggeber)
|
||||
If cboZolltarif._value = 0 Then initKundenzolltarifChecked(txtAuftraggeber)
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
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 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)
|
||||
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
|
||||
txtAuftraggeber.initKdBox(Me, txtAuftraggeberKdNr)
|
||||
txtAbsender.initKdBox(Me, txtAbsenderKdNr)
|
||||
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
|
||||
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
|
||||
End If
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.AUTO_ABF_NR Then btnNeueAbfertigungNrVergeben.Visible = True
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.AUTO_ABF_NR Then btnNeueAbfertigungNrVergeben.Visible = True
|
||||
|
||||
initDataBinding()
|
||||
initDataBinding()
|
||||
|
||||
Catch ex As Exception
|
||||
closeWithoutSave = True
|
||||
MsgBox("Fehler beim Laden der Sendungsdaten." & ex.Message & ex.StackTrace)
|
||||
Me.Close()
|
||||
End Try
|
||||
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 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
|
||||
@@ -615,7 +644,7 @@ Public Class frmSendungsdetailsNEU
|
||||
'TabControl1.TabPages.Remove(tbZollabfertigung)
|
||||
End If
|
||||
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmSendungsdetails", Me) Then
|
||||
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)
|
||||
@@ -771,6 +800,7 @@ Public Class frmSendungsdetailsNEU
|
||||
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
|
||||
@@ -1074,31 +1104,32 @@ Public Class frmSendungsdetailsNEU
|
||||
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
|
||||
|
||||
'Übergangsphase Aviso/Sendung
|
||||
If txtAvisierer.Text = "" And txtAvisierer.Enabled And VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA 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
|
||||
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
|
||||
''Ü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()
|
||||
@@ -1160,6 +1191,7 @@ Public Class frmSendungsdetailsNEU
|
||||
|
||||
pnlEAviso.Visible = (SENDUNG_LIST(CURRENT_INDEX).VORSYSTEM IsNot Nothing)
|
||||
lblVorsystem.Text = If(SENDUNG_LIST(CURRENT_INDEX).VORSYSTEM, "")
|
||||
lblVorsystem.Visible = pnlEAviso.Visible
|
||||
|
||||
initRbtn()
|
||||
cboAbfertigungsart.Focus()
|
||||
@@ -1193,7 +1225,36 @@ Public Class frmSendungsdetailsNEU
|
||||
' GEAENDERT = False
|
||||
End Sub
|
||||
|
||||
Sub initFraechterAvisererFromAkt()
|
||||
|
||||
'Übergangsphase Aviso/Sendung
|
||||
If txtAvisierer.Text = "" And txtAvisierer.Enabled Then 'And (VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX") Then
|
||||
If AVISO.Auftraggeber_KdNr > -1 Then
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromKdNr(AVISO.Auftraggeber_KdNr) = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) Then
|
||||
txtAvisierer.KdNr = AVISO.Auftraggeber_KdNr
|
||||
End If
|
||||
Else
|
||||
txtAvisierer.KdNr_value = -1
|
||||
txtAvisiererKdNr.Text = ""
|
||||
txtAvisierer.Text = AVISO.Auftraggeber
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
'Übergangsphase Aviso/Sendung
|
||||
If txtFrachtfuehrer.Text = "" And txtFrachtfuehrer.Enabled Then 'And (VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX") Then
|
||||
If AVISO.Frächter_KdNr > -1 Then
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromKdNr(AVISO.Frächter_KdNr) = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) Then
|
||||
txtFrachtfuehrer.KdNr = AVISO.Frächter_KdNr
|
||||
End If
|
||||
Else
|
||||
|
||||
txtFrachtfuehrer.KdNr_value = -1
|
||||
txtFrachtfuehrerKdNr.Text = ""
|
||||
txtFrachtfuehrer.Text = AVISO.Frächter
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub initPosNr()
|
||||
'Try
|
||||
@@ -1524,9 +1585,11 @@ Public Class frmSendungsdetailsNEU
|
||||
|
||||
|
||||
Sub initDrucker()
|
||||
' alle installierten Drucker ermitteln und
|
||||
' in in ein ArrayList-Objekt speichern
|
||||
Dim sPrinters As New ArrayList
|
||||
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
|
||||
@@ -1548,25 +1611,30 @@ Public Class frmSendungsdetailsNEU
|
||||
|
||||
setCboSelected(oPS.PrinterName)
|
||||
|
||||
If False Then
|
||||
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
|
||||
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
|
||||
|
||||
|
||||
' 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
|
||||
@@ -2487,6 +2555,8 @@ Public Class frmSendungsdetailsNEU
|
||||
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 "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
|
||||
@@ -3609,9 +3679,9 @@ Public Class frmSendungsdetailsNEU
|
||||
For Each r As DataGridViewRow In dgvAnhang.SelectedRows
|
||||
files.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value))
|
||||
Next
|
||||
|
||||
Dim doc As Spire.Pdf.PdfDocumentBase = Spire.Pdf.PdfDocument.MergeFiles(files.ToArray)
|
||||
doc.Save(outputFile, Spire.Pdf.FileFormat.PDF)
|
||||
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
|
||||
@@ -3729,6 +3799,9 @@ Public Class frmSendungsdetailsNEU
|
||||
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)
|
||||
@@ -3799,4 +3872,14 @@ Public Class frmSendungsdetailsNEU
|
||||
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
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user